----- Original Message -----
From: "Alberto Narduzzi" <[EMAIL PROTECTED]>
> Function MyFunc(WhereX, WhereY:Integer):Integer;
> Var D:TDummy;
> Begin
> _D := TDummy.Create;
> _D.FResult := -1;
> _D.Menu := TPopupMenu.Create(Nil);
> _D.OwnerDraw := True;
> _For I := 0 To Pred(cMaxColors) Do
> __Begin
> __SM := TMenuItem.Create(D.Menu);
I think you are missing a line here (maybe just a typo)
D.Menu.Items.Add(SM);
> __SM.OnClick := ClickHandler;
> __SM.OnAdvancedDrawItem := DrawHandler;
> __SM.Tag := 1;
> __SM.Caption := Format('%d', [I]);
> __End;
> _D.Popup(WhereX, WhereY);
------------
FIreHAzaR:-D
West Java, Indonesia
