Code: Select all
if OpenWindow(0, 0, 0, 270*2, 140, "ListViewGadget", #PB_Window_SystemMenu | #PB_Window_ScreenCentered)
ListViewGadget(0, 10, 10, 250, 120)
For a = 1 To 12
AddGadgetItem (0, -1, "Item yyy " + Str(a) + " of the Listview") ; definieren des Listview-Inhalts
Next
SetGadgetState(0, 0)
ListViewGadget(1, 10+270, 10, 250, 120)
LoadFont(0, "Helvetica", 13)
SetGadgetFont(1, FontID(0))
For a = 1 To 12
AddGadgetItem (1, -1, "Item yyy " + Str(a) + " of the Listview") ; definieren des Listview-Inhalts
Next
SetGadgetState(1, 0)
Repeat : Until WaitWindowEvent() = #PB_Event_CloseWindow
EndIf
