Changeset 12 for trunk/UFormSettings.pas

Timestamp:

Apr 28, 2016, 5:35:05 PM (10 years ago)

Author:

chronos

Message:

• Added: Configurable main form stay on top feature.

File:

• trunk/UFormSettings.pas (modified) (2 diffs)

trunk/UFormSettings.pas

@@ -16 +16 @@
     ButtonOk: TButton;
     ButtonCancel: TButton;
+    CheckBoxAlwaysOnTop: TCheckBox;
     ComboBoxLanguage: TComboBox;
     Label1: TLabel;
@@ -54 +55 @@
 procedure TFormSettings.Load;
 begin
+  CheckBoxAlwaysOnTop.Checked := FormMain.AlwaysOnTop;
 end;
 
 procedure TFormSettings.Save;
 begin
-
+  FormMain.AlwaysOnTop := CheckBoxAlwaysOnTop.Checked;
 end;