From 86485b05854994d6237813207d06c71222a5f755 Mon Sep 17 00:00:00 2001 From: f1iwq2 Date: Sat, 2 May 2020 14:02:20 +0200 Subject: [PATCH] V1.71 --- UnitConfig.dcu | Bin 22393 -> 22519 bytes UnitConfig.dfm | 34 +++++++++++++++++----------------- UnitConfig.pas | 9 +++++---- UnitPrinc.dcu | Bin 190156 -> 190467 bytes UnitPrinc.dfm | 4 ++-- UnitPrinc.pas | 42 ++++++++++++++++++++++++++---------------- verif_version.pas | 2 +- 7 files changed, 51 insertions(+), 40 deletions(-) diff --git a/UnitConfig.dcu b/UnitConfig.dcu index 810d41be6ba5dd194a832d56cea1a5d042f72c8a..c93ab31108c66ba4158e8a08ab77a6d1f390df1f 100644 GIT binary patch delta 4269 zcmb7He^Av`7C+x}?)&oiiuicJ^YMBRFhpeN0*V473M#I+V$g=0ZM305QDSJ1MxE+O z{us@0)UVrWlZ`mhMANnsTVt-avNLx!oM>ZrXnJkbI+Kmm;;er-4LiG!J@M@QZyDeH#+dOXz^w0n2C%c~)ZrPo&TcwY1zY25HaCWrKe4%? z@sW8CH#Gfp?WwMk0gvCT-yEtB)wdNVfBHzwlPwJmjoY-+osjT*G@j}1zvbTswx`=4 zCrLaUZ~w}7Y?dS+T=MkLj?U=0EXc8MOZ9iJn|+t-o(|!j8@H?_6nbKF{_;(Y8y`=+ z+NY?MPi$=}+ZbwmsxDNYcs0V5rKsgw>oqYX+#6Sb8**j=FL~DJ=xDgAl*LW4C%gX= z{4!u%w7VB&djDnu9N7CW1h~RR7+P=ILyOA1?wF~xY1)em=O$!NqyK2{C|sVfW*YmX z{ZV1Dw|N?y?Xm+!r3oje(Vy6l7iA}WJdHhJzgo23+pdx!{8CUonn(EM-jZnyhO zZrS*4kv5za?y*&CRj>csRLA6*VmccfS9kw4HO|n%jO$RyOtWWj{f1muFzzk zrKq`WQ#jJx(^EL1xt&uum*#d);Y`i#v-6fG*;kh}87I0QSiaIoo;w4~9s;9>(hNy% zM%6q-tc|uvG2Y#K&@zOY! z2TQPOI^`1a_*I+{Axm4zF->D7T9YDMlOkJmBeF#|B3n-28eVn<22=_rO`6G*2C!PE zV!O*M5Q#>C@X;_k4sfI)PG29dpnwP0q2hzaAXyk;o09wNh99SemDOM`UMpwSqrEG6 zS1#d%QucE6((R2GG+(cjgetPJ8X!}nUKBLwCy5f#-tB9k-fZjvp*j^Z?O&&+S z|Ls!1=dM!mL(>#Z_sP5|Ry>t(uBPnSKE2w<3-wbuXXB=wd+@wYYWx^_bPC50;r~0R zI37Da;SN_cWksB{is@V72TW~WJswkh?Pq^-2Pb=4&-R9Lr<}&3QLzEllu8^CTTLx8f z;1sS>)f(fK&NEm%;eX}E>|W#ws2?2VU#GXIA4gsBhIzj6>Zdk0s4HOrFJX)iYnWJX z*H!KdtCs}l-solKV1Q>E2h9B{Bm_xoCDxw@J;8sEbyqN5=53NlK zM<&XCz#QUoQcHfSqa{?&*vQz#xP`HWaXa0M@g8%8tH%g0a)jc?O1;HrrPHj^rP8f0 zNeaI>M}&I0dQ24T9v6d$_PZ_{{VBLuWQc{BCb~24{=%@Z5Hm0b7n+N0QT_AGS`#fd zVil7MCmMU}Uq13rl-m2NZ<~>gV?U8?cUS)?+-boPa}I#-?W|#h6tWbwx-GjEyAXkY z{AqxYD2X+nB!S?UWFiFky8|I8dG(MgDGnh`az%g)$#)MjCD#qel9Y&$&7aT+b0mKp zK#t@@!aT`05ppG^h7s~5r6DZfuMdQUk}?qrC1oKLOUg!AENKqH63H(LD3vr1VVR^{ zgcXwV5mriCfUru^LWI?l3K7;wDn?iM?-Nox=ulC&0KgQO~ihb7&E&>;B$;ZaHJ5FV3sAHpU{_akhU^Z-J$qz4hU zN_q$(BxwV}Q<5G=*e0m~VTYtg5uTRx7{arXHX-bkv>D+!NzDkmC2d6r@0Aon*eB^J zgy$t~LwG^b4upe}o<=w%=~;v$l6E2-mGm6Ki;{LD9Fw#c;U!7?5MGw_Ji;rIUO+f0 z=^(->Nrw<#m2?E*HAzPiUYGPD!W)u~A-pN+C4{#my^L_0_xB3I+mcQq{I)}YDbBom zJVw$fgm?RtdiKngSV^xUoQWv)+}S;>zJ_piNU86itF$D&j&QD5-I9;`RR3|m?gw-q z(Y;-DZ)*6O690T%_w@nuAtf) zQP5!>ebXgM-QdYj5FeW11kr-gB!@^5rDlrwESfGJ$_0-%Puyqbi9CwtiD6=?O+*W{ zqqj_?pjjq5FAUnVq5}z*1cx+9yi+KSbc)`jw6OBk41+fcN8t#!q94CNaauqB01 zgHDl;015#f8f(P0MvOJC3swvzUKTc)gu2vhH`~qD6-^WCim|NyW7lZ5!=8Iz3+-5w z&E($SxxaJnIrp7=?tO2*`@Qk~yT%=#17x)P3gAL*`|&$|Hnp~WIc!g_-?q8A>d9>z zHgCLV-G;3{EN(v=?(=s3Jo6$NJ37CfGGgHIJME!Bj_nF`U~h(fCh$^Om zeZaNylyH}N?%UDa{N%Q>sx6z>{>FbJuBe(Pw{NXn+q`*aL-Tt7jb5fKMOAHIuZaQS zUVA^dp(FzUS~G6myct^_VR1{vZ#%!q`8;GiVPCy>y06s)c<#V|5#TFU!u9W6HkMcV z-b$k1blLUgrI}Zf=#92rUX}Sx5#5y^}s(L3#Z6@{6NNo?4b z6{`yO{iE5Xm(}|8chJ11U9IrK8*Hk{<`oxi-UK**CZ+S$`B%tj>fE?+nPGpj=yB^0 z%5wIl`b}TjRgr#UkzG*f4=gfvc;7Rg+k1w1VeXs9ud>bFMfNW%XCnh!i}DRgZbsF-Mwjib?(=ogaF%gO)EIFw!|3HUVE?PSASii) zq-okXGQ%99Yz(5;7$Li;=H7x4vd|z84PzctUd%-g7T_8)P2^~^G<#3YlvtV=)A-FG zdk%^mZWgAAbV{X=mTS>NY2)O~adOr;Ie1H6tml0>9g8p@XQ3CvxICE}p>+Hr<}rH7 z(yD6A*I0+vxX9MH$QIp>Y|-t=7Tt~KP#2YI=rUk5DuUZzwprEbbQ`V*HN`RJ<(tX{1}{KuO8R& z6OW88LpiQSAKgV>a`EmeyC^5rMQSB63)k~f3<_ZjD}ustpmv3~bJTf=acq~42s145 z^ah5-49;tg5!Mk3aVyT@eCIGOWNvK295X7WYx}5}hIQyMuCwE)o>PXgB3`mHDCWsO zB?s84#S_Q$CHx2uH$+Ny_y)!y^0A$20DgBG?ihOykvs13&U zb7k-6y4x=T+|sd~bsgF!4=&G@Enhi+~)MYDxYdU zzbe6QUdo{)lWyKQjvp`vf7+&p3w7eWY@=V9C%elwu1!u4OiI%%cFa!FCOEfeFS*;> zB0S^|=?AY<39!#DnWD)+5}Bzi=kmEzIl5)4*@|Q~rt%c#JWYrvvZ>NpM>1VK8SO=> zGn_t(UXJ{K?%KN1t-ZZ%9=(+l<4(#^?f8e$kE+VWIXn~Q+kblCZlfi+=SNRoxGEzH zza9^o`9?F2sM4CxB|LVPqQX2Siuook#4BD53m=OC{K&Z_RQ1RCo}J4_@QOMd*^XA# zU(C-P(-S6f?eUf4GrA|4G>r=~pPQZ&9Sh_)de~OYQFtp*zzO8%svHe{i@8Q+#sJN% z;jWxp2>J5kfELeC!POG=+0u8NIs;?(o?6`PdoO@>JYHens5=-_ZwF4DahaK;A$Fh+ z_*jMpU1nS$9<|I~kQN{+w z^^BVtw=y=-LzwP0hef(E%nKf-^wCS*;&iLa-BOv;sNM>>7-Bp1PW757*xZwX$M(Ah zjow^bAf}0Vm@hg{FZ;|uQEneu@oRUF3oSR|Qv2H#S!u<{KM~P=vF%xT=N)A@`V(dL zyp_L*owneFSqu<(Z^jTpE?Ek;x-EMTo<#)y@%taaFNsG1Ndh5Tl8F%F4+w-D$!ml> zNgjlJ$wwKcNiG_gF8Kz48It@6h5Vh0P%Qbw0ZJsN6Yh~*LNHTOUJRj3Qa-{Q{=`6- zCuurDxuh8g^CcA`ERa-;uu$>~03wp^LAX!SOoaO-l_AtfnuD-d(maGElFAVtlr$e< zsiXx6%Ox#DSScxj@Q|eY5FVCvKf)uDY7ickv>0RXn4~2Lk4t(GVYQ^C2x}xQM_4Cm zCBg>D+Xb5>J&f>#q(>08NO}}uo217O8YMlBuwBw>gl0)=5Ozvhhp>B z=?R2qByB-xm9!1vSxJou`y_2gh#ipBjBrrWPK3jfb|E}3=_!Pxl6E5;lk^P22}!L8 zCnY_L@S>!B2ro%Gfbg=Ug9xukI*jnDq~{S{lXMi}bxFq%-jH+x;Y~>=5#EyYBEs8} zUP5?B(#r_%N_qw1Oia?N2=7UH4dMM$0!(rKgEszS@jAi>aW%YfKAI}&4TST(YWU%W zCLX?taA80VFMe2SNqP(6!^^5lK8~yY&)vH3(S5J(`&9pze%)Ww{ebQV?Y};h8H)-K z__v@KA;!PoC{@ExhWO)<@zXFGf+yc_ss7tk-Dj#kj9CgQ`E!P073M04Vu1s9IZ&ja z0cR-~#<>nuDEK$utPF9gj5%1XpqpwPsB>V21N9E9a-cy$P^?#wD>gf@RY8Gha$tu8 z`xTrMhZJ;)BMPKA?!XHQE{ir1V~mRyHS7~lE9e({9B5Z?;uOwU4JoLzh8471 zC*K*Nh#S0Rsp6`cDt2HZP3Uo!h?rU8lSELgo(W!Gk$A)`60;~#B!-BkBO+0%4Sf|N z7tIRMfr+qa&4!s}b>e_oFW!cFaVb$JK1A>x?m5WM9bqSD1uzsb_76qaNP zOJR57oH(7DxGaYJX1kEtEDdBQ;v&NTzJPato0aGlk$hTxS>WEmi z1r|n`U`M%OJN&_R)H9T!in>D^vQ>APmf59U;*uHCkS#f;8@eI8bVIjfLQlwvI*~W@ z44I)jDEmD3krL;lbJ}zEY}0#x@AJH$_fry0UtHMs)t9zy`#V9n#qcHzuE9{xWUlrQC=vfTe*wD;lgMSoXsq^Ifz zlcD|b=;hwS-H$XL?Fs)$TWs%?yj!LIhY*|t=M7`>TW$6 zIrq_;+2Q=fTDCA;5!>!qhE|q~-RHWCy*7q@F&Agb@R^v$ zPE2LN;b&qV*uN61c88(<)|(f9Z62jkV!hx)f8h3ds^vO2eo!OQT}s1M@| zCm=uE*k5I+x-m1n=Tb9E{pib={G9vu}T1J7o}r2jAWI;9%{T0RQ>w zLE)A^{YNGUdi1p?jzaaID0v(;AI@(G z|JIiJSBzFclcxOtOvBR>0{{Gs3p@W8Jv{%Xu#QydA8zjOZsH%#EJA+?=hyMv#ic?2B-DE@{DEJ`@;5g_xb|)T=^zy5?Gt$|gkKi< zu}Zdn?XP9tz_do!b{28%V+mI+8*%Mq%dWjF=W1e1zMa|Ry{ul|&6?$dEGFN<`sF<= z3)>{bvvLz#kPowE`7X90*D|K;V;<$RtW`O|g3vaod25S!t2tT5&n~1<$T=eHHtG*4R;vJxy>kZr%~dHaXa@Iw~LEX51%yJ*<$+jPG0Aj zk*uu4Y-NkmcD`tkAgw;cRmY-K%kxG%pMnv_jgO1DwErRgNzLZkqj$Ess-eoxnJH^v zHkXxe7}fs|YB*6R18g%A0a_ZW%X~V*}<*Up>$3w4Ah)(^kc&4L6sqhA6M# zabC_$=KaMsrTPkJi}}5f-+fbEDPIY7mCW*ydhCyFaMR1~;v_1psdRK5Tx@jR&KlEq zM)?ll{wR0*8}(zXVx*O?7;5;k!A>!hSM_o&U)N7qwVr2&Dz+k8c>^yuOo-4o{cMy! z@F}mWhK;~&XEIoMZ8_^VZ`WJr%4zgmxs^{y%Yws)$L3&i8(WKe`>~&y|

