home *** CD-ROM | disk | FTP | other *** search
- object frmThemes: TfrmThemes
- Left = 237
- Top = 243
- BorderStyle = bsDialog
- Caption = 'TuneUp WinStyler: Icon Packages'
- ClientHeight = 479
- ClientWidth = 587
- Color = clWhite
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWindowText
- Font.Height = -11
- Font.Name = 'Tahoma'
- Font.Style = []
- OldCreateOrder = False
- Position = poMainFormCenter
- Scaled = False
- OnActivate = FormActivate
- OnCreate = FormCreate
- OnDestroy = FormDestroy
- PixelsPerInch = 96
- TextHeight = 13
- object Label83: TLabel
- Left = 52
- Top = 36
- Width = 339
- Height = 14
- Caption = 'Give your system a whole new look!'
- Font.Charset = DEFAULT_CHARSET
- Font.Color = 14579273
- Font.Height = -12
- Font.Name = 'Tahoma'
- Font.Style = [fsBold]
- ParentFont = False
- Transparent = True
- end
- object Label84: TLabel
- Left = 19
- Top = 11
- Width = 387
- Height = 23
- AutoSize = False
- Caption = 'Icon Packages'
- Font.Charset = DEFAULT_CHARSET
- Font.Color = 12532006
- Font.Height = -19
- Font.Name = 'Arial'
- Font.Style = [fsBold]
- ParentFont = False
- Transparent = True
- end
- object btnHelp: TButton
- Left = 498
- Top = 446
- Width = 78
- Height = 24
- HelpContext = 4
- Caption = 'Help'
- TabOrder = 2
- OnClick = btnHelpClick
- end
- object btnCancel: TButton
- Left = 414
- Top = 446
- Width = 78
- Height = 24
- HelpContext = 3
- Cancel = True
- Caption = 'Close'
- TabOrder = 1
- OnClick = btnCancelClick
- end
- object btnOK: TButton
- Left = 330
- Top = 446
- Width = 78
- Height = 24
- HelpContext = 5
- Caption = 'OK'
- Default = True
- TabOrder = 0
- OnClick = btnOKClick
- end
- object wtbIconPacks: TTUWebTaskBar
- Left = 384
- Top = 96
- Width = 185
- Height = 336
- OnHotSpotClick = wtbIconPacksHotSpotClick
- OnImageRequest = wtbIconPacksImageRequest
- TabOrder = 3
- DefBackground = clWhite
- BorderStyle = htNone
- HistoryMaxCount = 0
- DefFontName = 'Times New Roman'
- DefPreFontName = 'Courier New'
- DefHotSpotColor = clWhite
- DefOverLinkColor = 15714211
- ImageCacheCount = 0
- NoSelect = True
- ScrollBars = ssNone
- CharSet = DEFAULT_CHARSET
- MarginHeight = 0
- MarginWidth = 0
- PrintMarginLeft = 2
- PrintMarginRight = 2
- PrintMarginTop = 2
- PrintMarginBottom = 2
- PrintScale = 1
- htOptions = [htOverLinksActive, htPrintTableBackground, htPrintMonochromeBlack]
- AutoSize = False
- AllowPaint = True
- end
- object TUHTMLViewer1: TTUHTMLViewer
- Left = 19
- Top = 58
- Width = 554
- Height = 28
- OnHotSpotClick = TUHTMLViewer1HotSpotClick
- TabOrder = 4
- DefBackground = clWhite
- BorderStyle = htNone
- HistoryMaxCount = 0
- DefFontName = 'Times New Roman'
- DefPreFontName = 'Courier New'
- DefHotSpotColor = clNavy
- NoSelect = True
- ScrollBars = ssNone
- CharSet = DEFAULT_CHARSET
- MarginHeight = 0
- MarginWidth = 0
- PrintMarginLeft = 2
- PrintMarginRight = 2
- PrintMarginTop = 2
- PrintMarginBottom = 2
- PrintScale = 1
- htOptions = [htOverLinksActive, htPrintTableBackground, htPrintMonochromeBlack]
- HTML.Strings = (
- '<body>'
- '<p>'
-
- 'Select an icon package and click Install to display it in the ma' +
- 'in window.'
-
- '<!-- Additional packages can be added to the list by clicking Ad' +
- 'd new package. -->'
- '</p>'
- '</body>')
- end
- object ALProgressBar1: TALProgressBar
- Left = 19
- Top = 34
- Width = 483
- Height = 1
- BackColor = clBlack
- BorderStyle = bstNone
- TabOrder = 5
- BackgroundColor = clBtnFace
- BarColor1 = 15370355
- BarColor2 = clWhite
- Max = 100
- Position = 100
- PosTextSuffix = '%'
- ShowPosText = False
- VerticalBorder = 10
- end
- object gbIconPackList: TTUGroupBox
- Left = 19
- Top = 96
- Width = 353
- Height = 334
- BackColor = clWhite
- BorderStyle = bstSingle
- TabOrder = 6
- FB_CaptionLeft = 'Icon packages'
- FB_ImageIndex = -1
- FB_ShowCloseBtn = False
- ShowFolderBar = True
- Style = aisWeb
- DesignSize = (
- 352
- 333)
- object lbPacks: TBigCheckListBox
- Tag = 54321
- Left = 1
- Top = 44
- Width = 351
- Height = 289
- HelpContext = 5516
- Align = alClient
- BorderStyle = bsNone
- Checkboxes = False
- DetailList = True
- BoldCaptions = True
- FullRowSelect = True
- PopupMenu = mnuList
- NoMouseScrolling = False
- SelColor = clHighlight
- TabOrder = 3
- OnClick = lbPacksClick
- OnDblClick = lbPacksDblClick
- OnMouseDown = lbPacksMouseDown
- end
- object pnlPleaseWait: TPanel
- Left = 36
- Top = 100
- Width = 282
- Height = 26
- Anchors = [akLeft, akTop, akRight]
- BevelOuter = bvNone
- Caption = 'Reading the icon packages...'
- Color = clWindow
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clBlack
- Font.Height = -11
- Font.Name = 'Tahoma'
- Font.Style = []
- ParentFont = False
- TabOrder = 1
- end
- object ALProgressBar13: TALProgressBar
- Left = 1
- Top = 20
- Width = 351
- Height = 24
- Align = alTop
- BackColor = clWhite
- BorderStyle = bstNone
- TabOrder = 2
- BackgroundColor = clBtnFace
- BarColor1 = 16644596
- BarColor2 = 16047822
- Direction = pdTopToBottom
- Max = 100
- Position = 100
- PosTextSuffix = '%'
- ShowPosText = False
- VerticalBorder = 10
- object btnAddIconPack: TTUButton
- Left = 0
- Top = 0
- Width = 95
- Height = 24
- HelpContext = 5514
- Align = alLeft
- AutoWidth = True
- Cancel = False
- DropdownMenu = mnuAddIconPack
- Caption = '&Add'
- Default = False
- Flat = True
- TabOrder = 1
- TabStop = True
- GlyphFileName = 'ico_alpha_IconPackageAdd_16x16.png'
- end
- object btnCreateIconPack: TTUButton
- Left = 95
- Top = 0
- Width = 136
- Height = 24
- HelpContext = 5515
- Align = alLeft
- AutoWidth = True
- Cancel = False
- Caption = 'Cr&eate New Package'
- Default = False
- Flat = True
- TabOrder = 0
- TabStop = True
- OnClick = btnCreateIconPackClick
- GlyphFileName = 'ico_alpha_IconPackageNew_16x16.png'
- end
- end
- object pnlNoPacks: TPanel
- Left = 27
- Top = 60
- Width = 300
- Height = 72
- Anchors = [akLeft, akTop, akRight]
- BevelOuter = bvNone
- Color = clWindow
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clBlack
- Font.Height = -11
- Font.Name = 'Tahoma'
- Font.Style = []
- ParentFont = False
- TabOrder = 0
- Visible = False
- object lblNoPacks: TLabel
- Left = 0
- Top = 0
- Width = 300
- Height = 72
- Align = alClient
- Alignment = taCenter
- AutoSize = False
- Caption =
- 'No icon packages found. Click Add at the top of this box to inst' +
- 'all new packages.'
- Layout = tlCenter
- WordWrap = True
- end
- end
- end
- object mnuAddIconPack: TPopupMenu
- Left = 552
- Top = 8
- object mnInstallIconPackFromFile: TMenuItem
- Caption = 'Read Icon Package From File...'
- OnClick = mnInstallIconPackFromFileClick
- end
- object N1: TMenuItem
- Caption = '-'
- end
- object mnDownloadIconPacks: TMenuItem
- Caption = 'Download Icon Packages From TuneUp Online'
- OnClick = mnDownloadIconPacksClick
- end
- end
- object tmrApplyCurrentPack: TTimer
- Enabled = False
- Interval = 100
- OnTimer = tmrApplyCurrentPackTimer
- Left = 488
- Top = 8
- end
- object odAdd: TOpenDialog
- DefaultExt = '.tip'
- Filter =
- 'Supported formats (*.tip; *.ip)|*.tip; *.ip|TuneUp IconPackages ' +
- '(*.tip)|*.tip|IconPackager Themes (*.ip)|*.ip|All files|*'
- Options = [ofHideReadOnly, ofAllowMultiSelect, ofPathMustExist, ofFileMustExist, ofEnableSizing]
- Title = 'Add icon package'
- OnCanClose = odAddCanClose
- Left = 432
- Top = 8
- end
- object mnuList: TPopupMenu
- Left = 520
- Top = 8
- object Installieren1: TMenuItem
- Caption = 'Install'
- Default = True
- OnClick = Installieren1Click
- end
- object N2: TMenuItem
- Caption = '-'
- end
- object mnDelete: TMenuItem
- Caption = 'Delete'
- ShortCut = 46
- OnClick = mnDeleteClick
- end
- object mnCopyTo: TMenuItem
- Caption = 'Copy To...'
- OnClick = mnCopyToClick
- end
- end
- object CopyToDialog: TdfsBrowseDirectoryDlg
- Title = 'Copy icon package to'
- Options = [bfEditBox, bfNewDialogStyle, bfUseNewUI]
- Caption = 'Specify where you want to copy the selected icon package to'
- ShowSelectionInStatus = False
- Left = 460
- Top = 8
- end
- end
-