when a pbf file is re-opened in FD, some enumeration constants used in menu are turned into strings (e.g. the ones under the menu title);
after some time I cannot select "firmly" its objects as the property panel returns to window values,
if I add another gadget in the main window then I can work correctly on the status bar (for a while)
Code: Select all
; Form Designer for Purebasic - 5.0
; Warning: this file uses a strict syntax, if you edit it, make sure to respect the Form Designer limitation or it won't be opened again.
Global Window_0
Global Option_0, TrackBar_0, Button_0, Spin_0, Image_0
Global Img_0, Img_1
Enumeration #PB_Compiler_EnumerationValue
"MenuItem3"
#MenuItem_4
#MenuItem_11
#MenuItem_12
#MenuItem_6
#MenuItem_8
#MenuItem_13
#MenuItem_10
"MenuItem15"
#MenuItem_18
#MenuItem_19
#MenuItem_24
#MenuItem_25
#MenuItem_26
#MenuItem_27
#MenuItem_28
#MenuItem_30
#MenuItem_31
#MenuItem_32
#MenuItem_33
#MenuItem_34
#MenuItem_35
#MenuItem_36
#MenuItem_20
#MenuItem_16
#MenuItem_36
#MenuItem_37
#MenuItem_38
#MenuItem_39
#MenuItem_40
#MenuItem_41
#MenuItem_42
#MenuItem_43
#MenuItem_44
#MenuItem_45
EndEnumeration
UsePNGImageDecoder()
Img_0 = LoadImage(#PB_Any,"C:\ZZZZ_Ardi_Go\Explorer\22.png")
Img_1 = LoadImage(#PB_Any,"C:\ZZZZ_Ardi_Go\Explorer\Google-Notebook-64.png")
Declare ResizeGadgetsWindow_0()
Procedure InitWindow_0()
Protected WindowWidth, WindowHeight
Window_0 = OpenWindow(#PB_Any, 0, 0, 600, 400, "", #PB_Window_SystemMenu | #PB_Window_MinimizeGadget | #PB_Window_MaximizeGadget | #PB_Window_SizeGadget)
WindowWidth = WindowWidth(Window_0)
WindowHeight = WindowHeight(Window_0)
CreateStatusBar(0, WindowID(Window_0))
AddStatusBarField(50)
StatusBarProgress(0, 0, 0)
AddStatusBarField(50)
StatusBarImage(0, 1, ImageID(Img_0))
CreateMenu(0, WindowID(Window_0))
MenuTitle("MenuTitle")
MenuItem("MenuItem3","")
OpenSubMenu("MenuItem3")
MenuItem(#MenuItem_4,"MenuItem4")
MenuBar()
MenuItem(#MenuItem_11,"MenuItem11")
MenuItem(#MenuItem_12,"MenuItem12")
MenuBar()
CloseSubMenu()
MenuItem(#MenuItem_6,"MenuItem6")
MenuBar()
MenuItem(#MenuItem_8,"MenuItem8")
MenuItem(#MenuItem_13,"MenuItem13")
MenuBar()
MenuItem(#MenuItem_10,"MenuItem10")
MenuTitle("MenuTitle")
MenuItem("MenuItem15","")
OpenSubMenu("MenuItem15")
MenuItem(#MenuItem_18,"MenuItem18")
OpenSubMenu("MenuItem19")
MenuItem(#MenuItem_24,"MenuItem24")
MenuItem(#MenuItem_25,"MenuItem25")
MenuBar()
MenuItem(#MenuItem_27,"MenuItem27")
MenuItem(#MenuItem_28,"MenuItem28")
MenuBar()
MenuItem(#MenuItem_31,"MenuItem31")
OpenSubMenu("MenuItem32")
MenuItem(#MenuItem_33,"MenuItem33")
MenuItem(#MenuItem_34,"MenuItem34")
MenuBar()
MenuItem(#MenuItem_36,"MenuItem36")
MenuBar()
CloseSubMenu()
MenuItem(#MenuItem_16,"MenuItem16")
MenuBar()
MenuTitle("MenuTitle")
MenuItem(#MenuItem_36,"MenuItem36")
MenuItem(#MenuItem_37,"MenuItem37")
MenuItem(#MenuItem_38,"MenuItem38")
MenuItem(#MenuItem_39,"MenuItem39")
MenuBar()
MenuItem(#MenuItem_41,"MenuItem41")
MenuItem(#MenuItem_42,"MenuItem42")
MenuItem(#MenuItem_43,"MenuItem43")
MenuItem(#MenuItem_44,"MenuItem44")
MenuBar()
Option_0 = OptionGadget(#PB_Any, 270, 40, 30, 20, "")
TrackBar_0 = TrackBarGadget(#PB_Any, 270, 80, WindowWidth - 290, 40, 0, 50, #PB_TrackBar_Ticks)
Button_0 = ButtonGadget(#PB_Any, 270, 120, 60, 30, "TEST")
Spin_0 = SpinGadget(#PB_Any, 340, 120, 240, 30, 0, 0)
Image_0 = ImageGadget(#PB_Any, 10, 10, 64, 64, ImageID(Img_1))
EndProcedure
Procedure ResizeGadgetsWindow_0()
Protected WindowWidth, WindowHeight
WindowWidth = WindowWidth(Window_0)
WindowHeight = WindowHeight(Window_0)
ResizeGadget(Option_0, 270, 40, 30, 20)
ResizeGadget(TrackBar_0, 270, 80, WindowWidth - 290, 40)
ResizeGadget(Button_0, 270, 120, 60, 30)
ResizeGadget(Spin_0, 340, 120, 240, 30)
ResizeGadget(Image_0, 10, 10, 64, 64)
EndProcedure
Procedure Window_0_Events(event)
Select event
Case #PB_Event_Gadget
Select EventGadget()
EndSelect
EndSelect
EndProcedure