anchor.diff:        break;  //==>
       end;
     end; { while h <> nil }
  -  Canvas.EndDraw;
   end;
   
   procedure TfpgTreeview.DrawHeader(ACol: integer; ARect: TfpgRect;
  
positive.code:   writeln('TfpgTreeview.HandlePaint');
    {$ENDIF}
  //  inherited HandlePaint;
    if not HasHandle then
      Exit; //==>
    i1 := 0;
    PreCalcColumnLeft;
    UpdateScrollbars;
    AVisibleHeight := VisibleHeight;
  
    Canvas.BeginDraw;  // start double buffering
    Canvas.ClearClipRect;
    Canvas.Clear(FBackgroundColor);
    if FFocused then
      Canvas.SetColor(clWidgetFrame)
    else
      Canvas.SetColor(clInactiveWgFrame);
    r.SetRect(0, 0, Width, Height);
    Canvas.DrawRectangle(r); // border
  
    { TODO : Columns need to be redesigned completely }
    if ShowColumns then
  
negative.code:   FDefaultColumnWidth := 15;
    FFirstColumn  := nil;
    FFont := fpgGetFont('#Label1');
    Width := 150;
    Height := 100;
  
    FHScrollbar := TfpgScrollbar.Create(self);
    FHScrollbar.Orientation := orHorizontal;
  