You've already forked lazarus-ccr
345 lines
6.9 KiB
Plaintext
345 lines
6.9 KiB
Plaintext
|
object FrmCleanLibrary: TFrmCleanLibrary
|
||
|
|
Left = 360
|
||
|
|
Height = 305
|
||
|
|
Top = 199
|
||
|
|
Width = 475
|
||
|
|
Caption = 'FrmCleanLibrary'
|
||
|
|
ClientHeight = 305
|
||
|
|
ClientWidth = 475
|
||
|
|
FormStyle = fsStayOnTop
|
||
|
|
OnCreate = FormCreate
|
||
|
|
OnDestroy = FormDestroy
|
||
|
|
LCLVersion = '0.9.25'
|
||
|
|
object Panel1: TPanel
|
||
|
|
Height = 312
|
||
|
|
Top = -8
|
||
|
|
Width = 472
|
||
|
|
BevelOuter = bvNone
|
||
|
|
ClientHeight = 312
|
||
|
|
ClientWidth = 472
|
||
|
|
TabOrder = 0
|
||
|
|
object Label1: TLabel
|
||
|
|
Left = 8
|
||
|
|
Height = 19
|
||
|
|
Top = 16
|
||
|
|
Width = 65
|
||
|
|
Caption = 'Search in:'
|
||
|
|
ParentColor = False
|
||
|
|
end
|
||
|
|
object Label2: TLabel
|
||
|
|
Left = 8
|
||
|
|
Height = 19
|
||
|
|
Top = 152
|
||
|
|
Width = 313
|
||
|
|
Caption = 'do not remove files with the following extensions:'
|
||
|
|
ParentColor = False
|
||
|
|
end
|
||
|
|
object btnReset: TButton
|
||
|
|
Left = 384
|
||
|
|
Height = 25
|
||
|
|
Top = 88
|
||
|
|
Width = 75
|
||
|
|
Caption = 'R&eset'
|
||
|
|
OnClick = btnResetClick
|
||
|
|
TabOrder = 3
|
||
|
|
end
|
||
|
|
object btnRemove: TButton
|
||
|
|
Left = 384
|
||
|
|
Height = 25
|
||
|
|
Top = 56
|
||
|
|
Width = 75
|
||
|
|
Caption = '&Remove'
|
||
|
|
OnClick = btnRemoveClick
|
||
|
|
TabOrder = 2
|
||
|
|
end
|
||
|
|
object dirlistview: TListBox
|
||
|
|
Left = 8
|
||
|
|
Height = 96
|
||
|
|
Top = 40
|
||
|
|
Width = 368
|
||
|
|
OnClick = dirlistviewClick
|
||
|
|
Sorted = True
|
||
|
|
TabOrder = 1
|
||
|
|
TopIndex = -1
|
||
|
|
end
|
||
|
|
object txtNotToRemove: TEdit
|
||
|
|
Left = 8
|
||
|
|
Height = 23
|
||
|
|
Top = 176
|
||
|
|
Width = 368
|
||
|
|
TabOrder = 4
|
||
|
|
Text = 'wav mp3 ogg'
|
||
|
|
end
|
||
|
|
object chkFolders: TCheckBox
|
||
|
|
Left = 8
|
||
|
|
Height = 19
|
||
|
|
Top = 216
|
||
|
|
Width = 161
|
||
|
|
Caption = 'remove empty &folders'
|
||
|
|
Checked = True
|
||
|
|
State = cbChecked
|
||
|
|
TabOrder = 5
|
||
|
|
end
|
||
|
|
object btnDisplay: TButton
|
||
|
|
Left = 232
|
||
|
|
Height = 25
|
||
|
|
Top = 256
|
||
|
|
Width = 112
|
||
|
|
Caption = '&Display Files'
|
||
|
|
Default = True
|
||
|
|
OnClick = btnDisplayClick
|
||
|
|
TabOrder = 0
|
||
|
|
end
|
||
|
|
object btnBack: TButton
|
||
|
|
Left = 104
|
||
|
|
Height = 25
|
||
|
|
Top = 256
|
||
|
|
Width = 112
|
||
|
|
Cancel = True
|
||
|
|
Caption = '&Back'
|
||
|
|
OnClick = btnBackClick
|
||
|
|
TabOrder = 6
|
||
|
|
end
|
||
|
|
end
|
||
|
|
object Panel2: TPanel
|
||
|
|
Height = 304
|
||
|
|
Width = 472
|
||
|
|
BevelOuter = bvNone
|
||
|
|
Caption = 'Panel2'
|
||
|
|
ClientHeight = 304
|
||
|
|
ClientWidth = 472
|
||
|
|
TabOrder = 1
|
||
|
|
Visible = False
|
||
|
|
object Label3: TLabel
|
||
|
|
Left = 10
|
||
|
|
Height = 19
|
||
|
|
Top = 8
|
||
|
|
Width = 173
|
||
|
|
Caption = 'files && folders to remove:'
|
||
|
|
ParentColor = False
|
||
|
|
end
|
||
|
|
object lstRemove: TListBox
|
||
|
|
Left = 8
|
||
|
|
Height = 232
|
||
|
|
Top = 24
|
||
|
|
Width = 422
|
||
|
|
OnClick = lstRemoveClick
|
||
|
|
TabOrder = 1
|
||
|
|
TopIndex = -1
|
||
|
|
end
|
||
|
|
object btnBack2: TButton
|
||
|
|
Left = 24
|
||
|
|
Height = 25
|
||
|
|
Top = 264
|
||
|
|
Width = 75
|
||
|
|
Caption = '&Back'
|
||
|
|
OnClick = btnBack2Click
|
||
|
|
TabOrder = 3
|
||
|
|
end
|
||
|
|
object btnUnselect: TButton
|
||
|
|
Left = 440
|
||
|
|
Height = 32
|
||
|
|
Top = 41
|
||
|
|
Width = 24
|
||
|
|
Caption = '-'
|
||
|
|
Font.Height = -16
|
||
|
|
Font.Name = 'Sans'
|
||
|
|
Font.Style = [fsBold]
|
||
|
|
OnClick = btnUnselectClick
|
||
|
|
TabOrder = 2
|
||
|
|
end
|
||
|
|
object btnRemoveFromDisk: TButton
|
||
|
|
Left = 256
|
||
|
|
Height = 25
|
||
|
|
Top = 264
|
||
|
|
Width = 160
|
||
|
|
Caption = '&Remove from disk'
|
||
|
|
Color = clRed
|
||
|
|
OnClick = btnRemoveFromDiskClick
|
||
|
|
TabOrder = 0
|
||
|
|
end
|
||
|
|
object pnlProgress: TPanel
|
||
|
|
Left = 136
|
||
|
|
Height = 32
|
||
|
|
Top = 112
|
||
|
|
Width = 160
|
||
|
|
BevelOuter = bvLowered
|
||
|
|
Caption = 'please wait...'
|
||
|
|
TabOrder = 4
|
||
|
|
Visible = False
|
||
|
|
end
|
||
|
|
end
|
||
|
|
end
|
||
|
|
object FrmCleanLibrary: TFrmCleanLibrary
|
||
|
|
Left = 360
|
||
|
|
Height = 305
|
||
|
|
Top = 199
|
||
|
|
Width = 475
|
||
|
|
Caption = 'FrmCleanLibrary'
|
||
|
|
ClientHeight = 305
|
||
|
|
ClientWidth = 475
|
||
|
|
FormStyle = fsStayOnTop
|
||
|
|
OnCreate = FormCreate
|
||
|
|
OnDestroy = FormDestroy
|
||
|
|
LCLVersion = '0.9.25'
|
||
|
|
object Panel1: TPanel
|
||
|
|
Height = 312
|
||
|
|
Top = -8
|
||
|
|
Width = 472
|
||
|
|
BevelOuter = bvNone
|
||
|
|
ClientHeight = 312
|
||
|
|
ClientWidth = 472
|
||
|
|
TabOrder = 0
|
||
|
|
object Label1: TLabel
|
||
|
|
Left = 8
|
||
|
|
Height = 19
|
||
|
|
Top = 16
|
||
|
|
Width = 65
|
||
|
|
Caption = 'Search in:'
|
||
|
|
ParentColor = False
|
||
|
|
end
|
||
|
|
object Label2: TLabel
|
||
|
|
Left = 8
|
||
|
|
Height = 19
|
||
|
|
Top = 152
|
||
|
|
Width = 313
|
||
|
|
Caption = 'do not remove files with the following extensions:'
|
||
|
|
ParentColor = False
|
||
|
|
end
|
||
|
|
object btnReset: TButton
|
||
|
|
Left = 384
|
||
|
|
Height = 25
|
||
|
|
Top = 88
|
||
|
|
Width = 75
|
||
|
|
Caption = 'R&eset'
|
||
|
|
OnClick = btnResetClick
|
||
|
|
TabOrder = 3
|
||
|
|
end
|
||
|
|
object btnRemove: TButton
|
||
|
|
Left = 384
|
||
|
|
Height = 25
|
||
|
|
Top = 56
|
||
|
|
Width = 75
|
||
|
|
Caption = '&Remove'
|
||
|
|
OnClick = btnRemoveClick
|
||
|
|
TabOrder = 2
|
||
|
|
end
|
||
|
|
object dirlistview: TListBox
|
||
|
|
Left = 8
|
||
|
|
Height = 96
|
||
|
|
Top = 40
|
||
|
|
Width = 368
|
||
|
|
OnClick = dirlistviewClick
|
||
|
|
Sorted = True
|
||
|
|
TabOrder = 1
|
||
|
|
TopIndex = -1
|
||
|
|
end
|
||
|
|
object txtNotToRemove: TEdit
|
||
|
|
Left = 8
|
||
|
|
Height = 23
|
||
|
|
Top = 176
|
||
|
|
Width = 368
|
||
|
|
TabOrder = 4
|
||
|
|
Text = 'wav mp3 ogg'
|
||
|
|
end
|
||
|
|
object chkFolders: TCheckBox
|
||
|
|
Left = 8
|
||
|
|
Height = 19
|
||
|
|
Top = 216
|
||
|
|
Width = 161
|
||
|
|
Caption = 'remove empty &folders'
|
||
|
|
Checked = True
|
||
|
|
State = cbChecked
|
||
|
|
TabOrder = 5
|
||
|
|
end
|
||
|
|
object btnDisplay: TButton
|
||
|
|
Left = 232
|
||
|
|
Height = 25
|
||
|
|
Top = 256
|
||
|
|
Width = 112
|
||
|
|
Caption = '&Display Files'
|
||
|
|
Default = True
|
||
|
|
OnClick = btnDisplayClick
|
||
|
|
TabOrder = 0
|
||
|
|
end
|
||
|
|
object btnBack: TButton
|
||
|
|
Left = 104
|
||
|
|
Height = 25
|
||
|
|
Top = 256
|
||
|
|
Width = 112
|
||
|
|
Cancel = True
|
||
|
|
Caption = '&Back'
|
||
|
|
OnClick = btnBackClick
|
||
|
|
TabOrder = 6
|
||
|
|
end
|
||
|
|
end
|
||
|
|
object Panel2: TPanel
|
||
|
|
Height = 304
|
||
|
|
Width = 472
|
||
|
|
BevelOuter = bvNone
|
||
|
|
Caption = 'Panel2'
|
||
|
|
ClientHeight = 304
|
||
|
|
ClientWidth = 472
|
||
|
|
TabOrder = 1
|
||
|
|
Visible = False
|
||
|
|
object Label3: TLabel
|
||
|
|
Left = 10
|
||
|
|
Height = 19
|
||
|
|
Top = 8
|
||
|
|
Width = 173
|
||
|
|
Caption = 'files && folders to remove:'
|
||
|
|
ParentColor = False
|
||
|
|
end
|
||
|
|
object lstRemove: TListBox
|
||
|
|
Left = 8
|
||
|
|
Height = 232
|
||
|
|
Top = 24
|
||
|
|
Width = 422
|
||
|
|
OnClick = lstRemoveClick
|
||
|
|
TabOrder = 1
|
||
|
|
TopIndex = -1
|
||
|
|
end
|
||
|
|
object btnBack2: TButton
|
||
|
|
Left = 24
|
||
|
|
Height = 25
|
||
|
|
Top = 264
|
||
|
|
Width = 75
|
||
|
|
Caption = '&Back'
|
||
|
|
OnClick = btnBack2Click
|
||
|
|
TabOrder = 3
|
||
|
|
end
|
||
|
|
object btnUnselect: TButton
|
||
|
|
Left = 440
|
||
|
|
Height = 32
|
||
|
|
Top = 41
|
||
|
|
Width = 24
|
||
|
|
Caption = '-'
|
||
|
|
Font.Height = -16
|
||
|
|
Font.Name = 'Sans'
|
||
|
|
Font.Style = [fsBold]
|
||
|
|
OnClick = btnUnselectClick
|
||
|
|
TabOrder = 2
|
||
|
|
end
|
||
|
|
object btnRemoveFromDisk: TButton
|
||
|
|
Left = 256
|
||
|
|
Height = 25
|
||
|
|
Top = 264
|
||
|
|
Width = 160
|
||
|
|
Caption = '&Remove from disk'
|
||
|
|
Color = clRed
|
||
|
|
OnClick = btnRemoveFromDiskClick
|
||
|
|
TabOrder = 0
|
||
|
|
end
|
||
|
|
object pnlProgress: TPanel
|
||
|
|
Left = 136
|
||
|
|
Height = 32
|
||
|
|
Top = 112
|
||
|
|
Width = 160
|
||
|
|
BevelOuter = bvLowered
|
||
|
|
Caption = 'please wait...'
|
||
|
|
TabOrder = 4
|
||
|
|
Visible = False
|
||
|
|
end
|
||
|
|
end
|
||
|
|
end
|