home *** CD-ROM | disk | FTP | other *** search
- inherited fTempfiles: TfTempfiles
- Left = 334
- Top = 191
- Width = 543
- Height = 439
- Caption = 'Find and delete temporary files'
- Position = poScreenCenter
- OnCreate = FormCreate
- OnDestroy = FormDestroy
- PixelsPerInch = 96
- TextHeight = 13
- object Panel5: TPanel
- Left = 0
- Top = 355
- Width = 535
- Height = 35
- Align = alBottom
- TabOrder = 0
- object Panel6: TPanel
- Left = 1
- Top = 1
- Width = 162
- Height = 33
- Align = alLeft
- BevelOuter = bvNone
- TabOrder = 0
- object StartBTN: TButton
- Left = 9
- Top = 5
- Width = 96
- Height = 23
- Caption = '&Start search'
- TabOrder = 0
- OnClick = StartBTNClick
- end
- end
- object Panel7: TPanel
- Left = 377
- Top = 1
- Width = 157
- Height = 33
- Align = alRight
- BevelOuter = bvNone
- TabOrder = 1
- object ClosBTN: TButton
- Left = 79
- Top = 5
- Width = 71
- Height = 23
- Caption = '&Close'
- ModalResult = 2
- TabOrder = 0
- end
- object CancelBTN: TButton
- Left = 1
- Top = 5
- Width = 71
- Height = 23
- Caption = '&Cancel'
- TabOrder = 1
- OnClick = CancelBTNClick
- end
- end
- end
- object Panel8: TPanel [1]
- Left = 0
- Top = 390
- Width = 535
- Height = 22
- Align = alBottom
- Alignment = taLeftJustify
- BorderWidth = 2
- TabOrder = 1
- object Label3: TLabel
- Left = 3
- Top = 3
- Width = 36
- Height = 16
- Align = alLeft
- Alignment = taRightJustify
- Caption = ' State:'
- end
- object StatusPNL: TPanel
- Left = 39
- Top = 3
- Width = 282
- Height = 16
- Align = alClient
- Alignment = taLeftJustify
- BevelOuter = bvLowered
- BorderWidth = 2
- TabOrder = 0
- end
- object TPanel
- Left = 321
- Top = 3
- Width = 211
- Height = 16
- Align = alRight
- BevelOuter = bvNone
- TabOrder = 1
- object Label1: TLabel
- Left = 16
- Top = 1
- Width = 40
- Height = 13
- Alignment = taRightJustify
- Caption = 'Files:'
- end
- object Label2: TLabel
- Left = 123
- Top = 1
- Width = 35
- Height = 13
- Alignment = taRightJustify
- Caption = 'Folders:'
- end
- object FilesPNL: TPanel
- Left = 57
- Top = 0
- Width = 51
- Height = 16
- Alignment = taRightJustify
- BevelOuter = bvLowered
- BorderWidth = 2
- TabOrder = 0
- end
- object DirsPNL: TPanel
- Left = 159
- Top = 0
- Width = 47
- Height = 16
- Alignment = taRightJustify
- BevelOuter = bvLowered
- BorderWidth = 2
- TabOrder = 1
- end
- end
- end
- object TwoWaySplitter2: TTwoWaySplitter [2]
- Left = 0
- Top = 0
- Width = 535
- Height = 355
- Align = alClient
- BevelOuter = bvNone
- DragCursor = crVSplit
- SplitDirection = sdHorizontal
- object Panel1: TPanel
- Left = 0
- Top = 0
- Width = 535
- Height = 176
- BevelOuter = bvNone
- Caption = 'Panel1'
- TabOrder = 0
- object Panel3: TPanel
- Left = 0
- Top = 0
- Width = 535
- Height = 24
- Align = alTop
- TabOrder = 0
- object Label5: TLabel
- Left = 5
- Top = 6
- Width = 206
- Height = 13
- Caption = 'Folders/drives to search through'
- end
- end
- object MasterView: TListView
- Left = 0
- Top = 24
- Width = 414
- Height = 152
- Align = alClient
- Columns = <
- item
- Caption = 'Folder'
- Width = 180
- end
- item
- Caption = 'recurse'
- Width = 49
- WidthType = (
- -2)
- end
- item
- Caption = 'Searchmask'
- Width = 100
- end
- item
- Caption = 'found'
- Width = 60
- end>
- ReadOnly = True
- HideSelection = False
- OnChange = MasterViewChange
- PopupMenu = MasterViewPOP
- TabOrder = 1
- ViewStyle = vsReport
- end
- object Panel9: TPanel
- Left = 414
- Top = 24
- Width = 121
- Height = 152
- Align = alRight
- TabOrder = 2
- object EditBTN: TButton
- Left = 10
- Top = 37
- Width = 103
- Height = 23
- Caption = '&Edit Entry'
- TabOrder = 0
- OnClick = EditBTNClick
- end
- object DeleteBTN: TButton
- Left = 10
- Top = 65
- Width = 103
- Height = 23
- Caption = '&Delete Entry'
- TabOrder = 1
- OnClick = DeleteBTNClick
- end
- object NewBTN: TButton
- Left = 10
- Top = 9
- Width = 103
- Height = 23
- Caption = '&New entry'
- TabOrder = 2
- OnClick = NewBTNClick
- end
- end
- end
- object Panel2: TPanel
- Left = 0
- Top = 181
- Width = 535
- Height = 174
- BevelOuter = bvNone
- Caption = 'Panel2'
- TabOrder = 1
- object DetailView: TListView
- Left = 0
- Top = 24
- Width = 535
- Height = 150
- Align = alClient
- Columns = <
- item
- Caption = 'File'
- Width = 200
- end
- item
- Caption = 'Size'
- Width = 130
- end
- item
- Caption = 'Date'
- Width = 60
- end
- item
- Caption = 'Attr.'
- Width = 65
- end>
- ReadOnly = True
- HideSelection = False
- MultiSelect = True
- OnColumnClick = DetailViewColumnClick
- PopupMenu = DetailViewPOP
- TabOrder = 0
- ViewStyle = vsReport
- OnKeyUp = DetailViewKeyUp
- end
- object Panel4: TPanel
- Left = 0
- Top = 0
- Width = 535
- Height = 24
- Align = alTop
- TabOrder = 1
- object Label4: TLabel
- Left = 5
- Top = 6
- Width = 291
- Height = 13
- Caption = 'Path of the found files (use right mouse-click to delete them)'
- end
- end
- end
- end
- inherited MinMax1: TMinMax
- MinWidth = 500
- MinHeight = 350
- end
- inherited MSOfficeCaption1: TMSOfficeCaption
- CaptionText.Caption = 'Find and delete temporary files'
- end
- object DetailViewPOP: TPopupMenu
- Left = 233
- Top = 263
- object DeleteMNU: TMenuItem
- Caption = '&Delete'
- OnClick = DeleteMNUClick
- end
- object SelectAllMNU: TMenuItem
- Caption = 'Select &all'
- OnClick = SelectAllMNUClick
- end
- end
- object MasterViewPOP: TPopupMenu
- OnPopup = MasterViewPOPPopup
- Left = 372
- Top = 99
- object MasterNewMNU: TMenuItem
- Caption = '&New'
- OnClick = NewBTNClick
- end
- object MasterEditMNU: TMenuItem
- Caption = '&Edit'
- OnClick = EditBTNClick
- end
- object MasterDeleteMNU: TMenuItem
- Caption = '&Delete'
- OnClick = DeleteBTNClick
- end
- end
- end
-