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

trunk/Forms/UFormServer.pas

@@ -22 +22 @@
     Label3: TLabel;
     SpinEdit1: TSpinEdit;
+    procedure ButtonOkClick(Sender: TObject);
     procedure FormShow(Sender: TObject);
   private
-
-  public
+    FServerInfo: TServerInfo;
+    procedure SetServerInfo(AValue: TServerInfo);
     procedure Load(Server: TServerInfo);
     procedure Save(Server: TServerInfo);
+  public
+    property ServerInfo: TServerInfo read FServerInfo write SetServerInfo;
   end;
 
@@ -47 +50 @@
 end;
 
+procedure TFormServer.ButtonOkClick(Sender: TObject);
+begin
+  Save(FServerInfo);
+end;
+
+procedure TFormServer.SetServerInfo(AValue: TServerInfo);
+begin
+  if FServerInfo = AValue then Exit;
+  FServerInfo := AValue;
+  if Assigned(FServerInfo) then Load(FServerInfo);
+end;
+
 procedure TFormServer.Load(Server: TServerInfo);
 begin