mirror of https://gitlab.com/basile.b/dexed.git
added search all to search & replace widget
This commit is contained in:
Basile Burg
parent
ce9779d416
commit
fc24add7e3
|
|
@ -1,20 +1,20 @@
|
|||
inherited CESearchWidget: TCESearchWidget
|
||||
Left = 1486
|
||||
Height = 243
|
||||
Top = 327
|
||||
Left = 742
|
||||
Height = 282
|
||||
Top = 278
|
||||
Width = 394
|
||||
Caption = 'Search & replace'
|
||||
ClientHeight = 243
|
||||
ClientHeight = 282
|
||||
ClientWidth = 394
|
||||
inherited Back: TPanel
|
||||
Height = 243
|
||||
Height = 282
|
||||
Width = 394
|
||||
ClientHeight = 243
|
||||
ClientHeight = 282
|
||||
ClientWidth = 394
|
||||
inherited Content: TPanel
|
||||
Height = 243
|
||||
Height = 282
|
||||
Width = 394
|
||||
ClientHeight = 243
|
||||
ClientHeight = 282
|
||||
ClientWidth = 394
|
||||
object cbToFind: TComboBox[0]
|
||||
Left = 4
|
||||
|
|
@ -32,7 +32,7 @@ inherited CESearchWidget: TCESearchWidget
|
|||
object btnFind: TBitBtn[1]
|
||||
Left = 4
|
||||
Height = 24
|
||||
Top = 159
|
||||
Top = 170
|
||||
Width = 386
|
||||
Align = alBottom
|
||||
BorderSpacing.Around = 4
|
||||
|
|
@ -78,7 +78,7 @@ inherited CESearchWidget: TCESearchWidget
|
|||
object btnReplace: TBitBtn[2]
|
||||
Left = 4
|
||||
Height = 24
|
||||
Top = 187
|
||||
Top = 226
|
||||
Width = 386
|
||||
Align = alBottom
|
||||
BorderSpacing.Around = 4
|
||||
|
|
@ -123,13 +123,13 @@ inherited CESearchWidget: TCESearchWidget
|
|||
end
|
||||
object grpOpts: TGroupBox[3]
|
||||
Left = 4
|
||||
Height = 97
|
||||
Height = 108
|
||||
Top = 58
|
||||
Width = 386
|
||||
Align = alClient
|
||||
BorderSpacing.Around = 4
|
||||
Caption = 'Options'
|
||||
ClientHeight = 67
|
||||
ClientHeight = 78
|
||||
ClientWidth = 382
|
||||
TabOrder = 4
|
||||
object chkWWord: TCheckBox
|
||||
|
|
@ -180,8 +180,8 @@ inherited CESearchWidget: TCESearchWidget
|
|||
Left = 128
|
||||
Height = 26
|
||||
Top = 48
|
||||
Width = 139
|
||||
Caption = 'regular expression'
|
||||
Width = 96
|
||||
Caption = 'allow regex'
|
||||
Checked = True
|
||||
State = cbChecked
|
||||
TabOrder = 5
|
||||
|
|
@ -190,7 +190,7 @@ inherited CESearchWidget: TCESearchWidget
|
|||
object btnReplaceAll: TBitBtn[4]
|
||||
Left = 4
|
||||
Height = 24
|
||||
Top = 215
|
||||
Top = 254
|
||||
Width = 386
|
||||
Align = alBottom
|
||||
BorderSpacing.Around = 4
|
||||
|
|
@ -267,6 +267,52 @@ inherited CESearchWidget: TCESearchWidget
|
|||
TabOrder = 0
|
||||
end
|
||||
end
|
||||
object btnFindAll: TBitBtn[6]
|
||||
Left = 4
|
||||
Height = 24
|
||||
Top = 198
|
||||
Width = 386
|
||||
Align = alBottom
|
||||
BorderSpacing.Around = 4
|
||||
Caption = 'btnFindAll'
|
||||
Glyph.Data = {
|
||||
36040000424D3604000000000000360000002800000010000000100000000100
|
||||
2000000000000004000064000000640000000000000000000000FFFFFF00FFFF
|
||||
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF003E39
|
||||
34FF393430FF332F2BFF2C2925FF272421FF201D1BFF1716141A110F0EDB0B0A
|
||||
09FF070706FF040403FF000000FF000000FFFFFFFF00FFFFFF00FFFFFF004641
|
||||
3BFF857A70FFC3B8AEFF7C7268FF7F756BFF36322DFF1E1C190F282522D49589
|
||||
7DFFBAAEA2FF7C7268FF7F756BFF010101FFFFFFFF00FFFFFF00FFFFFF004D47
|
||||
41FF83786FFFCCC3BAFF786F65FF7B7167FF2F2B28F9272421011D1B18EE9589
|
||||
7DFFC2B8ADFF786F65FF7C7268FF060505FFFFFFFF00FFFFFF00FFFFFF00534C
|
||||
46FC83786FFFCCC3BAFF797066FF71685FFF37332ED5FFFFFF00252220D5857A
|
||||
70FFC2B8ADFF786F65FF7B7167FF0A0908FCFFFFFF00FFFFFF00FFFFFF005A52
|
||||
4CC39F9286FFCCC3BAFFC0B4AAFFA6988BFF3E3934A8FFFFFF002C2925A89084
|
||||
79FFC2B8ADFFC0B4AAFFA89B8EFF110F0EC3FFFFFF00FFFFFF00797066055C55
|
||||
4EF9423D38FF58514AFF3D3833FF332F2BFF23201DE5171614301E1C19B51A18
|
||||
16FF252220FF191715FF0F0E0DFF010101EE00000002FFFFFF009F9286059D91
|
||||
85FFB1A396FF7F756BFF7C7268FF776D64FF6C635BFF2E2A26FF564F48FF8076
|
||||
6CFF7C7268FF776D64FF70675EFF000000FE00000005FFFFFF00AB9D9004AFA1
|
||||
94E1BAAEA2FF82776DFF82776DFFAA917BFFBAA794FFB7A48EFAB09781FF9F8D
|
||||
7DFF836D5BFF716357FF95897DFF040403E000000003FFFFFF00B9ACA008877D
|
||||
72489B8E82FF9D9185FF867B71FF564F48FF504A44FF80766CFF6E665DFF826C
|
||||
58FFA6917DFF948474FF564F48FF0C0B0B7A07070601FFFFFF00FFFFFF00FFFF
|
||||
FF00746B62FFA4978AFF95897DFF9F9286FF3E3934FFFFFFFF004C4640FF7E74
|
||||
6AFF857A70FF3E3934FF453F3AA72522200C15131102FFFFFF00FFFFFF00FFFF
|
||||
FF00FFFFFF00FFFFFF008E8378E2C3B8AEFF655D55FFFFFFFF007C7268FFA89B
|
||||
8EFF9C8F83E4FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||
FF00FFFFFF00FFFFFF009C8F83E2BCB0A4FF9D9185FFFFFFFF00AEA093FF9D91
|
||||
85FF655D55DAFFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00
|
||||
}
|
||||
TabOrder = 6
|
||||
end
|
||||
end
|
||||
end
|
||||
inherited contextMenu: TPopupMenu
|
||||
|
|
|
|||
|
|
@ -45,6 +45,7 @@ type
|
|||
{ TCESearchWidget }
|
||||
TCESearchWidget = class(TCEWidget, ICEMultiDocObserver)
|
||||
btnFind: TBitBtn;
|
||||
btnFindAll: TBitBtn;
|
||||
btnReplace: TBitBtn;
|
||||
btnReplaceAll: TBitBtn;
|
||||
cbToFind: TComboBox;
|
||||
|
|
@ -66,8 +67,10 @@ type
|
|||
fDoc: TCESynMemo;
|
||||
fToFind: string;
|
||||
fReplaceWth: string;
|
||||
fActFindNext, fActReplaceNext: TAction;
|
||||
fActReplaceNext: TAction;
|
||||
fActFindNext: TAction;
|
||||
fActReplaceAll: TAction;
|
||||
fActFindAll: TAction;
|
||||
fSearchMru, fReplaceMru: TCEMruList;
|
||||
fCancelAll: boolean;
|
||||
fHasSearched: boolean;
|
||||
|
|
@ -89,6 +92,7 @@ type
|
|||
//
|
||||
procedure actFindNextExecute(sender: TObject);
|
||||
procedure actReplaceNextExecute(sender: TObject);
|
||||
procedure actFindAllExecute(sender: TObject);
|
||||
end;
|
||||
|
||||
implementation
|
||||
|
|
@ -185,6 +189,9 @@ begin
|
|||
fActFindNext := TAction.Create(self);
|
||||
fActFindNext.Caption := 'Find';
|
||||
fActFindNext.OnExecute := @actFindNextExecute;
|
||||
fActFindAll := TAction.Create(self);
|
||||
fActFindAll.Caption := 'Find all';
|
||||
fActFindAll.OnExecute := @actFindAllExecute;
|
||||
fActReplaceNext := TAction.Create(self);
|
||||
fActReplaceNext.Caption := 'Replace';
|
||||
fActReplaceNext.OnExecute := @actReplaceNextExecute;
|
||||
|
|
@ -207,6 +214,7 @@ begin
|
|||
btnFind.Action := fActFindNext;
|
||||
btnReplace.Action := fActReplaceNext;
|
||||
btnReplaceAll.Action := fActReplaceAll;
|
||||
btnFindAll.Action := fActFindAll;
|
||||
updateImperative;
|
||||
//
|
||||
EntitiesConnector.addObserver(self);
|
||||
|
|
@ -262,6 +270,54 @@ begin
|
|||
end;
|
||||
end;
|
||||
|
||||
procedure TCESearchWidget.actFindAllExecute(sender: TObject);
|
||||
var
|
||||
search: TSynEditSearch;
|
||||
options: TSynSearchOptions;
|
||||
start, stop: TPoint;
|
||||
startf, stopf: TPoint;
|
||||
msgs: ICEMessagesDisplay;
|
||||
msg: string;
|
||||
fmt: string;
|
||||
i: integer;
|
||||
res: array of TPoint = nil;
|
||||
begin
|
||||
if fDoc = nil then exit;
|
||||
//
|
||||
fSearchMru.Insert(0,fToFind);
|
||||
cbToFind.Items.Assign(fSearchMru);
|
||||
//
|
||||
search := TSynEditSearch.Create;
|
||||
try
|
||||
options := getOptions;
|
||||
search.Sensitive := ssoMatchCase in options;
|
||||
search.Whole := ssoWholeWord in options;
|
||||
search.RegularExpressions:= ssoRegExpr in options;
|
||||
search.Pattern:=fToFind;
|
||||
search.IdentChars:=fDoc.IdentChars;
|
||||
start := Point(1,1);
|
||||
stop := Point(high(integer), fDoc.Lines.Count);
|
||||
while search.FindNextOne(fDoc.Lines, start, stop, startf, stopf) do
|
||||
begin
|
||||
setLength(res, length(res) + 1);
|
||||
res[high(res)].X := startf.X;
|
||||
res[high(res)].Y := startf.Y;
|
||||
start := stopf;
|
||||
end;
|
||||
msgs := getMessageDisplay;
|
||||
msg := format('%d result(s) for the pattern <%s>', [length(res), fToFind]);
|
||||
msgs.message(msg, fDoc, amcEdit, amkInf);
|
||||
fmt := fDoc.fileName + '(%d,%d): match %d';
|
||||
for i := 0 to high(res) do
|
||||
begin
|
||||
msg := format(fmt, [res[i].Y, res[i].X, i]);
|
||||
msgs.message(msg, fDoc, amcEdit, amkInf);
|
||||
end;
|
||||
finally
|
||||
search.free;
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TCESearchWidget.actFindNextExecute(sender: TObject);
|
||||
begin
|
||||
if fDoc = nil then exit;
|
||||
|
|
@ -408,6 +464,7 @@ end;
|
|||
procedure TCESearchWidget.updateImperative;
|
||||
begin
|
||||
btnFind.Enabled := (fDoc <> nil) and (fToFind <> '');
|
||||
btnFindAll.Enabled := (fDoc <> nil) and (fToFind <> '');
|
||||
btnReplace.Enabled := (fDoc <> nil) and (chkEnableRep.Checked) and (fToFind <> '');
|
||||
btnReplaceAll.Enabled := btnReplace.Enabled;
|
||||
cbReplaceWth.Enabled := (fDoc <> nil) and (chkEnableRep.Checked);
|
||||
|
|
|
|||
Loading…
Reference in New Issue