DBGrid - Cor na linha do ponteiro
19/03/2003
0
Olá pessoal,
Mais uma vez muito obrigado !!!
Mas o que eu preciso é pintar a linha inteira de onde está o ponteiro no dbgrid e não apenas a célula, ok?
Usei a sugestão dos amigos do Fórum que seria, alterar a propriedade: Options - dgRowSelect - dgAlwaysShow para True, funcionou mas o usuário não consegue editar ou inserir um novo registro.
Está ficando difícil, não é?
Obrigado mais uma vez....
Marcelo Ribeiro
marcelosistemas@hotmail.com
Mais uma vez muito obrigado !!!
Mas o que eu preciso é pintar a linha inteira de onde está o ponteiro no dbgrid e não apenas a célula, ok?
Usei a sugestão dos amigos do Fórum que seria, alterar a propriedade: Options - dgRowSelect - dgAlwaysShow para True, funcionou mas o usuário não consegue editar ou inserir um novo registro.
Está ficando difícil, não é?
Obrigado mais uma vez....
Marcelo Ribeiro
marcelosistemas@hotmail.com
Anonymous
Curtir tópico
+ 0
Responder
Posts
19/03/2003
Everton
Adicione na seção Types:
TFriendly = class(TCustomDBGrid);
Agora coloque o código abaixo no evento OnDrawColumnCell:
procedure TfmMenu.GridDrawColumnCell(Sender: TObject;
const Rect: TRect; DataCol: Integer; Column: TColumn;
State: TGridDrawState);
begin
with TFriendly(Grid) do
begin
if DataLink.ActiveRecord = (Row-1) then
begin
Grid.Canvas.Brush.Color := clHighlight; // Cor do fundo
Grid.Canvas.Font.Color := clWhite; // Cor da linha
Grid.DefaultDrawColumnCell(Rect, DataCol, Column, State);
end;
end;
end;
Espero ter ajudado !
TFriendly = class(TCustomDBGrid);
Agora coloque o código abaixo no evento OnDrawColumnCell:
procedure TfmMenu.GridDrawColumnCell(Sender: TObject;
const Rect: TRect; DataCol: Integer; Column: TColumn;
State: TGridDrawState);
begin
with TFriendly(Grid) do
begin
if DataLink.ActiveRecord = (Row-1) then
begin
Grid.Canvas.Brush.Color := clHighlight; // Cor do fundo
Grid.Canvas.Font.Color := clWhite; // Cor da linha
Grid.DefaultDrawColumnCell(Rect, DataCol, Column, State);
end;
end;
end;
Espero ter ajudado !
Responder
Clique aqui para fazer login e interagir na Comunidade :)
