[resolvido] Cores No Dbgrid

[Guest --Jose Luiz --]

procedure TTESTE.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect; DataCol: Integer; Column: TColumn; State: TGridDrawState);

const

clVerdeClaro = TColor ( $CCFFCC ) ;

begin

if ( gdFocused in State ) then

DBG_GIN_SOC.canvas.brush.color := clNavy

else

if Column.Field.Dataset.FieldbyName ( 'COR' ).AsString = '1' then

DBG_GIN_SOC.canvas.brush.color := clVermelho1 ;

DBGrid1.DefaultDrawColumnCell ( rect, DataCol, Column, State ) ;

end;

No exemplo acima, tenho um campo COR no meu banco de dados, que me permite definir qual a cor de fundo que eu desejo.

Se estou utilizando Properties - Option - DgRowSelect = False, as cores funcionam corretamente, porém se o DgRowSelect for True, somente o primeiro campo do DBGrid obedece as cores do registro em destaque, e os outros campos não.

Como fazer para que toda a linha do DBGrid mostre a mesma cor do registro Selecionado ( ou seja clNavy = Letras brancas em fundo azul ) ?

Obrigado.

[Micheus]

Ao invés de testar State por gdFocused, utilize gdSelected (if gdSelected in State then). Assim você estará testando a linha (registro) selecionada.

[Guest HDELPHI]

Coloque a propriedade defaultdrawdata do dbgrid em FALSE

No evento onDrawColumnCell do seu grid coloque o seguinte:

procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject;

const

Rect: TRect; DataCol: Integer; Column: TColumn;

State: TGridDrawState);

begin

If table1PRAZO.Value > DATE then // condição

Dbgrid1.Canvas.Font.Color:= clFuchsia; // coloque aqui a cor desejada

Dbgrid1.DefaultDrawDataCell(Rect, dbgrid1.columns[datacol].field, State);

end;

[Guest --José Luiz --]

Obrigado pelas rápidas respostas.

Não testei a proposta do HDELPHI, pois a sugestão do Micheus era mais rápida e funcionou perfeitamente.

De qualquer modo, agradeço aos dois pelo interesse.

Obrigado.