Munda de cor..Grid
Bom, pessoal, gostaria se alguem me ajudasse, a intercalar a cor de um grid.
Valeu
Valeu
Luciano.carvalho
Curtidas 0
Respostas
Luciano Pimenta®
06/03/2003
Use assim:
If odd(Table1.RecNo) then //pode ser tbm Query1.recNo ou ClientDataSet
begin
DBGrid1.Canvas.Font.Color:= clWhite; //fonte branca
DBGrid1.Canvas.Brush.Color:= clGreen; //linha verde
end
else
begin
DBGrid1.Canvas.Font.Color:= clBlack; //fonte preta
DBGrid1.Canvas.Brush.Color:= clWhite; //linha branca
end;
DBGrid1.Canvas.FillRect(Rect);
DBGrid1.Canvas.TextOut(Rect.Left+2,Rect.Top,Column.Field.AsString);
end;
:)
If odd(Table1.RecNo) then //pode ser tbm Query1.recNo ou ClientDataSet
begin
DBGrid1.Canvas.Font.Color:= clWhite; //fonte branca
DBGrid1.Canvas.Brush.Color:= clGreen; //linha verde
end
else
begin
DBGrid1.Canvas.Font.Color:= clBlack; //fonte preta
DBGrid1.Canvas.Brush.Color:= clWhite; //linha branca
end;
DBGrid1.Canvas.FillRect(Rect);
DBGrid1.Canvas.TextOut(Rect.Left+2,Rect.Top,Column.Field.AsString);
end;
:)
GOSTEI 0