Incompatible types: 'DBGridEh.TGridDrawState' and 'Unit1.TGridDrawState'

[artemavd]

Доброе утро! Перестал работать ранее рабочий код. В старых проектах он работал. Подозреваю, что это из-за того, что я обновил версию Ehlib до версии 5.6. Но как исправить эту ошибку:

procedure TForm1.DBGridEh1DrawColumnCell(Sender: TObject; const Rect: TRect;
  DataCol: Integer; Column: TColumnEh; State: TGridDrawState);
var
  holdColor: TColor;
begin
 holdColor := DBGridEh1.Canvas.Brush.Color;
 if Form1.pFIBDataSet1.FieldByName('POL').AsString = 'мужской' then
 begin
  DBGridEh1.Canvas.Brush.Color := clInfoBk;
  DBGridEh1.Canvas.Font.Color := clBlack;
  DBGridEh1.DefaultDrawColumnCell(Rect, DataCol, Column, State);
  DBGridEh1.Canvas.Brush.Color := holdColor;
 end;
 if Form1.pFIBDataSet1.FieldByName('POL').AsString = 'женский' then
 begin
  DBGridEh1.Canvas.Brush.Color := clSkyBlue;
  DBGridEh1.Canvas.Font.Color := clBlack;
  DBGridEh1.DefaultDrawColumnCell(Rect, DataCol, Column, State);
  DBGridEh1.Canvas.Brush.Color := holdColor;
 end;
end;

?
Выдает ошибку на выделенных строках.

[Аватар]

Ошибку интересно какую выдает? Я использую это событие только для прорисовки смайликов, а для изменения фонта и цвета текста и фона - OnGetCellParams

[artemavd]

Ошибку выдает ту, которую я указал в заголовке темы. Ну хорошо. А как через OnGetCellParams сделать изменение цвета фона строки как надо мне, по условию?

[Аватар]

В этой процедуре фон выделенной ячейки не меняется если грид в фокусе, иначе серым. Фон остальных ячеек делается желтым для помеченных строк, иначе не меняется

procedure TFMDIChild.DBGridEhGetCellParams(Sender: TObject; Column: TColumnEh; AFont: TFont; var Background: TColor; State: TGridDrawState);
begin
  if gdSelected in State then begin
    if not TDBGridEh(Sender).Focused then Background:=clBtnFace;
    Exit;
  end;
  if (TDBGridEh(Sender).DataSource.DataSet.FindField(sdFIELD_METKA)<>nil) and
     (TDBGridEh(Sender).DataSource.DataSet.FieldByName(sdFIELD_METKA).AsString=sdMETKA) then Background:=clYellow;
end;

[artemavd]

Хм...да раньше, даже в старом проекте, скомпилированной у уже обновленными компонентами Ehlib до 5.6, работает код, который я привел в посте №1. Программа компилируется и запускается. А в текущем не хочу компилировать и выдает ошибку из заголовка темы. Что вообще значит эта ошибка? Какие типы не совместимы и можно ли ее побороть как-то, чтобы программа запускалась. Код скопировал полностью и старого, рабочего, проекта.

[Аватар]

Посмотри, может это оно
http://www.sql.ru/forum/actualthread.aspx?tid=885254

[artemavd]

Аватар, спасибо, коллега! . Сделал как там написано и все заработало. Плюс тебе за помощь, если получится добавить! . Тема закрыта.