VKMessengerFMX/ChatFMX.Frame.Attachment.Poll.fmx at main · HemulGM/VKMessengerFMX · GitHub

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
inherited FrameAttachmentPoll: TFrameAttachmentPoll
  Padding.Top = 10.000000000000000000
  Size.Width = 421.000000000000000000
  Size.Height = 557.000000000000000000
  OnResized = FrameResized
  object LayoutBG: TLayout
    Align = Client
    Size.Width = 421.000000000000000000
    Size.Height = 547.000000000000000000
    Size.PlatformDefault = False
    TabOrder = 2
    object RectangleBackground: TRectangle
      Align = Top
      Fill.Kind = Gradient
      Fill.Gradient.Points = <
        item
          Color = xFFF24973
          Offset = 0.000000000000000000
        end
        item
          Color = xFF3948E6
          Offset = 1.000000000000000000
        end>
      Fill.Gradient.StopPosition.X = 1.000000000000000000
      Size.Width = 421.000000000000000000
      Size.Height = 200.000000000000000000
      Size.PlatformDefault = False
      Stroke.Kind = None
      XRadius = 8.000000000000000000
      YRadius = 8.000000000000000000
    end
    object RectangleGradient: TRectangle
      Align = Contents
      Fill.Kind = Gradient
      Fill.Gradient.Points = <
        item
          Color = x00707B8A
          Offset = 0.000000000000000000
        end
        item
          Color = xFF707B8A
          Offset = 0.350931674242019700
        end>
      Size.Width = 421.000000000000000000
      Size.Height = 547.000000000000000000
      Size.PlatformDefault = False
      Stroke.Kind = None
      XRadius = 8.000000000000000000
      YRadius = 8.000000000000000000
    end
    object RectangleFrame: TRectangle
      Align = Contents
      Fill.Kind = None
      Locked = True
      HitTest = False
      Size.Width = 421.000000000000000000
      Size.Height = 547.000000000000000000
      Size.PlatformDefault = False
      Stroke.Color = x29FFFFFF
      Visible = False
      XRadius = 8.000000000000000000
      YRadius = 8.000000000000000000
    end
  end
  object LayoutClient: TLayout
    Align = Client
    ClipChildren = True
    Size.Width = 421.000000000000000000
    Size.Height = 547.000000000000000000
    Size.PlatformDefault = False
    TabOrder = 1
    object LayoutHead: TLayout
      Align = Top
      Padding.Left = 40.000000000000000000
      Padding.Right = 40.000000000000000000
      Size.Width = 421.000000000000000000
      Size.Height = 200.000000000000000000
      Size.PlatformDefault = False
      TabOrder = 0
      object LayoutText: TLayout
        Align = Center
        Size.Width = 303.000000000000000000
        Size.Height = 147.000000000000000000
        Size.PlatformDefault = False
        TabOrder = 0
        object LabelSubtitle: TLabel
          Align = Top
          AutoSize = True
          StyledSettings = [Style]
          Position.Y = 70.000000000000000000
          Size.Width = 303.000000000000000000
          Size.Height = 17.000000000000000000
          Size.PlatformDefault = False
          TextSettings.Font.Family = 'Roboto'
          TextSettings.Font.Size = 14.000000000000000000
          TextSettings.FontColor = xD6FFFFFF
          TextSettings.HorzAlign = Center
          Text = #1055#1091#1073#1083#1080#1095#1085#1099#1081' '#1086#1087#1088#1086#1089
          TabOrder = 1
        end
        object LabelAuthor: TLabel
          Align = Top
          AutoSize = True
          StyledSettings = [Style]
          HitTest = True
          Margins.Top = 12.000000000000000000
          Margins.Bottom = 4.000000000000000000
          Position.Y = 49.000000000000000000
          Size.Width = 303.000000000000000000
          Size.Height = 17.000000000000000000
          Size.PlatformDefault = False
          TextSettings.Font.Family = 'Roboto'
          TextSettings.Font.Size = 14.000000000000000000
          TextSettings.FontColor = xD6FFFFFF
          TextSettings.HorzAlign = Center
          TextSettings.WordWrap = False
          Text = #1040#1074#1090#1086#1088' '#1086#1087#1088#1086#1089#1072
          TabOrder = 2
        end
        object LabelQuestion: TLabel
          Align = Top
          AutoSize = True
          StyledSettings = []
          Margins.Top = 10.000000000000000000
          Position.Y = 10.000000000000000000
          Size.Width = 303.000000000000000000
          Size.Height = 27.000000000000000000
          Size.PlatformDefault = False
          TextSettings.Font.Family = 'Roboto'
          TextSettings.Font.Size = 22.000000000000000000
          TextSettings.Font.StyleExt = {00070000000000000004000000}
          TextSettings.FontColor = claWhite
          TextSettings.HorzAlign = Center
          Text = #1058#1077#1082#1089#1090' '#1074#1086#1087#1088#1086#1089#1072' '#1086#1087#1088#1086#1089#1072'?'
          TabOrder = 0
        end
      end
      object LayoutOptions: TLayout
        Anchors = [akTop, akRight]
        Cursor = crHandPoint
        HitTest = True
        Position.X = 382.000000000000000000
        Position.Y = 5.000000000000000000
        Size.Width = 33.000000000000000000
        Size.Height = 33.000000000000000000
        Size.PlatformDefault = False
        TabOrder = 1
        OnClick = LayoutOptionsClick
        object Path1: TPath
          Align = Center
          Data.Path = {
            2A00000000000000000040420000044302000000EC943B420000044302000000
            00003842C51A034302000000000038420000024302000000000038423BE50043
            02000000EC943B420000004302000000000040420000004302000000146B4442
            0000004302000000000048423BE5004302000000000048420000024302000000
            00004842C51A034302000000146B444200000443020000000000404200000443
            03000000000040420000044300000000000024420000044302000000EC941F42
            000004430200000000001C42C51A03430200000000001C420000024302000000
            00001C423BE5004302000000EC941F4200000043020000000000244200000043
            02000000146B2842000000430200000000002C423BE500430200000000002C42
            000002430200000000002C42C51A034302000000146B28420000044302000000
            0000244200000443030000000000244200000443000000000000084200000443
            02000000EC940342000004430200000000000042C51A03430200000000000042
            0000024302000000000000423BE5004302000000EC9403420000004302000000
            000008420000004302000000146B0C420000004302000000000010423BE50043
            0200000000001042000002430200000000001042C51A034302000000146B0C42
            00000443020000000000084200000443030000000000084200000443}
          Fill.Color = claWhite
          Locked = True
          HitTest = False
          Size.Width = 18.000000000000000000
          Size.Height = 4.000000000000000000
          Size.PlatformDefault = False
          Stroke.Kind = None
          WrapMode = Fit
        end
      end
    end
    object LayoutAnswers: TLayout
      Align = Client
      ClipChildren = True
      Padding.Left = 20.000000000000000000
      Padding.Right = 20.000000000000000000
      Size.Width = 421.000000000000000000
      Size.Height = 291.000000000000000000
      Size.PlatformDefault = False
      TabOrder = 1
      object Button1: TButton
        Align = Top
        Margins.Top = 5.000000000000000000
        Margins.Bottom = 5.000000000000000000
        Position.X = 20.000000000000000000
        Position.Y = 5.000000000000000000
        Size.Width = 381.000000000000000000
        Size.Height = 30.000000000000000000
        Size.PlatformDefault = False
        StyleLookup = 'button_vote_answer'
        TabOrder = 6
        Text = 'Button1'
        TextSettings.HorzAlign = Leading
      end
      object Button2: TButton
        Align = Top
        Margins.Top = 5.000000000000000000
        Margins.Bottom = 5.000000000000000000
        Position.X = 20.000000000000000000
        Position.Y = 205.000000000000000000
        Size.Width = 381.000000000000000000
        Size.Height = 30.000000000000000000
        Size.PlatformDefault = False
        StyleLookup = 'button_vote_answer'
        TabOrder = 5
        Text = 'Button1'
        TextSettings.HorzAlign = Leading
      end
      object Button3: TButton
        Align = Top
        Margins.Top = 5.000000000000000000
        Margins.Bottom = 5.000000000000000000
        Position.X = 20.000000000000000000
        Position.Y = 125.000000000000000000
        Size.Width = 381.000000000000000000
        Size.Height = 30.000000000000000000
        Size.PlatformDefault = False
        StyleLookup = 'button_vote_answer'
        TabOrder = 3
        Text = 'Button1'
        TextSettings.HorzAlign = Leading
      end
      object Button4: TButton
        Align = Top
        Margins.Top = 5.000000000000000000
        Margins.Bottom = 5.000000000000000000
        Position.X = 20.000000000000000000
        Position.Y = 45.000000000000000000
        Size.Width = 381.000000000000000000
        Size.Height = 30.000000000000000000
        Size.PlatformDefault = False
        StyleLookup = 'button_vote_answer'
        TabOrder = 1
        Text = 'Button1'
        TextSettings.HorzAlign = Leading
      end
      object Button5: TButton
        Align = Top
        Margins.Top = 5.000000000000000000
        Margins.Bottom = 5.000000000000000000
        Position.X = 20.000000000000000000
        Position.Y = 245.000000000000000000
        Size.Width = 381.000000000000000000
        Size.Height = 30.000000000000000000
        Size.PlatformDefault = False
        StyleLookup = 'button_vote_answer'
        TabOrder = 4
        Text = 'Button1'
        TextSettings.HorzAlign = Leading
      end
      object Button6: TButton
        Align = Top
        Margins.Top = 5.000000000000000000
        Margins.Bottom = 5.000000000000000000
        Position.X = 20.000000000000000000
        Position.Y = 165.000000000000000000
        Size.Width = 381.000000000000000000
        Size.Height = 30.000000000000000000
        Size.PlatformDefault = False
        StyleLookup = 'button_vote_answer'
        TabOrder = 2
        Text = 'Button1'
        TextSettings.HorzAlign = Leading
      end
      object Button7: TButton
        Align = Top
        Margins.Top = 5.000000000000000000
        Margins.Bottom = 5.000000000000000000
        Position.X = 20.000000000000000000
        Position.Y = 85.000000000000000000
        Size.Width = 381.000000000000000000
        Size.Height = 30.000000000000000000
        Size.PlatformDefault = False
        StyleLookup = 'button_vote_answer'
        TabOrder = 0
        Text = 'Button1'
        TextSettings.HorzAlign = Leading
      end
    end
    object LayoutFooter: TLayout
      Align = Bottom
      Position.Y = 491.000000000000000000
      Size.Width = 421.000000000000000000
      Size.Height = 56.000000000000000000
      Size.PlatformDefault = False
      TabOrder = 2
      object LabelVotes: TLabel
        Align = Center
        AutoSize = True
        StyledSettings = [Style]
        Size.Width = 159.000000000000000000
        Size.Height = 16.000000000000000000
        Size.PlatformDefault = False
        TextSettings.Font.Family = 'Roboto'
        TextSettings.Font.Size = 13.000000000000000000
        TextSettings.FontColor = xD6FFFFFF
        TextSettings.WordWrap = False
        Text = #1055#1088#1086#1075#1086#1083#1086#1089#1086#1074#1072#1083#1080' n '#1095#1077#1083#1086#1074#1077#1082
        TabOrder = 0
      end
      object ButtonVote: TButton
        Align = Center
        StyledSettings = [Family, Style]
        Size.Width = 120.000000000000000000
        Size.Height = 26.000000000000000000
        Size.PlatformDefault = False
        StyleLookup = 'button_simple'
        TabOrder = 1
        Text = #1055#1088#1086#1075#1086#1083#1086#1089#1086#1074#1072#1090#1100
        TextSettings.Font.Family = 'Roboto'
        TextSettings.Font.Size = 12.500000000000000000
        OnClick = ButtonVoteClick
      end
    end
  end
end