Color de fuente en celda

[tcp_ip_es]

métele esto....

Código Delphi [-]
procedure Tformulario1.BaseEquiDrawColumnCell(Sender: TObject;
  const Rect: TRect; DataCol: Integer; Column: TColumn;
  State: TGridDrawState);
begin
 if  frDatos.tbEqu.recordcount >0 then
 begin
 if  state <> [gdfocused] then 
 begin  
  with Sender as TDBGrid do
    begin
      if (datacol=4) then
        begin
          case frDatos.tbEqu.FieldByName('Estado').AsInteger of
            1: begin
                 columns[4].Font.Color := $009900;
               end;
            3: begin
                 columns[4].Font.Color := $FF0000;
                 columns[4].Font.Style := [fsBold];
               end;
            25: begin
                 columns[4].Font.Color := $FF9900;
                 columns[4].Font.Style := [fsBold];
               end;
            26: begin
                 columns[4].Font.Color := $FF00CC;
                 columns[4].Font.Style := [fsItalic];
               end;
          end;
        end;
    end;
 end;
 BaseEqui.DefaultDrawColumnCell(Rect, DataCol, Column, State);
end;
end;

P.D. Lo que va en negrita es lo nuevo, creo que te falla por no controlar el estado ya nos contarás...