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

object DemoForm: TDemoForm
  Left = 257
  Height = 585
  Top = 128
  Width = 752
  AutoSize = True
  Caption = 'Test QuestionDlgEx'
  ClientHeight = 585
  ClientWidth = 752
  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 = 231
    Height = 108
    Top = 244
    Width = 112
    Anchors = [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 = 88
    ClientWidth = 108
    ItemIndex = 1
    Items.Strings = (
      '1 button'
      '3 buttons'
      '5 buttons'
      '7 buttons'
    )
    TabOrder = 0
  end
  object rgMessage: TRadioGroup
    AnchorSideLeft.Control = gbTextAlignmentLayout
    AnchorSideTop.Control = gbTextAlignmentLayout
    AnchorSideTop.Side = asrBottom
    AnchorSideRight.Control = gbTextAlignmentLayout
    AnchorSideRight.Side = asrBottom
    Left = 16
    Height = 108
    Top = 244
    Width = 191
    AutoFill = True
    AutoSize = True
    BorderSpacing.Top = 12
    Caption = 'Message'
    ChildSizing.LeftRightSpacing = 12
    ChildSizing.HorizontalSpacing = 12
    ChildSizing.VerticalSpacing = 4
    ChildSizing.EnlargeHorizontal = crsHomogenousChildResize
    ChildSizing.EnlargeVertical = crsHomogenousChildResize
    ChildSizing.ShrinkHorizontal = crsScaleChilds
    ChildSizing.ShrinkVertical = crsScaleChilds
    ChildSizing.Layout = cclLeftToRightThenTopToBottom
    ChildSizing.ControlsPerLine = 2
    ClientHeight = 88
    ClientWidth = 187
    Columns = 2
    ItemIndex = 2
    Items.Strings = (
      'very short'
      'short'
      'medium'
      'long'
      'very long'
      'high'
      'long && linebreak'
    )
    TabOrder = 1
  end
  object gbFont: TGroupBox
    AnchorSideLeft.Control = rgGlyphShowMode
    AnchorSideTop.Control = rgBtnAlignment
    AnchorSideRight.Control = gbMaxWidth
    AnchorSideRight.Side = asrBottom
    AnchorSideBottom.Control = gbTextAlignmentLayout
    AnchorSideBottom.Side = asrBottom
    Left = 367
    Height = 95
    Top = 137
    Width = 322
    Anchors = [akTop, akLeft, akRight, akBottom]
    Caption = 'Font'
    ClientHeight = 75
    ClientWidth = 318
    TabOrder = 2
    object cbDefaultFont: TCheckBox
      AnchorSideLeft.Control = gbFont
      AnchorSideTop.Control = gbFont
      Left = 24
      Height = 19
      Top = 8
      Width = 55
      BorderSpacing.Left = 24
      BorderSpacing.Top = 8
      Caption = 'default'
      Checked = True
      OnChange = cbDefaultFontChange
      State = cbChecked
      TabOrder = 0
    end
    object cbFontName: TComboBox
      AnchorSideLeft.Control = gbFont
      AnchorSideTop.Control = cbDefaultFont
      AnchorSideTop.Side = asrBottom
      AnchorSideRight.Control = seFontSize
      Left = 24
      Height = 23
      Top = 31
      Width = 204
      Anchors = [akTop, akLeft, akRight]
      BorderSpacing.Left = 24
      BorderSpacing.Top = 4
      BorderSpacing.Right = 16
      ItemHeight = 15
      TabOrder = 1
      Text = 'cbFontName'
    end
    object seFontSize: TSpinEdit
      AnchorSideTop.Control = cbFontName
      AnchorSideRight.Control = gbFont
      AnchorSideRight.Side = asrBottom
      Left = 244
      Height = 23
      Top = 31
      Width = 58
      Alignment = taRightJustify
      Anchors = [akTop, akRight]
      BorderSpacing.Right = 16
      TabOrder = 2
      Value = 12
    end
  end
  object rgBtnAlignment: TRadioGroup
    AnchorSideLeft.Control = rgMessage
    AnchorSideLeft.Side = asrBottom
    AnchorSideTop.Control = gbTextAlignmentLayout
    AnchorSideBottom.Control = gbTextAlignmentLayout
    AnchorSideBottom.Side = asrBottom
    Left = 231
    Height = 95
    Top = 137
    Width = 112
    Anchors = [akTop, akLeft, akBottom]
    AutoFill = True
    AutoSize = True
    BorderSpacing.Left = 24
    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.Side = asrBottom
    AnchorSideBottom.Control = rgGlyphShowMode
    AnchorSideBottom.Side = asrBottom
    Left = 521
    Height = 108
    Top = 244
    Width = 168
    Anchors = [akTop, akLeft, akBottom]
    AutoSize = True
    BorderSpacing.Left = 24
    BorderSpacing.Right = 16
    Caption = 'Dialog size limits'
    ClientHeight = 88
    ClientWidth = 164
    TabOrder = 4
    object Label1: TLabel
      AnchorSideLeft.Control = gbMaxWidth
      AnchorSideTop.Control = seMaxWidth
      AnchorSideTop.Side = asrCenter
      Left = 12
      Height = 15
      Top = 12
      Width = 56
      BorderSpacing.Left = 12
      Caption = 'Max width'
    end
    object seMaxWidth: TSpinEdit
      AnchorSideLeft.Control = Label1
      AnchorSideLeft.Side = asrBottom
      AnchorSideTop.Control = gbMaxWidth
      AnchorSideRight.Control = gbMaxWidth
      AnchorSideRight.Side = asrBottom
      Left = 84
      Height = 23
      Top = 8
      Width = 64
      Alignment = taRightJustify
      Anchors = [akTop, akLeft, akRight]
      BorderSpacing.Left = 16
      BorderSpacing.Top = 8
      BorderSpacing.Right = 16
      Constraints.MinWidth = 64
      MaxValue = 10000
      TabOrder = 0
      Value = 500
    end
    object Label2: TLabel
      AnchorSideLeft.Control = Label1
      AnchorSideTop.Control = seMinWidth
      AnchorSideTop.Side = asrCenter
      Left = 12
      Height = 15
      Top = 43
      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 = 84
      Height = 23
      Top = 39
      Width = 64
      Alignment = taRightJustify
      Anchors = [akTop, akLeft, akRight]
      BorderSpacing.Top = 8
      BorderSpacing.Right = 16
      MaxValue = 10000
      TabOrder = 1
      Value = 250
    end
  end
  object rgPosition: TRadioGroup
    AnchorSideLeft.Control = rgBtnAlignment
    AnchorSideTop.Control = rgMsgType
    AnchorSideRight.Control = gbMaxWidth
    AnchorSideRight.Side = asrBottom
    AnchorSideBottom.Control = rgMsgType
    AnchorSideBottom.Side = asrBottom
    Left = 231
    Height = 123
    Top = 364
    Width = 458
    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 = 103
    ClientWidth = 454
    Columns = 3
    ItemIndex = 9
    Items.Strings = (
      'poDesigned'
      'poDefault'
      'poDefaultPosOnly'
      'poDefaultSizeOnly'
      'poScreenCenter'
      'poDesktopCenter'
      'poMainFormCenter'
      'poOwnerFormCenter'
      'poWorkAreaCenter'
      '(Custom)'
    )
    TabOrder = 5
    object edX: TEdit
      Left = 159
      Height = 23
      Top = 69
      Width = 139
      TabOrder = 0
      TextHint = 'Enter X value'
    end
    object edY: TEdit
      Left = 314
      Height = 23
      Top = 69
      Width = 128
      TabOrder = 1
      TextHint = 'Enter Y value'
    end
  end
  object rgMsgType: TRadioGroup
    AnchorSideLeft.Control = gbTextAlignmentLayout
    AnchorSideTop.Control = rgMessage
    AnchorSideTop.Side = asrBottom
    AnchorSideRight.Control = rgMessage
    AnchorSideRight.Side = asrBottom
    Left = 16
    Height = 123
    Top = 364
    Width = 191
    Anchors = [akTop, akLeft, akRight]
    AutoFill = True
    AutoSize = True
    BorderSpacing.Top = 12
    Caption = 'Message type'
    ChildSizing.LeftRightSpacing = 12
    ChildSizing.VerticalSpacing = 2
    ChildSizing.EnlargeHorizontal = crsHomogenousChildResize
    ChildSizing.EnlargeVertical = crsHomogenousChildResize
    ChildSizing.ShrinkHorizontal = crsScaleChilds
    ChildSizing.ShrinkVertical = crsScaleChilds
    ChildSizing.Layout = cclLeftToRightThenTopToBottom
    ChildSizing.ControlsPerLine = 1
    ClientHeight = 103
    ClientWidth = 187
    ItemIndex = 0
    Items.Strings = (
      'mtWarning'
      'mtError'
      'mtInformation'
      'mtConfirmation'
      'mtCustom'
    )
    TabOrder = 6
  end
  object rgGlyphShowMode: TRadioGroup
    AnchorSideLeft.Control = rgBtnAlignment
    AnchorSideLeft.Side = asrBottom
    AnchorSideTop.Control = rgMessage
    AnchorSideBottom.Control = rgMessage
    AnchorSideBottom.Side = asrBottom
    Left = 367
    Height = 108
    Top = 244
    Width = 130
    Anchors = [akTop, akLeft, akBottom]
    AutoFill = True
    AutoSize = True
    BorderSpacing.Left = 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 = 88
    ClientWidth = 126
    ItemIndex = 2
    Items.Strings = (
      'gsmAlways   '
      'gsmNever    '
      'gsmApplication'
      'gsmSystem     '
    )
    TabOrder = 7
  end
  object gbTestStd: TGroupBox
    AnchorSideLeft.Control = rgGlyphShowMode
    AnchorSideTop.Control = Owner
    AnchorSideRight.Control = gbMaxWidth
    AnchorSideRight.Side = asrBottom
    Left = 367
    Height = 90
    Top = 16
    Width = 322
    Anchors = [akTop, akLeft, akRight]
    AutoSize = True
    BorderSpacing.Top = 16
    Caption = 'Test standard dialogs'
    ClientHeight = 70
    ClientWidth = 318
    TabOrder = 8
    object btnQuestionDlg: TButton
      AnchorSideLeft.Control = gbTestStd
      AnchorSideTop.Control = gbTestStd
      Left = 16
      Height = 25
      Top = 8
      Width = 92
      AutoSize = True
      BorderSpacing.Left = 16
      BorderSpacing.Top = 8
      Caption = 'QuestionDlg'
      OnClick = btnQuestionDlgClick
      TabOrder = 0
    end
    object btnDefaultQuestionDlg: TButton
      AnchorSideLeft.Control = btnQuestionDlg
      AnchorSideLeft.Side = asrBottom
      AnchorSideTop.Control = gbTestStd
      Left = 156
      Height = 25
      Top = 8
      Width = 130
      AutoSize = True
      BorderSpacing.Left = 48
      BorderSpacing.Top = 8
      BorderSpacing.Right = 16
      Caption = 'DefaultQuestionDlg'
      OnClick = btnDefaultQuestionDlgClick
      TabOrder = 1
    end
    object btnMessageDlg: TButton
      AnchorSideLeft.Control = btnQuestionDlg
      AnchorSideTop.Control = btnQuestionDlg
      AnchorSideTop.Side = asrBottom
      AnchorSideRight.Control = btnQuestionDlg
      AnchorSideRight.Side = asrBottom
      Left = 16
      Height = 25
      Top = 37
      Width = 92
      Anchors = [akTop, akLeft, akRight]
      BorderSpacing.Top = 4
      BorderSpacing.Bottom = 8
      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 = 156
      Height = 25
      Top = 37
      Width = 130
      Anchors = [akTop, akLeft, akRight]
      AutoSize = True
      BorderSpacing.Top = 4
      Caption = 'DefaultPromptDlg'
      OnClick = btnDefaultPromptDlgClick
      TabOrder = 3
    end
  end
  object Bevel1: TBevel
    AnchorSideTop.Control = gbTestStd
    AnchorSideTop.Side = asrBottom
    AnchorSideRight.Control = gbTestStd
    AnchorSideRight.Side = asrBottom
    Left = 0
    Height = 3
    Top = 122
    Width = 689
    Anchors = [akTop, akLeft, akRight]
    BorderSpacing.Top = 16
    Shape = bsTopLine
  end
  object gbTextAlignmentLayout: TGroupBox
    AnchorSideLeft.Control = Owner
    AnchorSideTop.Control = Bevel1
    AnchorSideTop.Side = asrBottom
    AnchorSideRight.Control = rgMessage
    AnchorSideRight.Side = asrBottom
    Left = 16
    Height = 95
    Top = 137
    Width = 192
    BorderSpacing.Left = 16
    BorderSpacing.Top = 12
    Caption = 'Text alignment/layout'
    ClientHeight = 75
    ClientWidth = 188
    TabOrder = 9
    object Panel1: TPanel
      AnchorSideLeft.Control = gbTextAlignmentLayout
      AnchorSideTop.Control = gbTextAlignmentLayout
      AnchorSideRight.Control = Bevel2
      AnchorSideRight.Side = asrBottom
      AnchorSideBottom.Control = gbTextAlignmentLayout
      AnchorSideBottom.Side = asrBottom
      Left = 8
      Height = 65
      Top = 0
      Width = 80
      Anchors = [akTop, akLeft, akRight]
      AutoSize = True
      BorderSpacing.Left = 8
      BorderSpacing.Right = 8
      BorderSpacing.Bottom = 6
      BevelOuter = bvNone
      ChildSizing.VerticalSpacing = 4
      ChildSizing.Layout = cclLeftToRightThenTopToBottom
      ChildSizing.ControlsPerLine = 1
      ClientHeight = 65
      ClientWidth = 80
      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 = 23
        Width = 63
        Caption = 'h-center'
        TabOrder = 0
      end
      object rbRightJustify: TRadioButton
        Tag = 1
        Left = 0
        Height = 19
        Top = 46
        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 = 108
      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 = 92
      Height = 69
      Top = 0
      Width = 4
      Anchors = [akTop, akLeft, akBottom]
      Shape = bsSpacer
    end
  end
  object gbTest: TGroupBox
    AnchorSideLeft.Control = gbTextAlignmentLayout
    AnchorSideTop.Control = gbTestStd
    AnchorSideRight.Control = rgBtnAlignment
    AnchorSideRight.Side = asrBottom
    AnchorSideBottom.Control = gbTestStd
    AnchorSideBottom.Side = asrBottom
    Left = 16
    Height = 90
    Top = 16
    Width = 327
    Anchors = [akTop, akLeft, akRight, akBottom]
    Caption = 'Test QuestionDlgEx'
    ClientHeight = 70
    ClientWidth = 323
    TabOrder = 10
    object btnQuestionDlgEx: TButton
      Left = 8
      Height = 54
      Top = 8
      Width = 307
      Align = alClient
      Anchors = [akTop, akLeft, akRight]
      BorderSpacing.Around = 8
      BorderSpacing.InnerBorder = 8
      Caption = 'QuestionDlgEx'
      OnClick = btnQuestionDlgExClick
      TabOrder = 0
    end
  end
  object rgTextBkColor: TRadioGroup
    AnchorSideLeft.Control = gbTextAlignmentLayout
    AnchorSideTop.Control = rgMsgType
    AnchorSideTop.Side = asrBottom
    AnchorSideRight.Control = rgMessage
    AnchorSideRight.Side = asrBottom
    Left = 16
    Height = 52
    Top = 499
    Width = 191
    Anchors = [akTop, akLeft, akRight]
    AutoFill = True
    BorderSpacing.Top = 12
    BorderSpacing.Bottom = 16
    Caption = 'Text background color'
    ChildSizing.LeftRightSpacing = 12
    ChildSizing.EnlargeHorizontal = crsHomogenousChildResize
    ChildSizing.EnlargeVertical = crsHomogenousChildResize
    ChildSizing.ShrinkHorizontal = crsScaleChilds
    ChildSizing.ShrinkVertical = crsScaleChilds
    ChildSizing.Layout = cclLeftToRightThenTopToBottom
    ChildSizing.ControlsPerLine = 2
    ClientHeight = 32
    ClientWidth = 187
    Columns = 2
    ItemIndex = 0
    Items.Strings = (
      'clWindow'
      'clForm'
    )
    OnClick = rgTextBkColorClick
    TabOrder = 11
  end
  object FontDialog: TFontDialog
    MinFontSize = 0
    MaxFontSize = 0
    Left = 584
    Top = 136
  end
  object HTMLHelpDatabase: THTMLHelpDatabase
    BaseURL = 'file://html/'
    AutoRegister = True
    KeywordPrefix = 'HTML/'
    Left = 296
    Top = 16
  end
  object HTMLBrowserHelpViewer: THTMLBrowserHelpViewer
    BrowserParams = '%s'
    AutoRegister = True
    Left = 296
    Top = 72
  end
end