unit fServerForm;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls,
  uROClient, uROPoweredByRemObjectsButton, uROClientIntf, uROServer, uROClasses,
  ExtCtrls, Buttons;

type
  TServerForm = class(TForm)
    RoPoweredByRemObjectsButton1: TRoPoweredByRemObjectsButton;
    btnActivateServer: TButton;
    lblServerName: TLabel;
    gbPredefinedConfigurations: TGroupBox;
    sbAlfa: TSpeedButton;
    sbBeta: TSpeedButton;
    sbGamma: TSpeedButton;
    sbDelta: TSpeedButton;
    procedure ApplyConfig(Sender: TObject);
    procedure btnActivateServerClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  ServerForm: TServerForm;

implementation

uses fServerDataModule;


{$R *.dfm}

procedure TServerForm.ApplyConfig(Sender: TObject);
var lServerName: String;
begin
  if (Sender as TComponent).Name = 'sbAlfa' then begin
    lServerName := 'Alfa';
    ServerDataModule.ROServer.Port := 8091;
  end else
  if (Sender as TComponent).Name = 'sbBeta' then begin
    lServerName := 'Beta';
    ServerDataModule.ROServer.Port := 8092;
  end else
  if (Sender as TComponent).Name = 'sbGamma' then begin
    lServerName := 'Gamma';
    ServerDataModule.ROServer.Port := 8093;
  end else
  if (Sender as TComponent).Name = 'sbDelta' then begin
    lServerName := 'Delta';
    ServerDataModule.ROServer.Port := 8094;
  end;
  lblServerName.Caption := Format('Server "%s" on port %d', [lServerName, ServerDataModule.ROServer.Port]);
end;

procedure TServerForm.btnActivateServerClick(Sender: TObject);
begin
  ServerDataModule.ROServer.Active := not ServerDataModule.ROServer.Active;

  if ServerDataModule.ROServer.Active then begin
    btnActivateServer.Caption := 'Deactivate server';
    lblServerName.Font.Color := clGreen;
  end else begin
    btnActivateServer.Caption := 'Activate server';
    lblServerName.Font.Color := clRed;
  end;
end;

procedure TServerForm.FormCreate(Sender: TObject);
begin
 sbAlfa.Click;
 sbAlfa.Down := true;
end;

end.