Joined: 09 May 2003 Posts: 25807 Location: The netherlands
Posted: Wed Oct 15, 2025 3:56 pm Post subject:
you can assign the menu of each to the unitedform whenever you want
Code:
mainformmenu=MainForm.Menu
MainForm.Menu=nil
mvfmenu=mvf.Menu
mvf.Menu=nil
--and then later you can switch using
unitedform.Menu=mainformmenu
--or
unitedform.Menu=mvfmenu
or you could move all the menuitems into one big one (slightly destructive)
Code:
mainformmenu=MainForm.Menu
mvfmenu=mvf.Menu
MainForm.Menu=nil
mvf.Menu=nil
newmenu=createMainMenu(unitedform)
while mainformmenu.Items.Count>0 do
mi=mainformmenu.Items[0]
mainformmenu.Items.delete(0)
if mi.Name~='' and mvfmenu[Name] then
--conflicting name
mi.Name='mainform_'..mi.Name
end
newmenu.Items.add(mi)
end
while mvfmenu.Items.Count>0 do
mi=mvfmenu.Items[0]
mvfmenu.Items.delete(0)
if mi.Name~='' and newmenu[Name] then
mi.Name='memview_'..mi.Name
end
newmenu.Items.add(mi)
end
unitedform.Menu=newmenu
a=getApplication()
a.MainForm=unitedform
_________________
Do not ask me about online cheats. I don't know any and wont help finding them.
Like my help? Join me on Patreon so i can keep helping
You cannot post new topics in this forum You cannot reply to topics in this forum You cannot edit your posts in this forum You cannot delete your posts in this forum You cannot vote in polls in this forum You cannot attach files in this forum You can download files in this forum