3 replies to this topic

[zifnabbe]

For alternating row color, I use the following code:

CODE

procedure TNextGridFrame.dbgAddInCellColoring(Sender: TObject; ACol,

 ARow: Integer; var CellColor, GridColor: TColor; CellState: TCellState);

begin

 if (ACol > 1) then

 begin

   if (not (csSelected in CellState))

       and (ARow mod 2 = 0) then CellColor := RGB(245, 245, 245);

 end;

end;

However, this also colors rows where no data is available. So if you've a grid which displays an empty dataset, then you get alternating line coloring for the totality of the grid. This is confusing for the user. Is there a way to detect if the cell/row contains data.

Thanks.

[Boki (Berg)]

Hello,

Please try next code:

CODE

procedure TForm1.NextDBGrid1CellColoring(Sender: TObject; ACol,

 ARow: Integer; var CellColor, GridColor: TColor; CellState: TCellState);

begin

 if (ARow < NextDBGrid1.RowCount) then

 begin

   if (not (csSelected in CellState))

       and (ARow mod 2 = 0) then CellColor := RGB(245, 245, 245);

 end;

end;

regards

[zifnabbe]

Great, thanks!

[nevel]

You may also want to check for the csEmpty state, like so:

if (not (csSelected in CellState)) and (not (csEmpty in CellState)) then begin
if ARow mod 2 = 0 then begin
CellColor := RGBToColor(255, 255, 255);
end
else begin
CellColor := RGBToColor(248, 248, 248);
end;
end;

If you don't, the alternating colors will remain visible after the number of grid items has decreased.