home *** CD-ROM | disk | FTP | other *** search
- object frmDetails: TfrmDetails
- Left = 213
- Top = 363
- AutoScroll = False
- BorderIcons = [biSystemMenu, biMaximize]
- Caption = 'TuneUp DiskCleaner - Details: ...'
- ClientHeight = 437
- ClientWidth = 558
- Color = clBtnFace
- Constraints.MinHeight = 410
- Constraints.MinWidth = 566
- 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
- OnResize = FormResize
- PixelsPerInch = 96
- TextHeight = 13
- object lblSelect: TLabel
- Left = 49
- Top = 9
- Width = 498
- Height = 35
- AutoSize = False
- Caption = '.'
- WordWrap = True
- end
- object imgIcon: TImage
- Left = 10
- Top = 10
- Width = 32
- Height = 32
- end
- object pnlDetails: TPanel
- Left = 10
- Top = 303
- Width = 538
- Height = 73
- BevelOuter = bvLowered
- Color = 16773866
- FullRepaint = False
- TabOrder = 1
- object lblFileType: TEllipsisLabel
- Left = 80
- Top = 30
- Width = 151
- Height = 15
- AutoSize = False
- Caption = 'File type'
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clBlack
- Font.Height = -11
- Font.Name = 'Tahoma'
- Font.Style = []
- ParentFont = False
- EllipsisStyle = etPathEllipsis
- end
- object lblFileName: TEllipsisLabel
- Left = 80
- Top = 13
- Width = 151
- Height = 15
- AutoSize = False
- Caption = 'File name'
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clBlack
- Font.Height = -11
- Font.Name = 'Tahoma'
- Font.Style = []
- ParentFont = False
- EllipsisStyle = etEndEllipsis
- end
- object lblFileSize: TLabel
- Left = 80
- Top = 47
- Width = 141
- Height = 15
- AutoSize = False
- Caption = 'File size'
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clBlack
- Font.Height = -11
- Font.Name = 'Tahoma'
- Font.Style = []
- ParentFont = False
- Transparent = True
- WordWrap = True
- end
- object imgFileIcon: TImage
- Left = 41
- Top = 14
- Width = 32
- Height = 32
- end
- object ALProgressBar1: TALProgressBar
- Left = 1
- Top = 1
- Width = 26
- Height = 70
- BackColor = clBlack
- BorderStyle = bstNone
- TabOrder = 0
- BackgroundColor = clBtnFace
- BarColor1 = 16772577
- BarColor2 = 16774378
- BarColorStyle = cs3Colors
- Direction = pdTopToBottom
- Max = 100
- Position = 100
- PosTextPrefix = 'sd'
- PosTextSuffix = '%'
- ShowPosText = False
- InBarFontColor = 12539908
- VerticalText = 'Details'
- VerticalBorder = 5
- end
- object pnlDates: TPanel
- Left = 236
- Top = 9
- Width = 198
- Height = 55
- BevelOuter = bvNone
- Color = 16773866
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clBlack
- Font.Height = -11
- Font.Name = 'Tahoma'
- Font.Style = []
- ParentFont = False
- TabOrder = 1
- object Label9: TLabel
- Left = 6
- Top = 4
- Width = 54
- Height = 13
- Caption = 'Created:'
- Transparent = True
- end
- object Label2: TLabel
- Left = 6
- Top = 21
- Width = 66
- Height = 13
- Caption = 'Modified:'
- Transparent = True
- end
- object Label3: TLabel
- Left = 6
- Top = 38
- Width = 73
- Height = 13
- Caption = 'Last access:'
- Transparent = True
- end
- object lblFileCreation: TLabel
- Left = 86
- Top = 4
- Width = 110
- Height = 13
- AutoSize = False
- Caption = '14.05.2002, 13:23:45'
- Transparent = True
- end
- object lblFileChange: TLabel
- Left = 86
- Top = 21
- Width = 110
- Height = 13
- AutoSize = False
- Caption = '14.05.2002, 13:23:45'
- Transparent = True
- end
- object lblFileAccess: TLabel
- Left = 86
- Top = 38
- Width = 110
- Height = 13
- AutoSize = False
- Caption = '14.05.2002, 13:23:45'
- Transparent = True
- end
- end
- object pnlCommands: TPanel
- Left = 452
- Top = 9
- Width = 79
- Height = 55
- BevelOuter = bvNone
- Color = 16773866
- TabOrder = 2
- object lblFileOpen: TLabel
- Left = 0
- Top = 4
- Width = 60
- Height = 13
- Cursor = crHandPoint
- Caption = 'Open file'
- Color = 1773582
- Font.Charset = DEFAULT_CHARSET
- Font.Color = 9780482
- Font.Height = -11
- Font.Name = 'Tahoma'
- Font.Style = [fsUnderline]
- ParentColor = False
- ParentFont = False
- Transparent = True
- OnClick = lblFileOpenClick
- OnMouseEnter = lblFileMouseEnter
- OnMouseLeave = lblFileMouseLeave
- end
- object lblFileProp: TLabel
- Left = 0
- Top = 21
- Width = 68
- Height = 13
- Cursor = crHandPoint
- Caption = 'Properties'
- Color = 1773582
- Font.Charset = DEFAULT_CHARSET
- Font.Color = 9780482
- Font.Height = -11
- Font.Name = 'Tahoma'
- Font.Style = [fsUnderline]
- ParentColor = False
- ParentFont = False
- Transparent = True
- OnClick = lblFilePropClick
- OnMouseEnter = lblFileMouseEnter
- OnMouseLeave = lblFileMouseLeave
- end
- end
- end
- object pnlFiles: TPanel
- Left = 10
- Top = 55
- Width = 538
- Height = 242
- BevelInner = bvLowered
- BevelOuter = bvNone
- Color = clWhite
- FullRepaint = False
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWindowText
- Font.Height = -11
- Font.Name = 'Tahoma'
- Font.Style = []
- ParentFont = False
- TabOrder = 0
- object lvFiles: TListView
- Left = 1
- Top = 1
- Width = 536
- Height = 240
- Align = alClient
- AllocBy = 500
- BorderStyle = bsNone
- Checkboxes = True
- Columns = <
- item
- Caption = 'File name'
- MinWidth = 20
- Width = 140
- end
- item
- Caption = 'Folder'
- MinWidth = 20
- Width = 220
- end
- item
- Alignment = taRightJustify
- Caption = 'Size'
- MinWidth = 20
- Width = 75
- end
- item
- Caption = 'Type'
- MinWidth = 20
- Width = 78
- end>
- HideSelection = False
- IconOptions.WrapText = False
- MultiSelect = True
- ReadOnly = True
- RowSelect = True
- PopupMenu = mnuFiles
- TabOrder = 0
- ViewStyle = vsReport
- OnColumnClick = lvFilesColumnClick
- OnCompare = lvFilesCompare
- OnDblClick = lvFilesDblClick
- OnSelectItem = lvFilesSelectItem
- end
- object pnlListing: TPanel
- Left = 16
- Top = 32
- Width = 507
- Height = 33
- BevelOuter = bvNone
- Caption = 'Creating file list, please wait ...'
- Color = clWindow
- TabOrder = 1
- end
- end
- object TopBottomGraphic1: TTopBottomGraphic
- Left = 0
- Top = 392
- Width = 558
- Height = 45
- Align = alBottom
- IconIndex = -1
- Style = TBSBottom
- Big = True
- FullWidthLine = False
- object btnOK: TButton
- Left = 393
- Top = 12
- Width = 75
- Height = 23
- Caption = 'OK'
- Default = True
- TabOrder = 0
- OnClick = btnOKClick
- end
- object btnCancel: TButton
- Left = 473
- Top = 12
- Width = 75
- Height = 23
- Cancel = True
- Caption = 'Cancel'
- TabOrder = 1
- OnClick = btnCancelClick
- end
- end
- object mnuFiles: TPopupMenu
- OnPopup = mnuFilesPopup
- Left = 10
- Top = 401
- object mnSelected: TMenuItem
- Caption = 'Select for Cleaning'
- Checked = True
- Default = True
- OnClick = mnSelectedClick
- end
- object N1: TMenuItem
- Caption = '-'
- end
- object mnFileOpen: TMenuItem
- Caption = 'Open File'
- OnClick = lblFileOpenClick
- end
- object mnParentFolderOpen: TMenuItem
- Caption = '&Open Parent Folder'
- OnClick = mnParentFolderOpenClick
- end
- object mnFileProp: TMenuItem
- Caption = 'Properties'
- OnClick = lblFilePropClick
- end
- end
- object tmrUpdateStats: TTimer
- Enabled = False
- Interval = 10
- OnTimer = tmrUpdateStatsTimer
- Left = 42
- Top = 401
- end
- end
-