mirrors/doublecmd
2
0
Fork 0
mirror of https://github.com/doublecmd/doublecmd.git synced 2026-06-21 09:58:13 +00:00
Code Issues Projects Releases Packages Wiki Activity

Enter in Find files working under Linux

Browse source
This commit is contained in:
meteu 2016-04-26 07:10:28 +00:00
commit 906fd470ca
13 changed files with 195 additions and 182 deletions
Download patch file Download diff file Expand all files Collapse all files

8
src/doublecmd.lpi
View file

@ -269,7 +269,7 @@ end;"/>
<MinVersion Minor="3" Valid="True"/>
</Item11>
</RequiredPackages>
<Units Count="231">
<Units Count="232">
<Unit0>
<Filename Value="doublecmd.lpr"/>
<IsPartOfProject Value="True"/>
@ -1259,6 +1259,7 @@ end;"/>
<Unit160>
<Filename Value="filesources\multiarchive\umultiarchiveutil.pas"/>
<IsPartOfProject Value="True"/>
<UnitName Value="uMultiArchiveUtil"/>
</Unit160>
<Unit161>
<Filename Value="filesources\multilist\umultilistfilesource.pas"/>
@ -1645,6 +1646,11 @@ end;"/>
<ResourceBaseClass Value="Frame"/>
<UnitName Value="fOptionsTreeViewMenuColor"/>
</Unit230>
<Unit231>
<Filename Value="uglobs.pas"/>
<IsPartOfProject Value="True"/>
<UnitName Value="uGlobs"/>
</Unit231>
</Units>
</ProjectOptions>
<CompilerOptions>

344
src/fFindDlg.lfm
View file

