paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-09-12 10:59:20 +02:00
Code Issues Packages Projects Releases Wiki Activity

incremental find now stores find options

Browse Source 
git-svn-id: trunk@5541 -
This commit is contained in:
mattias 2004-06-05 23:53:55 +00:00
parent 47d625d78e
commit a6b8098122
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
ide/uniteditor.pp
View File

@ -522,9 +522,9 @@ type
procedure FindNextClicked(Sender: TObject);
procedure FindPreviousClicked(Sender: TObject);
procedure ReplaceClicked(Sender: TObject);
procedure IncrementalFindClicked(Sender: TObject);
// incremental find
procedure IncrementalFindClicked(Sender: TObject);
procedure EndIncrementalFind;
property IncrementalSearchStr: string
read FIncrementalSearchStr write SetIncrementalSearchStr;
@ -3286,6 +3286,8 @@ procedure TSourceNotebook.EndIncrementalFind;
begin
if not (snIncrementalFind in States) then exit;
Exclude(States,snIncrementalFind);
FindReplaceDlg.FindText:=fIncrementalSearchStr;
FindReplaceDlg.Options:=[];
UpdateStatusBar;
end;