object MainForm: TMainForm Left = 309 Top = 140 ActiveControl = NextButton BorderIcons = [biSystemMenu, biMinimize] BorderStyle = bsSingle Caption = 'Ultra Fractal Setup' ClientHeight = 270 ClientWidth = 427 Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] Icon.Data = {} Position = poScreenCenter OnCloseQuery = FormCloseQuery OnCreate = FormCreate OnPaint = FormPaint PixelsPerInch = 96 TextHeight = 13 object Image: TImage Left = 10 Top = 10 Width = 125 Height = 250 Picture.Data = {} Stretch = True end object BackButton: TButton Left = 164 Top = 236 Width = 75 Height = 25 Caption = '< &Back' TabOrder = 1 OnClick = BackButtonClick end object NextButton: TButton Left = 239 Top = 236 Width = 75 Height = 25 Caption = '&Next >' Default = True TabOrder = 2 OnClick = NextButtonClick end object CancelButton: TButton Left = 340 Top = 236 Width = 75 Height = 25 Cancel = True Caption = 'Cancel' TabOrder = 3 OnClick = CancelButtonClick end object Notebook: TNotebook Left = 156 Top = 8 Width = 265 Height = 217 TabOrder = 0 object TPage Left = 0 Top = 0 Caption = 'Welcome' object WelcomeHeadingLabel: TLabel Left = 8 Top = 8 Width = 237 Height = 17 AutoSize = False Caption = 'Welcome to Ultra Fractal Setup!' Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ParentFont = False end object WelcomeDescriptionLabel: TLabel Left = 8 Top = 40 Width = 225 Height = 41 AutoSize = False Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False WordWrap = True end object WelcomeAdviceLabel: TLabel Left = 8 Top = 84 Width = 225 Height = 69 AutoSize = False Caption = 'If you have an old version of Ultra Fractal 2 installed, you mus' + 't either install this version on top of the old version, or unin' + 'stall the old version first.' WordWrap = True end object WelcomeStepLabel: TLabel Left = 8 Top = 160 Width = 225 Height = 45 AutoSize = False Caption = 'Click the Next button to continue, or click Cancel to exit.' WordWrap = True end end object TPage Left = 0 Top = 0 Caption = 'License' object LicenseHeadingLabel: TLabel Left = 8 Top = 4 Width = 237 Height = 17 AutoSize = False Caption = 'License Agreement' Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ParentFont = False end object LicenseStepLabel: TLabel Left = 8 Top = 184 Width = 225 Height = 29 AutoSize = False Caption = 'Do you accept this license agreement? If you choose No, Setup wi' + 'll close.' WordWrap = True end object LicenseMemo: TMemo Left = 8 Top = 24 Width = 253 Height = 149 Color = clBtnFace Lines.Strings = ( '' ' Ultra Fractal Software License Agreement' '' '' ' Disclaimer' '' 'I, FREDERIK SLIJKERMAN, THE AUTHOR OF ' 'ULTRA FRACTAL, SPECIFICALLY DISCLAIM ' 'ALL WARRANTIES, EXPRESSED OR IMPLIED, ' 'INCLUDING BUT NOT LIMITED TO, IMPLIED ' 'WARRANTIES OF MERCHANTABILITY AND ' 'FITNESS FOR A PARTICULAR PURPOSE.' 'IN NO EVENT SHALL I BE LIABLE FOR ANY ' 'DAMAGE ULTRA FRACTAL MAY CAUSE, ' 'INCLUDING BUT NOT LIMITED TO SPECIAL, ' 'INCIDENTAL, CONSEQUENTIAL OR OTHER ' 'DAMAGES.' '' '' ' Terms of Use' '' 'You may use the shareware version of Ultra ' 'Fractal for an evaluation period of up to 30 days. ' 'The purpose of this evaluation period is to allow ' 'you to determine whether Ultra Fractal meets your ' 'needs before purchasing it. Once the evaluation ' 'period has ended, you must either register your ' 'copy of Ultra Fractal, or remove it from your ' 'computer. If you have registered your copy of ' 'Ultra Fractal, you may continue to use your ' 'shareware version beyond the end of the 30-day ' 'evaluation period until your registration code ' 'arrives.' '' 'While you are evaluating the shareware version ' 'of Ultra Fractal, you may test it on as many ' 'computers as are required to evaluate the ' 'program. Your 30-day evaluation period starts ' 'when you first install Ultra Fractal on one or more ' 'computers. After the evaluation period, you must ' 'register the program, if you decide to continue ' 'using it.' '' 'I encourage you to distribute the shareware ' 'version of Ultra Fractal and give copies to friends, ' 'as long as there is no payment involved.' '' 'You may not reverse engineer, reverse compile, ' 'or disassemble any of the files in the distribution.' '' 'You are not allowed to distribute or copy the ' 'registered version of Ultra Fractal. The registered ' 'version is a commercial program. It is a violation ' 'of international copyright laws to give copies to ' 'others. You may give them the shareware ' 'version, so they can register the program on their ' 'own.') ReadOnly = True ScrollBars = ssVertical TabOrder = 0 end end object TPage Left = 0 Top = 0 Caption = 'Dest' object DestHeadingLabel: TLabel Left = 8 Top = 4 Width = 237 Height = 17 AutoSize = False Caption = 'Destination Folder' Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ParentFont = False end object DestDescriptionLabel: TLabel Left = 8 Top = 32 Width = 229 Height = 49 AutoSize = False Caption = 'Setup needs to know where to install Ultra Fractal. Please type ' + 'a folder below, or use the Browse button to choose a folder.' WordWrap = True end object DestStepLabel: TLabel Left = 8 Top = 84 Width = 225 Height = 21 AutoSize = False Caption = 'If you are unsure, just click Next.' WordWrap = True end object DestFolderLabel: TLabel Left = 8 Top = 116 Width = 105 Height = 17 AutoSize = False Caption = 'Destination &Folder:' end object DestFolderInput: TEdit Left = 8 Top = 132 Width = 251 Height = 21 TabStop = False TabOrder = 0 end object DestBrowseButton: TButton Left = 184 Top = 164 Width = 75 Height = 25 Caption = '&Browse...' TabOrder = 1 OnClick = DestBrowseButtonClick end end object TPage Left = 0 Top = 0 Caption = 'Icon' object IconHeadingLabel: TLabel Left = 8 Top = 4 Width = 237 Height = 17 AutoSize = False Caption = 'Start Menu and Desktop Shortcuts' Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ParentFont = False end object IconFolderLabel: TLabel Left = 8 Top = 32 Width = 229 Height = 33 AutoSize = False Caption = 'Do you want Setup to create a new folder in the Start Menu with ' + 'shortcuts for Ultra Fractal?' WordWrap = True end object IconShortcutLabel: TLabel Left = 8 Top = 108 Width = 229 Height = 33 AutoSize = False Caption = 'Do you want Setup to create a shortcut to Ultra Fractal on the d' + 'esktop?' WordWrap = True end object IconStepLabel: TLabel Left = 8 Top = 184 Width = 221 Height = 17 AutoSize = False Caption = 'Click Install to start copying files.' end object IconFolderCheck: TCheckBox Left = 8 Top = 68 Width = 205 Height = 17 Caption = 'Create a folder in the &Start Menu' State = cbChecked TabOrder = 0 end object IconShortcutCheck: TCheckBox Left = 8 Top = 144 Width = 205 Height = 17 Caption = 'Create a shortcut on the &desktop' State = cbChecked TabOrder = 1 end end object TPage Left = 0 Top = 0 Caption = 'Copy' object CopyHeadingLabel: TLabel Left = 8 Top = 4 Width = 237 Height = 17 AutoSize = False Caption = 'Copying Files' Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ParentFont = False end object CopyDescriptionLabel: TLabel Left = 8 Top = 32 Width = 225 Height = 17 AutoSize = False Caption = 'Setup is now copying files to your computer.' end object CopyStatusLabel: TLabel Left = 8 Top = 80 Width = 225 Height = 17 AutoSize = False Caption = 'Creating shortcuts...' end object CopyProgressBar: TProgressBar Left = 8 Top = 104 Width = 245 Height = 13 Min = 0 Max = 100 TabOrder = 0 end end object TPage Left = 0 Top = 0 Caption = 'Ready' object ReadyHeadingLabel: TLabel Left = 8 Top = 4 Width = 237 Height = 17 AutoSize = False Caption = 'Installation Finished' Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ParentFont = False end object ReadyDescriptionLabel: TLabel Left = 8 Top = 32 Width = 225 Height = 69 AutoSize = False Caption = 'Ultra Fractal has been installed successfully. You can start Ult' + 'ra Fractal by double-clicking the icon on your desktop. Please r' + 'ead the README.TXT file before starting Ultra Fractal.' WordWrap = True end object ReadyStartLabel: TLabel Left = 8 Top = 168 Width = 225 Height = 21 AutoSize = False Caption = 'Do you want to start Ultra Fractal now?' WordWrap = True end object ReadyReadmeLabel: TLabel Left = 8 Top = 108 Width = 225 Height = 21 AutoSize = False Caption = 'Do you want to view README.TXT now?' WordWrap = True end object ReadyStartCheck: TCheckBox Left = 8 Top = 188 Width = 185 Height = 17 Caption = '&Start Ultra Fractal' State = cbChecked TabOrder = 0 end object ReadyReadmeCheck: TCheckBox Left = 8 Top = 128 Width = 169 Height = 17 Caption = 'Show &README.TXT' State = cbChecked TabOrder = 1 end end end end