1object FormMessagesComposer: TFormMessagesComposer
2  AnchorSideLeft.Side = asrBottom
3  Left = 658
4  Height = 539
5  Top = 123
6  Width = 580
7  ActiveControl = KindMessageComboBox
8  BorderIcons = [biSystemMenu]
9  Caption = 'Messages Composer'
10  ClientHeight = 539
11  ClientWidth = 580
12  OnCreate = MessagesInitExecute
13  OnShow = FormShow
14  Position = poScreenCenter
15  LCLVersion = '2.1.0.0'
16  object CaptionLabel: TLabel
17    AnchorSideLeft.Control = KindMessageComboBox
18    AnchorSideTop.Control = KindMessageComboBox
19    AnchorSideTop.Side = asrBottom
20    Left = 8
21    Height = 15
22    Top = 64
23    Width = 70
24    BorderSpacing.Top = 16
25    Caption = 'CaptionLabel'
26    ParentColor = False
27  end
28  object MsgLabel: TLabel
29    AnchorSideLeft.Control = CaptionEdit
30    AnchorSideTop.Control = CaptionEdit
31    AnchorSideTop.Side = asrBottom
32    Left = 8
33    Height = 15
34    Top = 117
35    Width = 51
36    BorderSpacing.Top = 12
37    Caption = 'MsgLabel'
38    ParentColor = False
39  end
40  object DlgTypeLabel: TLabel
41    AnchorSideLeft.Control = DlgTypeComboBox
42    AnchorSideTop.Control = CaptionLabel
43    Left = 152
44    Height = 15
45    Top = 64
46    Width = 42
47    Caption = 'DlgType'
48    ParentColor = False
49  end
50  object HelpContextLabel: TLabel
51    AnchorSideLeft.Control = MsgMemo
52    AnchorSideTop.Side = asrBottom
53    AnchorSideBottom.Control = HelpContextSpinEdit
54    Left = 8
55    Height = 15
56    Top = 281
57    Width = 70
58    Anchors = [akLeft, akBottom]
59    Caption = 'Help Context'
60    ParentColor = False
61  end
62  object HelpKeyWordLabel: TLabel
63    AnchorSideLeft.Control = YLabel
64    AnchorSideTop.Control = HelpContextLabel
65    AnchorSideTop.Side = asrCenter
66    AnchorSideRight.Side = asrBottom
67    Left = 101
68    Height = 15
69    Top = 281
70    Width = 76
71    Caption = 'Help KeyWord'
72    ParentColor = False
73  end
74  object XLabel: TLabel
75    AnchorSideLeft.Control = MsgMemo
76    AnchorSideTop.Control = XSpinEdit
77    AnchorSideTop.Side = asrCenter
78    Left = 8
79    Height = 15
80    Top = 241
81    Width = 7
82    Caption = 'X'
83    ParentColor = False
84  end
85  object YLabel: TLabel
86    AnchorSideLeft.Control = XSpinEdit
87    AnchorSideLeft.Side = asrBottom
88    AnchorSideTop.Control = YSpinEdit
89    AnchorSideTop.Side = asrCenter
90    Left = 101
91    Height = 15
92    Top = 241
93    Width = 7
94    BorderSpacing.Left = 16
95    Caption = 'Y'
96    ParentColor = False
97  end
98  object HelpFileNameLabel: TLabel
99    AnchorSideLeft.Control = MsgMemo
100    AnchorSideTop.Side = asrBottom
101    AnchorSideBottom.Control = HelpFileNameEdit
102    Left = 8
103    Height = 15
104    Top = 328
105    Width = 78
106    Anchors = [akLeft, akBottom]
107    BorderSpacing.Top = 6
108    Caption = 'Help FileName'
109    ParentColor = False
110  end
111  object PromptLabel: TLabel
112    AnchorSideLeft.Control = MsgMemo
113    AnchorSideTop.Control = Bevel2
114    AnchorSideTop.Side = asrBottom
115    AnchorSideBottom.Control = PromptEdit
116    Left = 8
117    Height = 15
118    Top = 394
119    Width = 68
120    Anchors = [akLeft, akBottom]
121    Caption = 'PromptLabel'
122    ParentColor = False
123  end
124  object ValueLabel: TLabel
125    AnchorSideLeft.Control = PromptEdit
126    AnchorSideTop.Control = PromptEdit
127    AnchorSideTop.Side = asrBottom
128    AnchorSideBottom.Control = ValueEdit
129    Left = 8
130    Height = 15
131    Top = 447
132    Width = 55
133    Anchors = [akLeft, akBottom]
134    BorderSpacing.Top = 12
135    Caption = 'Value (var)'
136    ParentColor = False
137  end
138  object DefaultValue: TLabel
139    AnchorSideLeft.Control = DefaultEdit
140    AnchorSideTop.Control = ValueLabel
141    Left = 152
142    Height = 15
143    Top = 447
144    Width = 38
145    Caption = 'Default'
146    ParentColor = False
147  end
148  object PositionBevel: TBevel
149    AnchorSideLeft.Control = MsgMemo
150    AnchorSideTop.Side = asrBottom
151    AnchorSideRight.Control = MsgMemo
152    AnchorSideRight.Side = asrBottom
153    AnchorSideBottom.Control = XSpinEdit
154    Left = 8
155    Height = 9
156    Top = 222
157    Width = 273
158    Anchors = [akLeft, akRight, akBottom]
159    Shape = bsTopLine
160  end
161  object Bevel2: TBevel
162    AnchorSideLeft.Control = MsgMemo
163    AnchorSideTop.Side = asrBottom
164    AnchorSideRight.Control = MsgMemo
165    AnchorSideRight.Side = asrBottom
166    AnchorSideBottom.Control = PromptLabel
167    Left = 8
168    Height = 9
169    Top = 385
170    Width = 273
171    Anchors = [akLeft, akRight, akBottom]
172    BorderSpacing.Top = 16
173    Shape = bsTopLine
174  end
175  object HelpCtxBevel: TBevel
176    AnchorSideLeft.Control = MsgMemo
177    AnchorSideTop.Side = asrBottom
178    AnchorSideRight.Control = MsgMemo
179    AnchorSideRight.Side = asrBottom
180    AnchorSideBottom.Control = HelpContextLabel
181    Left = 8
182    Height = 9
183    Top = 272
184    Width = 273
185    Anchors = [akLeft, akRight, akBottom]
186    Shape = bsTopLine
187  end
188  object KindMessageLabel: TLabel
189    AnchorSideLeft.Control = Owner
190    AnchorSideTop.Control = Owner
191    Left = 8
192    Height = 15
193    Top = 6
194    Width = 98
195    BorderSpacing.Left = 8
196    BorderSpacing.Top = 6
197    BorderSpacing.Right = 6
198    Caption = 'KindMessageLabel'
199    ParentColor = False
200  end
201  object CaptionEdit: TEdit
202    AnchorSideLeft.Control = CaptionLabel
203    AnchorSideTop.Control = CaptionLabel
204    AnchorSideTop.Side = asrBottom
205    AnchorSideRight.Control = HCenterBevel1
206    Left = 8
207    Height = 23
208    Top = 82
209    Width = 128
210    Anchors = [akTop, akLeft, akRight]
211    BorderSpacing.Top = 3
212    TabOrder = 0
213    Text = 'CaptionEdit'
214  end
215  object DlgTypeComboBox: TComboBox
216    AnchorSideLeft.Control = HCenterBevel1
217    AnchorSideLeft.Side = asrBottom
218    AnchorSideTop.Control = CaptionEdit
219    AnchorSideRight.Control = HCenterBevel
220    Left = 152
221    Height = 23
222    Top = 82
223    Width = 129
224    Anchors = [akTop, akLeft, akRight]
225    DropDownCount = 24
226    ItemHeight = 15
227    ItemIndex = 0
228    Items.Strings = (
229      'mtWarning'
230      'mtError'
231      'mtInformation'
232      'mtConfirmation'
233      'mtCustom'
234    )
235    Style = csDropDownList
236    TabOrder = 1
237    Text = 'mtWarning'
238  end
239  object HelpContextSpinEdit: TSpinEdit
240    AnchorSideLeft.Control = HelpContextLabel
241    AnchorSideTop.Side = asrBottom
242    AnchorSideRight.Control = XSpinEdit
243    AnchorSideRight.Side = asrBottom
244    AnchorSideBottom.Control = HelpFileNameLabel
245    Left = 8
246    Height = 23
247    Top = 299
248    Width = 77
249    Anchors = [akLeft, akRight, akBottom]
250    BorderSpacing.Top = 3
251    MaxValue = 9999
252    TabOrder = 2
253  end
254  object HelpKeyWordEdit: TEdit
255    AnchorSideLeft.Control = HelpKeyWordLabel
256    AnchorSideTop.Control = HelpContextSpinEdit
257    AnchorSideRight.Control = MsgMemo
258    AnchorSideRight.Side = asrBottom
259    Left = 101
260    Height = 23
261    Top = 299
262    Width = 180
263    Anchors = [akTop, akLeft, akRight]
264    TabOrder = 3
265    Text = 'HelpKeyWordEdit'
266  end
267  object XSpinEdit: TSpinEdit
268    AnchorSideLeft.Control = XLabel
269    AnchorSideLeft.Side = asrBottom
270    AnchorSideTop.Control = PositionBevel
271    AnchorSideTop.Side = asrBottom
272    AnchorSideBottom.Control = HelpCtxBevel
273    Left = 19
274    Height = 23
275    Top = 237
276    Width = 66
277    Anchors = [akLeft, akBottom]
278    BorderSpacing.Left = 4
279    BorderSpacing.Top = 6
280    BorderSpacing.Bottom = 12
281    TabOrder = 4
282  end
283  object YSpinEdit: TSpinEdit
284    AnchorSideLeft.Control = YLabel
285    AnchorSideLeft.Side = asrBottom
286    AnchorSideTop.Control = XSpinEdit
287    AnchorSideTop.Side = asrCenter
288    Left = 112
289    Height = 23
290    Top = 237
291    Width = 66
292    BorderSpacing.Left = 4
293    TabOrder = 5
294  end
295  object HelpFileNameEdit: TFileNameEdit
296    AnchorSideLeft.Control = MsgMemo
297    AnchorSideTop.Side = asrBottom
298    AnchorSideRight.Control = MsgMemo
299    AnchorSideRight.Side = asrBottom
300    AnchorSideBottom.Control = Bevel2
301    Left = 8
302    Height = 23
303    Top = 346
304    Width = 273
305    DialogOptions = []
306    FilterIndex = 0
307    HideDirectories = False
308    ButtonWidth = 23
309    NumGlyphs = 1
310    Anchors = [akLeft, akRight, akBottom]
311    BorderSpacing.Top = 3
312    MaxLength = 0
313    TabOrder = 6
314  end
315  object PromptEdit: TEdit
316    AnchorSideLeft.Control = PromptLabel
317    AnchorSideTop.Side = asrBottom
318    AnchorSideRight.Control = MaskInputCheckBox
319    AnchorSideBottom.Control = ValueLabel
320    Left = 8
321    Height = 23
322    Top = 412
323    Width = 181
324    Anchors = [akLeft, akRight, akBottom]
325    BorderSpacing.Top = 3
326    TabOrder = 7
327    Text = 'PromptEdit'
328  end
329  object MaskInputCheckBox: TCheckBox
330    AnchorSideTop.Control = PromptEdit
331    AnchorSideTop.Side = asrCenter
332    AnchorSideRight.Control = MsgMemo
333    AnchorSideRight.Side = asrBottom
334    Left = 205
335    Height = 19
336    Top = 414
337    Width = 76
338    Anchors = [akTop, akRight]
339    BorderSpacing.Left = 16
340    Caption = 'MaskInput'
341    TabOrder = 8
342  end
343  object ValueEdit: TEdit
344    AnchorSideLeft.Control = ValueLabel
345    AnchorSideTop.Side = asrBottom
346    AnchorSideRight.Control = HCenterBevel1
347    AnchorSideBottom.Control = ButtonPanel
348    Left = 8
349    Height = 23
350    Top = 465
351    Width = 128
352    Anchors = [akLeft, akRight, akBottom]
353    BorderSpacing.Top = 3
354    TabOrder = 9
355    Text = 'ValueEdit'
356  end
357  object DefaultEdit: TEdit
358    AnchorSideLeft.Control = HCenterBevel1
359    AnchorSideLeft.Side = asrBottom
360    AnchorSideTop.Control = ValueEdit
361    AnchorSideRight.Control = MsgMemo
362    AnchorSideRight.Side = asrBottom
363    Left = 152
364    Height = 23
365    Top = 465
366    Width = 129
367    Anchors = [akTop, akLeft, akRight]
368    TabOrder = 10
369    Text = 'DefaultEdit'
370  end
371  object SourceWrapperGroupBox: TGroupBox
372    AnchorSideLeft.Control = ButtonsNotebook
373    AnchorSideTop.Control = ButtonsNotebook
374    AnchorSideTop.Side = asrBottom
375    AnchorSideRight.Control = ButtonsNotebook
376    AnchorSideRight.Side = asrBottom
377    AnchorSideBottom.Control = DefaultEdit
378    AnchorSideBottom.Side = asrBottom
379    Left = 300
380    Height = 243
381    Top = 245
382    Width = 272
383    Anchors = [akTop, akLeft, akRight, akBottom]
384    BorderSpacing.Top = 16
385    Caption = 'SourceWrapperGroupBox'
386    ClientHeight = 223
387    ClientWidth = 268
388    TabOrder = 12
389    object IfThenRadioButton: TRadioButton
390      AnchorSideLeft.Control = SourceWrapperGroupBox
391      Left = 8
392      Height = 19
393      Top = 8
394      Width = 69
395      BorderSpacing.Left = 8
396      Caption = 'if...then...'
397      Checked = True
398      OnClick = SetIfOrCaseExecute
399      TabOrder = 0
400      TabStop = True
401    end
402    object IfThenElseRadioButton: TRadioButton
403      AnchorSideLeft.Control = IfThenRadioButton
404      AnchorSideTop.Control = IfThenRadioButton
405      AnchorSideTop.Side = asrBottom
406      Left = 8
407      Height = 19
408      Top = 29
409      Width = 101
410      BorderSpacing.Top = 2
411      Caption = 'if...then...else ...'
412      OnClick = SetIfOrCaseExecute
413      TabOrder = 1
414    end
415    object CaseOfEndRadioButton: TRadioButton
416      AnchorSideLeft.Control = IfThenElseRadioButton
417      AnchorSideLeft.Side = asrBottom
418      AnchorSideTop.Control = IfThenRadioButton
419      Left = 125
420      Height = 19
421      Top = 10
422      Width = 107
423      BorderSpacing.Left = 16
424      BorderSpacing.Top = 2
425      Caption = 'case ... of ... end;'
426      OnClick = SetIfOrCaseExecute
427      TabOrder = 2
428    end
429    object CaseOfEndElseRadioButton: TRadioButton
430      AnchorSideLeft.Control = CaseOfEndRadioButton
431      AnchorSideTop.Control = CaseOfEndRadioButton
432      AnchorSideTop.Side = asrBottom
433      Left = 125
434      Height = 19
435      Top = 31
436      Width = 116
437      BorderSpacing.Top = 2
438      Caption = 'case ... of ... else ...'
439      OnClick = SetIfOrCaseExecute
440      TabOrder = 3
441    end
442    object BeginEndCheckBox: TCheckBox
443      AnchorSideLeft.Control = IfThenRadioButton
444      AnchorSideTop.Control = IfThenElseRadioButton
445      AnchorSideTop.Side = asrBottom
446      Left = 8
447      Height = 19
448      Top = 54
449      Width = 85
450      BorderSpacing.Top = 6
451      Caption = 'begin ... end'
452      TabOrder = 4
453    end
454    object SourceNotebook: TNotebook
455      AnchorSideLeft.Control = SourceWrapperGroupBox
456      AnchorSideTop.Control = BeginEndCheckBox
457      AnchorSideTop.Side = asrBottom
458      AnchorSideRight.Control = SourceWrapperGroupBox
459      AnchorSideRight.Side = asrBottom
460      Left = 8
461      Height = 142
462      Top = 81
463      Width = 252
464      PageIndex = 0
465      Align = alBottom
466      Anchors = [akTop, akLeft, akRight, akBottom]
467      BorderSpacing.Left = 8
468      BorderSpacing.Top = 8
469      BorderSpacing.Right = 8
470      TabOrder = 5
471      TabStop = True
472      object PageIf: TPage
473        object Label1: TLabel
474          AnchorSideLeft.Control = PageIf
475          AnchorSideTop.Control = PageIf
476          Left = 0
477          Height = 15
478          Top = 0
479          Width = 58
480          Caption = '"if" RESULT'
481          ParentColor = False
482        end
483        object IfResultComboBox: TComboBox
484          AnchorSideLeft.Control = PageIf
485          AnchorSideTop.Control = Label1
486          AnchorSideTop.Side = asrBottom
487          AnchorSideRight.Control = PageIf
488          AnchorSideRight.Side = asrBottom
489          Left = 0
490          Height = 23
491          Top = 18
492          Width = 252
493          Anchors = [akTop, akLeft, akRight]
494          BorderSpacing.Top = 3
495          DropDownCount = 24
496          ItemHeight = 15
497          ItemIndex = 0
498          Items.Strings = (
499            'mbOK'
500            'mbCancel'
501          )
502          Style = csDropDownList
503          TabOrder = 0
504          Text = 'mbOK'
505        end
506      end
507      object PageCase: TPage
508        object CaseResultCheckGroup: TCheckGroup
509          AnchorSideLeft.Control = PageCase
510          AnchorSideTop.Control = PageCase
511          AnchorSideRight.Control = PageCase
512          AnchorSideRight.Side = asrBottom
513          Left = 0
514          Height = 51
515          Top = 0
516          Width = 271
517          Anchors = [akTop, akLeft, akRight]
518          AutoFill = True
519          AutoSize = True
520          Caption = '"case" RESULT'
521          ChildSizing.LeftRightSpacing = 16
522          ChildSizing.TopBottomSpacing = 6
523          ChildSizing.EnlargeHorizontal = crsHomogenousChildResize
524          ChildSizing.EnlargeVertical = crsHomogenousChildResize
525          ChildSizing.ShrinkHorizontal = crsScaleChilds
526          ChildSizing.ShrinkVertical = crsScaleChilds
527          ChildSizing.Layout = cclLeftToRightThenTopToBottom
528          ChildSizing.ControlsPerLine = 3
529          ClientHeight = 51
530          ClientWidth = 271
531          Columns = 3
532          Items.Strings = (
533            'mbOK'
534            'mbCancel'
535          )
536          TabOrder = 0
537          Data = {
538            020000000302
539          }
540        end
541      end
542      object PageString: TPage
543        object StringResultLabel: TLabel
544          AnchorSideLeft.Control = PageString
545          AnchorSideTop.Control = PageString
546          Left = 0
547          Height = 15
548          Top = 8
549          Width = 72
550          BorderSpacing.Top = 8
551          Caption = 'String RESULT'
552          ParentColor = False
553        end
554        object StringResultEdit: TEdit
555          AnchorSideLeft.Control = PageString
556          AnchorSideTop.Control = StringResultLabel
557          AnchorSideTop.Side = asrBottom
558          AnchorSideRight.Control = PageString
559          AnchorSideRight.Side = asrBottom
560          Left = 0
561          Height = 23
562          Top = 26
563          Width = 252
564          Anchors = [akTop, akLeft, akRight]
565          BorderSpacing.Top = 3
566          TabOrder = 0
567          Text = 'StringResultEdit'
568        end
569      end
570    end
571  end
572  object KindMessageComboBox: TComboBox
573    AnchorSideLeft.Control = KindMessageLabel
574    AnchorSideTop.Control = KindMessageLabel
575    AnchorSideTop.Side = asrBottom
576    AnchorSideRight.Control = Owner
577    AnchorSideRight.Side = asrBottom
578    Left = 8
579    Height = 23
580    Top = 25
581    Width = 564
582    Anchors = [akTop, akLeft, akRight]
583    BorderSpacing.Top = 4
584    BorderSpacing.Right = 8
585    DropDownCount = 24
586    ItemHeight = 15
587    Items.Strings = (
588      '{Filled @runtime}'
589    )
590    OnChange = MessageSetupExecute
591    Style = csDropDownList
592    TabOrder = 14
593  end
594  object MsgMemo: TMemo
595    AnchorSideLeft.Control = MsgLabel
596    AnchorSideTop.Control = MsgLabel
597    AnchorSideTop.Side = asrBottom
598    AnchorSideRight.Control = HCenterBevel
599    AnchorSideBottom.Control = PositionBevel
600    Left = 8
601    Height = 75
602    Top = 135
603    Width = 273
604    Anchors = [akTop, akLeft, akRight, akBottom]
605    BorderSpacing.Top = 3
606    BorderSpacing.Bottom = 12
607    Lines.Strings = (
608      'MsgLabel'
609    )
610    OnChange = GetParamsFmtExecute
611    OnEditingDone = GetParamsFmtExecute
612    ScrollBars = ssAutoVertical
613    TabOrder = 11
614    WordWrap = False
615  end
616  object ButtonsNotebook: TNotebook
617    AnchorSideLeft.Control = HCenterBevel
618    AnchorSideLeft.Side = asrBottom
619    AnchorSideTop.Control = CaptionLabel
620    AnchorSideRight.Control = KindMessageComboBox
621    AnchorSideRight.Side = asrBottom
622    AnchorSideBottom.Side = asrBottom
623    Left = 300
624    Height = 165
625    Top = 64
626    Width = 272
627    PageIndex = 0
628    Anchors = [akTop, akLeft, akRight]
629    TabOrder = 13
630    TabStop = True
631    object Page1: TPage
632      object ButtonsCheckGroup: TCheckGroup
633        AnchorSideLeft.Side = asrBottom
634        Left = 0
635        Height = 165
636        Top = 0
637        Width = 272
638        Align = alClient
639        AutoFill = True
640        Caption = 'BUTTONS (TMsgDlgButtons)'
641        ChildSizing.LeftRightSpacing = 16
642        ChildSizing.TopBottomSpacing = 6
643        ChildSizing.EnlargeHorizontal = crsHomogenousChildResize
644        ChildSizing.EnlargeVertical = crsHomogenousChildResize
645        ChildSizing.ShrinkHorizontal = crsScaleChilds
646        ChildSizing.ShrinkVertical = crsScaleChilds
647        ChildSizing.Layout = cclLeftToRightThenTopToBottom
648        ChildSizing.ControlsPerLine = 2
649        ClientHeight = 145
650        ClientWidth = 268
651        Columns = 2
652        Items.Strings = (
653          'mbYes'
654          'mbNo'
655          'mbOK'
656          'mbCancel'
657          'mbAbort'
658          'mbRetry'
659          'mbIgnore'
660          'mbAll'
661          'mbNoToAll'
662          'mbYesToAll'
663          'mbHelp'
664          'mbClose'
665        )
666        OnItemClick = ButtonsCheckGroupItemClick
667        TabOrder = 0
668        Data = {
669          0C000000020203030202020202020202
670        }
671      end
672    end
673    object Page2: TPage
674      object ButtonsPanel: TPanel
675        Left = 0
676        Height = 173
677        Top = 0
678        Width = 296
679        Align = alClient
680        ClientHeight = 173
681        ClientWidth = 296
682        TabOrder = 0
683        object ButtonsStringGrid: TStringGrid
684          Left = 1
685          Height = 134
686          Top = 1
687          Width = 294
688          Align = alClient
689          AutoFillColumns = True
690          ColCount = 2
691          FixedCols = 0
692          Options = [goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine, goRangeSelect, goEditing, goSmoothScroll]
693          RowCount = 4
694          TabOrder = 0
695          OnPickListSelect = UpdateQuestioDlgResultExecute
696          OnSelectEditor = ButtonsStringGridSelectEditor
697          ColWidths = (
698            147
699            147
700          )
701          Cells = (
702            8
703            0
704            0
705            'BUTTONS (array of const)'
706            0
707            1
708            'Yes'
709            0
710            2
711            'No'
712            0
713            3
714            'Cancel'
715            1
716            0
717            'Modal Result'
718            1
719            1
720            'mrYes'
721            1
722            2
723            'mrNo'
724            1
725            3
726            'mrCancel'
727          )
728        end
729        object Panel2: TPanel
730          Left = 1
731          Height = 37
732          Top = 135
733          Width = 294
734          Align = alBottom
735          BevelInner = bvLowered
736          BevelOuter = bvSpace
737          ClientHeight = 37
738          ClientWidth = 294
739          TabOrder = 1
740          object BitBtn1: TBitBtn
741            AnchorSideLeft.Control = Panel2
742            AnchorSideRight.Control = HCenterBevel2
743            Left = 2
744            Height = 33
745            Top = 2
746            Width = 143
747            Action = AddConst
748            Align = alLeft
749            Anchors = [akTop, akLeft, akRight, akBottom]
750            AutoSize = True
751            TabOrder = 0
752          end
753          object BitBtn2: TBitBtn
754            AnchorSideLeft.Control = HCenterBevel2
755            AnchorSideLeft.Side = asrBottom
756            AnchorSideRight.Control = Panel2
757            Left = 149
758            Height = 33
759            Top = 2
760            Width = 143
761            Action = DelConst
762            Align = alRight
763            Anchors = [akTop, akLeft, akRight, akBottom]
764            AutoSize = True
765            TabOrder = 1
766          end
767          object HCenterBevel2: TBevel
768            AnchorSideLeft.Control = Panel2
769            AnchorSideLeft.Side = asrCenter
770            Left = 145
771            Height = 34
772            Top = 1
773            Width = 4
774            Shape = bsSpacer
775          end
776        end
777      end
778    end
779  end
780  object ButtonPanel: TPanel
781    AnchorSideLeft.Control = Owner
782    AnchorSideTop.Control = ValueEdit
783    AnchorSideTop.Side = asrBottom
784    AnchorSideRight.Control = Owner
785    AnchorSideRight.Side = asrBottom
786    AnchorSideBottom.Control = Owner
787    AnchorSideBottom.Side = asrBottom
788    Left = 0
789    Height = 43
790    Top = 496
791    Width = 580
792    Anchors = [akLeft, akRight, akBottom]
793    AutoSize = True
794    BorderSpacing.Top = 8
795    BevelOuter = bvNone
796    ClientHeight = 43
797    ClientWidth = 580
798    TabOrder = 15
799    object TestButton: TButton
800      AnchorSideLeft.Control = ButtonPanel
801      AnchorSideTop.Control = CancelButton
802      AnchorSideBottom.Control = CancelButton
803      AnchorSideBottom.Side = asrBottom
804      Left = 8
805      Height = 26
806      Top = 9
807      Width = 55
808      Action = Test
809      Anchors = [akTop, akLeft, akBottom]
810      AutoSize = True
811      BorderSpacing.Left = 8
812      BorderSpacing.InnerBorder = 4
813      TabOrder = 0
814    end
815    object OkButton: TBitBtn
816      AnchorSideTop.Control = CancelButton
817      AnchorSideRight.Control = CancelButton
818      Left = 420
819      Height = 26
820      Top = 9
821      Width = 62
822      Anchors = [akTop, akRight]
823      AutoSize = True
824      BorderSpacing.Right = 8
825      Caption = '&OK'
826      Kind = bkOK
827      ModalResult = 1
828      TabOrder = 1
829    end
830    object CancelButton: TBitBtn
831      AnchorSideLeft.Control = OkButton
832      AnchorSideLeft.Side = asrBottom
833      AnchorSideTop.Control = PositionBevel1
834      AnchorSideTop.Side = asrBottom
835      AnchorSideRight.Control = ButtonPanel
836      AnchorSideRight.Side = asrBottom
837      Left = 490
838      Height = 26
839      Top = 9
840      Width = 82
841      Anchors = [akTop, akRight]
842      AutoSize = True
843      BorderSpacing.Right = 8
844      BorderSpacing.Bottom = 8
845      Cancel = True
846      Caption = 'Cancel'
847      Kind = bkCancel
848      ModalResult = 2
849      TabOrder = 2
850    end
851    object PositionBevel1: TBevel
852      AnchorSideLeft.Control = ButtonPanel
853      AnchorSideTop.Control = ButtonPanel
854      AnchorSideRight.Control = ButtonPanel
855      AnchorSideRight.Side = asrBottom
856      Left = 4
857      Height = 9
858      Top = 0
859      Width = 572
860      Anchors = [akTop, akLeft, akRight]
861      BorderSpacing.Left = 4
862      BorderSpacing.Right = 4
863      Shape = bsTopLine
864    end
865  end
866  object HCenterBevel: TBevel
867    AnchorSideLeft.Control = Owner
868    AnchorSideLeft.Side = asrCenter
869    Left = 281
870    Height = 50
871    Top = 7
872    Width = 19
873    Shape = bsSpacer
874  end
875  object HCenterBevel1: TBevel
876    AnchorSideLeft.Control = MsgMemo
877    AnchorSideLeft.Side = asrCenter
878    Left = 136
879    Height = 41
880    Top = 478
881    Width = 16
882    Shape = bsSpacer
883  end
884  object ActionList1: TActionList
885    left = 504
886    top = 376
887    object AddConst: TAction
888      Caption = 'AddConst'
889      OnExecute = AddConstExecute
890    end
891    object DelConst: TAction
892      Caption = 'DelConst'
893      OnExecute = DelConstExecute
894    end
895    object MessageSetup: TAction
896      Caption = 'MessageSetup'
897      OnExecute = MessageSetupExecute
898    end
899    object MessagesInit: TAction
900      Caption = 'MessagesInit'
901      OnExecute = MessagesInitExecute
902    end
903    object Test: TAction
904      Caption = 'Test'
905      OnExecute = TestExecute
906    end
907    object GetMessageForSource: TAction
908      Caption = 'GetMessageForSource'
909      OnExecute = GetMessageForSourceExecute
910    end
911    object GetParamsFmt: TAction
912      Caption = 'GetParamsFmt'
913      OnExecute = GetParamsFmtExecute
914    end
915    object SetIfOrCase: TAction
916      Caption = 'SetIfOrCase'
917      OnExecute = SetIfOrCaseExecute
918    end
919    object UpdateQuestioDlgResult: TAction
920      Caption = 'UpdateQuestioDlgResult'
921      OnExecute = UpdateQuestioDlgResultExecute
922    end
923  end
924end
925