Changeset 12

Timestamp:

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

Author:

chronos

Message:

• Added: Configurable main form stay on top feature.

Location:

trunk

Files:

• Languages/AcronymDecoder.cs.po (modified) (4 diffs)
• Languages/AcronymDecoder.po (modified) (1 diff)
• Packages/CoolTranslator (modified) (1 prop)
• UFormAcronym.lfm (modified) (6 diffs)
• UFormImport.lfm (modified) (3 diffs)
• UFormMain.lfm (modified) (3 diffs)
• UFormMain.pas (modified) (6 diffs)
• UFormSettings.lfm (modified) (3 diffs)
• UFormSettings.lrt (modified) (1 diff)
• UFormSettings.pas (modified) (2 diffs)

trunk/Languages/AcronymDecoder.cs.po

@@ -40 +40 @@
 #: tformimport.buttonimport.caption
 msgid "Process"
-msgstr ""
+msgstr "Zpracovat"
 
 #: tformimport.buttonloadfromfile.caption
 msgid "Load from file"
-msgstr ""
+msgstr "Načíst ze souboru"
 
 #: tformimport.caption
@@ -50 +50 @@
 msgctxt "tformimport.caption"
 msgid "Import"
-msgstr "Improtovat"
+msgstr "Importovat"
 
 #: tformimport.comboboxdataformat.text
 msgid "CSV"
-msgstr ""
+msgstr "CSV"
 
 #: tformimport.label1.caption
 msgid "Data format:"
-msgstr ""
+msgstr "Formát dat:"
 
 #: tformmain.aacronymadd.caption
@@ -161 +161 @@
 msgstr "Nastavení"
 
+#: tformsettings.checkboxalwaysontop.caption
+msgid "Always on top"
+msgstr "Okno vždy navrchu"
+
 #: tformsettings.label1.caption
 msgid "Language:"
@@ -167 +171 @@
 #: uformimport.simportednewacronyms
 msgid "Imported %d new acronyms."
-msgstr ""
+msgstr "Importováno %d nových zkratek."
 
 #: uformmain.sappexit

trunk/Languages/AcronymDecoder.po

@@ -150 +150 @@
 msgstr ""
 
+#: tformsettings.checkboxalwaysontop.caption
+msgid "Always on top"
+msgstr ""
+
 #: tformsettings.label1.caption
 msgid "Language:"

trunk/UFormAcronym.lfm

@@ -1 +1 @@
 object FormAcronym: TFormAcronym
-  Left = 554
+  Left = 555
   Height = 296
-  Top = 409
+  Top = 411
   Width = 420
   Caption = 'Acronym'
@@ -13 +13 @@
   object Label1: TLabel
     Left = 8
-    Height = 24
+    Height = 20
     Top = 16
-    Width = 60
+    Width = 43
     Caption = 'Name:'
     ParentColor = False
@@ -21 +21 @@
   object EditAcronym: TEdit
     Left = 136
-    Height = 34
+    Height = 28
     Top = 15
     Width = 272
@@ -30 +30 @@
   object Label2: TLabel
     Left = 8
-    Height = 24
+    Height = 20
     Top = 49
-    Width = 83
+    Width = 61
     Caption = 'Meaning:'
     ParentColor = False
@@ -38 +38 @@
   object EditMeaning: TEdit
     Left = 136
-    Height = 34
+    Height = 28
     Top = 49
     Width = 272
@@ -69 +69 @@
   object Label3: TLabel
     Left = 8
-    Height = 24
+    Height = 20
     Top = 88
-    Width = 109
+    Width = 79
     Caption = 'Description:'
     ParentColor = False

trunk/UFormImport.lfm

@@ -1 +1 @@
 object FormImport: TFormImport
-  Left = 573
+  Left = 575
   Height = 507
-  Top = 411
+  Top = 256
   Width = 652
   Caption = 'Import'
@@ -28 +28 @@
   end
   object ComboBoxDataFormat: TComboBox
-    Left = 256
-    Height = 34
+    Left = 264
+    Height = 28
     Top = 5
     Width = 140
-    ItemHeight = 0
+    ItemHeight = 20
     ItemIndex = 0
     Items.Strings = (
@@ -44 +44 @@
   object Label1: TLabel
     Left = 153
-    Height = 24
+    Height = 20
     Top = 9
-    Width = 116
+    Width = 84
     Caption = 'Data format:'
     ParentColor = False

trunk/UFormMain.lfm

@@ -1 +1 @@
 object FormMain: TFormMain
-  Left = 767
+  Left = 769
   Height = 446
-  Top = 445
+  Top = 342
   Width = 631
   Caption = 'Acronym Decoder'
-  ClientHeight = 414
+  ClientHeight = 421
   ClientWidth = 631
   Menu = MainMenu1
@@ -16 +16 @@
   object ListViewAcronyms: TListView
     Left = 8
-    Height = 365
+    Height = 372
     Top = 40
     Width = 613
@@ -46 +46 @@
   object EditSearch: TEdit
     Left = 8
-    Height = 34
+    Height = 28
     Top = 8
     Width = 611

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;

trunk/UFormSettings.lfm

@@ -11 +11 @@
   object ComboBoxLanguage: TComboBox
     Left = 184
-    Height = 38
+    Height = 28
     Top = 24
     Width = 236
-    ItemHeight = 0
+    ItemHeight = 20
     Style = csDropDownList
     TabOrder = 0
@@ -20 +20 @@
   object Label1: TLabel
     Left = 16
-    Height = 24
+    Height = 20
     Top = 24
-    Width = 92
+    Width = 68
     Caption = 'Language:'
     ParentColor = False
@@ -47 +47 @@
     TabOrder = 2
   end
+  object CheckBoxAlwaysOnTop: TCheckBox
+    Left = 16
+    Height = 24
+    Top = 64
+    Width = 118
+    Caption = 'Always on top'
+    TabOrder = 3
+  end
 end

trunk/UFormSettings.lrt

@@ -3 +3 @@
 TFORMSETTINGS.BUTTONOK.CAPTION=Ok
 TFORMSETTINGS.BUTTONCANCEL.CAPTION=Cancel
+TFORMSETTINGS.CHECKBOXALWAYSONTOP.CAPTION=Always on top

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;