OnGetCellParams

[Goodwind32]

Что-то не присваивается обработчик события OnGetCellParams для грида TDBGridEh. Делаю как обычно:

Grid:=TDBGridEh.Create(TabSheet);
Grid.OnGetCellParams:=dbgELinesGetCellParams;
...
procedure TfmMain.dbgELinesGetCellParams(Sender: TObject;
  Column: TColumnEh; AFont: TFont; var Background: TColor;
  State: TGridDrawState);
begin
...
end;

При компиляции выдает:
[Error] uMain.pas(221): Incompatible types: 'DBGridEh.TGridDrawState' and 'uMain.TGridDrawState'

Весь код в одном юните, в классе TfmMain

[evg_m]

не использовать имена типов ('uMain.TGridDrawState') совпадающие с ранее объявленными ('DBGridEh.TGridDrawState') !

или же использовать полное имя DBGridEh.TGridDrawState

procedure TfmMain.dbgELinesGetCellParams(Sender: TObject;
  Column: TColumnEh; AFont: TFont; var Background: TColor;
  State: DBGridEh.TGridDrawState);

[Goodwind32]

Прошу прощения, но я все-таки не понял как надо написать.
Так
procedure dbgELinesGetCellParams(Sender: TObject; Column: TColumnEh;
AFont: TFont; var Background: TColor; State: DbGridEH.TGridDrawState);
написать нельзя,
и так тоже
procedure dbgELinesGetCellParams(Sender: TObject; Column: TColumnEh;
AFont: TFont; var Background: TColor; State: dbgELines.TGridDrawState);

и в uMain я не объявлял тип uMain.TGridDrawState. Откуда он берется?
И как вообще нужно делать, если у меня на форме кучка динамических гридов, у каждого из которых один и тот же обработчик события OnGetCellParams?

[evg_m]

[Error] uMain.pas(221): Incompatible types: 'DBGridEh.TGridDrawState' and 'uMain.TGridDrawState'

DBGridEh.TGridDrawState
DBGridEh имя модуля(unit-a) в котором найдено объявление типа TGridDrawState
uMain.TGridDrawState аналогично.

и в uMain я не объявлял тип uMain.TGridDrawState

В uMain ты объявил TGridDrawState. Зачем?

procedure dbgELinesGetCellParams(Sender: TObject; Column: TColumnEh;
AFont: TFont; var Background: TColor; State: DbGridEH.TGridDrawState);
написать нельзя,

И что он (компилятор) говорит?

[Goodwind32]

Сообщение от evg_m

DBGridEh.TGridDrawState
DBGridEh имя модуля(unit-a) в котором найдено объявление типа TGridDrawState
uMain.TGridDrawState аналогично.

В uMain ты объявил TGridDrawState. Зачем?


И что он (компилятор) говорит?

Если объявлением считается "Type TGridDrawState = ...." , то не объявлял я ничего такого!

Вот мой модуль:

unit uMain;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ComCtrls, ToolWin, ExtCtrls, ActnList, GridsEh, DBGridEh,
  StdCtrls, Buttons, DB, ADODB, Grids, DBGrids;

type
  TfmMain = class(TForm)
   ....
  контролы
  контролы
  контролы
  .....
   procedure dbgELinesGetCellParams(Sender: TObject; Column: TColumnEh;
      AFont: TFont; var Background: TColor; State: DBGridEh.TGridDrawState);
  private
    { Private declarations }
    procedure UserListRefresh;
    function Sign:integer;
  public
    { Public declarations }
    procedure RefreshEDocList;
    procedure RefreshADocList;
    procedure RefreshELines(i:integer);
    procedure LoadEDoc;
    procedure LoadADoc;
  end;

var
  fmMain: TfmMain;

implementation
....
всё...

в такой постановке компилятор кричит следующее:
[Error] uMain.pas(54): Undeclared identifier: 'TGridDrawState'

ругается на строку, выделенную курсивом.

[Прик]

А тип TGridDrawState объявлен в модуле GridsEh, а не в DBGridEh.