home *** CD-ROM | disk | FTP | other *** search
- object Form1: TForm1
- Left = 146
- Top = 141
- AutoScroll = False
- Caption = 'Edit Selections'
- ClientHeight = 171
- ClientWidth = 435
- Color = clNavy
- Font.Color = clWindowText
- Font.Height = -13
- Font.Name = 'System'
- Font.Style = []
- Icon.Data = {<image000.ico>}
- PixelsPerInch = 120
- TextHeight = 20
- object Label1: TLabel
- Left = 249
- Top = 10
- Width = 61
- Height = 20
- AutoSize = False
- Caption = 'Sel Start'
- DragCursor = crDefault
- Font.Color = clYellow
- Font.Height = -16
- Font.Name = 'Times New Roman'
- Font.Style = [fsBold]
- ParentFont = False
- WordWrap = True
- end
- object Label2: TLabel
- Left = 235
- Top = 48
- Width = 74
- Height = 20
- AutoSize = False
- Caption = 'Sel Length'
- DragCursor = crDefault
- Font.Color = clYellow
- Font.Height = -16
- Font.Name = 'Times New Roman'
- Font.Style = [fsBold]
- ParentFont = False
- WordWrap = True
- end
- object Label3: TLabel
- Left = 250
- Top = 88
- Width = 57
- Height = 20
- AutoSize = False
- Caption = 'Sel Text'
- DragCursor = crDefault
- Font.Color = clYellow
- Font.Height = -16
- Font.Name = 'Times New Roman'
- Font.Style = [fsBold]
- ParentFont = False
- WordWrap = True
- end
- object CreateEd: TButton
- Left = 8
- Top = 128
- Width = 198
- Height = 35
- Caption = ' Create Edit '
- DragCursor = crDefault
- Font.Color = clSilver
- Font.Height = -21
- Font.Name = 'Times New Roman'
- Font.Style = []
- ParentFont = False
- TabOrder = 0
- OnClick = CreateEdClick
- end
- object Edit1: TEdit
- Left = 312
- Top = 9
- Width = 108
- Height = 31
- Cursor = crSizeNESW
- Color = clBlue
- DragCursor = crDefault
- Font.Color = clAqua
- Font.Height = -20
- Font.Name = 'Times New Roman'
- Font.Style = []
- ParentFont = False
- TabOrder = 1
- Text = 'Edit1'
- end
- object Edit2: TEdit
- Left = 312
- Top = 48
- Width = 108
- Height = 31
- Color = clBlue
- DragCursor = crDefault
- Font.Color = clAqua
- Font.Height = -20
- Font.Name = 'Times New Roman'
- Font.Style = []
- ParentFont = False
- TabOrder = 2
- Text = 'Edit2'
- end
- object ShowSel: TButton
- Left = 224
- Top = 128
- Width = 198
- Height = 35
- Caption = ' Show Selection '
- DragCursor = crDefault
- Enabled = False
- Font.Color = clSilver
- Font.Height = -21
- Font.Name = 'Times New Roman'
- Font.Style = []
- ParentFont = False
- TabOrder = 3
- OnClick = ShowSelClick
- end
- object Edit3: TEdit
- Left = 312
- Top = 88
- Width = 108
- Height = 31
- Color = clBlue
- DragCursor = crDefault
- Font.Color = clAqua
- Font.Height = -20
- Font.Name = 'Times New Roman'
- Font.Style = []
- ParentFont = False
- TabOrder = 4
- Text = 'Edit3'
- end
- object Panel1: TPanel
- Left = 8
- Top = 80
- Width = 196
- Height = 41
- BevelWidth = 2
- Caption = 'Panel1'
- TabOrder = 5
- object BoldBox: TCheckBox
- Left = 3
- Top = 3
- Width = 189
- Height = 35
- Caption = 'Bold & Italic'
- Color = clBlue
- DragCursor = crDefault
- Enabled = False
- Font.Color = clAqua
- Font.Height = -20
- Font.Name = 'Times New Roman'
- Font.Style = []
- ParentColor = False
- ParentFont = False
- TabOrder = 0
- OnClick = BoldBoxClick
- end
- end
- end
-