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

ide: try to open unitinfo with non-expanded file name (required to open non-saved units)

Browse Source 
git-svn-id: trunk@26545 -
This commit is contained in:
paul 2010-07-09 06:56:11 +00:00
parent 3e688d4f5d
commit 241b11f6b3
1 changed files with 12 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
ide/main.pp
View File

@ -4790,12 +4790,19 @@ var
LFMCode: TCodeBuffer;
AFilename: String;
begin
AFilename:=CleanAndExpandFilename(UnitFilename);
if not FileExistsInIDE(AFilename,[]) then begin
DebugLn(['TMainIDE.DoOpenComponent file not found ',AFilename]);
exit(mrCancel);
end;
// try to find a unit name without expaning the path. this is required if unit is virtual
// in other case file name will be expanded with the wrong path
AFilename := UnitFilename;
AnUnitInfo:=Project1.UnitInfoWithFilename(AFilename);
if AnUnitInfo = nil then
begin
AFilename:=CleanAndExpandFilename(UnitFilename);
if not FileExistsInIDE(AFilename,[]) then begin
DebugLn(['TMainIDE.DoOpenComponent file not found ',AFilename]);
exit(mrCancel);
end;
AnUnitInfo:=Project1.UnitInfoWithFilename(AFilename);
end;
if (not (ofRevert in OpenFlags))
and (AnUnitInfo<>nil) and (AnUnitInfo.Component<>nil) then begin
// already open