1 files changed, 0 insertions, 16 deletions
diff --git a/src/gui/gui_tree.pas b/src/gui/gui_tree.pas
index 7548d1a5..ea00b59c 100644
--- a/src/gui/gui_tree.pas
+++ b/src/gui/gui_tree.pas
@@ -1391,25 +1391,9 @@ end;
 
 procedure TfpgTreeview.DrawHeader(ACol: integer; ARect: TfpgRect;
   AFlags: integer);
-var
-  s: string;
-  r: TfpgRect;
-  x: integer;
 begin
   // Here we can implement a head style check
   Canvas.DrawButtonFace(ARect, [btnIsEmbedded]);
-{
-  r := ARect;
-  InflateRect(r, -2, -2);
-  Canvas.SetClipRect(r);  // text cannot oversheet header border
-
-  Canvas.SetTextColor(clText1);
-  s := GetHeaderText(ACol);
-  x := (ARect.Left + (ARect.Width div 2)) - (FHeaderFont.TextWidth(s) div 2);
-  if x < 1 then
-    x := 1;
-  fpgStyle.DrawString(Canvas, x, ARect.Top+1, s, Enabled);
-}
 end;
 
 procedure TfpgTreeview.HandleKeyPress(var keycode: word;