Cor da Linha no DBGrind
24/11/2005
0
Ola o meu problema é o seguinte
Estou tentando mudar a cor da linha toda do DBgrid que esta selecionada.
Alguem pode me ajuda??
Eu ate achei alguns exemplos na internet mas todos eu tenho que por uma condição para ele mudar a cor, eu gostaria que fosse quando eu clicasse em qualquer celular do dbgrid e ele selecionasse toda a linha.
Desde de Já agradeço
Estou tentando mudar a cor da linha toda do DBgrid que esta selecionada.
Alguem pode me ajuda??
Eu ate achei alguns exemplos na internet mas todos eu tenho que por uma condição para ele mudar a cor, eu gostaria que fosse quando eu clicasse em qualquer celular do dbgrid e ele selecionasse toda a linha.
Desde de Já agradeço
Lipe_lacerda
Curtir tópico
+ 0
Responder
Posts
24/11/2005
Magnof
No evento onDrawColumnCell do dbgrid coloque o código para mudar a cor da fonte do dbgrid e a chave do método para ´desenhar´ os dados.
procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject; const
Rect: TRect;
DataCol: Integer;
Column: TColumn;
State: TGridDrawState);
begin
if (Column.Field.FieldName = ´NOMEDOCAMPO´) then
begin
if condição then // coloque aqui sua condição
begin
DBGrid1.Canvas.Brush.Color:= clAqua;
DBGrid1.Canvas.Font.Color:= clWindowText;
DBGrid1.Canvas.FillRect(Rect);
DBGrid1.DefaultDrawColumnCell(Rect, DataCol, Column, State);
end;
end;
end;
OU;
Caso queira marcar a linha inteira ao selecionar um registro; nas propriedades do dbgrid > options > dgrowselect deve estar True.
procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject; const
Rect: TRect;
DataCol: Integer;
Column: TColumn;
State: TGridDrawState);
begin
if (Column.Field.FieldName = ´NOMEDOCAMPO´) then
begin
if condição then // coloque aqui sua condição
begin
DBGrid1.Canvas.Brush.Color:= clAqua;
DBGrid1.Canvas.Font.Color:= clWindowText;
DBGrid1.Canvas.FillRect(Rect);
DBGrid1.DefaultDrawColumnCell(Rect, DataCol, Column, State);
end;
end;
end;
OU;
Caso queira marcar a linha inteira ao selecionar um registro; nas propriedades do dbgrid > options > dgrowselect deve estar True.
Responder
Clique aqui para fazer login e interagir na Comunidade :)