@ -34,7 +34,7 @@ object frmFindDlg: TfrmFindDlg
Left = 0
Height = 391
Top = 0
Width = 760
Width = 753
ActivePage = tsStandard
Align = alClient
TabIndex = 0
@ -44,8 +44,8 @@ object frmFindDlg: TfrmFindDlg
Caption = 'Standard'
ChildSizing.LeftRightSpacing = 3
ChildSizing.TopBottomSpacing = 3
ClientHeight = 363
ClientWidth = 752
ClientHeight = 360
ClientWidth = 749
OnEnter = tsStandardEnter
object gbDirectories: TGroupBox
AnchorSideLeft.Control = tsStandard
@ -53,15 +53,15 @@ object frmFindDlg: TfrmFindDlg
AnchorSideRight.Control = tsStandard
AnchorSideRight.Side = asrBottom
Left = 3
Height = 116
Height = 124
Top = 3
Width = 746
Width = 743
Anchors = [akTop, akLeft, akRight]
AutoSize = True
Caption = 'Directories'
ChildSizing.LeftRightSpacing = 5
ClientHeight = 96
ClientWidth = 742
ClientHeight = 105
ClientWidth = 739
TabOrder = 0
OnResize = gbDirectoriesResize
object lblFindPathStart: TLabel
@ -69,9 +69,9 @@ object frmFindDlg: TfrmFindDlg
AnchorSideBottom.Control = cbFollowSymLinks
AnchorSideBottom.Side = asrBottom
Left = 5
Height = 15
Top = 4
Width = 87
Height = 17
Top = 7
Width = 114
Anchors = [akLeft, akBottom]
Caption = 'Start in &directory'
FocusControl = edtFindPathStart
@ -81,10 +81,10 @@ object frmFindDlg: TfrmFindDlg
AnchorSideTop.Control = gbDirectories
AnchorSideRight.Control = gbDirectories
AnchorSideRight.Side = asrBottom
Left = 633
Height = 19
Left = 602
Height = 24
Top = 0
Width = 104
Width = 132
Anchors = [akTop, akRight]
Caption = 'Follow s&ymlinks'
TabOrder = 0
@ -95,9 +95,9 @@ object frmFindDlg: TfrmFindDlg
AnchorSideTop.Side = asrBottom
AnchorSideRight.Side = asrBottom
Left = 5
Height = 23
Top = 19
Width = 706
Height = 27
Top = 24
Width = 703
ShowHidden = False
ButtonWidth = 23
NumGlyphs = 1
@ -110,9 +110,9 @@ object frmFindDlg: TfrmFindDlg
AnchorSideTop.Control = edtFindPathStart
AnchorSideTop.Side = asrBottom
Left = 5
Height = 15
Top = 45
Width = 117
Height = 17
Top = 54
Width = 153
BorderSpacing.Top = 3
Caption = 'E&xclude subdirectories'
FocusControl = cmbExcludeDirectories
@ -124,14 +124,14 @@ object frmFindDlg: TfrmFindDlg
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = pnlDirectoriesDepth
Left = 5
Height = 23
Height = 29
Hint = 'Enter directories names that should be excluded from search separated with ";"'
Top = 60
Width = 527
Top = 71
Width = 524
Anchors = [akTop, akLeft, akRight]
BorderSpacing.Right = 5
BorderSpacing.Bottom = 5
ItemHeight = 15
ItemHeight = 0
ParentShowHint = False
ShowHint = True
TabOrder = 2
@ -140,9 +140,9 @@ object frmFindDlg: TfrmFindDlg
AnchorSideTop.Control = lblExcludeDirectories
AnchorSideRight.Control = gbDirectories
AnchorSideRight.Side = asrBottom
Left = 537
Left = 534
Height = 51
Top = 45
Top = 54
Width = 200
Anchors = [akTop, akRight]
BevelOuter = bvNone
@ -154,7 +154,7 @@ object frmFindDlg: TfrmFindDlg
TabOrder = 3
object lblSearchDepth: TLabel
Left = 0
Height = 15
Height = 17
Top = 0
Width = 200
Caption = 'Search su&bdirectories:'
@ -163,10 +163,10 @@ object frmFindDlg: TfrmFindDlg
end
object cmbSearchDepth: TComboBox
Left = 0
Height = 23
Top = 15
Height = 31
Top = 17
Width = 200
ItemHeight = 15
ItemHeight = 0
Style = csDropDownList
TabOrder = 0
end
@ -176,10 +176,10 @@ object frmFindDlg: TfrmFindDlg
AnchorSideRight.Control = cbFollowSymLinks
AnchorSideBottom.Control = cbFollowSymLinks
AnchorSideBottom.Side = asrBottom
Left = 458
Height = 19
Left = 376
Height = 24
Top = 0
Width = 169
Width = 220
Anchors = [akRight, akBottom]
BorderSpacing.Right = 6
Caption = 'Selected directories and &files'
@ -190,10 +190,10 @@ object frmFindDlg: TfrmFindDlg
AnchorSideRight.Control = cbSelectedFiles
AnchorSideBottom.Control = cbSelectedFiles
AnchorSideBottom.Side = asrBottom
Left = 365
Height = 19
Left = 258
Height = 24
Top = 0
Width = 87
Width = 112
Anchors = [akRight, akBottom]
BorderSpacing.Right = 6
Caption = 'Opened tabs'
@ -208,24 +208,24 @@ object frmFindDlg: TfrmFindDlg
AnchorSideRight.Control = tsStandard
AnchorSideRight.Side = asrBottom
Left = 3
Height = 108
Top = 119
Width = 746
Height = 126
Top = 127
Width = 743
Anchors = [akTop, akLeft, akRight]
AutoSize = True
Caption = 'Files'
ChildSizing.LeftRightSpacing = 5
ClientHeight = 88
ClientWidth = 742
ClientHeight = 107
ClientWidth = 739
TabOrder = 1
object lblFindFileMask: TLabel
AnchorSideLeft.Control = gbFiles
AnchorSideBottom.Control = cbPartialNameSearch
AnchorSideBottom.Side = asrBottom
Left = 5
Height = 15
Top = 4
Width = 51
Height = 17
Top = 7
Width = 67
Anchors = [akLeft, akBottom]
Caption = '&File mask'
FocusControl = cmbFindFileMask
@ -240,12 +240,12 @@ object frmFindDlg: TfrmFindDlg
AnchorSideRight.Control = gbFiles
AnchorSideRight.Side = asrBottom
Left = 5
Height = 23
Height = 29
Hint = 'Enter files names separated with ";"'
Top = 19
Width = 732
Top = 24
Width = 729
Anchors = [akTop, akLeft, akRight]
ItemHeight = 15
ItemHeight = 0
ParentShowHint = False
ShowHint = True
TabOrder = 0
@ -256,9 +256,9 @@ object frmFindDlg: TfrmFindDlg
AnchorSideTop.Control = cmbFindFileMask
AnchorSideTop.Side = asrBottom
Left = 5
Height = 15
Top = 45
Width = 64
Height = 17
Top = 56
Width = 83
BorderSpacing.Top = 3
Caption = '&Exclude files'
FocusControl = cmbExcludeFiles
@ -271,13 +271,13 @@ object frmFindDlg: TfrmFindDlg
AnchorSideRight.Control = gbFiles
AnchorSideRight.Side = asrBottom
Left = 5
Height = 23
Height = 29
Hint = 'Enter files names that should be excluded from search separated with ";"'
Top = 60
Width = 732
Top = 73
Width = 729
Anchors = [akTop, akLeft, akRight]
BorderSpacing.Bottom = 5
ItemHeight = 15
ItemHeight = 0
ParentShowHint = False
ShowHint = True
TabOrder = 1
@ -286,10 +286,10 @@ object frmFindDlg: TfrmFindDlg
AnchorSideRight.Control = cbRegExp
AnchorSideBottom.Control = cbRegExp
AnchorSideBottom.Side = asrBottom
Left = 450
Height = 19
Left = 364
Height = 24
Top = 0
Width = 163
Width = 209
Anchors = [akRight, akBottom]
BorderSpacing.Right = 6
Caption = 'Searc&h for part of file name'
@ -302,10 +302,10 @@ object frmFindDlg: TfrmFindDlg
AnchorSideTop.Control = gbFiles
AnchorSideRight.Control = gbFiles
AnchorSideRight.Side = asrBottom
Left = 619
Height = 19
Left = 579
Height = 24
Top = 0
Width = 118
Width = 155
Anchors = [akTop, akRight]
Caption = '&Regular expression'
OnChange = cbRegExpChange
@ -315,10 +315,10 @@ object frmFindDlg: TfrmFindDlg
AnchorSideRight.Control = cbPartialNameSearch
AnchorSideBottom.Control = cbPartialNameSearch
AnchorSideBottom.Side = asrBottom
Left = 330
Height = 19
Left = 214
Height = 24
Top = 0
Width = 114
Width = 144
Anchors = [akRight, akBottom]
BorderSpacing.Right = 6
Caption = 'Search in &archives'
@ -333,15 +333,15 @@ object frmFindDlg: TfrmFindDlg
AnchorSideRight.Control = tsStandard
AnchorSideRight.Side = asrBottom
Left = 3
Height = 123
Top = 227
Width = 746
Height = 147
Top = 253
Width = 743
Anchors = [akTop, akLeft, akRight]
AutoSize = True
Caption = 'Find Data'
ChildSizing.TopBottomSpacing = 2
ClientHeight = 103
ClientWidth = 742
ClientHeight = 128
ClientWidth = 739
TabOrder = 2
object lblEncoding: TLabel
AnchorSideLeft.Control = gbFindData
@ -350,9 +350,9 @@ object frmFindDlg: TfrmFindDlg
AnchorSideRight.Control = CheksPanel
AnchorSideRight.Side = asrBottom
Left = 6
Height = 15
Top = 81
Width = 53
Height = 17
Top = 101
Width = 66
BorderSpacing.Left = 6
BorderSpacing.Top = 6
BorderSpacing.Right = 6
@ -365,10 +365,10 @@ object frmFindDlg: TfrmFindDlg
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = cbNotContainingText
AnchorSideTop.Side = asrCenter
Left = 239
Height = 19
Top = 55
Width = 93
Left = 291
Height = 24
Top = 67
Width = 120
BorderSpacing.Left = 36
BorderSpacing.Top = 4
BorderSpacing.Bottom = 8
@ -381,9 +381,9 @@ object frmFindDlg: TfrmFindDlg
AnchorSideTop.Control = cmbReplaceText
AnchorSideTop.Side = asrBottom
Left = 6
Height = 19
Top = 55
Width = 197
Height = 24
Top = 67
Width = 249
BorderSpacing.Top = 4
Caption = 'Find files N&OT containing the text'
TabOrder = 3
@ -392,13 +392,13 @@ object frmFindDlg: TfrmFindDlg
AnchorSideLeft.Control = cmbReplaceText
AnchorSideTop.Control = cbNotContainingText
AnchorSideTop.Side = asrBottom
Left = 112
Height = 23
Top = 77
Left = 140
Height = 31
Top = 94
Width = 100
BorderSpacing.Top = 3
BorderSpacing.Bottom = 3
ItemHeight = 15
ItemHeight = 0
OnSelect = cmbEncodingSelect
Style = csDropDownList
TabOrder = 6
@ -409,14 +409,14 @@ object frmFindDlg: TfrmFindDlg
AnchorSideTop.Control = gbFindData
AnchorSideRight.Control = gbFindData
AnchorSideRight.Side = asrBottom
Left = 112
Height = 23
Left = 140
Height = 29
Top = 2
Width = 627
Width = 596
Anchors = [akTop, akLeft, akRight]
BorderSpacing.Left = 3
BorderSpacing.Right = 3
ItemHeight = 15
ItemHeight = 0
TabOrder = 1
end
object cmbReplaceText: TComboBoxWithDelItems
@ -425,14 +425,14 @@ object frmFindDlg: TfrmFindDlg
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = gbFindData
AnchorSideRight.Side = asrBottom
Left = 112
Height = 23
Top = 28
Width = 627
Left = 140
Height = 29
Top = 34
Width = 596
Anchors = [akTop, akLeft, akRight]
BorderSpacing.Top = 3
BorderSpacing.Right = 3
ItemHeight = 15
ItemHeight = 0
TabOrder = 2
end
object CheksPanel: TPanel
@ -441,23 +441,23 @@ object frmFindDlg: TfrmFindDlg
AnchorSideBottom.Control = cmbReplaceText
AnchorSideBottom.Side = asrBottom
Left = 0
Height = 49
Height = 61
Top = 2
Width = 109
Width = 137
Anchors = [akTop, akLeft, akBottom]
AutoSize = True
BevelOuter = bvNone
ClientHeight = 49
ClientWidth = 109
ClientHeight = 61
ClientWidth = 137
TabOrder = 0
object cbFindText: TCheckBox
AnchorSideLeft.Control = CheksPanel
AnchorSideTop.Control = CheksPanel
AnchorSideRight.Side = asrBottom
Left = 6
Height = 19
Height = 24
Top = 2
Width = 97
Width = 125
BorderSpacing.Left = 6
BorderSpacing.Top = 2
BorderSpacing.Right = 6
@ -472,9 +472,9 @@ object frmFindDlg: TfrmFindDlg
AnchorSideBottom.Control = CheksPanel
AnchorSideBottom.Side = asrBottom
Left = 6
Height = 19
Top = 28
Width = 77
Height = 24
Top = 35
Width = 98
Anchors = [akLeft, akBottom]
BorderSpacing.Left = 6
BorderSpacing.Top = 6
@ -489,10 +489,10 @@ object frmFindDlg: TfrmFindDlg
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = cbCaseSens
AnchorSideTop.Side = asrCenter
Left = 344
Height = 19
Top = 55
Width = 118
Left = 423
Height = 24
Top = 67
Width = 155
BorderSpacing.Left = 12
Caption = 'Regular &expression'
OnChange = cbTextRegExpChange
@ -504,8 +504,8 @@ object frmFindDlg: TfrmFindDlg
Caption = 'Advanced'
ChildSizing.LeftRightSpacing = 3
ChildSizing.TopBottomSpacing = 3
ClientHeight = 363
ClientWidth = 716
ClientHeight = 360
ClientWidth = 749
ImageIndex = 1
object cbDateFrom: TCheckBox
AnchorSideLeft.Control = tsAdvanced
@ -564,7 +564,7 @@ object frmFindDlg: TfrmFindDlg
Width = 83
Anchors = [akTop, akLeft, akRight]
Enabled = False
ItemHeight = 15
ItemHeight = 0
Style = csDropDownList
TabOrder = 2
end
@ -651,7 +651,7 @@ object frmFindDlg: TfrmFindDlg
Width = 160
Anchors = [akTop, akLeft, akRight]
Enabled = False
ItemHeight = 15
ItemHeight = 0
Style = csDropDownList
TabOrder = 7
end
@ -888,8 +888,8 @@ object frmFindDlg: TfrmFindDlg
Caption = 'Plugins'
ChildSizing.LeftRightSpacing = 3
ChildSizing.TopBottomSpacing = 3
ClientHeight = 363
ClientWidth = 716
ClientHeight = 360
ClientWidth = 749
object cbUsePlugin: TCheckBox
AnchorSideLeft.Control = tsPlugins
AnchorSideTop.Control = cmbPlugin
@ -916,7 +916,7 @@ object frmFindDlg: TfrmFindDlg
BorderSpacing.Left = 3
BorderSpacing.Top = 10
Enabled = False
ItemHeight = 15
ItemHeight = 0
TabOrder = 1
end
inline frmContentPlugins: TfrmSearchPlugin
@ -946,14 +946,16 @@ object frmFindDlg: TfrmFindDlg
inherited pnlButtons: TPanel
Top = 268
Width = 704
ClientWidth = 704
ClientHeight = 46
ClientWidth = 700
end
inherited HeaderControl: THeaderControl
Width = 704
end
inherited pnlHeader: TPanel
Width = 704
ClientWidth = 704
ClientHeight = 27
ClientWidth = 700
inherited chkUsePlugins: TCheckBox
Width = 300
end
@ -972,8 +974,8 @@ object frmFindDlg: TfrmFindDlg
Caption = 'Load/Save'
ChildSizing.LeftRightSpacing = 3
ChildSizing.TopBottomSpacing = 3
ClientHeight = 363
ClientWidth = 716
ClientHeight = 360
ClientWidth = 749
OnShow = tsLoadSaveShow
object lblTemplateHeader: TLabel
Left = 3
@ -1000,8 +1002,9 @@ object frmFindDlg: TfrmFindDlg
ItemHeight = 0
OnDblClick = lbSearchTemplatesDblClick
OnSelectionChange = lbSearchTemplatesSelectionChange
ScrollWidth = 713
ScrollWidth = 708
TabOrder = 2
TopIndex = -1
end
object lblSearchContents: TPanel
Left = 3
@ -1103,30 +1106,30 @@ object frmFindDlg: TfrmFindDlg
Caption = 'Results'
ChildSizing.LeftRightSpacing = 3
ChildSizing.TopBottomSpacing = 3
ClientHeight = 363
ClientWidth = 716
ClientHeight = 360
ClientWidth = 749
object pnlResults: TPanel
AnchorSideTop.Control = pnlFindFile
Left = 3
Height = 357
Height = 354
Top = 3
Width = 710
Width = 743
Align = alClient
BevelOuter = bvNone
ClientHeight = 357
ClientWidth = 710
ClientHeight = 354
ClientWidth = 743
FullRepaint = False
TabOrder = 0
object pnlStatus: TPanel
Left = 0
Height = 8
Top = 0
Width = 710
Width = 743
Align = alTop
AutoSize = True
BevelOuter = bvNone
ClientHeight = 8
ClientWidth = 710
ClientWidth = 743
FullRepaint = False
TabOrder = 0
object lblStatus: TLabel
@ -1159,7 +1162,7 @@ object frmFindDlg: TfrmFindDlg
AnchorSideTop.Side = asrCenter
AnchorSideRight.Control = pnlStatus
AnchorSideRight.Side = asrBottom
Left = 706
Left = 739
Height = 1
Top = 7
Width = 1
@ -1171,9 +1174,9 @@ object frmFindDlg: TfrmFindDlg
end
object lsFoundedFiles: TListBox
Left = 3
Height = 307
Height = 300
Top = 11
Width = 704
Width = 737
Align = alClient
BorderSpacing.Around = 3
ItemHeight = 0
@ -1184,38 +1187,39 @@ object frmFindDlg: TfrmFindDlg
OnMouseUp = lsFoundedFilesMouseUp
OnMouseWheelDown = lsFoundedFilesMouseWheelDown
OnMouseWheelUp = lsFoundedFilesMouseWheelUp
ScrollWidth = 707
ScrollWidth = 735
TabOrder = 1
TopIndex = -1
end
object pnlResultsBottom: TPanel
Left = 3
Height = 33
Top = 321
Width = 704
Height = 37
Top = 314
Width = 737
Align = alBottom
AutoSize = True
BorderSpacing.Around = 3
BevelOuter = bvNone
ClientHeight = 33
ClientWidth = 704
ClientHeight = 37
ClientWidth = 737
TabOrder = 2
object pnlResultsBottomButtons: TPanel
Left = 390
Height = 33
Left = 423
Height = 37
Top = 0
Width = 314
Align = alRight
AutoSize = True
BevelOuter = bvNone
ClientHeight = 33
ClientHeight = 37
ClientWidth = 314
TabOrder = 0
object btnWorkWithFound: TButton
AnchorSideLeft.Side = asrBottom
Left = 204
Height = 33
Left = 193
Height = 37
Top = 0
Width = 110
Width = 121
Align = alRight
AutoSize = True
BorderSpacing.InnerBorder = 4
@ -1225,10 +1229,10 @@ object frmFindDlg: TfrmFindDlg
TabOrder = 0
end
object btnGoToPath: TButton
Left = 119
Height = 33
Left = 109
Height = 37
Top = 0
Width = 82
Width = 81
Align = alRight
AutoSize = True
BorderSpacing.Left = 3
@ -1241,9 +1245,9 @@ object frmFindDlg: TfrmFindDlg
end
object btnView: TButton
Left = 0
Height = 33
Height = 37
Top = 0
Width = 59
Width = 53
Align = alRight
AutoSize = True
BorderSpacing.Right = 3
@ -1254,10 +1258,10 @@ object frmFindDlg: TfrmFindDlg
TabOrder = 1
end
object btnEdit: TButton
Left = 62
Height = 33
Left = 56
Height = 37
Top = 0
Width = 54
Width = 50
Align = alRight
AutoSize = True
BorderSpacing.Right = 3
@ -1273,10 +1277,10 @@ object frmFindDlg: TfrmFindDlg
end
end
object pnlButtons: TPanel
Left = 766
Left = 759
Height = 351
Top = 40
Width = 103
Width = 110
Align = alRight
Anchors = [akTop, akRight]
AutoSize = True
@ -1289,14 +1293,14 @@ object frmFindDlg: TfrmFindDlg
ChildSizing.Layout = cclLeftToRightThenTopToBottom
ChildSizing.ControlsPerLine = 1
ClientHeight = 351
ClientWidth = 103
ClientWidth = 110
Constraints.MinWidth = 100
TabOrder = 1
object btnUseTemplate: TButton
Left = 0
Height = 33
Height = 37
Top = 0
Width = 103
Width = 110
AutoSize = True
BorderSpacing.InnerBorder = 4
Caption = 'Use template'
@ -1308,9 +1312,9 @@ object frmFindDlg: TfrmFindDlg
object btnSaveTemplate: TButton
AnchorSideBottom.Side = asrBottom
Left = 0
Height = 33
Top = 39
Width = 103
Height = 37
Top = 43
Width = 110
AutoSize = True
BorderSpacing.InnerBorder = 4
Caption = '&Save'
@ -1322,9 +1326,9 @@ object frmFindDlg: TfrmFindDlg
end
object btnStart: TButton
Left = 0
Height = 33
Top = 78
Width = 103
Height = 37
Top = 86
Width = 110
AutoSize = True
BorderSpacing.InnerBorder = 4
Caption = '&Start'
@ -1334,9 +1338,9 @@ object frmFindDlg: TfrmFindDlg
end
object btnStop: TButton
Left = 0
Height = 33
Top = 117
Width = 103
Height = 37
Top = 129
Width = 110
AutoSize = True
BorderSpacing.InnerBorder = 4
Caption = 'C&ancel'
@ -1347,9 +1351,9 @@ object frmFindDlg: TfrmFindDlg
end
object btnClose: TButton
Left = 0
Height = 33
Top = 156
Width = 103
Height = 37
Top = 172
Width = 110
AutoSize = True
BorderSpacing.InnerBorder = 4
Caption = '&Close'
@ -1359,9 +1363,9 @@ object frmFindDlg: TfrmFindDlg
end
object btnNewSearch: TButton
Left = 0
Height = 33
Top = 219
Width = 103
Height = 37
Top = 239
Width = 110
AutoSize = True
BorderSpacing.Top = 30
BorderSpacing.InnerBorder = 4
@ -1372,9 +1376,9 @@ object frmFindDlg: TfrmFindDlg
end
object btnLastSearch: TButton
Left = 0
Height = 33
Top = 258
Width = 103
Height = 37
Top = 282
Width = 110
AutoSize = True
BorderSpacing.InnerBorder = 4
Caption = '&Last search'

