Changeset 12 for trunk/UFormMain.pas

Timestamp:

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

Author:

chronos

Message:

• Added: Configurable main form stay on top feature.

File:

• trunk/UFormMain.pas (modified) (6 diffs)

trunk/UFormMain.pas

@@ -87 +87 @@
     procedure TrayIcon1Click(Sender: TObject);
   private
+    FAlwaysOnTop: Boolean;
+    procedure SetAlwaysOnTop(AValue: Boolean);
+  private
     FoundAcronyms: TAcronymMeanings;
     RegistryContext: TRegistryContext;
@@ -96 +99 @@
   public
     AcronymDb: TAcronymDb;
+    property AlwaysOnTop: Boolean read FAlwaysOnTop write SetAlwaysOnTop;
   end;
 
@@ -300 +304 @@
 procedure TFormMain.ASettingsExecute(Sender: TObject);
 begin
-  FormSettings.ShowModal;
+  FormSettings.Load;
+  if FormSettings.ShowModal = mrOk then
+    FormSettings.Save;
 end;
 
@@ -368 +374 @@
 end;
 
+procedure TFormMain.SetAlwaysOnTop(AValue: Boolean);
+begin
+  if FAlwaysOnTop = AValue then Exit;
+  FAlwaysOnTop := AValue;
+  if FAlwaysOnTop then FormStyle := fsSystemStayOnTop
+    else FormStyle := fsNormal;
+end;
+
 procedure TFormMain.OpenRecentClick(Sender: TObject);
 begin
@@ -422 +436 @@
       CoolTranslator1.Language := CoolTranslator1.Languages.SearchByCode(ReadStringWithDefault('LanguageCode', ''))
       else CoolTranslator1.Language := CoolTranslator1.Languages.SearchByCode('');
+    AlwaysOnTop := ReadBoolWithDefault('AlwaysOnTop', False);
   finally
     Free;
@@ -438 +453 @@
       WriteString('LanguageCode', CoolTranslator1.Language.Code)
       else DeleteValue('LanguageCode');
+    WriteBool('AlwaysOnTop', AlwaysOnTop);
   finally
     Free;