Code: Select all
OpenWindow(0, 200, 100, 410, 130, "Column justification")
ListIconGadget(0, 10, 10, 390, 85, "Name", 100)
AddGadgetColumn(0, 1, "Address", 280)
AddGadgetItem(0, -1, "Harry Rannit" + #LF$ +
"12 Parliament Way, Battle Street, By the Bay")
AddGadgetItem(0, -1, "Ginger Brokeit" + #LF$ +
"130 PureBasic Road, BigTown, CodeCity")
ButtonGadget(1, 70, 100, 250, 25, "Right-align text in 2nd row and 2nd column")
Repeat
Select WaitWindowEvent()
Case #PB_Event_CloseWindow
Break
Case #PB_Event_Gadget
If EventGadget() = 1
SetGadgetItemAttribute(0, 1, #PB_ListIcon_ColumnAlignment,
#PB_ListIcon_Right, 1)
EndIf
EndSelect
ForEver