paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-12-05 06:18:09 +01:00
Code Issues Packages Projects Releases Wiki Activity

Converter: close the opened files after form file conversion. Closing earlier causes problems sometimes.

Browse Source 
git-svn-id: trunk@27432 -
This commit is contained in:
juha 2010-09-22 09:06:08 +00:00
parent a5821d352a
commit cd8b4c2c15
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
converter/convertdelphi.pas
View File

@ -987,6 +987,9 @@ begin
Result:=Converter.ConvertFormFile; Result:=Converter.ConvertFormFile;
Result:=Converter.CheckFailed(Result); Result:=Converter.CheckFailed(Result);
if Result<>mrOK then exit; if Result<>mrOK then exit;
// Finally save and maybe close the file.
Result:=SaveAndMaybeClose(Converter.fLazUnitFilename);
if Result<>mrOK then exit;
end; end;
finally finally
Screen.Cursor:=crDefault; Screen.Cursor:=crDefault;
@ -1494,9 +1497,6 @@ var
Result:=Converter.CheckFailed(Result); Result:=Converter.CheckFailed(Result);
if Result<>mrOK then exit; if Result<>mrOK then exit;
Result:=Converter.ConvertUnitFile; Result:=Converter.ConvertUnitFile;
if Result<>mrOK then exit;
// Finally save and maybe close the file.
Result:=SaveAndMaybeClose(Converter.fLazUnitFilename);
end; end;
var var