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