IS there a way to alternate backgoundcolor

VCL TMS VCL UI Pack
1
Hi,

Is there a way to alternate backgroundcolor for items in grid?

Something like

if (((ARow mod 2) = 0)) then
    GridItems.CellProperties[ACol, ARow].BrushColor := clSilver
 else
   GridItems.CellProperties[ACol, ARow].BrushColor := clWindow;

I have done this on DrawCell event, but grid keeps redrawing.

Thanks in advance,

Omar Zelaya

2
Hi,

Actually is Row BackColor for each item.

Thanks in advance,

Omar Zelaya
3

Hi Omar,

in order to chenge color (text or background) try with



procedure TForm2.SG1GetCellColor(Sender: TObject; ARow, ACol: Integer;

AState: TGridDrawState; ABrush: TBrush; AFont: TFont);

begin

if odd(Arow) Then Abrush.Color:=clRed

Else

Abrush.Color:=clGreen;

end;



Put your logic in order to get the rigth color.



Regards



Daniele

4
Hi,
I want in a dbADVgrid color cells depending on the value of record value of the selected row.
The color change only happens when I click the row wich holds the right value, but only the row I left, wich not has the right value is colered. when I move to the next row wich has the right value all rows are colered, also wich do not have the correct value.
5

You can use the grid.Bands.Active property.  You can set the band colours via grid.Bands.PrimaryColor and grid.Bands.SecondaryColor according to the TMS docs.

6

My previous post relates to the original question by the way.