mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2025-08-11 18:58:17 +02:00
IDE: fixed saving .lpr file for virtual projects (bug #8666)
git-svn-id: trunk@10952 -
This commit is contained in:
parent
33c83a30ef
commit
73d15b87a6
@ -7242,7 +7242,7 @@ begin
|
||||
end;
|
||||
|
||||
// save main source
|
||||
if (MainUnitInfo<>nil) and (not MainUnitInfo.IsVirtual) then begin
|
||||
if (MainUnitInfo<>nil) and (not (sfDoNotSaveVirtualFiles in flags)) then begin
|
||||
if MainUnitInfo.Loaded then begin
|
||||
// loaded in source editor
|
||||
Result:=DoSaveEditorFile(MainUnitInfo.EditorIndex,
|
||||
|
Loading…
Reference in New Issue
Block a user