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...