Changeset 45 for trunk/Forms

Timestamp:

Jul 15, 2016, 12:38:46 AM (8 years ago)

Author:

chronos

Message:

• Modified: More translated strings.

Location:

trunk/Forms

Files:

• UFormAcronyms.lfm (modified) (2 diffs)
• UFormAcronyms.lrt (modified) (1 diff)
• UFormAcronyms.pas (modified) (2 diffs)
• UFormImportPattern.lfm (modified) (9 diffs)
• UFormImportPattern.pas (modified) (4 diffs)
• UFormMain.lfm (modified) (4 diffs)
• UFormMain.pas (modified) (2 diffs)

trunk/Forms/UFormAcronyms.lfm

@@ -8 +8 @@
   ClientWidth = 740
   OnShow = FormShow
-  LCLVersion = '1.6.0.4'
+  LCLVersion = '1.7'
   object ListViewAcronyms: TListView
     Left = 8
@@ -21 +21 @@
       end    
       item
-        Caption = 'Description'
+        Caption = 'Meaning'
         Width = 300
       end    

trunk/Forms/UFormAcronyms.lrt

@@ -1 +1 @@
 TFORMACRONYMS.CAPTION=Acronyms
 TFORMACRONYMS.LISTVIEWACRONYMS.COLUMNS[0].CAPTION=Name
-TFORMACRONYMS.LISTVIEWACRONYMS.COLUMNS[1].CAPTION=Description
+TFORMACRONYMS.LISTVIEWACRONYMS.COLUMNS[1].CAPTION=Meaning
 TFORMACRONYMS.LISTVIEWACRONYMS.COLUMNS[2].CAPTION=Categories
 TFORMACRONYMS.AADD.CAPTION=Add

trunk/Forms/UFormAcronyms.pas

@@ -62 +62 @@
   SRemoveAcronym = 'Remove acronym';
   SRemoveAcronymQuery = 'Do you want to remove selected acronym?';
+  STotal = 'Total';
+  SFiltered = 'Filtered';
 
 
@@ -248 +250 @@
   ListViewSort1.Refresh;
   UpdateInterface;
-  StatusBar1.Panels[0].Text := 'Total: ' + IntToStr(MeaningCount);
-  StatusBar1.Panels[1].Text := 'Filtered: ' + IntToStr(ListViewAcronyms.Items.Count);
+  StatusBar1.Panels[0].Text := STotal + ': ' + IntToStr(MeaningCount);
+  StatusBar1.Panels[1].Text := SFiltered + ': ' + IntToStr(ListViewAcronyms.Items.Count);
 end;
 

trunk/Forms/UFormImportPattern.lfm

@@ -9 +9 @@
   OnCreate = FormCreate
   OnShow = FormShow
-  LCLVersion = '1.6.0.4'
+  LCLVersion = '1.7'
   object Label8: TLabel
     Left = 24
-    Height = 20
+    Height = 24
     Top = 13
-    Width = 75
+    Width = 101
     Caption = 'Start string:'
     ParentColor = False
@@ -20 +20 @@
   object Label9: TLabel
     Left = 24
-    Height = 20
+    Height = 24
     Top = 53
-    Width = 69
+    Width = 92
     Caption = 'End string:'
     ParentColor = False
@@ -28 +28 @@
   object EditBlockEnd: TEdit
     Left = 183
-    Height = 28
+    Height = 34
     Top = 48
     Width = 461
@@ -36 +36 @@
   object EditBlockStart: TEdit
     Left = 183
-    Height = 28
+    Height = 34
     Top = 8
     Width = 461
@@ -64 +64 @@
   object Label10: TLabel
     Left = 24
-    Height = 20
+    Height = 24
     Top = 88
-    Width = 46
+    Width = 60
     Caption = 'Action:'
     ParentColor = False
@@ -72 +72 @@
   object Label11: TLabel
     Left = 24
-    Height = 20
+    Height = 24
     Top = 120
-    Width = 58
+    Width = 74
     Caption = 'Variable:'
     ParentColor = False
