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

IDE: select frame: search in completesrcpath

Browse Source 
git-svn-id: trunk@37122 -
This commit is contained in:
mattias 2012-05-01 14:54:17 +00:00
parent 4bb1fdcdac
commit aab25bd8d1
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/main.pp
View File

@ -10061,6 +10061,7 @@ var
var var
LFMFilename: String; LFMFilename: String;
begin begin
//debugln(['AddUnit ',AFilename]);
if not FilenameIsPascalUnit(AFilename) then exit; if not FilenameIsPascalUnit(AFilename) then exit;
if CompareFilenames(AFilename,ActiveUnitInfo.Filename)=0 then exit; if CompareFilenames(AFilename,ActiveUnitInfo.Filename)=0 then exit;
if (AnUnitName='') then if (AnUnitName='') then
@ -10069,6 +10070,7 @@ var
if (not ActiveUnitInfo.IsVirtual) then if (not ActiveUnitInfo.IsVirtual) then
exit; // virtual UnitToFilename can not be accessed from disk UnitToFilename exit; // virtual UnitToFilename can not be accessed from disk UnitToFilename
end else begin end else begin
//debugln(['AddUnit unitpath=',UnitPath]);
if SearchDirectoryInSearchPath(UnitPath,ExtractFilePath(AFilename))<1 then if SearchDirectoryInSearchPath(UnitPath,ExtractFilePath(AFilename))<1 then
exit; // not reachable exit; // not reachable
end; end;
@ -10116,7 +10118,7 @@ begin
GetCurrentUnit(ActiveSourceEditor, ActiveUnitInfo); GetCurrentUnit(ActiveSourceEditor, ActiveUnitInfo);
if ActiveUnitInfo=nil then exit; if ActiveUnitInfo=nil then exit;
Owners:=PkgBoss.GetPossibleOwnersOfUnit(ActiveUnitInfo.Filename,[]); Owners:=PkgBoss.GetPossibleOwnersOfUnit(ActiveUnitInfo.Filename,[]);
UnitPath:=CodeToolBoss.GetUnitPathForDirectory(ExtractFilePath(ActiveUnitInfo.Filename)); UnitPath:=CodeToolBoss.GetCompleteSrcPathForDirectory(ExtractFilePath(ActiveUnitInfo.Filename));
PkgList:=nil; PkgList:=nil;
UnitToFilename:=TStringToStringTree.Create(false); UnitToFilename:=TStringToStringTree.Create(false);
UnitList:=TStringList.Create; UnitList:=TStringList.Create;