From 42ea994e414d695216f641593e899e3c2af080e8 Mon Sep 17 00:00:00 2001
From: RD42 <42702181+dashr9230@users.noreply.github.com>
Date: Sat, 16 Dec 2023 23:28:45 +0800
Subject: [PATCH] [exgui] Implement ServerProperties procedures

---
 exgui/ServerProperties.dfm | Bin 6204 -> 4184 bytes
 exgui/ServerProperties.pas |  25 +++++++++++++++++++------
 2 files changed, 19 insertions(+), 6 deletions(-)

diff --git a/exgui/ServerProperties.dfm b/exgui/ServerProperties.dfm
index dd9c4186930ce2f02178edf251ac000ef13579f3..b249c34849965692fbce8a6790b4210f0178f6e5 100644
GIT binary patch
literal 4184
zcmd^CO>gT&6rIM6Kaw;=Ac0sQg}0#~1yy<*1gpeNNO)~y#eVO>3dZ(rVs$cOjVJ9Z
z3&aj2egymtcJIIN6A&vFV0*^Sr;30_ql)E>XFTWJx#!+9f7FmSICuM#XZ?vY89V)n
zH|o3Sr1eP)A<r3{yy0EWUEtTi9nNClB7)@g?Ww~vxD?tq70qL@c5+bfF&+YU#VrBD
z^pn#F6E-z$9E*riy(9nFUjDM(X&<*gTO^_#kSMrnKe8F65Qs<bw%>2qBmydi5KU)7
z`vukI_<0nHnfB&E)n<fo!wN`G&;bshF<?}DXwNWDKp2hgg**Dv9(E^g->b<_`G!V7
zo<}rfHy*qY_56c8qVk)Sk1p^WbmJND5K}C7=7j2~IVPda0Sg#sG)>cCNt7`&nlW<&
z4nXY`G4LZNdI2PHfRAV}t9(_<&QhlwA>BK}K9C0SyJ5&7Nz!2+$Vw}VW97J-bF6f9
zwWV1`&{R7<ex+oqU7lXl8r7PEc}gV<h>2DZI|SbX-$eY8Lj2wi#A?TW5L?7|B0Aj&
z@KC{hYa4DgTfR4}=PZN`te-2a@9e;uE#D7TllbR2-het&P#<qYwaze|F7R|uaH~07
zsWB(ln8K?4j0&(vW_KZ&8+{FCDYt4TEl{0xt-W^IA9SCddH=k&Y|Bl*OnQujXs7D*
z6nuKotLRlyJP`Dmq*l>?D)ZzapwH@utaz&gRJnTy1Zu<|vP5J(O)`)z##C4Edzt<%
zt4pFOou@_LFa?%<>_3&nuPg2LZ%U#?d}U5>lH8=8V}+acJyLb(i$dDV{@E%Vh}yTG
z>e(dzBw*Cp0sf}~{L^jl&51p}XcxQg8G6<0hmo)#R1RcS569brHazURg2m>VCDi@o
zf>HPj>vmriwkbW1J7YJ)DD^p(!{SAJ4s>DY@!V$dtvLZ4jw!jd%yN~PGRy5>rFxjz
zI$bsigk*$T5bj7#?OT*v<nPq=YCkN6SL?wwkWuP;xuN^lS%9p3>Pc!-)0wLQ!D4q9
z1$lgGy^8j9w-!-dM#|34Ggq5bqsYe0cIyWpEQ6yJ0ck?GmFz`0e*E8r;}9Xk>n(&x
zpFuu#@wF<)ah?`03)Md<RR4DAK@PLU>v#Mw-!|LDcFlM!@9@AF)AZ35Tp4wVIUg*U
zm_D^J4S?juKzk{3{4O%OT)!VWm6Fa;0epjymCnlt=xRf`i;$t#8>euI7es8R@xE>f
zmDHLg1;wrAm1Rv;wRCMhWz=Pr%LkIMnVVx1SzcBKM*`-09A%YonU49W%nSKd9fi=J
DG-WES

literal 6204
zcmeHL-EZ4A5P#oa!SyBEfDDzL#7==d*h-9KOJgH)+lOHoXo+#O(xgDqNwdFxcRG=l
zWMy)@6^oHQBruQS*YECr_n{Ymh}g2*RV2*4Ff*ewVQeb$H*CHw{D!eBackL6?4&=0
z!CYtXyZ`zKevh?Dgo*5<6d+sVXDOF@2@@gDY^oIq59koKIfWgv@7T}l+_G4v@kjP5
z)JnmHUVY2HKftvz70O<Sba{uT_Id*^{E#O04rK$pNvNeZFpA~astJz;$R=9ZAHzFt
za)FCS*U{zg;l=1CI-mPlzwAS*68$h2pRAknryd4@lU?%_zV6_?FbP*2uUMSop8e}@
zAeqV}G=f_(MMU89370uuXr}YDgd)>XY=lrDJWm*$OFs#j&xE;DF+S_`1cZ1Ue~q9I
z5>5J&i&2sok>^)@0h)sULc*+9Pk^hPevV!j0|(gAaWUNNi`uKHsoeVwKCcT#H{T9q
zIqT0NC`+jWb7a6&DreQe1Z21YkPzkyltLwNIgiFn@<(BILgSdAacJ~UyU-~2-X}Ct
zwcN!p2EF3#4vHQc7-L>p!IojnVB<Z);jK=@E;tO4K^XHmbeaTiyiYjrY!?`Ug2y*F
z93$=htvy_EwOsS%o?+2Om_y=73TRCrf?<;~$x}vatE2Q!j0le6Ydm@g;q9<OY@1kg
zc0L)syP8+R(bweB+kC8Lf}v?QHZ9D%C92dwYB<eH!>FLbE{q1`L5^5n97YtCJN>N@
zl3yB37dp3?3$@`?OXM11YKxyKvl+>BsaB9O0WDeX6HLbbOS&S$EOO<}wC{82sw`c2
zo<Beh(urcwuV;Y6&T#L_7I#7`r8mlpugT}TGx<%d)y!SHg{^Al6`a%yg{`Q!l@H#8
z(`(4jOW^kf7Lm9Dht1EE6bn9IIMqU2qi}kPm*#vC*`gBOWC6`;_*yHh0NV>yXDhx`
zeP-!_%Nn9P{cw@i>M)qn**beG)Eej}TZKA%EZ%t|crsP;5u|gornk4Q2lQN>Oj#Bd
zy|C)QXHT_SPb6FJ-qc~xBcd#mxjt>{gYZ_xM|3b2_d;Gm_W>*R#l2TpA^!!s11SDD
zk(})1X$4!^KdZjF(T4cvy8Rq3tx`o;-fUx~t)(?;n>-rxRn)`}<k=NX;T0NcX;4jv
zQjUpq|5wVts1&5<no<@j;`f+VjMvs`RrqDuzY7AY{YxJ?t#<+jje4g?<7y`lHh#u@
z53R2atxys^RnSa?79)6Z0ZTF3Ml9qi7P1|)5~VN2jJDnv)W{;LsL}nO!i^fY?Z6Sk
zelc#eH34@fZuwebfbe0ZL9ovw5vy4s<yAE-=}oO*QWOOweP}H_cdCjpyqrELMpd7#
rMm_pn_D8c6!!m4$VfxaFRk5nps=yBjVCY|aPoahGl8#-FWAN`U)M?Tn

