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

Converter: Keep the main form of project open after conversion. Issue #25364.

Browse Source 
git-svn-id: trunk@54339 -
This commit is contained in:
juha 2017-03-04 00:32:32 +00:00
parent 9f3aae8c8c
commit a86166fcfb
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
converter/convertdelphi.pas
View File

@ -1793,7 +1793,8 @@ begin
if AnUnitInfo.OpenEditorInfoCount=0 then exit;
Result:=LazarusIDE.DoSaveEditorFile(AnUnitInfo.OpenEditorInfo[0].EditorComponent,
[sfCheckAmbiguousFiles,sfQuietUnitCheck]);
if not fSettings.KeepFileOpen then
// The main form has UnitIndex = 1. Don't close it.
if (UnitIndex<>1) and not fSettings.KeepFileOpen then
Result:=LazarusIDE.DoCloseEditorFile(AnUnitInfo.OpenEditorInfo[0].EditorComponent,
[cfQuiet]);
end;