-
Notifications
You must be signed in to change notification settings - Fork 1
/
ListIconGadgetExDemo.sb
79 lines (53 loc) · 2.82 KB
/
ListIconGadgetExDemo.sb
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
IncludeFile "ListIconGadgetEx.sbi"
EnableExplicit
Enumeration
#Window
#ListIconGadget1
#ListIconGadget2
#ListIconGadget3
#ListIconGadget4
EndEnumeration
Procedure CellClick(ListIconGadget, Column, Row)
Debug "CellClick():"
Debug "Column: " + Str(Column)
If Row = -1
Debug "Row: Header"
Else
Debug "Row: " + Str(Row)
EndIf
Debug "------------------"
EndProcedure
OpenWindow(#Window, #PB_Ignore, #PB_Ignore, 800, 800, "ListIcon Example", #PB_Window_SystemMenu | #PB_Window_ScreenCentered)
; #ListIconGadget1
ListIconGadget(#ListIconGadget1, 0, 0, 400, 400, "Column 0", 200, #PB_ListIcon_FullRowSelect | #PB_ListIcon_AlwaysShowSelection)
AddGadgetColumn(#ListIconGadget1, 1, "Column 1", 100)
ListIconGadgetEx::SetOddRowColor (#ListIconGadget1, "lightgreen", "darkgreen", "black", "white")
ListIconGadgetEx::SetEvenRowColor(#ListIconGadget1, "white", "lightblue", "black", "black")
ListIconGadgetEx::SetColumnHeaderColor(#ListIconGadget1, 0, "red", "yellow") ; setting the color for first columnheader
; #ListIconGadget2
ListIconGadget(#ListIconGadget2, 400, 0, 400, 400, "Column 0", 200, #PB_ListIcon_FullRowSelect | #PB_ListIcon_AlwaysShowSelection)
AddGadgetColumn(#ListIconGadget2, 1, "Column 1", 100)
ListIconGadgetEx::SetOddRowColor (#ListIconGadget2, "green", "lightgreen", "white", "red")
ListIconGadgetEx::SetEvenRowColor(#ListIconGadget2, "yellow", "lightblue", "orange", "silver")
; #ListIconGadget3
ListIconGadget(#ListIconGadget3, 0, 400, 400, 400, "Column 0", 200, #PB_ListIcon_FullRowSelect | #PB_ListIcon_AlwaysShowSelection)
AddGadgetColumn(#ListIconGadget3, 1, "Column 1", 100)
ListIconGadgetEx::SetHeaderHeight(#ListIconGadget3, 36)
ListIconGadgetEx::SetRowHeight(#ListIconGadget3, 36)
ListIconGadgetEx::BindCellClick(#ListIconGadget3, @CellClick())
; #ListIconGadget4
ListIconGadget(#ListIconGadget4, 400, 400, 400, 400, "Column 0", 150, #PB_ListIcon_FullRowSelect | #PB_ListIcon_AlwaysShowSelection)
AddGadgetColumn(#ListIconGadget4, 1, "Column 1", 150)
ListIconGadgetEx::SetColumnHeaderAlignment(#ListIconGadget4, 0, "right")
ListIconGadgetEx::SetColumnAlignment(#ListIconGadget4, 0, "center")
ListIconGadgetEx::SetColumnHeaderAlignment(#ListIconGadget4, 1, "left")
ListIconGadgetEx::SetColumnAlignment(#ListIconGadget4, 1, "center")
ListIconGadgetEx::BindCellClick(#ListIconGadget4, @CellClick())
ListIconGadgetEx::UnbindCellClick(#ListIconGadget4)
Define Counter
For Counter = 0 To 9
AddGadgetItem(#ListIconGadget1, -1, "Column 0 / Row " + Counter + #LF$ + "Column 1 / Row " + Counter)
AddGadgetItem(#ListIconGadget2, -1, "Column 0 / Row " + Counter + #LF$ + "Column 1 / Row " + Counter)
AddGadgetItem(#ListIconGadget3, -1, "Column 0 / Row " + Counter + #LF$ + "Column 1 / Row " + Counter)
AddGadgetItem(#ListIconGadget4, -1, "Column 0 / Row " + Counter + #LF$ + "Column 1 / Row " + Counter)
Next