usando a rotina ... não aparecem as informações do DBGRid..
--- Em delphi-br@yahoogrupos.com.br, Osmar de Souza Júnior
<[EMAIL PROTECTED]> escreveu
>
>
> 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]
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
