В Delphi 6 перестально работать DefaultDrawColumnCell. Почему???

← →
werr (2006-03-06 12:58) [0]

Перешел с Delphi 5 на 6
Перестал работать кусок кода:
procedure TForm3.DBGridEh1DrawColumnCell(Sender: TObject;
const Rect: TRect; DataCol: Integer; Column: TColumnEh;
State: TGridDrawState);
begin
if DBGridEh1.Fields[0].AsBoolean = true
then DBGridEh1.Canvas.Font.Color := clRed;
DBGridEh1.DefaultDrawColumnCell(Rect,DataCol,Column,State);
[Error] : Incompatible types
Ругается на строку DBGridEh1.DefaultDrawColumnCell(Rect,DataCol,Column,State);
на State
В Хелпе есть пример что так можно делать
TGridDrawState в Grids.pas есть

DBGridEh1.DefaultDrawColumnCell(Rect,DataCol,Column, gdSelected); тоже не работает:
[Error] Incompatible types: "TGridDrawState" and "Enumeration"

Не пойму что не так?
Переставлять Delphi?

p.s. на компьютере установлено еще и Delphi 2005. Delphi 5 стоял когда еще на было установлено 2005. Может дело в этом? Типы подцепляются из 2005-ого?

← →
Anatoly Podgoretsky © (2006-03-06 13:27) [1]

gdSelected - это множество, а не ординал.

← →
werr (2006-03-06 14:29) [2]

а почему DBGridEh1.DefaultDrawColumnCell(Rect,DataCol,Column,State); не работает?

В Delphi 6 перестально работать DefaultDrawColumnCell. Почему??? Найти похожие ветки