.net 1999 December/netCD65.iso/pc/Software/Construc/V4.0/_SETUP.1/Prompt.dfm/Prompt.txt

Text File | 1999-01-23 | 4.4 KB | 223 lines

object MainForm: TMainForm
  Left = 200
  Top = 108
  BorderStyle = bsToolWindow
  Caption = 'Message Box Constructor'
  ClientHeight = 186
  ClientWidth = 462
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  Icon.Data = {<image000.ico>}
  PixelsPerInch = 96
  TextHeight = 13
  object Label1: TLabel
    Left = 32
    Top = 9
    Width = 151
    Height = 13
    Caption = 'Select the type of message box:'
  end
  object Label2: TLabel
    Left = 32
    Top = 65
    Width = 138
    Height = 13
    Caption = 'Message to be shown in box:'
  end
  object Label3: TLabel
    Left = 4
    Top = 4
    Width = 19
    Height = 23
    Caption = 'ÔøΩ'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -21
    Font.Name = 'Wingdings'
    Font.Style = []
    ParentFont = False
  end
  object Label4: TLabel
    Left = 4
    Top = 60
    Width = 19
    Height = 23
    Caption = 'ÔøΩ'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -21
    Font.Name = 'Wingdings'
    Font.Style = []
    ParentFont = False
  end
  object Label5: TLabel
    Left = 4
    Top = 152
    Width = 19
    Height = 23
    Caption = 'ÔøΩ'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -21
    Font.Name = 'Wingdings'
    Font.Style = []
    ParentFont = False
  end
  object Bevel1: TBevel
    Left = 228
    Top = 9
    Width = 2
    Height = 167
    Shape = bsRightLine
  end
  object Label6: TLabel
    Left = 240
    Top = 4
    Width = 19
    Height = 23
    Caption = 'ÔøΩ'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -21
    Font.Name = 'Wingdings'
    Font.Style = []
    ParentFont = False
  end
  object Label7: TLabel
    Left = 268
    Top = 9
    Width = 92
    Height = 13
    Caption = 'If Cancel is clicked:'
  end
  object Label8: TLabel
    Left = 240
    Top = 76
    Width = 19
    Height = 23
    Caption = 'ÔøΩ'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -21
    Font.Name = 'Wingdings'
    Font.Style = []
    ParentFont = False
  end
  object Label9: TLabel
    Left = 268
    Top = 81
    Width = 117
    Height = 13
    Caption = 'Place code for message:'
  end
  object Bevel2: TBevel
    Left = 229
    Top = 137
    Width = 224
    Height = 5
    Shape = bsTopLine
  end
  object Type: TListBox
    Left = 32
    Top = 25
    Width = 185
    Height = 30
    Hint =
      'Confirmation boxes show OK and Cancel buttons, Alert boxes have ' +
      'only OK buttons'
    IntegralHeight = True
    ItemHeight = 13
    Items.Strings = (
      'Confirmation'
      'Alert')
    TabOrder = 0
    OnClick = TypeClick
  end
  object Message: TMemo
    Left = 33
    Top = 81
    Width = 185
    Height = 57
    Hint = 'The message which will be shown in the box'
    ScrollBars = ssVertical
    TabOrder = 1
    WordWrap = False
    OnChange = MessageChange
  end
  object Preview: TButton
    Left = 32
    Top = 151
    Width = 75
    Height = 25
    Hint = 'Preview the message box'
    Caption = 'Preview'
    Enabled = False
    TabOrder = 2
    OnClick = PreviewClick
  end
  object OnCancel: TListBox
    Left = 268
    Top = 25
    Width = 185
    Height = 43
    Hint = 'What to do if the user clicks on Cancel in a confirmation box'
    IntegralHeight = True
    ItemHeight = 13
    Items.Strings = (
      'Close window'
      'Go back to previous page'
      'Do nothing')
    TabOrder = 3
  end
  object Code: TListBox
    Left = 268
    Top = 97
    Width = 185
    Height = 30
    Hint =
      'Show the message box when the page is loaded or at some other ti' +
      'me'
    IntegralHeight = True
    ItemHeight = 13
    Items.Strings = (
      'When the page is loaded'
      'At cursor location')
    TabOrder = 4
  end
  object Insert: TButton
    Left = 240
    Top = 151
    Width = 75
    Height = 25
    Caption = 'Insert'
    Default = True
    Enabled = False
    ModalResult = 1
    TabOrder = 5
    OnClick = InsertClick
  end
  object Cancel: TButton
    Left = 322
    Top = 151
    Width = 75
    Height = 25
    Cancel = True
    Caption = 'Cancel'
    ModalResult = 2
    TabOrder = 6
  end
  object RichEdit: TRichEdit
    Left = 115
    Top = 153
    Width = 78
    Height = 25
    Lines.Strings = (
      'RichEdit')
    TabOrder = 7
    Visible = False
  end
end