lazarus/components/messagecomposer/messagecomposer.lfm

object FormMessagesComposer: TFormMessagesComposer
  AnchorSideLeft.Side = asrBottom
  Left = 658
  Height = 539
  Top = 123
  Width = 580
  ActiveControl = KindMessageComboBox
  BorderIcons = [biSystemMenu]
  Caption = 'Messages Composer'
  ClientHeight = 539
  ClientWidth = 580
  Constraints.MinHeight = 500
  Constraints.MinWidth = 520
  Position = poScreenCenter
  OnCreate = MessagesInitExecute
  OnShow = FormShow
  object CaptionLabel: TLabel
    AnchorSideLeft.Control = KindMessageComboBox
    AnchorSideTop.Control = KindMessageComboBox
    AnchorSideTop.Side = asrBottom
    Left = 8
    Height = 15
    Top = 64
    Width = 70
    BorderSpacing.Top = 16
    Caption = 'CaptionLabel'
    ParentColor = False
  end
  object MsgLabel: TLabel
    AnchorSideLeft.Control = CaptionEdit
    AnchorSideTop.Control = CaptionEdit
    AnchorSideTop.Side = asrBottom
    Left = 8
    Height = 15
    Top = 117
    Width = 51
    BorderSpacing.Top = 12
    Caption = 'MsgLabel'
    ParentColor = False
  end
  object DlgTypeLabel: TLabel
    AnchorSideLeft.Control = DlgTypeComboBox
    AnchorSideTop.Control = CaptionLabel
    Left = 152
    Height = 15
    Top = 64
    Width = 44
    Caption = 'DlgType'
    ParentColor = False
  end
  object HelpContextLabel: TLabel
    AnchorSideLeft.Control = MsgMemo
    AnchorSideTop.Side = asrBottom
    AnchorSideBottom.Control = HelpContextSpinEdit
    Left = 8
    Height = 15
    Top = 281
    Width = 69
    Anchors = [akLeft, akBottom]
    Caption = 'Help Context'
    ParentColor = False
  end
  object HelpKeyWordLabel: TLabel
    AnchorSideLeft.Control = YLabel
    AnchorSideTop.Control = HelpContextLabel
    AnchorSideTop.Side = asrCenter
    AnchorSideRight.Side = asrBottom
    Left = 101
    Height = 15
    Top = 281
    Width = 76
    Caption = 'Help KeyWord'
    ParentColor = False
  end
  object XLabel: TLabel
    AnchorSideLeft.Control = MsgMemo
    AnchorSideTop.Control = XSpinEdit
    AnchorSideTop.Side = asrCenter
    Left = 8
    Height = 15
    Top = 241
    Width = 7
    Caption = 'X'
    ParentColor = False
  end
  object YLabel: TLabel
    AnchorSideLeft.Control = XSpinEdit
    AnchorSideLeft.Side = asrBottom
    AnchorSideTop.Control = YSpinEdit
    AnchorSideTop.Side = asrCenter
    Left = 101
    Height = 15
    Top = 241
    Width = 7
    BorderSpacing.Left = 16
    Caption = 'Y'
    ParentColor = False
  end
  object HelpFileNameLabel: TLabel
    AnchorSideLeft.Control = MsgMemo
    AnchorSideTop.Side = asrBottom
    AnchorSideBottom.Control = HelpFileNameEdit
    Left = 8
    Height = 15
    Top = 328
    Width = 78
    Anchors = [akLeft, akBottom]
    BorderSpacing.Top = 6
    Caption = 'Help FileName'
    ParentColor = False
  end
  object PromptLabel: TLabel
    AnchorSideLeft.Control = MsgMemo
    AnchorSideTop.Control = Bevel2
    AnchorSideTop.Side = asrBottom
    AnchorSideBottom.Control = PromptEdit
    Left = 8
    Height = 15
    Top = 394
    Width = 68
    Anchors = [akLeft, akBottom]
    Caption = 'PromptLabel'
    ParentColor = False
  end
  object ValueLabel: TLabel
    AnchorSideLeft.Control = PromptEdit
    AnchorSideTop.Control = PromptEdit
    AnchorSideTop.Side = asrBottom
    AnchorSideBottom.Control = ValueEdit
    Left = 8
    Height = 15
    Top = 447
    Width = 56
    Anchors = [akLeft, akBottom]
    BorderSpacing.Top = 12
    Caption = 'Value (var)'
    ParentColor = False
  end
  object DefaultValue: TLabel
    AnchorSideLeft.Control = DefaultEdit
    AnchorSideTop.Control = ValueLabel
    Left = 152
    Height = 15
    Top = 447
    Width = 38
    Caption = 'Default'
    ParentColor = False
  end
  object PositionBevel: TBevel
    AnchorSideLeft.Control = MsgMemo
    AnchorSideTop.Side = asrBottom
    AnchorSideRight.Control = MsgMemo
    AnchorSideRight.Side = asrBottom
    AnchorSideBottom.Control = XSpinEdit
    Left = 8
    Height = 9
    Top = 222
    Width = 273
    Anchors = [akLeft, akRight, akBottom]
    Shape = bsTopLine
  end
  object Bevel2: TBevel
    AnchorSideLeft.Control = MsgMemo
    AnchorSideTop.Side = asrBottom
    AnchorSideRight.Control = MsgMemo
    AnchorSideRight.Side = asrBottom
    AnchorSideBottom.Control = PromptLabel
    Left = 8
    Height = 9
    Top = 385
    Width = 273
    Anchors = [akLeft, akRight, akBottom]
    BorderSpacing.Top = 16
    Shape = bsTopLine
  end
  object HelpCtxBevel: TBevel
    AnchorSideLeft.Control = MsgMemo
    AnchorSideTop.Side = asrBottom
    AnchorSideRight.Control = MsgMemo
    AnchorSideRight.Side = asrBottom
    AnchorSideBottom.Control = HelpContextLabel
    Left = 8
    Height = 9
    Top = 272
    Width = 273
    Anchors = [akLeft, akRight, akBottom]
    Shape = bsTopLine
  end
  object KindMessageLabel: TLabel
    AnchorSideLeft.Control = Owner
    AnchorSideTop.Control = Owner
    Left = 8
    Height = 15
    Top = 6
    Width = 98
    BorderSpacing.Left = 8
    BorderSpacing.Top = 6
    BorderSpacing.Right = 6
    Caption = 'KindMessageLabel'
    ParentColor = False
  end
  object CaptionEdit: TEdit
    AnchorSideLeft.Control = CaptionLabel
    AnchorSideTop.Control = CaptionLabel
    AnchorSideTop.Side = asrBottom
    AnchorSideRight.Control = HCenterBevel1
    Left = 8
    Height = 23
    Top = 82
    Width = 128
    Anchors = [akTop, akLeft, akRight]
    BorderSpacing.Top = 3
    TabOrder = 0
    Text = 'CaptionEdit'
  end
  object DlgTypeComboBox: TComboBox
    AnchorSideLeft.Control = HCenterBevel1
    AnchorSideLeft.Side = asrBottom
    AnchorSideTop.Control = CaptionEdit
    AnchorSideRight.Control = HCenterBevel
    Left = 152
    Height = 23
    Top = 82
    Width = 129
    Anchors = [akTop, akLeft, akRight]
    DropDownCount = 24
    ItemHeight = 15
    ItemIndex = 0
    Items.Strings = (
      'mtWarning'
      'mtError'
      'mtInformation'
      'mtConfirmation'
      'mtCustom'
    )
    Style = csDropDownList
    TabOrder = 1
    Text = 'mtWarning'
  end
  object HelpContextSpinEdit: TSpinEdit
    AnchorSideLeft.Control = HelpContextLabel
    AnchorSideTop.Side = asrBottom
    AnchorSideRight.Control = XSpinEdit
    AnchorSideRight.Side = asrBottom
    AnchorSideBottom.Control = HelpFileNameLabel
    Left = 8
    Height = 23
    Top = 299
    Width = 77
    Anchors = [akLeft, akRight, akBottom]
    BorderSpacing.Top = 3
    MaxValue = 9999
    TabOrder = 2
  end
  object HelpKeyWordEdit: TEdit
    AnchorSideLeft.Control = HelpKeyWordLabel
    AnchorSideTop.Control = HelpContextSpinEdit
    AnchorSideRight.Control = MsgMemo
    AnchorSideRight.Side = asrBottom
    Left = 101
    Height = 23
    Top = 299
    Width = 180
    Anchors = [akTop, akLeft, akRight]
    TabOrder = 3
    Text = 'HelpKeyWordEdit'
  end
  object XSpinEdit: TSpinEdit
    AnchorSideLeft.Control = XLabel
    AnchorSideLeft.Side = asrBottom
    AnchorSideTop.Control = PositionBevel
    AnchorSideTop.Side = asrBottom
    AnchorSideBottom.Control = HelpCtxBevel
    Left = 19
    Height = 23
    Top = 237
    Width = 66
    Anchors = [akLeft, akBottom]
    BorderSpacing.Left = 4
    BorderSpacing.Top = 6
    BorderSpacing.Bottom = 12
    TabOrder = 4
  end
  object YSpinEdit: TSpinEdit
    AnchorSideLeft.Control = YLabel
    AnchorSideLeft.Side = asrBottom
    AnchorSideTop.Control = XSpinEdit
    AnchorSideTop.Side = asrCenter
    Left = 112
    Height = 23
    Top = 237
    Width = 66
    BorderSpacing.Left = 4
    TabOrder = 5
  end
  object HelpFileNameEdit: TFileNameEdit
    AnchorSideLeft.Control = MsgMemo
    AnchorSideTop.Side = asrBottom
    AnchorSideRight.Control = MsgMemo
    AnchorSideRight.Side = asrBottom
    AnchorSideBottom.Control = Bevel2
    Left = 8
    Height = 23
    Top = 346
    Width = 273
    DialogOptions = []
    FilterIndex = 0
    HideDirectories = False
    ButtonWidth = 23
    NumGlyphs = 1
    Anchors = [akLeft, akRight, akBottom]
    BorderSpacing.Top = 3
    MaxLength = 0
    TabOrder = 6
  end
  object PromptEdit: TEdit
    AnchorSideLeft.Control = PromptLabel
    AnchorSideTop.Side = asrBottom
    AnchorSideRight.Control = MaskInputCheckBox
    AnchorSideBottom.Control = ValueLabel
    Left = 8
    Height = 23
    Top = 412
    Width = 183
    Anchors = [akLeft, akRight, akBottom]
    BorderSpacing.Top = 3
    TabOrder = 7
    Text = 'PromptEdit'
  end
  object MaskInputCheckBox: TCheckBox
    AnchorSideTop.Control = PromptEdit
    AnchorSideTop.Side = asrCenter
    AnchorSideRight.Control = MsgMemo
    AnchorSideRight.Side = asrBottom
    Left = 207
    Height = 19
    Top = 414
    Width = 74
    Anchors = [akTop, akRight]
    BorderSpacing.Left = 16
    Caption = 'MaskInput'
    TabOrder = 8
  end
  object ValueEdit: TEdit
    AnchorSideLeft.Control = ValueLabel
    AnchorSideTop.Side = asrBottom
    AnchorSideRight.Control = HCenterBevel1
    AnchorSideBottom.Control = ButtonPanel
    Left = 8
    Height = 23
    Top = 465
    Width = 128
    Anchors = [akLeft, akRight, akBottom]
    BorderSpacing.Top = 3
    TabOrder = 9
    Text = 'ValueEdit'
  end
  object DefaultEdit: TEdit
    AnchorSideLeft.Control = HCenterBevel1
    AnchorSideLeft.Side = asrBottom
    AnchorSideTop.Control = ValueEdit
    AnchorSideRight.Control = MsgMemo
    AnchorSideRight.Side = asrBottom
    Left = 152
    Height = 23
    Top = 465
    Width = 129
    Anchors = [akTop, akLeft, akRight]
    TabOrder = 10
    Text = 'DefaultEdit'
  end
  object SourceWrapperGroupBox: TGroupBox
    AnchorSideLeft.Control = ButtonsNotebook
    AnchorSideTop.Control = ButtonsNotebook
    AnchorSideTop.Side = asrBottom
    AnchorSideRight.Control = ButtonsNotebook
    AnchorSideRight.Side = asrBottom
    AnchorSideBottom.Control = DefaultEdit
    AnchorSideBottom.Side = asrBottom
    Left = 300
    Height = 243
    Top = 245
    Width = 272
    Anchors = [akTop, akLeft, akRight, akBottom]
    BorderSpacing.Top = 16
    Caption = 'SourceWrapperGroupBox'
    ClientHeight = 223
    ClientWidth = 268
    TabOrder = 12
    object IfThenRadioButton: TRadioButton
      AnchorSideLeft.Control = SourceWrapperGroupBox
      Left = 8
      Height = 19
      Top = 8
      Width = 67
      BorderSpacing.Left = 8
      Caption = 'if...then...'
      Checked = True
      TabOrder = 0
      TabStop = True
      OnClick = SetIfOrCaseExecute
    end
    object IfThenElseRadioButton: TRadioButton
      AnchorSideLeft.Control = IfThenRadioButton
      AnchorSideTop.Control = IfThenRadioButton
      AnchorSideTop.Side = asrBottom
      Left = 8
      Height = 19
      Top = 29
      Width = 99
      BorderSpacing.Top = 2
      Caption = 'if...then...else ...'
      TabOrder = 1
      OnClick = SetIfOrCaseExecute
    end
    object CaseOfEndRadioButton: TRadioButton
      AnchorSideLeft.Control = IfThenElseRadioButton
      AnchorSideLeft.Side = asrBottom
      AnchorSideTop.Control = IfThenRadioButton
      Left = 123
      Height = 19
      Top = 10
      Width = 105
      BorderSpacing.Left = 16
      BorderSpacing.Top = 2
      Caption = 'case ... of ... end;'
      TabOrder = 2
      OnClick = SetIfOrCaseExecute
    end
    object CaseOfEndElseRadioButton: TRadioButton
      AnchorSideLeft.Control = CaseOfEndRadioButton
      AnchorSideTop.Control = CaseOfEndRadioButton
      AnchorSideTop.Side = asrBottom
      Left = 123
      Height = 19
      Top = 31
      Width = 114
      BorderSpacing.Top = 2
      Caption = 'case ... of ... else ...'
      TabOrder = 3
      OnClick = SetIfOrCaseExecute
    end
    object BeginEndCheckBox: TCheckBox
      AnchorSideLeft.Control = IfThenRadioButton
      AnchorSideTop.Control = IfThenElseRadioButton
      AnchorSideTop.Side = asrBottom
      Left = 8
      Height = 19
      Top = 54
      Width = 83
      BorderSpacing.Top = 6
      Caption = 'begin ... end'
      TabOrder = 4
    end
    object SourceNotebook: TNotebook
      AnchorSideLeft.Control = SourceWrapperGroupBox
      AnchorSideTop.Control = BeginEndCheckBox
      AnchorSideTop.Side = asrBottom
      AnchorSideRight.Control = SourceWrapperGroupBox
      AnchorSideRight.Side = asrBottom
      Left = 8
      Height = 142
      Top = 81
      Width = 252
      PageIndex = 0
      Align = alBottom
      Anchors = [akTop, akLeft, akRight, akBottom]
      BorderSpacing.Left = 8
      BorderSpacing.Top = 8
      BorderSpacing.Right = 8
      TabOrder = 5
      TabStop = True
      object PageIf: TPage
        object Label1: TLabel
          AnchorSideLeft.Control = PageIf
          AnchorSideTop.Control = PageIf
          Left = 0
          Height = 15
          Top = 0
          Width = 60
          Caption = '"if" RESULT'
          ParentColor = False
        end
        object IfResultComboBox: TComboBox
          AnchorSideLeft.Control = PageIf
          AnchorSideTop.Control = Label1
          AnchorSideTop.Side = asrBottom
          AnchorSideRight.Control = PageIf
          AnchorSideRight.Side = asrBottom
          Left = 0
          Height = 23
          Top = 18
          Width = 252
          Anchors = [akTop, akLeft, akRight]
          BorderSpacing.Top = 3
          DropDownCount = 24
          ItemHeight = 15
          ItemIndex = 0
          Items.Strings = (
            'mbOK'
            'mbCancel'
          )
          Style = csDropDownList
          TabOrder = 0
          Text = 'mbOK'
        end
      end
      object PageCase: TPage
        object CaseResultCheckGroup: TCheckGroup
          AnchorSideLeft.Control = PageCase
          AnchorSideTop.Control = PageCase
          AnchorSideRight.Control = PageCase
          AnchorSideRight.Side = asrBottom
          Left = 0
          Height = 51
          Top = 0
          Width = 271
          Anchors = [akTop, akLeft, akRight]
          AutoFill = True
          AutoSize = True
          Caption = '"case" RESULT'
          ChildSizing.LeftRightSpacing = 16
          ChildSizing.TopBottomSpacing = 6
          ChildSizing.EnlargeHorizontal = crsHomogenousChildResize
          ChildSizing.EnlargeVertical = crsHomogenousChildResize
          ChildSizing.ShrinkHorizontal = crsScaleChilds
          ChildSizing.ShrinkVertical = crsScaleChilds
          ChildSizing.Layout = cclLeftToRightThenTopToBottom
          ChildSizing.ControlsPerLine = 3
          ClientHeight = 51
          ClientWidth = 271
          Columns = 3
          Items.Strings = (
            'mbOK'
            'mbCancel'
          )
          TabOrder = 0
          Data = {
            020000000302
          }
        end
      end
      object PageString: TPage
        object StringResultLabel: TLabel
          AnchorSideLeft.Control = PageString
          AnchorSideTop.Control = PageString
          Left = 0
          Height = 15
          Top = 8
          Width = 72
          BorderSpacing.Top = 8
          Caption = 'String RESULT'
          ParentColor = False
        end
        object StringResultEdit: TEdit
          AnchorSideLeft.Control = PageString
          AnchorSideTop.Control = StringResultLabel
          AnchorSideTop.Side = asrBottom
          AnchorSideRight.Control = PageString
          AnchorSideRight.Side = asrBottom
          Left = 0
          Height = 23
          Top = 26
          Width = 252
          Anchors = [akTop, akLeft, akRight]
          BorderSpacing.Top = 3
          TabOrder = 0
          Text = 'StringResultEdit'
        end
      end
    end
  end
  object KindMessageComboBox: TComboBox
    AnchorSideLeft.Control = KindMessageLabel
    AnchorSideTop.Control = KindMessageLabel
    AnchorSideTop.Side = asrBottom
    AnchorSideRight.Control = Owner
    AnchorSideRight.Side = asrBottom
    Left = 8
    Height = 23
    Top = 25
    Width = 564
    Anchors = [akTop, akLeft, akRight]
    BorderSpacing.Top = 4
    BorderSpacing.Right = 8
    DropDownCount = 24
    ItemHeight = 15
    Items.Strings = (
      '{Filled @runtime}'
    )
    Style = csDropDownList
    TabOrder = 14
    OnChange = MessageSetupExecute
  end
  object MsgMemo: TMemo
    AnchorSideLeft.Control = MsgLabel
    AnchorSideTop.Control = MsgLabel
    AnchorSideTop.Side = asrBottom
    AnchorSideRight.Control = HCenterBevel
    AnchorSideBottom.Control = PositionBevel
    Left = 8
    Height = 75
    Top = 135
    Width = 273
    Anchors = [akTop, akLeft, akRight, akBottom]
    BorderSpacing.Top = 3
    BorderSpacing.Bottom = 12
    Lines.Strings = (
      'MsgLabel'
    )
    ScrollBars = ssAutoVertical
    TabOrder = 11
    WordWrap = False
    OnChange = GetParamsFmtExecute
    OnEditingDone = GetParamsFmtExecute
  end
  object ButtonsNotebook: TNotebook
    AnchorSideLeft.Control = HCenterBevel
    AnchorSideLeft.Side = asrBottom
    AnchorSideTop.Control = CaptionLabel
    AnchorSideRight.Control = KindMessageComboBox
    AnchorSideRight.Side = asrBottom
    AnchorSideBottom.Side = asrBottom
    Left = 300
    Height = 165
    Top = 64
    Width = 272
    PageIndex = 0
    Anchors = [akTop, akLeft, akRight]
    TabOrder = 13
    TabStop = True
    object Page1: TPage
      object ButtonsCheckGroup: TCheckGroup
        AnchorSideLeft.Side = asrBottom
        Left = 0
        Height = 165
        Top = 0
        Width = 272
        Align = alClient
        AutoFill = True
        Caption = 'BUTTONS (TMsgDlgButtons)'
        ChildSizing.LeftRightSpacing = 16
        ChildSizing.TopBottomSpacing = 6
        ChildSizing.EnlargeHorizontal = crsHomogenousChildResize
        ChildSizing.EnlargeVertical = crsHomogenousChildResize
        ChildSizing.ShrinkHorizontal = crsScaleChilds
        ChildSizing.ShrinkVertical = crsScaleChilds
        ChildSizing.Layout = cclLeftToRightThenTopToBottom
        ChildSizing.ControlsPerLine = 2
        ClientHeight = 145
        ClientWidth = 268
        Columns = 2
        Items.Strings = (
          'mbYes'
          'mbNo'
          'mbOK'
          'mbCancel'
          'mbAbort'
          'mbRetry'
          'mbIgnore'
          'mbAll'
          'mbNoToAll'
          'mbYesToAll'
          'mbHelp'
          'mbClose'
        )
        TabOrder = 0
        OnItemClick = ButtonsCheckGroupItemClick
        Data = {
          0C000000020203030202020202020202
        }
      end
    end
    object Page2: TPage
      object ButtonsPanel: TPanel
        Left = 0
        Height = 173
        Top = 0
        Width = 296
        Align = alClient
        ClientHeight = 173
        ClientWidth = 296
        TabOrder = 0
        object ButtonsStringGrid: TStringGrid
          Left = 1
          Height = 134
          Top = 1
          Width = 294
          Align = alClient
          AutoFillColumns = True
          ColCount = 2
          FixedCols = 0
          Options = [goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine, goRangeSelect, goEditing, goSmoothScroll]
          RowCount = 4
          TabOrder = 0
          OnPickListSelect = UpdateQuestioDlgResultExecute
          OnSelectEditor = ButtonsStringGridSelectEditor
          ColWidths = (
            147
            147
          )
          Cells = (
            8
            0
            0
            'BUTTONS (array of const)'
            0
            1
            'Yes'
            0
            2
            'No'
            0
            3
            'Cancel'
            1
            0
            'Modal Result'
            1
            1
            'mrYes'
            1
            2
            'mrNo'
            1
            3
            'mrCancel'
          )
        end
        object Panel2: TPanel
          Left = 1
          Height = 37
          Top = 135
          Width = 294
          Align = alBottom
          BevelInner = bvLowered
          BevelOuter = bvSpace
          ClientHeight = 37
          ClientWidth = 294
          TabOrder = 1
          object BitBtn1: TBitBtn
            AnchorSideLeft.Control = Panel2
            AnchorSideRight.Control = HCenterBevel2
            Left = 2
            Height = 33
            Top = 2
            Width = 143
            Action = AddConst
            Align = alLeft
            Anchors = [akTop, akLeft, akRight, akBottom]
            AutoSize = True
            TabOrder = 0
          end
          object BitBtn2: TBitBtn
            AnchorSideLeft.Control = HCenterBevel2
            AnchorSideLeft.Side = asrBottom
            AnchorSideRight.Control = Panel2
            Left = 149
            Height = 33
            Top = 2
            Width = 143
            Action = DelConst
            Align = alRight
            Anchors = [akTop, akLeft, akRight, akBottom]
            AutoSize = True
            TabOrder = 1
          end
          object HCenterBevel2: TBevel
            AnchorSideLeft.Control = Panel2
            AnchorSideLeft.Side = asrCenter
            Left = 145
            Height = 34
            Top = 1
            Width = 4
            Shape = bsSpacer
          end
        end
      end
    end
  end
  object ButtonPanel: TPanel
    AnchorSideLeft.Control = Owner
    AnchorSideTop.Control = ValueEdit
    AnchorSideTop.Side = asrBottom
    AnchorSideRight.Control = Owner
    AnchorSideRight.Side = asrBottom
    AnchorSideBottom.Control = Owner
    AnchorSideBottom.Side = asrBottom
    Left = 0
    Height = 43
    Top = 496
    Width = 580
    Anchors = [akLeft, akRight, akBottom]
    AutoSize = True
    BorderSpacing.Top = 8
    BevelOuter = bvNone
    ClientHeight = 43
    ClientWidth = 580
    TabOrder = 15
    object TestButton: TButton
      AnchorSideLeft.Control = ButtonPanel
      AnchorSideTop.Control = CancelButton
      AnchorSideBottom.Control = CancelButton
      AnchorSideBottom.Side = asrBottom
      Left = 8
      Height = 26
      Top = 9
      Width = 56
      Action = Test
      Anchors = [akTop, akLeft, akBottom]
      AutoSize = True
      BorderSpacing.Left = 8
      BorderSpacing.InnerBorder = 4
      TabOrder = 0
    end
    object OkButton: TBitBtn
      AnchorSideTop.Control = CancelButton
      AnchorSideRight.Control = CancelButton
      Left = 420
      Height = 26
      Top = 9
      Width = 62
      Anchors = [akTop, akRight]
      AutoSize = True
      BorderSpacing.Right = 8
      Caption = '&OK'
      Kind = bkOK
      ModalResult = 1
      TabOrder = 1
    end
    object CancelButton: TBitBtn
      AnchorSideLeft.Control = OkButton
      AnchorSideLeft.Side = asrBottom
      AnchorSideTop.Control = PositionBevel1
      AnchorSideTop.Side = asrBottom
      AnchorSideRight.Control = ButtonPanel
      AnchorSideRight.Side = asrBottom
      Left = 490
      Height = 26
      Top = 9
      Width = 82
      Anchors = [akTop, akRight]
      AutoSize = True
      BorderSpacing.Right = 8
      BorderSpacing.Bottom = 8
      Cancel = True
      Caption = 'Cancel'
      Kind = bkCancel
      ModalResult = 2
      TabOrder = 2
    end
    object PositionBevel1: TBevel
      AnchorSideLeft.Control = ButtonPanel
      AnchorSideTop.Control = ButtonPanel
      AnchorSideRight.Control = ButtonPanel
      AnchorSideRight.Side = asrBottom
      Left = 4
      Height = 9
      Top = 0
      Width = 572
      Anchors = [akTop, akLeft, akRight]
      BorderSpacing.Left = 4
      BorderSpacing.Right = 4
      Shape = bsTopLine
    end
  end
  object HCenterBevel: TBevel
    AnchorSideLeft.Control = Owner
    AnchorSideLeft.Side = asrCenter
    Left = 281
    Height = 50
    Top = 7
    Width = 19
    Shape = bsSpacer
  end
  object HCenterBevel1: TBevel
    AnchorSideLeft.Control = MsgMemo
    AnchorSideLeft.Side = asrCenter
    Left = 136
    Height = 41
    Top = 478
    Width = 16
    Shape = bsSpacer
  end
  object ActionList1: TActionList
    Left = 504
    Top = 376
    object AddConst: TAction
      Caption = 'AddConst'
      OnExecute = AddConstExecute
    end
    object DelConst: TAction
      Caption = 'DelConst'
      OnExecute = DelConstExecute
    end
    object MessageSetup: TAction
      Caption = 'MessageSetup'
      OnExecute = MessageSetupExecute
    end
    object MessagesInit: TAction
      Caption = 'MessagesInit'
      OnExecute = MessagesInitExecute
    end
    object Test: TAction
      Caption = 'Test'
      OnExecute = TestExecute
    end
    object GetMessageForSource: TAction
      Caption = 'GetMessageForSource'
      OnExecute = GetMessageForSourceExecute
    end
    object GetParamsFmt: TAction
      Caption = 'GetParamsFmt'
      OnExecute = GetParamsFmtExecute
    end
    object SetIfOrCase: TAction
      Caption = 'SetIfOrCase'
      OnExecute = SetIfOrCaseExecute
    end
    object UpdateQuestioDlgResult: TAction
      Caption = 'UpdateQuestioDlgResult'
      OnExecute = UpdateQuestioDlgResultExecute
    end
  end
end