FIX: OncePerDay option

Author: alexx2000

src/mainunit.lfm

@@ -14,6 +14,7 @@ object MainForm: TMainForm
   Position = poDesktopCenter
   LCLVersion = '4.4.0.0'
   OnCreate = FormCreate
+  OnDestroy = FormDestroy
   object pnlStatus: TPanel
     AnchorSideLeft.Control = Owner
     AnchorSideTop.Control = Owner

src/mainunit.pas

@@ -54,6 +54,7 @@   TMainForm = class(TForm)
     pnlStatus: TPanel;
     procedure btnCancelClick(Sender: TObject);
     procedure FormCreate(Sender: TObject);
+    procedure FormDestroy(Sender: TObject);
   private
     Date: String;
     Value: String;
@@ -65,13 +66,12 @@   TMainForm = class(TForm)
     procedure UpdateCaption(Data: PtrInt);
     procedure UpdateProgress(Data: PtrInt);
     procedure UpdateChangelog(Data: PtrInt);
-    procedure ApplicationTerminate(Data: PtrInt);
     function UpdateState(AProgress: Integer): Boolean;
   protected
     FVersion: String;
     FDateOld: String;
-    FConfig: TIniFile;
     FConfirm: Boolean;
+    FConfig: TMemIniFile;
     FOncePerDay: Boolean;
     FRevisionOld: String;
     procedure ExecuteCommander;
@@ -106,6 +106,11 @@ function TMainForm.CheckUpdate: Boolean;
   if FOncePerDay and (FDateOld = Date) then Exit;
   Revision:= ExtractFileName(WebGetData(REVISION_URL));
 
+  if FOncePerDay and (Length(Revision) > 0) then
+  begin
+    FConfig.WriteString('General', 'Date', Date);
+  end;
+
   if (Length(Revision) > 0) and (Revision <> FRevisionOld) then
   begin
     if not FConfirm then Exit(True);
@@ -152,6 +157,11 @@ procedure TMainForm.FormCreate(Sender: TObject);
   end;
 end;
 
+procedure TMainForm.FormDestroy(Sender: TObject);
+begin
+  FConfig.Free;
+end;
+
 procedure TMainForm.btnCancelClick(Sender: TObject);
 begin
   if (btnCancel.Tag > 0) then
@@ -244,15 +254,10 @@ procedure TMainForm.UpdateChangelog(Data: PtrInt);
   memChangeLog.Text:= Changelog;
 end;
 
-procedure TMainForm.ApplicationTerminate(Data: PtrInt);
-begin
-  Application.Terminate;
-end;
-
 procedure TMainForm.LoadConfiguration;
 begin
   try
-    FConfig:= TIniFile.Create('updater.ini');
+    FConfig:= TMemIniFile.Create('updater.ini');
     FConfirm:= FConfig.ReadBool('General', 'Confirm', True);
     FDateOld:= FConfig.ReadString('General', 'Date', EmptyStr);
     FVersion:= FConfig.ReadString('General', 'Version', VERSION);
@@ -265,7 +270,6 @@ procedure TMainForm.LoadConfiguration;
 
 procedure TMainForm.SaveConfiguration;
 begin
-  FConfig.WriteString('General', 'Date', Date);
   FConfig.WriteBool('General', 'Confirm', FConfirm);
   FConfig.WriteString('General', 'Version', FVersion);
   FConfig.WriteString('General', 'Revision', Revision);

src/updater.lpi

@@ -16,7 +16,7 @@
     <VersionInfo>
       <UseVersionInfo Value="True"/>
       <MajorVersionNr Value="26"/>
-      <MinorVersionNr Value="1"/>
+      <MinorVersionNr Value="2"/>
     </VersionInfo>
     <BuildModes>
       <Item Name="Debug" Default="True"/>