purebasic ver.: immernoch 3.30
folgendes ich hab was kleines geschrieben und möchte eine hilfe bzw ein about window öffnen. wenn das jeweils "andere" fenster aufgerufen wird, soll das child_window geschlossen werden.
------------------------------------
Code: Alles auswählen
;-Konstanten
#window_main = 110
#window_help = 220
#window_about = 330
.
.
.
;-mainwindow
If OpenWindow(#window_main,200,200,400,400 #pb_window_systemmenu|#PB_Window_SizeGadget,
.
.
.
;-Help
If EventMenuID() = 26
Gosub help ;text holen ;o)
If WindowID(#window_about) <> 0
CloseWindow(#window_about)
EndIf
If OpenWindow(#window_help,200,200,358,360,#pb_window_systemmenu,"Help")
If CreateGadgetList(WindowID(#window_help))
TextGadget(40, 2, 2, 356, 358,helptext.s,#PB_Text_Border)
EndIf
EndIf
EndIf
;-About BFL
If EventMenuID() = 27
Gosub about ;text holen...
If WindowID(#window_help) <> 0
CloseWindow(#window_help)
EndIf
If OpenWindow(#window_about,200,200,260,202,#pb_window_systemmenu,"About BFL")
If CreateGadgetList(WindowID(#window_about))
TextGadget(40, 2, 2, 258, 200,abouttext.s,#PB_Text_Center|#PB_Text_Border)
EndIf
EndIf
EndIf
.
.
.
Select eventid
Case #pb_eventclosewindow
Select EventWindowID()
Case #window_help
CloseWindow(#window_help)
UseWindow(#window_main)
; UseGadgetList(#window_main) ; hat nix geholfen
Case #window_about
CloseWindow(#window_about)
UseWindow(#window_main)
; UseGadgetList(#window_main) ; hat nix geholfen
Case #window_main
quit = 1
EndSelect
.
.
.
sry wenn der code nicht ganz mmmh...professionell aussieht.
wenn wir schon hier zusammenkommen...
sollte man aus performancegründen eher gosub - return oder procedure() benutzen?