Problema com o Focus no DBGrid, não aparece o Focus!

Delphi

18/07/2005

Olá,
Estou usando este codigo no meu Grid
procedure TCadUser.DBGrid1DrawColumnCell(Sender: TObject;
 const Rect: TRect; DataCol: Integer; Column: TColumn;
 State: TGridDrawState);
begin
 if (DSCadUser.FieldByName(´Privilegiado´).AsInteger = 1) or (DSCadUser.FieldByName(´Privilegiado´).AsInteger = -1) then
 begin
  DBGrid1.Canvas.Font.Color := clBlack;
  DBGrid1.Canvas.Brush.Color := $00FFECC6;
  DBGrid1.Canvas.FillRect(Rect);
  DBGrid1.Canvas.TextOut(Rect.Left + 2, Rect.Top, Column.Field.AsString);
 end;
end;


Tudo certim, ele pinta a linha tudo beleza, porém quando eu clico na linha que não foi pintada, ele pinta de azul escuro (sinalizando o Foco), mas quando eu clico na linha pintada, não me exibe nada!

O que posso fazer pra arrumar isso?

Desde já agradeço

[]s


Titanius

Titanius

Curtidas 0

Respostas

Titanius

Titanius

18/07/2005

sobe.. alguem sabe?


GOSTEI 0
POSTAR