nilegor

Membros

Sobre nilegor

nilegor

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. Nas imagens em anexo possui um print de um campo em verde selecionado e um campo que não esta com a linha em verde selecionado.

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;
- Maio 3, 2016
- Denunciar