lazarus-ccr/components/exctrls/examples/QuestionDlgEx/main.lfm

object DemoForm: TDemoForm
  Left = 257
  Height = 563
  Top = 128
  Width = 686
  AutoSize = True
  Caption = 'Test QuestionDlgEx'
  ClientHeight = 563
  ClientWidth = 686
  OnCreate = FormCreate
  LCLVersion = '2.3.0.0'
  object rgButtons: TRadioGroup
    AnchorSideLeft.Control = rgBtnAlignment
    AnchorSideTop.Control = rgMessage
    AnchorSideRight.Control = rgBtnAlignment
    AnchorSideRight.Side = asrBottom
    AnchorSideBottom.Control = rgMessage
    AnchorSideBottom.Side = asrBottom
    Left = 188
    Height = 115
    Top = 280
    Width = 112
    Anchors = [akTop, akLeft, akRight, akBottom]
    AutoFill = True
    Caption = 'Buttons'
    ChildSizing.LeftRightSpacing = 12
    ChildSizing.EnlargeHorizontal = crsHomogenousChildResize
    ChildSizing.EnlargeVertical = crsHomogenousChildResize
    ChildSizing.ShrinkHorizontal = crsScaleChilds
    ChildSizing.ShrinkVertical = crsScaleChilds
    ChildSizing.Layout = cclLeftToRightThenTopToBottom
    ChildSizing.ControlsPerLine = 1
    ClientHeight = 95
    ClientWidth = 108
    ItemIndex = 1
    Items.Strings = (
      '1 button'
      '3 buttons'
      '5 buttons'
      '7 buttons'
    )
    TabOrder = 0
  end
  object rgMessage: TRadioGroup
    AnchorSideLeft.Control = gbTest
    AnchorSideTop.Control = rgTextAlignment
    AnchorSideTop.Side = asrBottom
    AnchorSideRight.Control = rgMsgType
    AnchorSideRight.Side = asrBottom
    Left = 24
    Height = 115
    Top = 280
    Width = 132
    Anchors = [akTop, akLeft, akRight]
    AutoFill = True
    AutoSize = True
    BorderSpacing.Top = 24
    Caption = 'Message'
    ChildSizing.LeftRightSpacing = 12
    ChildSizing.EnlargeHorizontal = crsHomogenousChildResize
    ChildSizing.EnlargeVertical = crsHomogenousChildResize
    ChildSizing.ShrinkHorizontal = crsScaleChilds
    ChildSizing.ShrinkVertical = crsScaleChilds
    ChildSizing.Layout = cclLeftToRightThenTopToBottom
    ChildSizing.ControlsPerLine = 1
    ClientHeight = 95
    ClientWidth = 128
    ItemIndex = 2
    Items.Strings = (
      'very short'
      'short'
      'medium'
      'long'
      'very long'
    )
    TabOrder = 1
  end
  object gbFont: TGroupBox
    AnchorSideLeft.Control = rgBtnAlignment
    AnchorSideLeft.Side = asrBottom
    AnchorSideTop.Control = Bevel1
    AnchorSideTop.Side = asrBottom
    AnchorSideBottom.Control = rgTextAlignment
    AnchorSideBottom.Side = asrBottom
    Left = 332
    Height = 77
    Top = 179
    Width = 322
    Anchors = [akTop, akLeft, akBottom]
    BorderSpacing.Left = 32
    BorderSpacing.Right = 24
    Caption = 'Font'
    ClientHeight = 57
    ClientWidth = 318
    TabOrder = 2
    object cbDefaultFont: TCheckBox
      Left = 22
      Height = 19
      Top = 0
      Width = 55
      Caption = 'default'
      Checked = True
      OnChange = cbDefaultFontChange
      State = cbChecked
      TabOrder = 0
    end
    object cbFontName: TComboBox
      AnchorSideRight.Control = seFontSize
      Left = 22
      Height = 23
      Top = 24
      Width = 206
      Anchors = [akTop, akLeft, akRight]
      BorderSpacing.Right = 16
      ItemHeight = 15
      TabOrder = 1
      Text = 'cbFontName'
    end
    object seFontSize: TSpinEdit
      AnchorSideRight.Control = gbFont
      AnchorSideRight.Side = asrBottom
      Left = 244
      Height = 23
      Top = 24
      Width = 58
      Alignment = taRightJustify
      Anchors = [akTop, akRight]
      BorderSpacing.Right = 16
      TabOrder = 2
      Value = 12
    end
  end
  object rgBtnAlignment: TRadioGroup
    AnchorSideLeft.Control = rgTextAlignment
    AnchorSideLeft.Side = asrBottom
    AnchorSideTop.Control = Bevel1
    AnchorSideTop.Side = asrBottom
    AnchorSideBottom.Control = rgTextAlignment
    AnchorSideBottom.Side = asrBottom
    Left = 188
    Height = 77
    Top = 179
    Width = 112
    Anchors = [akTop, akLeft, akBottom]
    AutoFill = True
    AutoSize = True
    BorderSpacing.Left = 32
    Caption = 'Button alignment'
    ChildSizing.LeftRightSpacing = 12
    ChildSizing.EnlargeHorizontal = crsHomogenousChildResize
    ChildSizing.EnlargeVertical = crsHomogenousChildResize
    ChildSizing.ShrinkHorizontal = crsScaleChilds
    ChildSizing.ShrinkVertical = crsScaleChilds
    ChildSizing.Layout = cclLeftToRightThenTopToBottom
    ChildSizing.ControlsPerLine = 1
    ClientHeight = 57
    ClientWidth = 108
    ItemIndex = 2
    Items.Strings = (
      'left'
      'right'
      'center'
    )
    TabOrder = 3
  end
  object rgTextAlignment: TRadioGroup
    AnchorSideLeft.Control = gbTest
    AnchorSideTop.Control = Bevel1
    AnchorSideTop.Side = asrBottom
    AnchorSideRight.Control = rgMsgType
    AnchorSideRight.Side = asrBottom
    Left = 24
    Height = 77
    Top = 179
    Width = 132
    Anchors = [akTop, akLeft, akRight]
    AutoFill = True
    AutoSize = True
    Caption = 'Text alignment'
    ChildSizing.LeftRightSpacing = 12
    ChildSizing.EnlargeHorizontal = crsHomogenousChildResize
    ChildSizing.EnlargeVertical = crsHomogenousChildResize
    ChildSizing.ShrinkHorizontal = crsScaleChilds
    ChildSizing.ShrinkVertical = crsScaleChilds
    ChildSizing.Layout = cclLeftToRightThenTopToBottom
    ChildSizing.ControlsPerLine = 1
    ClientHeight = 57
    ClientWidth = 128
    ItemIndex = 0
    Items.Strings = (
      'left'
      'right'
      'center'
    )
    TabOrder = 4
  end
  object gbMaxWidth: TGroupBox
    AnchorSideLeft.Control = rgGlyphShowMode
    AnchorSideLeft.Side = asrBottom
    AnchorSideTop.Control = rgGlyphShowMode
    AnchorSideRight.Control = gbFont
    AnchorSideRight.Side = asrBottom
    AnchorSideBottom.Control = rgGlyphShowMode
    AnchorSideBottom.Side = asrBottom
    Left = 486
    Height = 115
    Top = 280
    Width = 168
    Anchors = [akTop, akLeft, akRight, akBottom]
    BorderSpacing.Left = 24
    Caption = 'Dialog size limits'
    ClientHeight = 95
    ClientWidth = 164
    TabOrder = 5
    object Label1: TLabel
      AnchorSideLeft.Control = gbMaxWidth
      AnchorSideTop.Control = seMaxWidth
      AnchorSideTop.Side = asrCenter
      Left = 16
      Height = 15
      Top = 16
      Width = 56
      BorderSpacing.Left = 16
      Caption = 'Max width'
    end
    object seMaxWidth: TSpinEdit
      AnchorSideTop.Control = gbMaxWidth
      AnchorSideRight.Control = gbMaxWidth
      AnchorSideRight.Side = asrBottom
      Left = 90
      Height = 23
      Top = 12
      Width = 58
      Alignment = taRightJustify
      Anchors = [akTop, akRight]
      BorderSpacing.Top = 12
      BorderSpacing.Right = 16
      MaxValue = 10000
      TabOrder = 0
      Value = 500
    end
    object Label2: TLabel
      AnchorSideTop.Control = seMinWidth
      AnchorSideTop.Side = asrCenter
      Left = 16
      Height = 15
      Top = 55
      Width = 54
      Caption = 'Min width'
    end
    object seMinWidth: TSpinEdit
      AnchorSideTop.Control = seMaxWidth
      AnchorSideTop.Side = asrBottom
      AnchorSideRight.Control = gbMaxWidth
      AnchorSideRight.Side = asrBottom
      Left = 90
      Height = 23
      Top = 51
      Width = 58
      Alignment = taRightJustify
      Anchors = [akTop, akRight]
      BorderSpacing.Top = 16
      BorderSpacing.Right = 16
      MaxValue = 10000
      TabOrder = 1
      Value = 250
    end
  end
  object rgPosition: TRadioGroup
    AnchorSideLeft.Control = rgBtnAlignment
    AnchorSideTop.Control = rgMsgType
    AnchorSideRight.Control = gbFont
    AnchorSideRight.Side = asrBottom
    AnchorSideBottom.Control = rgMsgType
    AnchorSideBottom.Side = asrBottom
    Left = 188
    Height = 115
    Top = 419
    Width = 466
    Anchors = [akTop, akLeft, akRight, akBottom]
    AutoFill = True
    AutoSize = True
    Caption = 'Position'
    ChildSizing.LeftRightSpacing = 12
    ChildSizing.TopBottomSpacing = 4
    ChildSizing.HorizontalSpacing = 16
    ChildSizing.EnlargeHorizontal = crsHomogenousChildResize
    ChildSizing.EnlargeVertical = crsHomogenousSpaceResize
    ChildSizing.ShrinkHorizontal = crsScaleChilds
    ChildSizing.ShrinkVertical = crsScaleChilds
    ChildSizing.Layout = cclLeftToRightThenTopToBottom
    ChildSizing.ControlsPerLine = 3
    ClientHeight = 95
    ClientWidth = 462
    Columns = 3
    ItemIndex = 9
    Items.Strings = (
      'poDesigned'
      'poDefault'
      'poDefaultPosOnly'
      'poDefaultSizeOnly'
      'poScreenCenter'
      'poDesktopCenter'
      'poMainFormCenter'
      'poOwnerFormCenter'
      'poWorkAreaCenter'
      '(Custom)'
    )
    TabOrder = 6
    object edX: TEdit
      Left = 162
      Height = 23
      Top = 64
      Width = 142
      TabOrder = 0
      TextHint = 'Enter X value'
    end
    object edY: TEdit
      Left = 320
      Height = 23
      Top = 64
      Width = 130
      TabOrder = 1
      TextHint = 'Enter Y value'
    end
  end
  object rgMsgType: TRadioGroup
    AnchorSideLeft.Control = gbTest
    AnchorSideTop.Control = rgMessage
    AnchorSideTop.Side = asrBottom
    Left = 24
    Height = 115
    Top = 419
    Width = 132
    AutoFill = True
    AutoSize = True
    BorderSpacing.Top = 24
    BorderSpacing.Bottom = 24
    Caption = 'Message type'
    ChildSizing.LeftRightSpacing = 12
    ChildSizing.EnlargeHorizontal = crsHomogenousChildResize
    ChildSizing.EnlargeVertical = crsHomogenousChildResize
    ChildSizing.ShrinkHorizontal = crsScaleChilds
    ChildSizing.ShrinkVertical = crsScaleChilds
    ChildSizing.Layout = cclLeftToRightThenTopToBottom
    ChildSizing.ControlsPerLine = 1
    ClientHeight = 95
    ClientWidth = 128
    ItemIndex = 0
    Items.Strings = (
      'mtWarning'
      'mtError'
      'mtInformation'
      'mtConfirmation'
      'mtCustom'
    )
    TabOrder = 7
  end
  object rgGlyphShowMode: TRadioGroup
    AnchorSideLeft.Control = gbFont
    AnchorSideTop.Control = gbFont
    AnchorSideTop.Side = asrBottom
    AnchorSideBottom.Control = rgMessage
    AnchorSideBottom.Side = asrBottom
    Left = 332
    Height = 115
    Top = 280
    Width = 130
    Anchors = [akTop, akLeft, akBottom]
    AutoFill = True
    AutoSize = True
    BorderSpacing.Top = 24
    Caption = 'GlyphShowMode'
    ChildSizing.LeftRightSpacing = 12
    ChildSizing.EnlargeHorizontal = crsHomogenousChildResize
    ChildSizing.EnlargeVertical = crsHomogenousChildResize
    ChildSizing.ShrinkHorizontal = crsScaleChilds
    ChildSizing.ShrinkVertical = crsScaleChilds
    ChildSizing.Layout = cclLeftToRightThenTopToBottom
    ChildSizing.ControlsPerLine = 1
    ClientHeight = 95
    ClientWidth = 126
    ItemIndex = 2
    Items.Strings = (
      'gsmAlways   '
      'gsmNever    '
      'gsmApplication'
      'gsmSystem     '
    )
    TabOrder = 8
  end
  object gbTest: TGroupBox
    AnchorSideLeft.Control = Owner
    AnchorSideTop.Control = Owner
    AnchorSideRight.Control = rgBtnAlignment
    AnchorSideRight.Side = asrBottom
    Left = 24
    Height = 104
    Top = 24
    Width = 264
    BorderSpacing.Around = 24
    Caption = 'Test QuestionDlgEx'
    ClientHeight = 84
    ClientWidth = 260
    TabOrder = 9
    object btnQuestionDlgEx: TButton
      AnchorSideLeft.Control = gbTest
      AnchorSideTop.Control = gbTest
      AnchorSideRight.Control = gbTest
      AnchorSideRight.Side = asrBottom
      AnchorSideBottom.Control = gbTest
      AnchorSideBottom.Side = asrBottom
      Left = 8
      Height = 41
      Top = 8
      Width = 244
      Anchors = [akTop, akLeft, akRight]
      AutoSize = True
      BorderSpacing.Around = 8
      BorderSpacing.InnerBorder = 8
      Caption = 'QuestionDlgEx'
      OnClick = btnQuestionDlgExClick
      TabOrder = 0
    end
    object lblResult: TLabel
      AnchorSideLeft.Control = btnQuestionDlgEx
      AnchorSideTop.Control = btnQuestionDlgEx
      AnchorSideTop.Side = asrBottom
      Left = 8
      Height = 15
      Top = 57
      Width = 45
      Caption = 'lblResult'
    end
  end
  object gbTestStd: TGroupBox
    AnchorSideLeft.Control = gbFont
    AnchorSideTop.Control = gbTest
    AnchorSideRight.Control = gbFont
    AnchorSideRight.Side = asrBottom
    Left = 332
    Height = 104
    Top = 24
    Width = 322
    Anchors = [akTop, akLeft, akRight]
    Caption = 'Test standard dialogs'
    ClientHeight = 84
    ClientWidth = 318
    TabOrder = 10
    object btnQuestionDlg: TButton
      AnchorSideTop.Control = gbTestStd
      Left = 32
      Height = 25
      Top = 0
      Width = 92
      AutoSize = True
      Caption = 'QuestionDlg'
      OnClick = btnQuestionDlgClick
      TabOrder = 0
    end
    object btnDefaultQuestionDlg: TButton
      AnchorSideTop.Control = gbTestStd
      Left = 160
      Height = 25
      Top = 0
      Width = 130
      AutoSize = True
      Caption = 'DefaultQuestionDlg'
      OnClick = btnDefaultQuestionDlgClick
      TabOrder = 1
    end
    object lblResultStd: TLabel
      AnchorSideLeft.Control = btnQuestionDlgEx
      AnchorSideTop.Control = btnQuestionDlgEx
      AnchorSideTop.Side = asrBottom
      Left = 16
      Height = 15
      Top = 57
      Width = 62
      Caption = 'lblResultStd'
    end
    object btnMessageDlg: TButton
      AnchorSideLeft.Control = btnQuestionDlg
      AnchorSideTop.Control = btnQuestionDlg
      AnchorSideTop.Side = asrBottom
      AnchorSideRight.Control = btnQuestionDlg
      AnchorSideRight.Side = asrBottom
      Left = 32
      Height = 25
      Top = 27
      Width = 92
      Anchors = [akTop, akLeft, akRight]
      BorderSpacing.Top = 2
      Caption = 'MessageDlg'
      OnClick = btnMessageDlgClick
      TabOrder = 2
    end
    object btnDefaultPromptDlg: TButton
      AnchorSideLeft.Control = btnDefaultQuestionDlg
      AnchorSideTop.Control = btnDefaultQuestionDlg
      AnchorSideTop.Side = asrBottom
      AnchorSideRight.Control = btnDefaultQuestionDlg
      AnchorSideRight.Side = asrBottom
      Left = 160
      Height = 25
      Top = 27
      Width = 130
      Anchors = [akTop, akLeft, akRight]
      AutoSize = True
      BorderSpacing.Top = 2
      Caption = 'DefaultPromptDlg'
      OnClick = btnDefaultPromptDlgClick
      TabOrder = 3
    end
  end
  object Bevel1: TBevel
    AnchorSideLeft.Control = Owner
    AnchorSideTop.Control = gbTest
    AnchorSideTop.Side = asrBottom
    AnchorSideRight.Control = Owner
    AnchorSideRight.Side = asrBottom
    Left = 24
    Height = 3
    Top = 152
    Width = 638
    Anchors = [akTop, akLeft, akRight]
    BorderSpacing.Around = 24
    Shape = bsTopLine
  end
  object FontDialog1: TFontDialog
    MinFontSize = 0
    MaxFontSize = 0
    Left = 480
    Top = 136
  end
  object HTMLHelpDatabase1: THTMLHelpDatabase
    BaseURL = 'file://html/'
    AutoRegister = True
    KeywordPrefix = 'HTML/'
    Left = 136
    Top = 112
  end
  object HTMLBrowserHelpViewer1: THTMLBrowserHelpViewer
    BrowserParams = '%s'
    AutoRegister = True
    Left = 240
    Top = 112
  end
end