forks
/
dexed
mirror of https://gitlab.com/basile.b/dexed.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

search & replace, ENTER execute the search or the replacement 

close #416
This commit is contained in:
Basile Burg 2019-01-22 08:38:43 +01:00
parent f325ff7b2e
commit 0d411524c9
2 changed files with 21 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
src/u_search.lfm
View File

@ -28,6 +28,7 @@ inherited SearchWidget: TSearchWidget
ItemHeight = 0
MaxLength = 128
OnChange = cbToFindChange
OnKeyDown = cbToFindKeyDown
OnSelect = cbToFindChange
TabOrder = 0
end
@ -203,6 +204,7 @@ inherited SearchWidget: TSearchWidget
ItemHeight = 0
MaxLength = 128
OnChange = cbReplaceWthChange
OnKeyDown = cbReplaceWthKeyDown
OnSelect = cbReplaceWthChange
TabOrder = 1
end

19
src/u_search.pas
View File

@ -70,7 +70,11 @@ type
Panel2: TPanel;
procedure btnAllScopeClick(Sender: TObject);
procedure cbReplaceWthChange(Sender: TObject);
procedure cbReplaceWthKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
procedure cbToFindChange(Sender: TObject);
procedure cbToFindKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState
);
procedure chkEnableRepChange(Sender: TObject);
private
fDoc: TDexedMemo;
@ -610,6 +614,13 @@ begin
updateImperative;
end;
procedure TSearchWidget.cbToFindKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
begin
if Key <> 13 then
exit;
actFindNextExecute(nil);
end;
procedure TSearchWidget.chkEnableRepChange(Sender: TObject);
begin
if Updating then exit;
@ -624,6 +635,14 @@ begin
updateImperative;
end;
procedure TSearchWidget.cbReplaceWthKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if Key <> 13 then
exit;
actReplaceNextExecute(nil);
end;
procedure TSearchWidget.btnAllScopeClick(Sender: TObject);
begin
case fFindScope of