object frmTextArea: TfrmTextArea
  Left = 277
  Top = 630
  HelpContext = 78
  ActiveControl = txtName
  BorderStyle = bsDialog
  Caption = 'TextArea'
  ClientHeight = 122
  ClientWidth = 370
  Font.Color = clBlack
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  KeyPreview = True
  Position = poScreenCenter
  OnActivate = FormActivate
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object Bevel1: TBevel
    Left = 8
    Top = 8
    Width = 353
    Height = 77
    Shape = bsFrame
    IsControl = True
  end
  object lblName: TLabel
    Left = 15
    Top = 28
    Width = 28
    Height = 13
    Caption = '&Name'
    FocusControl = txtName
  end
  object lblRows: TLabel
    Left = 15
    Top = 56
    Width = 27
    Height = 13
    Caption = '&Rows'
    FocusControl = txtRows
  end
  object lblCols: TLabel
    Left = 136
    Top = 56
    Width = 20
    Height = 13
    Alignment = taRightJustify
    Caption = '&Cols'
    FocusControl = txtCols
  end
  object lblWrap: TLabel
    Left = 240
    Top = 56
    Width = 26
    Height = 13
    Alignment = taRightJustify
    Caption = '&Wrap'
    FocusControl = cmbWrap
  end
  object OKBtn: TBitBtn
    Left = 116
    Top = 92
    Width = 77
    Height = 25
    Caption = 'OK'
    Default = True
    ModalResult = 1
    TabOrder = 3
    NumGlyphs = 2
    Spacing = -1
    IsControl = True
  end
  object CancelBtn: TBitBtn
    Left = 200
    Top = 92
    Width = 77
    Height = 25
    Cancel = True
    Caption = 'Cancel'
    ModalResult = 2
    TabOrder = 4
    NumGlyphs = 2
    Spacing = -1
    IsControl = True
  end
  object HelpBtn: TBitBtn
    Left = 284
    Top = 92
    Width = 77
    Height = 25
    Caption = '&Help'
    TabOrder = 5
    OnClick = HelpBtnClick
    NumGlyphs = 2
    Spacing = -1
    IsControl = True
  end
  object txtName: TEdit
    Left = 56
    Top = 24
    Width = 297
    Height = 21
    Hint = 'Name of the text area'
    ParentShowHint = False
    ShowHint = True
    TabOrder = 0
  end
  object txtRows: TMaskEdit
    Left = 56
    Top = 52
    Width = 45
    Height = 21
    Hint = 'Number of rows in the text area'
    MaxLength = 0
    ParentShowHint = False
    ShowHint = True
    TabOrder = 1
    OnKeyPress = NumericKeyPress
  end
  object txtCols: TMaskEdit
    Left = 160
    Top = 52
    Width = 45
    Height = 21
    Hint = 'Number of columns in the text area'
    MaxLength = 0
    ParentShowHint = False
    ShowHint = True
    TabOrder = 2
    OnKeyPress = NumericKeyPress
  end
  object cmbWrap: TComboBox
    Left = 272
    Top = 52
    Width = 81
    Height = 21
    Hint = 'word-wrapping in text input areas in forms'
    ItemHeight = 13
    Items.Strings = (
      'off'
      'virtual'
      'physical')
    ParentShowHint = False
    ShowHint = True
    TabOrder = 6
  end
end