Changeset 86 for trunk/Forms/UFormSettings.pas

Timestamp:

Aug 8, 2016, 1:41:25 PM (8 years ago)

Author:

chronos

Message:

• Modified: Non-visual code moved from FormMain to Core data module.

File:

• trunk/Forms/UFormSettings.pas (modified) (3 diffs)

trunk/Forms/UFormSettings.pas

@@ -40 +40 @@
 
 uses
-  UFormMain;
+  UFormMain, UCore;
 
 { TFormSettings }
@@ -64 +64 @@
 procedure TFormSettings.Load;
 begin
-  CheckBoxAlwaysOnTop.Checked := FormMain.AlwaysOnTop;
-  CheckBoxStartOnLogon.Checked := FormMain.StartOnLogon;
-  CheckBoxStartMinimizedToTray.Checked := FormMain.StartMinimizedToTray;
+  CheckBoxAlwaysOnTop.Checked := Core.AlwaysOnTop;
+  CheckBoxStartOnLogon.Checked := Core.StartOnLogon;
+  CheckBoxStartMinimizedToTray.Checked := Core.StartMinimizedToTray;
   UpdateInterface;
 end;
@@ -72 +72 @@
 procedure TFormSettings.Save;
 begin
-  FormMain.AlwaysOnTop := CheckBoxAlwaysOnTop.Checked;
-  FormMain.StartOnLogon := CheckBoxStartOnLogon.Checked;
-  FormMain.StartMinimizedToTray := CheckBoxStartMinimizedToTray.Checked;
+  Core.AlwaysOnTop := CheckBoxAlwaysOnTop.Checked;
+  Core.StartOnLogon := CheckBoxStartOnLogon.Checked;
+  Core.StartMinimizedToTray := CheckBoxStartMinimizedToTray.Checked;
 end;