diff --git a/applications/json_packager/jsonpackage.lpi b/applications/json_packager/jsonpackage.lpi index 445447ed3..0e3ca3850 100644 --- a/applications/json_packager/jsonpackage.lpi +++ b/applications/json_packager/jsonpackage.lpi @@ -24,8 +24,7 @@ - - + @@ -131,6 +130,11 @@ + + + + + diff --git a/applications/json_packager/jsonpackage.lps b/applications/json_packager/jsonpackage.lps index debf9743f..f00e5c88a 100644 --- a/applications/json_packager/jsonpackage.lps +++ b/applications/json_packager/jsonpackage.lps @@ -20,12 +20,12 @@ - - + + - - + + @@ -129,123 +129,123 @@ - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + diff --git a/applications/json_packager/jsonpackage.res b/applications/json_packager/jsonpackage.res index 6d3d38a90..f3302118f 100644 Binary files a/applications/json_packager/jsonpackage.res and b/applications/json_packager/jsonpackage.res differ diff --git a/applications/json_packager/umain.lfm b/applications/json_packager/umain.lfm index 5ce32477f..1f825d599 100644 --- a/applications/json_packager/umain.lfm +++ b/applications/json_packager/umain.lfm @@ -13,6 +13,7 @@ object frmMain: TfrmMain OnClose = FormClose OnCloseQuery = FormCloseQuery OnCreate = FormCreate + OnDestroy = FormDestroy OnShow = FormShow Position = poScreenCenter LCLVersion = '1.7' diff --git a/applications/json_packager/umain.pas b/applications/json_packager/umain.pas index fc64a6a19..d873589a5 100644 --- a/applications/json_packager/umain.pas +++ b/applications/json_packager/umain.pas @@ -138,6 +138,7 @@ type procedure FormClose(Sender: TObject; var CloseAction: TCloseAction); procedure FormCloseQuery(Sender: TObject; var CanClose: boolean); procedure FormCreate(Sender: TObject); + procedure FormDestroy(Sender: TObject); procedure FormShow(Sender: TObject); procedure LoadItemClick(Sender: TObject); procedure mnu_fileNewClick(Sender: TObject); @@ -384,9 +385,6 @@ begin CFG.WriteBool('Options', 'Virgin', False); CFG.WriteBool('Options', 'DiableWarnings', bDisableWarnings); CFG.UpdateFile; - Application.ProcessMessages; - CFG.Free; - slErrorList.Free; end; end; function TfrmMain.CreateUniqueINI(var aCount: integer):Boolean; @@ -465,6 +463,12 @@ begin bDirty := False; // No effect :( end; +procedure TfrmMain.FormDestroy(Sender: TObject); +begin + CFG.Free; + slErrorList.Free; +end; + procedure TfrmMain.FormShow(Sender: TObject); begin bDirty := False;