GUI Menus
BlitzPlus Forums/BlitzPlus Beginners Area/GUI Menus
| ||
Hi everyone, For some reason the text for my menu isn't showing up anyone got any ideas here is a picture and the source. [img]http://imageshack.us/f/843/errorck.png/[/img] ;MapEditor ;Varaibles Global Version$ = "V.0.0.1" ;Initalize Global MapEditor = CreateWindow("MapEditor" + Version$, 0, 0, 1024, 600, 0, 15) MainMenu() ;Main Loop Repeat WindowEvent() Forever ;Functions Function WindowEvent() If WaitEvent(100000) = $803 Then WindowClose() EndIf End Function Function WindowClose() Local Status% = 1 CloseProgram = CreateWindow("Close Program?", 512 - 150, 300 - 150, 300, 300, MapEditor, 0) CreateLabel("Are you sure you want to close the program?", 50, 25, 250, 25, CloseProgram) ButtonYes = CreateButton("Yes", 75, 75, 50, 50, CloseProgram) ButtonNo = CreateButton("No", 175, 75, 50, 50, CloseProgram) Repeat If WaitEvent(100000) = $201 Or $2001 Then ActivateWindow(CloseProgram) If EventSource() = ButtonYes Then End() ElseIf EventSource() = ButtonNo Then FreeGadget(CloseProgram) Status% = 0 EndIf EndIf Until Status% = 0 End Function Function MainMenu() Menu = WindowMenu(MapEditor) CreateMenu("File", 0, Menu) End Function Last edited 2011 Last edited 2011 |
| ||
Cant seem to get the picture to work. |
| ||
It seems to me that MapEditor - is a window handle but is not Global, so MainMenu() never sees the window handle. |
| ||
The handle is global as shown in the source though from the image the menu appears just without text |
| ||
Yeah, I copy and pasted only some of the code, missing the Global declarations. In WindowClose() function if you change the [style] from zero to one, you'll see the title bar and your text appears. [edit] To get the "File" on the menu bar to show you need to add this line to the MainMenu() function. UpdateWindowMenu(MapEditor) [/edit] Last edited 2011 Last edited 2011 |
| ||
Thanks alot for your help Andy. |
| ||
Does it work now? Do you not still need to call UpdateWindowMenu()? |
| ||
I have just started working on this again and added my CloseProgram function to my Exit menu event. When exit is chosen from the menu bar and the dialogue appears to confirm if you would like to end the program if you click no then try exit again it does not work until you try it the third time.;MapEditor ;Varaibles Global Version$ = "V.0.0.1" ;Initalize Global MapEditor = CreateWindow("MapEditor" + Version$, 0, 0, 1024, 600, 0, 13) MainMenu() ;Main Loop Repeat UpdateWindowMenu(MapEditor) WindowEvent() Forever ;Functions Function WindowEvent() If WaitEvent(100000) = $803 Then WindowClose() ElseIf WaitEvent(100000) = $1001 Then If EventData() = 2 Then WindowClose() EndIf EndIf End Function Function WindowClose() Local Status% = 1 CloseProgram = CreateWindow("Close Program?", 512 - 150, 300 - 150, 300, 300, MapEditor, 0) CreateLabel("Are you sure you want to close the program?", 50, 25, 250, 25, CloseProgram) ButtonYes = CreateButton("Yes", 75, 75, 50, 50, CloseProgram) ButtonNo = CreateButton("No", 175, 75, 50, 50, CloseProgram) Repeat If WaitEvent(100000) = $201 Or $2001 Then ActivateWindow(CloseProgram) If EventSource() = ButtonYes Then End() ElseIf EventSource() = ButtonNo Then FreeGadget(CloseProgram) Status% = 0 EndIf EndIf Until Status% = 0 End Function Function MainMenu() Menu = WindowMenu(MapEditor) File = CreateMenu("File", 0, Menu) CreateMenu("New", 1, File) CreateMenu("", 0, File) CreateMenu("Exit", 2, File) End Function What seems to be causing this issue? |