Veja se isto funciona:
procedure TfrmClienteMalaDireta.grdClientesDrawDataCell(Sender: TObject;
const Rect: TRect; Field: TField; State: TGridDrawState);
begin
inherited;
if (Field.DataSet.RecNo mod 2) = 0 then
begin
grdClientes.Canvas.Brush.Color := $D1EEEE;
grdClientes.Canvas.Font.Color := clBlack;
end
else
begin
grdClientes.Canvas.Brush.Color := clWhite;
grdClientes.Canvas.Font.Color := clBlack;
end;
grdClientes.Canvas.FillRect(Rect);
grdClientes.DefaultDrawDataCell(Rect,Field,State);
end;
//Eduardo
--- Em delphi-br@yahoogrupos.com.br, "Vicente Lima" <[EMAIL PROTECTED]> escreveu
> Pessoal,
> A propriedade Recno da Table, acessando um banco de dados Oracle so
me retorna -1, estou tentando fazer um Grid zebrado.
>
> Existe alguma outra forma de fazer isto, utilizando uma propriedade
do DBGrid por exemplo.
>
> Vicente Lima
>
>
> [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
