Changeset 287 for trunk/Forms/UFormUnitKind.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/UFormUnitKind.pas (modified) (2 diffs)

trunk/Forms/UFormUnitKind.pas

@@ -20 +20 @@
     LabelHealth: TLabel;
     SpinEditHealth: TSpinEdit;
+    procedure ButtonOkClick(Sender: TObject);
   private
-
-  public
+    FUnitKind: TUnitKind;
     procedure Load(UnitKind: TUnitKind);
     procedure Save(UnitKind: TUnitKind);
+    procedure SetUnitKind(AValue: TUnitKind);
+  public
+    property UnitKind: TUnitKind read FUnitKind write SetUnitKind;
   end;
 
@@ -48 +51 @@
 end;
 
+procedure TFormUnitKind.ButtonOkClick(Sender: TObject);
+begin
+  Save(FUnitKind);
+end;
+
+procedure TFormUnitKind.SetUnitKind(AValue: TUnitKind);
+begin
+  if FUnitKind = AValue then Exit;
+  FUnitKind := AValue;
+  if Assigned(AValue) then Load(FUnitKind);
+end;
+
 end.