Osmar,
O problema é que desta forma somente a célula selecionada no DBGrid será colorida e não a linha toda. []’s Christian Balz _____ De: Osmar de Souza Júnior [mailto:[EMAIL PROTECTED] Enviada em: quarta-feira, 5 de janeiro de 2005 14:47 Para: delphi-br@yahoogrupos.com.br Assunto: [delphi-br] Re: Linha colorida em um DBGrid + Zebrado Christian, creio que resolva o problema: //----------------------------------------------------------------- if Odd(DM1.ClientDataSet6.RecNo) then PesquisaGrid.Canvas.Brush.Color := $dddddd else PesquisaGrid.Canvas.Brush.Color := $eeeeee; if gdSelected in State then PesquisaGrid.Canvas.Brush.Color := $ff0000; PesquisaGrid.Canvas.FillRect(Rect); //----------------------------------------------------------------- Abraços. Osmar de Souza Júnior --- Em delphi-br@yahoogrupos.com.br, "Christian Balz" <[EMAIL PROTECTED]> escreveu > 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] -- <<<<< 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] Yahoo! Grupos, um serviço oferecido por: PUBLICIDADE <http://br.rd.yahoo.com/SIG=12a8o8gea/M=264379.5078783.6203979.1588051/D=brc lubs/S=2137111264:HM/EXP=1105030062/A=2332652/R=0/id=noscript/SIG=119058f8i/ *http:/br.download.yahoo.com/messenger/> _____ 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] <mailto:[EMAIL PROTECTED]> * O uso que você faz do Yahoo! Grupos está sujeito aos Termos <http://br.yahoo.com/info/utos.html> do Serviço do Yahoo!. [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
