F�rum Problema ao alterar a cor das linhas no DbGrid #553102

03/05/2016

Ol�, estou usando o c�digo abaixo para mudar a cor da linha do Grid para verde, por�m, quando seleciono um campo no grid do qual esta com a cor alterada (verde), a informa��o que esta no campo do grid aparece no fundo em branco, fazendo com que apare�a a informa��o repetida na cor branca, isso ocorre apenas nas linhas que devem ficar em verde, nas outras linhas, quando seleciono o campo, a informa��o fica em branco e o campo selecionado na cor azul, padr�o.
N�o consegui anexar os prints, ent�o fiz upload no send space das imagens: https://www.sendspace.com/file/sbkb4a

procedure Tform1.DBGrid1DrawColumnCell(Sender: TObject;
  const Rect: TRect; DataCol: Integer; Column: TColumn; State: TGridDrawState);
begin
  if ClientDataSet_venda_nfeSTATUS.AsString = 'Autorizado o uso da NF-e' then
  begin
    DBGrid1.Canvas.Font.Color := clGreen;
    DBGrid1.Canvas.Font.Style := [fsBold];
    DBGrid1.DefaultDrawDataCell(Rect, DBGrid1.columns[DataCol].field, State);

  end;
end;

Jhon

Curtir t�pico

+ 0

Responder

Post mais votado

04/05/2016

Coloque uma condi��o no seu c�digo para efetuar a altera��o da linha apenas se ela n�o estiver selecionada.

Teste assim:

procedure Tform1.DBGrid1DrawColumnCell(Sender: TObject;
  const Rect: TRect; DataCol: Integer; Column: TColumn; State: TGridDrawState);
begin
 if not(gdSelected in State) then // Se a linha n�o estiver selecionada efetua a altera��o
   if ClientDataSet_venda_nfeSTATUS.AsString = 'Autorizado o uso da NF-e' then
   begin
     DBGrid1.Canvas.Font.Color := clGreen;
     DBGrid1.Canvas.Font.Style := [fsBold];
     DBGrid1.DefaultDrawDataCell(Rect, DBGrid1.columns[DataCol].field, State); 
   end;
end;

Natanael Ferreira

Responder

Gostei + 1

Mais Posts

04/05/2016

Jhon

Perfeito, T�o simples. Muito Obrigado Natanael

Responder

Gostei + 0