Como faço com o gride para ficar um linha branca e outra ama
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..
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
Curtidas 0
Respostas
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.
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
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;
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