Mudar a cor da linha do grid

Delphi

09/09/2009

estou usando o seguinte codigo para mudar a cor da linha do grid de acordo com a informacao do campo:

procedure TFluxoCaixa.DBGFluxoDrawColumnCell(Sender: TObject; const Rect: TRect; DataCol: Integer; Column: TColumn; State: TGridDrawState);
begin
  if (CdsFluxoCREDEB.Value = ´D´) then
  begin
    DBGFluxo.Canvas.Font.Color := clRed;
    DBGFluxo.DefaultDrawColumnCell(Rect,dataCol,Column,State);
  end;
end;


Porem quando a linha esta selecionada (AZUL) eu gostaria que a cor das letras ficassem em cor branca, porque senao fica horrivel de visualizar.
Tem como fazer isso ?

Abs a Todos


Felipeiw

Felipeiw

Curtidas 0

Respostas

Osocram

Osocram

09/09/2009

tenta isso
if (gdSelected in State) then



GOSTEI 0
Felipeiw

Felipeiw

09/09/2009

Perfeito


GOSTEI 0
POSTAR