-
Notifications
You must be signed in to change notification settings - Fork 6
/
ChatFMX.Frame.Attachment.Video.fmx
187 lines (187 loc) · 6.77 KB
/
ChatFMX.Frame.Attachment.Video.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
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
inherited FrameAttachmentVideo: TFrameAttachmentVideo
Size.Width = 320.000000000000000000
Size.Height = 307.000000000000000000
object CircleVideo: TCircle
Align = Client
Fill.Color = x32FFFFFF
Size.Width = 320.000000000000000000
Size.Height = 267.000000000000000000
Size.PlatformDefault = False
Stroke.Kind = None
end
object Image: TImage
MultiResBitmap = <
item
end>
Align = Client
Size.Width = 320.000000000000000000
Size.Height = 267.000000000000000000
Size.PlatformDefault = False
WrapMode = Stretch
end
object LayoutInfo: TLayout
Align = Client
Size.Width = 320.000000000000000000
Size.Height = 267.000000000000000000
Size.PlatformDefault = False
TabOrder = 0
object LayoutInfoB: TLayout
Align = Bottom
Margins.Left = 8.000000000000000000
Margins.Top = 8.000000000000000000
Margins.Right = 8.000000000000000000
Margins.Bottom = 8.000000000000000000
Position.X = 8.000000000000000000
Position.Y = 236.000000000000000000
Size.Width = 304.000000000000000000
Size.Height = 23.000000000000000000
Size.PlatformDefault = False
TabOrder = 0
object RectangleTime: TRectangle
Align = Right
Fill.Color = x66000000
HitTest = False
Padding.Left = 7.000000000000000000
Padding.Right = 7.000000000000000000
Position.X = 248.000000000000000000
Size.Width = 56.000000000000000000
Size.Height = 23.000000000000000000
Size.PlatformDefault = False
Stroke.Kind = None
XRadius = 3.000000000000000000
YRadius = 3.000000000000000000
object LabelTime: TLabel
Align = Right
AutoSize = True
StyledSettings = [Style]
Position.X = 23.000000000000000000
Size.Width = 26.000000000000000000
Size.Height = 23.000000000000000000
Size.PlatformDefault = False
TextSettings.Font.Family = 'Roboto'
TextSettings.Font.Size = 13.000000000000000000
TextSettings.FontColor = claWhite
TextSettings.WordWrap = False
Text = '0:23'
TabOrder = 0
OnResize = LabelTimeResize
end
object PathPlay: TPath
Align = Right
Data.Path = {
0D00000000000000CDCC1C416666E6400200000067661641CCCCDC4002000000
000010410000E04002000000000010413333F340010000000000104166667641
0200000000001041000080410200000066661641CDCC804102000000CDCC1C41
CCCC7C41010000009A99694132334341020000000000704165663E4102000000
00007041CCCC3441020000009A996941FFFF2F4103000000CDCC1C416666E640}
Fill.Color = claWhite
Locked = True
HitTest = False
Margins.Left = 2.000000000000000000
Margins.Right = 5.000000000000000000
Position.X = 11.000000000000000000
Size.Width = 7.000000000000000000
Size.Height = 23.000000000000000000
Size.PlatformDefault = False
Stroke.Kind = None
WrapMode = Fit
end
end
end
object LayoutPlay: TLayout
Align = Contents
Size.Width = 320.000000000000000000
Size.Height = 267.000000000000000000
Size.PlatformDefault = False
TabOrder = 1
object CirclePlay: TCircle
Align = Center
Cursor = crHandPoint
Fill.Color = x7F000000
Size.Width = 50.000000000000000000
Size.Height = 50.000000000000000000
Size.PlatformDefault = False
Stroke.Kind = None
object ImagePlay: TImage
MultiResBitmap.Height = 24
MultiResBitmap.Width = 17
MultiResBitmap = <
item
Width = 17
Height = 24
PNG = {
89504E470D0A1A0A0000000D49484452000000110000001808060000001C6216
32000000017352474200AECE1CE90000000467414D410000B18F0BFC61050000
012049444154384FA594BD4E02411446776CD492D28E187D0521D8FA2E261644
DF82104D7C20131381DA4E03A1A5B1C49FCADDF52CF70B0B597699194F3299CB
CEFDCEDC4C419265D9499EE7ADE43FA469BA602D915D2373FA1C06C135C89ED8
DA3AF2C7E225883E99EA86D27F2A8B5641F6CC76AAB6662CB21B445F4CD5A76C
9ECADA9B41F682EC4C912AEADB0BA26F44B794078A96588B3FC8C6C8CE153774
1604A21F44779436957D8E03D988ADED8A1F2B5B244C34AF3E52381FD1122628
7874CE5DC53EEC0CC1A57C610F4BB8E001C1B1E286CEF742784AB8A7D836EAA9
C52E4FEF298F14A962ADBB21FCCEED5DB5D6A3FE2D08FFB28694F5B76F62B112
C26FDCDED1B11FCAAE6E671B2038D4913F8427AC57C217FA140EB7C7FDC3AF49
923FA49FEDD9DBD9B7B90000000049454E44AE426082}
FileName = 'D:\Projects\VK_API\Samples\ChatFMX\Res\video_play_small.png'
end>
Align = Client
HitTest = False
Margins.Left = 4.000000000000000000
Size.Width = 46.000000000000000000
Size.Height = 50.000000000000000000
Size.PlatformDefault = False
WrapMode = Center
end
object ColorAnimationOverPlay: TColorAnimation
Duration = 0.200000002980232200
PropertyName = 'Fill.Color'
StartValue = x7F000000
StopValue = xA0000000
Trigger = 'IsMouseOver=true'
TriggerInverse = 'IsMouseOver=false'
end
end
end
end
object LayoutCaption: TLayout
Align = Bottom
HitTest = True
Padding.Top = 4.000000000000000000
Position.Y = 267.000000000000000000
Size.Width = 320.000000000000000000
Size.Height = 40.000000000000000000
Size.PlatformDefault = False
TabOrder = 1
OnMouseEnter = LayoutCaptionMouseEnter
OnMouseLeave = LayoutCaptionMouseLeave
object LabelCaption: TLabel
Align = Top
StyledSettings = []
Position.Y = 4.000000000000000000
Size.Width = 320.000000000000000000
Size.Height = 19.000000000000000000
Size.PlatformDefault = False
TextSettings.Font.Family = 'Roboto'
TextSettings.Font.Size = 12.500000000000000000
TextSettings.Font.StyleExt = {00070000000000000004000000}
TextSettings.FontColor = xFF71AAEB
TextSettings.WordWrap = False
Text = #1053#1072#1079#1074#1072#1085#1080#1077' '#1074#1080#1076#1077#1086
TabOrder = 2
end
object LabelViews: TLabel
Align = Top
StyledSettings = [Style]
Position.Y = 23.000000000000000000
Size.Width = 320.000000000000000000
Size.Height = 17.000000000000000000
Size.PlatformDefault = False
TextSettings.Font.Family = 'Roboto'
TextSettings.Font.Size = 13.000000000000000000
TextSettings.FontColor = xFF828282
TextSettings.WordWrap = False
Text = '1 '#1087#1088#1086#1089#1084#1086#1090#1088
TabOrder = 1
end
end
end