Changeset 146 for trunk/Forms/UFormAcronyms.pas

Timestamp:

Jan 24, 2017, 4:34:36 PM (7 years ago)

Author:

chronos

Message:

• Added: A context menu from main acronym filter list to show selected acronym in Acronyms window for its further management.

File:

• trunk/Forms/UFormAcronyms.pas (modified) (4 diffs)

trunk/Forms/UFormAcronyms.pas

@@ -54 +54 @@
     procedure UpdateAcronymsList;
   public
+    FocusAcronym: TAcronymMeaning;
     procedure UpdateInterface;
   end;
@@ -110 +111 @@
 
 procedure TFormAcronyms.FormShow(Sender: TObject);
+var
+  I: Integer;
 begin
   Core.PersistentForm1.Load(Self);
@@ -115 +118 @@
   UpdateAcronymsList;
   Core.ScaleDPI1.ScaleControl(ToolBar1, Core.ScaleDPI1.DesignDPI);
+
+  // Focus line with acronym
+  if Assigned(FocusAcronym) then begin
+    I := 0;
+    while (I < ListViewAcronyms.Items.Count) and (ListViewAcronyms.Items[I].Data <> FocusAcronym) do Inc(I);
+    if I < ListViewAcronyms.Items.Count then begin
+      ListViewAcronyms.ItemIndex := I;
+      ListViewAcronyms.Selected.Focused := True;
+    end;
+    if ListViewAcronyms.Selected <> nil then
+      ListViewAcronyms.Selected.MakeVisible(False);
+  end;
 end;
 
@@ -235 +250 @@
   I: Integer;
 begin
+  FocusAcronym := nil;
+  MeaningCount := 0;
   Core.CoolTranslator1.TranslateComponentRecursive(Self);
   for I := 0 to ToolBar1.ButtonCount - 1 do