ok so i found this post when looking around in the forums(
http://forum.thegamecreators.com/?m=forum_view&t=33405&b=1) its dbp but it uses winapi calls and so i tried to convert it. it works its just not displaying the menu when i click on it. heres a screen shot:
and heres the code:
remstart
-------------------------------------------------------------------
program name:
-------------------------------------------------------------------
written by: Caleb Stewart
date:
-------------------------------------------------------------------
comments:
-------------------------------------------------------------------
remend
Global MF_String
Global MF_Popup
MF_String=0x00000000
MF_Popup=0x00000010
Sync on
Sync rate 0
WinX=(640/2)/2+25
WinY=(480/2)/2+25
Set window on
Set window position WinX,WinY
Load dll "user32.dll",1
MenuBar=makeMenu()
FileMenu=Makemenu()
AppendMenuItem(Filemenu,100,"Open")
SaveMenu=MakeMenu()
AppendMenuItem(SaveMenu,101,"Save")
AppendMenu(FileMenu,SaveMenu,"Save")
AppendMenu(MenuBar,FileMenu,"File")
Window=Call Dll(1,"GetActiveWindow")
SetMenu(Window,MenuBar)
Do
Sync
Cls
Loop
Function MakeMenu()
Menu=Call dll(1,"CreateMenu")
endfunction menu
Function AppendMenuItem(Menu,ID,Txt$)
Call dll 1,"AppendMenuA",Menu,MF_String,ID,Txt$
endfunction
Function AppendMenu(menu,AMenu,Txt$)
Call Dll 1,"AppendMenuA",menu,MF_String | MF_Popup,Amenu,Txt$
endfunction
Function Setmenu(Window,Menu)
Call Dll 1,"SetMenu",Window,Menu
endfunction
New Site! Check it out \/