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