@@ -80 +80 @@
   object ComboBoxAction: TComboBox
     Left = 183
-    Height = 28
+    Height = 38
     Top = 87
     Width = 461
     Anchors = [akTop, akLeft, akRight]
-    ItemHeight = 20
+    ItemHeight = 0
     Style = csDropDownList
     TabOrder = 4
@@ -90 +90 @@
   object ComboBoxVariable: TComboBox
     Left = 183
-    Height = 28
+    Height = 38
     Top = 120
     Width = 461
     Anchors = [akTop, akLeft, akRight]
-    ItemHeight = 20
+    ItemHeight = 0
     Items.Strings = (
       ''
@@ -103 +103 @@
   object CheckBoxRepetition: TCheckBox
     Left = 24
-    Height = 24
+    Height = 28
     Top = 160
-    Width = 93
+    Width = 112
     Caption = 'Repetition'
     TabOrder = 6

trunk/Forms/UFormImportPattern.pas

@@ -45 +45 @@
 procedure TFormImportPattern.FormShow(Sender: TObject);
 begin
+  InitControls;
 end;
 
@@ -56 +57 @@
   I: TImportPatternFlag;
   J: TImportVariable;
+  Index: Integer;
 begin
+  Index := ComboBoxAction.ItemIndex;
   while ComboBoxAction.Items.Count > 0 do
     ComboBoxAction.Items.Delete(ComboBoxAction.Items.Count - 1);
@@ -63 +66 @@
   for I := Low(TImportPatternFlag) to High(TImportPatternFlag) do
     ComboBoxAction.Items[Integer(I)] := ImportPatternFlagString[I];
+  ComboBoxAction.ItemIndex := Index;
 
+  Index := ComboBoxVariable.ItemIndex;
   ComboBoxVariable.Items.Clear;
   while ComboBoxVariable.Items.Count > 0 do
@@ -71 +76 @@
   for J := Low(TImportVariable) to High(TImportVariable) do
     ComboBoxVariable.Items[Integer(J)] := ImportVariableString[J];
+  ComboBoxVariable.ItemIndex := Index;
 end;
 

trunk/Forms/UFormMain.lfm

@@ -5 +5 @@
   Width = 631
   Caption = 'Acronym Decoder'
-  ClientHeight = 421
+  ClientHeight = 414
   ClientWidth = 631
   Menu = MainMenu1
@@ -13 +13 @@
   OnDestroy = FormDestroy
   OnShow = FormShow
-  LCLVersion = '1.6.0.4'
+  LCLVersion = '1.7'
   object Panel1: TPanel
     Left = 0
-    Height = 395
+    Height = 388
     Top = 26
     Width = 631
     Align = alClient
     BevelOuter = bvNone
-    ClientHeight = 395
+    ClientHeight = 388
     ClientWidth = 631
     TabOrder = 0
     object CheckBoxExactMath: TCheckBox
       Left = 8
-      Height = 24
+      Height = 28
       Top = 3
-      Width = 104
+      Width = 129
       Caption = 'Exact match'
       OnChange = CheckBoxExactMathChange
@@ -43 +43 @@
     object ListViewAcronyms: TListView
       Left = 8
-      Height = 323
+      Height = 316
       Top = 64
       Width = 616
@@ -1398 +1398 @@
   object CoolTranslator1: TCoolTranslator
     POFilesFolder = 'Languages'
+    OnTranslate = CoolTranslator1Translate
     left = 264
     top = 176

trunk/Forms/UFormMain.pas

@@ -99 +99 @@
     procedure AShowImportSourcesExecute(Sender: TObject);
     procedure CheckBoxExactMathChange(Sender: TObject);
+    procedure CoolTranslator1Translate(Sender: TObject);
     procedure EditSearchChange(Sender: TObject);
     procedure FormShow(Sender: TObject);
@@ -345 +346 @@
 end;
 
+procedure TFormMain.CoolTranslator1Translate(Sender: TObject);
+begin
+  UAcronym.Translate;
+end;
+
 procedure TFormMain.FormDestroy(Sender: TObject);
 begin