
chris
Code: Alles auswählen
#LVM_GETHEADER = (#LVM_FIRST + 31)
;########################################################
Procedure CountGadgetColumns (lview)
Protected Header.l
Header = SendMessage_(lview ,#LVM_GETHEADER,0,0)
SendMessage_(Header,#HDM_GETITEMCOUNT,0,0)
ProcedureReturn
EndProcedure
;########################################################
hwnd = OpenWindow(0,0,0,500,500,#PB_Window_SystemMenu,"")
CreateGadgetList(hwnd)
lview = ListIconGadget(0, 10, 25, 300, 70, "Column 1",100)
AddGadgetColumn(0,1,"Column 2",65)
AddGadgetColumn(0,1,"Column 3",65)
;--
Debug CountGadgetColumns (lview)
;---
Repeat : Until #PB_EventCloseWindow = WaitWindowEvent()
End