home *** CD-ROM | disk | FTP | other *** search
- object Fsetup: TFsetup
- Left = 341
- Top = 227
- BorderIcons = [biSystemMenu]
- BorderStyle = bsToolWindow
- Caption = 'AtomNet Setup'
- ClientHeight = 180
- ClientWidth = 386
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWindowText
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- Position = poScreenCenter
- OnClose = FormClose
- OnCreate = FormCreate
- PixelsPerInch = 96
- TextHeight = 13
- object Label1: TLabel
- Left = 29
- Top = 57
- Width = 79
- Height = 13
- Caption = 'Program location'
- end
- object mes: TLabel
- Left = 103
- Top = 108
- Width = 180
- Height = 13
- Alignment = taCenter
- AutoSize = False
- end
- object Image1: TImage
- Left = 29
- Top = 14
- Width = 32
- Height = 32
- AutoSize = True
- Picture.Data = {<image000.ico>}
- end
- object Label2: TLabel
- Left = 72
- Top = 15
- Width = 207
- Height = 16
- Caption = 'AtomNet 1.0 (c) Change7 1999'
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWindowText
- Font.Height = -13
- Font.Name = 'MS Sans Serif'
- Font.Style = [fsBold]
- ParentFont = False
- end
- object UrlLabel1: TUrlLabel
- Left = 72
- Top = 33
- Width = 111
- Height = 16
- Cursor = 5
- Caption = 'www.change7.com'
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clBlue
- Font.Height = -13
- Font.Name = 'MS Sans Serif'
- Font.Style = [fsUnderline]
- ParentFont = False
- PopupMenu = UrlLabel1.
- URL = 'http://change7.com'
- end
- object Edit1: TEdit
- Left = 29
- Top = 73
- Width = 271
- Height = 21
- TabOrder = 0
- Text = 'C:\Program Files\atomnet'
- end
- object Button1: TButton
- Left = 307
- Top = 73
- Width = 50
- Height = 22
- Caption = 'Browse'
- TabOrder = 1
- OnClick = Button1Click
- end
- object Button2: TButton
- Left = 109
- Top = 142
- Width = 75
- Height = 24
- Caption = 'Install'
- Default = True
- TabOrder = 2
- OnClick = Button2Click
- end
- object closeb: TButton
- Left = 202
- Top = 142
- Width = 75
- Height = 25
- Cancel = True
- Caption = 'Close'
- TabOrder = 3
- OnClick = closebClick
- end
- object pbar: TProgressBar
- Left = 103
- Top = 108
- Width = 180
- Height = 16
- Min = 0
- Max = 100
- TabOrder = 4
- Visible = False
- end
- object FolderBrowse1: TFolderBrowse
- Left = 3
- Top = 133
- end
- object files: TStringHolder
- Strings.Strings = (
- 'index.zip'
- 'atomnet.exe'
- 'convert.exe'
- 'uninst.exe')
- Left = 331
- Top = 20
- end
- end
-