home *** CD-ROM | disk | FTP | other *** search
- object frmTextArea: TfrmTextArea
- Left = 405
- Top = 252
- BorderStyle = bsDialog
- Caption = 'TextArea'
- ClientHeight = 286
- ClientWidth = 415
- Color = clBtnFace
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWindowText
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- OldCreateOrder = False
- Position = poScreenCenter
- OnClose = FormClose
- OnShow = FormShow
- PixelsPerInch = 96
- TextHeight = 13
- object PageControl1: TPageControl
- Left = 3
- Top = 6
- Width = 408
- Height = 249
- ActivePage = TabSheet2
- TabOrder = 0
- object TabSheet1: TTabSheet
- Caption = 'TextArea'
- object GroupBox1: TGroupBox
- Left = 5
- Top = 3
- Width = 389
- Height = 100
- TabOrder = 0
- object Label1: TLabel
- Left = 10
- Top = 20
- Width = 31
- Height = 13
- Caption = 'Name:'
- end
- object Label2: TLabel
- Left = 201
- Top = 46
- Width = 30
- Height = 13
- Caption = 'Rows:'
- end
- object Label3: TLabel
- Left = 10
- Top = 46
- Width = 23
- Height = 13
- Caption = 'Cols:'
- end
- object Label4: TLabel
- Left = 201
- Top = 72
- Width = 29
- Height = 13
- Caption = 'Wrap:'
- end
- object Label5: TLabel
- Left = 10
- Top = 72
- Width = 48
- Height = 13
- Caption = 'TabIndex:'
- end
- object edTextAreaName: TEdit
- Left = 63
- Top = 17
- Width = 315
- Height = 21
- Hint = 'NAME'
- TabOrder = 0
- OnEnter = edTextAreaNameEnter
- OnExit = edTextAreaNameExit
- end
- object edTextAreaCols: TEdit
- Left = 63
- Top = 43
- Width = 130
- Height = 21
- Hint = 'COLS'
- TabOrder = 1
- OnEnter = edTextAreaColsEnter
- OnExit = edTextAreaColsExit
- OnKeyPress = edTextAreaColsKeyPress
- end
- object edTextAreaRows: TEdit
- Left = 248
- Top = 43
- Width = 130
- Height = 21
- Hint = 'ROWS'
- TabOrder = 3
- OnEnter = edTextAreaRowsEnter
- OnExit = edTextAreaRowsExit
- OnKeyPress = edTextAreaRowsKeyPress
- end
- object edTextAreaTabIndex: TEdit
- Left = 63
- Top = 69
- Width = 130
- Height = 21
- Hint = 'TABINDEX'
- TabOrder = 2
- OnEnter = edTextAreaTabIndexEnter
- OnExit = edTextAreaTabIndexExit
- OnKeyPress = edTextAreaTabIndexKeyPress
- end
- object cmbTextAreaWrap: TComboBox
- Left = 248
- Top = 68
- Width = 131
- Height = 21
- Hint = 'WRAP'
- ItemHeight = 13
- TabOrder = 4
- OnEnter = cmbTextAreaWrapEnter
- OnExit = cmbTextAreaWrapExit
- Items.Strings = (
- ''
- 'off'
- 'soft'
- 'hard')
- end
- end
- object GroupBox2: TGroupBox
- Left = 5
- Top = 108
- Width = 389
- Height = 104
- Caption = 'Text'
- TabOrder = 1
- object mmText: TMemo
- Left = 62
- Top = 17
- Width = 317
- Height = 77
- ScrollBars = ssBoth
- TabOrder = 0
- OnEnter = mmTextEnter
- OnExit = mmTextExit
- end
- end
- end
- object TabSheet2: TTabSheet
- Caption = 'Select'
- ImageIndex = 1
- object GroupBox3: TGroupBox
- Left = 5
- Top = 3
- Width = 389
- Height = 100
- TabOrder = 0
- object Label6: TLabel
- Left = 10
- Top = 20
- Width = 31
- Height = 13
- Caption = 'Name:'
- end
- object Label7: TLabel
- Left = 201
- Top = 46
- Width = 31
- Height = 13
- Caption = 'Count:'
- end
- object Label8: TLabel
- Left = 10
- Top = 46
- Width = 23
- Height = 13
- Hint = 'SIZE'
- Caption = 'Size:'
- end
- object Label10: TLabel
- Left = 10
- Top = 72
- Width = 48
- Height = 13
- Caption = 'TabIndex:'
- end
- object edSelectName: TEdit
- Left = 63
- Top = 17
- Width = 315
- Height = 21
- Hint = 'NAME'
- TabOrder = 0
- OnEnter = edTextAreaNameEnter
- OnExit = edTextAreaNameExit
- end
- object edSelectSize: TEdit
- Left = 63
- Top = 43
- Width = 130
- Height = 21
- Hint = 'SIZE'
- TabOrder = 1
- OnEnter = edTextAreaColsEnter
- OnExit = edTextAreaColsExit
- end
- object edSelectCount: TEdit
- Left = 248
- Top = 43
- Width = 130
- Height = 21
- Hint = 'COUNT'
- TabOrder = 3
- Text = '0'
- OnEnter = edTextAreaRowsEnter
- OnExit = edTextAreaRowsExit
- OnKeyPress = edSelectCountKeyPress
- end
- object edSelectTabIndex: TEdit
- Left = 63
- Top = 69
- Width = 130
- Height = 21
- Hint = 'TABINDEX'
- TabOrder = 2
- OnEnter = edTextAreaTabIndexEnter
- OnExit = edTextAreaTabIndexExit
- OnKeyPress = edSelectTabIndexKeyPress
- end
- end
- end
- end
- object btnOK: TButton
- Left = 256
- Top = 259
- Width = 75
- Height = 25
- Caption = 'OK'
- Default = True
- TabOrder = 1
- OnClick = btnOKClick
- end
- object btnStorno: TButton
- Left = 336
- Top = 259
- Width = 75
- Height = 25
- Cancel = True
- Caption = 'Storno'
- TabOrder = 2
- OnClick = btnStornoClick
- end
- end
-