Como faço com o gride para ficar um linha branca e outra ama
06/12/2003
0
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
Curtir tópico
+ 0
Responder
Posts
06/12/2003
Turbo Drive
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.
Responder
17/12/2003
Nilsonalvernaz
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;
Responder
Clique aqui para fazer login e interagir na Comunidade :)