lazarus/examples/messageboxes/unit1.lfm

object Form1: TForm1
  Left = 781
  Height = 481
  Top = 193
  Width = 585
  BorderStyle = bsDialog
  Caption = 'Test for various message-boxes'
  ClientHeight = 481
  ClientWidth = 585
  Position = poScreenCenter
  LCLVersion = '2.1.0.0'
  object EditCaption: TEdit
    Left = 104
    Height = 33
    Top = 8
    Width = 472
    TabOrder = 0
    Text = 'StrCaption'
  end
  object EditMessage: TEdit
    Left = 104
    Height = 33
    Top = 40
    Width = 472
    TabOrder = 1
    Text = 'StrMessage'
  end
  object Label1: TLabel
    AnchorSideTop.Control = EditCaption
    AnchorSideTop.Side = asrCenter
    Left = 8
    Height = 17
    Top = 16
    Width = 57
    Caption = 'Caption:'
    ParentColor = False
  end
  object Label2: TLabel
    AnchorSideTop.Control = EditMessage
    AnchorSideTop.Side = asrCenter
    Left = 8
    Height = 17
    Top = 48
    Width = 63
    Caption = 'Message:'
    ParentColor = False
  end
  object ButtonClose: TButton
    AnchorSideRight.Control = Owner
    AnchorSideRight.Side = asrBottom
    AnchorSideBottom.Control = Owner
    AnchorSideBottom.Side = asrBottom
    Left = 479
    Height = 33
    Top = 442
    Width = 100
    Anchors = [akRight, akBottom]
    AutoSize = True
    BorderSpacing.Around = 6
    Caption = 'Close'
    Constraints.MinWidth = 100
    OnClick = ButtonCloseClick
    TabOrder = 9
  end
  object ButtonAppMsgbox: TButton
    Left = 152
    Height = 25
    Top = 256
    Width = 264
    Caption = 'Application.MessageBox'
    OnClick = ButtonAppMsgboxClick
    TabOrder = 5
  end
  object GroupBox1: TGroupBox
    Left = 8
    Height = 170
    Top = 72
    Width = 217
    Caption = 'Button flags'
    ClientHeight = 152
    ClientWidth = 215
    TabOrder = 2
    object CheckFlag_Ok: TRadioButton
      Left = 8
      Height = 23
      Top = 0
      Width = 75
      Caption = 'MB_OK'
      TabOrder = 3
    end
    object CheckFlag_OkCancel: TRadioButton
      Left = 8
      Height = 23
      Top = 24
      Width = 130
      Caption = 'MB_OKCANCEL'
      Checked = True
      TabOrder = 5
      TabStop = True
    end
    object CheckFlag_YesNo: TRadioButton
      Left = 8
      Height = 23
      Top = 48
      Width = 102
      Caption = 'MB_YESNO'
      TabOrder = 0
    end
    object CheckFlag_YesNoCancel: TRadioButton
      Left = 8
      Height = 23
      Top = 72
      Width = 157
      Caption = 'MB_YESNOCANCEL'
      TabOrder = 1
    end
    object CheckFlag_RetryCancel: TRadioButton
      Left = 8
      Height = 23
      Top = 96
      Width = 152
      Caption = 'MB_RETRYCANCEL'
      TabOrder = 2
    end
    object CheckFlag_AbortRetryIgnore: TRadioButton
      Left = 8
      Height = 23
      Top = 120
      Width = 198
      Caption = 'MB_ABORTRETRYIGNORE'
      TabOrder = 4
    end
  end
  object ButtonLCLIntfMsgbox: TButton
    Left = 152
    Height = 25
    Top = 288
    Width = 264
    Caption = 'LCLIntf.MessageBox'
    OnClick = ButtonLCLIntfMsgboxClick
    TabOrder = 6
  end
  object GroupBox2: TGroupBox
    Left = 232
    Height = 169
    Top = 72
    Width = 225
    Caption = 'Icon flags'
    ClientHeight = 151
    ClientWidth = 223
    TabOrder = 3
    object CheckFlag_Info: TRadioButton
      Left = 8
      Height = 23
      Top = 0
      Width = 189
      Caption = 'MB_ICONINFORMATION'
      Checked = True
      TabOrder = 0
      TabStop = True
    end
    object CheckFlag_Warn: TRadioButton
      Left = 8
      Height = 23
      Top = 24
      Width = 158
      Caption = 'MB_ICONWARNING'
      TabOrder = 2
    end
    object CheckFlag_Error: TRadioButton
      Left = 8
      Height = 23
      Top = 48
      Width = 136
      Caption = 'MB_ICONERROR'
      TabOrder = 3
    end
    object CheckFlag_Ask: TRadioButton
      Left = 8
      Height = 23
      Top = 72
      Width = 161
      Caption = 'MB_ICONQUESTION'
      TabOrder = 4
    end
    object CheckFlag_NoneIcon: TRadioButton
      Left = 8
      Height = 23
      Top = 96
      Width = 59
      Caption = 'none'
      TabOrder = 1
    end
  end
  object ButtonMsgDlg: TButton
    Left = 152
    Height = 25
    Top = 320
    Width = 264
    Caption = 'MessageDlg'
    OnClick = ButtonMsgDlgClick
    TabOrder = 7
  end
  object GroupBox3: TGroupBox
    Left = 463
    Height = 168
    Top = 72
    Width = 113
    Caption = 'Def button'
    ClientHeight = 150
    ClientWidth = 111
    TabOrder = 4
    object CheckFlag_B1: TRadioButton
      Left = 16
      Height = 23
      Top = 0
      Width = 34
      Caption = '1'
      Checked = True
      TabOrder = 0
      TabStop = True
    end
    object CheckFlag_B2: TRadioButton
      Left = 16
      Height = 23
      Top = 24
      Width = 34
      Caption = '2'
      TabOrder = 1
    end
    object CheckFlag_B3: TRadioButton
      Left = 16
      Height = 23
      Top = 48
      Width = 34
      Caption = '3'
      TabOrder = 2
    end
    object CheckFlag_B4: TRadioButton
      Left = 16
      Height = 23
      Top = 72
      Width = 34
      Caption = '4'
      TabOrder = 3
    end
  end
  object ButtonPromptUser: TButton
    Left = 152
    Height = 25
    Top = 352
    Width = 264
    Caption = 'PromptUser'
    OnClick = ButtonPromptUserClick
    TabOrder = 8
  end
  object ButtonAskUser: TButton
    Left = 152
    Height = 25
    Top = 384
    Width = 264
    Caption = 'AskUser (ignore flags)'
    OnClick = ButtonAskUserClick
    TabOrder = 10
  end
end