forked from HemulGM/TaskBoardsFMX
-
Notifications
You must be signed in to change notification settings - Fork 0
/
Copy pathTaskBoard.View.Column.fmx
132 lines (132 loc) · 4.39 KB
/
TaskBoard.View.Column.fmx
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
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
object FrameColumn: TFrameColumn
EnableDragHighlight = False
Size.Width = 437.000000000000000000
Size.Height = 796.000000000000000000
Size.PlatformDefault = False
OnDragLeave = VertScrollBoxItemsDragLeave
OnDragOver = VertScrollBoxItemsDragOver
OnDragDrop = VertScrollBoxItemsDragDrop
OnDragEnd = VertScrollBoxItemsDragEnd
OnResize = FrameResize
OnResized = FrameResize
object LayoutContent: TLayout
Align = Top
DragMode = dmAutomatic
EnableDragHighlight = False
HitTest = True
Padding.Left = 8.000000000000000000
Padding.Top = 8.000000000000000000
Padding.Right = 8.000000000000000000
Padding.Bottom = 8.000000000000000000
Size.Width = 437.000000000000000000
Size.Height = 601.000000000000000000
Size.PlatformDefault = False
TabOrder = 0
OnDragLeave = VertScrollBoxItemsDragLeave
OnDragOver = VertScrollBoxItemsDragOver
OnDragDrop = VertScrollBoxItemsDragDrop
OnDragEnd = VertScrollBoxItemsDragEnd
object RectangleBG: TRectangle
Align = Contents
Fill.Color = xFFEBECF0
HitTest = False
Size.Width = 437.000000000000000000
Size.Height = 601.000000000000000000
Size.PlatformDefault = False
Stroke.Kind = None
XRadius = 4.000000000000000000
YRadius = 4.000000000000000000
end
object VertScrollBoxItems: TVertScrollBox
Align = Client
EnableDragHighlight = False
Size.Width = 421.000000000000000000
Size.Height = 521.000000000000000000
Size.PlatformDefault = False
TabOrder = 0
OnDragLeave = VertScrollBoxItemsDragLeave
OnDragOver = VertScrollBoxItemsDragOver
OnDragDrop = VertScrollBoxItemsDragDrop
OnDragEnd = VertScrollBoxItemsDragEnd
OnCalcContentBounds = VertScrollBoxItemsCalcContentBounds
Viewport.Width = 421.000000000000000000
Viewport.Height = 521.000000000000000000
object LayoutDropCard: TLayout
Align = Top
Margins.Bottom = 6.000000000000000000
Size.Width = 421.000000000000000000
Size.Height = 50.000000000000000000
Size.PlatformDefault = False
Visible = False
TabOrder = 0
object Rectangle1: TRectangle
Align = Contents
Fill.Color = x46000000
HitTest = False
Padding.Left = 4.000000000000000000
Padding.Top = 4.000000000000000000
Padding.Right = 4.000000000000000000
Padding.Bottom = 4.000000000000000000
Size.Width = 421.000000000000000000
Size.Height = 50.000000000000000000
Size.PlatformDefault = False
Stroke.Kind = None
XRadius = 3.000000000000000000
YRadius = 3.000000000000000000
end
end
end
object LayoutHead: TLayout
Align = Top
Position.X = 8.000000000000000000
Position.Y = 8.000000000000000000
Size.Width = 421.000000000000000000
Size.Height = 32.000000000000000000
Size.PlatformDefault = False
TabOrder = 1
object LabelTitle: TLabel
Align = Client
StyledSettings = [Size, Style, FontColor]
Size.Width = 421.000000000000000000
Size.Height = 32.000000000000000000
Size.PlatformDefault = False
StyleLookup = 'labeltitle_style'
TextSettings.Font.Family = 'Roboto'
Text = 'Title'
TabOrder = 0
end
end
object LayoutFooter: TLayout
Align = Bottom
Padding.Top = 4.000000000000000000
Position.X = 8.000000000000000000
Position.Y = 561.000000000000000000
Size.Width = 421.000000000000000000
Size.Height = 32.000000000000000000
Size.PlatformDefault = False
TabOrder = 3
object ButtonAdd: TButton
Align = Client
EnableDragHighlight = False
Size.Width = 421.000000000000000000
Size.Height = 28.000000000000000000
Size.PlatformDefault = False
StyleLookup = 'button_style_add_card'
TabOrder = 0
Text = #1044#1086#1073#1072#1074#1080#1090#1100' '#1082#1072#1088#1090#1086#1095#1082#1091
TextSettings.HorzAlign = Leading
OnDragLeave = VertScrollBoxItemsDragLeave
OnDragOver = VertScrollBoxItemsDragOver
OnDragDrop = VertScrollBoxItemsDragDrop
OnDragEnd = VertScrollBoxItemsDragEnd
end
end
end
object TimerScroll: TTimer
Enabled = False
Interval = 5
OnTimer = TimerScrollTimer
Left = 208
Top = 384
end
end