Changeset 86 for trunk/Forms/UFormCategories.pas

Timestamp:

Aug 8, 2016, 1:41:25 PM (8 years ago)

Author:

chronos

Message:

• Modified: Non-visual code moved from FormMain to Core data module.

File:

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

trunk/Forms/UFormCategories.pas

@@ -53 +53 @@
 
 uses
-  UFormMain;
+  UCore;
 
 resourcestring
@@ -75 +75 @@
   S := InputBox(SCategory, SCategoryQuery, '');
   if S <> '' then begin
-    if not Assigned(FormMain.AcronymDb.Categories.SearchByName(S)) then begin;
-      TAcronymCategory(FormMain.AcronymDb.Categories[FormMain.AcronymDb.Categories.Add(TAcronymCategory.Create)]).Name := S;
-      FormMain.AcronymDb.Modified := True;
+    if not Assigned(Core.AcronymDb.Categories.SearchByName(S)) then begin;
+      TAcronymCategory(Core.AcronymDb.Categories[Core.AcronymDb.Categories.Add(TAcronymCategory.Create)]).Name := S;
+      Core.AcronymDb.Modified := True;
       UpdateList;
     end else ShowMessage(Format(SCategoryAlreadyExists, [S]));
@@ -90 +90 @@
     S := InputBox(SCategory, SCategoryQuery, ListViewCategories.Selected.Caption);
     if S <> ListViewCategories.Selected.Caption then begin
-      if not Assigned(FormMain.AcronymDb.Categories.SearchByName(S)) then begin;
+      if not Assigned(Core.AcronymDb.Categories.SearchByName(S)) then begin;
         TAcronymCategory(ListViewCategories.Selected.Data).Name := S;
-        FormMain.AcronymDb.Modified := True;
+        Core.AcronymDb.Modified := True;
         UpdateList;
       end else ShowMessage(Format(SCategoryAlreadyExists, [S]));
@@ -124 +124 @@
 procedure TFormCategories.ListViewCategoriesData(Sender: TObject; Item: TListItem);
 begin
-  if Item.Index < FormMain.AcronymDb.Categories.Count then
-  with TAcronymCategory(FormMain.AcronymDb.Categories[Item.Index]) do begin
+  if Item.Index < Core.AcronymDb.Categories.Count then
+  with TAcronymCategory(Core.AcronymDb.Categories[Item.Index]) do begin
     Item.Caption := Name;
-    Item.Data := FormMain.AcronymDb.Categories[Item.Index];
+    Item.Data := Core.AcronymDb.Categories[Item.Index];
     Item.SubItems.Add(IntToStr(AcronymMeanings.Count));
   end;
@@ -151 +151 @@
 procedure TFormCategories.UpdateList;
 begin
-  ListViewCategories.Items.Count := FormMain.AcronymDb.Categories.Count;
+  ListViewCategories.Items.Count := Core.AcronymDb.Categories.Count;
   ListViewCategories.Refresh;
   UpdateInterface;