ei Christian, tenta com esse...
procedure TECadastro.DBGrid1DrawColumnCell(Sender: TObject;
const Rect: TRect; DataCol: Integer; Column: TColumn;
State: TGridDrawState);
begin
//If odd(ADOTable1.RecNo) then
If (DMPrisao.QViewReuSDESCRICAO.Value = 'ABERTO') or
(DMPrisao.QViewReuSDESCRICAO.Value = 'A CUMPRIR') then
begin
DBGrid1.Canvas.Font.Color:= clWhite;
DBGrid1.Canvas.Brush.Color:= clRed;
end
else
begin
DBGrid1.Canvas.Font.Color:= clBlack;
DBGrid1.Canvas.Brush.Color:= clWhite;
end;
DBGrid1.Canvas.FillRect(Rect);
DBGrid1.Canvas.TextOut(Rect.Left+2,Rect.Top,Column.Field.AsString);
end;
----- Original Message -----
From: Christian Balz
To: delphi-br@yahoogrupos.com.br
Sent: Wednesday, January 05, 2005 7:13 AM
Subject: [delphi-br] Linha colorida em um DBGrid + Zebrado
Ola pessoal,
Estou implementando uma rotina que ao clicar em uma linha de um DBGrid, a
linha inteira será colorida com uma cor. O problema é que também quero que o
grid fique zebrado (cor sim e cor não), o caso é que as duas rotinas
funcionam bem quando separadas, mas se executadas juntas, não funcionam bem.
Alguém tem alguma idéia ou sugestão?
{cria o zebrado no grid}
If not Odd(DM1.ClientDataSet6.RecNo) then
If not (gdSelected in State) then
begin
PesquisaGrid.Canvas.Font.Color := clBlack;
PesquisaGrid.Canvas.Brush.Color:= $00EEEEEE;
PesquisaGrid.Canvas.FillRect(Rect);
PesquisaGrid.DefaultDrawDataCell(Rect,Column.Field,State);
end;
If (key in [#37,#38,#39,#40]) then
begin
if (gdSelected in State) then CL:= DM1.ClientDataSet6.RecNo;
if (DM1.ClientDataSet6.RecNo = CL) then
begin
PesquisaGrid.Canvas.Font.Color := clBlack;
PesquisaGrid.Canvas.Brush.Color:= $00C56A31;
PesquisaGrid.DefaultDrawDataCell(Rect,Column.Field,State);
end;
end;
[]'s
Christian Balz
[As partes desta mensagem que não continham texto foram removidas]
--
[As partes desta mensagem que não continham texto foram removidas]
--
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED] ou [EMAIL PROTECTED]
Links do Yahoo! Grupos
<*> Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
<*> Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
<*> O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html
