object FormMessagesComposer: TFormMessagesComposer
  AnchorSideLeft.Side = asrBottom
  Left = 650
  Height = 552
  Top = 195
  Width = 822
  BorderIcons = [biSystemMenu]
  BorderStyle = bsDialog
  Caption = 'Messages Composer'
  ClientHeight = 552
  ClientWidth = 822
  OnCreate = MessagesInitExecute
  Position = poScreenCenter
  LCLVersion = '0.9.29'
  object CaptionLabel: TLabel
    Left = 6
    Height = 14
    Top = 70
    Width = 63
    Caption = 'CaptionLabel'
    ParentColor = False
  end
  object MsgLabel: TLabel
    AnchorSideTop.Control = CaptionEdit
    AnchorSideTop.Side = asrBottom
    Left = 6
    Height = 14
    Top = 120
    Width = 45
    BorderSpacing.Top = 12
    Caption = 'MsgLabel'
    ParentColor = False
  end
  object DlgTypeLabel: TLabel
    Left = 154
    Height = 14
    Top = 70
    Width = 40
    Caption = 'DlgType'
    ParentColor = False
  end
  object HelpContextLabel: TLabel
    AnchorSideTop.Control = HelpCtxBevel
    AnchorSideTop.Side = asrBottom
    Left = 8
    Height = 14
    Top = 294
    Width = 64
    Caption = 'Help Context'
    ParentColor = False
  end
  object HelpKeyWordLabel: TLabel
    AnchorSideTop.Control = HelpContextLabel
    AnchorSideTop.Side = asrCenter
    Left = 103
    Height = 14
    Top = 294
    Width = 69
    Caption = 'Help KeyWord'
    ParentColor = False
  end
  object XLabel: TLabel
    AnchorSideTop.Control = XSpinEdit
    AnchorSideTop.Side = asrCenter
    Left = 6
    Height = 14
    Top = 258
    Width = 7
    Caption = 'X'
    ParentColor = False
  end
  object YLabel: TLabel
    AnchorSideLeft.Control = XSpinEdit
    AnchorSideLeft.Side = asrBottom
    AnchorSideTop.Control = YSpinEdit
    AnchorSideTop.Side = asrCenter
    Left = 91
    Height = 14
    Top = 258
    Width = 7
    BorderSpacing.Left = 8
    Caption = 'Y'
    ParentColor = False
  end
  object HelpFileNameLabel: TLabel
    AnchorSideTop.Control = HelpContextSpinEdit
    AnchorSideTop.Side = asrBottom
    Left = 8
    Height = 14
    Top = 344
    Width = 68
    BorderSpacing.Top = 6
    Caption = 'Help FileName'
    ParentColor = False
  end
  object PromptLabel: TLabel
    Left = 16
    Height = 14
    Top = 425
    Width = 60
    Caption = 'PromptLabel'
    ParentColor = False
  end
  object ValueLabel: TLabel
    Left = 16
    Height = 14
    Top = 478
    Width = 54
    Caption = 'Value (var)'
    ParentColor = False
  end
  object DefaultValue: TLabel
    Left = 138
    Height = 14
    Top = 478
    Width = 36
    Caption = 'Default'
    ParentColor = False
  end
  object PositionBevel: TBevel
    AnchorSideTop.Control = MsgMemo
    AnchorSideTop.Side = asrBottom
    Left = 5
    Height = 9
    Top = 237
    Width = 269
    BorderSpacing.Top = 6
    Shape = bsTopLine
  end
  object Bevel2: TBevel
    Left = 8
    Height = 9
    Top = 417
    Width = 266
    Shape = bsTopLine
  end
  object HelpCtxBevel: TBevel
    AnchorSideTop.Control = XSpinEdit
    AnchorSideTop.Side = asrBottom
    Left = 8
    Height = 9
    Top = 285
    Width = 266
    Shape = bsTopLine
  end
  object KindMessageLabel: TLabel
    Left = 6
    Height = 14
    Top = 6
    Width = 810
    Align = alTop
    BorderSpacing.Left = 6
    BorderSpacing.Top = 6
    BorderSpacing.Right = 6
    Caption = 'KindMessageLabel'
    ParentColor = False
  end
  object CaptionEdit: TEdit
    AnchorSideTop.Control = CaptionLabel
    AnchorSideTop.Side = asrBottom
    Left = 6
    Height = 21
    Top = 87
    Width = 136
    BorderSpacing.Top = 3
    TabOrder = 0
    Text = 'CaptionEdit'
  end
  object DlgTypeComboBox: TComboBox
    AnchorSideTop.Control = DlgTypeLabel
    AnchorSideTop.Side = asrBottom
    Left = 154
    Height = 21
    Top = 87
    Width = 120
    BorderSpacing.Top = 3
    ItemHeight = 13
    ItemIndex = 0
    Items.Strings = (
      'mtWarning'
      'mtError'
      'mtInformation'
      'mtConfirmation'
      'mtCustom'
    )
    Style = csDropDownList
    TabOrder = 1
    Text = 'mtWarning'
  end
  object ButtonsCheckGroup: TCheckGroup
    Left = 285
    Height = 177
    Top = 70
    Width = 216
    AutoFill = True
    Caption = 'BUTTONS (TMsgDlgButtons)'
    ChildSizing.LeftRightSpacing = 6
    ChildSizing.TopBottomSpacing = 6
    ChildSizing.EnlargeHorizontal = crsHomogenousChildResize
    ChildSizing.EnlargeVertical = crsHomogenousChildResize
    ChildSizing.ShrinkHorizontal = crsScaleChilds
    ChildSizing.ShrinkVertical = crsScaleChilds
    ChildSizing.Layout = cclLeftToRightThenTopToBottom
    ChildSizing.ControlsPerLine = 2
    Columns = 2
    Items.Strings = (
      'mbYes'
      'mbNo'
      'mbOK'
      'mbCancel'
      'mbAbort'
      'mbRetry'
      'mbIgnore'
      'mbAll'
      'mbNoToAll'
      'mbYesToAll'
      'mbHelp'
      'mbClose'
    )
    OnItemClick = ButtonsCheckGroupItemClick
    TabOrder = 2
    Data = {
      0C000000020203030202020202020202
    }
  end
  object HelpContextSpinEdit: TSpinEdit
    AnchorSideTop.Control = HelpContextLabel
    AnchorSideTop.Side = asrBottom
    Left = 8
    Height = 27
    Top = 311
    Width = 61
    BorderSpacing.Top = 3
    MaxValue = 9999
    TabOrder = 3
  end
  object HelpKeyWordEdit: TEdit
    AnchorSideTop.Control = HelpKeyWordLabel
    AnchorSideTop.Side = asrBottom
    Left = 103
    Height = 21
    Top = 311
    Width = 171
    BorderSpacing.Top = 3
    TabOrder = 4
    Text = 'HelpKeyWordEdit'
  end
  object ButtonsPanel: TPanel
    Left = 509
    Height = 177
    Top = 70
    Width = 285
    ClientHeight = 177
    ClientWidth = 285
    TabOrder = 5
    object ButtonsStringGrid: TStringGrid
      Left = 1
      Height = 138
      Top = 1
      Width = 283
      Align = alTop
      ColCount = 2
      FixedCols = 0
      Options = [goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine, goRangeSelect, goEditing, goSmoothScroll]
      RowCount = 4
      TabOrder = 0
      OnPickListSelect = UpdateQuestioDlgResultExecute
      OnSelectEditor = ButtonsStringGridSelectEditor
      ColWidths = (
        171
        104
      )
      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 = 139
      Width = 283
      Align = alClient
      BevelInner = bvLowered
      BevelOuter = bvSpace
      ClientHeight = 37
      ClientWidth = 283
      TabOrder = 1
      object BitBtn1: TBitBtn
        Left = 2
        Height = 33
        Top = 2
        Width = 128
        Action = AddConst
        Align = alLeft
        NumGlyphs = 0
        TabOrder = 0
      end
      object BitBtn2: TBitBtn
        Left = 153
        Height = 33
        Top = 2
        Width = 128
        Action = DelConst
        Align = alRight
        NumGlyphs = 0
        TabOrder = 1
      end
    end
  end
  object XSpinEdit: TSpinEdit
    AnchorSideLeft.Control = XLabel
    AnchorSideLeft.Side = asrBottom
    AnchorSideTop.Control = PositionBevel
    AnchorSideTop.Side = asrBottom
    Left = 17
    Height = 27
    Top = 252
    Width = 66
    BorderSpacing.Left = 4
    BorderSpacing.Top = 6
    BorderSpacing.Bottom = 6
    TabOrder = 6
  end
  object YSpinEdit: TSpinEdit
    AnchorSideLeft.Control = YLabel
    AnchorSideLeft.Side = asrBottom
    AnchorSideTop.Control = XSpinEdit
    AnchorSideTop.Side = asrCenter
    Left = 102
    Height = 27
    Top = 252
    Width = 66
    BorderSpacing.Left = 4
    TabOrder = 7
  end
  object HelpFileNameEdit: TFileNameEdit
    AnchorSideTop.Control = HelpFileNameLabel
    AnchorSideTop.Side = asrBottom
    Left = 8
    Height = 21
    Top = 361
    Width = 244
    DialogOptions = []
    FilterIndex = 0
    HideDirectories = False
    ButtonWidth = 23
    NumGlyphs = 1
    BorderSpacing.Top = 3
    MaxLength = 0
    TabOrder = 8
  end
  object PromptEdit: TEdit
    AnchorSideTop.Control = PromptLabel
    AnchorSideTop.Side = asrBottom
    Left = 16
    Height = 21
    Top = 442
    Width = 164
    BorderSpacing.Top = 3
    TabOrder = 9
    Text = 'PromptEdit'
  end
  object MaskInputCheckBox: TCheckBox
    AnchorSideTop.Control = PromptEdit
    AnchorSideTop.Side = asrCenter
    Left = 191
    Height = 17
    Top = 444
    Width = 68
    Caption = 'MaskInput'
    TabOrder = 10
  end
  object ValueEdit: TEdit
    AnchorSideTop.Control = ValueLabel
    AnchorSideTop.Side = asrBottom
    Left = 16
    Height = 21
    Top = 495
    Width = 112
    BorderSpacing.Top = 3
    TabOrder = 11
    Text = 'ValueEdit'
  end
  object DefaultEdit: TEdit
    AnchorSideTop.Control = DefaultValue
    AnchorSideTop.Side = asrBottom
    Left = 138
    Height = 21
    Top = 495
    Width = 136
    BorderSpacing.Top = 3
    TabOrder = 12
    Text = 'DefaultEdit'
  end
  object TestButton: TButton
    Left = 307
    Height = 37
    Top = 501
    Width = 256
    Action = Test
    BorderSpacing.InnerBorder = 4
    TabOrder = 13
  end
  object OkButton: TBitBtn
    Left = 605
    Height = 37
    Top = 501
    Width = 100
    AutoSize = True
    Caption = '&OK'
    Constraints.MinHeight = 37
    Constraints.MinWidth = 100
    Default = True
    Kind = bkOK
    ModalResult = 1
    NumGlyphs = 0
    TabOrder = 14
  end
  object CancelButton: TBitBtn
    AnchorSideLeft.Control = OkButton
    AnchorSideLeft.Side = asrBottom
    Left = 709
    Height = 37
    Top = 501
    Width = 100
    BorderSpacing.Left = 4
    Cancel = True
    Caption = 'Cancel'
    Constraints.MinHeight = 37
    Constraints.MinWidth = 100
    Kind = bkCancel
    ModalResult = 2
    NumGlyphs = 0
    TabOrder = 15
  end
  object SourceWrapperGroupBox: TGroupBox
    Left = 307
    Height = 221
    Top = 264
    Width = 509
    Caption = 'SourceWrapperGroupBox'
    ClientHeight = 203
    ClientWidth = 505
    TabOrder = 16
    object Label1: TLabel
      Left = 7
      Height = 14
      Top = 6
      Width = 55
      Caption = '"if" RESULT'
      ParentColor = False
    end
    object StringResultLabel: TLabel
      AnchorSideTop.Side = asrBottom
      Left = 9
      Height = 14
      Top = 145
      Width = 69
      BorderSpacing.Top = 8
      Caption = 'String RESULT'
      ParentColor = False
    end
    object IfThenRadioButton: TRadioButton
      Left = 7
      Height = 17
      Top = 72
      Width = 70
      Caption = 'if...then...'
      Checked = True
      OnClick = SetIfOrCaseExecute
      State = cbChecked
      TabOrder = 0
    end
    object IfThenElseRadioButton: TRadioButton
      AnchorSideTop.Control = IfThenRadioButton
      AnchorSideTop.Side = asrBottom
      Left = 7
      Height = 17
      Top = 91
      Width = 104
      BorderSpacing.Top = 2
      Caption = 'if...then...else ...'
      OnClick = SetIfOrCaseExecute
      TabOrder = 1
      TabStop = False
    end
    object CaseOfEndRadioButton: TRadioButton
      Left = 199
      Height = 17
      Top = 143
      Width = 108
      Caption = 'case ... of ... end;'
      OnClick = SetIfOrCaseExecute
      TabOrder = 2
      TabStop = False
    end
    object CaseOfEndElseRadioButton: TRadioButton
      AnchorSideTop.Control = CaseOfEndRadioButton
      AnchorSideTop.Side = asrBottom
      Left = 199
      Height = 17
      Top = 162
      Width = 120
      BorderSpacing.Top = 2
      Caption = 'case ... of ... else ...'
      OnClick = SetIfOrCaseExecute
      TabOrder = 3
      TabStop = False
    end
    object BeginEndCheckBox: TCheckBox
      Left = 385
      Height = 17
      Top = 152
      Width = 80
      Caption = 'begin ... end'
      TabOrder = 4
    end
    object IfResultComboBox: TComboBox
      AnchorSideTop.Control = Label1
      AnchorSideTop.Side = asrBottom
      Left = 7
      Height = 21
      Top = 23
      Width = 175
      BorderSpacing.Top = 3
      ItemHeight = 13
      ItemIndex = 0
      Items.Strings = (
        'mbOK'
        'mbCancel'
      )
      Style = csDropDownList
      TabOrder = 5
      Text = 'mbOK'
    end
    object CaseResultCheckGroup: TCheckGroup
      AnchorSideLeft.Control = IfResultComboBox
      AnchorSideLeft.Side = asrBottom
      Left = 192
      Height = 118
      Top = -1
      Width = 299
      AutoFill = True
      BorderSpacing.Left = 10
      Caption = '"case" RESULT'
      ChildSizing.LeftRightSpacing = 6
      ChildSizing.TopBottomSpacing = 6
      ChildSizing.EnlargeHorizontal = crsHomogenousChildResize
      ChildSizing.EnlargeVertical = crsHomogenousChildResize
      ChildSizing.ShrinkHorizontal = crsScaleChilds
      ChildSizing.ShrinkVertical = crsScaleChilds
      ChildSizing.Layout = cclLeftToRightThenTopToBottom
      ChildSizing.ControlsPerLine = 3
      Columns = 3
      Items.Strings = (
        'mbOK'
        'mbCancel'
      )
      TabOrder = 6
      Data = {
        020000000302
      }
    end
    object StringResultEdit: TEdit
      AnchorSideTop.Control = StringResultLabel
      AnchorSideTop.Side = asrBottom
      Left = 9
      Height = 21
      Top = 162
      Width = 173
      BorderSpacing.Top = 3
      TabOrder = 7
      Text = 'StringResultEdit'
    end
  end
  object KindMessageComboBox: TComboBox
    Left = 6
    Height = 21
    Top = 24
    Width = 810
    Align = alTop
    BorderSpacing.Left = 6
    BorderSpacing.Top = 4
    BorderSpacing.Right = 6
    ItemHeight = 13
    ItemIndex = 0
    Items.Strings = (
      'MessageDlg[Msg, DlgType, Buttons(TMsgDlgButtons), HelpCtx]'
      'MessageDlg[Caption, Msg, DlgType, Buttons(TMsgDlgButtons), HelpCtx]'
      'MessageDlg[Caption, Msg, DlgType, Buttons(TMsgDlgButtons), HelpKeyword]'
      'MessageDlgPos[Msg, DlgType, Buttons(TMsgDlgButtons), HelpCtx, X, Y]'
      'MessageDlgPosHelp[Msg, DlgType, Buttons(TMsgDlgButtons), HelpCtx, X, Y, HelpFileName]'
      'QuestionDlg[Caption, Msg, DlgType, Buttons(array of const), HelpCtx]'
      'QuestionDlg[Caption, Msg, DlgType, Buttons(array of const), HelpKeyword]'
      'ShowMessage[Msg: string];'
      'ShowMessageFmt[Msg, Params(array of const)];'
      'ShowMessagePos[Msg, X, Y];'
      'InputQuery[Caption, Prompt, MaskInput(Boolean), Value(String)]'
      'InputQuery[Caption, Prompt, Value(String)]'
      'InputBox[Caption, Prompt, Default]'
      'PasswordBox[Caption, Prompt]'
    )
    OnChange = MessageSetupExecute
    Style = csDropDownList
    TabOrder = 17
    Text = 'MessageDlg[Msg, DlgType, Buttons(TMsgDlgButtons), HelpCtx]'
  end
  object MsgMemo: TMemo
    AnchorSideTop.Control = MsgLabel
    AnchorSideTop.Side = asrBottom
    Left = 6
    Height = 94
    Top = 137
    Width = 268
    BorderSpacing.Top = 3
    Lines.Strings = (
      'MsgLabel'
    )
    OnEditingDone = GetParamsFmtExecute
    ScrollBars = ssAutoVertical
    TabOrder = 18
    WordWrap = False
  end
  object ActionList1: TActionList
    left = 456
    top = 368
    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