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

Fix in SaveProject (introduced in Multi-window refactor)

Browse Source 
git-svn-id: trunk@24122 -
This commit is contained in:
martin 2010-03-20 23:58:56 +00:00
parent 9efcf935eb
commit a1b9664066
1 changed files with 4 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
ide/main.pp
View File

@ -9338,11 +9338,12 @@ begin
// save all editor files
for i:=0 to SourceEditorManager.SourceEditorCount-1 do begin
if (Project1.MainUnitID<0)
or (Project1.MainUnitInfo.EditorIndex<>i) then begin
if (Project1.MainUnitID<0) or
(Project1.MainUnitInfo.EditorComponent <> SourceEditorManager.SourceEditors[i])
then begin
SaveFileFlags:=[sfProjectSaving]
+Flags*[sfCheckAmbiguousFiles];
AnUnitInfo:=Project1.UnitWithEditorIndex(i);
AnUnitInfo:=Project1.UnitWithEditorComponent(SourceEditorManager.SourceEditors[i]);
if AnUnitInfo = nil
then begin
DebugLn('TMainIDE.DoSaveProject - unit not found for page %d', [i]);