Code: Select all
OpenWindow(0, 100, 300, 400, 250, "PureCOLOR test", #PB_Window_SystemMenu | #PB_Window_SizeGadget)
If CreateGadgetList(WindowID(0))
PanelGadget(10, 0, 0, 400, 250)
AddGadgetItem(10, -1, "Test 1")
; Tab 1
StringGadget(1, 10, 10, 90, 20, "StringGadget 1")
ListIconGadget(2, 10, 40, 150, 100, "1", 100, #PB_ListIcon_GridLines | #PB_ListIcon_FullRowSelect | #PB_ListIcon_AlwaysShowSelection)
AddGadgetColumn(2, 1, "2", 50)
AddGadgetColumn(2, 2, "3", 50)
AddGadgetItem(2, -1, "ListIconGadget 2-1" + Chr(10) + "A" + Chr(10) + "F")
AddGadgetItem(2, -1, "ListIconGadget 2-2" + Chr(10) + "B" + Chr(10) + "G")
AddGadgetItem(2, -1, "ListIconGadget 2-3" + Chr(10) + "C" + Chr(10) + "H")
AddGadgetItem(2, -1, "ListIconGadget 2-4" + Chr(10) + "D" + Chr(10) + "I")
AddGadgetItem(2, -1, "ListIconGadget 2-5" + Chr(10) + "E" + Chr(10) + "J")
TextGadget(3, 10, 160, 300, 30, "TextGadget 3", #PB_Text_Center)
ButtonGadget(4, 200, 10, 80, 20, "Button 4")
;PureRESIZE_SetGadgetResize(4, #True, #True, #True, #True)
ComboBoxGadget(5, 295, 10, 100, 100)
AddGadgetItem(5, -1, "ComboBox 5-1")
AddGadgetItem(5, -1, "ComboBox 5-2")
SetGadgetState(5, 0)
CheckBoxGadget(6, 110, 10, 80, 20, "CheckBox 6")
ListViewGadget(7, 160, 40, 150, 100, #PB_ListIcon_GridLines)
AddGadgetItem(7, -1, "ListViewGadget 7-1")
AddGadgetItem(7, -1, "ListViewGadget 7-2")
AddGadgetItem(7, -1, "ListViewGadget 7-3")
; Tab 2
AddGadgetItem(10, -1, "Test 2")
CloseGadgetList()
EndIf
; Adding colors
PureCOLOR_SetGadgetColor(1, RGB(255,0,0), -1)
PureCOLOR_SetGadgetColorEx(2, RGB(0,0,0), RGB(255, 255, 255), RGB(255, 255, 223), #PureCOLOR_LV_AlternateColors2)
PureCOLOR_SetGadgetColor(3, RGB(255,0,0), RGB(0,0,0))
PureCOLOR_SetButtonColor(4, RGB(255,0,0), RGB(0,255,0), #Green, #Yellow)
PureCOLOR_SetGadgetColor(5, RGB(255,0,0), RGB(255,255,0))
PureCOLOR_SetGadgetColor(6, RGB(255,255,0), -1)
PureCOLOR_SetGadgetColor(7, RGB(255,0,0), RGB(100,100,0))
PureCOLOR_SetGadgetColorEx(2, RGB(255,0,0), RGB(0,255,0), 0, #PureCOLOR_LTV_SelectedItem)
PureCOLOR_SetColumnHeaderColor(2, 0, RGB(255,0,0), RGB(100,100,0), LoadFont(0, "Courrier New", 8, #PB_Font_Bold))
;
Repeat
EventID = WaitWindowEvent()
Until EventID = #PB_Event_CloseWindow
;
End