anchor.diff:        break;  //==>
       end;
     end; { while h <> nil }
  -  Canvas.EndDraw;
   end;
   
   procedure TfpgTreeview.DrawHeader(ACol: integer; ARect: TfpgRect;
  
positive.code: 
  procedure TfpgTreeview.HandleShow;
  begin
    if (csLoading in ComponentState) then
      Exit;
    ResetScrollbar;
    inherited HandleShow;
  end;
  
  
negative.code:   FDefaultColumnWidth := 15;
    FFirstColumn  := nil;
    FFont := fpgGetFont('#Label1');
    Width := 150;
    Height := 100;
  
    FHScrollbar := TfpgScrollbar.Create(self);
    FHScrollbar.Orientation := orHorizontal;
  