Board index » delphi » D5 DBGrid row color

Bugs

Delphi Developer
Mon, 28 Jul 2003 04:47:29 GMT

D5 DBGrid row color

It is possible to control colors on a row-basis with the standard DBGrid
that is delivered with D5?  I know it supports coloring by column, but I
want to alternate the colors on a row by row basis for readibility.
Is a 3rd party DBGrid my only option?
Thanks!
 
Mauro Patin

Delphi Developer
Mon, 28 Jul 2003 04:59:20 GMT

Re:D5 DBGrid row color


Quote
Bugs wrote:
> It is possible to control colors on a row-basis with the standard DBGrid
> that is delivered with D5?  I know it supports coloring by column, but I
> want to alternate the colors on a row by row basis for readibility.
> Is a 3rd party DBGrid my only option?

Here is a trick.

procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
  DataCol: Integer; Column: TColumn; State: TGridDrawState);
begin
 if gdSelected in State then
   DBGrid1.Canvas.Brush.Color := clNavy {need that highlight for 'focus'}
 else if (Table1.RecNo mod 2) > 0 then
 begin
   DBGrid1.Canvas.Font.Color := clWhite;
   DBGrid1.Canvas.Brush.Color := clTeal;
 end;
 DBGrid1.DefaultDrawColumnCell(Rect, DataCol, Column, State);
end;

Bugs

Delphi Developer
Mon, 28 Jul 2003 07:35:46 GMT

Re:D5 DBGrid row color


"Mauro Patino" <M-Pat...@govst.edu> wrote in

Quote
> Here is a trick.

> procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
>   DataCol: Integer; Column: TColumn; State: TGridDrawState);
> begin
>  if gdSelected in State then
>    DBGrid1.Canvas.Brush.Color := clNavy {need that highlight for 'focus'}
>  else if (Table1.RecNo mod 2) > 0 then
>  begin
>    DBGrid1.Canvas.Font.Color := clWhite;
>    DBGrid1.Canvas.Brush.Color := clTeal;
>  end;
>  DBGrid1.DefaultDrawColumnCell(Rect, DataCol, Column, State);
> end;

Thanks Mauro!  Worked perfect the first time!
Bugs

Delphi Developer
Tue, 29 Jul 2003 02:13:59 GMT

Re:D5 DBGrid row color


"Mauro Patino" <M-Pat...@govst.edu> wrote

Quote
> Here is a trick.

> procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
>   DataCol: Integer; Column: TColumn; State: TGridDrawState);
> begin
>  if gdSelected in State then
>    DBGrid1.Canvas.Brush.Color := clNavy {need that highlight for 'focus'}
>  else if (Table1.RecNo mod 2) > 0 then
>  begin
>    DBGrid1.Canvas.Font.Color := clWhite;
>    DBGrid1.Canvas.Brush.Color := clTeal;
>  end;
>  DBGrid1.DefaultDrawColumnCell(Rect, DataCol, Column, State);
> end;

Followup question for you Mauro.  This grid has it's dataset switched
occasionally, changing the data in the grid.  This screws up the alternating
coloring.  Any suggestions?
Thanks!
Mauro Patin

Delphi Developer
Tue, 29 Jul 2003 03:37:19 GMT

Re:D5 DBGrid row color


Quote
Bugs wrote:
> Followup question for you Mauro.  This grid has it's dataset switched
> occasionally, changing the data in the grid.  This screws up the alternating
> coloring.  Any suggestions?
> Thanks!

The row coloring is based on the Dataset

DataSource1.DataSet := Table1;

  if gdSelected in State then
    DBGrid1.Canvas.Brush.Color := clNavy {need that highlight for 'focus'}
  else if (Table1.RecNo mod 2) > 0 then  // <------------based on Table1
  begin
    DBGrid1.Canvas.Font.Color := clWhite;
    DBGrid1.Canvas.Brush.Color := clTeal;

if you change it

DataSource1.DataSet := Table2;

the row coloring is still based on Table1 and thus will not get the correct
effect.

Try using 'DataSource1.DataSet.RecNo' in the coloring event.  Now it will be
whatever dataset you use.

procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
  DataCol: Integer; Column: TColumn; State: TGridDrawState);
begin
 if gdSelected in State then
   DBGrid1.Canvas.Brush.Color := clNavy {need that highlight for 'focus'}
 else if (DataSource1.DataSet.RecNo mod 2) > 0 then
 begin
   DBGrid1.Canvas.Font.Color := clWhite;
   DBGrid1.Canvas.Brush.Color := clTeal;
 end;
 DBGrid1.DefaultDrawColumnCell(Rect, DataCol, Column, State);
end;

Hope it helps.

Mauro

Bugs

Delphi Developer
Tue, 29 Jul 2003 04:07:09 GMT

Re:D5 DBGrid row color


"Mauro Patino" <M-Pat...@govst.edu> wrote in

Quote
> The row coloring is based on the Dataset

> DataSource1.DataSet := Table1;

>   if gdSelected in State then
>     DBGrid1.Canvas.Brush.Color := clNavy {need that highlight for 'focus'}
>   else if (Table1.RecNo mod 2) > 0 then  // <------------based on Table1
>   begin
>     DBGrid1.Canvas.Font.Color := clWhite;
>     DBGrid1.Canvas.Brush.Color := clTeal;

> if you change it

> DataSource1.DataSet := Table2;

> the row coloring is still based on Table1 and thus will not get the
correct
> effect.

> Try using 'DataSource1.DataSet.RecNo' in the coloring event.  Now it will
be
> whatever dataset you use.

> procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
>   DataCol: Integer; Column: TColumn; State: TGridDrawState);
> begin
>  if gdSelected in State then
>    DBGrid1.Canvas.Brush.Color := clNavy {need that highlight for 'focus'}
>  else if (DataSource1.DataSet.RecNo mod 2) > 0 then
>  begin
>    DBGrid1.Canvas.Font.Color := clWhite;
>    DBGrid1.Canvas.Brush.Color := clTeal;
>  end;
>  DBGrid1.DefaultDrawColumnCell(Rect, DataCol, Column, State);
> end;

> Hope it helps.

> Mauro

Ah!  That makes sense and it worked perfectly!
Thanks again Mauro!

Other Threads

1. dbgrid rows colored in interlaced two colors

2. How to color 1 row in a DBGrid

3. How change the color of column and row lines of DBGrid

4. DBGRID - Changing the color of every 2nd row

5. DBGrid Row Colors

6. Change color on row in DBgrid

7. Q: How to color a row when it's record is loced in DBGrid

8. QUESTION: DBGrid ROW Coloring, HOWTO?

9. Delphi 2.0 - DBGrid Row properties (color) problems ??

10. Coloring Rows in DBGrid comparing distinct records