Changeset 288 for trunk/Forms/UFormPlayer.pas

Timestamp:

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

Author:

chronos

Message:

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

File:

• trunk/Forms/UFormPlayer.pas (modified) (4 diffs)

trunk/Forms/UFormPlayer.pas

@@ -29 +29 @@
     Label6: TLabel;
     SpinEditStartUnits: TSpinEdit;
+    procedure ButtonOkClick(Sender: TObject);
     procedure ComboBoxModeChange(Sender: TObject);
     procedure FormClose(Sender: TObject; var CloseAction: TCloseAction);
@@ -34 +35 @@
     procedure FormShow(Sender: TObject);
   private
-    { private declarations }
+    FPlayer: TPlayer;
+    procedure LoadData(Player: TPlayer);
+    procedure SaveData(Player: TPlayer);
+    procedure SetPlayer(AValue: TPlayer);
   public
     procedure Translate;
     procedure UpdateInterface;
-    procedure LoadData(Player: TPlayer);
-    procedure SaveData(Player: TPlayer);
+    property Player: TPlayer read FPlayer write SetPlayer;
   end;
 
@@ -64 +67 @@
 begin
   UpdateInterface;
+end;
+
+procedure TFormPlayer.ButtonOkClick(Sender: TObject);
+begin
+  SaveData(FPlayer);
 end;
 
@@ -149 +157 @@
 end;
 
+procedure TFormPlayer.SetPlayer(AValue: TPlayer);
+begin
+  if FPlayer = AValue then Exit;
+  FPlayer := AValue;
+  if Assigned(FPlayer) then LoadData(FPlayer);
+end;
+
 end.