%DvS1D&ktJ1e!BDUYGYT7Ue5h zTd6MnR^eK!P%iar5}8~LpCB4`v_rwlBPQ%rDpx=b2U5XO zr{kgxK2B`%y*z0+&HJIwCYM%RBi75Dd!1IXS+0SPBMCOV`RpK`>z!Z)Y};WozrShk z1=x`8(0^HYm6WS|OoTU-83!#bE?^LY@=o|*lVGEngTmM~ZIejE0+^L9yvbg7*r_RAXQ zSvY4YIClz|mCNDd8z1JX|Hq~*;-qY34s$uYxUAv~ls#}1>1X5o4s8~upOLNNf^5du z*@AvI*bS1(?=3e}sr1TW=K2uOG9pFB3 z1ImLHR*@-iA1N{mTPoojlNHKzg&+@oH28?JNRXtfK;jv@9df0?9v3~z?eP7j7B)IT zBbFK{(?A{t-+1_@tJdo`KH@IOm)hVMrGD_}Y5HS~ovYyWDHR8(DvAra6UwE9%o@a2 zWe(Ck%iiV?7>?`g^Q~Hr4PcZijkFyE!P9>7@;oH^tT17-Bli;smg| z?fS$SePT(UFlYQ@7NC_T(N}ZRgt+=rU1`z}F8~*%A1N$kACya{X~`r8l}h-MNv8;< zhxQ(R$O>tEYMvM2M;Z&4;|}WKHOIo~tG)0+7k+P?r^JNPq<bJaGwVI%AZJ zR_nr(S&Z-0J-P?JIo7}nv8Grp-IOk-YN47&q1MIpK|W{P1|PHfk;821x&;56Mw7yq zaF|?gj&ECdT~CETP|O`t^iUR9gP74~}%x@=7C>TIzFZA3G^d zNXLJ)cp&@Wux}a*8|;LYmB!i)*j6JDcVC;DEC&us-;FT;z3H)ZLQ3f_ck@G8P> zy=)ghV>fKK!gptUQ^U&(E-!q!Gi;ZM3J#qiTk3q5*sOB+qFBLW+$#E1&TFk=02qRo zD*WL=gI`a0XIFuA2ccyWxAiDD!wyIbtUnt-NB+742ZuSaNv)+^QHk+D69IVrvdjD`@oTz?u0!4#=yaG zvg%^pZa66i_1ycXbHya4)N=T-h=+Sd6Emt2J{QZyadi*;aFh(wVhxCuKaA9sQelaS= zRglM@RVr+F4sZUV1wR*y3nNQUh6;I{@aDVfikMd=mj9eu4L^}T`i(9B-U|1LTX1H! z)M}nHSXmVAidS_Yg|}g`oc{Yheur-hdQHNwRdNq3uNKauT8uG|OZt7e-E1rUux9*$=*HDluyzaH=T#8n^{RgFRAJ2E2NeAJgx`dJcZKiJ zFm?0S(s5fAAG67@Rj?NG-r^8A6kS@7#fo2-y>7gz@Dk&6a|-NE5z`36!<_~gR`T5tQ40K zcH5y1J!s)lF1>J-yR;9c@x+#zmaaQ?gHI@&;sbRbZnx({Q+(W5_duJ{J%m5;lsn7B zlv{*fAQkYFqa1#PNbolmybPZgGj8}pjDCsiAf9))X{z<&COn&&^ys7fc0Yb#HJhxw z1^!YJ)K#HL>BW`h;)I(UR!x<>4^H8#se(HU@I4UDF8ut*x7fV9g3YJRN&X+J=iRs@ zyT~gTm)VS^nsGf*#{Ycd+J8^-ZyF8a?Z#^t|25w)$>qoSA!9W>IJ@AVy?n26FW=Aa zbAJM$#}9{y2H5RK108@S*v`vw=DjbQlvb3-wI*Gxx{TrV7d&x)*|)gxLJq^9UH3uwmt45cWC&mU z*${-^=EBcx7{2u41cXm=;l+9kUw%njg7_&eywr^GFJ9h&@Vi`iIfmgYzZmWDmwk^5 zzv##Cm#@q~_#e3NN*2Rk{c;1szv99#Coz2WSB;nbWk2A;uVyiP?bQr~f6awg7cl(w zYZDOuCoa6UjN$9QUWV|8T+n{Kf$L--6AeiOvLzkMqJ>-bwPycNXScYZsV@RvQyh2MrT{M|cK5I)C+ch)d0 z{BG+Jf7$a~_+7IKA=7xFq0e9TQ!W&Im@sk1eUNy83ycRaW8o$qg3NU;n0Py89NfaA zkog%Gpnw@Cckm2kUgUy%CvUsrFZ($coIHaWFIRXNGB0sK;p3R8<6f>MAoVgA zynGH*^}LR=tNyb8!G$`$h?xdn&z+F@1sCdh9y5*b?ny!B6)rSzryDZOyphKq^_TsU z3yr)DGcCNC_a*&hzv4nO4`HU2x9}8XUgbgy_hQD!TY3K(==K^HT6q{#e(vKF(CF7( z@bMI8+PI&G9`l#I&ILcuU?#xZcmgtSaG{M)U?#`|d>JzEzhwpZ3}!++$T!nV-{pI( zDZE5+_?EJCZCjRqPW+Tj$(0L69x`R^PCFFZO?CU1ZiPaJDSL84fmE*4arCWWK`0EXkH2t?L-F=M%JYW5k)qn7_uqFkrh{h=p&NIs;eJaa}6Ll z*B}y-Q^XK4LS!_wT^>b}@)(gN#*uz`0vVDgi78?l8Ifm@tUOE15%b8nynxKfi^LK# zFE0}-#A<~G*#$X=p-ssX>xe_yKsJ?4VvAt6KyphlAv3Clun`U<;C2!U;Xy{-UZM^e zbJrtTcf&1$hBi{zjEuYeh_kwl2p~#zkO&d&h^M**@m9AIKBTU?1L^aGi3pPPM3H_^ zjEEBnKobT$eHb>^B#C~crDlK_L|SW7h_7ad7$Gvq()Lke3|ZcuCB}&fViH-|K81|# zm?mZrExThD&F+{Z=8^Fo3&_@vMPdnIJC}(SVihs%TqANso>)gLJ2#NUotwzg&Mku3 z^~i)QYdbBvJ8gu6P>{O)9;AN1m#8D^i3XyPXeL^SR>Frg?Dr#$``d_s&VeA(d_W74 z?MV1Q2N5PBNaR42h#_MK;zWYzL$U{wL_acqU=Ue5kRpbN5hQmYLyQt*8k#>afUFnVghMznj~hBp{7}6q-lB2^nj$5H`X=I0=RD5MH8=s3#hTMxxn)&)-;63x%zOkMI+1NVX|J1c?yQPIM4q zB0@xo7y5^&Hcm_+ ztH&mZDPo$KA!dm=VxCwa7Lm1MOUTIaWnzU`CDtnO`5QT&!!UC^PplIg#3r#tuv?+! z=y4NaA#8+$a1sjPA-u@g@j4`XydGIS(Qqq1f2$`NFBTL>yTUB@o-`J|ao<69b6j^dON!oTrD7%;^y#LyQt*8ajG9 zONd(}bz+0qB(@0V zgeLjZCc;A4koD6J!ij90RuJDA58^-LMdD}bkyP zbYziy$2hXyF@bpQpCqP;X<`QP-akvs5%a_Xv508i`_@iEA zK3az?MC*wLWHH)|G(XXT1TM59p$k63kF;NCBLXgb{@O1DDGVVU7utyqBzz%^L@q>; zzj?PTh7QHz$VjXYY5Z;yS&H=&1Bj(-5V3Woh#|z$l|h72+{e1c08NN@WigC*jS~~Z zBr!!y6EnmtF-OcJiLM2tuWON5LXur8$hOzYR#8uU4e`eF$c%9v&;(z614Dm&lh`6m zG9=lM1sRGv^yr8a8ILQ32bqX_i3Vi#zcwOE@fO5z$E?Av-ekU&qEh!9aE*b_(A#RQV+=|e_)lE_%k0J80@aS)y98A8}QBgj%u23hVI zCB~4Io^b@e|05ecQ^;6u8fm;dhurrG!#tX~yoh{u3HKA1SC9+44Xfz#wTCKAtYA(mc~0)%f^5O1#ysndELy1h<9LF#+Gh){?7_TGA=qql)*B$|m9B;4ym z1V8TQd)ttO-T<=L8$x!Nc{@6o=pZ7?!KathfA%tZ0OAzTkiIL^#0)WuB(KaP?)wZ2D7(6Z?D&FV8FgM=L6obj z#2S%9JXhC|WB=B$fu^o*B12cVkg2Q8jqm^It0p%vbJc>(UbPVpLP5?QGkDP0qjkvl z|DB;8?SHfZ8F;jjXhsGfZ9!6xwh}(VPXv%-ZbK05OKR=tNx71!6ziYsU>I9+U8!RtCyE9|SRa}8L!=uYy-|p}G!Hk&U0Gg8xDE+|UFdU(VxQ|9g#jG? zQf12ZO>4@v!V4oV#$SO%#&wsNarGMt6Ru{HdBQa#LMds6lG9qqy1Z8Nl&isJ&AKKk z3sWxNtx!94E7Z0+p|l`DsZA~{yK3!%P?>`n&f?=Np|ppO+LHNeyP$SpBC%n zF0(`K;DtKe)yuW;ul)XM>>{Dhd-yxWb%OCU1cf?2<~v0Tts8XlJ<<+C{3wQP`Q2%8XW37*%GfpiRgL zqYgSDIq!tfBte&;gk5A926iKgUxvXqQ!>FYI7W6><$KeJ?F)n+J6s{sR)^2Wj( zHCR*`#}-TKQR|9&MO;z8U08xCR@Cd_l6u{`sus*Es-G8Dakr!naHz^?TwGN%9BM{P zPy@TX3U{ASxuu?6FN3?#;vO=HHg}!TY;jMR3pU(2-TIMv-LHKfCaiPcBeuF7beb delta 14243 zcmcKBe^6W3y&&*=j<^>|Mpz=!)xB2;12!4sv0SiGo=Ho_a-yWFtt4`Sr#O{kts`R9 z7FZbd1t(Zxy844n)qRvlRo*OprL%f(*(q;JyTp%d$qQ-egid%HGD}{_RB7mxY}75@ z(ka=}U6lQP?^jBkwy)DSv)k!CpY#2mbI&>VrzG5d@wGj#F7Mg%6G7Pf>bqQcAT>F% zM|JvAlMf4hmd>77|HFN;o{LAG=#IP2kIj5?aGxRm_x<1fFZ;gSRuS4Oy!hR&M?dHM zWV6%gu>~Kww>KW|eB|WmXwP-5+HZv+Z@Ry?FMjWp-fL0&tvJMc9*xDLeXV+Fzm*yN zG-(tEKy&gN(^?lkQ{R`K^o`bWQg!(M5>E{m!ti3HuY6NEA*6aZ@u@vU}=f=TV129M`ig@SC8uUXm9`@E*^UI zMPgS<2hctm>TxswXm8Ix78?DxJ^Qo>^sYV|?YkE1?YY)k>XwG2Hd^(sw3PkU2-I!& zUh3=Z>Af%74=1G5XA<((`(qa`#iD(W#Nx?PdLGkss{I%H?mb&dFG0G7(r2Pq`(oG1 zS9t>(oTp=b(PU3I4F)&B+44f}vAB#LODGxZhwD&I`XILl4zN4+WNGvuWJ;5sj`e>y zsXF@Cy?2UT&}bhWirV2)rAOC$52z!MvC(3D-QADg`%r0^+-TiZmCcSGzv^Y_@Ah2% zpCbQ$%@-g4!p+COz`p+J)LUE-p7@~UiQ)Q50siyF>GX7sa=fFMp zQd{tsFE}B3?)zEWOYD36ODy|eUt*t8T3}ec!?PXO8J6}PC@)>gwk|N4KV!%S7T8h# zB|~;_fko9z`Xb)^_#)oC^ok+-zZY23`E@)B|C=AJ2o|9ap7H<)yzWMCStZpy6JNwrwtb++R z^DFFswJ~?r_TQN!`*Vr!f!zBNKUKq~Z=O`ShozdGjV$bJVR2_Y%Qz3P73UGQ?rdW_ z&O4c?9AOR0A?8tzv#4?x8&D3j3D~9}o>SV`qH>b0DEG5XrJn65EzF_b!@TN)EC782 z>Ze$jdN<3fZOo&!v3Bh^^J|}CA?*Z9f z{?+WO-TWU8Ykae!iceK+7^GRbj@uxxR4Ck0A#=5&k-IAzr6swK&s131Quez~@}^JC z%4QZen%R=v$X5(9h;bd%5A&^xdS0k%f!UQy+;tx3EmUZ*`~!SPUq|`WEEy!#slYK> znd+>C&CEAo)l2e0wg%?`W7@GA>NU6Jtb9tW!gi)+KNI6ksdf1Pr_Iji47btLK@)&hnC(dw7*$T7rGEna}gb z|4en(u`#&iM1z^vSFs^uqu#qvMWYw0%zRp|VhN+wV6WDjqM`yj@4w8SX~g+I8efCv z^0Gscgim8QyKtGeTf$B&8!(yq46G}ht-QiNp@#LYR-QA|uvwUYM#Q`Pvr;_!&=p>v ziaV>}Q8x3}?R-c4k~9cUHElRy70VkBvN4keIawcc&}j$t1BM*kKO~+2g@>xk7qAW5 z%Zs#eDdRi}uL}iMSH%i&l?q1Gp1pO2n^-3Mn=5>uDWe}HJeAq{ICnz!c%0v8&Nz** z=bx};e-h`%x^R$OMXg~;Y=qsguJIM|5Y*uuRMh^ikgGB*i*@DvKObi=_we5KjD7;F z*qwEn?5wqPwli?BbQhRQc{?{%SFtdhyjHl@nd}|C{1_aJm6<-=<)e#5`5G1|w`F_( z#ogW6_j>uE6rDv4R*0v+{LaZ#NGnbm-qy9S;d3kVxJA~V-+7A$x$?DYk=Ef2zwSK9 z-3FPjRN*#Qp$gttfX9e+G9{{UiYlO}C(U$r!z>ai> z{&5e%ovZOlsfslianSPOf(9v|9Dole88(_ZP?|XaGY4R1_?q~;TM80Z*l6ZIEZ2?sB)WX&K&m0I{nZR6*vSkhR_hb*|Sm3PS+q|5zeX+TMFo`Z9i zhI6Na6G|0)1mnYO|9@=8Buyz5%x0{D7nfO@g}NJ#BAe;scctcF`dP&+Eh(-nd|?31#x29pd)x(Xzou{$AG9_(4kq23AKLF!?n6EtS3 zgE|f5Q1Ok2Z@OB&ef#%32>Eg!9HYFS#>P_mV~ji7;q@t(2C$dJh1?DG@p7eJYfQ! zn4d618lRe%r7pFWbyZ;j?eLmoUD?kh;e)R0!*RYT#nm?bdskd-WKHnI#i8qbg;KIs z7oN;ge7Ej>hxu|v9lQ|hO3m_Z=~Aj5nrRg3T}mJ4ixqp|V^%+Mm@WJ3B!3`9lfoBi zm|X9UZ(EvE4;x`GOu@GdM->~?mr1u+T))-y>j|f*y!?Y7AL+K`l}9S~)aOk7!AWsK zI{y1g2hswEecM>r;Q*|xJk}wo|L*GWf?_*vxZ?6k6+Z1K?{_do%f0P%(ZMdlBcq>^ z+vcx>Nj{#%i}8p1|EVpFw@>nicgnu?=e$n8PV}`FpWAA-Rf!h~Z_4r~6}$=assg`U z6lgri&shzPX87uiZ)$jX!R3W7cZNoVsOGRUWXn6>FL^W$UlbwF%~HF@dA(Wk10(QK z4Qa*{`~t!|+YZvZ0mU1C2tEf+X!?KujTC`jLlLbWHhns_TzP~|nCMDGwDMK3LVNjf zI|y~UpCTH*Gs|sd@v7a$A}JUUe6e}cJX+cZj!e88@{Ri2iP~yQ zZHM5b9M|{z=yc{qDXmq(4?aASb17*=tANkNDrr(X3_t#4!<ZB$3<+-GlzZl&Ebu(O;J4;`T%CQ~t z@ZC?;V8e5G`xhE)(A8c8KwM)qZ%YFlO)r$|TD0oAB?R=KE8a zy8UbEl*P^`EedSatlfB|Gz1PsmlkC4(${6xRsQyk(V=u&=_<+zk{al^V;!w2A`u8Y;&W`J*oaK7R10r*~9a8^}|i z|5Ur+!r!4*iB~hOuz6E0<9ec!|3&`hH*fH-Rv0SoLmuasC$)vt%Fm2Jejpyv9ROyD;5ZBc~lg?lJSBVTZ5*WE?{JbLK-M z4#6KbJ{2C;SMivU)br{8-tVRZ}R3YP6%t%v@bi%C&BME(nz%{+g)YJEm?#N3w z_f7Ke;UB^Tsp6#&p=SdoH{l#qiBHl70Tlzv03g0~o&b<`{(kfeUX=VEE&= zmLdF)TzG2=!?%BIy5_I^78iazhv7SKCm{SgF1)>n;ZNU5L-=hjyt9Jg&we@s;di)@ z`spUd@BVBZ;{VKrpY34y-n%;xKF@`B9V&!Bf3LOQU-|c3c+ZRBFMd7=;R{^&c>p{A z>K9G0j_+~d7XfU2|5uTuzw$*c{HhDX-@c!L@Fgz1pU1HH+tsK1l`nJQw;l~bmf}Tm zz+d?TE)?4_A#%o5Nc@lsjQcTT;v)Az<`pi8JcJn=H*p_ie#8Y6k6^~ZZ9D;)SGi#0 zY0RkH!5gmoEB}!T4nBgJ2CnjU$h^h{l}}=(i8t_65K^ymp@Gk1s+l+OHOTxoE;R8a z%y@V+--OH?TxjMSm}!M~P4sDh<(pjaaEl8vUf#<6&-g3h&)KcqhnaTn<)J};<&U}G zPCw-WR4^0Ze(t&9ulyMo{Cos6 zK_1{i$iTlZ1$YiKAs*y2ka>>_K|YI_P9EYb*>C6gVRITUQ3Ae|Oy7Jr#~+aXOjHY1 zLIv*>b5@5HDqW)c=;|F%35yeFre&x^#I^2O1u9Xo;o3N6Vq)^<6W`(~kqOy%XZSy* z3ibtyz=eW+5!tja5z9!(u|lj8YeXLDbgUB_M1j~ua*i!xo7h379J>Uo)+13T*!QWWwdyE2Pj?3cbjr%a2%U14Iz9 z)xtljBArAR;;3y$)Y=Zhhq!CQNWvW46@odi;V4`Bj%CR#Qp_zV*etsgiP*VMz;5_ z5Ua?}{xu>`tRuVoH;4kUNo*nPz&5gUUVQf2fQ7ITD&jusMjDPb z5KTlg;UQWHFVRkP5I&^os2^!Q8X$r?$3lqbSgMokLb{HHi3kxz!pCAn92q~BAd7(ynG4I}wu8DfMOL)MRt6BEQ_3f(xCMheGrNU&{+m_|ZvGsHYH+_r#Z+7^i= zVwqS$M%q@1HDs(UPplIgM1k0};`2AwwngDKu|w<<%%*n{k?}SYVIgdUgHQ=K(Lgj2 z&4h<&CA>C#{>IzdDeNG8gr5i?6Kz2vM065eM3{&WQ6fgfi3E`(X7R`-+vb3jkZT*n z?9PcHB8}{x7)ETq3^9T@d}BznZ=9GQCJ~P>M@%6R-!w5p%py_W95GKUAgQQt5smql zkhpIdX*#(=tP*QPo>(U~kmi#GVw2b+wuv2LmtZye4kBSfJgJiw-IF%LL8yeAXh2#| zHWAH)hiFB-C%r^F(Lwl-_LF|3<75CaoeB~m#BwUtNp>N&Q(+=PM2Q#?M>h$JyU z3=%^~*QqoyOk{`=VvHCkCQ@kl)FhEZR!>b4)5zMX8Df^0Bj$+(Vv$%PmWdT4e`*!U zoL(dH#5%E2gU?^)bOFPW)0@N=u}$m{y9B!fdXAkI2@_!6Za3J*q*wTGfajEE!ohY~~* zNI^J2;UFQ~l0UOe>=3&Iv+HdlVbV#Rv7qZ`Y{XUB+fVuF}Vp<`!r#1t`&teu@9W|92aIbxnzAQp)w zVwqSWR*5wtPplIgM8S^FU;gYShU;gyh;3qr*d>?)x@?>k2@_#K3TJJE1KB*QBJJng zNXNMbBzCSD89V18S_!X1|NJ}Gj^X&Z4#G$Hk%@Cn$mF>I()?Hu@jMnHI*BeKOhkw% z5hLP6f=ChrKng}1#IW_TA;kOG7?KW;6BEdAcoNBkbI3+`3MquA5y$x%VwRXA<`MP$ z09McAb^M7)$oOqbS?m z3|`tLm=mAB!AqhOaKuc61yN%*!hyJBDl!>!Be_@u(S%IJJc!VWWz%IZ;NT6qem?Uy3a*CKHW{6p0j+iGFkYLXu66#qZmXXe$RRn(jL%Dr5kL+CC z&~pVW)x;*^PHYj|KnlWL387&4NKBa6udkwlhK$pPKu zATdOwiD4o`j1XhQI59y?5;8UMZo7f?C38vv7Pl<$yuxNPx*PgOb=pa-i|CF0(AexZ%r<#dYMDSuM z4s_^&4@-3*pa(%LJp-M3(1oRMAWTH{Tnx*^Ks<#e2NFb*7$63TA!J}+7!fj9He4Um zgK;dq*C&wn>p49)g=O&iG!nW#L(CF$NaythL|DXfEp>fak5;hUyuONTU0);e#5%Hl zy?_XtSVo`TLSj#EBbldnkddc%k+G+l3mAV|Bus=25gb_hpKzO8u!p}4l z9whQiD-wOiOSBUmgdY(CScV2edeEu242Ja}f@OLziVP3Nh&YiTlEgqaIf!HihlpWB z$YANYF{TIOSO#xQAfX$RNau|yy=fZDnHw|6?2S1+H;?7YjRmA|<1d$PzPQ8_O6tVJ z!qqb~a-TFKcZ$VX`5mKhRhW~jjPtV9yeQu#&B>oH&cn7S_kcZ+>w{dMaZ&zCaSpb5 z*p}pP*hJy#(G~fxq*eKO^NKugDCXr=gE22B#NvuPAVPjYf*KU-@&%){g%@PmxRa9a zmJ0F=FYd@TLs4{II0(a7oDZ9A&MzBn&XBoiak4!{)p?>`XsK~K(`L!-^zSJ)JD)uW z39oadO7c2)tBPJ{mj!B@7O3rDO{^}4ofke0og&Wrq=@s~V$A90#+Wn5i*e@(L9hx5 zr<9Ts&aV^)armn>Y3EnXX=k1nGfu|egv5yRerd!xWGLpGUeTCy&Pz}mG(yc`E>1Wb z%*JV_$6}svPS+HtoxVGub@mQu?QlSCS%z9bDXuu{t%6Xq4r3~?nhob&(x&r@aTDg< zaHhTk#q*GO-niv_PuO%icySAh4QD4WZaTvp@?m%moN#)!u-I{)unN|iU1y85>$JhY zFew*WtXFGH%2~;+^cYP_m>1nxG${4(Kc5#o$_cC0TH{lWN-d;u(6qy1*r2LX(W_qg26XYM-!l8uoK*CwVkOj~mSRBF7Z6k>DX6|!>{9gu39Btq zSe=E-tqvJqf%__{E^#TTb{dLFb<-eCsOgH7c|u(mA)bhxfPPWC zGzNt+sm|MrV_3iv95Cpx!REKLJH(U!jpBr*ezzJ|eZpjU~p*qM7rRpGQ z+6PI~J{)i#4!92otj7WCali%~umM)o(NJ7d*BXR1b*G`2S5Fw>Zdq3kOY7?OqDQO8 zi{4K7iIApWmrhNRI<*&z5$(cLZ~+Ij6-gM-cBNucOAS?;lUl-9Ow%4C#H4ls-b*zz z+VjR4&0;9dXh8$iHY(Z+B_2M#2v8ufyEo-ls*R-N>RrB-W z8Wzi1nnTk#m)4+whA|Nupx8)haQ6u{+uDV#O1KM|Ys4UluBHkjb4?qIA{G{xeq^fa zolnDrZr8(-*Y>w3TFc6oTw>+*49tIKPUT3yqIVykPZ0%|@H8?Z==(035-Ru`NL z0sb)vH*+yaqXxTN7rq9=#$B(NW3GQR##|XgF^)x=I*hnZ_$uK%kGbxV##~Ljn4|nG Nv7lq+xWtyo{{?)QdP4vJ diff --git a/UnitPrinc.dfm b/UnitPrinc.dfm index c81ad73..c5afab0 100644 --- a/UnitPrinc.dfm +++ b/UnitPrinc.dfm @@ -1324,8 +1324,8 @@ object FormPrinc: TFormPrinc SimplePanel = True end object MSCommUSBLenz: TMSComm - Left = 1144 - Top = 120 + Left = 720 + Top = 144 Width = 32 Height = 32 OnComm = MSCommUSBLenzComm diff --git a/UnitPrinc.pas b/UnitPrinc.pas index d6a05c3..962386a 100644 --- a/UnitPrinc.pas +++ b/UnitPrinc.pas @@ -1300,24 +1300,26 @@ begin i:=1; valto:=10; //Affiche('envoi en tenant compte cts',clyellow); + repeat + timeout:=0; repeat - timeout:=0; - repeat - //Application.ProcessMessages; - inc(timeout); - Sleep(20); - until (Formprinc.MSCommUSBLenz.CTSHolding=true) or (timeout>valto); - if timeout<=valto then - begin - //if formprinc.MSCommUSBLenz.CTSHolding then sa:='CTS=1 ' else sa:='CTS=0 '; - FormPrinc.MSCommUSBLenz.Output:=s[i]; - //if terminal then Affiche(sa+s[i],clyellow) else Affiche(sa+chaine_hex(s[i]),clyellow); - inc(i); - end; - until (i=length(s)+1) or (timeout>valto); - if timeout>valto then affiche('Erreur attente interface trop longue',clred); + //Application.ProcessMessages; + inc(timeout); + Sleep(20); + until (Formprinc.MSCommUSBLenz.CTSHolding=true) or (timeout>valto); + if timeout<=valto then + begin + //if formprinc.MSCommUSBLenz.CTSHolding then sa:='CTS=1 ' else sa:='CTS=0 '; + FormPrinc.MSCommUSBLenz.Output:=s[i]; + //if terminal then Affiche(sa+s[i],clyellow) else Affiche(sa+chaine_hex(s[i]),clyellow); + inc(i); + end; + until (i=length(s)+1) or (timeout>valto); + if timeout>valto then affiche('Erreur attente interface trop longue',clred); end; + // protocole Rts Cts ou sans temporisation if (protocole=2) or (tempoOctet=0) then begin FormPrinc.MSCommUSBLenz.Output:=s;exit;end; + // sans procotole ou xon xoff ou xon-rts if (protocole=0) or (protocole=1) or (protocole=3) then begin for i:=1 to length(s) do @@ -6580,13 +6582,21 @@ end; // initialisation de la comm USB procedure connecte_USB; +var i,j : integer; begin if NumPort<>0 then begin With Formprinc.MSCommUSBLenz do begin - Affiche('Demande ouverture com'+intToSTR(nuMPort)+':'+ConfStCom+' protocole '+IntToSTR(protocole),CLYellow); + i:=pos(':',portCom); + j:=pos(',',PortCom); + j:=posEx(',',PortCom,j+1); + j:=posEx(',',PortCom,j+1); + j:=posEx(',',PortCom,j+1); + + confStCom:=copy(portCom,i+1,j-i-1); //Affiche(ConfStCom,clred); Settings:=ConfStCom; // COMx:vitesse,n,8,1 + Affiche('Demande ouverture COM'+intToSTR(NumPort)+':'+ConfStCom+' protocole '+IntToSTR(protocole),CLYellow); if protocole>=4 then Handshaking:=0 {0=aucun 1=Xon-Xoff 2=cts 3=RTS-Xon-Xoff 4=5=protocoles "maison"} else Handshaking:=protocole; diff --git a/verif_version.pas b/verif_version.pas index 695ee14..5df51ba 100644 --- a/verif_version.pas +++ b/verif_version.pas @@ -23,7 +23,7 @@ var Lance_verif : integer; verifVersion,notificationVersion : boolean; -Const Version='1.7'; //Version='1.2';// sert à la comparaison de la version publiée +Const Version='1.71'; //Version='1.2';// sert à la comparaison de la version publiée implementation