Changeset 138 for trunk/Forms/UFormMain.pas

Timestamp:

Dec 2, 2016, 12:41:40 PM (8 years ago)

Author:

chronos

Message:

• Modified: Use more precise term "Same length" rather then "Exact match" for acronym text filtering.
• Fixed: Application directory location for Windows installer script.

File:

• trunk/Forms/UFormMain.pas (modified) (7 diffs)

trunk/Forms/UFormMain.pas

@@ -16 +16 @@
 
   TFormMain = class(TForm)
-    AFilterCaseSensitive: TAction;
-    AFilterExactMatch: TAction;
+    AFilterSameLetterCase: TAction;
+    AFilterSameLength: TAction;
     AHide: TAction;
     AExport: TAction;
@@ -36 +36 @@
     AExit: TAction;
     ActionList1: TActionList;
-    CheckBoxExactMatch: TCheckBox;
+    CheckBoxExactLength: TCheckBox;
     CheckBoxCaseSensitive: TCheckBox;
     LastOpenedList1: TLastOpenedList;
@@ -95 +95 @@
     procedure AFileSaveAsExecute(Sender: TObject);
     procedure AFileSaveExecute(Sender: TObject);
-    procedure AFilterCaseSensitiveExecute(Sender: TObject);
-    procedure AFilterExactMatchExecute(Sender: TObject);
+    procedure AFilterSameLetterCaseExecute(Sender: TObject);
+    procedure AFilterSameLengthExecute(Sender: TObject);
     procedure AHideExecute(Sender: TObject);
     procedure AImportExecute(Sender: TObject);
@@ -286 +286 @@
 end;
 
-procedure TFormMain.AFilterCaseSensitiveExecute(Sender: TObject);
+procedure TFormMain.AFilterSameLetterCaseExecute(Sender: TObject);
 begin
   UpdateAcronymsList;
 end;
 
-procedure TFormMain.AFilterExactMatchExecute(Sender: TObject);
+procedure TFormMain.AFilterSameLengthExecute(Sender: TObject);
 begin
   UpdateAcronymsList;
@@ -509 +509 @@
 function TFormMain.FilterCell(Text1, Text2: string): Boolean;
 begin
-  if not AFilterCaseSensitive.Checked then begin
+  if not AFilterSameLetterCase.Checked then begin
     Text1 := UTF8LowerCase(Text1);
     Text2 := UTF8LowerCase(Text2);
   end;
-  if AFilterExactMatch.Checked then
+  if AFilterSameLength.Checked then
     Result := Text1 = Text2
     else Result := Pos(Text1, Text2) > 0;
@@ -650 +650 @@
     Core.AlwaysOnTop := ReadBoolWithDefault('AlwaysOnTop', False);
     Core.StartMinimizedToTray := ReadBoolWithDefault('StartMinimizedToTray', False);
-    AFilterExactMatch.Checked := ReadBoolWithDefault('ExactMatch', False);
-    AFilterCaseSensitive.Checked := ReadBoolWithDefault('CaseSensitive', False);
+    AFilterSameLength.Checked := ReadBoolWithDefault('SameLength', False);
+    AFilterSameLetterCase.Checked := ReadBoolWithDefault('SameLetterCase', False);
     MenuItemToolbar.Checked := ReadBoolWithDefault('ToolBarVisible', True);
     MenuItemParam.Checked := ReadBoolWithDefault('FilterParamVisible', True);
@@ -682 +682 @@
     WriteBool('AlwaysOnTop', Core.AlwaysOnTop);
     WriteBool('StartMinimizedToTray', Core.StartMinimizedToTray);
-    WriteBool('ExactMatch', AFilterExactMatch.Checked);
-    WriteBool('CaseSensitive', AFilterCaseSensitive.Checked);
+    WriteBool('SameLength', AFilterSameLength.Checked);
+    WriteBool('SameLetterCase', AFilterSameLetterCase.Checked);
     WriteBool('ToolBarVisible', MenuItemToolbar.Checked);
     WriteBool('FilterParamVisible', MenuItemParam.Checked);