Changeset 288 for trunk/Forms/UFormNation.pas

Timestamp:

Mar 24, 2019, 10:52:35 PM (6 years ago)

Author:

chronos

Message:

• Modified: More forms use data item property instead Load/Save methods.

File:

• trunk/Forms/UFormNation.pas (modified) (3 diffs)

trunk/Forms/UFormNation.pas

@@ -20 +20 @@
     LabelName: TLabel;
     LabelHealth: TLabel;
+    procedure ButtonOkClick(Sender: TObject);
   private
-
-  public
+    FNation: TNation;
     procedure Load(Nation: TNation);
     procedure Save(Nation: TNation);
+    procedure SetNation(AValue: TNation);
+  public
+    property Nation: TNation read FNation write SetNation;
   end;
 
@@ -36 +39 @@
 
 { TFormNation }
+
+procedure TFormNation.ButtonOkClick(Sender: TObject);
+begin
+  Save(FNation);
+end;
 
 procedure TFormNation.Load(Nation: TNation);
@@ -50 +58 @@
 end;
 
+procedure TFormNation.SetNation(AValue: TNation);
+begin
+  if FNation = AValue then Exit;
+  FNation := AValue;
+  if Assigned(FNation) then Load(FNation);
+end;
+
 end.