[PROBLEMA] Células coloridas DbGrid - Seleção padrão

Delphi

13/10/2008

:D Ae, blz?

Seguinte, tenho DbGrid com duas celulas coloridas com o seguinte codigo:

Propriedade: DrawColumnCell
if (Column.Field.FieldName = ´IMO_FRACAO´) then
begin
DBGrid1.Canvas.Brush.Color:= $00FF8000;
DBGrid1.Canvas.Font.Color:= clWhite;
DBGrid1.Canvas.FillRect(Rect);
DBGrid1.DefaultDrawColumnCell(Rect, DataCol, Column, State);
end;

Mas estou com problemas com a cor padrão de seleção do DbGrid.
:arrow: Preciso q a celula colorida qdo selecionada mude para a cor padrão de seleção, mas n é isto q está acontecendo...


Vlws
Abraços!!


Educdc

Educdc

Curtidas 0

Respostas

Luciano.lirio

Luciano.lirio

13/10/2008

educdc,

tem colocar assim.

  
if not (gdSelected in State) then // Se a célula não está selecionada
begin
  if (Column.Field.FieldName = ´IMO_FRACAO´) then 
  begin 
    DBGrid1.Canvas.Brush.Color:= $00FF8000; 
    DBGrid1.Canvas.Font.Color:= clWhite; 
    DBGrid1.Canvas.FillRect(Rect); 
    DBGrid1.DefaultDrawColumnCell(Rect, DataCol, Column, State); 
  end; 
end;



GOSTEI 0
Educdc

Educdc

13/10/2008

Resolvido Luciano...

Vlws!
Abraços...


GOSTEI 0
POSTAR