source: GraphicTest/Packages/bgracontrols/testbuttoneditor/umain.lfm

Last change on this file was 452, checked in by chronos, 13 years ago
  • Updated BGRABitmap package.
File size: 17.1 KB
Line 
1object frmButtonEditor: TfrmButtonEditor
2 Left = 483
3 Height = 560
4 Top = 169
5 Width = 727
6 Caption = 'Button Editor 1.1 by Lainz'
7 ClientHeight = 560
8 ClientWidth = 727
9 Position = poScreenCenter
10 LCLVersion = '0.9.31'
11 object ScrollArea: TScrollBox
12 Left = 0
13 Height = 100
14 Top = 0
15 Width = 727
16 HorzScrollBar.Increment = 72
17 HorzScrollBar.Page = 723
18 HorzScrollBar.Smooth = True
19 HorzScrollBar.Tracking = True
20 VertScrollBar.Increment = 9
21 VertScrollBar.Page = 96
22 VertScrollBar.Smooth = True
23 VertScrollBar.Tracking = True
24 Align = alTop
25 ClientHeight = 96
26 ClientWidth = 723
27 TabOrder = 1
28 object vsTileBackground: TBGRAVirtualScreen
29 Left = 0
30 Height = 96
31 Top = 0
32 Width = 723
33 OnRedraw = vsTileBackgroundRedraw
34 Align = alClient
35 Alignment = taLeftJustify
36 Caption = 'vsTileBackground'
37 ClientHeight = 96
38 ClientWidth = 723
39 Color = clWhite
40 ParentColor = False
41 ParentFont = False
42 ParentShowHint = False
43 ShowHint = True
44 TabOrder = 0
45 object buttonGraphic: TBGRAGraphicControl
46 Left = 6
47 Height = 80
48 Top = 6
49 Width = 200
50 OnRedraw = buttonGraphicRedraw
51 Color = clWhite
52 ColorOpacity = 128
53 Alignment = taCenter
54 Caption = 'buttonGraphic'
55 end
56 end
57 end
58 object SplitterNice: TSplitter
59 Cursor = crVSplit
60 Left = 0
61 Height = 5
62 Top = 100
63 Width = 727
64 Align = alTop
65 ResizeAnchor = akTop
66 end
67 object ScrollBoxMain: TScrollBox
68 Left = 0
69 Height = 455
70 Top = 105
71 Width = 727
72 HorzScrollBar.Increment = 72
73 HorzScrollBar.Page = 723
74 HorzScrollBar.Smooth = True
75 HorzScrollBar.Tracking = True
76 VertScrollBar.Increment = 45
77 VertScrollBar.Page = 451
78 VertScrollBar.Smooth = True
79 VertScrollBar.Tracking = True
80 Align = alClient
81 ClientHeight = 451
82 ClientWidth = 723
83 ParentShowHint = False
84 ShowHint = True
85 TabOrder = 0
86 object ShadowGroup: TGroupBox
87 Left = 533
88 Height = 145
89 Top = 5
90 Width = 183
91 Caption = 'Shadow'
92 ChildSizing.LeftRightSpacing = 6
93 ChildSizing.TopBottomSpacing = 6
94 ChildSizing.HorizontalSpacing = 6
95 ChildSizing.VerticalSpacing = 6
96 ChildSizing.EnlargeHorizontal = crsHomogenousChildResize
97 ChildSizing.EnlargeVertical = crsHomogenousChildResize
98 ChildSizing.ShrinkHorizontal = crsScaleChilds
99 ChildSizing.ShrinkVertical = crsScaleChilds
100 ChildSizing.Layout = cclLeftToRightThenTopToBottom
101 ChildSizing.ControlsPerLine = 2
102 ClientHeight = 123
103 ClientWidth = 179
104 TabOrder = 3
105 object shdColor: TColorButton
106 Left = 6
107 Height = 33
108 Hint = 'Color.'
109 Top = 6
110 Width = 81
111 BorderWidth = 2
112 ButtonColorSize = 16
113 ButtonColor = clBlack
114 OnColorChanged = UpdateButton
115 end
116 object shdColorAlpha: TSpinEdit
117 Left = 93
118 Height = 33
119 Hint = 'Color opacity.'
120 Top = 6
121 Width = 80
122 MaxValue = 255
123 OnChange = UpdateButton
124 TabOrder = 0
125 Value = 255
126 end
127 object shdHoriz: TSpinEdit
128 Left = 6
129 Height = 33
130 Hint = 'Horizontal offset.'
131 Top = 45
132 Width = 81
133 MaxValue = 10000
134 MinValue = -10000
135 OnChange = UpdateButton
136 TabOrder = 1
137 Value = 2
138 end
139 object shdVert: TSpinEdit
140 Left = 93
141 Height = 33
142 Hint = 'Vertical offset.'
143 Top = 45
144 Width = 80
145 MaxValue = 10000
146 MinValue = -10000
147 OnChange = UpdateButton
148 TabOrder = 2
149 Value = 2
150 end
151 object shdRadius: TSpinEdit
152 Left = 6
153 Height = 33
154 Hint = 'Radius.'
155 Top = 84
156 Width = 81
157 OnChange = UpdateButton
158 TabOrder = 3
159 Value = 2
160 end
161 end
162 object BorderGroup: TGroupBox
163 Left = 158
164 Height = 184
165 Top = 237
166 Width = 183
167 Caption = 'Border'
168 ChildSizing.LeftRightSpacing = 6
169 ChildSizing.TopBottomSpacing = 6
170 ChildSizing.HorizontalSpacing = 6
171 ChildSizing.VerticalSpacing = 6
172 ChildSizing.EnlargeHorizontal = crsHomogenousChildResize
173 ChildSizing.EnlargeVertical = crsHomogenousChildResize
174 ChildSizing.ShrinkHorizontal = crsScaleChilds
175 ChildSizing.ShrinkVertical = crsScaleChilds
176 ChildSizing.Layout = cclLeftToRightThenTopToBottom
177 ChildSizing.ControlsPerLine = 2
178 ClientHeight = 162
179 ClientWidth = 179
180 TabOrder = 5
181 object outColor: TColorButton
182 Left = 6
183 Height = 33
184 Hint = 'Out color.'
185 Top = 6
186 Width = 81
187 BorderWidth = 2
188 ButtonColorSize = 16
189 ButtonColor = clBlack
190 OnColorChanged = UpdateButton
191 end
192 object outAlpha: TSpinEdit
193 Left = 93
194 Height = 33
195 Hint = 'Out color opacity.'
196 Top = 6
197 Width = 80
198 MaxValue = 255
199 OnChange = UpdateButton
200 TabOrder = 0
201 Value = 255
202 end
203 object innerColor: TColorButton
204 Left = 6
205 Height = 33
206 Hint = 'Inner color.'
207 Top = 45
208 Width = 81
209 BorderWidth = 2
210 ButtonColorSize = 16
211 ButtonColor = clWhite
212 OnColorChanged = UpdateButton
213 end
214 object innerAlpha: TSpinEdit
215 Left = 93
216 Height = 33
217 Hint = 'Inner color opacity.'
218 Top = 45
219 Width = 80
220 MaxValue = 255
221 OnChange = UpdateButton
222 TabOrder = 1
223 Value = 200
224 end
225 object roundHoriz: TFloatSpinEdit
226 Left = 6
227 Height = 33
228 Hint = 'Horizontal rounded corner.'
229 Top = 84
230 Width = 81
231 Increment = 1
232 MaxValue = 10000
233 MinValue = 0
234 OnChange = UpdateButton
235 TabOrder = 2
236 Value = 10
237 end
238 object roundVert: TFloatSpinEdit
239 Left = 93
240 Height = 33
241 Hint = 'Vertical rounded corner.'
242 Top = 84
243 Width = 80
244 Increment = 1
245 MaxValue = 10000
246 MinValue = 0
247 OnChange = UpdateButton
248 TabOrder = 3
249 Value = 10
250 end
251 object borWidth: TFloatSpinEdit
252 Left = 6
253 Height = 33
254 Hint = 'Width.'
255 Top = 123
256 Width = 81
257 Increment = 2
258 MaxValue = 10000
259 MinValue = 1
260 OnChange = UpdateButton
261 TabOrder = 4
262 Value = 1
263 end
264 end
265 object GradientsGroup: TGroupBox
266 Left = 158
267 Height = 223
268 Top = 5
269 Width = 183
270 Caption = 'Gradients'
271 ChildSizing.LeftRightSpacing = 6
272 ChildSizing.TopBottomSpacing = 6
273 ChildSizing.HorizontalSpacing = 6
274 ChildSizing.VerticalSpacing = 6
275 ChildSizing.EnlargeHorizontal = crsHomogenousChildResize
276 ChildSizing.EnlargeVertical = crsHomogenousChildResize
277 ChildSizing.ShrinkHorizontal = crsScaleChilds
278 ChildSizing.ShrinkVertical = crsScaleChilds
279 ChildSizing.Layout = cclLeftToRightThenTopToBottom
280 ChildSizing.ControlsPerLine = 2
281 ClientHeight = 201
282 ClientWidth = 179
283 TabOrder = 1
284 object cl1: TColorButton
285 Left = 6
286 Height = 33
287 Hint = 'Color 1.'
288 Top = 6
289 Width = 81
290 BorderWidth = 2
291 ButtonColorSize = 16
292 ButtonColor = clSilver
293 OnColorChanged = UpdateButton
294 end
295 object cl1a: TSpinEdit
296 Left = 93
297 Height = 33
298 Hint = 'Color 1 opacity.'
299 Top = 6
300 Width = 80
301 MaxValue = 255
302 OnChange = UpdateButton
303 TabOrder = 0
304 Value = 100
305 end
306 object cl2: TColorButton
307 Left = 6
308 Height = 33
309 Hint = 'Color 2.'
310 Top = 45
311 Width = 81
312 BorderWidth = 2
313 ButtonColorSize = 16
314 ButtonColor = 9145227
315 OnColorChanged = UpdateButton
316 end
317 object cl2a: TSpinEdit
318 Left = 93
319 Height = 33
320 Hint = 'Color 2 opacity.'
321 Top = 45
322 Width = 80
323 MaxValue = 255
324 OnChange = UpdateButton
325 TabOrder = 1
326 Value = 200
327 end
328 object cl3: TColorButton
329 Left = 6
330 Height = 33
331 Hint = 'Color 3.'
332 Top = 84
333 Width = 81
334 BorderWidth = 2
335 ButtonColorSize = 16
336 ButtonColor = clBlack
337 OnColorChanged = UpdateButton
338 end
339 object cl3a: TSpinEdit
340 Left = 93
341 Height = 33
342 Hint = 'Color 3 opacity.'
343 Top = 84
344 Width = 80
345 MaxValue = 255
346 OnChange = UpdateButton
347 TabOrder = 2
348 Value = 200
349 end
350 object cl4: TColorButton
351 Left = 6
352 Height = 33
353 Hint = 'Color 4.'
354 Top = 123
355 Width = 81
356 BorderWidth = 2
357 ButtonColorSize = 16
358 ButtonColor = 3552822
359 OnColorChanged = UpdateButton
360 end
361 object cl4a: TSpinEdit
362 Left = 93
363 Height = 33
364 Hint = 'Color 4 opacity.'
365 Top = 123
366 Width = 80
367 MaxValue = 255
368 OnChange = UpdateButton
369 TabOrder = 3
370 Value = 100
371 end
372 object gradValue: TFloatSpinEdit
373 Left = 6
374 Height = 33
375 Hint = 'Position.'
376 Top = 162
377 Width = 81
378 Increment = 0.01
379 MaxValue = 1
380 MinValue = 0
381 OnChange = UpdateButton
382 TabOrder = 4
383 Value = 0.5
384 end
385 end
386 object TextGroup: TGroupBox
387 Left = 350
388 Height = 108
389 Top = 5
390 Width = 176
391 Caption = 'Text'
392 ChildSizing.LeftRightSpacing = 6
393 ChildSizing.TopBottomSpacing = 6
394 ChildSizing.HorizontalSpacing = 6
395 ChildSizing.VerticalSpacing = 6
396 ChildSizing.EnlargeHorizontal = crsHomogenousChildResize
397 ChildSizing.EnlargeVertical = crsHomogenousChildResize
398 ChildSizing.ShrinkHorizontal = crsScaleChilds
399 ChildSizing.ShrinkVertical = crsScaleChilds
400 ChildSizing.Layout = cclLeftToRightThenTopToBottom
401 ChildSizing.ControlsPerLine = 2
402 ClientHeight = 86
403 ClientWidth = 172
404 TabOrder = 2
405 object btnText: TEdit
406 Left = 6
407 Height = 35
408 Hint = 'Text.'
409 Top = 6
410 Width = 80
411 OnChange = UpdateButton
412 TabOrder = 0
413 Text = 'ButtonText'
414 end
415 object btnFont: TButton
416 Left = 92
417 Height = 35
418 Hint = 'Font.'
419 Top = 6
420 Width = 74
421 AutoSize = True
422 Caption = 'Font...'
423 OnClick = btnFontClick
424 TabOrder = 1
425 end
426 object btnColor: TColorButton
427 Left = 6
428 Height = 33
429 Hint = 'Color 1.'
430 Top = 47
431 Width = 80
432 BorderWidth = 2
433 ButtonColorSize = 16
434 ButtonColor = clWhite
435 OnColorChanged = UpdateButton
436 end
437 object btnColorAlpha: TSpinEdit
438 Left = 92
439 Height = 33
440 Hint = 'Color opacity.'
441 Top = 47
442 Width = 74
443 MaxValue = 255
444 OnChange = UpdateButton
445 TabOrder = 2
446 Value = 255
447 end
448 end
449 object DirectionsGroup: TCheckGroup
450 Left = 6
451 Height = 121
452 Top = 237
453 Width = 143
454 AutoFill = True
455 Caption = 'Direction'
456 ChildSizing.LeftRightSpacing = 6
457 ChildSizing.TopBottomSpacing = 6
458 ChildSizing.EnlargeHorizontal = crsHomogenousChildResize
459 ChildSizing.EnlargeVertical = crsHomogenousChildResize
460 ChildSizing.ShrinkHorizontal = crsScaleChilds
461 ChildSizing.ShrinkVertical = crsScaleChilds
462 ChildSizing.Layout = cclLeftToRightThenTopToBottom
463 ChildSizing.ControlsPerLine = 1
464 TabOrder = 4
465 object gd1Horiz: TCheckBox
466 Left = 6
467 Height = 29
468 Hint = 'Gradient 1 direction.'
469 Top = 6
470 Width = 127
471 Caption = '1 Horizontal'
472 OnChange = UpdateButton
473 TabOrder = 0
474 end
475 object gd2Horiz: TCheckBox
476 Left = 6
477 Height = 29
478 Hint = 'Gradient 2 direction.'
479 Top = 35
480 Width = 127
481 Caption = '2 Horizontal'
482 OnChange = UpdateButton
483 TabOrder = 1
484 end
485 object gpHoriz: TCheckBox
486 Left = 6
487 Height = 29
488 Hint = 'Graphic direction.'
489 Top = 64
490 Width = 127
491 Caption = 'Horizontal'
492 OnChange = UpdateButton
493 TabOrder = 2
494 end
495 end
496 object StyleGroup: TCheckGroup
497 Left = 350
498 Height = 106
499 Top = 237
500 Width = 222
501 AutoFill = True
502 Caption = 'Border Style'
503 ChildSizing.LeftRightSpacing = 6
504 ChildSizing.TopBottomSpacing = 6
505 ChildSizing.HorizontalSpacing = 6
506 ChildSizing.VerticalSpacing = 6
507 ChildSizing.EnlargeHorizontal = crsHomogenousChildResize
508 ChildSizing.EnlargeVertical = crsHomogenousChildResize
509 ChildSizing.ShrinkHorizontal = crsScaleChilds
510 ChildSizing.ShrinkVertical = crsScaleChilds
511 ChildSizing.Layout = cclLeftToRightThenTopToBottom
512 ChildSizing.ControlsPerLine = 2
513 TabOrder = 6
514 object bs1: TComboBox
515 Left = 6
516 Height = 33
517 Hint = 'Top Left.'
518 Top = 6
519 Width = 100
520 ItemHeight = 25
521 ItemIndex = 0
522 Items.Strings = (
523 'Round'
524 'Bevel'
525 'Square'
526 )
527 OnChange = UpdateButton
528 Style = csDropDownList
529 TabOrder = 0
530 Text = 'Round'
531 end
532 object bs2: TComboBox
533 Left = 112
534 Height = 33
535 Hint = 'Top Right.'
536 Top = 6
537 Width = 100
538 ItemHeight = 25
539 ItemIndex = 0
540 Items.Strings = (
541 'Round'
542 'Bevel'
543 'Square'
544 )
545 OnChange = UpdateButton
546 Style = csDropDownList
547 TabOrder = 1
548 Text = 'Round'
549 end
550 object bs3: TComboBox
551 Left = 6
552 Height = 33
553 Hint = 'Bottom Left.'
554 Top = 45
555 Width = 100
556 ItemHeight = 25
557 ItemIndex = 0
558 Items.Strings = (
559 'Round'
560 'Bevel'
561 'Square'
562 )
563 OnChange = UpdateButton
564 Style = csDropDownList
565 TabOrder = 2
566 Text = 'Round'
567 end
568 object bs4: TComboBox
569 Left = 112
570 Height = 33
571 Hint = 'Bottom Right.'
572 Top = 45
573 Width = 100
574 ItemHeight = 25
575 ItemIndex = 0
576 Items.Strings = (
577 'Round'
578 'Bevel'
579 'Square'
580 )
581 OnChange = UpdateButton
582 Style = csDropDownList
583 TabOrder = 3
584 Text = 'Round'
585 end
586 end
587 object GeneralGroup: TGroupBox
588 Left = 9
589 Height = 186
590 Top = 5
591 Width = 140
592 Caption = 'General'
593 ChildSizing.LeftRightSpacing = 6
594 ChildSizing.TopBottomSpacing = 6
595 ChildSizing.HorizontalSpacing = 6
596 ChildSizing.VerticalSpacing = 6
597 ChildSizing.EnlargeHorizontal = crsHomogenousChildResize
598 ChildSizing.EnlargeVertical = crsHomogenousChildResize
599 ChildSizing.ShrinkHorizontal = crsScaleChilds
600 ChildSizing.ShrinkVertical = crsScaleChilds
601 ChildSizing.Layout = cclLeftToRightThenTopToBottom
602 ChildSizing.ControlsPerLine = 1
603 ClientHeight = 164
604 ClientWidth = 136
605 TabOrder = 0
606 object tileBackgroundValue: TSpinEdit
607 Left = 6
608 Height = 33
609 Hint = 'Tiled background square size (only for preview purpose).'
610 Top = 6
611 Width = 124
612 MaxValue = 200
613 MinValue = 1
614 OnChange = tileBackgroundValueChange
615 TabOrder = 0
616 Value = 6
617 end
618 object btnWidth: TSpinEdit
619 Left = 6
620 Height = 33
621 Hint = 'Width.'
622 Top = 45
623 Width = 124
624 MaxValue = 1000
625 MinValue = 1
626 OnChange = UpdateButton
627 TabOrder = 1
628 Value = 200
629 end
630 object btnHeight: TSpinEdit
631 Left = 6
632 Height = 33
633 Hint = 'Height.'
634 Top = 84
635 Width = 124
636 MaxValue = 1000
637 MinValue = 1
638 OnChange = UpdateButton
639 TabOrder = 2
640 Value = 80
641 end
642 object btnSave: TButton
643 Left = 6
644 Height = 35
645 Hint = 'Save to file.'
646 Top = 123
647 Width = 124
648 Caption = 'Save Bitmap'
649 OnClick = btnSaveClick
650 TabOrder = 3
651 end
652 end
653 object btnSaveToINI: TButton
654 Left = 358
655 Height = 35
656 Top = 349
657 Width = 116
658 AutoSize = True
659 Caption = 'Save To INI'
660 OnClick = btnSaveToINIClick
661 TabOrder = 7
662 end
663 object btnLoadFromINI: TButton
664 Left = 358
665 Height = 35
666 Top = 389
667 Width = 140
668 AutoSize = True
669 Caption = 'Load From INI'
670 OnClick = btnLoadFromINIClick
671 TabOrder = 8
672 end
673 end
674 object ButtonFont: TFontDialog
675 Font.Height = -40
676 MinFontSize = 0
677 MaxFontSize = 0
678 PreviewText = 'ButtonEditor'
679 left = 488
680 top = 232
681 end
682 object SaveBitmap: TSaveDialog
683 Title = 'Save Bitmap'
684 Filter = 'PNG|*.png'
685 left = 96
686 top = 304
687 end
688 object SaveToIni: TSaveDialog
689 Title = 'Save To INI'
690 Filter = 'INI|*.ini'
691 left = 545
692 top = 504
693 end
694 object LoadFromIni: TOpenDialog
695 Title = 'Load From INI'
696 Filter = 'INI|*.ini'
697 left = 545
698 top = 456
699 end
700end
Note: See TracBrowser for help on using the repository browser.