[lazarus] Win32 menu does not work

[Micha Nelissen]

Michael.VanCanneyt at Wisa.be wrote:
> On Tue, 24 Jun 2003, Mattias Gaertner wrote:
>
>> On Tue, 24 Jun 2003 21:52:12 +0200
>> "Micha Nelissen" <mdvpost at hotmail.com> wrote:
>>
>>> Ah ok. But then still, in win32object.inc you need something like:
>>>
>>> @@ -2614,6 +2610,8 @@
>>>      fMask:=Mask;
>>>      fType:=Style;
>>>      {fState:=MFS_ENABLED;} {not needed}
>>> +    wID:=(Sender as TMenuItem).Command; {value may only be 16 bit
>>>      wide!} hSubmenu:=MenuHandle;
>>>      {hbmpChecked:=0;
>>>      hbmpUnchecked:=0;} {not needed}
>>> ---end patch---
>>>
>>> If you don't assign the ID, then windows doesn't know about it and
>>> it was all for nothing :) !
>>
>> Right you are.
>
> So basically, in it's current state, the win32 port should now have
> working menus ? This I should test tomorrow :-)

Hehe, try my adapted progressbar example, better to be called menu example.
(Not to be committed to CVS :) ). It creates lots of menus.

Regards,

Micha.

-------------- next part --------------
A non-text attachment was scrubbed...
Name: bin00031.bin
Type: application/octet-stream
Size: 9803 bytes
Desc: "progressbar.pp"
Url : http://localhost/pipermail/lazarus/attachments/20030625/9f1f4528/bin00031.bin