paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-18 14:39:27 +02:00
Code Issues Packages Projects Releases Wiki Activity

IDE: source editor: incremental find: using paste for search

Browse Source 
git-svn-id: trunk@19824 -
This commit is contained in:
mattias 2009-05-06 10:07:23 +00:00
parent 668e6f7e8d
commit c9605ac2ce
1 changed files with 10 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
ide/sourceeditor.pp
View File

@ -1447,6 +1447,7 @@ Procedure TSourceEditor.ProcessCommand(Sender: TObject;
// for non synedit keys (bigger than ecUserFirst) use ProcessUserCommand
var
AddChar: Boolean;
s: String;
begin
//DebugLn('TSourceEditor.ProcessCommand Command=',dbgs(Command));
@ -1490,6 +1491,15 @@ begin
Command:=ecNone;
end;
ecPaste:
begin
s:=Clipboard.AsText;
s:=copy(s,1,EditorOpts.RightMargin);
FSourceNoteBook.IncrementalSearchStr:=
FSourceNoteBook.IncrementalSearchStr+s;
Command:=ecNone;
end;
else
FSourceNoteBook.EndIncrementalFind;
end;