added: program will remember column sizes

ozok · Jan 18, 2016 · d566f9b · d566f9b
1 parent e1a106d
commit d566f9b
Show file tree

Hide file tree

Showing 3 changed files with 46 additions and 4 deletions.
diff --git a/Interface/UnitMainForm.dfm b/Interface/UnitMainForm.dfm
@@ -44,7 +44,7 @@ object MainForm: TMainForm
     Top = 60
     Width = 1008
     Height = 515
-    ActivePage = TabSheet5
+    ActivePage = TabSheet4
     Align = alClient
     MultiLine = True
     Style = tsFlatButtons
@@ -677,7 +677,7 @@ object MainForm: TMainForm
     Left = 408
     Top = 312
     Bitmap = {
-      494C01010D006800CC0030003000FFFFFFFF2000FFFFFFFFFFFFFFFF424D3600
+      494C01010D006800D00030003000FFFFFFFF2000FFFFFFFFFFFFFFFF424D3600
       0000000000003600000028000000C0000000C000000001002000000000000040
       0200000000000000000000000000000000000000000000000000000000000000
       000000000002000000080000000C0000000C0000000C0000000D0000000D0000

diff --git a/Interface/UnitMainForm.pas b/Interface/UnitMainForm.pas
@@ -825,6 +825,27 @@ procedure TMainForm.LoadSettings;
     begin
       SendEmailBtn.Checked := ReadBool('general', 'sendemail', false);
       ShutdownBtn.Checked := ReadBool('general', 'shutdown', false);
+
+      with JobsList do
+      begin
+        Columns[0].Width := ReadInteger('jobcol', '1', 200);
+        Columns[1].Width := ReadInteger('jobcol', '2', 50);
+        Columns[2].Width := ReadInteger('jobcol', '3', 50);
+        Columns[3].Width := ReadInteger('jobcol', '4', 80);
+        Columns[4].Width := ReadInteger('jobcol', '5', 100);
+        Columns[5].Width := ReadInteger('jobcol', '6', 125);
+      end;
+
+      with FullLogList do
+      begin
+        Columns[0].Width := ReadInteger('fulllog', '1', 200);
+        Columns[1].Width := ReadInteger('fulllog', '2', 110);
+        Columns[2].Width := ReadInteger('fulllog', '3', 50);
+        Columns[3].Width := ReadInteger('fulllog', '4', 300);
+        Columns[4].Width := ReadInteger('fulllog', '5', 100);
+        Columns[5].Width := ReadInteger('fulllog', '6', 300);
+        Columns[6].Width := ReadInteger('fulllog', '7', 140);
+      end;
     end;
   finally
     LSettingsFile.Free;
@@ -1827,6 +1848,27 @@ procedure TMainForm.SaveSettings;
     begin
       WriteBool('general', 'sendemail', SendEmailBtn.Checked);
       WriteBool('general', 'shutdown', ShutdownBtn.Checked);
+
+      with JobsList do
+      begin
+        WriteInteger('jobcol', '1', Columns[0].Width);
+        WriteInteger('jobcol', '2', Columns[1].Width);
+        WriteInteger('jobcol', '3', Columns[2].Width);
+        WriteInteger('jobcol', '4', Columns[3].Width);
+        WriteInteger('jobcol', '5', Columns[4].Width);
+        WriteInteger('jobcol', '6', Columns[5].Width);
+      end;
+
+      with FullLogList do
+      begin
+        WriteInteger('fulllog', '1', Columns[0].Width);
+        WriteInteger('fulllog', '2', Columns[1].Width);
+        WriteInteger('fulllog', '3', Columns[2].Width);
+        WriteInteger('fulllog', '4', Columns[3].Width);
+        WriteInteger('fulllog', '5', Columns[4].Width);
+        WriteInteger('fulllog', '6', Columns[5].Width);
+        WriteInteger('fulllog', '7', Columns[6].Width);
+      end;
     end;
   finally
     LSettingsFile.Free;

diff --git a/OneWayBackup.dproj b/OneWayBackup.dproj
@@ -120,8 +120,8 @@
         <VerInfo_IncludeVerInfo>true</VerInfo_IncludeVerInfo>
         <DCC_DebugInformation>1</DCC_DebugInformation>
         <DCC_Define>madExcept;INSTALLED;$(DCC_Define)</DCC_Define>
-        <VerInfo_Build>953</VerInfo_Build>
-        <VerInfo_Keys>CompanyName=ozok26.com;FileDescription=Simple folder sync tool;FileVersion=1.1.0.953;InternalName=OneWayBackup;LegalCopyright=2015-2016 (c) ozok;LegalTrademarks=;OriginalFilename=;ProductName=OneWay Backup;ProductVersion=1.0.0.0;Comments=OneWay Backup</VerInfo_Keys>
+        <VerInfo_Build>956</VerInfo_Build>
+        <VerInfo_Keys>CompanyName=ozok26.com;FileDescription=Simple folder sync tool;FileVersion=1.1.0.956;InternalName=OneWayBackup;LegalCopyright=2015-2016 (c) ozok;LegalTrademarks=;OriginalFilename=;ProductName=OneWay Backup;ProductVersion=1.0.0.0;Comments=OneWay Backup</VerInfo_Keys>
         <DCC_LocalDebugSymbols>true</DCC_LocalDebugSymbols>
     </PropertyGroup>
     <ItemGroup>