PC World 2003 February/PCWorld_2003-02_cd.bin/Software/Topware/devpascal/devpas.exe/0/RCDATA/TSETUPCREATORWINDOW/TSETUPCREATORWINDOW.txt

Text File | 2002-07-15 | 23KB | 810 lines

object SetupCreatorWindow: TSetupCreatorWindow
  Left = 192
  Top = 107
  HorzScrollBar.Visible = False
  VertScrollBar.Visible = False
  BorderIcons = [biSystemMenu, biMinimize]
  BorderStyle = bsSingle
  Caption = 'Setup Creator'
  ClientHeight = 454
  ClientWidth = 609
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -14
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  FormStyle = fsStayOnTop
  Icon.Data = {<image000.ico>}
  OldCreateOrder = False
  Position = poScreenCenter
  OnCreate = FormCreate
  OnDeactivate = FormDeactivate
  OnShow = FormShow
  PixelsPerInch = 120
  TextHeight = 16
  object Bevel1: TBevel
    Left = 10
    Top = 389
    Width = 592
    Height = 11
    Shape = bsBottomLine
  end
  object BackBtn: TButton
    Left = 399
    Top = 416
    Width = 102
    Height = 31
    Caption = '< &Back'
    Enabled = False
    TabOrder = 1
    OnClick = BackBtnClick
  end
  object NextBtn: TButton
    Left = 507
    Top = 416
    Width = 97
    Height = 31
    Caption = '&Next >'
    Default = True
    TabOrder = 2
    OnClick = NextBtnClick
  end
  object Notebook: TNotebook
    Left = 177
    Top = 47
    Width = 425
    Height = 336
    TabOrder = 0
    OnPageChanged = NotebookPageChanged
    object TPage
      Left = 0
      Top = 0
      Caption = 'AppInfo'
      object Label4: TLabel
        Left = 5
        Top = 5
        Width = 305
        Height = 32
        Caption =
          'First, we need to know a little about your application.'#13#10'We can ' +
          'gather this information in one of two ways.'
      end
      object Label5: TLabel
        Left = 17
        Top = 57
        Width = 233
        Height = 16
        Caption = '1:  You may enter the information below.'
      end
      object Label6: TLabel
        Left = 17
        Top = 74
        Width = 99
        Height = 16
        Caption = '2:  You may click'
      end
      object Label7: TLabel
        Left = 172
        Top = 74
        Width = 225
        Height = 32
        Caption = 'and we will try to gather the information'#13#10'automatically.'
      end
      object Label8: TLabel
        Left = 2
        Top = 123
        Width = 99
        Height = 16
        Caption = 'Application &Title:'
        FocusControl = AppTitle
      end
      object Label9: TLabel
        Left = 2
        Top = 153
        Width = 49
        Height = 16
        Caption = '&Version:'
        FocusControl = Version
      end
      object Label10: TLabel
        Left = 2
        Top = 185
        Width = 99
        Height = 16
        Caption = 'Application &EXE:'
        FocusControl = AppExe
      end
      object Label18: TLabel
        Left = 2
        Top = 239
        Width = 101
        Height = 16
        Caption = '&Company Name:'
      end
      object BrowseInfo: TButton
        Left = 123
        Top = 74
        Width = 46
        Height = 21
        Caption = 'here'
        TabOrder = 0
        OnClick = BrowseInfoClick
      end
      object AppTitle: TEdit
        Left = 118
        Top = 118
        Width = 277
        Height = 24
        TabOrder = 1
        OnChange = AppTitleChange
      end
      object Version: TEdit
        Left = 118
        Top = 148
        Width = 277
        Height = 24
        TabOrder = 2
        Text = '1.0'
      end
      object AppExe: TEdit
        Left = 118
        Top = 180
        Width = 277
        Height = 24
        TabOrder = 3
      end
      object CompanyName: TEdit
        Left = 118
        Top = 234
        Width = 277
        Height = 24
        TabOrder = 4
        OnChange = CompanyNameChange
      end
    end
    object TPage
      Left = 0
      Top = 0
      Caption = 'VisualInfo'
      object Label11: TLabel
        Left = 2
        Top = 2
        Width = 337
        Height = 32
        Caption =
          'You must now set options for the visual or "look and feel" aspec' +
          't of the setup program.'
        WordWrap = True
      end
      object Label12: TLabel
        Left = 5
        Top = 54
        Width = 188
        Height = 16
        Caption = 'Background gradient color:'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -15
        Font.Name = 'MS Sans Serif'
        Font.Style = [fsBold]
        ParentFont = False
      end
      object Label14: TLabel
        Left = 5
        Top = 190
        Width = 74
        Height = 16
        Caption = '&Language:'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -15
        Font.Name = 'MS Sans Serif'
        Font.Style = [fsBold]
        ParentFont = False
      end
      object Label15: TLabel
        Left = 5
        Top = 251
        Width = 36
        Height = 16
        Caption = '&Title:'
        FocusControl = Title
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -15
        Font.Name = 'MS Sans Serif'
        Font.Style = [fsBold]
        ParentFont = False
      end
      object RadioButton1: TRadioButton
        Left = 32
        Top = 81
        Width = 139
        Height = 21
        Caption = 'Blue'
        Checked = True
        TabOrder = 0
        TabStop = True
      end
      object RadioButton2: TRadioButton
        Left = 32
        Top = 101
        Width = 139
        Height = 21
        Caption = 'Green'
        TabOrder = 1
      end
      object RadioButton3: TRadioButton
        Left = 32
        Top = 121
        Width = 139
        Height = 21
        Caption = 'Yellow'
        TabOrder = 2
      end
      object RadioButton4: TRadioButton
        Left = 32
        Top = 140
        Width = 139
        Height = 21
        Caption = 'Red'
        TabOrder = 3
      end
      object LangBox: TComboBox
        Left = 84
        Top = 185
        Width = 104
        Height = 24
        ItemHeight = 16
        Sorted = True
        TabOrder = 4
        Text = 'English'
        Items.Strings = (
          'Dutch'
          'English'
          'French'
          'German'
          'Indonesian'
          'Spanish')
      end
      object Title: TEdit
        Left = 59
        Top = 246
        Width = 336
        Height = 21
        TabOrder = 5
        Text = 'Setup'
      end
    end
    object TPage
      Left = 0
      Top = 0
      Caption = 'DialogInfo'
      object Label16: TLabel
        Left = 0
        Top = 5
        Width = 59
        Height = 16
        Caption = 'Dialogs:'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -15
        Font.Name = 'MS Sans Serif'
        Font.Style = [fsBold]
        ParentFont = False
      end
      object Label17: TLabel
        Left = 0
        Top = 105
        Width = 164
        Height = 16
        Caption = 'Default install directory:'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -15
        Font.Name = 'MS Sans Serif'
        Font.Style = [fsBold]
        ParentFont = False
      end
      object Label22: TLabel
        Left = 0
        Top = 140
        Width = 207
        Height = 16
        Caption = 'End-User License Agreement:'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -15
        Font.Name = 'MS Sans Serif'
        Font.Style = [fsBold]
        ParentFont = False
      end
      object CheckBox1: TCheckBox
        Left = 17
        Top = 22
        Width = 198
        Height = 21
        Caption = 'Choose Destination Location'
        Checked = True
        State = cbChecked
        TabOrder = 0
      end
      object CheckBox2: TCheckBox
        Left = 17
        Top = 44
        Width = 120
        Height = 21
        Caption = 'Welcome'
        Checked = True
        State = cbChecked
        TabOrder = 1
      end
      object CheckBox3: TCheckBox
        Left = 17
        Top = 66
        Width = 201
        Height = 21
        Caption = 'End-User License Agreement'
        Checked = True
        State = cbChecked
        TabOrder = 2
        OnExit = CheckBox3Exit
        OnMouseMove = CheckBox3MouseMove
      end
      object DefaultDir: TEdit
        Left = 177
        Top = 98
        Width = 218
        Height = 26
        AutoSize = False
        TabOrder = 3
      end
      object Memo: TMemo
        Left = 0
        Top = 158
        Width = 395
        Height = 178
        TabOrder = 4
        WantTabs = True
        WordWrap = False
      end
    end
    object TPage
      Left = 0
      Top = 0
      Caption = 'FileInfo'
      object Label19: TLabel
        Left = 5
        Top = 38
        Width = 40
        Height = 16
        Caption = '&Group:'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clNavy
        Font.Height = -15
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
      end
      object Label20: TLabel
        Left = 209
        Top = 38
        Width = 32
        Height = 16
        Caption = '&Files:'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clNavy
        Font.Height = -15
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
      end
      object Label1: TLabel
        Left = 0
        Top = 0
        Width = 353
        Height = 48
        Caption =
          'You now need to add the files you want to install during setup. ' +
          'Right-click on the group or files box for properties and removal' +
          '.'
        WordWrap = True
      end
      object GroupBox: TListBox
        Left = 0
        Top = 59
        Width = 204
        Height = 238
        ItemHeight = 16
        Items.Strings = (
          'Program Files')
        PopupMenu = PopupMenu
        TabOrder = 0
        OnClick = GroupBoxClick
        OnKeyDown = GroupBoxKeyDown
      end
      object FilesBox: TListBox
        Left = 212
        Top = 59
        Width = 204
        Height = 238
        ItemHeight = 13
        TabOrder = 1
        OnClick = FilesBoxClick
        OnKeyDown = FilesBoxKeyDown
      end
      object PropertiesBtn: TBitBtn
        Left = 212
        Top = 305
        Width = 98
        Height = 31
        Caption = '&Properties'
        TabOrder = 2
        OnClick = PropertiesBoxItemClick
        Glyph.Data = {
          76010000424D7601000000000000760000002800000020000000100000000100
          04000000000000010000120B0000120B00001000000000000000000000000000
          800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
          FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333300333
          33333333333773FF333333333330F0033333333333373773FF333333330FFFF0
          03333333337F333773FF3333330FFFFFF003333333733FF33773333330FF00FF
          FF80333337F3773F3337333330FFFF0FFFF03FFFF7FFF3733F3700000000FFFF
          0FF0777777773FF373370000000000FFFFF07FFFFFF377FFF3370CCCCC000000
          FF037777773337773F7300CCC000003300307F77733337F37737000C00000033
          33307F373333F7F333370000007B703333307FFFF337F7F33337099900BBB033
          33307777F37777FF33370999007B700333037777F3373773FF73099900000030
          00337777FFFFF7F7773300000000003333337777777777333333}
        NumGlyphs = 2
      end
      object RemoveBtn: TBitBtn
        Left = 318
        Top = 305
        Width = 98
        Height = 31
        Caption = '&Remove'
        TabOrder = 3
        OnClick = RemoveBoxItemClick
        Glyph.Data = {
          76010000424D7601000000000000760000002800000020000000100000000100
          04000000000000010000130B0000130B00001000000000000000000000000000
          800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
          FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
          333333333333333333FF33333333333330003333333333333777333333333333
          300033FFFFFF3333377739999993333333333777777F3333333F399999933333
          3300377777733333337733333333333333003333333333333377333333333333
          3333333333333333333F333333333333330033333F33333333773333C3333333
          330033337F3333333377333CC3333333333333F77FFFFFFF3FF33CCCCCCCCCC3
          993337777777777F77F33CCCCCCCCCC399333777777777737733333CC3333333
          333333377F33333333FF3333C333333330003333733333333777333333333333
          3000333333333333377733333333333333333333333333333333}
        NumGlyphs = 2
      end
      object NewGroupBtn: TBitBtn
        Left = 0
        Top = 305
        Width = 100
        Height = 31
        Caption = '&New Group'
        TabOrder = 4
        OnClick = NewGroupBtnClick
        Glyph.Data = {
          76010000424D7601000000000000760000002800000020000000100000000100
          04000000000000010000120B0000120B00001000000000000000000000000000
          800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
          FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF003FF0000000F0
          000033F77777773777773FFF0CCC0FF09990333F73F37337F33733FFF0C0FFF0
          99903333F7373337F337333FFF0FFFF0999033333F73FFF7FFF73333FFF000F0
          0000333333F77737777733333F07B70FFFFF3333337F337F33333333330BBB0F
          FFFF3333337F337F333333333307B70FFFFF33333373FF733F333333333000FF
          0FFF3333333777337FF3333333333FF000FF33FFFFF3333777FF300000333300
          000F377777F33377777F30EEE0333000000037F337F33777777730EEE0333330
          00FF37F337F3333777F330EEE033333000FF37FFF7F3333777F3300000333330
          00FF3777773333F77733333333333000033F3333333337777333}
        NumGlyphs = 2
      end
      object InsertFileBtn: TBitBtn
        Left = 106
        Top = 305
        Width = 98
        Height = 31
        Caption = '&Insert Files'
        TabOrder = 5
        OnClick = InsertFilesBtnClick
        Glyph.Data = {
          76010000424D7601000000000000760000002800000020000000100000000100
          04000000000000010000120B0000120B00001000000000000000000000000000
          800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
          FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00555555555555
          55555555FFFFFFFFFF55555000000000055555577777777775F55500B8B8B8B8
          B05555775F555555575F550F0B8B8B8B8B05557F75F555555575550BF0B8B8B8
          B8B0557F575FFFFFFFF7550FBF0000000000557F557777777777500BFBFBFBFB
          0555577F555555557F550B0FBFBFBFBF05557F7F555555FF75550F0BFBFBF000
          55557F75F555577755550BF0BFBF0B0555557F575FFF757F55550FB700007F05
          55557F557777557F55550BFBFBFBFB0555557F555555557F55550FBFBFBFBF05
          55557FFFFFFFFF7555550000000000555555777777777755555550FBFB055555
          5555575FFF755555555557000075555555555577775555555555}
        NumGlyphs = 2
      end
    end
    object TPage
      Left = 0
      Top = 0
      Caption = 'Finish'
      object Label21: TLabel
        Left = 5
        Top = 5
        Width = 323
        Height = 16
        Caption = 'Click on the Build button below to build your installation.'
      end
      object ProgressLabel: TLabel
        Left = 20
        Top = 123
        Width = 96
        Height = 16
        Caption = 'Setup Progress:'
        Visible = False
      end
      object BuildBtn: TBitBtn
        Left = 20
        Top = 39
        Width = 139
        Height = 31
        Caption = '&Build'
        TabOrder = 0
        OnClick = BuildBtnClick
        Glyph.Data = {
          76010000424D7601000000000000760000002800000020000000100000000100
          04000000000000010000130B0000130B00001000000000000000000000000000
          800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
          FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333303
          333333333333337FF3333333333333903333333333333377FF33333333333399
          03333FFFFFFFFF777FF3000000999999903377777777777777FF0FFFF0999999
          99037F3337777777777F0FFFF099999999907F3FF777777777770F00F0999999
          99037F773777777777730FFFF099999990337F3FF777777777330F00FFFFF099
          03337F773333377773330FFFFFFFF09033337F3FF3FFF77733330F00F0000003
          33337F773777777333330FFFF0FF033333337F3FF7F3733333330F08F0F03333
          33337F7737F7333333330FFFF003333333337FFFF77333333333000000333333
          3333777777333333333333333333333333333333333333333333}
        NumGlyphs = 2
      end
      object TestBtn: TBitBtn
        Left = 20
        Top = 79
        Width = 139
        Height = 31
        Caption = '&Test setup'
        Enabled = False
        TabOrder = 1
        OnClick = TestBtnClick
        Glyph.Data = {
          76010000424D7601000000000000760000002800000020000000100000000100
          04000000000000010000120B0000120B00001000000000000000000000000000
          800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
          FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
          33333FFFFFFFFFFFFFFF000000000000000077777777777777770FFFFFFFFFFF
          FFF07F3FF3FF3FFF3FF70F00F00F000F00F07F773773777377370FFFFFFFFFFF
          FFF07F3FF3FF33FFFFF70F00F00FF00000F07F773773377777F70FEEEEEFF0F9
          FCF07F33333337F7F7F70FFFFFFFF0F9FCF07F3FFFF337F737F70F0000FFF0FF
          FCF07F7777F337F337370F0000FFF0FFFFF07F777733373333370FFFFFFFFFFF
          FFF07FFFFFFFFFFFFFF70CCCCCCCCCCCCCC07777777777777777088CCCCCCCCC
          C880733777777777733700000000000000007777777777777777333333333333
          3333333333333333333333333333333333333333333333333333}
        NumGlyphs = 2
      end
      object ProgressBar: TProgressBar
        Left = 20
        Top = 140
        Width = 184
        Height = 20
        Min = 0
        Max = 100
        TabOrder = 2
        Visible = False
      end
    end
  end
  object CloseBtn: TBitBtn
    Left = 10
    Top = 416
    Width = 92
    Height = 31
    TabOrder = 3
    Kind = bkClose
  end
  object Panel1: TPanel
    Left = 10
    Top = 44
    Width = 149
    Height = 336
    BevelOuter = bvLowered
    TabOrder = 4
    object Image1: TImage
      Left = 1
      Top = 1
      Width = 147
      Height = 334
      Align = alClient
      Picture.Data = {<image001.bmp>}
    end
  end
  object AboutBtn: TBitBtn
    Left = 108
    Top = 416
    Width = 93
    Height = 31
    Caption = '&About'
    TabOrder = 5
    OnClick = AboutBtnClick
    Glyph.Data = {
      76010000424D7601000000000000760000002800000020000000100000000100
      04000000000000010000120B0000120B00001000000000000000000000000000
      800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
      FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
      3333333333FFFFF3333333333F797F3333333333F737373FF333333BFB999BFB
      33333337737773773F3333BFBF797FBFB33333733337333373F33BFBFBFBFBFB
      FB3337F33333F33337F33FBFBFB9BFBFBF3337333337F333373FFBFBFBF97BFB
      FBF37F333337FF33337FBFBFBFB99FBFBFB37F3333377FF3337FFBFBFBFB99FB
      FBF37F33333377FF337FBFBF77BF799FBFB37F333FF3377F337FFBFB99FB799B
      FBF373F377F3377F33733FBF997F799FBF3337F377FFF77337F33BFBF99999FB
      FB33373F37777733373333BFBF999FBFB3333373FF77733F7333333BFBFBFBFB
      3333333773FFFF77333333333FBFBF3333333333377777333333}
    NumGlyphs = 2
  end
  object Dock971: TDock97
    Left = 0
    Top = 0
    Width = 609
    Height = 32
    BoundLines = [blBottom]
    FixAlign = True
    object Toolbar971: TToolbar97
      Left = 0
      Top = 0
      Caption = 'Setup Creator'
      CloseButton = False
      DockPos = 0
      TabOrder = 0
      object ToolbarButton971: TToolbarButton97
        Left = 0
        Top = 0
        Width = 49
        Height = 27
        DropdownArrow = False
        DropdownMenu = PopupMenu1
        Caption = '&File'
      end
      object ToolbarButton972: TToolbarButton97
        Left = 49
        Top = 0
        Width = 49
        Height = 27
        DropdownArrow = False
        DropdownMenu = PopupMenu3
        Caption = '&Help'
      end
    end
  end
  object PopupMenu: TPopupMenu
    Images = MainForm.MenuImages_Gnome
    Left = 38
    Top = 138
    object PropertiesBoxItem: TMenuItem
      Caption = '&Properties'
      ImageIndex = 10
      OnClick = PropertiesBoxItemClick
    end
    object N1: TMenuItem
      Caption = '-'
    end
    object RemoveBoxItem: TMenuItem
      Caption = '&Remove'
      ImageIndex = 4
      OnClick = RemoveBoxItemClick
    end
  end
  object PopupMenu2: TPopupMenu
    Images = MainForm.MenuImages_Gnome
    Left = 68
    Top = 138
    object RemovePopItem: TMenuItem
      Caption = '&Remove'
      ImageIndex = 4
      OnClick = RemoveItem
    end
  end
  object OpenDialog: TOpenDialog
    Filter = 'All Files|*.*'
    Options = [ofHideReadOnly, ofAllowMultiSelect, ofNoDereferenceLinks, ofEnableSizing]
    Title = 'Insert File'
    Left = 38
    Top = 168
  end
  object SaveDialog: TSaveDialog
    DefaultExt = '*.inf'
    FileName = 'Setup'
    Filter = 'Setup Information Files|*.inf'
    Options = [ofHideReadOnly, ofPathMustExist, ofEnableSizing]
    Left = 68
    Top = 168
  end
  object Compress: TBackupFile
    Version = '5.00'
    BackupMode = bmAll
    CompressionLevel = clMax
    RestoreMode = rmAll
    MaxSize = 0
    SetArchiveFlag = False
    RestoreFullPath = False
    SaveFileID = False
    Left = 38
    Top = 198
  end
  object MarsCaption1: TMarsCaption
    ActiveBeginColor = clBlack
    ActiveEndColor = clBlue
    ActiveFontColor = clWhite
    InactiveBeginColor = clGray
    InactiveEndColor = clSilver
    InactiveFontColor = clSilver
    ApplicationNameFont.Charset = DEFAULT_CHARSET
    ApplicationNameFont.Color = clWindowText
    ApplicationNameFont.Height = -11
    ApplicationNameFont.Name = 'MS Sans Serif'
    ApplicationNameFont.Style = [fsBold]
    CaptionFont.Charset = DEFAULT_CHARSET
    CaptionFont.Color = clWindowText
    CaptionFont.Height = -11
    CaptionFont.Name = 'MS Sans Serif'
    CaptionFont.Style = []
    NumColors = 64
    AutoSize = False
    Left = 68
    Top = 198
  end
  object PopupMenu1: TPopupMenu
    Images = MainForm.MenuImages_Gnome
    Left = 38
    Top = 108
    object New: TMenuItem
      Caption = '&New'
      ImageIndex = 2
      ShortCut = 16462
      OnClick = NewClick
    end
    object Open1: TMenuItem
      Caption = '&Open'
      ImageIndex = 1
      ShortCut = 16463
      OnClick = Open1Click
    end
    object N2: TMenuItem
      Caption = '-'
    end
    object Close1: TMenuItem
      Caption = '&Close'
      ImageIndex = 35
      OnClick = Close1Click
    end
  end
  object PopupMenu3: TPopupMenu
    Images = MainForm.MenuImages_Gnome
    Left = 68
    Top = 108
    object About1: TMenuItem
      Caption = '&About'
      ImageIndex = 0
      OnClick = AboutBtnClick
    end
  end
  object OpenFileDialog: TOpenDialog
    DefaultExt = '.inf'
    FileName = 'Setup'
    Filter = '.INF files|*.inf|All files|*.*'
    Options = [ofHideReadOnly, ofFileMustExist, ofEnableSizing]
    Left = 64
    Top = 68
  end
end