PureBasic Forums - English

Code: Select all

AddGadgetItem(0,-1,"Item 1"+#LF$+"Item 2"+#LF$+"Item 3")

Code: Select all

; Subclassing the ListIcon Gadget Header Control
; 03/2007 by netmaestro

Procedure callback(hwnd, msg, wparam, lparam)
  Protected oldproc = GetProp_(hwnd, "oldproc")
  result=CallWindowProc_(oldproc,hwnd,msg,wparam,lparam)
  If msg = #WM_RBUTTONUP
    hti.hd_hittestinfo
    hti\pt\x = lparam&$FFFF
    hti\pt\y = lparam>>16
    SendMessage_(hwnd, #HDM_HITTEST,0,@hti)
    Debug "Right Button Up On Header item: "+Str(hti\iItem)
  ElseIf msg = #WM_RBUTTONDOWN
    hti.hd_hittestinfo
    hti\pt\x = lparam&$FFFF
    hti\pt\y = lparam>>16
    SendMessage_(hwnd, #HDM_HITTEST,0,@hti)
    Debug "Right Button Down On Header item: "+Str(hti\iItem)
  EndIf
  ProcedureReturn result
EndProcedure

OpenWindow(0,0,0,300,400,"",#PB_Window_SystemMenu|#PB_Window_ScreenCentered)
CreateGadgetList(WindowID(0))
ListIconGadget(0,0,0,300,400,"Column 0",100)
AddGadgetColumn(0, 1,"Column 1",200)

; find header control hwnd and subclass it
header = GetWindow_(GadgetID(0),#GW_CHILD)
oldproc=SetWindowLong_(header,#GWL_WNDPROC, @callback())
SetProp_(header, "oldproc", oldproc)

Repeat:Until WaitWindowEvent()=#WM_CLOSE

Code: Select all

#LVM_SETCOLUMNORDERARRAY = #LVM_FIRST + 58

;...Array for holding default column order
Dim colArray(2)

If OpenWindow(0, 100, 100, 500, 400, "", #PB_Window_SystemMenu | #PB_Window_ScreenCentered) And CreateGadgetList(WindowID(0))
  ListIconGadget(0, 5, 5, 490, 290, "Column A", 160, #PB_ListIcon_FullRowSelect | #PB_ListIcon_AlwaysShowSelection | #PB_ListIcon_GridLines)
  AddGadgetColumn(0, 1, "Column B", 160)
  AddGadgetColumn(0, 2, "Column C", 160)
  ButtonGadget(1, 10, 360, 200, 25, "Change column order")
  Repeat
    Event = WaitWindowEvent()
    If Event = #PB_Event_Gadget And EventGadget() = 1
      
      colArray(0) = 1
      colArray(1) = 0
      colArray(2) = 2
      
      ;...Switch column 0 with column 1
      ;...This allows us to edit the reminder data
      SendMessage_(GadgetID(0), #LVM_SETCOLUMNORDERARRAY, 3, colArray())
      DisableGadget(1, 1)
    EndIf
  Until Event = #PB_Event_CloseWindow
EndIf
End

Code: Select all

#LVM_GETHEADER = #LVM_FIRST+31

Procedure.l callback(hWnd, uMsg, wParam, lParam)
  result = #PB_ProcessPureBasicEvents
  Select uMsg
    Case #WM_NOTIFY
      *nmh.NMHDR=lParam
        Select *nmh\code
          Case #NM_RCLICK
             If *nmh\hwndFrom = SendMessage_(GadgetID(0),#LVM_GETHEADER,0,0)
               ;Now identify which item was clicked.
                GetCursorPos_(hdhittest.HD_HITTESTINFO\pt) 
                ScreenToClient_(*nmh\hwndFrom, hdhittest\pt) 
                SendMessage_(*nmh\hwndFrom, #HDM_HITTEST, 0, @hdhittest)
                Debug "Clicked header item " + Str(hdhittest\iItem)
             EndIf
        EndSelect
  EndSelect
  ProcedureReturn result
EndProcedure

If OpenWindow(0, 100, 100, 300, 100, "ListIcon Example", #PB_Window_SystemMenu | #PB_Window_ScreenCentered)
  If CreateGadgetList(WindowID(0))
    ListIconGadget(0, 5, 5, 290, 90, "Name", 100, #PB_ListIcon_FullRowSelect|#PB_ListIcon_AlwaysShowSelection)
    AddGadgetColumn(0, 1, "Address", 250)
    AddGadgetItem(0, -1, "Harry Rannit"+Chr(10)+"12 Parliament Way, Battle Street, By the Bay")
    AddGadgetItem(0, -1, "Ginger Brokeit"+Chr(10)+"130 PureBasic Road, BigTown, CodeCity")
    SetWindowCallback(@callback())
    Repeat
      Event = WaitWindowEvent()
    Until Event = #PB_Event_CloseWindow
  EndIf
EndIf