3
src/fFindDlg.pas
View file

@ -1401,6 +1401,9 @@ end;
procedure TfrmFindDlg.cm_Start(const Params: array of string);
begin
btnStop.Click;
Self.Repaint;
Application.ProcessMessages;
btnStart.Click;
end;

2
src/ffileproperties.pas
View file

@ -30,7 +30,7 @@ unit fFileProperties;
interface
uses
LResources, SysUtils, Classes, Graphics, Forms, StdCtrls, Buttons, ComCtrls,
LazUtf8,LResources, SysUtils, Classes, Graphics, Forms, StdCtrls, Buttons, ComCtrls,
Dialogs, Controls, ExtCtrls, DCBasicTypes, uFile, uFileProperty, uFileSource,
uFileSourceOperation, uFileSourceCalcStatisticsOperation;

2
src/filesources/filesystem/ufilesystemsetfilepropertyoperation.pas
View file

@ -5,7 +5,7 @@ unit uFileSystemSetFilePropertyOperation;
interface
uses
Classes, SysUtils,
LazUtf8,Classes, SysUtils,
uFileSourceSetFilePropertyOperation,
uFileSource,
uFileSourceOperationOptions,

2
src/filesources/multiarchive/umultiarchivecopyoutoperation.pas
View file

@ -5,7 +5,7 @@ unit uMultiArchiveCopyOutOperation;
interface
uses
Classes, SysUtils, StringHashList, uLog, uGlobs, un_process,
LazFileUtils,LazUtf8,Classes, SysUtils, StringHashList, uLog, uGlobs, un_process,
uFileSourceOperation,
uFileSourceCopyOperation,
uFileSourceOperationOptions,

