lazarus/components/messagecomposer/messagecomposer.lfm

object FormMessagesComposer: TFormMessagesComposer
  AnchorSideLeft.Side = asrBottom
  Left = 650
  Height = 591
  Top = 195
  Width = 584
  BorderIcons = [biSystemMenu]
  BorderStyle = bsDialog
  Caption = 'Messages Composer'
  ClientHeight = 591
  ClientWidth = 584
  OnCreate = MessagesInitExecute
  Position = poScreenCenter
  LCLVersion = '0.9.31'
  object CaptionLabel: TLabel
    Left = 6
    Height = 16
    Top = 70
    Width = 71
    Caption = 'CaptionLabel'
    ParentColor = False
  end
  object MsgLabel: TLabel
    AnchorSideTop.Control = CaptionEdit
    AnchorSideTop.Side = asrBottom
    Left = 6
    Height = 16
    Top = 124
    Width = 52
    BorderSpacing.Top = 12
    Caption = 'MsgLabel'
    ParentColor = False
  end
  object DlgTypeLabel: TLabel
    Left = 154
    Height = 16
    Top = 70
    Width = 45
    Caption = 'DlgType'
    ParentColor = False
  end
  object HelpContextLabel: TLabel
    AnchorSideTop.Control = HelpCtxBevel
    AnchorSideTop.Side = asrBottom
    Left = 8
    Height = 16
    Top = 296
    Width = 70
    Caption = 'Help Context'
    ParentColor = False
  end
  object HelpKeyWordLabel: TLabel
    AnchorSideTop.Control = HelpContextLabel
    AnchorSideTop.Side = asrCenter
    Left = 103
    Height = 16
    Top = 296
    Width = 77
    Caption = 'Help KeyWord'
    ParentColor = False
  end
  object XLabel: TLabel
    AnchorSideTop.Control = XSpinEdit
    AnchorSideTop.Side = asrCenter
    Left = 6
    Height = 16
    Top = 261
    Width = 8
    Caption = 'X'
    ParentColor = False
  end
  object YLabel: TLabel
    AnchorSideLeft.Control = XSpinEdit
    AnchorSideLeft.Side = asrBottom
    AnchorSideTop.Control = YSpinEdit
    AnchorSideTop.Side = asrCenter
    Left = 92
    Height = 16
    Top = 261
    Width = 8
    BorderSpacing.Left = 8
    Caption = 'Y'
    ParentColor = False
  end
  object HelpFileNameLabel: TLabel
    AnchorSideTop.Control = HelpContextSpinEdit
    AnchorSideTop.Side = asrBottom
    Left = 8
    Height = 16
    Top = 344
    Width = 79
    BorderSpacing.Top = 6
    Caption = 'Help FileName'
    ParentColor = False
  end
  object PromptLabel: TLabel
    Left = 16
    Height = 16
    Top = 425
    Width = 69
    Caption = 'PromptLabel'
    ParentColor = False
  end
  object ValueLabel: TLabel
    Left = 16
    Height = 16
    Top = 478
    Width = 57
    Caption = 'Value (var)'
    ParentColor = False
  end
  object DefaultValue: TLabel
    Left = 138
    Height = 16
    Top = 478
    Width = 39
    Caption = 'Default'
    ParentColor = False
  end
  object PositionBevel: TBevel
    AnchorSideTop.Control = MsgMemo
    AnchorSideTop.Side = asrBottom
    Left = 5
    Height = 9
    Top = 243
    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 = 287
    Width = 266
    Shape = bsTopLine
  end
  object KindMessageLabel: TLabel
    Left = 6
    Height = 16
    Top = 6
    Width = 572
    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 = 23
    Top = 89
    Width = 136
    BorderSpacing.Top = 3
    TabOrder = 0
    Text = 'CaptionEdit'
  end
  object DlgTypeComboBox: TComboBox
    AnchorSideTop.Control = DlgTypeLabel
    AnchorSideTop.Side = asrBottom
    Left = 154
    Height = 23
    Top = 89
    Width = 120
    BorderSpacing.Top = 3
    ItemHeight = 15
    ItemIndex = 0
    Items.Strings = (
      'mtWarning'
      'mtError'
      'mtInformation'
      'mtConfirmation'
      'mtCustom'
    )
    Style = csDropDownList
    TabOrder = 1
    Text = 'mtWarning'
  end
  object HelpContextSpinEdit: TSpinEdit
    AnchorSideTop.Control = HelpContextLabel
    AnchorSideTop.Side = asrBottom
    Left = 8
    Height = 23
    Top = 315
    Width = 61
    BorderSpacing.Top = 3
    MaxValue = 9999
    TabOrder = 2
  end
  object HelpKeyWordEdit: TEdit
    AnchorSideTop.Control = HelpKeyWordLabel
    AnchorSideTop.Side = asrBottom
    Left = 103
    Height = 23
    Top = 315
    Width = 171
    BorderSpacing.Top = 3
    TabOrder = 3
    Text = 'HelpKeyWordEdit'
  end
  object XSpinEdit: TSpinEdit
    AnchorSideLeft.Control = XLabel
    AnchorSideLeft.Side = asrBottom
    AnchorSideTop.Control = PositionBevel
    AnchorSideTop.Side = asrBottom
    Left = 18
    Height = 23
    Top = 258
    Width = 66
    BorderSpacing.Left = 4
    BorderSpacing.Top = 6
    BorderSpacing.Bottom = 6
    TabOrder = 4
  end
  object YSpinEdit: TSpinEdit
    AnchorSideLeft.Control = YLabel
    AnchorSideLeft.Side = asrBottom
    AnchorSideTop.Control = XSpinEdit
    AnchorSideTop.Side = asrCenter
    Left = 104
    Height = 23
    Top = 258
    Width = 66
    BorderSpacing.Left = 4
    TabOrder = 5
  end
  object HelpFileNameEdit: TFileNameEdit
    AnchorSideTop.Control = HelpFileNameLabel
    AnchorSideTop.Side = asrBottom
    Left = 8
    Height = 23
    Top = 363
    Width = 244
    DialogOptions = []
    FilterIndex = 0
    HideDirectories = False
    ButtonWidth = 23
    NumGlyphs = 1
    BorderSpacing.Top = 3
    MaxLength = 0
    TabOrder = 6
  end
  object PromptEdit: TEdit
    AnchorSideTop.Control = PromptLabel
    AnchorSideTop.Side = asrBottom
    Left = 16
    Height = 23
    Top = 444
    Width = 164
    BorderSpacing.Top = 3
    TabOrder = 7
    Text = 'PromptEdit'
  end
  object MaskInputCheckBox: TCheckBox
    AnchorSideTop.Control = PromptEdit
    AnchorSideTop.Side = asrCenter
    Left = 191
    Height = 19
    Top = 446
    Width = 76
    Caption = 'MaskInput'
    TabOrder = 8
  end
  object ValueEdit: TEdit
    AnchorSideTop.Control = ValueLabel
    AnchorSideTop.Side = asrBottom
    Left = 16
    Height = 23
    Top = 497
    Width = 112
    BorderSpacing.Top = 3
    TabOrder = 9
    Text = 'ValueEdit'
  end
  object DefaultEdit: TEdit
    AnchorSideTop.Control = DefaultValue
    AnchorSideTop.Side = asrBottom
    Left = 138
    Height = 23
    Top = 497
    Width = 136
    BorderSpacing.Top = 3
    TabOrder = 10
    Text = 'DefaultEdit'
  end
  object SourceWrapperGroupBox: TGroupBox
    Left = 285
    Height = 256
    Top = 264
    Width = 285
    Caption = 'SourceWrapperGroupBox'
    ClientHeight = 238
    ClientWidth = 281
    TabOrder = 12
    object IfThenRadioButton: TRadioButton
      Left = 9
      Height = 19
      Top = 8
      Width = 69
      Caption = 'if...then...'
      Checked = True
      OnClick = SetIfOrCaseExecute
      TabOrder = 0
      TabStop = True
    end
    object IfThenElseRadioButton: TRadioButton
      AnchorSideTop.Control = IfThenRadioButton
      AnchorSideTop.Side = asrBottom
      Left = 7
      Height = 19
      Top = 29
      Width = 101
      BorderSpacing.Top = 2
      Caption = 'if...then...else ...'
      OnClick = SetIfOrCaseExecute
      TabOrder = 1
    end
    object CaseOfEndRadioButton: TRadioButton
      AnchorSideLeft.Control = IfThenRadioButton
      AnchorSideLeft.Side = asrBottom
      AnchorSideTop.Control = IfThenRadioButton
      Left = 128
      Height = 19
      Top = 10
      Width = 107
      BorderSpacing.Left = 50
      BorderSpacing.Top = 2
      Caption = 'case ... of ... end;'
      OnClick = SetIfOrCaseExecute
      TabOrder = 2
    end
    object CaseOfEndElseRadioButton: TRadioButton
      AnchorSideLeft.Control = CaseOfEndRadioButton
      AnchorSideTop.Control = CaseOfEndRadioButton
      AnchorSideTop.Side = asrBottom
      Left = 128
      Height = 19
      Top = 31
      Width = 116
      BorderSpacing.Top = 2
      Caption = 'case ... of ... else ...'
      OnClick = SetIfOrCaseExecute
      TabOrder = 3
    end
    object BeginEndCheckBox: TCheckBox
      Left = 9
      Height = 19
      Top = 56
      Width = 85
      Caption = 'begin ... end'
      TabOrder = 4
    end
    object SourceNotebook: TNotebook
      Left = 0
      Height = 152
      Top = 86
      Width = 281
      PageIndex = 0
      Align = alBottom
      TabOrder = 5
      TabStop = True
      object PageIf: TPage
        object Label1: TLabel
          Left = 7
          Height = 16
          Top = 6
          Width = 61
          Caption = '"if" RESULT'
          ParentColor = False
        end
        object IfResultComboBox: TComboBox
          AnchorSideTop.Control = Label1
          AnchorSideTop.Side = asrBottom
          Left = 7
          Height = 23
          Top = 25
          Width = 175
          BorderSpacing.Top = 3
          ItemHeight = 15
          ItemIndex = 0
          Items.Strings = (
            'mbOK'
            'mbCancel'
          )
          Style = csDropDownList
          TabOrder = 0
          Text = 'mbOK'
        end
      end
      object PageCase: TPage
        object CaseResultCheckGroup: TCheckGroup
          Left = 10
          Height = 128
          Top = 0
          Width = 238
          Align = alClient
          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 = 0
          Data = {
            020000000302
          }
        end
      end
      object PageString: TPage
        object StringResultLabel: TLabel
          AnchorSideTop.Side = asrBottom
          Left = 9
          Height = 16
          Top = 10
          Width = 75
          BorderSpacing.Top = 8
          Caption = 'String RESULT'
          ParentColor = False
        end
        object StringResultEdit: TEdit
          AnchorSideTop.Control = StringResultLabel
          AnchorSideTop.Side = asrBottom
          Left = 9
          Height = 23
          Top = 29
          Width = 173
          BorderSpacing.Top = 3
          TabOrder = 0
          Text = 'StringResultEdit'
        end
      end
    end
  end
  object KindMessageComboBox: TComboBox
    Left = 6
    Height = 23
    Top = 26
    Width = 572
    Align = alTop
    BorderSpacing.Left = 6
    BorderSpacing.Top = 4
    BorderSpacing.Right = 6
    ItemHeight = 15
    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 = 14
    Text = 'MessageDlg[Msg, DlgType, Buttons(TMsgDlgButtons), HelpCtx]'
  end
  object MsgMemo: TMemo
    AnchorSideTop.Control = MsgLabel
    AnchorSideTop.Side = asrBottom
    Left = 6
    Height = 94
    Top = 143
    Width = 268
    BorderSpacing.Top = 3
    Lines.Strings = (
      'MsgLabel'
    )
    OnEditingDone = GetParamsFmtExecute
    ScrollBars = ssAutoVertical
    TabOrder = 11
    WordWrap = False
  end
  object ButtonsNotebook: TNotebook
    Left = 285
    Height = 177
    Top = 70
    Width = 285
    PageIndex = 0
    TabOrder = 13
    TabStop = True
    object Page1: TPage
      object ButtonsCheckGroup: TCheckGroup
        Left = 0
        Height = 177
        Top = 0
        Width = 285
        Align = alClient
        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 = 0
        Data = {
          0C000000020203030202020202020202
        }
      end
    end
    object Page2: TPage
      object ButtonsPanel: TPanel
        Left = 0
        Height = 177
        Top = 0
        Width = 285
        Align = alClient
        ClientHeight = 177
        ClientWidth = 285
        TabOrder = 0
        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
    end
  end
  object ButtonPanel: TPanel
    Left = 0
    Height = 49
    Top = 542
    Width = 584
    Align = alBottom
    AutoSize = True
    BevelOuter = bvNone
    ClientHeight = 49
    ClientWidth = 584
    TabOrder = 15
    object TestButton: TButton
      AnchorSideLeft.Control = ButtonPanel
      AnchorSideTop.Control = ButtonPanel
      Left = 6
      Height = 37
      Top = 6
      Width = 256
      Action = Test
      BorderSpacing.Around = 6
      BorderSpacing.InnerBorder = 4
      TabOrder = 0
    end
    object OkButton: TBitBtn
      AnchorSideRight.Control = CancelButton
      Left = 372
      Height = 37
      Top = 6
      Width = 100
      Anchors = [akTop, akRight]
      AutoSize = True
      BorderSpacing.Around = 6
      Caption = '&OK'
      Constraints.MinHeight = 37
      Constraints.MinWidth = 100
      Default = True
      Kind = bkOK
      ModalResult = 1
      NumGlyphs = 0
      TabOrder = 1
    end
    object CancelButton: TBitBtn
      AnchorSideLeft.Control = OkButton
      AnchorSideLeft.Side = asrBottom
      AnchorSideRight.Control = ButtonPanel
      AnchorSideRight.Side = asrBottom
      Left = 478
      Height = 37
      Top = 6
      Width = 100
      Anchors = [akTop, akRight]
      BorderSpacing.Around = 6
      Cancel = True
      Caption = 'Cancel'
      Constraints.MinHeight = 37
      Constraints.MinWidth = 100
      Kind = bkCancel
      ModalResult = 2
      NumGlyphs = 0
      TabOrder = 2
    end
  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