PureBasic Forums - English

Posted: **Fri Jan 25, 2013 11:03 pm**

When I change the z-order of the objects in the example, the code does not change when in code-mode and switching to design-view returns to the original state.
It seems it works ok, if the changes are made in Design view .

Code: Select all

Global Img_0, Img_1, Img_2, Img_3

Enumeration #PB_Compiler_EnumerationValue
  #Window_1
EndEnumeration

Enumeration #PB_Compiler_EnumerationValue
  #Button_2
  #Button_1
  #Button_0
EndEnumeration

Enumeration #PB_Compiler_EnumerationValue
  #MenuItem_2
  #MenuItem_3
  #MenuItem_5
  #MenuItem_6
  #Toolbar_0
  #Toolbar_2
EndEnumeration

UsePNGImageDecoder()

Img_0 = CatchImage(#PB_Any,?img_0)
Img_1 = CatchImage(#PB_Any,?img_1)
Img_2 = CatchImage(#PB_Any,?img_2)
Img_3 = CatchImage(#PB_Any,?img_3)

Procedure InitWindow_1()
  OpenWindow(#Window_1, 0, 0, 600, 400, "Menu test", #PB_Window_SystemMenu)
  CreateToolBar(0, WindowID(#Window_1))
  ToolBarImageButton(#Toolbar_0,ImageID(Img_1))
  ToolBarSeparator()
  ToolBarImageButton(#Toolbar_2,ImageID(Img_1))
  CreateStatusBar(0, WindowID(#Window_1))
  AddStatusBarField(50)
  StatusBarImage(0, 0, ImageID(Img_2))
  AddStatusBarField(50)
  StatusBarProgress(0, 1, 0)
  AddStatusBarField(50)
  StatusBarText(0, 2, "Test5")
  AddStatusBarField(50)
  StatusBarImage(0, 3, ImageID(Img_3))
  CreateImageMenu(0, WindowID(#Window_1))
  MenuTitle("MenuTitle")
  MenuItem(#MenuItem_2,"test")
  MenuItem(#MenuItem_3,"test2")
  MenuBar()
  MenuItem(#MenuItem_5,"test")
  MenuItem(#MenuItem_6,"clock", ImageID(Img_0))
  ButtonGadget(#Button_2, 160, ToolBarHeight(0) + 105, 80, 30, "2")
  ButtonGadget(#Button_1, 160, ToolBarHeight(0) + 75, 80, 30, "1")
  ButtonGadget(#Button_0, 160, ToolBarHeight(0) + 45, 80, 30, "0")
EndProcedure

Procedure Window_1_Events(event)
  Select event
    Case #PB_Event_CloseWindow
      ProcedureReturn #False

    Case #PB_Event_Menu
      Select EventMenu()
        Case #MenuItem_2
        Case #MenuItem_3
        Case #MenuItem_5
        Case #MenuItem_6
        Case #Toolbar_0
        Case #Toolbar_2
      EndSelect

    Case #PB_Event_Gadget
      Select EventGadget()
      EndSelect
  EndSelect
  ProcedureReturn #True
EndProcedure



DataSection
  img_0: IncludeBinary "..\ZZZZ_Piel_XT\XT_Explorer\19.png"
  img_1: IncludeBinary "..\ZZZZ_Piel_XT\XT_Explorer\51.png"
  img_2: IncludeBinary "..\ZZZZ_Piel_XT\XT_Explorer\73.png"
  img_3: IncludeBinary "..\ZZZZ_Piel_XT\XT_Explorer\33.png"
EndDataSection

Posted: **Fri Jan 25, 2013 11:09 pm**

... one more thing, drag and drop of objects is quite difficult in a long list of objects when it is required to scroll the panel.
two buttons (up and down) may look old style, but are really handy.

Posted: **Sat Jan 26, 2013 12:38 pm**

Fixed. Indeed, I need to add up/down buttons, especially because drag 'n drop doesn't work on PB OS X at the moment!

PureBasic Forums - English

[Done] Object order not updated in code mode

[Done] Object order not updated in code mode

Re: Object order not updated in code mode

Re: Object order not updated in code mode