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

object DemoForm: TDemoForm
  Left = 257
  Height = 585
  Top = 128
  Width = 708
  AutoSize = True
  Caption = 'Test QuestionDlgEx'
  ClientHeight = 585
  ClientWidth = 708
  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 = 235
    Height = 96
    Top = 298
    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 = 76
    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 = gbTextAlignmentLayout
    AnchorSideTop.Side = asrBottom
    AnchorSideRight.Control = gbTextAlignmentLayout
    AnchorSideRight.Side = asrBottom
    Left = 24
    Height = 96
    Top = 298
    Width = 179
    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 = 2
    ClientHeight = 76
    ClientWidth = 175
    Columns = 2
    ItemIndex = 2
    Items.Strings = (
      'very short'
      'short'
      'medium'
      'long'
      'very long'
      'high'
      'long && linebreak'
    )
    TabOrder = 1
  end
  object gbFont: TGroupBox
    AnchorSideLeft.Control = rgBtnAlignment
    AnchorSideLeft.Side = asrBottom
    AnchorSideTop.Control = Bevel1
    AnchorSideTop.Side = asrBottom
    AnchorSideBottom.Control = gbTextAlignmentLayout
    AnchorSideBottom.Side = asrBottom
    Left = 379
    Height = 95
    Top = 179
    Width = 322
    Anchors = [akTop, akLeft, akBottom]
    BorderSpacing.Left = 32
    BorderSpacing.Right = 24
    Caption = 'Font'
    ClientHeight = 75
    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 = gbTextAlignmentLayout
    AnchorSideLeft.Side = asrBottom
    AnchorSideTop.Control = Bevel1
    AnchorSideTop.Side = asrBottom
    AnchorSideBottom.Control = gbTextAlignmentLayout
    AnchorSideBottom.Side = asrBottom
    Left = 235
    Height = 95
    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 = 75
    ClientWidth = 108
    ItemIndex = 2
    Items.Strings = (
      'left'
      'right'
      'center'
    )
    TabOrder = 3
  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 = 533
    Height = 96
    Top = 298
    Width = 168
    Anchors = [akTop, akLeft, akRight, akBottom]
    BorderSpacing.Left = 24
    Caption = 'Dialog size limits'
    ClientHeight = 76
    ClientWidth = 164
    TabOrder = 4
    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
      AnchorSideLeft.Control = Label1
      AnchorSideLeft.Side = asrBottom
      AnchorSideTop.Control = gbMaxWidth
      AnchorSideRight.Control = gbMaxWidth
      AnchorSideRight.Side = asrBottom
      Left = 88
      Height = 23
      Top = 12
      Width = 60
      Alignment = taRightJustify
      Anchors = [akTop, akLeft, akRight]
      BorderSpacing.Left = 16
      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
      AnchorSideLeft.Control = seMaxWidth
      AnchorSideTop.Control = seMaxWidth
      AnchorSideTop.Side = asrBottom
      AnchorSideRight.Control = gbMaxWidth
      AnchorSideRight.Side = asrBottom
      Left = 88
      Height = 23
      Top = 51
      Width = 60
      Alignment = taRightJustify
      Anchors = [akTop, akLeft, 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 = 235
    Height = 115
    Top = 418
    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 = 5
    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
    AnchorSideRight.Control = gbTextAlignmentLayout
    AnchorSideRight.Side = asrBottom
    Left = 24
    Height = 115
    Top = 418
    Width = 179
    Anchors = [akTop, akLeft, akRight]
    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 = 175
    ItemIndex = 0
    Items.Strings = (
      'mtWarning'
      'mtError'
      'mtInformation'
      'mtConfirmation'
      'mtCustom'
    )
    TabOrder = 6
  end
  object rgGlyphShowMode: TRadioGroup
    AnchorSideLeft.Control = gbFont
    AnchorSideTop.Control = gbFont
    AnchorSideTop.Side = asrBottom
    AnchorSideBottom.Control = rgMessage
    AnchorSideBottom.Side = asrBottom
    Left = 379
    Height = 96
    Top = 298
    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 = 76
    ClientWidth = 126
    ItemIndex = 2
    Items.Strings = (
      'gsmAlways   '
      'gsmNever    '
      'gsmApplication'
      'gsmSystem     '
    )
    TabOrder = 7
  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 = 8
    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 = 379
    Height = 104
    Top = 24
    Width = 322
    Anchors = [akTop, akLeft, akRight]
    Caption = 'Test standard dialogs'
    ClientHeight = 84
    ClientWidth = 318
    TabOrder = 9
    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 = 660
    Anchors = [akTop, akLeft, akRight]
    BorderSpacing.Around = 24
    Shape = bsTopLine
  end
  object gbTextAlignmentLayout: TGroupBox
    AnchorSideLeft.Control = gbTest
    AnchorSideTop.Control = Bevel1
    AnchorSideTop.Side = asrBottom
    AnchorSideRight.Control = rgMessage
    AnchorSideRight.Side = asrBottom
    Left = 24
    Height = 95
    Top = 179
    Width = 179
    Anchors = [akTop, akLeft, akRight]
    AutoSize = True
    Caption = 'Text alignment/layout'
    ClientHeight = 75
    ClientWidth = 175
    TabOrder = 10
    object Panel1: TPanel
      AnchorSideLeft.Control = gbTextAlignmentLayout
      AnchorSideTop.Control = gbTextAlignmentLayout
      AnchorSideRight.Control = Bevel2
      AnchorSideRight.Side = asrBottom
      AnchorSideBottom.Control = gbTextAlignmentLayout
      AnchorSideBottom.Side = asrBottom
      Left = 8
      Height = 69
      Top = 0
      Width = 72
      Anchors = [akTop, akLeft, akRight]
      AutoSize = True
      BorderSpacing.Left = 8
      BorderSpacing.Right = 8
      BorderSpacing.Bottom = 6
      BevelOuter = bvNone
      ChildSizing.VerticalSpacing = 6
      ChildSizing.Layout = cclLeftToRightThenTopToBottom
      ChildSizing.ControlsPerLine = 1
      ClientHeight = 69
      ClientWidth = 72
      TabOrder = 0
      object rbLeftJustify: TRadioButton
        Left = 0
        Height = 19
        Top = 0
        Width = 63
        Caption = 'left'
        Checked = True
        TabOrder = 2
        TabStop = True
      end
      object rbHCenter: TRadioButton
        Tag = 2
        Left = 0
        Height = 19
        Top = 25
        Width = 63
        Caption = 'h-center'
        TabOrder = 0
      end
      object rbRightJustify: TRadioButton
        Tag = 1
        Left = 0
        Height = 19
        Top = 50
        Width = 63
        Caption = 'right'
        TabOrder = 1
      end
    end
    object Panel2: TPanel
      AnchorSideLeft.Control = Bevel2
      AnchorSideLeft.Side = asrBottom
      AnchorSideTop.Control = gbTextAlignmentLayout
      AnchorSideRight.Side = asrBottom
      AnchorSideBottom.Control = gbTextAlignmentLayout
      AnchorSideBottom.Side = asrBottom
      Left = 100
      Height = 69
      Top = 0
      Width = 62
      AutoSize = True
      BorderSpacing.Left = 12
      BorderSpacing.Right = 8
      BorderSpacing.Bottom = 6
      BevelOuter = bvNone
      ChildSizing.VerticalSpacing = 6
      ChildSizing.Layout = cclLeftToRightThenTopToBottom
      ChildSizing.ControlsPerLine = 1
      ClientHeight = 69
      ClientWidth = 62
      TabOrder = 1
      object rbTop: TRadioButton
        Left = 0
        Height = 19
        Top = 0
        Width = 62
        Caption = 'top'
        TabOrder = 0
      end
      object rbVCenter: TRadioButton
        Tag = 1
        Left = 0
        Height = 19
        Top = 25
        Width = 62
        Caption = 'v-center'
        Checked = True
        TabOrder = 2
        TabStop = True
      end
      object rbBottom: TRadioButton
        Tag = 2
        Left = 0
        Height = 19
        Top = 50
        Width = 62
        Caption = 'bottom'
        TabOrder = 1
      end
    end
    object Bevel2: TBevel
      AnchorSideLeft.Control = gbTextAlignmentLayout
      AnchorSideLeft.Side = asrCenter
      AnchorSideTop.Control = Panel1
      AnchorSideBottom.Control = Panel2
      AnchorSideBottom.Side = asrBottom
      Left = 86
      Height = 69
      Top = 0
      Width = 2
      Anchors = [akTop, akLeft, akBottom]
    end
  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