Vlw Gilson, funciou perfeitamente! Qualquer duvida ao meu alcance, a dispor!
[]'s Henrique --- Em delphi-br@yahoogrupos.com.br, "Gilson" <[EMAIL PROTECTED]> escreveu > > Tente assim: > > procedure Tfaluno.DBGrid1DrawColumnCell(Sender: TObject; const Rect: > TRect; > DataCol: Integer; Column: TColumn; State: TGridDrawState); > begin > x := DM.cAluno.RecNo mod 2; > if x <> 0 then > begin > DBGrid1.Canvas.Font.Color := clBlack; > DBGrid1.Canvas.Brush.Color := $00F0F8FF; > end > else > if x = 0 then > begin > DBGrid1.Canvas.Font.Color := clBlack; > DBGrid1.Canvas.Brush.Color := clWhite; > end; > if gdselected in state then // se a linha estiver selecionada > dbgrid1.Canvas.Font.Color := clwhite; // muda a cor do texto > DBGrid1.Canvas.FillRect(Rect); > DBGrid1.Canvas.TextOut(Rect.Left+2,Rect.Top,Column.Field.AsString); > end; > > []'s > > Gilson > > -----Mensagem original----- > De: delphi-br@yahoogrupos.com.br [mailto:delphi- [EMAIL PROTECTED] Em > nome de henriquefari > Enviada em: sábado, 16 de setembro de 2006 16:23 > Para: delphi-br@yahoogrupos.com.br > Assunto: [delphi-br] Duvida sobre um DBGrid Zebrado > > E ai galera, tranquilo com vcs? > > Eu estou terminado minha aplicação, e estou introduziondo o o dbgrig > zebrado, ele está funcioanndo perfeitamente, como segue a linha de > código abaixo. > > Porém por eu ter setado a cor da linhae da fonte, a linha selecionada > não muda de cor, e não estou conseguindo manipular a linha > SELECIONADA, para mudar ela de cor. > > Quem souber como manipula ela, agradeço muito! > > Abraços, > > Henrique Faria > > ------------------------------------------------------------------ > > procedure Tfaluno.DBGrid1DrawColumnCell(Sender: TObject; const Rect: > TRect; > DataCol: Integer; Column: TColumn; State: TGridDrawState); > begin > x := DM.cAluno.RecNo mod 2; > if x <> 0 then > begin > DBGrid1.Canvas.Font.Color := clBlack; > DBGrid1.Canvas.Brush.Color := $00F0F8FF; > end > else > if x = 0 then > 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; > > > > > > > -- > <<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>> > > > > Links do Yahoo! Grupos > -- <<<<< 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] 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
