Code: Select all
;
; 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.
;
Enumeration FormWindow
#Window_0
EndEnumeration
Enumeration FormGadget
#Text_0
EndEnumeration
Procedure OpenWindow_0(x = 0, y = 0, width = 110, height = 40)
OpenWindow(#Window_0, x, y, width, height, "Test", #PB_Window_SystemMenu)
TextGadget(#Text_0, 15, 10, 75, 20, "Equals sign =")
EndProcedure
Code: Select all
;
; 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 TextGadget(#Text_0, 15, 10, 75, 20, "Equals sign
Enumeration FormWindow
#Window_0
EndEnumeration
Procedure OpenWindow_0(x = 0, y = 0, width = 110, height = 40)
OpenWindow(#Window_0, x, y, width, height, "Test", #PB_Window_SystemMenu)
TextGadget(#Text_0, 15, 10, 75, 20, "Equals sign = TextGadget(#PB_Any, 15, 10, 75, 20, "Equals sign =")
EndProcedure