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

CodeBrowser: check for virtual units. Issue #0022740

Browse Source 
git-svn-id: trunk@38426 -
This commit is contained in:
martin 2012-08-29 15:05:33 +00:00
parent c6ea3e7fd5
commit 56079e50f0
1 changed files with 11 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
ide/codebrowser.pas
View File

@ -3236,7 +3236,7 @@ procedure TQuickFixIdentifierNotFound_Search.Execute(
var
Identifier: String;
CodeBuf: TCodeBuffer;
Filename: string;
Filename, KnownFilename: string;
Caret: TPoint;
begin
if Step=imqfoMenuItem then begin
@ -3264,6 +3264,16 @@ begin
exit;
end;
KnownFilename:= LazarusIDE.FindSourceFile(Filename, Project1.ProjectDirectory,
[fsfSearchForProject, fsfUseIncludePaths, fsfMapTempToVirtualFiles]);
if (KnownFilename <> '') and (KnownFilename <> Filename) then begin
if LazarusIDE.DoOpenFileAndJumpToPos(KnownFilename,Caret,-1,-1,-1,OpnFlagsPlainFile)<>mrOk
then
if LazarusIDE.DoOpenFileAndJumpToPos(Filename,Caret,-1,-1,-1,OpnFlagsPlainFile)<>mrOk
then exit;
end
else
if LazarusIDE.DoOpenFileAndJumpToPos(Filename,Caret,-1,-1,-1,OpnFlagsPlainFile
)<>mrOk
then exit;