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

Applied the idea of a patch from Darek Mazur

Browse Source 
git-svn-id: trunk@5378 -
This commit is contained in:
marc 2004-04-07 22:20:40 +00:00
parent 2f10d4e852
commit 9f86a5a31f
1 changed files with 22 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

22
ide/uniteditor.pp
View File

@ -3560,9 +3560,27 @@ begin
end;//FIFCreateSearchForm
Procedure TSourceNotebook.FindInFiles(AProject: TProject);
var
TempEditor: TSourceEditor;
Begin
if FindInFilesDialog=nil then
FindInFilesDialog:=CreateFindInFilesDialog;
if FindInFilesDialog = nil
then FindInFilesDialog := CreateFindInFilesDialog;
TempEditor := GetActiveSE;
if TempEditor <> nil
then with TempEditor, EditorComponent do
begin
if EditorOpts.FindTextAtCursor
then begin
if SelAvail and (BlockBegin.Y = BlockEnd.Y)
then FindInFilesDialog.FindText := SelText
else FindInFilesDialog.FindText := GetWordAtRowCol(CaretXY);
end
else begin
FindInFilesDialog.FindText:='';
end;
end;
if FindInFilesDialog.ShowModal=mrOk then
begin
SaveFindInFilesHistory(FindInFilesDialog);