Assigning AdvStringGrid.OnGetAlignment gives error

VCL TMS VCL UI Pack
1
I am programatically creating a grid. This works great until I add this line:
     GridNew.OnGetAlignment := GridOldGetAlignment;

The compile error is:
     E2010 Incompatible types: 'AdvObj.TVAlignment' and 'HTMLabel.TVAlignment'

In my main form
     procedure TMain.GridOldGetAlignment(Sender: TObject; ARow, ACol: Integer; var HAlign: TAlignment; var VAlign: TVAlignment);
     begin
          hAlign := taCenter;
     end;

I mouse over TVAlignment and the popup hint shows 'HTMLabel.TVAlignment'. But when I go into AdvGrid.pas and mouse over VAlign and TVAlignment, they both show 'AdvObj.TVAlignment'.

In my "uses" I show this order:
     ... AdvGrid, AdvObj, BaseGrid, HTMLabel ...

I've tried putting "HTMLabel" first, but that does not help.

My code works fine for other events:
      GridNew.OnClick := GridOldClick;
      GridNew.OnExit := GridOldExit;
      GridNew.OnMouseDown := GridOldMouseDown;

What is going on? How do I fix this?

Thanks,
Mike

2

Change the event signature to:


  procedure TMain.GridOldGetAlignment(Sender: TObject; ARow, ACol: Integer; var HAlign: TAlignment; var VAlign: AdvObj.TVAlignment);