home *** CD-ROM | disk | FTP | other *** search
- object frmInstall: TfrmInstall
- Left = 232
- Top = 133
- ActiveControl = btnInstall
- BorderIcons = [biSystemMenu]
- BorderStyle = bsDialog
- Caption = 'My Program Installer'
- ClientHeight = 201
- ClientWidth = 481
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWindowText
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- Position = poScreenCenter
- WindowState = wsMinimized
- OnCreate = FormCreate
- PixelsPerInch = 96
- TextHeight = 13
- object panImage: TPanel
- Left = 0
- Top = 0
- Width = 481
- Height = 201
- Caption = 'My Program Installer'
- Color = clNavy
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWhite
- Font.Height = -24
- Font.Name = 'Times New Roman'
- Font.Style = [fsBold, fsItalic]
- ParentFont = False
- TabOrder = 0
- object imgSplash: TImage
- Left = 1
- Top = 1
- Width = 480
- Height = 200
- Center = True
- end
- object btnInstall: TButton
- Left = 8
- Top = 168
- Width = 105
- Height = 25
- Caption = 'Install...'
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWindowText
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentFont = False
- TabOrder = 4
- OnClick = btnInstallClick
- end
- object btnContact: TButton
- Left = 8
- Top = 128
- Width = 105
- Height = 25
- Caption = 'Contact'
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWindowText
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentFont = False
- TabOrder = 3
- OnClick = btnContactClick
- end
- object btnWhatsNew: TButton
- Left = 8
- Top = 88
- Width = 105
- Height = 25
- Caption = 'What'#39's New ?'
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWindowText
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentFont = False
- TabOrder = 2
- OnClick = btnWhatsNewClick
- end
- object btnRequires: TButton
- Left = 8
- Top = 48
- Width = 105
- Height = 25
- Caption = 'Requires '
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWindowText
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentFont = False
- TabOrder = 1
- OnClick = btnRequiresClick
- end
- object btnAbout: TButton
- Left = 8
- Top = 8
- Width = 105
- Height = 25
- Caption = 'About'
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWindowText
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = [fsBold]
- ParentFont = False
- TabOrder = 0
- OnClick = btnAboutClick
- end
- object panInfo: TPanel
- Left = 120
- Top = 8
- Width = 353
- Height = 185
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWindowText
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentFont = False
- TabOrder = 5
- object redInstall: TRichEdit
- Left = 5
- Top = 8
- Width = 345
- Height = 161
- TabStop = False
- Alignment = taCenter
- BorderStyle = bsNone
- Color = clBtnFace
- ReadOnly = True
- TabOrder = 4
- Visible = False
- end
- object redContact: TRichEdit
- Left = 8
- Top = 8
- Width = 337
- Height = 172
- TabStop = False
- Alignment = taCenter
- BorderStyle = bsNone
- Color = clBtnFace
- ReadOnly = True
- TabOrder = 3
- end
- object redWhatsNew: TRichEdit
- Left = 8
- Top = 8
- Width = 337
- Height = 169
- TabStop = False
- Alignment = taCenter
- BorderStyle = bsNone
- Color = clBtnFace
- ReadOnly = True
- TabOrder = 2
- end
- object redRequires: TRichEdit
- Left = 8
- Top = 8
- Width = 337
- Height = 169
- TabStop = False
- Alignment = taCenter
- BorderStyle = bsNone
- Color = clBtnFace
- ReadOnly = True
- TabOrder = 1
- end
- object redAbout: TRichEdit
- Left = 8
- Top = 8
- Width = 337
- Height = 172
- TabStop = False
- Alignment = taCenter
- BorderStyle = bsNone
- Color = clBtnFace
- Ctl3D = True
- ParentCtl3D = False
- ReadOnly = True
- TabOrder = 0
- end
- object btnAccept: TButton
- Left = 160
- Top = 158
- Width = 89
- Height = 21
- Caption = 'Accept'
- TabOrder = 5
- Visible = False
- OnClick = btnAcceptClick
- end
- object btnExit: TButton
- Left = 256
- Top = 158
- Width = 89
- Height = 21
- Caption = 'Exit'
- TabOrder = 6
- Visible = False
- OnClick = btnExitClick
- end
- end
- object panComplete: TPanel
- Left = 8
- Top = 152
- Width = 465
- Height = 41
- Caption = 'panComplete'
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clBtnText
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentFont = False
- TabOrder = 6
- Visible = False
- object Label2: TLabel
- Left = 16
- Top = 14
- Width = 100
- Height = 13
- Caption = 'Installation Complete.'
- end
- object btnComplete: TButton
- Left = 376
- Top = 11
- Width = 75
- Height = 21
- Caption = 'Exit'
- TabOrder = 0
- OnClick = btnCompleteClick
- end
- object btnRun: TButton
- Left = 136
- Top = 11
- Width = 225
- Height = 21
- Caption = 'Run Program'
- TabOrder = 1
- OnClick = btnRunClick
- end
- end
- end
- object panChooseTarget: TPanel
- Left = 8
- Top = 152
- Width = 465
- Height = 41
- Caption = 'panChooseTarget'
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clBtnText
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentFont = False
- TabOrder = 2
- Visible = False
- object labInstallTo: TLabel
- Left = 16
- Top = 14
- Width = 39
- Height = 13
- Caption = 'Install to'
- end
- object mtrProgress: TGauge
- Left = 312
- Top = 13
- Width = 137
- Height = 17
- ForeColor = clNavy
- BackColor = clBtnFace
- Progress = 0
- Visible = False
- end
- object edtTargetFolder: TEdit
- Left = 64
- Top = 11
- Width = 241
- Height = 21
- Color = clBtnFace
- TabOrder = 1
- Text = 'edtTargetFolder'
- end
- object btnGoInstall: TButton
- Left = 384
- Top = 11
- Width = 67
- Height = 21
- Caption = 'Install'
- TabOrder = 0
- OnClick = btnGoInstallClick
- end
- object btnChooseTarget: TButton
- Left = 312
- Top = 11
- Width = 67
- Height = 21
- Caption = 'Choose...'
- TabOrder = 2
- OnClick = btnChooseTargetClick
- end
- end
- object panUninstall: TPanel
- Left = 8
- Top = 152
- Width = 465
- Height = 41
- TabOrder = 1
- Visible = False
- object labUninstall: TLabel
- Left = 16
- Top = 14
- Width = 3
- Height = 13
- end
- object mtrUninstall: TGauge
- Left = 280
- Top = 12
- Width = 81
- Height = 17
- ForeColor = clNavy
- BackColor = clBtnFace
- Progress = 0
- end
- object btnCancel: TBitBtn
- Left = 368
- Top = 8
- Width = 83
- Height = 25
- TabOrder = 0
- OnClick = btnCancelClick
- Kind = bkCancel
- end
- object btnUninstall: TBitBtn
- Left = 280
- Top = 8
- Width = 83
- Height = 25
- Caption = 'Uninstall'
- TabOrder = 1
- OnClick = btnUninstallClick
- Kind = bkYes
- end
- object btnUninstallExit: TButton
- Left = 368
- Top = 8
- Width = 83
- Height = 25
- Caption = 'Exit'
- Enabled = False
- TabOrder = 2
- Visible = False
- OnClick = btnUninstallExitClick
- end
- end
- object tmrSplash: TTimer
- Enabled = False
- Interval = 5000
- OnTimer = tmrSplashTimer
- Left = 432
- Top = 24
- end
- end
-