Событие DBGrid.OnDrawColumnCell

[Eugene]

Здравствуйте!

В лазаре у меня первые шаги, но всё-таки вопрос:
При обработке события OnDrawColumnCell в DBGrid компилятор ругается на то, что не найден идентификатор TGridDrawState:
TForm1.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
DataCol: Integer; Column: TColumn; State: TGridDrawState)

Поскажите, что делаю не так.

[Eugene]

Благодарю. Понял, что сделал не так.

[NewUser]

так в чем причина?

[Attid]

надо ручками подключит модуль Grids кажется.

[NewUser]

а у меня при запуске выскакивает
Access violation

и активна строка
if ((FFieldName<>'') and (FField<>nil)) then
в файле DBGrids

сам код

Код: Выделить всё

procedure TQForm.DBGridDrawColumnCell(Sender: TObject;
  const Rect: TRect; DataCol: Integer; Column: TColumn; State: TGridDrawState);
begin
  if (SQL.FieldByName('ID_Q').AsInteger > 1) then begin
   with  DBGrid.Canvas do
   begin
      Brush.Color:=clGreen;
      Font.Color:=clWhite;
      FillRect(Rect);
      TextOut(Rect.Left+2,Rect.Top+2,Column.Field.Text);
   end;
   end
 else
  begin
   DBGrid.DefaultDrawColumnCell(Rect, DataCol, Column, State);
  end;
end;