Fórum Alguem que entenda de DbGrid #162545

//inicio do código
   with DBGrid1.DataSource.DataSet,DBGrid1 do {troque dbgrid1 pelo nome do seu
      dbgrid}
   begin
      if(Trim(FieldByName(´obs´).Text) <> ´´) then  {troque ´obs´ pelo campo
         que vd quer verificar}
         if(Column.Index = 0) then
         begin
            Canvas.Font.Color:= clRed;
            Canvas.TextOut(Rect.Left+2,Rect.Top+2,´#´);
         end;
   end;
//fim do código

//inicio do bloco ->
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, DB, DBClient, Grids, DBGrids;

type
  TForm1 = class(TForm)
    ClientDataSet1: TClientDataSet;
    DataSource1: TDataSource;
    DBGrid1: TDBGrid;
    ClientDataSet1nome: TStringField;
    ClientDataSet1obs: TStringField;
    ClientDataSet1temp: TStringField;
    procedure FormCreate(Sender: TObject);
    procedure DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
      DataCol: Integer; Column: TColumn; State: TGridDrawState);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
var
   s:string;
begin
   s:= ExtractFilePath(Application.ExeName)+´tmp.cds´;
   ClientDataSet1.FileName:= s;
   if(not FileExists(s)) then
   begin
      ClientDataSet1.CreateDataSet;
      ClientDataSet1.SaveToFile(s);
   end;
   ClientDataset1.Open;
end;

procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
  DataCol: Integer; Column: TColumn; State: TGridDrawState);
begin
   with DBGrid1.DataSource.DataSet,DBGrid1 do {troque dbgrid1 pelo nome do seu
      dbgrid}
   begin
      if(Trim(FieldByName(´obs´).Text) <> ´´) then  {troque ´obs´ pelo campo
         que vd quer verificar}
         if(Column.Index = 0) then
         begin
            Canvas.Font.Color:= clRed;
            Canvas.TextOut(Rect.Left+2,Rect.Top+2,´#´);
         end;
   end;
end;
//fim do bloco