-
Notifications
You must be signed in to change notification settings - Fork 1
/
RenderCellDemo3.sb
51 lines (30 loc) · 1.24 KB
/
RenderCellDemo3.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
EnableExplicit
XIncludeFile "ListIconGadgetEx.sbi"
Enumeration
#Window
#ListIconGadget
EndEnumeration
Procedure ButtonEvent()
Debug "ButtonEvent in Row: " + Str(GetGadgetData(EventGadget()))
EndProcedure
Procedure.s RenderCell(Row, Col, Text.s, TD, ListIconGadget)
Protected NewGadget
Select Text
Case "ButtonGadget"
NewGadget = ButtonGadget(#PB_Any, 0, 0, 100, 30, "ButtonGadget")
SetGadgetData(NewGadget, Row)
BindGadgetEvent(NewGadget, @ButtonEvent())
EndSelect
Protected GID = GadgetID(NewGadget)
! $(v_gid.div).css("position", "")
! $(v_gid.div).find('*').css("position", "")
! v_gid.gadget.placeAt(v_td)
EndProcedure
OpenWindow(#Window, #PB_Ignore, #PB_Ignore, 300, 300, "RenderCell Demo 3", #PB_Window_SystemMenu | #PB_Window_ScreenCentered)
ListIconGadget(#ListIconGadget, 0, 0, WindowWidth(#Window), WindowHeight(#Window), "Gadgettype", 100, #PB_ListIcon_FullRowSelect | #PB_ListIcon_AlwaysShowSelection)
AddGadgetColumn(#ListIconGadget, 1, "Gadget", 100)
Define Counter
For Counter = 0 To 9
AddGadgetItem(#ListIconGadget, -1, "ButtonGadget" + #LF$ + "ButtonGadget")
Next
ListIconGadgetEx::RenderCell(#ListIconGadget, 1, @RenderCell()) ; we want to render Column 1