-
Notifications
You must be signed in to change notification settings - Fork 0
/
Copy pathtombolamax_generate.lfm
389 lines (389 loc) · 12.9 KB
/
tombolamax_generate.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
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
object FormGenerate: TFormGenerate
Left = 249
Height = 322
Top = 122
Width = 390
BorderIcons = [biSystemMenu]
BorderStyle = bsDialog
Caption = 'Genera Cartelle'
ClientHeight = 322
ClientWidth = 390
Position = poScreenCenter
LCLVersion = '3.99.0.0'
object btGenerate: TBCButton
Left = 128
Height = 33
Top = 278
Width = 123
StateClicked.Background.Gradient1.StartColor = 8404992
StateClicked.Background.Gradient1.EndColor = 4194304
StateClicked.Background.Gradient1.GradientType = gtRadial
StateClicked.Background.Gradient1.Point1XPercent = 50
StateClicked.Background.Gradient1.Point1YPercent = 100
StateClicked.Background.Gradient1.Point2XPercent = 0
StateClicked.Background.Gradient1.Point2YPercent = 0
StateClicked.Background.Gradient2.StartColor = clWhite
StateClicked.Background.Gradient2.EndColor = clBlack
StateClicked.Background.Gradient2.GradientType = gtLinear
StateClicked.Background.Gradient2.Point1XPercent = 0
StateClicked.Background.Gradient2.Point1YPercent = 0
StateClicked.Background.Gradient2.Point2XPercent = 0
StateClicked.Background.Gradient2.Point2YPercent = 100
StateClicked.Background.Gradient1EndPercent = 100
StateClicked.Background.Style = bbsGradient
StateClicked.Border.Style = bboNone
StateClicked.FontEx.Color = 16770790
StateClicked.FontEx.FontQuality = fqSystemClearType
StateClicked.FontEx.Shadow = True
StateClicked.FontEx.ShadowRadius = 2
StateClicked.FontEx.ShadowOffsetX = 1
StateClicked.FontEx.ShadowOffsetY = 1
StateClicked.FontEx.Style = [fsBold]
StateHover.Background.Gradient1.StartColor = 16744448
StateHover.Background.Gradient1.EndColor = 8404992
StateHover.Background.Gradient1.GradientType = gtRadial
StateHover.Background.Gradient1.Point1XPercent = 50
StateHover.Background.Gradient1.Point1YPercent = 100
StateHover.Background.Gradient1.Point2XPercent = 0
StateHover.Background.Gradient1.Point2YPercent = 0
StateHover.Background.Gradient2.StartColor = clWhite
StateHover.Background.Gradient2.EndColor = clBlack
StateHover.Background.Gradient2.GradientType = gtLinear
StateHover.Background.Gradient2.Point1XPercent = 0
StateHover.Background.Gradient2.Point1YPercent = 0
StateHover.Background.Gradient2.Point2XPercent = 0
StateHover.Background.Gradient2.Point2YPercent = 100
StateHover.Background.Gradient1EndPercent = 100
StateHover.Background.Style = bbsGradient
StateHover.Border.Style = bboNone
StateHover.FontEx.Color = clWhite
StateHover.FontEx.FontQuality = fqSystemClearType
StateHover.FontEx.Shadow = True
StateHover.FontEx.ShadowRadius = 2
StateHover.FontEx.ShadowOffsetX = 1
StateHover.FontEx.ShadowOffsetY = 1
StateHover.FontEx.Style = [fsBold]
StateNormal.Background.Gradient1.StartColor = 4194304
StateNormal.Background.Gradient1.EndColor = 8405056
StateNormal.Background.Gradient1.GradientType = gtLinear
StateNormal.Background.Gradient1.Point1XPercent = 0
StateNormal.Background.Gradient1.Point1YPercent = 0
StateNormal.Background.Gradient1.Point2XPercent = 0
StateNormal.Background.Gradient1.Point2YPercent = 100
StateNormal.Background.Gradient2.StartColor = 8405056
StateNormal.Background.Gradient2.EndColor = 4194304
StateNormal.Background.Gradient2.GradientType = gtRadial
StateNormal.Background.Gradient2.Point1XPercent = 50
StateNormal.Background.Gradient2.Point1YPercent = 100
StateNormal.Background.Gradient2.Point2XPercent = 0
StateNormal.Background.Gradient2.Point2YPercent = 0
StateNormal.Background.Gradient1EndPercent = 60
StateNormal.Background.Style = bbsGradient
StateNormal.Border.Style = bboNone
StateNormal.FontEx.Color = 16770790
StateNormal.FontEx.FontQuality = fqSystemClearType
StateNormal.FontEx.Shadow = True
StateNormal.FontEx.ShadowRadius = 2
StateNormal.FontEx.ShadowOffsetX = 1
StateNormal.FontEx.ShadowOffsetY = 1
StateNormal.FontEx.Style = [fsBold]
Caption = 'Genera'
Color = clNone
DropDownWidth = 16
DropDownArrowSize = 8
GlobalOpacity = 255
OnClick = btGenerateClick
ParentColor = False
Rounding.RoundX = 12
Rounding.RoundY = 12
RoundingDropDown.RoundX = 1
RoundingDropDown.RoundY = 1
TextApplyGlobalOpacity = False
MemoryUsage = bmuHigh
end
object totCartelle: TBCTrackbarUpdown
Left = 24
Height = 24
Top = 68
Width = 64
AllowNegativeValues = False
BarExponent = 1
Increment = 12
LongTimeInterval = 400
MinValue = 12
MaxValue = 600
Value = 60
ShortTimeInterval = 100
Background.Color = clWindow
Background.Gradient1.StartColor = clWhite
Background.Gradient1.EndColor = clBlack
Background.Gradient1.GradientType = gtLinear
Background.Gradient1.Point1XPercent = 0
Background.Gradient1.Point1YPercent = 0
Background.Gradient1.Point2XPercent = 0
Background.Gradient1.Point2YPercent = 100
Background.Gradient2.StartColor = clWhite
Background.Gradient2.EndColor = clBlack
Background.Gradient2.GradientType = gtLinear
Background.Gradient2.Point1XPercent = 0
Background.Gradient2.Point1YPercent = 0
Background.Gradient2.Point2XPercent = 0
Background.Gradient2.Point2YPercent = 100
Background.Gradient1EndPercent = 35
Background.Style = bbsColor
ButtonBackground.Gradient1.StartColor = clBtnShadow
ButtonBackground.Gradient1.EndColor = clBtnFace
ButtonBackground.Gradient1.GradientType = gtLinear
ButtonBackground.Gradient1.Point1XPercent = 0
ButtonBackground.Gradient1.Point1YPercent = -50
ButtonBackground.Gradient1.Point2XPercent = 0
ButtonBackground.Gradient1.Point2YPercent = 50
ButtonBackground.Gradient2.StartColor = clBtnFace
ButtonBackground.Gradient2.EndColor = clBtnShadow
ButtonBackground.Gradient2.GradientType = gtLinear
ButtonBackground.Gradient2.Point1XPercent = 0
ButtonBackground.Gradient2.Point1YPercent = 50
ButtonBackground.Gradient2.Point2XPercent = 0
ButtonBackground.Gradient2.Point2YPercent = 150
ButtonBackground.Gradient1EndPercent = 50
ButtonBackground.Style = bbsGradient
ButtonDownBackground.Color = clBtnShadow
ButtonDownBackground.Gradient1.StartColor = clWhite
ButtonDownBackground.Gradient1.EndColor = clBlack
ButtonDownBackground.Gradient1.GradientType = gtLinear
ButtonDownBackground.Gradient1.Point1XPercent = 0
ButtonDownBackground.Gradient1.Point1YPercent = 0
ButtonDownBackground.Gradient1.Point2XPercent = 0
ButtonDownBackground.Gradient1.Point2YPercent = 100
ButtonDownBackground.Gradient2.StartColor = clWhite
ButtonDownBackground.Gradient2.EndColor = clBlack
ButtonDownBackground.Gradient2.GradientType = gtLinear
ButtonDownBackground.Gradient2.Point1XPercent = 0
ButtonDownBackground.Gradient2.Point1YPercent = 0
ButtonDownBackground.Gradient2.Point2XPercent = 0
ButtonDownBackground.Gradient2.Point2YPercent = 100
ButtonDownBackground.Gradient1EndPercent = 35
ButtonDownBackground.Style = bbsColor
Border.Color = clWindowText
Border.Style = bboSolid
Rounding.RoundX = 1
Rounding.RoundY = 1
Font.Color = clWindowText
Font.Name = 'Arial'
HasTrackBar = True
ArrowColor = clBtnText
TabOrder = 0
TabStop = True
UseDockManager = False
OnEnter = totCartelleEnter
OnExit = totCartelleEnter
end
object BCLabel1: TBCLabel
Left = 9
Height = 15
Top = 48
Width = 106
Background.Gradient1.StartColor = clWhite
Background.Gradient1.EndColor = clBlack
Background.Gradient1.GradientType = gtLinear
Background.Gradient1.Point1XPercent = 0
Background.Gradient1.Point1YPercent = 0
Background.Gradient1.Point2XPercent = 0
Background.Gradient1.Point2YPercent = 100
Background.Gradient2.StartColor = clWhite
Background.Gradient2.EndColor = clBlack
Background.Gradient2.GradientType = gtLinear
Background.Gradient2.Point1XPercent = 0
Background.Gradient2.Point1YPercent = 0
Background.Gradient2.Point2XPercent = 0
Background.Gradient2.Point2YPercent = 100
Background.Gradient1EndPercent = 35
Background.Style = bbsClear
Border.Style = bboNone
Caption = 'Numero di Cartelle :'
FontEx.Color = clDefault
FontEx.FontQuality = fqSystemClearType
FontEx.Shadow = False
FontEx.ShadowRadius = 5
FontEx.ShadowOffsetX = 5
FontEx.ShadowOffsetY = 5
FontEx.Style = []
Rounding.RoundX = 1
Rounding.RoundY = 1
end
object edTitolo: TEdit
Left = 24
Height = 23
Top = 18
Width = 206
TabOrder = 1
Text = 'TombolaMax'
end
object BCLabel2: TBCLabel
Left = 8
Height = 15
Top = 0
Width = 36
Background.Gradient1.StartColor = clWhite
Background.Gradient1.EndColor = clBlack
Background.Gradient1.GradientType = gtLinear
Background.Gradient1.Point1XPercent = 0
Background.Gradient1.Point1YPercent = 0
Background.Gradient1.Point2XPercent = 0
Background.Gradient1.Point2YPercent = 100
Background.Gradient2.StartColor = clWhite
Background.Gradient2.EndColor = clBlack
Background.Gradient2.GradientType = gtLinear
Background.Gradient2.Point1XPercent = 0
Background.Gradient2.Point1YPercent = 0
Background.Gradient2.Point2XPercent = 0
Background.Gradient2.Point2YPercent = 100
Background.Gradient1EndPercent = 35
Background.Style = bbsClear
Border.Style = bboNone
Caption = 'Titolo :'
FontEx.Color = clDefault
FontEx.FontQuality = fqSystemClearType
FontEx.Shadow = False
FontEx.ShadowRadius = 5
FontEx.ShadowOffsetX = 5
FontEx.ShadowOffsetY = 5
FontEx.Style = []
Rounding.RoundX = 1
Rounding.RoundY = 1
end
object cbBackImage: TCheckBox
Left = 9
Height = 19
Top = 148
Width = 121
Caption = 'Usa Sfondo Cartella'
TabOrder = 2
OnChange = cbBackImageChange
end
object BCLabel3: TBCLabel
Left = 9
Height = 15
Top = 96
Width = 87
Background.Gradient1.StartColor = clWhite
Background.Gradient1.EndColor = clBlack
Background.Gradient1.GradientType = gtLinear
Background.Gradient1.Point1XPercent = 0
Background.Gradient1.Point1YPercent = 0
Background.Gradient1.Point2XPercent = 0
Background.Gradient1.Point2YPercent = 100
Background.Gradient2.StartColor = clWhite
Background.Gradient2.EndColor = clBlack
Background.Gradient2.GradientType = gtLinear
Background.Gradient2.Point1XPercent = 0
Background.Gradient2.Point1YPercent = 0
Background.Gradient2.Point2XPercent = 0
Background.Gradient2.Point2YPercent = 100
Background.Gradient1EndPercent = 35
Background.Style = bbsClear
Border.Style = bboNone
Caption = 'Sfondo Numeri :'
FontEx.Color = clDefault
FontEx.FontQuality = fqSystemClearType
FontEx.Shadow = False
FontEx.ShadowRadius = 5
FontEx.ShadowOffsetX = 5
FontEx.ShadowOffsetY = 5
FontEx.Style = []
Rounding.RoundX = 1
Rounding.RoundY = 1
end
object edPictureNumeri: TEdit
Left = 24
Height = 23
Top = 114
Width = 176
TabOrder = 3
end
object btPictureNumeri: TBGRASpeedButton
Left = 206
Height = 22
Top = 114
Width = 23
Caption = '...'
OnClick = btPictureNumeriClick
end
object panSfondo: TBCPaperPanel
Left = 15
Height = 105
Top = 166
Width = 368
Alignment = taLeftJustify
Caption = 'panSfondo'
ClientHeight = 105
ClientWidth = 368
Color = clWhite
Enabled = False
ParentColor = False
TabOrder = 4
object edPictureCartella: TEdit
Left = 8
Height = 23
Top = 8
Width = 176
TabOrder = 0
end
object btPictureCartella: TBGRASpeedButton
Left = 190
Height = 22
Top = 9
Width = 23
Caption = '...'
OnClick = btPictureNumeriClick
end
object ImageCartella: TImage
Left = 224
Height = 90
Top = 8
Width = 132
Stretch = True
end
end
object ImageNumeri: TImage
Left = 239
Height = 90
Top = 64
Width = 132
Stretch = True
end
object frCartelle: TfrUserDataset
OnCheckEOF = frCartelleCheckEOF
OnFirst = frCartelleFirst
OnNext = frCartelleNext
Left = 16
Top = 272
end
object frReportCartelle: TfrReport
Dataset = frCartelle
InitialZoom = pzDefault
Options = []
PreviewButtons = [pbZoom, pbPrint, pbExit]
DataType = dtDataSet
OnGetValue = frReportCartelleGetValue
OnEnterRect = frReportCartelleEnterRect
OnAfterPrint = frReportCartelleAfterPrint
Left = 280
Top = 264
end
object OpenPictureDialog: TOpenPictureDialog
Left = 88
Top = 272
end
object frReportCartelleBack: TfrReport
Dataset = frCartelle
InitialZoom = pzDefault
Options = []
PreviewButtons = [pbZoom, pbPrint, pbExit]
DataType = dtDataSet
OnGetValue = frReportCartelleGetValue
OnEnterRect = frReportCartelleEnterRect
Left = 352
Top = 264
end
end