2
src/filesources/multiarchive/umultiarchiveutil.pas
View file

@ -7,7 +7,7 @@ unit uMultiArchiveUtil;
interface
uses
Classes, SysUtils, uMultiArc, un_process, uFile, DCBasicTypes;
LazUtf8,Classes, SysUtils, uMultiArc, un_process, uFile, DCBasicTypes;
const
MAF_UNIX_PATH = 1; // Use Unix path delimiter (/)

2
src/filesources/wcxarchive/uwcxarchivecopyoutoperation.pas
View file

@ -6,7 +6,7 @@ unit uWcxArchiveCopyOutOperation;
interface
uses
Classes, SysUtils, StringHashList, WcxPlugin, uLog, uGlobs,
Classes, LazFileUtils,SysUtils, StringHashList, WcxPlugin, uLog, uGlobs,
uFileSourceCopyOperation,
uFileSource,
uFileSourceOperation,

2
src/fmultirename.pas
View file

@ -18,7 +18,7 @@ unit fMultiRename;
interface
uses
SysUtils, Classes, Graphics, Forms, StdCtrls, Menus, SynRegExpr, Controls, LCLType,
LazUtf8,SysUtils, Classes, Graphics, Forms, StdCtrls, Menus, SynRegExpr, Controls, LCLType,
DCClassesUtf8, uClassesEx, uFile, uFileSource, StringHashList, Grids, ExtCtrls,
DCXmlConfig, uOSForms;

