-
Notifications
You must be signed in to change notification settings - Fork 7
/
Copy pathChatFMX.Frame.Message.fmx
473 lines (473 loc) · 19.3 KB
/
ChatFMX.Frame.Message.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
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263
264
265
266
267
268
269
270
271
272
273
274
275
276
277
278
279
280
281
282
283
284
285
286
287
288
289
290
291
292
293
294
295
296
297
298
299
300
301
302
303
304
305
306
307
308
309
310
311
312
313
314
315
316
317
318
319
320
321
322
323
324
325
326
327
328
329
330
331
332
333
334
335
336
337
338
339
340
341
342
343
344
345
346
347
348
349
350
351
352
353
354
355
356
357
358
359
360
361
362
363
364
365
366
367
368
369
370
371
372
373
374
375
376
377
378
379
380
381
382
383
384
385
386
387
388
389
390
391
392
393
394
395
396
397
398
399
400
401
402
403
404
405
406
407
408
409
410
411
412
413
414
415
416
417
418
419
420
421
422
423
424
425
426
427
428
429
430
431
432
433
434
435
436
437
438
439
440
441
442
443
444
445
446
447
448
449
450
451
452
453
454
455
456
457
458
459
460
461
462
463
464
465
466
467
468
469
470
471
472
473
inherited FrameMessage: TFrameMessage
ClipChildren = True
Cursor = crHandPoint
Margins.Left = 7.000000000000000000
Margins.Bottom = 4.000000000000000000
Size.Width = 594.000000000000000000
Size.Height = 302.000000000000000000
OnMouseUp = FrameMouseUp
OnMouseEnter = FrameMouseEnter
OnMouseLeave = FrameMouseLeave
OnResize = FrameResize
OnResized = FrameResize
object LayoutContent: TLayout
Align = Client
Padding.Top = 7.000000000000000000
Padding.Right = 30.000000000000000000
Padding.Bottom = 6.000000000000000000
Size.Width = 594.000000000000000000
Size.Height = 302.000000000000000000
Size.PlatformDefault = False
TabOrder = 1
object RectangleFlash: TRectangle
Align = Contents
Fill.Color = xFF333333
HitTest = False
Opacity = 0.000000000000000000
Size.Width = 594.000000000000000000
Size.Height = 302.000000000000000000
Size.PlatformDefault = False
Stroke.Kind = None
XRadius = 3.000000000000000000
YRadius = 3.000000000000000000
end
object RectangleUnread: TRectangle
Align = Contents
Fill.Color = xFF333333
HitTest = False
Margins.Left = 29.000000000000000000
Margins.Right = 29.000000000000000000
Size.Width = 536.000000000000000000
Size.Height = 302.000000000000000000
Size.PlatformDefault = False
Stroke.Kind = None
XRadius = 3.000000000000000000
YRadius = 3.000000000000000000
end
object RectangleBG: TRectangle
Align = Contents
Fill.Color = xFF333333
HitTest = False
Size.Width = 594.000000000000000000
Size.Height = 302.000000000000000000
Size.PlatformDefault = False
Stroke.Kind = None
Visible = False
XRadius = 3.000000000000000000
YRadius = 3.000000000000000000
end
object RectangleGiftBG: TRectangle
Align = Contents
Fill.Color = xFF857250
HitTest = False
Size.Width = 580.000000000000000000
Size.Height = 302.000000000000000000
Size.PlatformDefault = False
Stroke.Kind = None
Visible = False
XRadius = 3.000000000000000000
YRadius = 3.000000000000000000
end
object LayoutClient: TLayout
Align = Client
Size.Width = 428.000000000000000000
Size.Height = 289.000000000000000000
Size.PlatformDefault = False
TabOrder = 2
object LayoutFrom: TLayout
Align = MostTop
Size.Width = 428.000000000000000000
Size.Height = 21.000000000000000000
Size.PlatformDefault = False
TabOrder = 0
object LabelFrom: TLabel
Align = MostLeft
AutoSize = True
Cursor = crHandPoint
StyledSettings = []
HitTest = True
Margins.Right = 6.000000000000000000
Size.Width = 68.000000000000000000
Size.Height = 21.000000000000000000
Size.PlatformDefault = False
TextSettings.Font.Family = 'Roboto'
TextSettings.Font.Size = 12.500000000000000000
TextSettings.Font.StyleExt = {00070000000000000004000000}
TextSettings.FontColor = xFF71AAEB
TextSettings.WordWrap = False
Text = #1041#1086#1090' '#1047#1072#1085#1091#1076#1072
TabOrder = 0
OnMouseEnter = LabelFromMouseEnter
OnMouseLeave = LabelFromMouseLeave
end
object LabelTime: TLabel
Align = Left
AutoSize = True
Cursor = crHandPoint
StyledSettings = []
HitTest = True
Margins.Right = 6.000000000000000000
Position.X = 185.000000000000000000
Size.Width = 31.000000000000000000
Size.Height = 21.000000000000000000
Size.PlatformDefault = False
TextSettings.Font.Family = 'Roboto'
TextSettings.FontColor = xFF828282
TextSettings.WordWrap = False
Text = '16:06'
ParentShowHint = False
ShowHint = True
TabOrder = 2
OnMouseEnter = LabelFromMouseEnter
OnMouseLeave = LabelFromMouseLeave
end
object LabelMessageType: TLabel
Align = MostLeft
AutoSize = True
Cursor = crHandPoint
StyledSettings = []
Margins.Right = 6.000000000000000000
Position.X = 74.000000000000000000
Size.Width = 105.000000000000000000
Size.Height = 21.000000000000000000
Size.PlatformDefault = False
TextSettings.Font.Family = 'Roboto'
TextSettings.FontColor = claWhite
TextSettings.WordWrap = False
Text = #1086#1090#1087#1088#1072#1074#1080#1083' '#1087#1086#1076#1072#1088#1086#1082
ParentShowHint = False
ShowHint = True
TabOrder = 1
end
end
object MemoText: TMemo
Touch.InteractiveGestures = [Pan, LongTap, DoubleTap]
Caret.Color = x00FFFFFF
DataDetectorTypes = [Link]
DisableMouseWheel = True
ReadOnly = True
ShowScrollBars = False
StyledSettings = [Style, FontColor]
TextSettings.Font.Family = 'Roboto'
TextSettings.Font.Size = 13.100000381469730000
TextSettings.WordWrap = True
OnChange = MemoTextChange
Align = Top
Cursor = crDefault
DisableFocusEffect = True
EnabledScroll = False
Position.Y = 21.000000000000000000
Size.Width = 428.000000000000000000
Size.Height = 52.000000000000000000
Size.PlatformDefault = False
StyleLookup = 'memo_clear'
TabOrder = 1
TabStop = False
OnResize = MemoTextResize
OnExit = MemoTextExit
OnMouseDown = MemoTextMouseDown
OnMouseUp = MemoTextMouseUp
OnMouseEnter = FrameMouseEnter
OnMouseLeave = FrameMouseLeave
Viewport.Width = 428.000000000000000000
Viewport.Height = 52.000000000000000000
end
object FlowLayoutMedia: TFlowLayout
Align = Top
ClipChildren = True
HitTest = False
Margins.Top = 4.000000000000000000
Position.Y = 77.000000000000000000
Size.Width = 428.000000000000000000
Size.Height = 64.000000000000000000
Size.PlatformDefault = False
TabOrder = 2
Justify = Left
JustifyLastLine = Left
FlowDirection = LeftToRight
HorizontalGap = 5.000000000000000000
VerticalGap = 5.000000000000000000
OnResize = FlowLayoutMediaResize
end
object LayoutUpdated: TLayout
Align = MostBottom
Position.Y = 269.000000000000000000
Size.Width = 428.000000000000000000
Size.Height = 20.000000000000000000
Size.PlatformDefault = False
TabOrder = 3
object LabelUpdated: TLabel
Align = Left
AutoSize = True
StyledSettings = [Style]
HitTest = True
Size.Width = 35.000000000000000000
Size.Height = 20.000000000000000000
Size.PlatformDefault = False
TextSettings.Font.Family = 'Roboto'
TextSettings.Font.Size = 13.000000000000000000
TextSettings.FontColor = xFF656565
TextSettings.WordWrap = False
Text = '('#1088#1077#1076'.)'
ParentShowHint = False
ShowHint = True
TabOrder = 0
end
end
object LayoutFwdMessages: TLayout
Align = Bottom
Position.Y = 201.000000000000000000
Size.Width = 428.000000000000000000
Size.Height = 50.000000000000000000
Size.PlatformDefault = False
TabOrder = 5
OnResize = LayoutFwdMessagesResize
end
object LayoutDeleted: TLayout
Align = Bottom
Position.Y = 251.000000000000000000
Size.Width = 428.000000000000000000
Size.Height = 18.000000000000000000
Size.PlatformDefault = False
TabOrder = 4
OnResize = LayoutFwdMessagesResize
object LabelMesDeleted: TLabel
Align = MostLeft
AutoSize = True
Cursor = crHandPoint
StyledSettings = []
Margins.Right = 6.000000000000000000
Size.Width = 127.000000000000000000
Size.Height = 18.000000000000000000
Size.PlatformDefault = False
TextSettings.Font.Family = 'Roboto'
TextSettings.Font.Size = 13.000000000000000000
TextSettings.FontColor = xFFE1E3E6
TextSettings.WordWrap = False
Text = #1057#1086#1086#1073#1097#1077#1085#1080#1077' '#1091#1076#1072#1083#1077#1085#1086'.'
ParentShowHint = False
ShowHint = True
TabOrder = 1
end
object LabelRestoreMessage: TLabel
Align = MostLeft
AutoSize = True
Cursor = crHandPoint
StyledSettings = []
HitTest = True
Margins.Right = 6.000000000000000000
Position.X = 133.000000000000000000
Size.Width = 87.000000000000000000
Size.Height = 18.000000000000000000
Size.PlatformDefault = False
TextSettings.Font.Family = 'Roboto'
TextSettings.Font.Size = 13.000000000000000000
TextSettings.FontColor = xFF71AAEB
TextSettings.WordWrap = False
Text = #1042#1086#1089#1089#1090#1072#1085#1086#1074#1080#1090#1100
TabOrder = 0
OnClick = LabelRestoreMessageClick
OnMouseEnter = LabelFromMouseEnter
OnMouseLeave = LabelFromMouseLeave
end
end
end
object LayoutLeft: TLayout
Align = Left
Margins.Left = 6.000000000000000000
Position.X = 6.000000000000000000
Position.Y = 7.000000000000000000
Size.Width = 80.000000000000000000
Size.Height = 289.000000000000000000
Size.PlatformDefault = False
TabOrder = 0
object LayoutLeftTop: TLayout
Align = Top
Margins.Top = 1.000000000000000000
Position.Y = 1.000000000000000000
Size.Width = 80.000000000000000000
Size.Height = 36.000000000000000000
Size.PlatformDefault = False
TabOrder = 0
object CircleAvatar: TCircle
Align = Right
Cursor = crHandPoint
Fill.Bitmap.Bitmap.PNG = {
89504E470D0A1A0A0000000D49484452000000300000003008060000005702F9
87000000017352474200AECE1CE90000000467414D410000B18F0BFC61050000
07A8494441546843D599D953537714C7BFC9CD0D242124212C02B20888A88068
15ACD66AB5CCB4B5DAA94E6B1FEA431F7CB48FFD27FA563BED4C3BED74C62E2E
A53A53A73A95295AEDA865DC50AA10B155104496A00102D9E839977B3537EB0D
C176F8CC6472F3CB5DCEF9FDCEEF6C5737436001A397BF172C0B5E817933A150
2884C9292F7D26E19D9E823F1890C618BD5E0F5130C094910973A6893E66E874
3AE9932E6929C0974E4E7B716FA017AEDEBB18181EC4F0D828DC4FDC344E4AF8
FDD279A228C24CC23BB21DC8B5E7A030B7004B4B2A50565842E3A6B41499B302
7CD9C5CECBF8E3FA253C1C7984B1278F119A999DF164E8757AD8AD362CCACDC7
C6FA26ACAF7D61CE4AA4ACC08477125DF7EFA0F5D259DCBEE79247D3A3A6AC0A
CD4D5B505D5AF9D4BCB49292028FC79FE0A7B613B872BB031364EBF38985045F
53538FB7B76C9756472B9A1560FB6E21E1AF757590A9CC79DB24444F33DFB0AC
0EBB5FD921ED132D6852A0C3D58943A78F49B6FE5FB0C8998F3DCD6FA3BE6A45
52734A1A0778E6D3175E84C36A968F93C3CF3AACF1990915609B6FF9EDC43CCC
7C108EF24DD854989A122D6D3F4B322422AE02EC6D78C35EEBEE9047D2218421
2FB0B9792F9A6BCA60D418FFAF75DD906418F74EC823D1C4BD5537B94AF636F3
B5613D14E082193634D6BF8CA602F632C9EFCBCF6619BAEFF7487127163115E0
934F939F9F5757E91EC1307D19ED45D8B8E955541AB4F97A9681634E3CA21460
E139C2A61AA40C82201FC521388291F1D94393BD12AFBDB416B9E461B4AC2FCB
72F1E6E598AB10A500E7369C1EA484311F0D95C510435ACD4D076749031A163B
2106B55DC33271B2184994029C98A5E6756C58DDB805AB17E7C3E2F12798D12C
584CF2212198EC584E29843D43AF691558A67B0FFBE45FCF5029C0E92F67959C
9869422720BFA2161BCA4BE0B42F4579A19122A3FC9F0A3DB2AA96A352656502
9CCBEBD06873B2DDCA63F119F33C26D97A9EA6E80A2A057889387069CE2A33EC
58595103A799727D471ED6D5BF8022A341FE57410F8BA31ADB5656D3B17AE3EA
7439A86F288738955C019689658B742C110A4C4AF9BC566CD9E5A82C76D05C12
82098B6B5EC4AECD6FA2714901328D3466B6A0A4AA09DB5FDE8ADA5C2B09CC27
AA31952EC792904F93198D906C91FB40950BB1FD7F72F80BB869B9B450B3E103
BC579BAF9E57BA5DB4305C7DC98751CCE0C6A9CF70F48E073A6362D7EAB0DAF1
E19E7D5221A4A05A012E03B992D2860D2BCAF2228C8220493901537FE4FFE0C3
E0FD5B703D7C1C66F6E4914ACB61F50692AE027B487F60B6CA5388DAC44A1998
1473318AB3E4638DDC6DFF1D47BFF91117EEA8CD34C39207AB10947FC52740C2
07136DE25430503948FE23217EAF17C38FFAF1CF8D769C3CF8293E6F69457F96
0E8F7C6CA2CFE6DB64CAA57A994692E8106B85540A48DD032AC0B56035C5CF2C
BD43FFA0FD5C1B7EF9E9387E3874105F1D3986B3BD43C8586C8398254A79D1B4
7C2E633088C81033319324108A749E403286A3FAC5AD0FEE1EA485A70B47BEFE
1E3FB7B5E1D2800B83080045561873CD10943494F659E44E93844F120FB883C1
CA86A35280FB36DCFA98334137CEB79C40A78F842E30C3603542C834402FE8D5
9B9D262A325A682127DB2EC9188E4A016E3A71DF460B5E5FB811C87847F1C01D
A0D9A6882C7BA058643A7260918F9920793FFF748CFB45E024D958C670221430
4BC534F76D9231F5A097CC2306949526BEDC86BA8A22F97896094F1F061F91F7
8BA330C332153A0BA4EE4538AA47F18C71C74C535BC3D78DAB7F4F50B1188625
079505F14D50A737A0B86A159A0AF3C384F5A3EFCA65F40922F4096A04966969
6945D4AA4629C0518E3B665A70DDBA84C1F0C8AE73606DF356D4D8388F882403
95151BB07DF52AE451EEF4548CD16EB4750C40B088891640EA54942D2A49AC00
C33B9DDB7D5A700FBA70F56EAFDAA3E42CC1CEAD6FE1F5DAA528B2DB28FC3B51
545487E66D3BB163FD3A143BC24DC08DCB27CFA25F4FDEC594B820DAB8AA31CA
FE99987D211EFAF8E001AA84EEC8230930E6E1A517B7614B752944657662E643
04FDAFCC9F7FCA8DEBBF1EC72F175CF09567434830FDCBA86EF868EFFEA8D967
626E373E917B95911B2626BE219CFFA315E73B3AE11EF7CD8EB1A0B13EB3FF92
B3EAC79963C7F16B7B17A60AB24888F8C2B30C2C4B3CE2FA0B6EB472AF92DB7D
49090CE35C7B2B8EB5B5A2E3BE277E3CF27BD17FE31C0E7FF73DDAFEEAC1447E
B6643AF11EC19E8765605978026211B7B5C8C3DC54FAF6D451A9B5911CBE0D15
E953D3981977A07445054AAD79C8CD0AC1EB19C2D0831EDCECEC87473440B09B
206653440D5B9558AC59568FF7DF7807364B76EA0A28701574E0C89729D6C9B4
07020184268394E1066932D88404E8CDE42A299DD0B0A692D7D9FFEEBEA44D5E
4DCDDDEBAE4ECDBDCAF92095E6AE2605F814A557C9EDBEE7DA5EAFAEC3EEAD3B
242598795140E179BFE0584D1B76D72BDB61CF7A0E2F3814B8D1DA7DAF07A7FF
3C832E2D714203ECE795574CAC48B2590F27650518E5126EF73D7DC9E799C34B
3E32138EB0EB6BD74AE3A908AE30270514F8526E7370C78C9B4EECB1B8F531FA
644C2AC0B986E59B7325C5290AE7F39C127356C98919E7369C1ECC457085B414
08871B02BC2F58A1297E471C56807319C89594F2A25B3193740457983705FE2F
E2A6120B8505AE00F02F84F0376F7CFFE4530000000049454E44AE426082}
Fill.Bitmap.WrapMode = TileStretch
Fill.Kind = Bitmap
Margins.Right = 14.000000000000000000
Position.X = 30.000000000000000000
Size.Width = 36.000000000000000000
Size.Height = 36.000000000000000000
Size.PlatformDefault = False
Stroke.Kind = None
end
object LayoutSelectedIcon: TLayout
Align = Left
Margins.Left = -1.000000000000000000
Position.X = -1.000000000000000000
Size.Width = 17.500000000000000000
Size.Height = 36.000000000000000000
Size.PlatformDefault = False
TabOrder = 0
object PathSelected: TPath
Align = Left
Data.Path = {
2400000000000000000000410000704102000000C84984400000704102000000
0000803F1CDB3D41020000000400803F00000041020000000800803FC6498440
02000000CA498440F8FF7F3F02000000010000410400803F020000001DDB3D41
0000803F0200000001007041C849844002000000000070410000004102000000
010070411CDB3D41020000001DDB3D4100007041020000000100004100007041
030000000000004100007041000000000000C0407B14FE4002000000E71AB640
BC3DF540020000001BEBA640E718F640020000005E149E4000FEFF4002000000
123D9540DCF1044102000000FA189640518A0C41020000007AFF9F4086F51041
01000000CCB7CE4053C225410200000047CCDC40CED62B4102000000FFEAF140
010A2B4102000000E065FE40B9282441010000008EADFF40EC5B234101000000
2E3D2E41D8B7CE4002000000154E32415A34C44002000000F5563141D516B540
0200000036152C4108F5AC400200000000D3264182D2A440020000007D431F41
E9C1A64002000000E2321B415947B140010000003333E3405C8F0E4101000000
0000C0407B14FE40030000000000C0407B14FE40}
Fill.Color = xFF71AAEB
HitTest = False
Margins.Left = 1.000000000000000000
Position.X = 1.000000000000000000
Size.Width = 15.699999809265140000
Size.Height = 36.000000000000000000
Size.PlatformDefault = False
Stroke.Kind = None
WrapMode = Fit
end
end
end
end
object LayoutRight: TLayout
Align = Right
Margins.Left = -4.000000000000000000
Margins.Right = 5.000000000000000000
Position.X = 510.000000000000000000
Position.Y = 7.000000000000000000
Size.Width = 49.000000000000000000
Size.Height = 289.000000000000000000
Size.PlatformDefault = False
TabOrder = 1
object LayoutRightTop: TLayout
Align = Top
Size.Width = 49.000000000000000000
Size.Height = 24.000000000000000000
Size.PlatformDefault = False
TabOrder = 0
object ButtonFavorite: TButton
Tag = 1
Align = MostRight
HelpContext = 1
Position.X = 25.000000000000000000
Size.Width = 24.000000000000000000
Size.Height = 24.000000000000000000
Size.PlatformDefault = False
StyleLookup = 'buttonstyle_msg_star'
TabOrder = 2
Text = 'ButtonFavorite'
OnClick = ButtonFavoriteClick
OnMouseEnter = FrameMouseEnter
OnMouseLeave = FrameMouseLeave
end
object ButtonEdit: TButton
Tag = 1
Align = Right
HelpContext = 1
Hint = #1056#1077#1076#1072#1082#1090#1080#1088#1086#1074#1072#1090#1100
Position.X = 1.000000000000000000
Size.Width = 24.000000000000000000
Size.Height = 24.000000000000000000
Size.PlatformDefault = False
StyleLookup = 'buttonstyle_msg_edit'
TabOrder = 1
Text = 'ButtonFavorite'
OnClick = ButtonFavoriteClick
OnMouseEnter = FrameMouseEnter
OnMouseLeave = FrameMouseLeave
end
object ButtonReply: TButton
Tag = 1
Align = Right
HelpContext = 1
Hint = #1054#1090#1074#1077#1090#1080#1090#1100
Position.X = -23.000000000000000000
Size.Width = 24.000000000000000000
Size.Height = 24.000000000000000000
Size.PlatformDefault = False
StyleLookup = 'buttonstyle_msg_reply'
TabOrder = 0
Text = 'ButtonFavorite'
OnClick = ButtonFavoriteClick
OnMouseEnter = FrameMouseEnter
OnMouseLeave = FrameMouseLeave
end
end
end
end
end