Oi Christian,
Eu consegui pintar a linha da tabela com:
procedure TFmCtrlGrid.DBGrid2DrawColumnCell(Sender: TObject;
const Rect: TRect; DataCol: Integer; Column: TColumn;
State: TGridDrawState);
begin
If gdSelected in State then
begin
Dbgrid2.Canvas.Brush.Color:= clRed;
DBGrid2.Canvas.FillRect(Rect);
end;
DBGrid2.DefaultDrawColumnCell(Rect, DataCol, Column, State);
end;
mas, o dgRowSelect tava no True.
Nao entendi pq vc nao quer usar o dgRowSelect... se for apenas
pelo desafio de fazer sem a propriedade sugiro tentar montar uma
query identificando a linha e fazer algo do tipo
Dados.IBQuery1.FieldByName('CAMPO').Value = flag para determinar os
campos que irao aparecer no grid com valor pintura diferente.
[]s
MSG
--- Em [EMAIL PROTECTED], "Christian Balz" <[EMAIL PROTECTED]>
escreveu
> Ola Pessoal,
>
>
>
> Estou utilizando o código abaixo no evento OnDrawColumnCell, mas
somente a
> célula clicada fica colorida.
>
>
>
> If gdSelected in State then begin
>
> With (Sender as TDbGrid).Canvas do begin
>
> Brush.Color := $0028C0B1;
>
> FillRect(Rect);
>
> (Sender as TDbGrid).DefaultDrawDataCell(Rect,Field,State);
>
> end;
>
> end;
>
>
>
> Como faço para colorir apenas a linha selecionada do DbGrid, sem
usar o
> RowSelect?
>
>
>
> Se alguém souber me ajudar fico grato,
>
>
>
> []'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
