From 0d9539dd09b73a5e5e38a99d1bc69cdecf7d5cc4 Mon Sep 17 00:00:00 2001 From: Furrtek Date: Thu, 19 Oct 2023 01:30:32 +0200 Subject: [PATCH] VB6 app: Added image position controls VB6 app: Added window auto-resize VB6 app: Added data size cap --- vb6/ESLTool.exe | Bin 57344 -> 61440 bytes vb6/ESLTool.frm | 257 +++++++++++++++++++++++++++++++++++------------- vb6/ESLTool.vbp | 2 +- vb6/ESLTool.vbw | 6 +- 4 files changed, 190 insertions(+), 75 deletions(-) diff --git a/vb6/ESLTool.exe b/vb6/ESLTool.exe index 47f3641c3efad5ba830e8c11e3c5844d152dafa4..a283b4082eb9f7975cc188c84573971c01bc4ac7 100644 GIT binary patch literal 61440 zcmeHw4}4Tdwf}4qV1d8}NGMgPTTPX=6oEj?U%Mn(3T?J*{(=??Dam$|h9oY#mHJ2x zCabwzu1#CghZdfJ;*%;W&qo!I%C^KNRbCq{LRx|^_MvYns8Rc9syy%Sd(Paudv^&~ ze^%?~^Kz4!J2UspnKNh3oS8W@cdzFYts+$jkp`#hLL9`ME*JY(_qy<12y6$eKC z$Mpwo1^;nmI; zdf1EYrx)*isl{~9ABeQL5TE+p&X!!<_kQ;n$BU}g`3dGq6nWi36xdS5r0N-!CQP4j z*hbri3$Y(5Gi2)8iMVILMJVo)VZ^EaLfDKug8gtvfAuXPQs@yy@E^Y$QA)yf;M+n> zr9ih3(=sXW*Ijc_sFP5j%jZY0>{3*E3g=OY!B`Z{CwH&!0+34 z1s(+aFA$%9tUVCiy(>@)*grkDE3ov=-GPjIp9<^*+^iq(3j7v%ho?Rj7@qc2;H|#) zz~@7I0?XDs6}TRGf4%Lgz(?zM2i~~vslXo_Q0|lMfsBq_fp5OBD`0=$?!f=HZwt%@ z{Jdkk0vAz!(cQZPlb+ZexB>KyLfYp6-wS#lZ+j{b{!)8jEol86;{SQa?!c6z?Ez)@ zQ-Q-M+w+;-filPLzy#p>1aL0}OheV~!0N7Dftx|Y{n7To6T7zsZbLoh1HN@U>IHi5 ztl1sdJYjdhhI=j2KaTRB{$J$%&91`fiIt!wJSiP@c}H*KXi{vRKwj2 zw||_AC5B7^;3!`BPcHHAa4X@)Al|k~qT7M{ zFvS1RDB~%cWqf^;jE8Wi=UvS*{xa?(5#JJ)@kjZdk_S5T(&CmEF{#BRvQYoxMr&&azHlWC-Pk+@Vyc1j;G3oowzsk53fBW9V@_zkv zBAydpcZuyucqSo@u8Br@U-_0xw7^A@;5xo3;jDB8zU>mxB)Dh(O~MgQy7U{iXSm=; z*%y#9{f3PkUd4Vkr_A7RK8H7Pcp-3{Kg>;iVkz;_y`VBNB#vCqJ!W-_HJAPM^g7Y)+ZX{v}SyW`72!2o4vp zKbKQxbGVhmOF5j*;Z^K!<&=HwA7}pn`%d;7*S{PyKR#28KlgIWO+P(&eA(`={!c~jopt}# z(AqPr;0L9-PdvN%=>r=NRLo!gjhrv~ULN<|bn!K@_Lawta;|#&B8;`^;{Y;3ED5al zlvmY?F}4xHEc@D2ktaTA`_Ky+Le#*}`hDC<%i4s~Nq48%ixe^{ll2!#!Uad^bTu+G z2Zy{N4h(VNAA|!hz4Vg)UO1{gRN;GmH8wWt}hX**B#-#(q;1AET7o&Zo8|M zpIrZUyKKVuk6ixWlmFJTOnLZw^51M*vuso5%=V$X3G;5=P5dTKYxzUuusP@efx1-&6jq^)|!F_5XX1KPDaT#U1VQp3MQM?00(o zrM!8kc!%JIIPia&16S);jbu9bD=)&KM^dj?O!hFbq%N?2rueX!^90KJca-?$EFs3H z3$Y|cw@pLZxKS{Ml&`NWs=D7F6sb5v$I+Q$*hUASho2fX-X=aMblWWeP9G`q)>o9) zHLQlO3(4zrexBk95Z~6U|V#KgMl>Tz+0$aKb zrlARGWJ$Rm`Z4t*039|$lxz%o>o%+uDQW$pJLUeADLBvv!11Z#hEzaExD*ra;|w=9 zEe@Ar!rcbwjNzi7{JzSX9AUFvBY?LmSXEc+^abkHJA-xgx71Yng7aZH7Jasl4A;f@ zk-+~!SOa7ZgM6Gpf@usg0w6a4%NPUXR)7o>RDFh8 zD1KuDqTxbMNo@nzsNrH=-TI1}`-Pq*JjLKue$D;Uaa&(kn_pF4Q+L0(r66~tAZyw6 zd9y(QHUq#5a-Un6_O=kiVZ@fEDBSoWnM#94_oQnv#R&(hEp8Ii#eHJEs2B4nc|Li1 z>IdLM0!pgZR|aN^(Wz0CG=kcVE#-RZy?CB#7v8FM!BC)bCV+vfF%3@}hiw!a#f$2L5qULL>mHy(q4hEw8o;@sGUyDk7&+^W#zFBUG^iyDU~XNK zG>UU0KAZV+>iAJCjZT234HG3e5;+s1K!-R#W1nIhKU&;C7Ct={#EB6`JIq8oj3Yar z^S<)HIvh)N(h*5+6Cu7e3~e$7IY_{V8#!hn#~4u@EDwe@%y$-5mRCGPZ0k<>Rwkg+ z(Sj+%t^>S%q*z~B8(QP5s;LwcQiq8TFQL!~T~C>c$0O6_`Z5AnDH=3eVX@%JNPGTan6;tvUw6YhFA>R%s%%Z8&~ z@?kjY`^2al;i&a*hAYdRbAA5@C>FmSjt3DMB}Rg0=9T?Xm-zAkEY08>$tlDY&L+;` z-V2`f-r^E9sMkis8{t~u6u9Kev;&*>m|+-z!{H(YE?ACX=Uyi7*~YzNsf=$j?z4@1 z{~a=YpK)Jn-0j9avP3=)8uw|&z0WPvcNq7T#y!Khcje3HXI=8%iu+Pj+O)MN*Q*-| zOO3=yfV%;10Wk?z7;5Bq7vGoh)Qfg;^GBEc@$*UX=jY9^zd7N@<5V=jK*+P}zimJJ z(Z+pa3cmJ>;KYMx+D}()Is8ArEPh~lWAw2%PP+fctpo4CFM)VT^V=_vfO;Ls-v7x> z4=;cE`+uz08-MV{n=)RR@VO;F$@|KIwV!is9lxJwSUY-!lkV1Q7HX3xX2Z=DvoH$W zg76G6Q!GYkCWmqnS}bw^F%O{`fSZB8St1v1383e}&lP#gJ^2N9Gf8242A!JIj|7= zh14f?DN}Z`SGZV@6WQCKGf95vTD#_2^osb^GtHj}zau z`5_0UWL)|6V)19eMY|(T+XofC$3l1x9Y;dK2*5_tp;YHqz!1WvH)DkNJcM0*47Px}BXuqdxho|2z(+O^s0cW?s`3<TrMZ8PA!fTMKsHv*32Z=410O~7qO zeOCgG(useY09S#y%>w6I08W6D0_p;A=_iznH!;HT%{=v$mw3UB{avT4GGP=-? zKZSc8?r(YR{R?RNThP({H!go*5d6E|C7wESF7FE?jXt+@kY^_U>aX(5g!xMKbn&;B-}B?F zgXLMH1kKt~dERU0qx(k83uxV*4o6oC9LW{U1utOCw_a-j3-hDM#+^9V)JU^yA$DLr zPwj6K7Qxf4ffsSUlZ3aDia6f2- z4R8@jigzI1181Ho^VC&@YG53b_gOJBLh=!|hd%n#-PzG^-gWRB?#4IzgT=}Ao9~|a z_3;zmJhJ@JGw*-BcHPBkZ`_@Dn+xyO>B|dpVSmB81N@>eZGE+9S?^ThsRF2v*&wQm^yS`tlcbe$!{>q+U-P6x|P(y=`(z76{@Y>-LMs1!0^ z)BPt&_~I5wybDf--kC!DE(s=XsTQI-2{#+?*90-&@w74D?!HV36U{fy% zl-F)pUloK6Dz~P5L$ERc+fC(0Z#fnSp7M>NxH4#@djpjlDrzfb);VP5 zlGjbRErSK(K~au%K^4{-PH`W?0oWnx5UWJI0`VZ+bin>NiI0R2C8cBUyS*`%O!$vFyx9i zkI`LTyDlLzIucCL`}}0vI@p?tPTZ~c;qkR_#LK}kN}OE=PSN24w7hoN5ixL*-OP&f zW3WJyy^}6GR%Ajv2(jNdeDCi0pR{4^BWuWyh0V}iPBART4wF9;gM=F=Z{p`kyu26b zC0NA~&#%-5PFRdWuoeXwh9E1kt|~`s1<`&FAwE;w27ev!P%FwO(h5cGH!?{E*Q|N) zzVapYMG#$H_q!nrvgNA~x*wRTP+~bkm0}uV^(dthak6YV#itOeLdnzlkE-=*Qk~ER zVs$d*$cfxl;?s;F2q|*{15sLw^!1F-$#&m*JVtRYEQ|Fbz~w z;z!Wn9of%_(g1K1eyUFmQr2-9RC)+c>yb+KI4WzFm;+nejV$3LaRTGTDELDB3!FEh z&X?2r5HOK-&&n$b*CK^ls|KZ18JwfiiJvu$lk(h$5YhO6Q5)i?AL$jye!X;V>$xgobR`WL)K8xoiz>>(}3dT?g49=t)O6uy+x=!Sw7O3Pf zwK?&!*5JGkVXA@2cS!@qsZEJ$YCCE-Khv2G%|lnZNJ~p+tC)aKVa$ARO-4AAVNwWY zS{izu9WI@B1!!*|Ese(U^&1|%@4@x>jfsjHGG)NNgZh>Syg}&0efcgCfumMTN4GYw zU73g&eVlCM);>=B%MDf4RFJhdKQDJN;-r6s8xD9TS@AgIc*y2%#Y1zFyqe1L0O4^5 z0(GE=@GLd(WLxn}i{l|1z7-E~DX*q(L*>%)+6rtK5sp>^#|$fuxp5q{A8;9tKqWLQ z4e^T^#|Z<+LMx8^I1budu;Q2iI@}x9mDg8Ng_eYB*U>(ytka|=E<8;WORc!Paa^=t zVZ}wfq4Byr=&9VW0oz+(GS#cXz*Azyvnq~<_CKt6h$iTGA_!Bc%Jp&=PU6~U;96_N z<&Wc{Jryf1k|hHdp{YcaX&Nx_)L8KZ<9KL~W)M6D7?O=vr(G!08&YpN4ZJSoBc5%v z;%$uMr9B`k-b_G)zU2>A25QPN4X7xp+z`Uc2gJAS2Cil+uB~xgw6A2v#q@*%_j6Mk z^qe(tv|4d&kK>>{Dk}~e!)dpZcQFkdQ{JGb^5qI3Ait)rEo^m@fwmJO`|Jj>PfMew-E0D2XRjPZS}X0#{<(?=tQ) zaHos-e#yWevEuKF&B${!EcksbDMaA zam4b;Y`kBaJjT!{CFc3H^f@Ty1C&xYc77eA-*ijEhqdSfEPKFn_ z6J|LhcqelbDi4cUesit>*l70TManYXnULirj-S(+@+#yxmsI}`C9S1Cm=ve7rrrhH zGaOwcOC`pEo0le>{(&g&L|Hk#iM#r1fGWf$+;4_>aME5x%2C(kOJ zfG7Ul4oA9A=1Zg&$%5ys1yI<_D)P!}Y6>clMm+C97fO02<3+PEJuvbi$7SW1Rmgd9pt5rLeboh38-g+TB}ijz2F$Wr?F!N37J@=P4dW-XfyK*n8ESy2ULChJgN zx(p3rgsFHLMtKQ*SR8mLAx`x~-D71h#gY<(PoBSW-2>Kif&;D?9G*eH%Q6ZoYjZbP zo-tj#HVse_7~0OTo`NZAk@!zIsTdndFF%J770WL|_9R~Ymc z%|*<>xx6+J57SaBD?*K6Tv8Vgu2Z>u@V2C`w6=;)CLxbZs|*%Dg!R8M$&AA-uH68o zMSX}a8YA=2v)1EpIcri(-f&TwUZl&_k6fqFnv&K6bln7(oR3yXd91CZHeLb^KzjQ| zz)rmaJn5n!ueD5U1btqWV)lqVOMsn!)SjQI%Va!FUplSpG?ImBlt{-n(YOHwT@B%CSI1h_JO*zUoDWX^)#^HEdkW4JR zLO#j;<*=X8SW4q6Sr%xvLfFaDK&yW#iyyuM4wDXRpR)E{^EtAMk6Cc6K#4RCOP;=S zO04}m5l1{`rNzq2I7A{XCXIQRQ(Z2V9<)8#64#^8%AQ8;M_kFY)W?bg$--rMCZ(?c z^{qAP>jnn0=n%I}$y)+`ll_Y3hh(Rae4ltlJf`g=-s?!0(LCrzoZxaAVJFUzQP|Y8 zv2laeW9utrdI3(YE~(l`!yUuPa9*9E@{wKaDa9F#l`aYjC+>Djn9?RAPU+cjQ;lcl zSs|L|4`6R4exdD4~5yXonKosywp^d{CaLVSg3-1?*2_Kb?I${OWQ3g)W!S zN+U&j*4_;KMvhI-s=>X}eSn&})4h*oLTV^od8P#L-?O`Lws$8X)7<;K)v20B;XD0GI?5u&cB zxp#OqjQ{{giA7qt1~;#s)d%YEjA~V=XVEWmAd!BOf| zv#Dd!8F#NbhkxzkP3|2b9)EAlSP?_m=SaMr&3N*rBgTstN>FM+sp`YBjHIZ1W9S*%5ar{ zw+D^HKd_QjfnuNZH{IhB=WoC0elsnYPF1bOyBTYVpfEKZ8kU;b6b=#?&9ej4?<=Yv zZjv|oSTfH{B*&;bWO(%=yXwwRJv|EUZ>pZN6$;tR#F~5WQGc=e`E=3B7x%aHLHb+M zg#zwuZ+5x|BGlP*rQwnqvX`mDb#GdAistF|uUhO9g-Sz*>^AD^^qdzJPt+Ga{qQ`; z(YKrQaeLbDjaDT@27yD zj;WTRiRou=Q1C(I7QR$>m!t7Tgn;J!cYWa(9bagsboDvkEjHn3{3buzmvh>;pyxB| zeK-He(fA}iZ#oB39!1Eg5E?*Ms8^k+l(zfS^oJxdYH7Pk&tva|o@4bNQ+rhRzVl!3 z-?bV|@9EIo-G$Yl59}mipmy}C8QhMSRL_Mq_Zlt8?S~hIvgp@+uF`&!V(r%rz)tri z)Iu;)J9H(~nL4qER2}_PP*cRFE+T#4Xxt1a#eJe$oOYi$v-<2A_gVdvx7t=cuB_VT zZ^T1Ai+*BA9p2P2IUEVz;A@&|3w;1!Y7hGRU76~DnwN3&+Y1H)Ca*fro1w94Vfq$N zMoW6iRV#;AU$}CRP+31Y6tI+f52n3e2xCx)YR~9;teP3)K~~7FzR=WXQ{0!De)*>| z1<|pn?I9b>koN4}Kk9nU>ED0d_w`uP(zj>~NJ#4cE%eOlzJ#>suV5`*y+0wX?;NT1 z8sJPw?)e2kcltS5*_jXg%Fem$&t`uH`%d;V*ca^gUnIyr_Pg1Su)m-EcJ^D@Z)Cro z{k80S*`Lh*B=$4d&xG&$y0WtwH2M2s5!On(jB(DVOrfJK>hLnX)s7KI(}*xHDJyE= z0WC~KdsnE}=#RCd;TIe`{W>}s1^q#E{S{^>(+CdP=m)5Be$q5B&e8V#Td!%H>{I`s zXSG1GBz8TEez(fE;E#^xJ;1~IT`G5Nfauli#0hN@e65Y@s%gxpa6df_GoQl5v(E5# zq_lvH&M?7|>Nhn$!D<@8dbKtJF2vADXsTz#R6oPC5lo@R2#aJ%Uh5ce?xFEQs1wWd z$A~{(EzAsx@u!XIU9>`V=#LUpuE-yT(=^%mlt<6n2rj6@HI14@YojNHMQ8@vgIsV7 zOr}7BCey+Us*$i!6J>(e66NLWRT*l*kAhQuP4jG_52~NcR2OHci%4_5^|J;20Xups z!zj-LLBRP;`7D+irc~tr2rpCw9je$u$mu0!Z@B8>|jNF-#Aw#ex2w_bby zPjVt}y++AN31ek~qqz-hWFFYY>W^llM6Hcm8J)!F1{(FM!WHTWy_M#mMl(~;ABFtI zy8*$;(Lf4&i+jJ6cNU?v%SEVPYooqeR0bvWXk#2V1^rW9@p0_cFu|#d)!<62uad`EC|Log4#t}{<9vd`f3__#do{P%T)S`sRb5xi3 zmr|0UVywzT&uWAm`&3UvS$&oUXk~TO(fC#D3@chUiq47n7Cfhf>p`;P5eEwMsmv)k z(0>MSSU7~c0I58)5YMTnJ|UT`T7ks zFIB=WE{gm!JLi%gCck%#eY{IZp0|#LMm%L??$P5D{pSYk29nu~g#0r*r!f-pd&h_v zlDn)(`t>ZDBgAI%nD!fprZOV(&+K$EBJz933;glh+TMPCEGB)Nu5j9wn@85McT7Ji)qeFlqyE5d)?YsJ$_Jmi z(t~^X0b0We0h3MaeRbz#t{XRSn8HY!gqy07Us#=j31~~aRVkRzt*oL;lPPAQ+Q0cv zv{h=(kz@_@tOF<*K)u7FRF%>bDob=r+APe(B=LvSv0*2tv|*B7N8>k;f?8W7I_LDc zkNmH$n_%1%8b1fHbFW{*e5sgbb3AvB&FGG!T-AL7Q@YOZ9$=*cw%A*=3KG0AG|h%? z{vhk-$#OK|aU|WC4KsxL!uiBF=6VuAgI(FVAI#!;UsNqUtAzI)>Q=7|z;@r4Gk?s>)(q~9Moe5JNdztPtToc)1c9ebY z7HDdNphY(Euv5LpyF!2L%Ej*@o~w&!ZjQ;feo6^v0{Ln7&+KeP1=~OyA&-0QM3hol9|(CiW}0h zlci&I1?t?P%nu`y)(TfZJxEgCjsZVPl7FuqbHTNbO4_YlYeGs8u?-Jdzo=( zcJ2WCBqgt70(&M*aY+wz({c30FTVA*+9i1@ANNk_Bi#U|(89v#8vfzXq?_N?h2xRc z2x@IK6@j@3=rFIP<&3wmGfatHXr$<^(+P%>i=v;HCLm}eCx^&nrJrhHI8FL;zNxj* z>ZhY0IzVTx!PEv3ALemXItXDvnk1Zik`eMIW>n0=$j=LS+Sb4RVUFy%ST;Ue#u zo%AsJ3G6C^x0uv0&20oySR{#vp20(n1=lPu`a?=8-7j$!d83CBcO2DthN4|Mi&D7I z(_s#CiLtVN4e}jFF>%laEPxzN1pEO2&G9CEkok&S+sHW;iGA|a-<-Foa*3d4wW7_= z?6jl8XTs#`S+j{_%mS=GkP@rlGU73>od%iNOPj!BWUEhFj$kgy%MqSSUX>=ftot)G zX-t#R8qsH9WWN$kiR3F>C1oeAJEIRH+aa20#-z#+OloAb-Jck(wWNgXx6|VU<|I6J z(qnFHQy3B++ZZ{ORBbDaK2Bo8)hUYJecI*mXKr$K#iu|LX4t_)<%Yf!XirtQ9VcWQ#@nR zG77qoR8%Aqwvc>EMesMxtGBx`JMkwt55)QP->O51i& zCoM54E*cQ%r_E*AkZ-^gVOqTvDvyml(ySkDM;;}-pZy5=+Fte#vfl;&AVx*>CjwOG z&~K(=K|l|~_3W=@-wR)BBQ)rTgr^9MAut&GrTIsbEb(@RTadgem)N@zq3s;KN=umXLVK$J9A;KcboBA3F;tF}s9u8h5!yE$u?8!o~~Y73)BH ze08IBnm8BzGIjPzApXznKWx5$<$>Jqqb&&Mc+5t53u3jsSWU$iggUxdY3NlNx|N15 z>_I3E5vAdX(r{2|IG{A_R~q&y4SSV_JxW8n(y&8m*se6RD9>(0>B_Ty_AA(53txZq z5@yR<>2|Ma^yy#0#)wr5Ie@3a^rJlhSc%jjbL(Wy`ymuGF=3hFuccs~XG zlLkZJ+r{*!pqP7 z+@AWfmbu)gHhWX>*mp|`mOCE@76}eZeoQyJPhc*+`EA0YXe&{G<%xmZ)ZFe9a@~ZV zI788qMVu$>r99>uk7Me~#U=&n7@|l^^Qxzy^3&|Ts))ee$x9&qx!3Kfr?m7HY8#cR zrQfM$5iE@iSjI?108<`u%!gxvTQGfM8p zT7|n@ff4IK%wG>UJ7s!d@l9`w>2X@Ii!+ARIxs1K}>H2sD#a5wkT@ToVOIwt?FDT%SF)Q%k?Y zr|!6uBh9J`TO3D!R9FP{i-zb7Q$Mmpxb-ah2nOcq zh-;n}s5I(l(3SkQy-~!I>hj$t)_N={$rvl!6|!(}ld9;e7ZQnFVcM za+2ebuOX^>x(zL$B{rC;L>xztao0BE>M8E3NJekfGMCCeofFxTHVUjG?f6$Uv`=j# zN~sE|uQ(d%mm<~I&MiX{8p-QV$L>_T_mZr5y0tb^)8C_M3gm7lMWTMZ7ppF!udiTC zMuO()g~-t(YF0`iUKqd+VBU|t=W3hRp9%aJq)vq+A*|{fAs*+yudcS68^l-vT#t+j zb~0K0LiOb6=RW-hP&cTauh!Y5elVPL1NAfV!Q?2u0mN?GD`aI?Hcl;CR zyay)$w9r=Fxs4Pz-%#M|1a>ot#HWQv6XOvPE@T{nZBD2s)PaL^ zw#Hv_hf646e1InFgI4@DC=7qd3&JGhxP5sM{cDns9OF?$SKRp?|ueT+DjlhzRP@Is@8UokDYn!{RPdhrRkM zhog5=s1Kn?9)-^8uiydX1^NpD6aB9&WI|^@VeFL?iF`=G5Q~0H%oKM-b04f82aT9R zi_nG>oo-$+;`|;;Q?JuX_dNU$rZL^3Hu;(C; zm(UqlL#Qd}Z(J0|{HnXJr?OWaT__FZd3gTnQbj7n?%68>S&EZOw_Q?%>d%RK< zm_-l?nw=p%r@JCZj@|5;&V&AymgW%=M&yOA|yc6D&uaqzI7$p;6s3rVT1W z=k9IQb@P1HpyPL3e%4-DesXkQ)5Ei|Fppk7poKD^4m#c4G&SJm^#OzK(L#Qksi&5a;1KV>64Q&eL|B2h%S0tA9^E%GWyXB zh-WEuqP2sknH?N#gtDOt8+x<$VkVbhYTguOCx;fxH8L!)qO*nPa(Z^9CUWNk7Inn%qasx;NKBO4MrhZ z&XlYYQJRS|@kd?o1zS-jiXNYPbrlZ|sB0iV-yVQ@zZaLS5@}J@TsiV9&5-DvuQkR6hE& z|6X)AsV%;X5YAH?+CLMb$OlC!kYL$_pvXD&ac`%)gQiiP?jyuZ^#f35ec&h5VFb5A z?y8SBUvk;Sp8WS>6VJAD|0_u*mWI08-?P`SzPQ`-!8UWH20{DIs1BAXA}rq773a zEQBx&ZdIP$gn6g(EFHR5o+UGk@@xV7OWCI-tMcqz_~wfNE2^*K7In%|p~ox775x=3 zY^v11yg(sc5}T1?K5-nQjuIwJ^A^!d#t>(^`IllG#i0`(7Ac|A-Ar@yPCmL$({;?k zY^*zFiFBa+72rF9Wlk5Dhx6WS2~pe!@VbH>SyTrmB1M?*t0(07$`q9?c1ms@RgCc`M0u)&>Oeh?e3K>*CfA?9l|HmlGv4eFnaeY~H72?bc&w})pH zQdZOv*mMG|g)8*d#&~`TCggvWZ4FI}1k{@d*?XQLaXUX+=X>-AExP{d>OR?{m#5M2 zbwbvKwg9B4T~5JYR(8*n2s#gM8iq!&G30y-&P?|B)B&HYOH7!3VcpUEO;n*1?}Si8 z(A+4^>;=p=hhN|m$~am>YSCaCYe=h7iy<5g!K=fF9+M-(dP03Tgc0hC9{Rj_R$>WC zlzRA4Qb9&3tc~7rDcGJx1?UXW)mm4!PS2Dhe-VeiXyK5#M1){buO-0(hx+p%R)2n@Z)<-ae!j5mMvJ)&!1V}1Cv%J5= zY7OaR`)=x(%5y$`H*V0EfH20cY^GH}{CY?0$u1gf8|-SQ@uJ0l|7nGSr~~6HEYS1T z%#N)lmDN3t@N3lK*FfNny`5f&3oj4*{aw_y^oGV2j{VZ)l}FJjWPf7iq`0GO!onoj z@yJ4;_S*}1c4iu@U{gQ=rlE@M3VqVzcQ_M}WOU#S4Z}7Cxxv{ecMoJ!L>G+*sr>+X z>u2x3xa6&$$$XHg;Cu`S5LVP;vN?&QK*E_pbgdpe_z_?<@D)bWuZ^EEfSJn&dQpLM z^GSIQ#u99I&G4@RnT43!$7_K)sVCLY2@Y8`_QnGJc)8?zsp zVHPv}3? zYl;n|40RbfV6VY8Z}g|v2yy<&%jdCrWjw|XGYTqS-DfZlIY z8`3eX!Y<-du(~z&c*$yD2rh3A%ROHCQVb71iF>?QnUd)GvmXbWunsfg)^*q*D|5Sb zwRP3?;=&mH{X{=+j>{wVg=sJ=R%aGj49vzBxt_IyRZf>NUnC0~x&w7C+E8Va`r)nI zOE6hR=c7e8+L!hfXnBAp7SSkPz(SgA2P`%Lg5x;q9NLlj9!*!V6A84?rO2eLj+puS z(5Tocqpg^2C}M?v5|*KbawkTj(X*OC-m9w*$TQHW7R`J@>t9{H|5bXIf}ZvmCtgD% z&;PSA4SCZ4rETExgcwn=xb+Z zv=KBwOk70!#Mm(-TRM*=B>6lx?8p1M@#UzBcV@X6VMD{ZLACSQA6Q9%n|7JNeaQ6* zc_PT&;}0&Uu?LNUri4jloNOU9CEA7~-smr$#!|?=!)Q%3eyP!#vJGK}NtbO1yD==^ zgsdBK!cVd5M^%P}nD+i6MKDgZ+g-GWXSOIHsFlvXc(<2z=( zj>zuq|J^^M{qXj2(q>pURSP;eX1R{pzQH!yTeR4_v#omAa{&WM;@hd_+r_P|WsakB z=mZ8{cSwsLUQzS2?dnT(a^xj1A7s%o@7BNt%UMa|aw$b^&dvs?dL(-)Zd>f?h;XE(AUi$yAwC>FMV|du zr|dy1e;*4BdhzVHffNk9FPyi_WP}~z7wH|=w3L?o>@mS9{6@qz#@lLSF5=hRWG3>h z;A4}(F%`HPxFa};v5&XBZ(%_UD%7pn)2J$GDO<*YoD3~LJ6+q#6*gGeQj$Hz*V&vs z89cBF3cU{@d>fF@YctEV1DpZeaT0e1e*YEUSMZMb<__ZP^VY6v@OyH)5T#arXC(5Q z(eP{YiRqJ2@(cOdW6>CgFc47KA$(ugPaX;*2KpV4{H@tDfF6;tsEk7^$sX%1)Ib{Y zVo%6{lbPx*bkrQxBzyosKao=N(?i5i{iKn3tX7Z>-57lmO^M^>G8y=QHv_1ejbuQL zl~|B(VsyO~ny8RS$|za477)iYAJ2SEowoWCUz48o@N1~UY}A3u@sSFMUW-#lgh$)P zEVj@Kg28@fSabF?WHQ;mdUFS{8E@$u)0o%0sn&mTu1KC z0%6nvP|wjIZZycDuHnV0{!f8%;4(!)XktIixk!ieIa3K|Oh=WLK-7IrFWBmH@cLHP z!)GWLovxh@3{t9s+39McNNw&Q%AYr1TsLa8`GOsJiZ2%^+UG~sy)JJNM zO#M{Oi>OhSai3`1uR(RuQs4?6P689D^J>BDj4k7swdw$R^|jQO$K$~$?$y+CHX*z2 zYV=*=sr-ot;;gzU8@mVJrNdp0qd(jH#{^AWlZ_t(ftdL*o+SQ;hn{s7J*_2e0p81@ z(}4B2JC61w=8olz{X7WgfoP;4U;S90!lkacclABV4R5qRG&jgYPq_kl`5>JHZ9Lva zOJ5MfcO`VK`0*H2S!MlmsF@YQA&4FEGDAPPrH9j6R%K6u-Z9dlcYJD1_Edn3^)>y< z)|sC@6*+K>@-DQuFZ?UV)(eQPz@Rl%#ZoGGJr5Y~cO2c6J=K!$O6 zL1;^+ZPsf!`o&|mpsV}5FXzQAKO$PTpmKX{!Awr@ZGNs1MfRX1epZk@eoIMq=B!uo zwEK-MKh#go%Fmu~e)gZqzunAFj6=@o795i#^@Q4G);B;!jc|Nn1Ll@KRA(ADtKYZa z2MQvNFT4-w;LYSUD%6!)l08YDnv*{eqo6kTp3cwCR!Xw7SKo7HRd(7Le2}Dfj1#jn zq)$dldM}0`y7RPs6rQIyb!4LH&-GK8)`LSv`!`*fR-6+lTLJPMAR+^s`6$A_iKkWk zYdnZ&K)*QEVD>`Lkf8)YxB3K0Gc-{;4GH|q6(}|n1)^K2Q%G=QBKZn(I|zSaSyaPo zkrF6T){UQ|c?ClOgBF!V?*ph*LOyj>wrk6e%%7|wR3OUXEsK5(F!IMth(|c@=Tp0U z_!S+z%@i;5S^!~0ZR(f?MqFjS8$T~K6&%I9FXy7yPrKoKGOCw<+~|Z7>c-Zep4CA$ z#7;MCLOjo;2MuTl@{0^C+kUktwxpm19nE30Xi=dq^1{bK z*R!xLoPv3Z4naus6yb57#Z;KqY~5&+GR%T05lh8=$mCn_!ozFm;4(;YH2#`8&C#wx zp8wOr5p(7Wf{snNPhd(^iW4%J=AtOPuZg`i7mZ_4iP*^R01hmxnhZsdXu$Wm(TOx#&I zYKDVx*rB?7mV4P`6f({2JJ^1e`FlFFSv8l|Ggz;`iR~#`*I*TcwG37?Sl9H$&a#`k zO*o?HIGS^J)1O9|$27I{i)vOgX4SrVo3^9{=Qq8iD|7saAMQaL9jZY{T|^buPaW>3 zlzOD#9nuh*tpe=!Kl@deI5!48XobHKjaHqyVuc^~2>mF`a4!xKqg_adywU94w0JpU zE=4=QW)_-ciqbCPP!|#R>8;O1(g8SzNN-xWSr5%ToZ*G2dpb;uTt`v# zOPEiQ39jQZf>+_mmC*S*^Eao_E0+tFL&cel^3(67v8QF~yQo+-y%q0*p(mhH>LOZS zLu}kfV2HTpuq&CCbH70EODeJ2p_x@sGdCASCp;w?6vI-VfW_V6J@;i`!7&K*KHb>H zIv7P&WQ!-E$04IaE%RcW*3T#7Z%@Eq+EH}wcBV3+;>lRkW$m?+7JCs%Pi9L|^pm>= zqG3KJ5ZOwTc7sylbSb~D5H(Ff>t{*QB7<0Ms-ME~; z19TuGq5u2`65|^g`1Lq*7npYsu>Eo6tpnl&mg8hjN$$9^C-6>0gtrsPzS;r%s&|^P zBQlM5L}EtV(hk|Z4O1Pu5_P;7{%Xwa@-t9Q0`X)kONJ!FWEbokga1&NF6MH>ELd*?G!g$0J~sUTsS2bL{ZXPzRJX4wBdu$hoXQ^&D- z!OYI%{0H`e1Em+J+QtJmBvS*hk?JxVRhsqv zq`}X-Nc$_*x1Q?zA~ZP$ANK_X=W3wLJ+Rvt7OLpI{{k|nur;rrhCsVi&$8{Mz8TQHU+uR~aAWc{3Ux8;PG77vEIe12IeA<-?);(IS{=PQ_HRuW8ff zG!finY6f~{)u!XXDvY1hcy3xEpNGNveYS%vIV~+H95ugq)M7n){lBpklLqHs_m#SHonBnfM*NL=$JC z2V<>yfW!^*W?0EP>`%aC&UCf3EzG>=0|}^7XxIjGdFF4F4&L#q1D)r9RHRUBU|Iq% zOL0!>0BXo$gyF($;D1AsNn7lYLh1gbv3=iFIxSksvp->M--a4lJ1w0u*l(UPfIwWO z!yZiNum+Ja{APy*2b5AMHJ;ml>s!#wQ%HtL*esF~%Ld~;`Z0};81cI=>&9{8{nghq zOL@Gf{@gtwNnfKMqc=y){z|*4BhW0ofzpGO>EL~&2QN5`0M%WCc99RVC`Qa~tKw%2 zSC|va2r`)q4!NHg>lXj@1c`M7J|nXFR_)Il;g!+3Q_VFHxAZY$}+K+sxFF6{|)5G7M z|G8xr+mR&ck*i5M*p5l0Wfto!xm?n*D3IrA(5_dJ^sWR+2fK(LG5m2!?@>yzEzOet zxo<<#F{4WcrimrZ>$7;)3ilQ=wdjakw z+%Mq@QbglL-0jZ@@jkfea36!a8}2^15qMsY`@?XpaQ_0gAMORXpTYeaF6BG;Zh}oT zj>o+i@E^o|23#&&8R8|l&%$#%!fO%UhdJM^9eFJF~LNpE_Jp2&8BLY{6v=8I%$9)#=Rk(i)_oZ+v zDIG2Vw+ZfZa8JOw0YlB?DK5(`^WZyv`2__OkNv*>ERN+ZTUWP%L**6KYkc*=^4bKb z*|8XXkHz{;pTWLm!(V1G%1Hh$4Zg7wN5NFYzb=GAeFuhVs;GK!&H7u35D63i zW=|}S_4`4x9)ZgBGtC^v7X*y_mhbx*DWHtL@MFX*-xx5TCw>XWNFD53J#l*Z1FTHn zJNdRw@^@^E@B5&nIL4W`R)NHLN?^@;nPhNbcnjwFAJ`Cl0J+>{?z>CY z6fe8`t~L0OPEn=LtnJml%5&M*bhsqr8%X&zHRi_(>HAP7z9sTYNCuCRzC~nGUtcc8 zjPV)YjWTi!@wX%g5g`vv8 zL(6LMkzZf=I?BX&NlfwOAq$3hFK};MS6LsF-;4|ZMCM5Teo#yX8NzHsv>1!AA;(^c zi@)}0mLa@|pPMub75{NUoP{n77Q-X?e>kHxhaSXVN#dEZ^cHn4xQk14A4b z;=m9GhBz?9fguhIabSo8LmU|5zz_$9I55P4Ar1_2V2A@l92nxj5C?`h@Rx94QuU0= z`6p=SITe4{zr$YNSlnH>)7C29u4u$f#Nljo%pG6g9z4Beko1`$>{kwwJ~9pO+Y@qJ zR{Rw2A`e$`dJoe2yMYV`c<@aozUp6*-xN3F&4}*>@n&2?Q6AbjDZ}^3*T8qd4$@Vs1@Uo5BRBh&V$^#Q4kzm`tlc(29x?Jvi4gkffg*f!l(9f zBCq@=dOer%5NcG8udnmw6X*z`>;THF6b}G)gLnvzV(W3IcAt*?W_kHYr!TD&9rX!x zxSYr;n<+J2`@0w*Wg2V9!#K1;w!<^I^@KD zH@*%Zr=tv*0-!{G*^|dGv1H|55lK zi9~dA){AH}>7)C*S#J}UiGQ&2|DN(^t+yFYuK(YA{4wcxFYaic_iPS8WxvzwFXhcU z#XAHy#DV|I9JpG)Y9xcgUwIJ@J(7CGV*X0>L)nKoFvNi&4h(T%hyz0$7~;SX2ZlH> K#DVvi1OE?&iE+~a literal 57344 zcmeHw4}4VBmH(Y&fB^<3K%!W|jv6giWCH=^ZyiDg!De6*l3-g9BFQ+3AxS4Q7WYRq zY?y8yk5^GiYb$KSpKjSLw%J{517Zn~HKC=N3WX@4js9?dLrJ@|@cu+cF8!>)P5l>dWdK*9P(SLEFuL_PEa|@+c<(WVSqk|k6 zY201Xufk6%oa$t}HgB%#-z#s<(Iq(VLz_1}Z17Ce^SKx!;y8`zio_nM@Fx9_1 z@IuATfOdRG;I5l?27>DDz$1a(fdeVK0!P2SBQPJZmdAGn-d?;j@Luzdz~g{@7wOqY zn*+g}I|5aJ`{?kFz@i6t2GSnh71$2AX+Pf)_#Mg)P2Ck3YTXrhzqdK?x1rsE#jAD& ze!F#7;IC?S27dj>uE2+NsPBd5KwA5b!1rI>5wLw~XW&1Yw+5yIcGl4yfy=0S{MUB| z?f^|Akp5f1_JGFcnsx=k-)au5etdV}_elThft`VghnfS*&|QH8sMGV*&OotaXJ8!g zd=YpT0cK_Aj=hp!XKW1|{>tva>0Mg`m)GtNd;xgBwRUHq2H}ec+n(JO7zJKtq3myd3%-7R zS76N9oq@i`b_RX`J{aBqX>7#*Z@x=>w!kGWAbfs|i(k=}pPU1E^rQ-#cyF0YT!Ev< zg7h1OGLB8U9=Uiwy%W9FuD<-%Tf!Iq>HZO?ch$@r@&E3B`>)f#|G?WnxqleSz3g*| zv`1ayC_+l_sB($aYM0o9a1_$-B2G^qLaOKMH7+p(;pAGGpN){xtwEVSgfIi``06^D z))1~9E8|8xzVH>9ruuIFKQ6Hat`3gyY#r(9w* z%F#1^gG;(j`i$Be)0nZ){Tc`gx;waF!1 z<77FbeT%lr^bLA_zj)pyTH*XjaF@Oz;mmaHd;$DOf_wK{5-xhj<}{ax-qFqeMfPjh zFJwOr<0X2>WR7QXJjn4$93RjAInHTeznA^#?AzFXh+(W8ujII3e>HIc}K{YCtCHT!9t6XbXe`<0wCp8dV-Ut+(ReJjIwIsOp)E7)&mKbPP7Wxj-D|0L%; z&;BI#yV!4Je=fsJX1|nkwy_^!zlZ%i_FW8P=Xg5D=gPMnpULq>?C)d$IQv`KZ)1No z`}OS4L@9sQXI&z4F-rDada~eVa!iQVmrVHP(P2|_pZnJImpu=^@w&{WQ7j+#vb@6T z>Pk*Tk53gN>b#D3|7ri6CF;KEcRE%sdH*++J*jP}s~3Lv!&S}ie08~N_R<%#zv+8@ z%#ZBiAI0hu&*^xs8+gVEVIKpKVPaumt*4~CN{q4$6Gq)PrHTdOHp}g=rU_9A<S7~201XuflmkrUVH7e=wHH7^C1fV;!k~j zeUuzM#E0F@%^$lXyaPQ3?~VG2Eg!eLUj51K|G4WWe4pg{|D60c*JX@{KPUf5VC__KrVomkh(#l6gG(&inEvR0b zTlwe|1Z%6Sa?499s~;8jF4=-nDgkFaDz+a zA*36V{n66`dh$RI^~dJVy5PqjO5cp+1h|QC#2*@ePB;u7aU0z2aG7v-z}*S=88~9p zU2va;yBn@JXU44;KTWCl^JF}V*a$HkJTsoWdtBlhS703l-)zXlz=pGk^9Ze=$vW93 zdNW)YpWr84Bb)-4{1~=NBa9g{0f-x@VnQyRwFuGel3~3b&eg+9_sjgfdg#}~Og-%W zoP57U4;Sg-)p;_1pC0=4FjEhE=F0b5^{{k~OuJ^wuy2-2EJC9V`*3o*x{$F*&m0f9 zJK*LJlkkKgb$);OQ)#=7*~Hy{wfMuoO-dh`m1Vm$?&o7vbikF6XGh;K+asxGhP^ncw0h3z#m|ni4EH#;t&allm45@`g&RM39nA7oJof!>ui5H;c2?=} znU=i2J3H~dUrzttww!18-uYqphtBU44XZ~kcT#A6rlB&U8q48^-+Kk8|O^EzbGG3e>zn%tlxwYDJj{z+WMJB7|5#1d;O?(z&75G#LMc zaG>;VI$M--CpLCGE|%j&q8Bog#t%KKD;^^e6@Ri^EU$9!bICkCZ9_iI4) zj^&US=@b*(3cy7Gw_4AqcF-C`?HFc)YXcm$qY`kGPxX5BdWW0foYQ5!LBLVIOMD9R zNQjL{r<&mA0`3a%ZPoJ$-$Q_FM%rS6I|w*ib-t}d&!^RI1>jnd9%6#)2HbeSb?W)k zv7Rr0`y$+2W@kMqg; zAI3irtq=Vd>U~k?#Q{Aua5g8Ujr{*^SbrUw_FU)Pf49Ema$Wz!bzJEOe}~RPC*;Hb zUXl`f}*V}VRC zId8a4iSRnCqMr$cRcpbuG{Z?D0wgS&%bCo-@f_aq8E>p-u=_B z{O-GNElIpGq3<%qlzAUs{X?@q?YlFfPiKGmrQF#oy!vnHXk%FGoV0G{y?3qfl&=X? z*H-(2&f@agP)Vh8Suj*uUcI6?XVy%3_fA=wmxFx})_3rP9@>8lhuem9H{8X4aUmt2 zEARh&$U8~&$UQX707+Ln$b>%1kULM$r_>UrKkS#4QW5akQYY7;ZplnJ}=6KZ~F z*SQ#)_~W7knpU|e6;9~gCD6~;Ko2j4?(T$N0*$={IyvsH!CAz!#_(et#unQyhVrZ$ zYE7|H-#u0qs4A<>o<=}7!z~Y#2g|&H^2cEY!5|?M!m?nXyz0^U@~3@ysG}A&d7%w0 zW(`Y-Js8`qaM0ewCDRz#aTSS?ZNZdiub=jVty$@qWL?o-KthHwKl`sq;>_f^3v&0l z04<*#HY9YMF1$D6{2X@e#;+=E(1K|9Bfurv{aB#C$(Bnz7G1VD#Sjbae&{jyM)JmZ z#^{l^lg7ov$S*`65$^};3nzA2A?6mr5M&wl`z7eLAo}qMq^FAe;I9E5>P`7Z?%b#! zhbN8EpC{2kd|xro1xTx~n|YKT=MnA8%{;=kQ7j0Qp?7KO&li7#bRpMW1xnZQ-j7C8 zHO5;RMw1ggU5Oa=I<9O zNPd?DJ!Q4EFdu?JL{p!Rr_hXNMH~;=m&|yGCdgMJ2+LyGT4@%QxTeD>erU!)JjPl^{guGub2^?qW;`u%JYoPM`s)d*-Ddf@cO4S zhUR{v#Y^IC)$txT<2@P2OSV`uUaxRLQl$W!NJ|&xPSQLJAsp&2zK^5$QB+Y4c zBAcNTa75c*!HtERj2v1Y2##dE6L~l2`6T6Q;7Btm!@5B4Cd1JxP|nzDxqMB+3iB1f zlLc}L{{dXQnbZcVKM#(=LOuMv9%dorIRY$?qE;u;L{DNrPT`i7Bmed!-T1boG}W;u z2mJ|0Pphwe_qP|{oc8iMTuYug_vM+$TgGi9ZOm`tm|XvibuR~Pl$sN*@A0;g4!uAu z6&{2+aHLCwz^i#;26Tga*?#N<7fC-Lt~`M^OVBDq-Pnv->mYCz3{Mj_8E`ma~6 z%VgE1-k{am33zJb{ct3wWVu9Ykqy0n{=LRG7*?%%{E?D{H3id=FXMr-vZaqyOJxoJ>R8#Cly^!mGClKQd8N!Yr-=lpdGx zp6bWTV&xZ9*E|t}%`2rJ!XagZ4jlNcgFDNT5hj5W? zt|?j!X6tc68NrMkxDxoiuqI9ul>vc_?}4(avH-?J4v}A*SQqgCI1_k}v?o+4%OXC% zRBv;^Or&(2Tz8dh2z7w|Ncq^moMT$h&xO@RRpoSyiZU{BDv{g-Jf)5dOi!6T+WI8$^zDcrG#9FawJRd z0_>y#;7Qg5fw?Azji3jH_X0M+lF+DK!qd1ha*TEmJrck1rVtd7)UO5>IxCW8sYM2a zx$FZ>oAG8DO2~Fmse#Jm05i3^G=?!3u^g^xpfZUxCe}lIcH&RUR1acqv_HT-WNEx|XCKwlzliF{mu)>NY{w93&)GE$4s zMw0NxSQ=}>6NgG1lf)U?tI`TS2_w0`QDepvhZi{8jMG^FYD#!@krYuX5Nk!eFKA56 z9iW`#{!-XGXsx6ktKpeeiu1`b&=^8qP#=q=w-`J!*KNejbILq-jrS-nK4-$Q95vE9 zD|!0IQ(~Uqi8$gZGc9Ib#vu}EF=$)>JIl4B(u2My+s|6eSvk|F|A?>YruLX|AX~Uh z@8syqLwjkjPc^uKVGZ-UEXLJ^;CB^rNoOOCLCOHqsSLg+;*sMv-qVCv+6wQ&>9kXi zJ8?cvaYN3=)(P4ht<~4^yxOwh!t!+x@DfhO7gXyaAH_x25|`+Oqi0(l&H(jzkDhP5 zyXcAQ+pRhb7ZRzi6mexJ$wPTMISTh=v83v2o5J9*s zF*vk#^}1xZELshP*a}_=xJnA~v;uCC9_I{`mx=ry9gkt7r`Hx8=Ad3K2pHmJGC%!* z)3+de$HCYSZP9V+Xn3zg@gCTj=?u09`Xj~Zytr47)0yx&Jx=Go5j{?4yM20`&RZ|) zaXM4Iq{r#p^a|q1#@QTs*-F6Fy8xO?kZ33g1R$G)IBt5*<1red&I>o>97k z3VBPFJ1E@HcM<-w;^j(NUx)i*{TP?XzN~~UDWNN>+osyQ(R`~C>Q+K~mC!aNv{`v+ zJ$RzLRLTAd_Vd`E%)Xs{8~lnf{(9_swW79yXa@Z%w89e2px=mgxc5=_cewYG7Ndsj z%1ecSf7#~3oulo9Ompw`R-|eg#q+hIZ3XJQMih*m?r?9FMK@DX<)!HWP_|RentQXi z!lr2y&)1rW$O6EJ(-EQW?+Duwqba4iw|O;<002js1zNZgfj62#zih=jYE^zTgMQnJ zO!{%_*_Az76J-~eOBZcM5|j>!W=ulKhW7Di-973IFA79YeRIP*G;dRnsGWyDux)so z66!quHSKBDbG*?4*yt&>Q@)9wR*Q}|=EzJc3h>k;hp(jdhX%kvFh7Mc#DJ-uv;=Ia zn!8O2Q(tHr`Cw&t!TC-QvfnCF>J`t%))7c3VPb~j*{ZlVE1unods|1CI>d|K>j>u| zW&@PgL@~{?H=02|71p?rSMzM<4ywo^PDC^O;DfU2Nfp=bOEs`PR^v$CK?+hx^JN(4HMt>aMCGTd_Jc>a|v+Xr3;A z>ui_ESL)j3v{6^uvyUmBh%bER$yts=A2dYA1cpa5=oi_lC!)H0Hl1jA$Kq4c*ZI_= zzHj>OKH~fN6<@<)i`wm|p8~;$vKNl{)DL_O|88;APe6{0;m)YYZd2TyzBwIF<*K)2 zAB$#Cw|M=zEiO?Uea;38Pq?jate+x&x;|5kE~X!lqvBSS7QR$>r=$KDVnB1@N51ee z$JaJezIxbqk3~4@zt6AsW}orR>3(Xh@9v*E>R+Ju4d+41Gl=O8LI=nO^{6)}Ma@3d z{)8k(EowICdG?Q?=V;C6)Na+i_rllwBMZ^>o_5XMm0tn+z)l(r)Q?^@jr;Mc>gikc zu-=2*e>Mym`knlB`Y$ckf2{!Qa9>3$1S7RUR;qP&^~M4cb(e@wo#=;}+Gs{I5{^R` zD@1XHrDDwT3X8uUrJ@;o320bD`-E^?aDuO4rX_TP>P=S{rQQAeIll`STzU0^5p$^d z_D!C&MtjP2n_<_RAqOLT*&ZqSc~p8^{hty-Uj!m`KaNIY&ANzYVMMC0HuPE)_tl1f z`>0q!ax_}E-@;=?du7juB;eosp6`3Hti1Oj9*Q~>@;3iI8qGeFkhSr*(Wrm*e3wYb zUH@yy)`Xnkzdwb{&e;;*-vNR%KoLx1apr4 z7WVhDznlF%>^o6|?|X8R`IL!tB(DxFj&8AGmC!W8?1g}-q#nAWg{fBWa`ndOv(4za zIY-aDgNZ>=e;20fa${m>1czedQ7rq7hAU$nO-J5;OXF;x`iE!+eW^iWk7m%f8+>y< zbZp!WJS>x?K-R7jftsC~qD_FWHBnPEjT;)~#)Y||VQO?oxDRj7fsBqY!I8K&q%^^5 z8o_$CCIZgKaz|(?vSQ+zVVVdgUt@#?vL>%tZl7Q45JJ77IQlH{$E$^zK{5U`QM(J4 ztB&Y1#FPQ~!*H4=dymRQGw5p;>QGIi{?MA}O@0BofzHb290ijpk|2GwFoS9|D5#6l zz-x)}TK1|8HRq?nNxp_zme6hLm($hxY3e+ZHt+v(&c%QYt0}`MFQtKi3+eJ*EH_NK zDE}EQf2*2L<$p}V4^uRuxSfiRju)i#H3dm;NiJwhDoAM*yqRmv&}$^sg$tsF3s%%} zQIf4LwyR;PN_~YW&3kc_5NEozmeVc{#%?i+R>Dl z#c9XJ4Or9Em9}N-$mlb)57C;qx1q@KbhxN#G^z4w(b_`#W4Mi{14aG0IR1;R6AY(I z@)Gm~3x`2~M5IA4NGWF)Lv-EDGeQ z%c5HddD2Yo*0_*&nK~}|Y-1cbMH%@reI`rf;B&W*cx7Akl;e;_=oQThw))hco(WUL zap=U^?N{GLe$y5BXTs#4-F}h$Fy;4X9ACNbSG{{iIl`yywD8I`unTd;eNJ&l6s?kw z&N-}vgQ&yt^e9m8Q@K5IG2Kn&&M4thz$x2T00^t9XE_crLM7Y> zQq&vHaOgPn(>J%DLx!S7C|jfWnJ~q54&}eOy_epE$@gO3Z$v$MM^lu!Wpwlz=Bnh> z+3g#t3s}0H4O86EiSHoYPYL&MRpg)Devg;EK-I|4uSkKC*BI|riYD}` z>`%QX-RC3=)r%WGq8*i?oyZnMGxnh3v+i>}LprG`MJH7r&yCh;XIGw+#Q$nIHt$kx z4Aba!)W3losB5MXeg3Zhh(-+{o(J_W0_gm?t5~uG{-8dwei~Du4x(PweG)npOXW?r zM$J!SZWL*;;bXyDeY2*9Ca7N^x&8i`Io$!fu4^)Ydh|kK8u}HNXB8`=7M)YVi!k4^ z+xAn(DowdG`NDbRYhI48Lv4z-9{$-d#e23B%&&Scx6gNM{4U0Y%+|Trz2QSM_f*fx zO-)4a%=DW=c3;D*(2EaZ0l(md{4HLlrb3Eg{bMzpBD@e9GD;%mW)F-#{ia5);4Bl} z!z7;FPK3%{S&Z7w=U~EOI9r~){g0?tvR0iz8g4#R-BU`qg$Ek>XSZ)g8U;3PL-!{TOLbQE0cJYR?0*F-*Fh8m3Z;_7M5uLiiVEOKGHedZAl-^OYtN z`4Wk-Ur~$p>BZfxN)we*!i3>0W6Gome8HxV=8Fb9&T{2w zn#7|%Xm7MmHFx+!z2T0G zX;)C-jl6U_E!dRMnrMrWU*M;k2+<4|$|v+^!#l$?jX=mslB$HafoLsE>irpxd-Kn3 zr&Q!fCKk@x*kh3Qqc)8-^%CjgBBbVek+{tfYoTWipn z@cK2p-cK6M0L@-=`lGHt=Ah z1Pq4QJb3d>V@7>FdWzS1Nw5;$!W~0!XEcoKY!8W&89oX+Aj zq(6&IWxH9{Qwd$xTZ!zV-t1%9(N>5BZ0)W%p8h699y^xesDBqiZ_WutTaDosEbukV zwuJH=hhA5-&7kQ_n0%;C}YY>2#fc461arp_jY;k`IE z&9uM9Hk&~53rsdoDH)~cq=Dg$9Gr}1jb2t9eJ0h#smrJI&s@GpK8c1@4m8cRb& zfwv+hnvsc~X=t~bwKT0CqWjs*A5~|NElg{ojWpRwPigL6FNeIqYMxHyVo`%E!aMFB zel4wMFm%ECd9C%#D$d`(mqrzt&|N;T)RqEQ5x`Rqxt5Ua5scTW{_9}IIl)BwYU9(cRO{sfcscTeTSqCDNSN!ak zvcDRB^qH#|qFT}O-q=QVIon-V%;~`X)lsp+zixhf^Qw8Cm#QyFh(2S7yt=mNmd&7^ zOON$a)Zf@20^bfcF3liIhuq428*3`8y5U7coadZxPN(DPx*@cBe6S%(m*5QTddJKb zmr!3n{I)IibuE3VPu=KE!E4_=DX^}70azrs;yxLZ2JVwkNH%;xSfEOw0@E8Exgjgu zCw)W6Oq&KojzewpxJ=kfWelyDQ|jx>3<}gyM3H9os;41jtTtbHn}E*x8i+sqjxF`H zW?!y0QLUQ&K{bP5NfwP!$N5qZJLuOfT~>>iP2L4%GFctNcnpK7tg}J+^1#`hrParUxSt$RDvEh5FAWE&`Jm*2?+Kf z3p)tZVibXO!c^y8Dk5^sb?%|_ie5548AWy{6lta+6B3GSLy;5ec0P(&7A+{`t+b<} z(4Pk|L!-y>lICglYDK&AHTRwZoSh)vg7`kfTM<8qcpKvFh<8HBpqr!^m>wIhi33RX zf!cAn*OuC$*&pz!+a9D5bYL~A^)+0e69-4V13B0`VtlIZF0H5$+Hih>60Si%c7$mj zVUqxWKJ3 zJrb|Q2MYye5{(RIRui|#-H6qJsHXgWTEvV5XQW)0hl$t>Ucg`uL1Zc0T`1cT&V`R< z6GkB49L{n){f|hho-SPqXo($W2ocAjqdc{Zw0fGSDzY(Kwe&@DPG`4mvW@`jNIL#W z9qm(_h*Dxw>Ip|ZeFa8+>-=J5p_9CRKL%cW_R?7KbZJc_reCJT5#w$3dV93!c>Q>4jUg*G|{|tcLJrx$OzXtfRl${Q@g|InVhcS8K$Jo^x2UgHM zZ)M%%oXX-CXL#As^MCyZP}i@VuZXgl^Lm0_m8MOs7pE9U@-ow15#_}!ah-|Hc`D~m zuLhl8!il6-)Qma48*_XQ=J;O3TM*xecq`%u5pP4h9q~>Kmwx8I9BDL*V)FxCfhC`h z9y~a82E(JL{6{ch-+99z88Xz|A7fvfS;u%a{waLsMcSEk`aRta?$D4_`5 zCvbOlxXDn2k>I2rc6Vd0v;5#yk_3N*2 z0BHZv8u0L@%kHbz;BYE04_gczM@=m*N>gER#Ua|YN(>+2UZ=hGSbLpl?*Ip7d{8n0 z!MhEHR_aV82aVpVc(e^CY&F0jBSyXUi%>mqdX8niVvOc#$;KL?)Sc{bx5*{95Vfhd zKncJUq4n?zdH~k==XQfaUGbzSpF$eecvObjhWdLTEqWm>&OsF5mWtFA#?$m?=8&BO z(j>M*LrmZ{g1@E~(`c?%bdsuMscST*UnHIuT+K+7HKv)?&kV!2q>^_C*BRegvGF}~ z;Q5vf>*bTvahD>Z)SXl6dU?yx4L)My5K7aEAZ@y6aVd!8kUc7P%990*st6X zZ?SrVe!xpR0@DGn!CG~Osrz9zgd_roP_OLW*l0Kv8x17Hw4xsLMlYCo4*T0`7_`wp ziQQv0x+k573Z0cvUz`u3FYZD|nEL^;4V`B0Pz)|Ap^LbIZ#Nhsh56n8eX!VmjP8Ri zN?`dV+y%f@0J^hsMIBvCSHlumjoleGW!Q^tRq8e>uLLpKlvilMR$ieCManC*vrt~i zg>PI2TV8Ps%StE22lfNKUUee%M)U-RdL|+mk~F!vbyOvvaA8EBEQp>^SRtAKx2A~25F*P<^(bEiU^c{>;H)yBO(2rkZh{RC^T;Ug zhPLKuH{G6a$}4LABkM4mr_<<_{Do8~>Saq2mv?VPIqdulUPC5GUQgnQ&9^bp=ht34 zvnE@a4nnhrxPuHYyudz6*kj__O5-8U|e?cIAYO{C=X_ff~v z4WUB5_+jj7jlRa@(P!{PTH#p}hxWkT2Svj1^jx6!PhP-_zo8CbMMVXMddI6OtJOz@Y+Q)g8OG<4vSxJ?1D$)x~i>z(}jb>~ine6V= zS1QskF>Yvbk-?0&Ob1$cmOu%@g%^!Z-t)C5thF|yw7AXkY=nMXz)Pcw2VnoH-ax^xCOyi}<4uedOum4?~ zO`PA?6pbe6JGOrB<4$7!UxBrK56Q!o>FNv@^RXv8s-{A-BYiwUrzEW}4U)Q7O`+|M zT4YD!oRP305s?XRr1536D_dAD%-&7|%}8xvnQoV(KYahF!0_ zNAmp~l*S15HF4cAnnBAg7!+4qvDCtLN$ad`#ZFvjA#Jjc&3WIk6-%t*>0{pVc)tHB z@cIs{VTNL=6-A)M$LorLV)5}@1h13s%BGoy_;tqjL$UGQO5?i?a+5DS^(yWj#SKdU zc0XMT6d8Am;%>&W-G)Kk2QFc2Lbgvoj^b#eA0Z~rBNG9(EnZyA;E;u+GZH!pw=jj*XcUzyph**ryO1is9ozE16~5J}v<6IEgz~-usU4JNQk) zhIZoX5%W}Kk+`960?ZOcW`3t7@|)4{8GK^?c+~uAZsuro#(pdW6n6+*qdv7ij1=g1 zVB~Mk%mR8OMx!wftuS-6H(vv3C<}{-14q8hX~Xh}?uzCBma^Wfq(01;JoHGi+n#WE3*kzj8x6u^GP#Nj7+F=u1bx znAvX!BS$7&iZ_jUd4Gl(a~g!v1VB4Sg1C_&ho%NyyZH(j2QE_*geK0z?8|%!h6)sN zK|7kX5JR1=oYiFG?pMZ>XQ>n&+fM-oIjVx0b~SNGZD=RTj~G9c&==SZeKwR?cI|-D zul~^3fQZ}1Lja_wsj0a3lsIMYNuIL5;3>=5(O;+|O;dJE(i}8RSt^v01U@zi+%#qT z10UD#l#M}R%I=?z_DJcG9zC6X3@ysg!yEMQMl=^a1+L)bcrcMBuNKTq+cbt*t6ssZ zzKP~CzO9aLgiwrn&LZU0U5U9%Je5BwBF?JoGt+(QkLd8uap;#DK1`6rm6`bQ8HSk` z>q+8o#-bVYqq9cq9H06so%Yt;?>K}@i00CzVdBF?<7|+kzh}qRILlpp7gL_G8!)FVmu@Hg)f(yv7xo z;~{tSe8?T2TA4WsAftT^zp-@WW=;YSPPadg{`Q4`)plT>V_a50pAZ*#Nb z(E7~D`o+3G%=sX8M%Hn`_|Z)s3XH)$x=rbpX>VmmFCVo8U0oM^*~d2hlxW$6#_h2L z(>cSp;cz{w>_$!eE-!QJroznhX>a0f*RMDIBzkIEZsxcP)Blt5&l}~5aVQztgkx|L zPiS3wO&vtkFvr(wpITtjfDM8S!ew{`$B$1t#gn2Z0 zQEfUZ#I#Z;(!h-k$rC8;ApH5o5e=7wB~ap6*MI(a0y2(43yLF;08|PgpSmK`wdtqE zPb3Kyh;n#~BcB6|{P7&|2alr?@e?*$g8cNkkBIwU zVp|H@(2)+CL7NKv4gx;wxWyn`9s%$PAgPW}eW41|p6w+1q&S*EyF3+J#by-p&3X07 zRdg{0q&Vt-OOxhMXFluyv~h&aoJY_xh5IB_q9Xjt4r(r{!WCv%QD+hfP+@T-0;0Gb zraMX(?&nrwv#BFw@C1aOZh+7)fACY-lfa{dPz}>SrUMoG6gttP;(ps^sJ^!+tG;fO z!oJ8i95%;5~`vDw9q&Ljn5DiT|kp2LMI?S%p z&;Z+MP;p{WXS-`ydPvHy+4Mrse#*n0-k#RyZ`Ym7AcZZzza->7OKnVpxI+SYY`+|7~Ew zF%o89w8MQ8d={?k1R=LTTz~wtO4IX8(&ZuC!ySOF0udXc`yc z%hdae%)O6c7uklk^xyjr|L3jL`&i4{Vk0K1)-B%10|^6|dwRx!Mc34u8LOAAi%BEz z9dLjyC?w3EpCL1Tih-{cm`*WpByf=I{{x&G5GSx5Cv!^j#FaCF&n@u%gA?i%vahzo zzUrN8+dUFqLTH#qi@oOU7Ib^F-pwR+bD&M+Kb&{xDtF*I2&w zZx3_E>|r*1ErR5mex@pIPcVs)5k(sQ>GXo_{&~9XDKFuS2bL`u7@EwP6zh$`(yZHDVgG}%339qmP09C0w*Dg|%Lz4uq`W$j4nFXvz`q`Y zT=8_`LO`lZ;9!*a1a#;JGL)qgGm&$Wt{?Kdu7s*$<{*4fL!L0JqllFa?P>Tffd9Vd zu#%29*_`;mPuiN&be1L=h1jxvo%Ke2Iwq2R z4eK{pMR2_#uIQavn*PIgNiIP};=XWqLGI5uuwpTBOjj}J`wx*DNcX!E<2UT+`ocNB z2@5CL70neG>jAGp5EK~s3GlCzpqMxv49Ce7bR6hiau(pn%MkYii-|h!A1Nm05%Ujh z0jY8V@O1A7UpL`P6cxr15mc`PQK65f*tLO}s7N3`!K`k&E&$te(l;z<&RnN|r9GGW z*Q?71(tqTI3+nB5TxOv|Sko14ke1KOw^VqIA#i}Kt}vTQS;^-V>oDpuuN;S_B`8W* zzR-(_D{2{!fxU7*Mo-MD+Z&p!A0!;O$U~vkP)Aw|A|vSs1|H;)G&%n)3QEs=1d`Wa<{u(ACghdBEFhzQm7{?(iQlz#=(&bQBxv_P$G+QkeFFxYp%3bf1}^ z3c3%OFUc}bjU`5TT(1hZIl|u|q`#58ik<+{b3hvWfzGKUqz5KFNOQn3Ji%ipM zCj}`4o4YlUmqq(-8pVYr=%piHzYlCM-Ch6hWx1z$o$m>Ul`!i8O`?w`o%oD+c2|<}r6nA51+W#EsE?5RIoZa<1 zMIPay*k(*ywWzaTxuICLp^&lRkmrf9X>s>=Xj-&^+wL|D>x~C6V&=*D@f>x3fAa(9 z{BnL6qff=?i`tU;aX{S;8FrAW7*NL4WSd=h*w8-`us0I+MyBfUIsp)zURX^-qUS}O6K4L z1isYQ9Q7CI8HTX4UI%S#dUe?VyeJN$1(xM^@XaK&)L@U9eL0B$4Pvv9lN4#2$u z_YT};xXBh#KlIzMh6DZvgqd*n!WARE2;nrmFGRQw>4y=HMp%ik9&Q`lKg0bPt_$v$ zaF^gxnuYij+!VOEa0PIy;VR(13bz$*CtNGsak#hORsrv7xIVv319jyvjGwNBD9f{{M}!sp|t$*Rcr61ikVjZd&#kH14}vsW%#GJ zI)whkNIhlxX0x7yul>?jp7oUJo07)+#4rEqx&3`RIZhw{!xW~kzi%lge>*w(+sgVk zo>5aAk~ z%xARrdS6|>=IhB^lm1QV+{#MhA4AYLybXK{h5f4NB>%P94koC zzikfs>3=U9kV)U~)=TJLI@eSB_tQnVH-oWu;5G`Y201Xufk6%oa$t}HgB%#- zz#s<(IWWk9K@JRZV2}fY92n%lAO{9HFvx*H4h(W&kOPAp805ep2L?GX$bpZC16kjA ze9hiH79dN-pAZk>KFer?E`)SdXc9sMA`WMvpKalPz4o8q*iZh{kPyxNZJ`_)oRV z#A5u1=p{%mhQAPTdS0>q`$zPfQ)(wYMkrJAe_m zQxLI*_|LWUe}8NFKjs?$t(D#nx3*ZjfYieODVF}fZ593p^0k=uGEA13j{iD83vN38 z4|5jEyMz;E<$rsn|3qJf|3be6A^m4)dVKuff&=&uv1Q^hz}Dh@EvMEZq<)`*@Ze;D=s#RIv*3Rf(|>m^1r2MEZ>CG) zE5zGsl%)T`JiCY*hJjPB@*F@7U~t^LI7b2>Wov9Op8m5 z2mDgz!lR%;!W%rIl;mz=xhcTC4vrogLry1!P9Bj{Lzqv9^ZepmMCC-I$lx=`fk6&@ zVmR>HYp+HB5{?*P+}Zt0hV}LJQF8PUA9go4f9#I%4)hqjH|i(0eBADO^(VLg 0 Then - For B = 0 To i - 1 - ArrayAppendByte Compressed, CByte(Bits(i - B - 1)) - Next B + For b = 0 To i - 1 + ArrayAppendByte Compressed, CByte(Bits(i - b - 1)) + Next b End If End Sub Sub ArrayAppendByte(arr() As Byte, ByVal v As Byte) - Dim NewSize As Integer + Dim NewSize As Double NewSize = UBound(arr) + 1 ReDim Preserve arr(NewSize) arr(NewSize) = v End Sub -Private Sub Command1_Click() - Dim Pixels(65535) As Byte +Private Sub CmdUpdate_Click() + Dim Pixels(307200) As Byte ' 640x480 Dim RunPixel As Byte Dim RunCount As Integer, BitsPerFrame As Integer Dim ImgWidth As Integer, ImgHeight As Integer @@ -171,10 +239,10 @@ Private Sub Command1_Click() Dim DMPage As Byte Dim image_bit_data() As Byte Dim Dot As Double, SizeRaw As Double, SizeCompressed As Double, DataSize As Double - Dim R As Integer, G As Integer, B As Integer + Dim R As Integer, G As Integer, b As Integer Dim Px As Integer, Py As Integer, c As Double, i As Double, fr As Integer, bi As Integer Dim v As Integer - Dim Padding As Integer, PaddedDataSize As Integer, DataFrameCount As Integer + Dim Padding As Integer, PaddedDataSize As Double, DataFrameCount As Integer FrameCount = 0 @@ -193,6 +261,9 @@ Private Sub Command1_Click() ImgHeight = Picture1.Height SizeRaw = CDbl(ImgWidth) * CDbl(ImgHeight) + Label2.Caption = "Encoding image, please wait..." + DoEvents + ' Convert image to 1BPP i = 0 For Py = 0 To ImgHeight - 1 @@ -201,9 +272,9 @@ Private Sub Command1_Click() R = (Dot And 255) * 0.21 G = ((Dot \ 256) And 255) * 0.72 - B = ((Dot \ 65536) And 255) * 0.07 + b = ((Dot \ 65536) And 255) * 0.07 - If (R + G + B) > 127 Then + If (R + G + b) > 127 Then Dot = 1 Else Dot = 0 @@ -258,6 +329,11 @@ Private Sub Command1_Click() PaddedDataSize = DataSize + Padding DataFrameCount = PaddedDataSize \ BitsPerFrame + + If PaddedDataSize > 65535 Or DataFrameCount > 255 Then + MsgBox "The data size to transmit (" & Trim(Str(DataFrameCount)) & " frames) exceeds what the IR protocol can support (256)." & vbCrLf & "Please transmit your image in multiple smaller blocks with different positions.", vbExclamation + Exit Sub + End If ' Wake up frame StackFrame make_ping_frame(PLID, 200) @@ -270,8 +346,8 @@ Private Sub Command1_Click() frame_append_byte ParamFrame, DMPage frame_append_word ParamFrame, CDbl(ImgWidth) frame_append_word ParamFrame, CDbl(ImgHeight) - frame_append_word ParamFrame, 0 ' posx - frame_append_word ParamFrame, 0 ' posy + frame_append_word ParamFrame, CDbl(Val(TxtPosX.Text)) + frame_append_word ParamFrame, CDbl(Val(TxtPosY.Text)) frame_append_word ParamFrame, &H0 ' Keycode frame_append_byte ParamFrame, &H88 ' 0x80 = update, 0x08 = set base page frame_append_word ParamFrame, &H0 ' Enabled pages (bitmap) @@ -328,7 +404,7 @@ Sub TransmitESLBlaster() Dim DataSize As Integer, BufferLen As Integer Timer1.Enabled = False - Command1.Enabled = False + CmdUpdate.Enabled = False ' DEBUG 'Open "d:\out_eslb.txt" For Binary As #1 @@ -369,7 +445,7 @@ Sub TransmitESLBlaster() ' DEBUG 'Close #1 - Command1.Enabled = True + CmdUpdate.Enabled = True Timer1.Enabled = True End Sub @@ -378,10 +454,6 @@ Function HexPad(ByVal v As Byte) As String If Len(HexPad) = 1 Then HexPad = "0" & HexPad End Function -Private Sub Form_Click() - -End Sub - Private Sub Form_Load() Dim c As Integer @@ -392,20 +464,63 @@ Private Sub Form_Load() Next c ComboPage.ListIndex = 0 + Picture1.Line (0, 0)-(Picture1.Width, Picture1.Height), vbBlack + Picture1.Line (Picture1.Width, 0)-(0, Picture1.Height), vbBlack + AutoResize + Text1.Text = Left(INIRead("ESLTool", "LastPLID", "ESLTool.ini"), 17) End Sub +Private Sub Form_Resize() + FrameRight.Left = FrmMain.ScaleWidth - FrameRight.Width + FrameBot.Top = FrmMain.ScaleHeight - FrameBot.Height +End Sub + Private Sub Form_Unload(Cancel As Integer) If BlasterPresent = True Then CommClose 7 INIWrite "ESLTool", "LastPLID", Text1.Text, "ESLTool.ini" End Sub +Function Max(ByVal a As Integer, ByVal b As Integer) + If a >= b Then + Max = a + Else + Max = b + End If +End Function + +Private Sub AutoResize() + FrmMain.Width = Max(Picture1.Width + 160, 350) * 15 + FrmMain.Height = Max(Picture1.Height + 130, 250) * 15 +End Sub + Private Sub menu_openimg_Click() On Error GoTo errchk + + Dim ratio As Single + Dim resized As Boolean + comdlg.ShowOpen Picture1.Picture = LoadPicture(comdlg.FileName) + ratio = Picture1.Width / Picture1.Height + + If Picture1.Width > 640 Then + resized = True + Picture1.Width = 640 + Picture1.Height = 640 / ratio + End If + If Picture1.Height > 480 Then + resized = True + Picture1.Height = 480 + Picture1.Width = 480 * ratio + End If + + If resized = True Then MsgBox "The image was resized to fit into 640*480.", vbInformation + + AutoResize + Exit Sub errchk: ' Ignore cancel @@ -448,7 +563,7 @@ End Sub Sub SetBlasterPresent(ByVal v As Boolean) BlasterPresent = v - Command1.Enabled = v + CmdUpdate.Enabled = v End Sub Function TestBlasterPresence() As Boolean diff --git a/vb6/ESLTool.vbp b/vb6/ESLTool.vbp index 8ed0e9f..eb3262d 100644 --- a/vb6/ESLTool.vbp +++ b/vb6/ESLTool.vbp @@ -15,7 +15,7 @@ HelpContextID="0" CompatibleMode="0" MajorVer=0 MinorVer=1 -RevisionVer=0 +RevisionVer=1 AutoIncrementVer=0 ServerSupportFiles=0 VersionCompanyName="furrtek systems" diff --git a/vb6/ESLTool.vbw b/vb6/ESLTool.vbw index 9a3ea0a..7976810 100644 --- a/vb6/ESLTool.vbw +++ b/vb6/ESLTool.vbw @@ -1,3 +1,3 @@ -FrmMain = 117, 83, 973, 445, , 22, 22, 879, 377, C -Module1 = 124, 60, 981, 461, -Module2 = 22, 22, 879, 377, +FrmMain = 107, 89, 963, 451, C, 22, 22, 879, 377, C +Module1 = 124, 60, 981, 461, C +Module2 = 22, 22, 879, 377, C