PureBasic Forums - English

Code: Select all

#PB_Window_MinimizeGadget: Adds the minimize gadget to the window title bar. #PB_Window_System is automatically added. 
  #PB_Window_MaximizeGadget: Adds the maximize gadget to the window title bar. #PB_Window_System is automatically added. 

Code: Select all

; PureBasic Visual Designer v3.81 BETA build 1295


;- Window Constants
;
Enumeration
  #Window_0
EndEnumeration

;- Gadget Constants
;
Enumeration
  #Button_0
  #ListIcon_0
  #Column1
  #Column2
  #Column3
EndEnumeration


Procedure Open_Window_0()
  If OpenWindow(#Window_0, 216, 0, 600, 300,  #PB_Window_SizeGadget | #PB_Window_TitleBar , "New window ( 0 )")
    If CreateGadgetList(WindowID())
      ButtonGadget(#Button_0, 220, 40, 130, 70, "")
      
      ;-
      ListIconGadget(#ListIcon_0, 70, 120, 290, 150, "Column1", 100)
      AddGadgetColumn(#ListIcon_0, 2, "Column2", 100)
      AddGadgetColumn(#ListIcon_0, 3, "Column3", 100)
      
    EndIf
  EndIf
EndProcedure

Open_Window_0()

Repeat
  
  Event = WaitWindowEvent()
  
  If Event = #PB_EventGadget
    
    ;Debug "WindowID: " + Str(EventWindowID())
    
    GadgetID = EventGadgetID()
    
    If GadgetID = #Button_0
      Debug "GadgetID: #Button_0"
      
    ElseIf GadgetID = #ListIcon_0
      Debug "GadgetID: #ListIcon_0"
      
    ElseIf GadgetID = #Column1
      Debug "GadgetID: #Column1"
      
    ElseIf GadgetID = #Column2
      Debug "GadgetID: #Column2"
      
    ElseIf GadgetID = #Column3
      Debug "GadgetID: #Column3"
      
    EndIf
    
  EndIf
  
Until Event = #PB_EventCloseWindow

End
;