Code: Alles auswählen
Global wString.l
Procedure StringToWStr(string$)
SysFreeString_(wString)
Protected Unicode$ = Space(StringByteLength(string$, #PB_Unicode) + 1)
Protected bstr_string.l
PokeS(@Unicode$, String$, -1, #PB_Unicode)
wString = SysAllocString_(@Unicode$)
ProcedureReturn wString
EndProcedure
Procedure WinCallback(WindowID, Message, wParam, lParam)
Result = #PB_ProcessPureBasicEvents
Select Message
Case #WM_NOTIFY
*CD.NMLVCUSTOMDRAW = lParam
If *CD\nmcd\hdr\Code = #NM_CUSTOMDRAW
If *CD\nmcd\dwDrawStage = #CDDS_PREPAINT : ProcedureReturn #CDRF_NOTIFYITEMDRAW : EndIf
If *CD\nmcd\dwDrawStage = #CDDS_ITEMPREPAINT : ProcedureReturn #CDRF_NOTIFYSUBITEMDRAW : EndIf
;wenn Spalte 1
If (*CD\nmcd\dwDrawStage = #CDDS_SUBITEM|#CDDS_ITEMPREPAINT) And (*CD\iSubItem = 0)
*CD\clrText=$B60C07;Textfarbe
*CD\clrTextBk=$DEFBCD;Texthintergrund
EndIf
;wenn Spalte 2
If (*CD\nmcd\dwDrawStage = #CDDS_SUBITEM|#CDDS_ITEMPREPAINT) And (*CD\iSubItem = 1)
*CD\clrText=$DEFBCD;Textfarbe
*CD\clrTextBk=$B60C07;Texthintergrund
EndIf
EndIf
EndSelect
ProcedureReturn Result
EndProcedure
If OpenWindow(0, 0, 0, 640, 300, "ListIconGadgets", #PB_Window_SystemMenu | #PB_Window_ScreenCentered)
SetWindowCallback(@WinCallback())
Listview.l = ListIconGadget(0, 10, 25, 300, 200, "", 80,#LVS_NOCOLUMNHEADER)
AddGadgetColumn(0, 1, "", 80)
;Gruppen-Eigenscaften festlegen
GM.LVGROUPMETRICS
GM\cbSize = SizeOf(LVGROUPMETRICS)
GM\mask = #LVGMF_BORDERCOLOR|#LVGMF_BORDERSIZE|#LVGMF_TEXTCOLOR
SendMessage_(Listview,#LVM_GETGROUPMETRICS,0,GM);Gruppen-Eigenschaften holen
GM\crHeader = RGB(0,0,128);Gruppenkopf-Farbe
GM\Bottom = GM\Bottom + 4;Gruppen-Fuss um 4 Pixel erweitern
SendMessage_(Listview,#LVM_SETGROUPMETRICS,0,GM);Gruppen-Eigenschaften setzen
SendMessage_(Listview,#LVM_ENABLEGROUPVIEW,1,0);Gruppen-Ansicht einschalten
;Gruppen anlegen
Group.LVGROUP
Group\cbSize=SizeOf(LVGROUP)
Group\mask=#LVGF_HEADER|#LVGF_GROUPID
;Gruppe mit ID 111 anlegen
Group\pszHeader= StringToWStr("Gruppe1");Text für Gruppenkopf
Group\iGroupId = 111
SendMessage_(Listview,#LVM_INSERTGROUP,-1,Group);Gruppe einfügen
;Gruppe mit ID 222 anlegen
Group\pszHeader= StringToWStr("Gruppe2");Text für Gruppenkopf
Group\iGroupId = 222
SendMessage_(Listview,#LVM_INSERTGROUP,-1,Group);Gruppe einfügen
;Gruppe mit ID 333 anlegen
Group\pszHeader= StringToWStr("Gruppe3");Text für Gruppenkopf
Group\iGroupId = 333
SendMessage_(Listview,#LVM_INSERTGROUP,-1,Group);Gruppe einfügen
;Listview-Item anlegen
Item.LVITEM
Item\mask = #LVIF_GROUPID
Item\iGroupId = 333;Item-ID setzen
For a = 0 To 3
AddGadgetItem(0, 0, "Item "+Str(a+1)+Chr(10)+Str(Item\iGroupId))
SendMessage_(Listview,#LVM_SETITEM,0,Item);das neue Item einfügen
Next
Item\iGroupId = 111;Item-ID setzen
For a = 0 To 3
AddGadgetItem(0, 0, "Item "+Str(a+1)+Chr(10)+Str(Item\iGroupId))
SendMessage_(Listview,#LVM_SETITEM,0,Item);das neue Item einfügen
Next
Item\iGroupId = 222;Item-ID setzen
For a = 0 To 3
AddGadgetItem(0, 0, "Item "+Str(a+1)+Chr(10)+Str(Item\iGroupId))
SendMessage_(Listview,#LVM_SETITEM,0,Item);das neue Item einfügen
Next
Repeat
Event = WaitWindowEvent()
Until Event = #PB_Event_CloseWindow
SysFreeString_(wString)
EndIf
