Changeset 287 for trunk/Forms/UFormUnitKinds.pas

Timestamp:

Mar 24, 2019, 2:26:29 PM (6 years ago)

Author:

chronos

Message:

• Fixed: FormNew default undefined game system causing error.
• Modified: FormNew and FormUnitKind use Server property insteady Load/Save methods.

File:

• trunk/Forms/UFormUnitKinds.pas (modified) (2 diffs)

trunk/Forms/UFormUnitKinds.pas

@@ -98 +98 @@
     FormUnitKind := TFormUnitKind.Create(Self);
     try
-      FormUnitKind.Load(TempEntry);
+      FormUnitKind.UnitKind := TempEntry;
       if FormUnitKind.ShowModal = mrOk then begin
-        FormUnitKind.Save(TempEntry);
         TUnitKind(ListView1.Selected.Data).Assign(TempEntry);
         UpdateList;
@@ -120 +119 @@
   try
     TempEntry.Name := SNewUnitKind;
-    FormUnitKind.Load(TempEntry);
+    FormUnitKind.UnitKind := TempEntry;
     if FormUnitKind.ShowModal = mrOk then begin
-      FormUnitKind.Save(TempEntry);
       UnitKinds.Add(TempEntry);
       TempEntry := nil;