Bom, para selecionar a linha toda, uma alternativa é setar a propriedade RowSelect, em Options, para TRUE.
--- Em delphi-br@yahoogrupos.com.br, "Christian Balz" <[EMAIL PROTECTED]> escreveu > 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.158805 1/D=brc > lubs/S=2137111264:HM/EXP=1105030062/A=2332652/R=0/id=noscript/SIG=119 058f8i/ > *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] subject=Unsubscribe> > > * 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
