From 52ae0859d649317b28d5ebc2f4f1d4f5e79d34b1 Mon Sep 17 00:00:00 2001
From: RD42 <42702181+dashr9230@users.noreply.github.com>
Date: Wed, 6 Dec 2023 23:01:25 +0800
Subject: [PATCH] [exgui] Update unit_webrunform

* Add Twnd_webrunform member variables
* Implement Twnd_webrunform functions
---
 exgui/unit_webrunform.dcu | Bin 0 -> 4272 bytes
 exgui/unit_webrunform.ddp | Bin 0 -> 51 bytes
 exgui/unit_webrunform.pas |  12 +++++++++---
 3 files changed, 9 insertions(+), 3 deletions(-)
 create mode 100644 exgui/unit_webrunform.dcu
 create mode 100644 exgui/unit_webrunform.ddp

diff --git a/exgui/unit_webrunform.dcu b/exgui/unit_webrunform.dcu
new file mode 100644
index 0000000000000000000000000000000000000000..902b15644a6ae8ee30ec7fed3af390e79f1cfa3f
GIT binary patch
literal 4272
zcmeHLZ)_CD6`!{p=O=QQD;%y%NU#a9D1s9hD~%9sZQt3%lo(^5aflMadUx);aJPHi
z-NV>z5(@~0&=N{es!Azs(<*7As((~9rGXD9R0?g?R_zCLO%pe*C`}9^ZYx!MKylx@
zy*uyvpdb3Vr}Ny*`~Bw4yg&11<Ub3s=tof@9{Ki>p}y7+l0tbwY|bw!n1=hrs2sKn
zX4<lI@x1EPw;dT0b`7GZbFaMo%#fnjbrxLLGM!6_KYS?Yldem38g8d+-W|)V$Y8uY
zQeOHaXgUtKdcw7{v+Qtcn>sAB>%L^4%hbiaL2T*YzM<)LNkh$AnJQJ&=XcYds^j$h
z6p!)!ANOR!@lyZ8!m72IPoxqB$F*_{#yhe`#!OhIYg<_-mr*Ze8vSs>mZ~fJR9nqC
zc}DN8MTZPiw?-dQO+70=&zz;V;h4J3&~iVNlxf41eYTaCwrfboWyXpi!=a6h`Bx|~
zDHb4E-Y!RL)=pYU(n<;rFch$Ri*yrNLz-^C)Z8yH{Bgfdg1fVp>KbO|Nd_1D!EKhR
zOZ{n<2b|SwxklR1XqIJ8)Tr!J4b$~3ImqBLzsem2X^-`ouC&vtCJ!?n@M6DI^#PYc
z@eD)v_@@p?m*PW~bQ($HVM~`sYi3s|&oUJ7!(d(~tsNTg**VT|U|&1ctignSX{tH-
z6~>qN7auZpil6oz1A(CQOUD=|@10~M;5{!`Z?QaJq9^Z_qnBz{DM#^_3<PZNNR!7X
zdnw3;k_o@6p>#?*sIsKNqx_mF4SpjMS<8{72>gbzfCDH;)k4<wvfKVG;{iL#wcVCh
zaNe$2xPnN%e7yd|lz_<tBi1NIOwGQ_P#~9vRMSn27+L*ua%_^(`%?oNozX1$l#-~d
zGTx!@rL#Pn$!AxG@5{8@o?37%Peqrh4ritQ26OMAw#w}>cN%i^98sw_Rq8~gl#wg^
zdvP49B`NE<srV1+H2IK(YId+jV_ZJZ;L<r@DOu!chVBVKrO48`k-A5DfhmmvN~u73
z;rTkF_XW^Wp)1w69@C*J<7LAcCa$;xvCnc0J`LYwQiGpVPD9H1?=W_^AFI}r?Y5CI
z%%3nJU<(txGTU{)rPJ#Clqt*S=t#=_h9;RP54f*0Be2ctLGDzweHq&-nELOS6!11@
zRe7o3GZ?U;$J}2&((|qnw#2`Fzsz%uLIwgMqGdaIE$1$V7W?OT^<$wYFRvOWTfK_%
zz>z(l<g?}(&hn(KW_ogJMmn1rqhd0PmGkn`3^e<JN-0iS+P(q9m5HqCIG<%2oyGEe
z+G8chdTS6~l}qFH;F>h2yk;K*QNOZYs&_kT6jf^MAR}~Rlo#)zXMs_zqo*0foK0!3
z$?V@>eDB>%C}(fqca?kdbM`LjT%#@>s4cddA2GD*l}(p=$u?P)aJ9B_dCR1fiF?lO
zml=Z!-q?u~|GduiqzVt&<eSnhaf%_jYpc+JnwAMQo9#NF$vkKGYs^@j>XWuZ%2;_v
z>G;0Vi+gBeJ5}4D3RK+&zf8uQLD!glnULsV={Ow9N<E<Mdl#HvLi5-?vz#zVT$!r~
z=smQ3crV?;=MTU71jWD`#FK`TS6yx7!j`WcqBJQ>>3X1p?6PCuWFS@nx@{>d$VEo#
z+r6UDZJ1>DSl7SQgIe37Iq$a#!$`L)T3cn?;s;t=)hh9Q8dR(nuhF3574bcqQVx_j
zLqH{t;zb&ilfn_ZwKnfXCKeOF{8|%H)>?k$i3J3d--jZkwM65oQB(IlFehdv&;5IW
zShHx3{AlBjo>-)*KFGe>^0VPsq^(Jbx2EgG>g97L#l3fDD_s}bzKKZeQxA$w7;O#>
z$ZR?tx!D{Zkfu&A5S-TTG<Tyncj5mscY`;#{=d$Rl;UNKdygoNns}_aDXN`OR@VfN
zU(+Jm93}LlEdoWPr>=V#i(%0mxjg>rN9S9_+B(nV4Kd{}cU1<hG36iC!N!;Zk+tE{
z8+$`6^s&ggh~G=G8<SX(c(%uGT&YSti()sXP)pMK^^0gf6N_eMW}fbAr*5`m!8ZEw
ze?l~92O*xMKmMGhU!3Rl|KHYnAS5o4hi)p2RAPC{KWY^v@0GEQAsT@whjX4-QqmZR
zXh7tJG$8U~I`_PlmMkgb2-eMoD`DO(<|e5SgU7EQ`o+y-gEx<L-8$ZN>#d1xq>T0L
z+V%Lw+k%`McLc+;;KmDsBlpu#pINUTYnqu)U9s`Pqq}zL$D$)^X>joa7G1mf_{Br(
zxCa+=Z;J3`0hgPgh;W&{QT{d{d>7#%gslj#BlIGiMR)_D8(|MZ6T-^~YZ2lIZ3rh3
zzJ;(E;U$DtgiZt<VHhEea1bGnuo}TdIE-)vVGY7jgl7@HjBo<sL4*eoP9b~-;WWZH
z!WR*qLYP2!1fdaO1YsG%a)f&k_9A2vRw9@PHo|&@{RjsT`VbyPcnqN(VHH9P!X|_y
z!Zw6{gcQQg2wZ*&CR^Z23ruwbBGhBJD4@88O^&S(Pi_id*%Y4I6rQe!=|*^G8B9l%
z^U<&pf_EZy%E^Y#g{U+t%fh}kq>K8mD#{*lN{I;3(D?l7Hig2d6sd_76-6`@LyBlD
zh83}_h>BP~DZ-(ZP3^@6ifFn*{Z%Ws79)ySIYs@JRjFdVB38XkliS|oZ1^iR?N_P!
p`PuiW-FlscH>gQXQ?vVYY_f^|8=+h&wNs^bx`{#>Rk#)Ee*ot!VUqv=

literal 0
HcmV?d00001

diff --git a/exgui/unit_webrunform.ddp b/exgui/unit_webrunform.ddp
new file mode 100644
index 0000000000000000000000000000000000000000..4370276c196a7fa73d6f8917622cba1c4e033dee
GIT binary patch
literal 51
zcmZRVaB=ks@bJ`g@pN<#a`e>;@DB=c^Y`)e=VxGe;K0Pl$;KI)SCUzhlbT}4#=r!G
E07ZHWvj6}9

literal 0
HcmV?d00001

diff --git a/exgui/unit_webrunform.pas b/exgui/unit_webrunform.pas
index f3bdd6e..e947bcf 100644
--- a/exgui/unit_webrunform.pas
+++ b/exgui/unit_webrunform.pas
@@ -8,6 +8,11 @@ uses
 
 type
   Twnd_webrunform = class(TForm)
+    BitBtn1: TBitBtn;
+    BitBtn2: TBitBtn;
+    BitBtn3: TBitBtn;
+    Label1: TLabel;
+
     procedure BitBtn2Click(Sender: TObject);
     procedure BitBtn3Click(Sender: TObject);
     procedure BitBtn1Click(Sender: TObject);
@@ -26,17 +31,18 @@ implementation
 
 procedure Twnd_webrunform.BitBtn2Click(Sender: TObject);
 begin
-  // TODO: Twnd_webrunform.BitBtn2Click
+  ModalResult:= mrCancel;
 end;
 
 procedure Twnd_webrunform.BitBtn3Click(Sender: TObject);
 begin
-  // TODO: Twnd_webrunform.BitBtn3Click
+  ModalResult:= mrOk;
 end;
 
 procedure Twnd_webrunform.BitBtn1Click(Sender: TObject);
 begin
-  // TODO: Twnd_webrunform.BitBtn1Click
+  ModalResult:= mrYes;
 end;
 
 end.
+ 
\ No newline at end of file