не понял что там должен загрузить, ну ладно я пошёл по наименьшему пути, если в поле стоит выполнено, то цвет букв зелёный(lime)
Код:
procedure TForm1.DBGrid4DrawColumnCell(Sender: TObject; const Rect: TRect;
DataCol: Integer; Column: TColumn; State: TGridDrawState);
begin
if column.FieldName='satisfaction' then
begin
if column.Field.AsBoolean then
Begin
TDBGrid(Sender).Canvas.Brush.Color:=clGradientInactiveCaption;
TDBGrid(Sender).Canvas.Font.Color:=cllime;
End;
end;
TDBGrid(Sender).DefaultDrawColumnCell(Rect,DataCol,Column,State);
end;
у тебя есть вычисление даты, тоже не понял как работает, проще можно?
например сравнить дату в строке и если позже сегодняшнего, то цвет красный, спасибо!