PureBasic Forums - English

Code: Select all

;/////////////////////////////////////////////////////////////////////////////////
;Demo of the OOP class for implementing PopupLists.

;By Stephen Rodriguez.

;Demonstrates some of the methods exposed by the 'PopupList' class.
;/////////////////////////////////////////////////////////////////////////////////

XIncludeFile "PopupList.pbi"

;Open a window upon which to place the PopupList control.
If OpenWindow(0, 0, 400, 270, 140, "PopupList class demo", #PB_Window_SystemMenu | #PB_Window_ScreenCentered) And CreateGadgetList(WindowID(0))
  If CreateMenu(0, WindowID(0))
    MenuTitle("File") 
    PureCOLOR_MenuItem(0, 1,"New"+Chr(9)+"Ctrl+N")
    PureCOLOR_MenuItem(0, 2,"&Open"+Chr(9)+"Ctrl+O")
  EndIf
;Create an instance of a PopupList control.
  MyPopupListObject.PopupListObject
  MyPopupListObject = NewPopupList(20,0,100,240)

;Add some items.
  For i = 0 To 5
    MyPopupListObject\AddItem(-1, "Item "+Str(i))
  Next

;Set some colors.
  MyPopupListObject\SetColor(#PB_Gadget_BackColor, RGB(252, 134, 0))

  Repeat
    eventID = WaitWindowEvent()
    Select eventID  
      Case #WM_RBUTTONDOWN
        MyPopupListObject\Resize(WindowMouseX(0), WindowMouseY(0), #PB_Ignore, #PB_Ignore)
        MyPopupListObject\Show()
        item = MyPopupListObject\GetState()
        Select item
          Case -1
            MessageRequester("PopupList", "Selection cancelled!")
          Default
            MessageRequester("PopupList", "Selected item "+Str(item))
        EndSelect
    EndSelect   
  Until eventID = #PB_Event_CloseWindow

;Destroy the PopupList object when no longer required.
  MyPopupListObject\Destroy()

EndIf