Changeset 196 for trunk/Forms/UFormNew.pas

Timestamp:

May 16, 2018, 9:56:24 AM (6 years ago)

Author:

chronos

Message:

• Added: Allow to manage list of servers where to connect as client.

File:

• trunk/Forms/UFormNew.pas (modified) (13 diffs)

trunk/Forms/UFormNew.pas

@@ -8 +8 @@
   Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls,
   ComCtrls, Spin, ExtCtrls, ActnList, ExtDlgs, Menus, UGame, UGeometry,
-  UGameServer;
+  UGameServer, UServerList;
 
 type
@@ -15 +15 @@
 
   TFormNew = class(TForm)
+    AServerModify: TAction;
+    AServerAdd: TAction;
+    AServerRemove: TAction;
     APlayerAdd: TAction;
     APlayerRemove: TAction;
     APlayerModify: TAction;
     ActionList1: TActionList;
+    Button1: TButton;
+    Button2: TButton;
+    Button3: TButton;
     ButtonCancel: TButton;
     ButtonImageBrowse: TButton;
@@ -52 +58 @@
     MenuItem2: TMenuItem;
     MenuItem3: TMenuItem;
+    MenuItem4: TMenuItem;
+    MenuItem5: TMenuItem;
+    MenuItem6: TMenuItem;
     OpenPictureDialog1: TOpenPictureDialog;
     PageControl1: TPageControl;
     PanelButtons: TPanel;
     PanelChat: TPanel;
-    PopupMenu1: TPopupMenu;
+    PopupMenuPlayers: TPopupMenu;
+    PopupMenuServers: TPopupMenu;
     RadioButtonModeNetworkServer: TRadioButton;
     RadioButtonModeNetworkClient: TRadioButton;
@@ -79 +89 @@
     procedure APlayerModifyExecute(Sender: TObject);
     procedure APlayerRemoveExecute(Sender: TObject);
+    procedure AServerAddExecute(Sender: TObject);
+    procedure AServerModifyExecute(Sender: TObject);
+    procedure AServerRemoveExecute(Sender: TObject);
     procedure ButtonImageBrowseClick(Sender: TObject);
     procedure CheckBoxCityChange(Sender: TObject);
@@ -97 +110 @@
     procedure ListViewPlayersSelectItem(Sender: TObject; Item: TListItem;
       Selected: Boolean);
+    procedure ListViewServersData(Sender: TObject; Item: TListItem);
+    procedure ListViewServersKeyPress(Sender: TObject; var Key: char);
+    procedure ListViewServersSelectItem(Sender: TObject; Item: TListItem;
+      Selected: Boolean);
     procedure RadioButtonModeLocalChange(Sender: TObject);
     procedure SpinEditMapSizeXChange(Sender: TObject);
@@ -106 +123 @@
     Players: TPlayers;
   public
+    ServerList: TServerList;
     procedure Translate;
     procedure ReloadView;
@@ -121 +139 @@
 
 uses
-  UFormPlayer, UFormChat, UCore;
+  UFormPlayer, UFormChat, UCore, UFormServer;
 
 resourcestring
@@ -141 +159 @@
   SRounded = 'Rounded';
   SFromImageFile = 'From image file';
+  SRemoveServer = 'Remove server';
+  SRemoveServerQuery = 'Do you want to remove server?';
 
 { TFormNew }
@@ -177 +197 @@
 begin
   ReloadView;
+end;
+
+procedure TFormNew.ListViewServersData(Sender: TObject; Item: TListItem);
+begin
+  if Item.Index < ServerList.Items.Count then
+  with TServerInfo(ServerList.Items[Item.Index]) do begin
+    Item.Caption := Name;
+    Item.Data := ServerList.Items[Item.Index];
+    Item.SubItems.Add(Address + ':' + IntToStr(Port));
+  end;
+end;
+
+procedure TFormNew.ListViewServersKeyPress(Sender: TObject; var Key: char);
+begin
+  if Key = #13 then AServerModify.Execute;
+end;
+
+procedure TFormNew.ListViewServersSelectItem(Sender: TObject; Item: TListItem;
+  Selected: Boolean);
+begin
+  UpdateInterface;
 end;
 
@@ -262 +303 @@
   ListViewPlayers.Items.Count := Players.Count;
   ListViewPlayers.Refresh;
+  ListViewServers.Items.Count := ServerList.Items.Count;
+  ListViewServers.Refresh;
   Translate;
   UpdateInterface;
@@ -278 +321 @@
   PanelChat.Visible := RadioButtonModeNetworkClient.Checked or RadioButtonModeNetworkServer.Checked;
   SpinEditNeutralUnits.MaxValue := SpinEditMaxPower.Value;
+  AServerRemove.Enabled := RadioButtonModeNetworkClient.Checked and Assigned(ListViewServers.Selected);
+  AServerAdd.Enabled := RadioButtonModeNetworkClient.Checked;
+  AServerModify.Enabled := RadioButtonModeNetworkClient.Checked;
 end;
 
@@ -350 +396 @@
   if Assigned(ListViewPlayers.Selected) then begin
     Players.Remove(ListViewPlayers.Selected.Data);
+    ReloadView;
+  end;
+end;
+
+procedure TFormNew.AServerAddExecute(Sender: TObject);
+var
+  NewServer: TServerInfo;
+begin
+  FormServer := TFormServer.Create(nil);
+  NewServer := TServerInfo.Create;
+  FormServer.Load(NewServer);
+  if FormServer.ShowModal = mrOK then begin
+    FormServer.Save(NewServer);
+    ServerList.Items.Add(NewServer);
+    ReloadView;
+  end else NewServer.Free;
+  FormServer.Free;
+end;
+
+procedure TFormNew.AServerModifyExecute(Sender: TObject);
+var
+  Server: TServerInfo;
+begin
+  FormServer := TFormServer.Create(nil);
+  Server := TServerInfo(ListViewServers.Selected.Data);
+  FormServer.Load(Server);
+  if FormServer.ShowModal = mrOK then begin
+    FormServer.Save(Server);
+    ReloadView;
+  end;
+  FormServer.Free;
+end;
+
+procedure TFormNew.AServerRemoveExecute(Sender: TObject);
+var
+  I: Integer;
+begin
+  if MessageDlg(SRemoveServer, SRemoveServerQuery,
+  TMsgDlgType.mtConfirmation, [mbCancel, mbOk], 0) = mrOk then begin
+    for I := ListViewServers.Items.Count - 1 downto 0 do
+    if ListViewServers.Items[I].Selected then
+      ServerList.Items.Delete(I);
     ReloadView;
   end;
@@ -424 +512 @@
     LocalNetworkAddress := EditServerAddress.Text;
     LocalNetworkPort := SpinEditServerPort.Value;
+    if Assigned(ListViewServers.Selected) then begin
+      RemoteNetworkAddress := TServerInfo(ListViewServers.Selected.Data).Address;
+      RemoteNetworkPort := TServerInfo(ListViewServers.Selected.Data).Port;
+    end else begin
+      RemoteNetworkAddress := '';
+      RemoteNetworkPort := 0;
+    end;
     Game.PlayersSetting.Assign(Players);
     Game.SymetricMap := CheckBoxSymetricMap.Checked;