DBGrid, por favor !!!
Gostaria de saber como mudar a cor da tarja (por padrão é azul) do DBGrid, que aparece mudando as propriedades dgRowSelect e dgAlwayShowSelection
Agradeço qualquer ajuda ou atenção
Agradeço qualquer ajuda ou atenção
Luciano Pimenta®
Curtidas 0
Respostas
Anonymous
10/03/2003
vc pode fazer assim:
procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
DataCol: Integer; Column: TColumn; State: TGridDrawState);
begin
if (State <> []) then
begin
TDBGrid(Sender).Canvas.Font.Color := clwhite;
TDBGrid(Sender).Canvas.Brush.color := clBlack;
TDBGrid(Sender).Canvas.FillRect(Rect);
TDBGrid(Sender).DefaultDrawDataCell(Rect, Column.Field, State);
end;
end;
Falou.
Leandro
ICQ 128124370
procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
DataCol: Integer; Column: TColumn; State: TGridDrawState);
begin
if (State <> []) then
begin
TDBGrid(Sender).Canvas.Font.Color := clwhite;
TDBGrid(Sender).Canvas.Brush.color := clBlack;
TDBGrid(Sender).Canvas.FillRect(Rect);
TDBGrid(Sender).DefaultDrawDataCell(Rect, Column.Field, State);
end;
end;
Falou.
Leandro
ICQ 128124370
GOSTEI 0