folgendes Problem. Ich brauchte einen Abfrage für die Überschriften der Spalten meines ListIconGadgets, weil ich damit gearbeitet habe. Mit folgendem Code gings auch einwandfrei :
Code: Alles auswählen
Procedure wndproc(hwnd,msg,wParam,lParam)
Shared hlv
ret=#PB_ProcessPureBasicEvents
Select msg
Case #WM_NOTIFY
*pnmhdr.NMHDR=lParam
If *pnmhdr\code=#LVN_COLUMNCLICK ;column click
*pnmlistview.NMLISTVIEW=lParam
If *pnmlistview\hdr\hwndFrom=hlv ;comes from our listicon
Column=*pnmlistview\iSubItem
MessageRequester("",Str(Column),0)
EndIf
EndIf
EndSelect
ProcedureReturn ret
EndProcedure
hwnd=OpenWindow(0,100,100,300,150,"Column Click",#PB_Window_SystemMenu)
CreateGadgetList(hwnd)
hlv=ListIconGadget(1,10,10,250,100,"Column 0",80)
AddGadgetColumn(1,1,"Column 1",80)
AddGadgetColumn(1,2,"Column 2",80)
SetWindowCallback(@wndproc())
Repeat
Until WaitWindowEvent()=#PB_Event_CloseWindow