DBGrid, por favor !!!
10/03/2003
0
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®
Curtir tópico
+ 0
Responder
Posts
10/03/2003
Anonymous
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
Responder
Clique aqui para fazer login e interagir na Comunidade :)