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

fixed FindInFiles using last history word

Browse Source 
git-svn-id: trunk@6308 -
This commit is contained in:
mattias 2004-11-28 00:23:44 +00:00
parent 843c0a6291
commit e79126fec6
1 changed files with 6 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
ide/uniteditor.pp
View File

@ -3677,7 +3677,10 @@ Begin
if SelAvail and (BlockBegin.Y = BlockEnd.Y) if SelAvail and (BlockBegin.Y = BlockEnd.Y)
then FindText := SelText then FindText := SelText
else FindText := GetWordAtRowCol(LogicalCaretXY); else FindText := GetWordAtRowCol(LogicalCaretXY);
end end else begin
if InputHistories.FindHistory.Count>0 then
FindText:=InputHistories.FindHistory[0];
end;
end; end;
FindInFiles(AProject, FindText); FindInFiles(AProject, FindText);
@ -3686,8 +3689,8 @@ End;
procedure TSourceNotebook.FindInFiles(AProject: TProject; procedure TSourceNotebook.FindInFiles(AProject: TProject;
const FindText: string); const FindText: string);
begin begin
if FindInFilesDialog = nil if FindInFilesDialog = nil then
then FindInFilesDialog := CreateFindInFilesDialog; FindInFilesDialog := CreateFindInFilesDialog;
FindInFilesDialog.FindText:= FindText; FindInFilesDialog.FindText:= FindText;
IDEDialogLayoutList.ApplyLayout(FindInFilesDialog,320,430); IDEDialogLayoutList.ApplyLayout(FindInFilesDialog,320,430);