Delphi Alterar Cor de DbGrid …

no envento DBGrid1DrawColumnCell do dbgrid

    If (DMCadastro.IBQueryDocumentoTemporarioTipo1.FieldByName(‘ENVIADO’).AsString = ‘S’) Then
  Begin
    DBGrid1.Canvas.Brush.Color := clSkyBlue;
    DBGrid1.Canvas.FillRect(Rect);
    DBGrid1.Canvas.Font.Color := clBlack;
    DBGrid1.Canvas.TextOut(Rect.Left+2,Rect.Top,Column.Field.AsString);
  End;

Deixe uma resposta

Preencha os seus dados abaixo ou clique em um ícone para log in:

Logotipo do WordPress.com

Você está comentando utilizando sua conta WordPress.com. Sair / Alterar )

Imagem do Twitter

Você está comentando utilizando sua conta Twitter. Sair / Alterar )

Foto do Facebook

Você está comentando utilizando sua conta Facebook. Sair / Alterar )

Foto do Google+

Você está comentando utilizando sua conta Google+. Sair / Alterar )

Conectando a %s