|
He hecho una mezcla entre tus datos y la la tabla de ejemplo que viene con Delphi "DbDemos", Orders.
Sin campos persistentes y funciona perfectamente.
procedure TForm1.dbgcalendarioDrawColumnCell(Sender: TObject; const Rect: TRect;
DataCol: Integer; Column: TColumn; State: TGridDrawState);
begin
if Query1.FieldByName('Terms').AsString = 'FOB' then
begin
DBGCALENDARIO.Canvas.Brush.Color :=clRed;//color de fondo
DbgCalendario.Canvas.Font.Style:=[fsBold];
DBGCalendario.Canvas.Font.Color:=ClBlack;
DBGCalendario.DefaultDrawColumnCell(Rect,Datacol,Column,State);
end;
end;
Un Saludo.
|