Thanks Borislav, that works perfectly.


>There is a row in Show method in sfmenu definition with SET SYSMENU TO, you could add a property to the class and set it if you didn't want to clear system menu.
>
>>Hi Borislav,
>>>Did you see all examples included in project?
>>Yes, I have but all samples overwrite the existing menu in foxpro.
>>
>>The following sample does something, but somehow I can't see the menu (I get a blank menu). Maybe I have not expressed myself good, what I want is that I want to have the existing foxpro menu available(file, edit,...,help) but I want add a menuitem "mymenitem" w/o losing the foxpro menu.
>>
>>>I simply do (this is a sample, no error handling in it:
>>>

>>>_SCREEN.NewObject([Menu],[SFMenu],[SfMenu.Vcx],,[_screen.Menu])
>>>WITH _SCREEN.Menu
>>>     .AddPad([SfPad],[SfMenu.Vcx], [Pad1])
>>>     .AddPad([SFPad],[SfMenu.Vcx], [Pad2])
>>>     .AddPad([SFPad],[SfMenu.Vcx], [Pad3])
>>>      WITH .Pad1
>>>           .AddBar([SFBar], [SFMenu.vcx], [Bar1])
>>>           .AddSeparatorBar()
>>>           .AddBar([SFBar], [SFMenu.vcx], [Bar2])
>>>           .AddBar([SFBar], [SFMenu.vcx], [Bar3])
>>>           .Bar1.cCaption = [Something]
>>>           .Bar2.cCaption = [Something else]
>>>           .Bar3.cCaption = [more somethings :-)]
>>>      ENDWITH
>>>     *** etc.
>>>     .Show()
>>>ENDWITH
>>>