home *** CD-ROM | disk | FTP | other *** search
- object GetNewProFileName: TGetNewProFileName
- Left = 245
- Top = 108
- BorderStyle = bsDialog
- Caption = 'Enter filename...'
- ClientHeight = 120
- ClientWidth = 267
- Font.Color = clWindowText
- Font.Height = -14
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- Position = poScreenCenter
- PixelsPerInch = 120
- TextHeight = 16
- object Bevel1: TBevel
- Left = 10
- Top = 10
- Width = 247
- Height = 71
- Shape = bsFrame
- end
- object Label1: TLabel
- Left = 24
- Top = 24
- Width = 213
- Height = 16
- Caption = 'Please enter a name for the new file:'
- end
- object Edit1: TEdit
- Left = 32
- Top = 40
- Width = 121
- Height = 24
- MaxLength = 8
- TabOrder = 0
- Text = 'NONAME'
- end
- object Button1: TButton
- Left = 56
- Top = 88
- Width = 75
- Height = 25
- Caption = 'OK'
- TabOrder = 1
- OnClick = Button1Click
- end
- object Button2: TButton
- Left = 136
- Top = 88
- Width = 75
- Height = 25
- Caption = 'Cancel'
- TabOrder = 2
- OnClick = Button2Click
- end
- end
-