Показать сообщение отдельно
  #5  
Старый 06.07.2015, 20:42
nikotan nikotan вне форума
Новичок
 
Регистрация: 21.06.2015
Сообщения: 58
Версия Delphi: Delphi 7
Репутация: 10
По умолчанию

не понял что там должен загрузить, ну ладно я пошёл по наименьшему пути, если в поле стоит выполнено, то цвет букв зелёный(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;
у тебя есть вычисление даты, тоже не понял как работает, проще можно?
например сравнить дату в строке и если позже сегодняшнего, то цвет красный, спасибо!
Ответить с цитированием