diff --git a/exgui/ServerProperties.pas b/exgui/ServerProperties.pas
index b052e07..f2159f2 100644
--- a/exgui/ServerProperties.pas
+++ b/exgui/ServerProperties.pas
@@ -4,7 +4,7 @@ interface
 
 uses
   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
-  Dialogs, Menus, StdCtrls;
+  Dialogs, StdCtrls, Menus;
 
 type
   TfmServerProperties = class(TForm)
@@ -44,31 +44,44 @@ var
 
 implementation
 
+uses Main;
+
 {$R *.dfm}
 
 procedure TfmServerProperties.bnSaveClick(Sender: TObject);
+var
+  Idx: Integer;
 begin
-  // TODO: TfmServerProperties.bnSaveClick
+  Idx:= StrToInt(fmMain.lbServers.Items.Strings[fmMain.lbServers.ItemIndex]);
+  Servers[Idx].ServerPassword:= edServerPassword.Text;
+  Servers[Idx].RconPassword:= edRconPassword.Text;
+  Close;
 end;
 
 procedure TfmServerProperties.bnCancelClick(Sender: TObject);
 begin
-  // TODO: TfmServerProperties.bnCancelClick
+  Close;
 end;
 
 procedure TfmServerProperties.bnConnectClick(Sender: TObject);
+var
+  Idx: Integer;
 begin
-  // TODO: TfmServerProperties.bnConnectClick
+  Idx:= StrToInt(fmMain.lbServers.Items.Strings[fmMain.lbServers.ItemIndex]);
+  Servers[Idx].ServerPassword:= edServerPassword.Text;
+  Servers[Idx].RconPassword:= edRconPassword.Text;
+  fmMain.ConnectClick(fmMain);
+  Close;
 end;
 
 procedure TfmServerProperties.pmCopyPopup(Sender: TObject);
 begin
-  // TODO: TfmServerProperties.pmCopyPopup
+  piCopy.Enabled:= edAddress.Text <> '- - -';
 end;
 
 procedure TfmServerProperties.piCopyClick(Sender: TObject);
 begin
-  // TODO: TfmServerProperties.piCopyClick
+  fmMain.SetClipBoardStr(edAddress.Text);
 end;
 
 end.