home *** CD-ROM | disk | FTP | other *** search
- object MainForm: TMainForm
- Left = 207
- Top = 112
- HorzScrollBar.Color = clMaroon
- HorzScrollBar.ParentColor = False
- HorzScrollBar.Tracking = True
- ActiveControl = CleanBtn
- BorderIcons = [biSystemMenu, biHelp]
- BorderStyle = bsSingle
- Caption = 'Disk Cleaner'
- ClientHeight = 288
- ClientWidth = 326
- Color = 47634134
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWindowText
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- KeyPreview = True
- OldCreateOrder = False
- Position = poDesktopCenter
- OnCreate = FormCreate
- OnDestroy = FormDestroy
- OnKeyDown = FormKeyDown
- OnPaint = FormPaint
- PixelsPerInch = 96
- TextHeight = 13
- object Label1: TLabel
- Left = 24
- Top = 16
- Width = 101
- Height = 13
- Caption = 'Select items to clean:'
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clNavy
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentFont = False
- Transparent = True
- end
- object CleaningItems: TCheckListBox
- Left = 24
- Top = 37
- Width = 273
- Height = 144
- Hint = 'HintText'
- HelpContext = 100
- OnClickCheck = CleaningItemsClickCheck
- BorderStyle = bsNone
- Color = 48412040
- Ctl3D = False
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clBlack
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- IntegralHeight = True
- ItemHeight = 18
- ParentCtl3D = False
- ParentFont = False
- ParentShowHint = False
- ShowHint = True
- Style = lbOwnerDrawFixed
- TabOrder = 3
- OnDrawItem = CleaningItemsDrawItem
- OnMouseDown = CleaningItemsMouseDown
- end
- object CleanBtn: TOwnerDrawBtn
- Tag = 1
- Left = 24
- Top = 240
- Width = 89
- Height = 41
- HelpContext = 101
- Default = True
- TabStop = True
- TabOrder = 0
- Caption = '&Clean'
- OnClick = CleanBtnClick
- OnDrawButton = CleanBtnDrawButton
- end
- object AboutBtn: TOwnerDrawBtn
- Tag = 2
- Left = 120
- Top = 240
- Width = 89
- Height = 41
- HelpContext = 102
- TabStop = True
- TabOrder = 1
- Caption = '&About'
- OnClick = AboutBtnClick
- OnDrawButton = CleanBtnDrawButton
- end
- object ExitBtn: TOwnerDrawBtn
- Tag = 3
- Left = 216
- Top = 240
- Width = 89
- Height = 41
- HelpContext = 103
- Cancel = True
- TabStop = True
- TabOrder = 2
- Caption = 'E&xit'
- OnClick = ExitBtnClick
- OnDrawButton = CleanBtnDrawButton
- end
- object SaveCfg: TOwnerDrawBtn
- Left = 168
- Top = 196
- Width = 61
- Height = 25
- HelpContext = 104
- TabStop = True
- TabOrder = 5
- Caption = '&Save as...'
- OnClick = SaveCfgClick
- OnDrawButton = CleanBtnDrawButton
- end
- object RmCfg: TOwnerDrawBtn
- Left = 236
- Top = 196
- Width = 61
- Height = 25
- HelpContext = 105
- TabStop = True
- TabOrder = 6
- Caption = '&Remove'
- OnClick = RmCfgClick
- OnDrawButton = CleanBtnDrawButton
- end
- object SettingsBox: TComboBox
- Left = 24
- Top = 196
- Width = 137
- Height = 19
- HelpContext = 106
- Style = csOwnerDrawFixed
- Color = 48412040
- Ctl3D = False
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWindowText
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ItemHeight = 13
- ParentCtl3D = False
- ParentFont = False
- Sorted = True
- TabOrder = 4
- OnChange = SettingsBoxChange
- OnDrawItem = SettingsBoxDrawItem
- end
- object CfgMenu: TPopupMenu
- Left = 288
- Top = 4
- object Config: TMenuItem
- Caption = '&Configure'
- OnClick = ConfigClick
- end
- end
- end
-