Das deutsche PureBasic-Forum
https://www.purebasic.fr/german/
Code: Alles auswählen
If OpenWindow(0, 0, 0, 200, 190, "SetGadgetColor", #PB_Window_SystemMenu | #PB_Window_ScreenCentered)
ListViewGadget(1, 10, 10, 180, 170, #PB_ListView_MultiSelect )
; ListViewGadget(1, 10, 10, 180, 170, #PB_ListView_ClickSelect)
For i = 0 To 14
AddGadgetItem(1, -1, "Textzeile - " + Str(i+1))
Next i
SetGadgetColor(1, #PB_Gadget_BackColor, $443322)
SetGadgetColor(1, #PB_Gadget_FrontColor, $0000FF)
; SetGadgetState(1, 11)
SetGadgetItemState(1, 1, 1)
SetGadgetItemState(1, 4, 1)
SetGadgetItemState(1, 8, 1)
Repeat
Until WaitWindowEvent() = #PB_Event_CloseWindow
EndIfCode: Alles auswählen
If OpenWindow(0, 100, 100, 200, 100, "ListIcon Example", #PB_Window_SystemMenu | #PB_Window_ScreenCentered)
ListIconGadget(0, 5, 5, 190, 90, "Liste mit Titel", 170, #PB_ListIcon_FullRowSelect | #PB_ListIcon_AlwaysShowSelection |#PB_ListIcon_MultiSelect)
AddGadgetItem(0, -1, "Harry")
AddGadgetItem(0, -1, "Ginger ")
AddGadgetItem(0, -1, "Rannit")
AddGadgetItem(0, -1, "Brokeit")
AddGadgetItem(0, -1, "hui")
AddGadgetItem(0, -1, "buh")
SetGadgetItemColor(0, 1, #PB_Gadget_BackColor, $007766)
SetGadgetItemColor(0, 1, #PB_Gadget_FrontColor, $00ccff)
SetGadgetItemColor(0, 3, #PB_Gadget_BackColor, $6600FF)
Repeat
Event = WaitWindowEvent()
Until Event = #PB_Event_CloseWindow
EndIfMit dem Flag #LVS_NOCOLUMNHEADER hat es keine Titelzeile.Vera hat geschrieben:... und bin auf das ListIconGadget gekommen. Das darf ja auch einspaltig sein, hat aber auf jeden Fall eine Titelzeile.
