TeeGrid color questions

[TheOtherPrefontaine]

My question has to do with setting the header brush color directly. Can it be done?

I use TeeGrid1.Back.Brush.Color for the background.
I use TeeGrid1.Rows.Format.Font.Color to set the overall font color
I use TeeGrid1.Header.Format.Font.Color to set the header font color

For instance to set the header brush/background color to claBlack, how can I do it?

[Yeray]

Hello,

You can use properties under Header.Format.Brush. Note you may need to hide the Gradient so the Solid Brush can be drawn. Ie:

Code: Select all

  TeeGrid1.Header.Format.Brush.Gradient.Hide;
  TeeGrid1.Header.Format.Brush.Color:=clGreen;

[TheOtherPrefontaine]

Perfect! Thanks very much.

[InfraTec]

I used this example to colorize the header, but now unfortunately the header lines of the last visible column (left and right) are not drawn:

[Yeray]

Hello,

Do you have a simple example we can run as-is to reproduce the problem here?
Thanks in advance.

[InfraTec]

Here is my example:

[Yeray]

Hello,

This is already fixed so the next release should include this fix.
Here the diff if you want to try to apply it to your sources without having to wait for the next release:

Code: Select all

diff --git a/Sources/Tee.Grid.Bands.Columns.pas b/Sources/Tee.Grid.Bands.Columns.pas
index 73d332e0..baa6bb0b 100644
--- a/Sources/Tee.Grid.Bands.Columns.pas
+++ b/Sources/Tee.Grid.Bands.Columns.pas
@@ -695,25 +695,32 @@ var
 
   procedure DrawColumns(const AColumns:TVisibleColumns);
 
-    procedure DrawLine(const AColumn:TColumn);
+    procedure DrawLine(const AColumn:TColumn; const IsLast:Boolean);
     var tmpR : TRectF;
     begin
       tmpR:=AdjustBounds(AColumn,AData.Bounds);
+
       AData.Painter.VerticalLine(AColumn.Left-tmpHalf,tmpR.Top,tmpBottom);
+
+      if IsLast then
+         AData.Painter.VerticalLine(AColumn.Right-tmpHalf,tmpR.Top,tmpBottom);
     end;
 
     function CanPaintLine(const AColumn:TColumn):Boolean;
     begin
       if AColumn.Locked=TColumnLocked.None then
-         result:=(AColumn.Left>=IVisible.NonLocked.Left) and
-                 (AColumn.Right<=IVisible.NonLocked.Right)
+         result:=(AColumn.Right>=IVisible.NonLocked.Left) and
+                 (AColumn.Left<=IVisible.NonLocked.Right)
       else
          result:=True;
     end;
 
   var t : Integer;
-      tmp : TColumn;
+      tmp,
+      tmpLast : TColumn;
   begin
+    tmpLast:=AColumns.Last;
+
     for t:=0 to AColumns.Count-1 do
     begin
       tmp:=AColumns[t];
@@ -722,7 +729,7 @@ var
          break
       else
       if CanPaintLine(tmp) then
-         DrawLine(tmp);
+         DrawLine(tmp,tmp=tmpLast);
     end;
   end;

[InfraTec]

Thank you for the fix. It works for the last line. But unfortunately the header lines are now shifted slightly right.
You can see this with my example program.

[Marc]

Hello,

We'll be publishing the fix very soon, there may be a subtle difference to your code.

Regards,
Marc Meumann