Jetzt brauche ich aber noch eine Hauptdatei, also eine Datei mit der Endung *.pb, in welcher dann dieses Formfenster aus der Datei Beispiel-Fenster.pbf geöffnet wird und die Ereignisschleife dazu drin ist.
Kann man zum Formfenster auch die Ereignisschleife generieren lassen und wenn ja, wie geht das ?
Hier ist mein Formdatei-Quelltext aus Beispiel-Fenster.pbf:
Code: Alles auswählen
;
; This code is automatically generated by the FormDesigner.
; Manual modification is possible to adjust existing commands, but anything else will be dropped when the code is compiled.
; Event procedures needs to be put in another source file.
;
Global Window_0
Global Text_0, Text_1
Enumeration FormFont
#Font_Window_0_0
#Font_Window_0_1
EndEnumeration
LoadFont(#Font_Window_0_0,"Bahnschrift Light Condensed", 100)
LoadFont(#Font_Window_0_1,"Arial", 22)
Procedure OpenWindow_0(x = 0, y = 0, width = 1600, height = 800)
Window_0 = OpenWindow(#PB_Any, x, y, width, height, "", #PB_Window_SystemMenu | #PB_Window_MinimizeGadget | #PB_Window_Tool | #PB_Window_ScreenCentered)
Text_0 = TextGadget(#PB_Any, 10, 10, 1580, 170, "BEISPIEL", #PB_Text_Center | #PB_Text_Border)
GadgetToolTip(Text_0, "Fenster für die Ratebegriffe")
SetGadgetColor(Text_0, #PB_Gadget_FrontColor,RGB(255,255,255))
SetGadgetColor(Text_0, #PB_Gadget_BackColor,RGB(0,64,128))
SetGadgetFont(Text_0, FontID(#Font_Window_0_0))
Text_1 = TextGadget(#PB_Any, 1190, 190, 400, 35, "Beispiel", #PB_Text_Center | #PB_Text_Border)
GadgetToolTip(Text_1, "Anzeige der Bereiche")
SetGadgetFont(Text_1, FontID(#Font_Window_0_1))
EndProcedure
Procedure Window_0_Events(event)
Select event
Case #PB_Event_CloseWindow
ProcedureReturn #False
Case #PB_Event_Menu
Select EventMenu()
EndSelect
Case #PB_Event_Gadget
Select EventGadget()
EndSelect
EndSelect
ProcedureReturn #True
EndProcedureGerhard
+ Code-Tags -- Andesdaf
