Changeset 230 for trunk/Forms/FormMain.pas

Timestamp:

Jan 24, 2025, 11:42:58 PM (6 weeks ago)

Author:

chronos

Message:

• Modified: Fixed Import sources modification.
• Modified: Catogires don't have direct object references to import sources and acronym meanings.
• Modified: Updated acronyms example file.

File:

• trunk/Forms/FormMain.pas (modified) (5 diffs)

trunk/Forms/FormMain.pas ¶

@@ -136 +136 @@
     procedure AShowImportSourcesExecute(Sender: TObject);
     procedure EditSearchChange(Sender: TObject);
+    procedure FormActivate(Sender: TObject);
     procedure FormDestroy(Sender: TObject);
     procedure FormHide(Sender: TObject);
@@ -234 +235 @@
 end;
 
+procedure TFormMain.FormActivate(Sender: TObject);
+begin
+  ListViewFilter1.UpdateFromListView(ListViewAcronyms);
+end;
+
 procedure TFormMain.FormDestroy(Sender: TObject);
 begin
@@ -455 +461 @@
   with Core.Core.AcronymDb.ImportSources[I] do
   if Enabled then begin
-    Process;
+    Process(Core.Core.AcronymDb);
     ImportTotalItemCount := ImportTotalItemCount + ItemCount;
     Job.Progress.Max := Core.Core.AcronymDb.ImportSources.Count;
@@ -568 +574 @@
 
   if Visible then begin
-    ListViewFilter1.UpdateFromListView(ListViewAcronyms);
     UpdateInterface;
     ListViewFilter1.StringGrid.Col := 1;
@@ -575 +580 @@
     ListViewFilter1.StringGrid.SetFocus;
   end;
-  Core.Core.ScaleDPI1.ScaleControl(CoolBar1, Core.Core.ScaleDPI1.DesignDPI);
+  ScaleDPI.ScaleControl(CoolBar1, ScaleDPI.DesignDPI);
   CoolBar1.AutosizeBands;
 end;