Hier ein vollständiger Beispielcode, zur Bestätigung/Veranschaulichung der Situation:
Code: Alles auswählen
Enumeration
#Window
#Gadget_Left
#Gadget_Right
EndEnumeration
Define Item.i
OpenWindow(#Window, 0, 0, 800, 600, "WindowTitle", #PB_Window_MinimizeGadget|#PB_Window_ScreenCentered)
ListIconGadget(#Gadget_Left, 10, 10, 190, 214, "Beispielinhalt", 160, #PB_ListIcon_GridLines|#PB_ListIcon_FullRowSelect)
For Item = 0 To 30
AddGadgetItem(#Gadget_Left, #PB_Default, "Item "+Str(Item))
Next
SetGadgetState(#Gadget_Left, 30)
ListIconGadget(#Gadget_Right, 210, 10, 190, 198, "Beispielinhalt", 160, #PB_ListIcon_GridLines|#PB_ListIcon_FullRowSelect)
For Item = 0 To 30
AddGadgetItem(#Gadget_Right, #PB_Default, "Item "+Str(Item))
Next
SetGadgetState(#Gadget_Right, 30)
Repeat
Select WaitWindowEvent()
Case #PB_Event_CloseWindow
End
Case #PB_Event_Gadget
Select EventGadget()
EndSelect
EndSelect
ForEver
Hinweis: Pixelgenaue Abmessungen funktionieren allerdings nicht Systemübergreifend, da vielleicht jeder andere Standardschriftarten nutzt.