source: trunk/Forms/FormServer.pas

unit FormServer;

interface

uses
  Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls,
  Spin, ServerList, FormEx;

type

  { TFormServer }

  TFormServer = class(TFormEx)
    ButtonCancel: TButton;
    ButtonOk: TButton;
    EditAddress: TEdit;
    EditName: TEdit;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    ScrollBox1: TScrollBox;
    SpinEdit1: TSpinEdit;
    procedure ButtonOkClick(Sender: TObject);
  private
    FServerInfo: TServerInfo;
    procedure SetServerInfo(AValue: TServerInfo);
    procedure Load(Server: TServerInfo);
    procedure Save(Server: TServerInfo);
  public
    property ServerInfo: TServerInfo read FServerInfo write SetServerInfo;
  end;


implementation

{$R *.lfm}

{ TFormServer }

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
  EditName.Text := Server.Name;
  EditAddress.Text := Server.Address;
  SpinEdit1.Value := Server.Port;
end;

procedure TFormServer.Save(Server: TServerInfo);
begin
  Server.Name := EditName.Text;
  Server.Address := EditAddress.Text;
  Server.Port := SpinEdit1.Value;
end;

end.