Como faço com o gride para ficar um linha branca e outra ama

Delphi

06/12/2003

Caros amigos vcs sabem
Como faço com o gride para ficar um linha branca e outra amarela sem para em todos os registro

por exemplo

[color=yellow:3c8fdc591a]0001..termicida.....12[/color:3c8fdc591a]
[color=red:3c8fdc591a]0001..termicida.....12[/color:3c8fdc591a]
[color=yellow:3c8fdc591a]0001..termicida.....12[/color:3c8fdc591a]
[color=red:3c8fdc591a]0001..termicida.....12[/color:3c8fdc591a]
[color=yellow:3c8fdc591a]0001..termicida.....12[/color:3c8fdc591a]
[color=red:3c8fdc591a]0001..termicida.....12[/color:3c8fdc591a]

ai ficar na gride mesmo não na letra sim na linha inteira..


Babu

Babu

Curtidas 0

Respostas

Turbo Drive

Turbo Drive

06/12/2003

Tirado da edição 44 da Revista

if not odd(Query.RecNo) then // zebra
if not (gdSelected in State) then
begin
DBGrid1.Canvas.Brush.Color := amarelo;
DBGrid1.Canvas.FillRect(Rect);
DBGrid1.DefaultDrawDataCell(Rect, Column.Field, State);
end;

Testei com o dbgrid e deu certo.


GOSTEI 0
Nilsonalvernaz

Nilsonalvernaz

06/12/2003

Estou tentando fazer esse tipo de listra no grid mas ele tá dando erro, onde está escrito STATE 2ª linha, estou colocando esse evento na procedure de evento Onclique que mostra o resultado do grid, está correto? :?: :?:

if not odd(qryPadrao.RecNo) then
if not (gdSelected in [b:74ae1861ea]State[/b:74ae1861ea]) then
begin
DBGrid1.Canvas.Brush.Color := Blue;
DBGrid1.Canvas.FillRect(Rect);
DBGrid1.DefaultDrawDataCell(Rect, Column.Field, State);
end;


GOSTEI 0
POSTAR