-
Notifications
You must be signed in to change notification settings - Fork 0
/
formcontrol.lfm
320 lines (320 loc) · 8.96 KB
/
formcontrol.lfm
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
object FrmControl: TFrmControl
Left = 712
Height = 414
Top = 292
Width = 492
Caption = 'Управление табло'
ClientHeight = 414
ClientWidth = 492
DefaultMonitor = dmDesktop
DesignTimePPI = 120
KeyPreview = True
OnCreate = FormCreate
OnDestroy = FormDestroy
OnShow = FormShow
Position = poScreenCenter
SessionProperties = 'ChckBxTelegram.Checked;ChckBxTelegramHandout.Checked;ChckBxTelegramScoreWhileMaximize.Checked;EdtChat.Text;EdtNameLeft.Text;EdtNameRight.Text;EdtToken.Text;RdGrpMonitors.ItemIndex;SpnEdtScoreLeft.Value;SpnEdtScoreRight.Value'
LCLVersion = '3.2.0.0'
object PgCntrlMain: TPageControl
Left = 0
Height = 288
Top = 0
Width = 492
ActivePage = TbShtHome
Align = alTop
TabIndex = 0
TabOrder = 0
object TbShtHome: TTabSheet
Caption = 'Управление'
ClientHeight = 255
ClientWidth = 484
object PgCntrlControl: TPageControl
Left = 0
Height = 255
Top = 0
Width = 484
ActivePage = TbShtControlScore
Align = alClient
ParentShowHint = False
Style = tsFlatButtons
TabIndex = 0
TabOrder = 0
object TbShtControlScore: TTabSheet
Caption = 'Счет'
ClientHeight = 219
ClientWidth = 476
object SpnEdtScoreLeft: TSpinEdit
Left = 16
Height = 38
Top = 128
Width = 120
Font.Height = 30
MaxValue = 6
OnChange = SpnEdtScoreLeftChange
ParentFont = False
TabOrder = 0
end
object LblLeftScore: TLabel
Left = 24
Height = 20
Top = 104
Width = 74
Caption = 'Счет слева'
ParentColor = False
end
object SpnEdtScoreRight: TSpinEdit
Left = 256
Height = 38
Top = 128
Width = 120
Font.Height = 30
MaxValue = 6
OnChange = SpnEdtScoreRightChange
ParentFont = False
TabOrder = 1
end
object LblRightScore: TLabel
Left = 264
Height = 20
Top = 104
Width = 84
Caption = 'Счет справа'
ParentColor = False
end
object EdtNameLeft: TLabeledEdit
Left = 16
Height = 31
Top = 48
Width = 208
EditLabel.Height = 20
EditLabel.Width = 208
EditLabel.Caption = 'Слева'
EditLabel.ParentColor = False
Font.Height = 24
ParentFont = False
TabOrder = 2
OnChange = EdtNameLeftChange
end
object EdtNameRight: TLabeledEdit
Left = 256
Height = 31
Top = 48
Width = 208
EditLabel.Height = 20
EditLabel.Width = 208
EditLabel.Caption = 'Справа'
EditLabel.ParentColor = False
Font.Height = 24
ParentFont = False
TabOrder = 3
OnChange = EdtNameRightChange
end
object BtnScoreAddLeft: TButton
Left = 136
Height = 38
Top = 128
Width = 88
Caption = '+'
Font.Height = 30
Font.Style = [fsBold]
ParentFont = False
TabOrder = 4
OnClick = BtnScoreAddLeftClick
end
object BtnScoreAddRight: TButton
Left = 376
Height = 39
Top = 128
Width = 88
Caption = '+'
Font.Height = 30
Font.Style = [fsBold]
ParentFont = False
TabOrder = 5
OnClick = BtnScoreAddRightClick
end
end
object TbShtAnswers: TTabSheet
Caption = 'Ответы'
ClientHeight = 219
ClientWidth = 476
object Memo1: TMemo
Left = 0
Height = 186
Top = 33
Width = 476
Align = alClient
Color = clBtnFace
ReadOnly = True
ScrollBars = ssAutoBoth
TabOrder = 0
end
object ToolBar1: TToolBar
Left = 0
Height = 33
Top = 0
Width = 476
Caption = 'ToolBar1'
TabOrder = 1
object TglBxReceive: TToggleBox
Left = 1
Height = 28
Top = 2
Width = 94
Caption = 'Принимать'
TabOrder = 0
OnChange = TglBxReceiveChange
end
end
end
end
end
object TbShtHandout: TTabSheet
Caption = 'Раздат. материал'
ClientHeight = 255
ClientWidth = 484
object EdtHandoutFile: TFileNameEdit
Left = 8
Height = 28
Top = 32
Width = 457
OnAcceptFileName = EdtHandoutFileAcceptFileName
FilterIndex = 0
HideDirectories = False
ButtonWidth = 29
NumGlyphs = 1
MaxLength = 0
TabOrder = 0
end
object LblHandoutFile: TLabel
Left = 16
Height = 20
Top = 8
Width = 136
Caption = 'Файл изображения'
FocusControl = EdtHandoutFile
ParentColor = False
end
end
object TbShtOptions: TTabSheet
Caption = 'Настройки'
ClientHeight = 255
ClientWidth = 484
object PgCntrlOptions: TPageControl
Left = 0
Height = 255
Top = 0
Width = 484
ActivePage = TbShtTelegram
Align = alClient
Style = tsFlatButtons
TabIndex = 0
TabOrder = 0
object TbShtTelegram: TTabSheet
Caption = 'Телеграм'
ClientHeight = 219
ClientWidth = 476
object EdtToken: TLabeledEdit
Left = 8
Height = 28
Top = 128
Width = 436
EditLabel.Height = 20
EditLabel.Width = 436
EditLabel.Caption = 'Токен бота'
EditLabel.ParentColor = False
TabOrder = 0
end
object EdtChat: TLabeledEdit
Left = 8
Height = 28
Top = 184
Width = 288
EditLabel.Height = 20
EditLabel.Width = 288
EditLabel.Caption = 'ID чата (канал, группа или личный чат)'
EditLabel.ParentColor = False
TabOrder = 1
end
object ChckBxTelegram: TCheckBox
Left = 8
Height = 24
Top = 8
Width = 188
Caption = 'Синхронизировать счёт'
TabOrder = 2
OnChange = ChckBxTelegramChange
end
object ChckBxTelegramHandout: TCheckBox
Left = 8
Height = 24
Top = 64
Width = 396
Caption = 'Отправлять "раздатку" при разворачивании на экран'
TabOrder = 3
end
object ChckBxTelegramScoreWhileMaximize: TCheckBox
Left = 48
Height = 24
Top = 32
Width = 267
Caption = 'Только при разворачивании табло'
TabOrder = 4
end
end
object TbShtMonitors: TTabSheet
Caption = 'Мониторы'
ClientHeight = 219
ClientWidth = 476
object RdGrpMonitors: TRadioGroup
Left = 8
Height = 88
Top = 8
Width = 448
AutoFill = True
Caption = 'Мониторы'
ChildSizing.LeftRightSpacing = 6
ChildSizing.EnlargeHorizontal = crsHomogenousChildResize
ChildSizing.EnlargeVertical = crsHomogenousChildResize
ChildSizing.ShrinkHorizontal = crsScaleChilds
ChildSizing.ShrinkVertical = crsScaleChilds
ChildSizing.Layout = cclLeftToRightThenTopToBottom
ChildSizing.ControlsPerLine = 2
ClientHeight = 63
ClientWidth = 444
Columns = 2
ItemIndex = 0
Items.Strings = (
'Первый'
'Второй'
)
TabOrder = 0
end
end
end
end
end
object BtnFullScreen: TButton
Left = 16
Height = 47
Top = 296
Width = 448
Caption = 'Развернуть/свернуть табло (F11)'
TabOrder = 1
OnClick = BtnFullScreenClick
end
object BtnHandout: TButton
Left = 16
Height = 47
Top = 344
Width = 448
Caption = 'Раздаточный материал (F11)'
TabOrder = 2
OnClick = BtnHandoutClick
end
object InPrpStrg: TIniPropStorage
StoredValues = <>
Left = 296
Top = 40
end
end