2
src/platform/ufindex.pas
View file

@ -29,7 +29,7 @@ interface
uses
SysUtils, DCBasicTypes
{$IFDEF UNIX}
, BaseUnix, uMasks
, BaseUnix, uMasks, LazUtf8
{$ENDIF}
{$IFDEF MSWINDOWS}
, Windows

2
src/platform/utarwriter.pas
View file

@ -29,7 +29,7 @@ unit uTarWriter;
interface
uses
Classes, SysUtils,
Classes, SysUtils,LazUtf8,
uGlobs, uWcxModule, WcxPlugin, DCClassesUtf8,
uFile,
uFileSource,

2
src/platform/utrash.pas
View file

@ -27,7 +27,7 @@ unit uTrash;
interface
uses
Classes, SysUtils;
LazUtf8,Classes, SysUtils;
// 30.04.2009 - this function move files and folders to trash can.
function mbDeleteToTrash(const FileName: String): Boolean;

4
src/uglobs.pas
View file

@ -1004,8 +1004,8 @@ begin
HMForm := HotMan.Forms.FindOrCreate('Find Files');
with HMForm.Hotkeys do
begin
AddIfNotExists(['F7'],[],'cm_IntelliFocus'); // F7
// AddIfNotExists(['Ctrl+F'],[],'cm_Start');
AddIfNotExists(['F7'],[],'cm_IntelliFocus');
AddIfNotExists(['Enter'],[],'cm_Start');
AddIfNotExists(['Esc'],[],'cm_CancelClose');
// AddIfNotExists(['Esc'],[],'cm_Close');
AddIfNotExists(['Ctrl+N'],[],'cm_NewSearch');