anchor.diff:  
   procedure TfpgTreeview.HandleShow;
   begin
  -  if (csLoading in ComponentState) then
  -    Exit;
  -  ResetScrollbar;
  +  if not (csLoading in ComponentState) then
  +    ResetScrollbar;
     inherited HandleShow;
   end;
   
  
positive.code:   FDefaultColumnWidth := 15;
    FFirstColumn  := nil;
    FFont := fpgGetFont('#Label1');
    FWidth := 150;
    FHeight := 100;
  
    FHScrollbar := TfpgScrollbar.Create(self);
    FHScrollbar.Orientation := orHorizontal;
  
negative.code:   writeln('TfpgTreeview.HandlePaint');
    {$ENDIF}
  //  inherited HandlePaint;
  
    Canvas.ClearClipRect;
    Canvas.Clear(FBackgroundColor);
  
    // Limit painting in the UI Designer
    if csDesigning in ComponentState then
    begin
      Canvas.SetColor(clInactiveWgFrame);
      r.SetRect(0, 0, Width, Height);
      Canvas.DrawRectangle(r);
      Canvas.SetTextColor(clInactiveWgFrame);
      Canvas.DrawString(2, 2, Name + ': ' + Classname);
      Exit;
    end;
  
    if FFocused then
      Canvas.SetColor(clWidgetFrame)
    else
      Canvas.SetColor(clInactiveWgFrame);
    r.SetRect(0, 0, Width, Height);
    Canvas.DrawRectangle(r); // border
  
    i1 := 0;
    PreCalcColumnLeft;
    UpdateScrollbars;
    AVisibleHeight := VisibleHeight;
  
  
  //  if not HasHandle then
  //    Exit; //==>
  
    { TODO : Columns need to be redesigned completely }
    if ShowColumns then
  