From 32f6b81a6daed54e0112f743740e7df5be00b4d4 Mon Sep 17 00:00:00 2001 From: wp_xxyyzz Date: Sun, 13 Apr 2014 10:58:41 +0000 Subject: [PATCH] fpspreadsheet: Add BiffExplorer, a testing and debugging tool for xls files, to folder "reference" git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@2938 8e941d3f-bd1b-0410-a28a-d453659cc2b4 --- .../reference/BIFFExplorer/BIFFExplorer.ico | Bin 0 -> 137040 bytes .../reference/BIFFExplorer/BIFFExplorer.lpi | 238 ++ .../reference/BIFFExplorer/BIFFExplorer.lpr | 22 + .../reference/BIFFExplorer/BIFFExplorer.res | Bin 0 -> 26628 bytes .../reference/BIFFExplorer/beabout.lfm | 85 + .../reference/BIFFExplorer/beabout.pas | 141 + .../reference/BIFFExplorer/bebiffgrid.pas | 3469 +++++++++++++++++ .../reference/BIFFExplorer/bebiffutils.pas | 708 ++++ .../reference/BIFFExplorer/behtml.pas | 245 ++ .../reference/BIFFExplorer/bemain.lfm | 1255 ++++++ .../reference/BIFFExplorer/bemain.pas | 1144 ++++++ .../reference/BIFFExplorer/beutils.pas | 66 + .../reference/BIFFExplorer/mrumanager.pp | 485 +++ .../reference/BIFFExplorer/readme.txt | 18 + 14 files changed, 7876 insertions(+) create mode 100644 components/fpspreadsheet/reference/BIFFExplorer/BIFFExplorer.ico create mode 100644 components/fpspreadsheet/reference/BIFFExplorer/BIFFExplorer.lpi create mode 100644 components/fpspreadsheet/reference/BIFFExplorer/BIFFExplorer.lpr create mode 100644 components/fpspreadsheet/reference/BIFFExplorer/BIFFExplorer.res create mode 100644 components/fpspreadsheet/reference/BIFFExplorer/beabout.lfm create mode 100644 components/fpspreadsheet/reference/BIFFExplorer/beabout.pas create mode 100644 components/fpspreadsheet/reference/BIFFExplorer/bebiffgrid.pas create mode 100644 components/fpspreadsheet/reference/BIFFExplorer/bebiffutils.pas create mode 100644 components/fpspreadsheet/reference/BIFFExplorer/behtml.pas create mode 100644 components/fpspreadsheet/reference/BIFFExplorer/bemain.lfm create mode 100644 components/fpspreadsheet/reference/BIFFExplorer/bemain.pas create mode 100644 components/fpspreadsheet/reference/BIFFExplorer/beutils.pas create mode 100644 components/fpspreadsheet/reference/BIFFExplorer/mrumanager.pp create mode 100644 components/fpspreadsheet/reference/BIFFExplorer/readme.txt diff --git a/components/fpspreadsheet/reference/BIFFExplorer/BIFFExplorer.ico b/components/fpspreadsheet/reference/BIFFExplorer/BIFFExplorer.ico new file mode 100644 index 0000000000000000000000000000000000000000..7ce4cfe07496f1df9eeea55620d98a4eac9c5cc0 GIT binary patch literal 137040 zcmeFacR*D~(?7l-iXD|0yBIb0ULr9nsIkRfv11oOL`AvuA_x}{P>S@9^d?2=9TY@5 z2-15ORC>Adn>`l{CgypP=Plnqe(##$oU>=o?(FVto0-oIAv|OhS+!~cUipZ`2tu9` zLgvijKG*RQ!oj!+6S&WdcnGN(MKC?V^dpJ;ctXaHq3H*nM-uX48colAmKaXR`MHDX z=MeWF2}xQwm>!=o-L3tD>E{p$K0>}fPsk$V0gE6PkSJd?sBHnt8*{- z7jKc&NlZ)(z5wPw0zmJO@E?t$fBtdcnexp~_-9yRRleuBF!Vo+85J7-gz&T3Y#p|| z4h`}w9VJmhri6rsuHt2P;XfKe^w}XHI+)&CU&;E(aCTRhkr75mGcWZqJu3u15R|9S z7>OV0v-N5EQ6b^@0gVsQp)d9EmCh<;afZIWLg*A7Sr&^W9HNiq3WsPOB4nh3l75J_ zrQrQ_>oy=y>=68;kIDHv%|pUNLpNX+Vr(`oTc1ty=kHPod5I-p#0HiQR^lb5M}9_j z>6qw;gy>IUv9GgOO7bE20XKc8Zb(Q7+oDrv3Kq>eNef}}>13N@qA4FS60>2+>M(qc z?CNAIU_6VT#lkZ1hQ$t{{B(7)?pw3Fbnw~8s0(Ywk{`$iIu%Te*cc66K;H<{`qF$l z**a5oxfsXK!Y0N4Xkc%^^fZ4AyI5d^t!ad1u)A1Hy*ic`=uZ7Lchpi*e&l*UKO^0`f7=AGOk@B>w20|B`MaxC8>%w>ph8zy_ zwhIg3r*}G7M~uc>LwsY{rA_m}7>(-~PorCyH!FcR1MLq4Q@`fDD0>7Z&45XKrXDyPTu^4D+Y$JwG9XB_(kt~d5UeJ$d zJo3ZRVe!l1vk|++u&c!gIk-K*KfbEN#}<@cn*R5Ab)EB=oSQkD-HGiv5}N@lAi<&) zz~q!qWRvjY_>gC@rs%xJNc;rf7-9C@z;C3*Rz)Uh{&g)nL*hFZ>7*H9z{a3len}7a z<#p0%=Cww@Cnx+UIt$r4%1yO8?5>l8sj+Y)039*PrxE-9@6kAZQHWWzb99DA6Mj0n zWN+giu`j#~`Rs4pGOfU!i}02ZDjoD%CXXNU<5ie@jhQ-d#rc)S$KZu|KX7gR!*kjH zi|1j;FD>`KdZqQI`3znK2A&76LO6GK;rqd>$iTDOz!kXHVFOozfvXU`4z%y!m98^$ zkVKIN*BOFq-nWA~E-Ls2*A?c1fARKjuQRv#$(R3#!Ui%G<&v%nbTZ_(w!AHY&otm# z5Hw6bbT!V!IITv9VAP#aIQxsSWLZb)+$kKQ!EX@~x>{E3`wcjY;=i?OvX}tnQ%uK* zt{roD%7rC}%`RA~U&R zT$j;pHJln3s&cvvaazG4PM=wF_?~``6P%n8ovr9(MdwJvt|@A`(%zvp!@_WaVX0xM zovb=;1Y73?VvuuB+54?pnuhA6#n`5`zfrnENlHRlq75qP5#gg*zKA+y87lU zmOfjPEgVYaK!>dxB8%&YCS6gDjBsC}qk*m0B};`3d-Wl^OWqLsO`9#h2&ZF14L0jK z8@jr5FfCnSvB`DtSqHhJA78*L=60QsR=iUmAiVthfUVYw^HnR(HLW=ju^>Q6eA6C`^iD$okZO47Cit*()8|;qNl2)!b*yC zSY9U`=CY*cnF8Sisu1lsRa~bZlTqWI65bIuWW-ooGJ2u~;h$|!CJ9-RrOS-S%9S=` z-TKF5!v=dYe6%yB_adXm`I7P9c@qAy0Yu>YC^BZAGnw*(J6XEii>&?0jqKR*kQ_Rs zPfngTA~%$Dh@9d>a{amuk&}Bu#Ke5brOQr4RyK_AkBKE?Cd87N(^HAy_nBn)ks=}} zQA&m%uOy>S*5b8}j8W|;(&~mp?tvbWdGMIr*S8@`Pd&)RCjmst`~{J=ctP$z4I=j} zgNcGw5V>m;O5_~EiK1f!8LbXvqBf98Y#1Il_tv!gfog>lG3MU4RKE%Y? zhiEy45WQz1#K=9A*m?#MQ_oOh;}b@loSlh_rw{S;@*;u0?j+dXhq(9z5-%Tr;_Cl` zcn7>7F3-bBU|=8#c@acHLITM1;1CiN5=KHpLrI>mHhJUxlw`lOAiX}?q(4-fR7RSS zzL!=cDb$mcg!_@C$N*9o@{DlaSP;mtBWW?uN#AP^!pU|c)oFnQ-o7B5!WRU}B8iSp zGSSt|BxYtA#62vLynLB}Wfl_StODZu<_(F8izh*enI!a8Ch>p$jzlJBl9zAtiA`cT zad=fuTv95C=i4gcmr+f8vg=4-Rt<^BDkIVPwInpRjyx~^KqB+&iBm;02`>Lc;^X5< z=Id7^KRcZyyv-(WGIPlL_l2Y`Cyw+NCXkBacZ5^@nzYoE5Kdz*f!1OYlUGF&@~cS7 z`x+8o*g%p?8cB9Z70JqKCfTKRB&n)~q?b37;)*JgQ_(~Us~bsiT`Q@nt0$b#m887! z6KQX6{}0cN+&SYP{ry#R+doKuLgf6Va~tUgJj4EV;AXm)B`i*?(XikwvR0>EgzbjKNJ@i=I7_r^vnkX>GvyX z;|KR;FNyEqH>j$r#E_Bp_U+ru0xSSO$ji;+mN1Z>>`>u;a7TR8VP78~pJy0sZEas= zHgi81EMYJ`+5LM7Vo#q=rQ!R@Q?KY*SXx+En3 zw&@nwN`+?ca`T4d4-QGc(Gs*$-jtsH%$ZrHKYF6zv=uAZM`sBNnxz*Pnib~d-u#^( z&@W3og&&lZySQ#Y%9${J;!J&g1B0he9UL4CR|rlqGs8Ma4M{)KsVwodvQB$LrHlUP zvEx_h>+2gkzl@9w4fS$&HCZwBN^#*k=^^O_SLo>z7r-G^f|e z$N9Wm^k$mYH}y6B9_r&OQe6ZshUP!hwXAxUzC&3xub|_)eheersv9h*@UqMbE9c`nlySKFrUR^`c6N=KcpWksJAk1Fm*(9#6XCS zj*E+ri|#F>8&^Wxr;N*yprHOrd=nSPO&E?L0{@GMz%QaP{qOnfFZ&t8a6yB4m{&B- znI@*GnG5|Qy0`N8{8upPM@%rB7ali|dVm@3r}%yBP=44T?h6kD@4fH#V z2#W9Z`kf#4G8&fhI!s^3yhR4$=s#p`fIZ=cPW=^M>Z`wkjsLNE^w~cIMPLoNX_>k+ zEgKOo+)$0`RvKvgq?V|dt&qoakRx(Aw{+n(GWbLBPGn}ao= ziBKN6|L8;bhR#kdH#Gm>!?X#$vlfQa6jWxo0Sk#%)30xQ)ZD!oc4nUf{*&;68U@5GKO3%vfw{j9wkqTdi;SRZ`~Rh#!ZeJId8- zh0yA#Mw}a%P`_bSNN4pUt}K83%@IEU4ttbCs>A%*s{*5HYwKfQY*@0kqO+Pk>+6)< zCrr-)j^C)6sTrm%#_E@qS7l(2RCRY&d#&J( zlRtlQ*~`n13HpNLXFhT*E35Q#)t@%;&j|-&u3o)-CI&vXxAmafvKjb{Eg7yU5m^d&thc2gtsC`^e!VN667L z;^gevvv^iLNA~WOB*)KRCSn(_lXDj?k<(Xil5>)G$X* z%XgHBjGQ8#;qDPxIeBt_;OuIra+AE47b6$+PLuOKM~S56WrCU_V)am&SUpl9P7maW zo3Ro})jm)1b#IY3CekE9N0yX6xFE(O zy$8hH2(QLQgl+Jc=sz|k4^3={zL_<7{P;1kFt;EkmbT0})6LX?JhOa6d~NkexP<|6 zak3%WPaTPll`GM-_9VKtUgVL353zN2!Lz0>v2^nzk6ePt1D6P*k7rI@k0@g5>Q8Ju z{E4-H6mfKNBCej^#KXgz_sU(a!dul$5A=;j?#K1eAnEJ*NQ~y|E z6A(*Wg5!y2SOW2mN+AJ}2_!5chB=1@C#I8tq-^rybsh;z$tKT}3rI*x0ddODCU!{` z#5ozyqG{E{Ev=3OWY&q%5W19{op%$z@ClU|d=}yBYnlOct*`5Ri!1Qy)21v zDicUsWh&v+ydj*rx1_239cd^pAyAWz=htk~T3Jk>xq!f@5|Z$~mc$h{lKj#NQc_Vv zDyynVV{I)dtEnTnX(jNvoOE<_e05G8%lqv>$mvbL>>*?Kamwr0uah&gGc(fgWR{wmdYPAqN=aV7c4#A?l9i?9 z6aB|}kByTvv$B{3Z&R<}dugc~m|)~06_pt?reoNyK&_ycE?vCHyca%xizYZcYCJb6 z=qcpnUh!O9Qpe+toGhKJEc$(=lF2@?TT(aQ zyxn3oRcZXRIlIoD-8DP519`|~zMs2D>1Q$N+(NTS6UWayC#U(;+}zCM>})M|W@Z@k zy$#ISeKMo7LUYb-Ig6mij~^SW-rJkbzL1^GE#Jg^m(pI5NkulY>OpOIa_;YM`&eIO zJ13@{O~2o@NNFmT!9P<;qq)EBGZWfAH&om2OfsbJWo6Oy4yyfu?!+$#f@u&n)FV z<8C|R>xP$up`rO@bN)x;rohn3pQ-n@Z;qB&qAK#OE>zO{>4nXh3Na+^!>u|N>0x`-P}Bx z-2MDK-8|fayQYo7_p-R(TCiY*(n@@dANjxZfBqbq@NlWA5SWVZ=iHW+mAyS&X`YMc z^XJb8_(wKfT1+RH;QJ!{S5ROwL3KI4$Jf{ZHF$CH?V34}sB$+l_;;Ghl64qOTc)+S zq1n&5$CR$0s;a8WNUEy0M_Vmj`~2fa?4P!_&+hA6@(0d&%yPS<0P-eSY0UpAxV68n zHDJ9{T|Rn6{2q4X0~ActwSBN^#fsHy9K1SBhki{6eh<(myVE2tA+Mk!-*V2t+C7-V z8E!Y&C@tD0yJ*+6Ie*+7p4sv1_U*G~O`r1p_umT&&i=A5McqG%N76u2A3}Kh-xVmQ z!_@zl-C z-nv6B$taLpxIdAWl_OX0D3BYnisTmVQ|{ckL+;*ZkvsBS9lNrs8o6h4i`)&l!RWw8 zZg(c@fAuCp(w=0cLNNL5s6IJ%N|Wq3U`AvWb;*tsp5)LmU$Wy^0O3E8PWZ*%k@2`U zP*V>gB4MA%`XnGfy#}&B@gsSt^?*FkdPpAP+ODO;CJ)(qL`%`;Ct_~rLM&|^h@FE2v2^kv+Abl) z5cR~SUg5;bFOoRX_4?T};_2>2d_6q~>c~i_uM>Ih<3WOaJxJ(FZ{iXZP5k}+nRPn~ zb;M!eVI(3fl;8oD#Dxcv*U`ZwAu5D)r&!}UZAl;<*X>MOk`fzA(i1{RW_%E7O!X$+ zZyhk+kwBgsfm{#Lo8v>^9a6prY0iF0pcr+gEV~ld<7$$S z7*CRulL;iU9+~ad3t^B`3a9NT-hu>{F>n_i9wEaeAwg1_V$9Or6lj(k-d9E^33qZr+!>8Vy~2}qN$?1 ztOPzEpFe+usH~Z}wXM0LjM$vVXvBFk`Iecjlarn4_03Fu4jkWo)5^)&xL_yYtVs2eiq;IOQG~ezXYCUW|iT`@&!Kz7Vo}uu>JrvMR3;NGO0d2OR?HmGVzhy|-DH4<%BR~NO z?ay$}HWcpJg~DyiP`G9J63|W!Xs`Z?(1y*l88UGJ=_~$u_>5E0W(_;v0jvoIm}`r5 zK#xFLhvA1&kucn(gAjw`_#H3$9e}HE0HFO6O6xyDQC%w()U-fe)d$F`_yB10gw)a| zKzk^>DsF^?!Ul+aUk`ZJh46Rv5RzL5!8x@MkW~YI88zUYRt+9+tHAY5CE!^Z(0&VO z$Ndx0`p|y=7XPCsJAXvGIUKJC*q#co7V9w29^gCdhcW83AF6=xTXz%kNE-bo0Bzk+ zQqu_Us~Vx8q5<;C>j7=HkWpL`<0;untT=)ByT^0QzbG`VW9#&`ahaPbKONAEze z^9%&^Q2=|Nmw-M1OdV)H{HLqp#=3QEwXTFK9DpO(58K~x>wvx-AV|kF z_QUYQ6)=44GeEx*u(5XnD?3NHeNPT<$;yHBT{*aU_dZD8z7IEK?t{c_Igq-i2=~=> zK+D(~jO^XviIWc)A)&4e^z6NXZR-WvNT@>t4J%Jjv+w{Fb9YdB>i*Supkw;4p@wfb@=0$rga!Prs=%&@AyZSK~pmfMvn7?odb2C{Xk`j&P#Mm56aST z9PA^5kt<8678x85RF)<_f5|_UC6<~N=$cr8siP;DKl6pB zu6|5CjIl5Nl`IXNTj~1ncloDvK%Xk$9~}r=t?RgBnvMsYTUQ4Hpf3}1k3LEu;nV=* z#{0m93pY{zt}`^)AGH1Tjm?2=WCA*d#=tf-f%}Rop!eh{7+TnYjb{J^BxZr3qt_Q% z8tex;9)_+DbdCGF{8Kq{ad83k9|H6l!+EKhJGWv#h-TopDC-CGB?9y%0`&iZu@hne z{dS+KwqRU>jNFrL)SR;8T&{4qrH=n2|c}Z7%?`6slyel7y5<)`Yl1$t3*IQEkGYF zK%Y5~yRQwOK7E37=gz{hW5?k1>C>R1q5?D@v!~|p)WQ-htZcyA2FHWFBRDuYgOjrh zI5;>0Dj}KrT)lQ3&{q&1TDUOt($F!DesBMXf7&*voMY;MzFaVRVl0SSH39mw0s2Nk zQ%x11t{eRQP@bPY0rYJI^lM~z*VNR+ICC(3Yz)Rvo&fr_!AoB!KwmOIzcEOQ4So^DvkA$G$VC)kIW*q4}bzth?mstfYQ}2Jo zKb3!UU1DT2qsCmcMV=yeEvEC={lg6Xn>QxOjh`3dm$O)`W0(AZz;m|N21rEMBg!KFupb!dP-uTFgG2dW8(ldz#t_h1xC((xE}vA{)fsxtpnvB zAthhN1dUs`a6ZV$$bcobI}7I*^q&N1MmhP2JhxDu3z6sdNT|^LfO6A})HHXl0ArS-S)Tn|5x%)d6&6;8?>}_0sY9at-`pxGkjwk5As`!Jl5hS zycRcrH8_V>zxoDYd`&Vp4O1stFRTmAt2`Ds1wl|)R19(0ZkH}y0`zl{$M*i}{QIr; z|10@dQc{AsbLWDAp%ISR`+&aB*yps}Xq(e^9^jesRFwo!nE+4`%g6(iMFILZe@!SS zP!WUa;xIkVTh&+}T3@Cvm|vb3px-fMWMwmZk0nc%*!>;;sSJH9`1<;Su&^+gnOnjG zmNayx*dp&Jzf?YGThn%~L_VA~_x~0C4<0-g$BBO#7-7#}(F}lN$(CHMPtbK+H(f-{t>X@p%%mJ|<$Sd+s`@00^&-d7Vw5@ZojkA#-%3GQ>K&mCc8*`+mNH|w9S9(7{src@# z6{g4fWIAF0V4YF!nf!9SfRo_^wRQD?4g+xJ%o)^0{p;~d4mjxNtY_r3&l2R=ZV!FHm&Q#nbY@5a+`M`7E9C!Yq#^oSuKt9|`{0~2C_hw& zh7#hR0C8H(`3bR9fLJFicR*e!@3d^n18rl5Z{(B8G94FmtiMB|a}qNz(YeVN>w@zS ztq-ju9mkCPVf|5-`U6#=y*v*ps%yd2)D(3#Ypsy?RY*h4_Kg1LkNnd*{E^UI2IkG1 z2k2Z6x(1H{abEz@Y-}rRbK2+WC?~WnvuRt?xrFkIV*}Swc>e;^qlOT!#Wb!clv}TY zKyH2MJb*IU=OYj8Nq$gO-w0u0Vf1WTkB&w2k!$KUKj3M=)ZriT@9pi4d;f)CYikFO zo|ppS?*IZ-u>G*jb7FwK(X~3k z3_6_^u!8I1+E0VAtaom0>!@A~pL$~==JborXWnBY=;ktY1 z(4pd$D_2hWL%TD)(?68|e?oK*y=v7ec!K%`-@ssacvlL_9~?)SMLDWK9;lqqJy7K< zAJozDW`a+IapA0R%xY^Vym;YrxIbmC>c^-n{{c*93T>%iX)s{bg@EPMjyaP^(J9OxshMFKpD6MT^&PsHiKs}i5Kj8iMT72V9QdyVTNA>jd z041th5fKpqFE7-Wg@gfON&zvc&}kqJkc{&oJ%_cGqYi>nCEiyf)c|zV0(3P1wBvJO z9P~OWLi2-DI9&Xoq^cH*@SI2I%e{N|hHu-pZRlL{4X*xvl$46zSNzjD&^eZ#h0zlY z;_$p`jrujj&;sIXp+)Nq^!hx)@#v1Sfihl#W1uJ**S8md_((vEEFi8H5H|~Xndwl9 z^E{Oq^v`8@|LwQmhR*YUpV7Zac~kY#pZKSBKyNi>U8Xw2n3!0Ief@^fsUf};5DN^5 z0fr2z-yrA4Zpgd253&``1LA!Fai5Txk_?3v)liI(ninr#F!GLkvvHjtaMJn+A zUWsRuLWXau)5ZO9KJM|Uy>{sQ{vUAq?N4rL7%^qhv&3H!m0NoL6cZC;bc$5}fv$`Y z9TNkua1We>{G)3vGiDGE4EOKf2XUN>_w3mt^UE*4{N)_^ZI1p~EaIYp65^ymN>v{u zmDwPn@DQ%E9>CT6YH<0k3S7Fa2p4X#;PjQ7aP-UtICT6ZoH%tF#4lWg>k<+`^~~qR zFTe@0lfCpjhqzFWjT<-8b&2{`{ExKzKda^crT#lD0A1WvgIDHvW-uy-dUw$4)PXDa z!u_2Y8vp;NXO!kLT3__KVXn9m_0ea<@i6TsG;kFexT+0YQPW1>^9)>>-=ASNXc#|m zU4+@pK@vscVeZf`_YYn{`0C#V#OW})Rcc@RpCB#+3L|+(>ptWYa%$wA>((}Gl(sv@ zW2=y1JNF)h!031gib{m%5eeWP5)W=K;=wUE9_)hR!1{SCnES;7Vlm)}PaGKeB!IqG z93V~u5U&9mE>WQD91RLiQE=Zb3hvlP0ODf+aXN!KV;F1Ts9tYR6yr(#Jzxv z_j7RYd=7|{0V_8@c-7V~&47RMd$bAFBGp46+O_;MYO(xka7(QMr`MHVi1I<( zVW9kB(>DiqUFrllP>Qy6+@jCGqbfSY!?3l9Fm1*q#D3gt)X9N;MaTml5fHP)_=OBx^BNF0_AmVq9vWLRHg7ExJBUSJqUiTc5Q$gH zLvRka9lX+O7#^IHtC&8Z@<7WUJlh}^3l?8Ug-hK4`%4Def%b(e2YA<|0%EoxDk_Ru zTj~0WpjU?IenJQB?-tk}I%al|ME#nIni(FbA4kZ$`Y$}FV>`INt!Ctb%H+`UV{t!% z_%T>|B?B(^0_-d1+S8{a52LUz5Eq8JSuI9CMRjbr7x_{??F(6D4YV`cff@QRAeIWA zpk2zy$(QjZ(Y5nt{77hD_+UFwnWW=lX!+>V%^f@qWn+77|!V@AiOmRsbX>Oa(mg;+mWe6o-;^Dvm<>5t6HA9Gb`&0S!yhCl4gErX%2V7yp33;Oy!K_`5!U7(ocnt6@k7 zeFneP|Fr$7&6KtU<>%Tpe?WXA?jNP_?C}O(;8{T5zz`7c2Z)iw^A>hcM-}({^|@l; zEJn{`IGKFN0mPiayNqOb5fTRX?#qE^#4Ct;SBt)jUzh*>{rj(Mh<~&xB8C+A?~-Wu zHvz;MLQeypUE8s|L7U2nJ`xZ=3OzM=?*ClIwM#L!Kze?rgy;XS2;-6D@zmY^PQQ1@8;0(E-$OykR=kss8BQ9kg#w<;Zy@cc@B@rKGj{s0UN z5@I}n67@krJPaH?AqK{Jnt)hRtUtDA1?ETXSybOib+uHt$=EeqQNM{qZ4^`=O?A6y zCuQ`E)Mmu+84HEQr67wo{h{TjrKJI-KL$DOBC&t71K{U5inFmha0glj`BA zO@ZoXsjYW-|N8K+c(-*2xk0FnK0YmGbk&*Gu z@)5fYhff>>#3DnDw+6N));kUB%h+GAzVx2jE~svow*4T{XGZ5w+Xl<0{Jk~?PIfRL zmK7u=rC|H6Jzv)U%*@O$fzmSD3`XN132E^uL{jhG-US1l5W#T+D zsE4IGS4#Am>Syavr4&Lp1b@2#JpBU!e?I{5 zHv+Kzacno^9E|!=X6>Q=Db$aswG{n}kZ|5d+&Q$`D*G9)>BK zmjAE94J9@p?u==UgoFfY;{pNpqJJax=|Q+K?iDZm$7NF7dS4S5Q^O zSHBxd^%PVsF$ZZ-Pa!(=_eC(Ch9wtX@(S(rJp1Er*Xu{s0(cOg3y7%&#MT00YymO1 zaQ>D8oRwAt#OK1X8!SNFE+Bpv5bF!ej|H4ZTrD8R7WgKde~I{9K>R1_6ygA}p@0}s zKrATk&1>=8Tmy&!WzHLj3uW@yaVOBr1;h{oVtJXh88O3v*k3?QEg-%W z5El!GI|anaB4(w6;e*bjh~I^M39YamrzOPh0^)j^vpw}qMJzF%Bdq~(seqVTa0p8Q z#Mm-^=Cm&Kdn#{;{e=Tbp8;{cfY@I^>@Op8h*`$7`CUMaFCb$2$VtxU!zkt|bKs+-bP8f9w)qt4iFW=Ms5cS_e z95Ns#84%kGh}{Lmy5iml=RzdJ!UAG>agU)0i2DV^O*7xqy-aj;G~=s8{U@m}GGcpi zZ-|wtz`2~+x8Yn?iR%XL9T6uCh+784VKd)Te_F)h0%C{ZuIybfePRfG)IOVsYizpB z!2Sc*WqP0Q0f+~NXXxvSIB({AI(H!kmm$P$17ei9Ybmpqr{|v`)|493f+JF%6 z%@AVE!TgB&ojp=bu_^}j!<-8fG3Ga)Ty*~AUMhrOowtdTQ-Y>jG9Niq%oLwE%+}s@05YG+H z&dy+s{fQWBK)f;_9vKju42Wxn#OP2!yf^IIAwq4Fe+pL4xCg{Q{caF94v71P2<(^0 zuu$;#_5#G5!*9Qe9Q@OV0}+Tj2TMnHKx{c6{u~e!4~Uls$y>Ln>{aa9F0%WtzWv+r zs9zoY&E34MZEd@rrshWX?DZ4*?EUMMN(tv+g>(Hy;=Qhl)wQM9W6dV^DbDr_$QI}b zf6}+ROQY&KuSJ2s&|TP7$a>wOrZXQN?U{S`sLsB+iN(9>S=^P;7bZRV=?3qrAm7KMZf_4Fzw-aoA`oU@ zY`;PL>iQCalVRI)WqeBx*)Em&?zHH3Yu>}drah<-SoJL4X5OLi#utd+OS_~6)hyNH z#gGQV&DrvIMij$aBh?csoDE=iTCMV^P*dRDUF~Ap#3k^ctG@EozL}qvx`^CV{m@ZZ zdc2nfk2^1R%H|uf<2$nxeav2!j_V&g8*)zGH<=LtyFn} z&TT*WST%p+%m=N*GM-xpM6N!$PCRr&oyrKZvv*Yo|6?tq_g<3KNp8Y(W2{K+h=hm^ zsVq^g^&>_J{HCg&HnmOvX6)Hs{sU53na<-kosI4l+u~c}%(-Eo5;|?^O0{Du9W&H+ zor5B=(s#Y)XcwjkQru1mPj>v`VIcJu6 zzl)xj*1OWAcx5SHuF!%Qi|@4_l#LDY6j^RjD=Cs)daa2-H$Ps zPk-EhZ~TLm#Fa$Wj9xA!uq*PV+`_l!1}yPkdM@Rj)e$MXKRI{)YWIm}=CnYa15kD&Od1>^s1~2RM_Q3t~ z1XivbNhYh{|0Jcb-?(Os+3X!#=8&fx0>`9y0%PsohxhBWMaO**^Y4wk^06VMqjOsT zn7MO;_UZDidb4t4e~HO8d)9m&i9%tHomjr#Mnf}FHlZ)?WmMw+?d;^!ZSfZ@&V9d} z%)h<=hu<6`%vhayQLFY!ZN9pjWZCX^knLU{R=;x3kwb4Kc}9+lo7sBFcAi7L=A^mn zrfJ$O939g=N|3`TuVo%@Uby6IA4IdAbyqu4lARD60`g6&V4yB2&*edc(5#dFmY z{ci6+930-a_+|I(fNYu7vnA{87lf^|Xy!z+-e(5M98*)=@^j5WsdYV7*M#Pfw(d6p zW24mjD{uFOR)$=>IO{>1v!n~pz5TbyZc#Rw_3)j^ruSX-B|THtK8UD-pH-;LioCgaz~=A+p*_Ps9Rs*^Yx+oObJc{nA0YFiCv7yqnb zA{_4gT<+A~9`W8YLSx$wD#aP3*w-31%f#3hRM?#j=o5al;mpaH?VsF^UIwF4eQGY( zoK+6@3pQ>zDP#CS`lsH{f1j5LcYp+{X9hz=I4AKk?_3X zywcuW#m0T)r=Q&yck`^59$ojV42KxXhZbK-rU1DWiOT{|h0T z4iB3;^a=aiAjqe9Q>b&*)+y=vy;%t+@I%b{Q>vlrLdGJ3!D>Iue|+G2Q+rEkzpvFe z*1E3DQUOmjZF!LDFPS@_E}E(l z(>3hT(TpE>X3V-hg2vreIg?x?;YOLRenU=vV4lcmXN_FdjP`8uY-3NTiSNl;^gUmZkGsU#YH<-LASOmfx*+iBC`Ile4gEXZylrqXdUG z;b+lND;BQJ|E?=VEULm}+5|su?{y>l&hI94qxbGkyvlW|uAQZy_t%JF@7!=0V%~>hF?Rocay9 zzW~R6asOCbd!7pETj#~hxAb3aZ&=xXJh(e=iqXe6b{R=4{UXwKD=iE>*!gK~S^CL_ z>ywkyKdSPoj8GD1lV_18ww+V^!h+51aoJwCIt7Ijqi^AP&z4BNVf0J zYoiyekpl6xr{(f?E(yzvg*%KVsP1vd5p-_K@!%*Cjrcx2#20P-|qD&-^|4LZV}~ zJ;>n0YopoOZd;ssMK-^68gHy+!56ZDJQ2OV|GsbJkJWKbJQjUKg2#CIN#PN1tVAzP z>PoDdcVKnqspidHz5rb@u2|Ka~gb`|OWwh-#}nrqZ8s zL)iE_W0_hE`#>53-R(i=0Zyk-#`d3oj#}v?HSwjA=l%Ap z!9AJj?n~`^J;Qps{j%Eq>^pvx?^(5WU*Ute)Q-ap6qjgQK{+F;F>AFin51gB zrj5O~PCX|1d##$X0?vaSTI!>=?$bEpwffA_s^u{JgK+h9J0)lo@%p8dBOuwb3&aeB zN>1p1Eb|yY=0oCy#AV6Oa^~B;+k@YDD%6kAjFj!4=h>UGOQAQ_!0jv)^}S6jmpQ{) ze4<}NQg$QasNwgdZ^ql$=Jur4 zCu39M#C3#(GU90AZIj^2JcP=yklo0i#Ho`m)XuqQT4edy<$_j&Nk`jKh0%Pg3zfWU`e&^dYRXbPxLmvU?9T-%-Q#jY zyL$@E%63H>?rqsVu|)RF{lW?MV>q5U=0%)+R*I&hME62wo>A_Vmf4ZF(w^|B+E;b? zjIowWG}UU9|Iiv)k1Q0uU!M!jV+-v!@1{VnG{ zDok6^a87pDP340rEa_oJo`LDYJ>*)>=an;CXVeP$xkcir(Ed?V4zqn{Bk(D_wbukPyqWKtbg@ zOXJ-$RvK$Rx-n(tepSBFFv%-oWtxAW;Q#zIRrEA^Ru zXy$J%HNRbYc{eBV(&{j|=IJ(?3me+J3<`{>{Zvt&3Q6!ay0`d_)aR#?-sj&Lm+(XuTwCtoYN9Xvt3;t8|3leT zt)mTM_RP5}tNZqvYT3fg<)cNieYW_WdtlflvAMlxS#&^Xwt4CB=#CGKT~WUUr}**t z+gRIg?BJZ$6nQBbedW`{Y4c4S8%n|Mw;ShntJ;>kWi5*?Du86kO$C!FbkyDB!Fe(__Q&+_Y_nZ9|4P}OA074dqIg{`cHhy8 zX`9me<_WLc=R+$T;~OTor>NQ8sXAD+IWS(SLBkC`C?}^+emq0NZ~U0%pC4{oviwqS zqLW5?mRi)~+ojurG=_uBmi&v>BDRM27Ydy=RWF_QQ7t&U)A^S0jAg^3v&y%q3oVZj zdc5Gxc#*2Ec}2VYW;njyWow+>qFG{ldGnO6VXA$VLcJ0{?z9q(uNryb#1AfGHAhMq zxcsngdUMussfn!(og<|D1g5l)yF7l?#9t46e6q3VsPvjqhjx|i6^Z5TGyEwAf9iL9 zowT*^u^T^Mi`TYGUUctnx>rAcs?X-VVm-@@Qrc5&U2T5MnBnx=<*L}zS-WeG-{4WK zY(Ds7j(K{mVf;a5@++@NaiL^Dzg-DyzQ~qRH-V6nLM6A!sjv3N$Xx1|XwY3JzO=jE zQe~e*>9g7?>&YD5wLGe|YwRs!=eI_-sH_x~pDcUa@1nNBk_CRKKE z99U8^B@qp0+RsVxzMkGzIo*;^=x}hF>(egZwkf6RX%km<^J=`EeeA#p$7a!{-r+pL z(#gfshc&u*em}!Dc&X}6ZLzymq1N3ztx^l^clQQ8?s<0aynCOd~rg`*tgRoT1e2(Oxhalzi=Vxc_E#A7isGgWtflGPBn+m~51%vfkT$>A*0 zljGNnWe2?%-2ZuV)_sv?!IN?a7HkR$4xXI7Ln>qVy7}riw+2nsSsXK8wD(*WU){;( zO!v=O9YHEb4+>w}ExLy2j%@znA?BRR5+hObFHI@!fMp_Ts#ye+NCf_l0 zb#|0yaQ~^xpUd5QPrJq)+I!36hmqS?j|y`c7ZIDQMYhb;u=|y-Xo92l&+ay-d8;RB z)J_TfzBg%4o#e0`voC%you-&;96!ub`g;3|h|=(GJ~i$7Xg8arnaUBoiig~Xsb>4= z99J3Dve@mQNJM-0%-%6eyJZ)DNd7ThWMQij>z3Ez<(3NPmK+hk_Tk1ZlV&fU{z47& z1sly5t-TuA+Of9FEbY_wgCZSW@in{L1D=wMr zd$3}+=*H3Kek$Mk<9ziAKkU9>_pmu!v!pT5JFiAz*dv)3txkz-Pe`SEWU#8=1}VzOhKjq=QcWsL+}$GQi1ex7NUT;E z-?et(Q@@!rN)LA`2)&4!QL=Z8uKkRRg&Tu6tb8IG*Dg5ExaV`Zp~RSt5pH_3RSTZ& zgpSjf+boVM{g~r+PjThJ(&e&UTbnoNZV^Zq>@vF7a-g?w?5MWh{*YYB^>r0aiCtD& zeB~1&#`=ifm{hlV)FMASe$~F)8IhqPGUt{XE8hzdSfC-Z??JoR$foCSN44%7e$jjV z2(MAMN8dSgY;x8{fuhAJk4}_L{?+0CWA8fPschfB66Y)zVGhem2m%^EeSl4q}G4^Q0v)Xczb z&1;De(K_#YJW^U64~BH>ZGPV}*t#A@cRkU1FEoRZd-scw@GIf7|BxDg_QE2q8F4{7 zZ;UozxgU{oS#6D_K+!wn0}&u0XckvDCwQYB=2&HNr zpOr#!ZM*05@>yQVu*>falFx#n{Nf1Zw~C62C)8g)c&BpxU~=^EtmtG}FX5PxeoVANG`^L<*h+)2B{~o zUtH^ze&FI#j^hntc@vKv2~djjyD48B&k;8waki@Z`nhQmff@6kC#|`EGwN0HxqXqF zIIbJr%oJh@xGrV&!e-4&rttFC)Nteb3(j6vI-#ZaCgr_`!livXxTD&{B(x$<-e~OH zm)hvpbkxi!k>lw^My(x9Wmnd3h?EbAYcS9gsMupPVe=aCMQ;wfXasT8O}nnn8LeTV z%k<{W8!p#BR9!=N@-55p+w|O%)n&N&)upF6g8g_RSiIU8atschFj-`mB6#Ys?((9+ zB6jy&ZJw3$WSBK`P?}g67$=BR{g&0Q9V3}u?)d6Pqe#U_C$Un?Tf-)cGq;?C6_;7^ z*Kb~AXTFSOTVgSHh2*Ro1DsNIL(TItc^c)+HN@8iYG-Yj#h@wT#gHAsmFPTTsM?Mu zEhA%1hB$_llbIXtzokwdAFFdZert5g9J}`qA6ndXlYJI^gL1lED`nK>!n+-F_Ybp( z8ng8Fy({jMMqMAf>M2v?%BMOE&s{F5Gb+EmePGY+If+x=S1Ge;vt&$)v%fC7SWPs9 zr_5cXOD}dt#Do30FZ|ctd&O3kBJDBqayMt3Q>){mB`cQKv?j1NUu0g&Ewrk-H`3tss z;aOt)(q|s5y_vnC<$2_W)C=<@*S$_>-NE3Vps_1AHc^%($?s8=s(47$Emws{T5UV3 zOvlYh9(2+#RUkEd{nU5WmakN565mH;3(b1eF{X~Ou5H@BVbdBfH(9r62{OuSnv9J! z;JcN;a9?F(ndgPo<5uYpJlluv= z=9s+N7+sx2i{|P**;B+iM~^d{ayMe4Rg)OQ*%YbFh%MJT=48(8a%wH`x}}DDRR-5% zMt4?q*A-pDxEx!h)!uYNE^JeQ@UxV|sW;z0@KxtoIPQh=u;kZbi>{1+ z*;=C8_FiUSxZ@}Xc)wx_=Q}D@zbm1B;N$bbZbRoiU^W~iE;xC`RgR8V z1B>2N85Ja(YL-5~-Qph+9JNm-^pD+TEpjPmibQKIj=K22iobRzK4@4Q|EsrCOX@6I zE@oeOWKn(TVFtUPMquYI&4IUOtu;%Kb5|LKn zy^!iHIB&s)sxpmP?k$G7_pS*%5RLP-EPSko_)aTyxJo^M?2x5BiakkmnT(k)<`&e zE9}sj^*Vf8u1ybHQxIqqvSQ*Mm&5Lc??#v@9J05VJh0NU_TsiTjY5XQqbhggFIr%y z$}`G$@!-hE6U%bWPceF@mX^`3E9DU}d;1f~OVurZbSJJX$g0?LsH0BL|GnbCF@8)D zDQ6#bKbEW4QtDj5A0MPPX&@&f3p@94o`WjqHXQfW@MG?d>K;celJR5e8k{{ZsXd-c zOt7BX&840E>hTt%7dJi5IKG(q*n-hbOImPsWj@0Ro$hwIe1?LdQ(H%G*5(mfR@U7T z+eumAbx&lD#IV7_ma4ga?JM$J(5;pg*a-55379k{M@l8$@>Bo z7?d2YL|R$?CTNcX||^hGMQ!&0+GoRIN) z`)na!uIJrX5A0MeuGer!zZz;d=D-FKmN^{58RhkO92IIAg%}kF`qi=3G0Zxs%|0vo z@~t;pL?3GMh6GM2DZH~`z!4)!`)lIMI(W8SuHG4=e=qx#(zZHXmZhd^O_-P#-mu%W zgkxf8{va!r$QWZK@42GsC#}tTIoICOBa5%rxtpa>0B{&F2dRu=yL= z<+yO|TI*t4d%7Y~`6CoE-!F`~#bI%*rE^}dv(?_KqM_j+}oy3zu znfGRuVv<#^Kb<&Be7 zP}#`hNac|hZOz-0ths9(OTidl#>E=hO=1@}?NNL&e#g;-LD!h6oui*?%EuI+6x!jD z!tUw%%5&1J#+A%n(gmGD1N4*SI#a`$^G9pTY)uejO7Cni4Y40Ie2~)Gj5rSFQ2jOs zpY%1)@edx%-(F6ATcOkPpxL`#DlXflAS?CB>h_j9ov|=E|Bb)Q#hhsyjRY4QkDipW z&i($ygOQh)Pp{@#wLjLmGHu-f0x0)K_%(7BV z-II?q*yx`?ImUdSdtf04<4)~2A*%di zOQR_x?;m&OslI;m#*#tzF6h5F+P;d5al(~7&e}V6Zxa@dE#8~6h2>`XYPnX!NRXaf zpT<5urS&D-%hC3-LoV^gTud0k&Xd+~G4^DP@xq-2+x?}${@OE1qcHF5Jd3W#UoUo! zW~|ztSDznz(dh`4(AY}jm5H|*M!g(B<*}SB#FRF`^Mp_I&a1U`N&!0`te)y{GwfXP303Cs7Q-hw zOk5i%r!EWb@X#HwYW4NEgDY=k-%`eZD5Hc7l51hQtUrM1B#X;~`t?bhQ{URLd5C4z z580Ed_(<{|Z}I7c`Zp|!?naLH)xK$acjO7J$bI-nK%RBO2Tr=_uXw??RlHq$vrw8T zrD>*g1OsQ=y~dO#9+vRX=VrB!xlcs|+-q-J|4?H{WK~Pj`*W9v#YA&2@=IUS?Jn5x zBB$`J$>JwW!vcm28b_CSRqa)fA1h={xo(v*ng(!c zvkP|(jCfP}`tFI`kZJ3L;_IV#CtVm&%xp5q^OWseHs}2t2Kld&t=!b+6*y3+a-i;# zv7I9$nZ&I<0(XQAHY}?*6HRv58yVfUeQ$}xfry>mEg5&pu67;uDLKA;Po2cG(wgCn zhNrwrcHOjm+*F-$E=5go-q!~xMd4Ze(bE49f@TW_xUkzjUqs*c+E>dJ8ODn6NnzO6xs_dc7 zE2+|h7v^wnztin$#!@zZxaF*>dlzT2;1Ft=V61*;*umVB9qIB?7VXY#&1Ln$hS~DB zqSF{|8*!dmDB&M`xbSvc3{FcGy${`iBZ0?v7geMcva^JymP;sIw$!^& zTQXF6Q}U%_Lm!X4Tf3lswB_MDN^2OH=F9SI8!`V~u0=(PpqMW?+Mx=9<1%9k+6TFlS8q>GF96sv7}+5nca;an4@j2*n?U6^--binrG zZG}z@W!oEho@u@~(!ij@&Lb(YZGkO=PBiyPAqF0fwK+Nd-fhVPJLQFUFW7rwCG|k$ z>^rk34!P~m)Hv{V;hWi&QZ153T4CA@h9`{jBi3~v4mJd1Om;Som@!el*^0qrd}XE6 za+b{03!w#LPsYzUc56fSn3oLd_uhKll9IUl-tgM%#xn-X0v&4JL{y#CEqqh_4Bv-1 z+UHi#OyJIXNqwIadnHUqQ+`YC(0Zlfl9J(EV_SWXMX>rYp1V51Mdm_u+c>7z!-aGG zmN7WR$#_o5p043DU1-F-w!!%`E}q+{aMqyof^$wxv(139Ba$y}W$Rk?w1s!rS^*^| zHTG+xB6MO0#_+8=qQIO{zH0cgZCOPJM4O9FGTL#*Z0x?Scv+q;^)SmR(R#s<;Sob_ z@AjEf)1EBVIJ3$7aI?G=V{O%}@`PirM|d1mIv7@GlXX9M%bm<7qXAxtw`*ceXNJ#Y z?7rU_6rH$~Pb57({@|j<%Ss%Y=UxTxY6{LOn9w=Z>zQE^x)f9CYP{X9YR&Sx?Gvfp&_hrQ(WfR+@{^yS@voa7XHqBE7i2K)i@Os zv9>{S@2ETWOOz(o>BV2od0K43zBi2_HF@RqSed+Ev z6^b8wibl5uy8Di5y*loE46mXnQ?!0-(CCw_tpVAymPJReoSe66GVXn+v z;iq?QmrFS>U00iM?t=Bi^(rfZc$0aDXS%msRbp$XXxP)mSjpg!7b7SmqHJ66WJBGU z(_3B@8%St6&mPUizUH|yGm~cM@DmZ@fmfDx=bE%sGKE*SYWQ@DY>zk96lQwM0L+;XtXkfz=7wgy9J+Bu8Uqqk!PAeLgJWhZjGuu(?t0} zJM23}`1IZkDjwQ8eBh~sAyp}Q7dMH{UD3%o&Svv%@!M+0sgloY)0oyxTDwtVX5_lJ zlqvkGqN2CYL4}^fR++lPuWj;N7^Yq-SiaVSH6-6QQ;JRfOu69Lv$3y=$F{tA;HUT` zRr#s9qRh%!f!e!*k4zb}&71oo9hpP+6JrCvD zlPq7@Qd(SV80)+(yCdMuCFN%;P3mliR*F8lvWoqWqmjW1Bm9<5ee-B<+ogAPth4_p zXm4%twMsg6_o|oa@JP-n%r$q03s>mwj9OFpQtu4^TeIEM^$6sB+wzrY%Hioz<$ zbb({ZknjuZ4=|nBy_GYjB-*@GaD%VatW3^{xkB8!$*;@xMxB{=kSUDo1^z|yJ-(M= zvQP3hzTIX$So)n(SBc*Jg3@M-e5JC4B!6dwR!tu9)$5XRzL^5y-AFa%um|dROGCuS19p%-pLWc?7Srm3;MUF$*ppNwE ztHZhzA~RW8%rBUWXqiasazvFscvbM?m`sH8-VuZSPhVcsHALsZp*?dKNj@-}v9ql{ z%g`ZnjYRaYt%;Qyk5Z}<2kn#DA@um<%AnaZ-x?(HPa9ny^}13pddpA~mMiZbF3^w{ z8!)zYb5gGPshNt5K4%8qUOY2&;ZB{h3CvyTEPhv#blXo3^4DQq#!odi;0zw2&CT>= z5c`UYOw@TX=fm7`UtLXn)G=%2#US(7oh@A)Z$-3qoTYG$C%bGtldNUhk&8}o>?>!~-((CJ zz^}&Ps^cM>?ak=Lp2H{2l{QLnOxT($1@ra{_Q>O^UmP}Y{d?oN>(v1VLK(m(;nXd?;qx8$jUE}r(dwP=+VI%H-d;BJ zS;E?<9~pb0G}CSJf%tCDg^lXj@x!C_5_J^0I;FBBICWxkN3kzfVAvk9$?9B^ex50d z_3q|JyQ$fH%QiP@Mk% zAKfK#wmv#bfyqEln(86Xe0I9WK*92}gWh(ca`W6N$ zc5Rc$yhS&8PHXO9xZH4O)$+iMFowFve^?B-IG?A9G4g3t;j_?)5qd!k0&V2xuTpsatJH)uJ$`DWiPuKO4AvPIBXX4-%aD6ohzVw z!dUVq1-D+okfW zLE@THZLSONj%}6VZFM*uF8NIF(yj8O14ASBA3m!$!x$Rmf5CJtM8l;Ue6i6Ny|f?_2nqbePaf5QI~R3 zB)Y4tsf<+0F1>~W+-ThO6}(SRC5L((UM7-&AGkl7+P2gPaf6fj#D9py>-a!%QbfH!QVE^x1+%v+`2ZW}A6Rq?Fj)$y?rzUBp9GvA9!-MT5xda8S#;$T_V{Eesl6#{Sv zbIM^+x#&RoaeLQ1S#6fszL(+Mz*U2pl=saQ)j4|!>W6}?G;apv_g&yAdK`BX79 zsfUf9Az^ubKi9-j7g}z=DYY*epr9F`xbb|j>haqdPp1u!9N1aZG5UHM$~t3}Rn@RY zm--5svFwKYhKmjBMdpMp9mBqszj<-=?XmN+BN8e8qg78tHz{gzcd*!3uPSeOXS!CH zfv5hdW`tDW#wE2{Y^@2@dC?iQlJ{P`QCWPMi7$EIrP;Sw@4w6#T%UD(t~SH;AlpYP z#Otl5$aoB$R~d3|of0p{WR*^3cBX(*i~5@i?9BI`JqxLx#Tva*!6Fk z$hXQ(ij>vwrcs(+a~4Z=)Qu@np2FT4zG~WwdkiWbV`8M4sk`qpZ+7x<-F0>tLwocE zKGx1L3@T^h8Qv9pkG?(x1sf{USbDK(OYQT*&V3B8RQN};%#oSW7$5pJYR;RGVCJ*k z!eqz4k)Anqr;bMqd15Gggum7bVlmd~&chP^T$o`ex?!lM||7n5=-~Pc& zp-@=xjh_SX&0cJH%#Kf34kTn|W;O`l$~U-&$aiv{Ttf)&WhM8KI!Ik84MIKjlk$I` z-!B0g9z9qS%m{V_Q^cDC-^jp)0?{}+1EqZ7Yh8vh*}5P8#VTT)VzmDsGgx%p6CU0rS+ z9UUHmA7VEdzbjy=jzq=tX87F}51kQzS1dj8oDY`1cz!x5$#*0V@;jDJc+LjN1i$N| zj;JBY5naJ^!q~=Gq~Sy-KGz4r7t;THL;vgHC(J+E_z)t0#EA#-8;_+d;zB{J%<;Pm z9?w7u#^XpVmmwwMaVq{Nb2`#SJw0kBm8zSKWe$y~)XjK4TaQZJgx76EN<&(U^{&Qp zDc&EB{mpM&iX-B^i4bZZutMBhwMS5&c_NOY3K3*>tsi4z}l zhyUq8-}HcnJIUElro)JR5!qs?hNT4(@z;w`_Nx$|45UJ&62!L}u_72A)YsQ-G}Nay zBONv{&^=d=V(SA43(>+QE>o{V7_hWrcs5cE*{{d{L z7Teg1`mh`M$VW;?T7eXbLA-@4A|XJBg{ph7e-`Bv~XQ zBu|uQ7|M4wVvvor3vsC;_KX-E`hd0W5rUzy5%rjbzGl0Pu40D+Mf&JuKi zsf%~HtBXDLP#1aTsV4lwQ&s3Cmd`!ZMW5mMCvFCuNnC}g#6VZ;1$U8 zHsqPa2@;chkxYd>lT!28IdjV>1f}F z&GfWd?X+b(UC^ezR0LlWjQrF-U`Ox_)DeWaR6z*R7laT)AqY1WfoKa+SYjmx%WTHO z3VU%#besTdoF>9*hY7I4P8{O#d@TM>t_w2}hF}9Bn5QQQbFiM-+JZD4A$l<#+nJ`q z2cBv|FPt?b?^^39TrxJ$ZK3G`EoSI7Bd-m}H|7u2-PngLEaS2CM;~TJ{29>$)Bz3> z7ygU$116Fmk@$!*;UVKIEUi#hbCF0Mmxu9o58C?y;@ge%b&lJh?YXIqe=ISEo-Bw)GS1XzfAL3C=4?gxFC@lhYVl?C2TRhM{R zt*d+i_47E<1?2xQ>Hvumb=aR$#D6oE%diZ2J#FjfH?;uPV~QblM)YFefU&4dy@95=>)IDcr#hwI4o`=b@` zetD=_h2f*-t8gkCvnPPuJH)jai4 z4|;NidhA~r66P+{I3zDT)iOmz=r>Ut)=GfGc+_3+P z5qB~sFC)044K-WqD0R50h;7j5XmD*Eb>v}2WRz(kIZ$|&-Ca4 z%^y%{{-7B9osRuph~$WVPm#m~)PW)YPkjL+iE~89kw#!&Cy}u`_B$B!rBsy5PU0sq zw{EhgC|q<`5qUOE1#>s_ud{W8V1bbc%6KA8*5xR3VvhuegR#VZmEh<~WoTK0*sUYj zs=~QVs?d?G2A6Ww;7YC?aSFN*Mph9BdrQAy;2duL|XI$U zHeZ1z>jSY$=(m;OcoM-w4e?fk^O=bC7InlKu|zy??9hN)yENhUZcVsbss;DUHQ|1R z7ChMVfgbLmz{5%{c(@mdl=%I@$KT0y}b+{Airpq^Yu-RZ>oFK$+c^PAMs zU#P*!wW{c6RM0mlW1LZfnnjA3V<ks}0?CI{0Q?q@EIwpY6x<k z;?J;OWbV!!%TV<9I7gyefpc<)Y&B%AdMXLNC32aG@>yUc3LD&}Kxv>N;;w`_mM#lIG?2nm-Dp{a|+tGHry@KLA%yLya`r1@T8UsPwR9MPby-o3(pTw;RT@v z{5P})Qc~gNpcR7aq>c~ukoriyPxk3TSCua6gD$PzJEc0Pd)lZA6u6YD zg>gp{^9K!l@1Q#Bt18q*DMRG~d~x4Qc}Q}U#Qa4V=NANV{KyaP%EB)!D9Rl@z5p>l zfQ0ka)b&VY4209&2BIWaLOuAmjSrZ}90!T@*rzGj7keyYNN$hV?=#iWXmM2%?eatg~$8! z5OY1mTMwQcAeiaH3qlPB@Zyj@V*P<$HR{8wMuR@kf9`$JKTz1 zT{U{BdsOs0RJdKDi}{2u`Xn8=u$hATs)aF11NA@+^*{yogeXD5bUBEzoPa(~82r=) z!5d?OqpHLMLw%hVw2vcb8ze8NL|J7cEhILB@p1ynk(1=jm<;?I#)vfRk?&C?mSI20 zJSeWg=@udW^;TL69iEB;Z+%rsPA>#e=Hig+i{tJPWvGo(g{I{i(2}BsxN9TsI&gIx z6>jdnLgauMTO2nD(Zm_w5L;05450R zsRrf;s!%ph88*60!2)AZ@Yh0LfN{?i^Bz+j_0yOO9VPJqj12pUr^U;XCBJxh=?8zF}1 zp`1=_(1DIEdWgFo+$=Ug+zrvjjG$|u5!$*j;%w)^i$tXrJ)WeE|8YGeSKuf=4w*aKF+J^}rDR*l7S)3iaT8wl1`- z*MTFev|xXXI_wQqg`Kk$VX2J-+JG?58wh}>BL6#UP5DmD35X6fqug*^fw~pTB}k4q zHju)S`yZ?WjKt?7k2LJD^hQd;zU;;~D<7GvDBO*6IH>bN5Nb3Ya(rabC#pjIVhw0s zNr98=bWl!uaAm6j+$cu*l^etTy~Zd{6L?%}0#E8q;OTx-l(i{h{~vnZV2XHrPGgWqpV4bTJ#y?S7Jn&NF2L~02dj@(R#s`Q$nKRmslz_+1LO}jfbjBxH^S$WdNb4kbL8I)9#omZ zy$VyfSz-cLi;U2>8DLDH!jVKBsE^U4*+8zZJgzy6$N3H+T2A1sEcO`ZLXM;S4x=3R zqda#YEkmD5_MS{8IrTqC2WVqFBki|D9Y8wp4<_XA z388um8sCqRchZlC*q{4*%~7|_;E!FVaJj$;&Sn|H@f0fN1r(?XQ->Y1lpw}Jg61EI zpPZ^B^30H`-P)rAC|BYKmZA@^N0KBt;Xhzpz({x?d!LZEDM(Y1R-(@@w$M~K?XJN8 zj$l7qM+DZp;CyWmj)@ji;P7f)Xy0G}9l0iOZHF1$Dz$*Sm6q_J+6o@+vqG6!Lsy*@ zJg&F?L{IRTM*Fe+r_x6rKj)kDgY@Si_UnF?CETsBzk~M?h@*!=L z^*h1~@@9*?#iPFNG}ll#?IF+io?suSD+(DNxTY4O4*O%Z;aIXBoZe&vmkP|_`YsE! z2`ji)X^q(1pp0zbQLPPPZ~N2eZnZTW*=zu}_YxiZdF^~z_ap4v!y0SU0c+HCE7W-_ z)O`!+$isgE-(ZL~p$E0m6eyjm3M=iWV66P81M&i|F@I`D`Qp4WEgvYvW3u;*>@yM~ zdk#OYA^%bxAZ=m{8ie*Qh~rda!V}JCZZ*|XZgrFAf9Io2*3QLnPFx-;=4-%#I9>F2 zhHy3;{ohs#_@megZkOA@y}h<@zuFca)Yu{ZNVOlS&JK0q$EZAs0%}qtVI(IT3}j;l zCMNP-lBx27FO765ClPbnxBz91 z`x|L{jI>eq<4E3({rZ)21GHS9?2kv=*Ft`R(DrjowA79u_HVrr`#>Er$o5izJ@Yl; zz)~t4Uuz6!H=DtgA}jb~w=LYRu!FmM?GgJA^q|H89_&LRdBNA-sIRjqB9P&(fOfBi*z3WGwI+zY1!8Xlf0WoG_V#dRuOr;8a)f);j;I4j zHT^>bFM2WV>vgOHm_U?|1DtVPXKOr##($sr#=hRGc0&9=^#4w!1L}YSTrajo9k7Pe zndWeGjWLc5s8EVJu)wUX)59%i9Vnw7x<}u z;Nv>(kdHCn0oz|`prf_dSzhP`&S7BwDvbMYWT8A5?S6?qoJci8?5!}zw?*u+ujNi~ zdyf<1?~L~Egfi?Q{9g5Aq^mIQr(yp!T_N#f1SdO~sPVzRbw+*Q|6`xA|3nT%9yiM! z;aaf+>VPer&ayxqFu_WNo*Is{&0bOLp$F=xpSm!{Eg95XEvS#vN1soyw}#6_=;MkV zv5(GhYY*w~RJdI^75mvu1J-aj$prRAQDN6?b%-{X#C0Pa$xD1S00s6*O8WS>+u?G4XQEb-+ zX$9u`humcN-V>e{7)-?VZgr@M(nGz)d^Xb-E^c+izF?n9T@ZiLKi3abfn`6@C6v`5 zc9wq>_Mht<(M$P>BcU?c_}hI(+1x;x{88o#*GpWWbLUjJknaE|H(EpE3KOVYsEc#v z$~Z0*rR4(7a)Ph)b+k!7*ns%&L|Tk~*$90A*+<5XJoINCK%3(u{sr66#J1+^YisRv zmJ@hM{667ni;oIaE}}xyYIA7Iu!Rc+PH<(X3tZdnhWLM^GI#7>|B{#4#D6UIpX&iR z<{3E{RtBnlTLvhr>qys%UE%WfscMRG-G0qa7Yp*E&2(ch> zpcaYjAqqfJAh|i}0NFFpUmvn}ZwS^+_UgJJt+P{{aMMke7uT+YXgrmN=+Jm<-Czsn z@|@t(c2~GsjQuEaM}7WCrC9be4IT7j<2)45FV~;({G8C5i#h+7viK;cYo#7&H}24h z^1Har1%1mNa`=guD|q!g_#MK&QSTPY_67kkXvW5J6zuB1|3^n;Z&9*G$&a>btL|~y1zQi z#rYNDd!1zkUSk|Mj<}F@qI@iakW`S!p7Q?i0W{mk{6Z3azb8ISztKrfsGInonOdSy z;Hw5z5r)W{HMD0s!G%Isw0#f6-xIDBd!i0|{WS8kp7O87zekVeI?47bA0odiJ3UaI z?r=We6l{$ zEPo=|Q^)`7@n>XYfc!Y)-sOaHytKm;I<|Sh=`AjBe4Raxt<9h~P#YplCSfj!>qOGL z?~Sz7P9Z+{d@{`kkara*_d_1QggM_}tcyI??qNVt&z&m6_m3y}Ch_H>{>(Zc$|Z4|^W zyU6g;Y(LXo8TN!3LgQ*1IGO1JXY)Pa!ZyOEH{Vt&p4+_9zP#W}t_QTFJHvrxmQXT}3M;H-z*C;)1He>Wp#yyY$pdn+B+t((Aco{! z6yLK(Oy+yo(e6dC9tT5hjZE}2?}+V38cE`uln&G_v4G?2ozX9O!np$EZ>u-zfX^=_ zC;flV`0rafF>DCix8;ViJzwaJcIE}`+3s*S#R00LOkt~^Cd||jrTG8{Ibq@h$XK8Z ziM;p51o7iR{K>x2K7EMJ;Qi#?8}eAk92>=nXNm25DG5QQI~nU6LsJsYPh`5onLKYe zSLlQM{T_0{ScIMX*V8`4^jk6{GCqrTb~@J+S~j@C!R0nk8mv$A0c0$I_6ayPJBPTD zXO79cjJ!$SPGUI9r%!nx+0TdAk3;N@^t3dRoTYi+l3a74z69=F#l36s)^I${1==^G zPs&5S@_#S+qaXaY>wvGh)ZfdoU>e2%Z)nT%gd=O6p*q?e3Vk(ThMEWv`?Qx6d4jl; z=LpE!&?3ZM6a6@Ohh1OBf{bLY7w?^bb-7zBN}M3N<$<~81{YS%{KOY^-Xx)q`$4%=sHLv5TD z99{1QC$qhwJ!cx~z(0pFLQMc2-M`Wo_*==+CrgxhdyWsZW_m$$%2cR|G=n@Jb$r%X zh!z8E6~rGP_9PF?!O|azyn|>6>LOih!(ASK*-3PY`2IDv_{{r!BWPId z1Sd9n!pY5qkAEInX#6|p1%e!v=$2>OW?wj&M%65&K9I1F)obK9G^j9b@bl!+WOM%ZXlgk>&wk%=-#_G%?=bn&etHXvy%w_NSo_ z_%T`^Yy`67$Ku+^P#`%l+W=-736A9iOAT=#zkg2~tXNN9eD6Qu+T=O2O@@Ke@F)UaSt2^h?D)g*w#140VGc(zJkp8 zSSd-C(tJP8FQqvuLV1`O97=LUpM$x_Mqg~3wBI*6vcVe^C-Qt3HXMW4pd{Xbt~MQX zB)_YT-=zj`Bac-W&5kXDFU)2(c!UY2yHb8_wC_dnRb_EuBlo@nnzS z-|Q8qt@WY4@Zk044zfajka}j|Iz!=`9s+E*ydn% zR%l-T?Y1q{#QUYKo;H7GDbB~;CprE}<^+rNKG2ln1vN2tXr~kiP!*=(kGb1p#Jvjb z8Q-U;N8Y!@^EWvFZLJr5#$*ds>13iqB$lkPmW9#|w`?jtM`!>M)Cq_i4{aQP>-FRr;xxq6 z8SxiEAJFT15Qz;WM&R`dIEJhx_`Bn{FUL(4DkE&*;A#(OOd)OcjZ$VA_bc|q7MU?$ zI+*0uD=&tMqW#`xfB68y`)IBqFxOVOSN{7d*W4f=t~NwX=ChngoBBm(2(Sfv8Hdt%`xbwU=i<4 z?UffJg?|qIr2q2c$APzzENq@{*(=X|mFs`5_oCr)V5J9Cgxf%tiz>L{-aLYzmGb0k zh&{d^ojMosmm~Xwd&>by?ysttc?)7quS50E)Xr3t){A4dEp{qp+WYY(jUMEm!Ez0r=4@2v#^ zI2TCp!*Sqa#C{jjBJ}^Nh%sj`_|x|KV4g6}N>yqhxtGL{)n-yqJkJdF#k)fN3Qr`Q zZ|Vb$;~x6caG=Tvf0GxIC(?see_uoPb0qp1ev`Mp$dK-9mwQ5WtTSwzp$Cg_uAX2> z<^mCW@=o$N^y}n(v)shbW1qkL^gP=mV52Z$!w39%A>Ba%b3ZGze>bRI=H4f&jB~~3 zGJf7%ypN&mH~BG;6Zz%%ll7;(1vcO0tFLnG%k|Z*hNXs+X!sKxaUOu|3tNHM z8zPM+e*R1F@jGq52VN&^FE3g_?(@LhFWW^0$`{%~HDXzVI#9Eee)2Ps|7r3ka^4bR z{Y`$#qMc#rz+dYFy!Bph4o)aPOnKdK+y_aXi zK8^hyWd%s$yLFOd?~sej5JnI#P7;vt^zY48Zwg)bF28qT`0s z#nbo5lHPmvE_Q+4^Q~c{y~3w4fTfDmdBi^%@wYG6dL}OQO?j;BJ=kBEqC%fm6h^@KJl{JOAp73{m;wiePd-|hMi&ded4RH@}%eb zJ(12(vcMLyoRq;!4&OP9IO5)|KhW=|B9V8r2=uZSfRXGI(x+%j;XUukeG%H@@tu`a zC|l?N<>5|!qGhhS{f<5N(1Eaix^bWQ=;6C)z8%O2kLh=whz^ikKf+$~yZGwiuRlwI z|7KS;90Lf_@W(O0L$v?(h`$43+}oaD+FoxHRXHt!J)u~f_uV?f5K2SsX*y80$N}gj z^@)7_CTn8z7K-EPZu?t2uJ+Ue9vqYO*FGWk0W1*js!bPfb4(RMl5Ye|;N=Dh-Vt~_ z5+?JH1Ydo8j-n5;{pPg`9iaqueT%y$%){pd3674kLQfIFvmU-=V1EQc0c!_UpwX=ItbSJ8uzJfdU=gRo7I@e55%t! z9s64Q-#RBch6}cb*nX3@%m8y*8zeq_t1j}pmZSjW23mfzK6?7LJH!rhF>cS-5~Jbo zBqQ*g4*Y5UAJ=^C2>xW=e}(a6D4J;syB9dnbb#mqJ+wW@_M3hEmK=J1quIQ|c)Hr7 zho`^0rWpG+-$DhH#CU*n5PPqC$jF?6%6MK#aMAr+-pu60`YZ<$OXP*e{%zgg>Q8a7 zE#!IYLYQ{X901>IwEJ~E{=c{QPxgFT%Zt19;J?~z3KY#YhutCer~{64({z2gKKHu^ zcT$e#90F;+CUm#g7vAW-b_e!(nF|$`IO#yFqc%j_Qy_ghu?70%V59tF>(9cYxnLKa zZGFkpu3$UJpQZ;9Iuk#R0eIgb_G^*8ng5Y}U-t51em(fFv5~`S2=|wTIM7WJ z7}q|>lip(zlO5G2(cMm8c>0ysx@k#$SO341ljxY?-zN+7zXbnis>G);pq{P{$^R|C zHU1-cfrFgLTpIqkhhUwR3=RLCH2m$67y4)z`p?h%LeDsmkDCKBW|-042EDxej_U@q z_1~ORkeN!~WD;x-JLlQpbJ+$EYcS~({s!7w#Q&R;eZ9TS|B$$V_y_dhpK2)!TW6ZV z&bhX*3+ttq2IBnp=lCyk)&*N-iLcHDll`7v+R}8_O)n3>>$<$z)_>~z=W_U-<3Vf# z`Xn1-t2^deqx~cP`v1Wn_w%g59KZm_f1}XOzdHX*^aAmB>A^qQQVt6J&0xnITi7uV z>!p)ExA&2__Sth^nvV(i=*WP!q##fy3&AQ^y-&aOT=Q=)x6ZNYSNw_2tiU{kZn>bX zZV$A^{7)aE^&~&pzpjpU9O6$wAJE(S4+GH)J6U1V9{dx{5r01utPk;@OYpa+i#{Jq z%{Ee^>mGXR{x@9LUvmpR{=!gNlztf^PDQh=@Ocn@T)Rj7F^-dG_YimTUxO-$ac}Ft z3}juW+*i}@eo?>i!?HF96>uHMs}>1XF4J z&qYJnHp>b~z1!#5(M9<)ZRom=-uk|FUEypSSn8kyUZ`WiCMxhN+WZ$)^f;PEdK~j2({4ot$Y$WaSUYZHys#(bD;Ffz6kN(iaA@3 zyEX)Aiqq^L*K_Y8_Kq0;dz<@3m7skXbv4xoBK|Lk--ytkjPr_otvRyUN z{t_e zv%s?W-yyh`XQ3t=gSJ1O&Ub<`BL1EPf1*F>4r(;~cLwA0g`w_H9QJD{&{X4xasOP# zt`yl`d3V;3fr-4MVBByH;J~?SGUrCtpd|T6gP!zwSnh7z>%D&`50Nq4KirS)3tZ`H zf7b#x*gnqz$81Kh)I=7a1N^Z6$52a^Jp0r0>{pMS_gXqi@hK6#A^Nk*QUT+M3C;iP zM*Md#^!z0>kafTh%k6Xg#m0{K3*TN;McTXfKEJNFV@*k6*!3NKU*=}=L;c{y+>c(F z7l$JL7^ib_?r)LaBpUu`%g-?HS10d+>}B8gU-ZCHOP&q!e@gTx!axf0rWw-kFIngX zr4c?qoiYO*e@JFu!*Kk#k$>Vlz(lRjZ4AM+{{(l_Kh;BzJVxO7{cAkYb8f!14&CkT z4)dVR6KwI+#rHvtr;Yva8E*WadHqQ^???ChUyv_G#J`f{fHT$c|CwYuzBdq$HxnUBw(@A-*m?I}O@Y%qyU+roT4)klv!*uNv5#e3kpp6Qfzd9)u5|E&R* zu)<2|Q|@oBBIVK--`}GRj#I|T_vC=9Y?Ntpz{LJ5VgjHtZq`qw5yOUjm%a4h{bh-J z8vn%aD733Duj%Xek;8_fEa;a5;h`^WjK=vZdgZ()b|y_vNPb3gwS^e7N$kdTpU3F; zC;ZKvFS7O5kA}c-W{d$3Nj;0Oz5+ko`-J|5w6%BXoS#bLxclcl5!fpjg7dIn^4r_| zF}c1kWTz?rm%6`f>+|nphtofv4RtW0yY9-Rfi(Qd_?FDq`+bc4IPbfk{72)*cRu_T zFgXrwH>iP1wz43Etad`)>JES^le2V?JmoEzUbPU5b zzV^H)p8od7S&GMk!~l1BK}fPwrHw6!|F2F6hME;2P_uIWPazpmfqubXRZ{e;{Ph?9 zEX>Sbt^e=j65(nNiW7u^1IKoVz+cElQ-S_^5r?W}^Pnu!7f9?6H{}i7Q^;89$M;Wi4jBy9E5FWPf8kHC zD_@4P_yIW#X8-d#A>pljSrGkoA`Vr{=F(zwF8Y37)eqx7-1A>W_Il7e=I_lDpbtnP zF~Cb%6#vgxAIKP!_@COug;2L9{HIXPq8Wd&iLcp7Z|8^%NgciM*I)Z{NISi?LGSqi zUpyBwo^NcQ>Lj{H;y+n)NVHS?vP^p(h3;SSi!y0Z4nb zNsFL9CF-Y9Z@#fN%s)RbIA-KG`67P%^XtF&n2hOuR0dzZA0c6eGyQcYN7DQR86%QC zKOxj9AALXX19N?ykw0qtC>PoXV?aBJ0WTmv zob}Yd$rIamjKxt9f8l2|*RXH4^LMf-O$hx{os&iQ`&1v%J(6pXaao2t6+9KmJK%A@ zmyAGqf7t#<_!%$;xc1BiCE9Dy#sSsKLtuaEVmO!MY1@+EKgs56^6%~3_9Y>` z@{>Hz=ez6uvORZW?OxlVMcveWC+s|70%U67d0n+LLI$hRg#H{cG3|4~I4``zbVTMBn#O5}*7net1Xy_<9`C z0}?~_r!W0xTi@b?{8o_|2^!K8I3^qbF}_Z8*VV9L8BI?}3?_Mh7LLumm2s~R+PtmrYb0suqukLqJnbP-XDE(}Vd*wq>vVYzQ%Zm0|xi+@fc7BE|dg^S- zT1C@4;(JLRw%NxBd_Io(aILop<34$|r?>sRbmRTC3laah#K#aHkm#UA^8s~9;WU1l zHz&d2oHcNGOaGAu+8FXdHwp2KfkT@UzsdtS-yie7WXzYkaOPLr=+C}?wJwxzGxmeT z4w8S7HQ8_@IokXj`sQ~IGJ>){3wxpuh(9Z~bB_3c85$EI&)*U%m&}HSw52rckL0d} zBYFKtddjkY!JY}%UkL_Z>cy1t!ryE=c|pKm?)kC~dcIGyHu`2e{n`J&)RmipJ|~ej z?jmu2y&LBIN}?a*K5s^U=6ooNuYOPms6AtWXme%SSfDm>5j1D5hNF4w;8?->ej{@& zmA_y%-_wCse|GEw@J1{g3@A{T5dODquIUH-4OHd-ww?a$|DWqxN7K8;jmv5CZ$-21 zAQ0m)u|>q=p1rK_NCfPs`28;x0d-(2i38p$<6)zxAyh>B)ACVb|Hrp(fD>Cc_6yk? z{CVHR02Y?-t~V`W-d}VH`$g9|GG92~6aVw5pZfJZ^&Brqqxo18_sMvFxh<~qC<@bT zf2uU!v|oii(FMex2X*c#8E?+fm7?uAufcfKl(~wAe@oFOXxX0m!xTB=KjUM9)u`c| zKUAlbc;DX%J&=tJa+gK^P`f`Y3zR4E1r6!TXzQ=p_-+(mwFy1@JDY;1xqa9A9>MZ^ zKd1w9X>kB`Fvd~^c8B77fs>=)Xl^RB?#P0ZyEgwYH5H`)$v&ry7y02jB}9e(R44Yo z*YCo-Ip@5S&(?nC@(dj!dx z5Qzh8-SlX2;1JGDoY=Mz+KRV8dr2-*-Vf1`LH}7JHPcrAp}Kl_DOtAys45CTY`Zu7 z?TvK%rLCSezpu=Nlf^kS+uy%-G0nynqpi{WKF-BVmF5lp5e$FyUetk+=mThT0yDHE zVGE82s&MU+=;}$-+f!u)aJqc!5789y5AV>LBqjpQ+p>PBt}l66F+cFD_)oz&@#VF@ z`unM}LYn>&+ds51fo5B4@qHP@)`-oa>`M{9Uy|>AOHYswE!2UxWRFNNzWaDPu0z(Y zUPv1Y5c@y9XB(WU-2UAZHG4WNnt}f@`~!9LcCR4%ckJ7rhy(WxoJ868cF(Umf4X8T z+WuzRc)tqw_iUbS0e%`1J^B7Mhsoo(zlF=M{0(&=f{X`ez*8d52q6cJdp)4c$xARHl)n1xU8}E^rUoguKW@DcHaee0vuF0$Y zN__vWEySM*iMCge%typnsYA&kZ#cLnhqo%Bst8v>SE}q zFGs3?j{SRnD`hT^{gdsJ`NY_uS-+JhB9{wwWk77DWqStfPl<+|^W9*9vEqNm`BFTQ zzXMx(+eG|_ARVRYfT}pGa?%CzTmqT1YTKO)=W9#g;(PK&86x1rG{#_+*kuw8u$GcBJH!{K7m04*`cN&>$mXG({~~Vq66pA?~{2G zvZrPzKF7O|VE=J$A7#1?>F=J~|DCY^scqy{5Ov^6j}FAyevAdUZbfvUV}ChK=ADP@ z;djx}(0OpYviP^PPx^hOxehKLs;1=}#O_JXT=akKT?cqnRnrCwh=_oIQqu!TNFlxN zW|M4s@4Y8|m-bIkA2uSa}BfX1&bZHvtf&yZrBs>2*H@nO3W;YG=`}}_I^UU5o z_ntB{r`~g>^i83DfljLZo_#R0zm9*@1)N);4V+f22Z|y+X}z!}93`v=crC#6|8RUi zUH|&v|1UUxfPVODpD+e;zvuG+Uh6F@NTgo=_Nw#!Jn&JQtzb>x2@m`-l*Jnr*akI#5npJECrF}ij7E4p>& ze-J>|%~Quv_lGdw@5J8dGRVzLq^-ld(d0CL>L_YoCdXmhhJEi8RKnJO)N9bg@}ncs z24uWX$h1yO_Jht^7vbB0_s02~;0Abe`}A?TeeML^Id}4Z1J0hL+h0A0tt3Cke*iv(|D!6m8pwh+Kgzxc;g2BY++n08( zryq{(6UKnM=TFhy3#aMFi)a3kaQEVA;Qx)#hPmJKdjI^E6~fsF>+A6t*i&jJtnqn% z1YeGUKl;^R=RYzkXl$ui6YyNuSz=8erNYM)_6ZKo9wVF^@*V-t2RsJ+`0ZJ`cj+A6 zyL|qi0gNkf=61{d{yNrrmv?Uz&P4fqd{w^;8Wt_4Tn}@_c+Y1!lL2r3BP+B9NP||M z4+_x^p75SFj|IK)%`>-ajQsp?GM(SFT=+KPH35$UT>tm4T%@0_GJN}A2p0wXxUKTo z#qF2(ba?NRqb*Df~lK#2h~1*2YmRS9q%h^8lc?-ZD6~wHiVs-Je+S8MT=-j zuVlzN^rK^6OcBnHzCW}}m=k{d_DoqDxORzt{_YAr`2OmD6c~q}zq?F70iXMqF9_rP z&67vy>b`BlIL7C;tSk8$#`?angD=eUY?INpO$liK7{K-z|KDHWLoC|CO`ZpNPUtAI zq{1jMEhpH2!4TLKL^)!mS9^EJw+8B>HJO}ao&g;7G@GZwO4qq>sA?)96EbI(_h2hi({hjNb z&+X*vyYE3?2H-y~v!TKI|EeJP(-^>O1HtwXj|aR~>V@^eN3g@WqJJiIUi%BOro3PN z?T)oV9q_)&-SgjIT(}_gOV#$kZQ$|kn`Ln47CqJlh*Q=+t_$sm#}&?p$9G_wL+m8B!gr%PP0xv-6$3H_TQvJ;j3AahXPHAjL*x44@qzafd2GIS>1^4$ z@jH!m1L~Ih^UvR79{*lGk7Hipb;j+pUkm#Yyf<}a?^a>2j@ui{w(&ZC>!^HM)H?;= zEl?nc_4VnnFgVo^cQ(=vOF_q=uc%4uX z-~=CyQkvZv{s~}{k8Pps`FNs$9?fgA4{?`1`>1 z6M$o7bp89j`WygX-ve|;TR4KYAXAJB-0yN+&4l)l58tChBSkbm*`KE8MbiBIBw?Ib zH?$LND(Z%Q+f(?)WPJtx#$Y`R+CLfaY`>Q3D; zuJgVnw>zGbxSz}G{0X;B;1v$|fAbAr{n~rADZuNdfH?4eHsC6cxm+JyFTCdBvvaO1 zUW0Kz<*}l(mo;_4_c!<5f&fSA6XZ+<{*J<&-32}fd2Zo4=JiI7o0*WF+ZN}?Yf_=U z@$H84c&~0Wzz4uKcK*Ho!yG_8=mXLL<555B0OtWugt?f%yA& z+5BDht@aD@I1X5hds%JP}^kYN$w1TozWAP*fIHWFSwj%%DX6x|V)f214olOpZaZ;=Me> zB1O1%S$svXR;@yQpv+!gfHM19Wd+EwuGw1ZjlD znqf8aPy-raea)~M`Cve0VKsJuL6wDz)#<6L5q|w;!+UF~U9VRXuC4L@zb#x2|6(=r zYP~eSDyy$b-dEZ_G~176d#fZ|u03nEZ;f!FW`EHLYxF<#uOd~3YW7Ej_o}|v(!YyU z-(!SS3u8c2V<5t64AIvJYmP@4ztk8+8sizlsssXEHG+ikvgieZ!T`SaMOYYbi(iEG zIlT(PLRbZ1F~3(qsF1@iYCtGn1tFn$6@)bB521LK0`)mN6^;}N!50OT1(g}fvsYG; zJbPt^`il5+j0+XvGL|Wm%j-;z4M!3ZyofH8pv;{k$ZE-H&*%BCE#+&hHT0xsDXiLZcLaDFsR9|18c~YtG3f$KM zHUKsvydJRH*T-iO;>-jO#v)xlAOO%7@B#a`|0``EzAR6eZuY|pI*m}zevCh8nZb1W z`T6Yh_xCvv=;w1Z#Mk4SaBsJZQ4*(X@sbYLV7(P1D!rcFuhkbVs1BC;RzH zw}g4SolO#3-C-J-)PH7_mdKzpwXKK0e-GqU^aqAwwh*8P?PnQgvzPHit4>f&OIRusFom z^LVO<*@G@30~!-$CR^9jp7s?v(^nH*K@ZdCK{r;2=G5t~`fZ<-{@CwJe;$z1lS5K^%5b>s{^X!kc>V|8 z{f;=l?(wBZU;5BbTYc#E8gKf3u@`tDrlaHB(NCOcYO*DD_cD}axS9SIEO9>zoOS^| zM!kr*KXCi3ZoO6#U+C+odk2&=D!|ukZ@R0=Z@r|ZvPGTjX-}a$ot!GBD+_(-?gl@4 zu-%`2*%bhq1L%(ff%NA=z@Z=j?uP^Ei2@K-{>L-nJ;y=(KLEe)4*>51=;6))y1&Jr zikJD)+1V00I2t;a16X?cD{^p;Q(-(kFhv{$41ce%6P!_j(qKr|CA7K z_pfu@jGhe%F_UfT?Mh!wme9BJ{OIPIK>BH0F#WP8gnr!@O26#~90;Y~4+8jJU67~a ze0~Ky-Wy5}c7)K~jX`vEu^)Xi!-sYkdeA4y*3`+vfTBHZZ( zaDNBwW|(tEM~EHI<+>Tl#>HC7b`0_a4pJ&!8A3m94yOk@Bk0kd2;dn>kM}76Vda0t zvzp(3LEaB{MbN!%;dFCtC|#TvNc%^6(fk~H>MAypCAeAq~K@~7ASAu81=)Si2|_CnD^eTOA?3XG`g!DU0xHVJ71K0Z$~`c+7wHd z7e~;s$pN%F-vetXV_CGj)g92k4=@S+!748=uiEk};M+S$8|)|X+?e5P@O)gf7401% zr3+s~g7$d2vo#U)C)1BRlF5v{v>0R^8Vr0&9xnUxbw_gUi0VHHmI+ zNTe%EW59!8TG-JAzOoD`+|%JZ;Qu9fFbH+n3guOKUgUO<@x#Q|%j=UAC*$7-2U^Is z4~E^q&!gyvwMleqa|+$wnp!0o-`%Cgv}^LHdDFLPKzawdzByUFY~XWaeKK8I97hMo z2GPt^2gpl@SQ=BBDc;|98IF#?$y@rLd82Ds``@rG0-E;lx&QSsVTIzK<2b`J}naWSx~C%!E`hHyo{ji=Pvr2GzWm=8s zt14gW*LxFwI%4IxWKc2ix{5Nt`81xk4fex#mZ>bp#o|ZM&TGU3xzET7+W_J<0dz@p zG=BJDkfm(T$WS`JAQky$(zVsu^xc}QD#ND(eg0DVnNJPt*P+X+GL$%7Tb)IhmZsBJ zQ)6gOrYqWjp3L9N^CWmM6W5)jRx>#KX$rmh#%q6RJ1}g~upE9DmgLY^pCr;3xt@>< zYePX|w{JlIIIQDZ>Z*Ud{~+AeW@U!GzHCiTUphV`mCh~9rSpqk4pxtff{%)d=YDPV zTGeOoH?FS*$2>Yc7jpDP;WUujfP={|mX1H9fbL%dsqrRKC}bPS#PJe$tU z&#Mq-^$DV6sU-!wn$X}>4>~wKU2FV#14I9^Hel4UvDPwA&(EbJQ&VY9x;te5TFd;r zC0~NZgs`wMUKgufcwXPn%QGg$rgiDe6jwU>NjjaHldBUpjEN_cR*kjN6b8R7+S2}2 zZJ=+0tJd;PeV$8S&(5Mv{evkJ<6x+}{kN$9k?cEKjd%pm_M3#cTF*3IM2$Z-J=s|ppUsM&av%7 z(7%}5x#k`L)_X1BSNU9TueP!sMX_{bS`Ho60*9yO!1s6^t@REzsy!c{CsoU%Vf|M} zKNhppwsjMl(ltP>3~e~?pOi*Z2Gq4H<~lXoQ$Z4mK4fX1PK?0!-Ix?Q zI5}G@h^+M0Xw;-xHO%;_=F{T6mzxV;!x(Cz-;BD3Izc}uT`h0bay0+%pOi%_y85w> zrYyw6@i^!Yz*^{S;HtQ42iv#zf@~vFWsDTt+$AH729dc8?5|{LyRHP%V#4 z*ilw}U!DJNqMa}97p<0`HXOA+8=FBJ`bAPFXM@s67t5>Y199@b0fByA_e43gV;Nam z-pP-4j!31QBh$)3-)Q%0;XgQDq?X6_;c3+5-M6ci2lI&Sc+SlaSIbKqeic32JUEVe zc^FX)zG*NI=3owNBoL1u?h7%F?S`h?>6NbR8c17*CehXp%Y(H+)%@4<*ck0~E-=sl3n%z-%9*VpNM|)8FHqEGR1$lD4cZA-LA`Rasr1}c!-m3Ek zF*K_G7R9?+(1!kTYVlOl@c)ei<7k9mdrG!9{2jCp#5$P$>IfIte}cWy;vQ~BrK@^| z)B67L4(xe9HR_L*=RAR1fW8IeeySD`QRXSeg>;1l`@%GVBkk^?z;z z@UOYHpQkDOA4brcUUB6h#IDS)w2l4;G&D*?2F)6g;roqgLb9}6Ty5!J_LKW4&c@G{b_|5y zUFe*?B%KkCW@O%~DYbg90XZ7Cq@F=8FO}zlF5y+8pZkC|+*fpuq7i}ClPlCfREdMuvJ1k!bf)2T=i)x)ao;c~ix%VrP&)RtqMXdLb?pDZ|67~c zy~O4vYkDWq7T9oPU*J`RB#EO=yi{p?6aKX~7IvY&G15xo4^F^ZTni3O8*2ZKbTc>7 z8h_)EY?>J5%47c%FE6Loz(?x^`lT6;1|>^6hYR_z&4H>yif`4|5=cG=QoK zed2?(;si!3pPT8mROTnPF;hNQjidR0Cv^F>;jpTxJEi-35U;yAjg?Vrt?_n@>n->( z%ycp;jd3*T!fRc`*LkJDCVM|$%M$i)z<$`-rg2qZ2Ye$ba6#tfXyY?0j-$xS)4FQ( zE8^?AE6Q40*h87OBJQ3kLj|9r(~~8XW~=|q&&~RMorKF@q*%8O;6AVjKEK!xJo^E! zDzs{*dww=((M&BLXNxlbUkd!S-QR&7|BA}q4V(I$u7jz8)_81poyYG2ul6PIp}h%l z)#iMJwO;r}I5IfEu7qv89h^N{@NvL?4k`nG7v1|i@lsD^`aQEoY4vpsWYpTtn67Ec zG`h-e1iw~m#t$qX4>tMtOc_Em)BRWEzl4m8R8MKI|JY{p?$8P@qEz*0bNG+I&!DxeqOTsGVlpW^=y8>gg8P(P2ATY)6Uh z;^_kR>p5?1q0aZJ=_U+#;iu8mK(9(^RMTtzXM0fWvwm!hSe9XH@M~=Q)+SnLs@9{} z_RZc&wbQ#iDA@5i+XrL&?(Fl5?M-Qe{0zto=y<33yjAn}h5E1eR$cfeTv_FGn)z^8 z@Hw#X6PlGB3cEH2B?;E8ysJfM1(8#&KQK(UH~3{toR^GkpK@7j1DEZwy$rCArUv!v z)1lRiULv2Zg558+>$SLNBIKS-*amB-3dpI^t3=z@;&gk%r|@}GvJZZo1pfx?=Lmi- zY6?d-uB3~wL08lC3LADj_RsAa4ZB9B&taSJlNu3Ng+xhKE$q|n_3rf#bbPjbd_RE) z?C0eM`}z2rq0C<6RysOwGJTvLAmjCYiml$jDvDmuF3*#aC zd=dN`z%Dr32LDUp4D1)O4Qlus*f)Iy^h7+LW3BdQQiqm*o4x4_1B17)MqZxl*6!J~ z%n)IHa24YL`}klRi)<(TRRi0LXPb{~|B>hUW&JX#m(=zt*0#43En8c^RHfE1G3Lfj zkQMs5hs5S7+m+*f$o`+o?3J<|pZ@kS+|I`!k*u#SV;+NzsVq@vLVH~WxJO`{1qqWdf>4)!`bM07p#|nYw7Yq zd02~173MY`6WF#e+mUD5xNQhFN?~i9>-gT4^Flq}Ie${1ne9z)9@`hTQJ-onJBPuQWTXx!y~$Zk3j9tG6-R+2lzlvE}o^NcZQ{a>8g~pLAL~tOxCw z{2_egOcMN`vn}{N(?`ZnOS7C!e$I3>ya3*9 zO0j9#Ey1#7o4*0gzrBcz4hD^qZJS%9VvUNi!-412*x1Ttv;THP{~r_xqXJLLEE2%J zLLr+NfL#W`2EktJm~fbxfSX{eKrFYKpf5LmfQX1D7!@kwI}!+Yr9GKKxz&b3xorfo z{H`yz_Mo^olv{&P-0K!2H(Yg#@q?>wF@A6>ZqL4Lp%GGw7RM^1;Le=o?B4D<8#9ffc|KsMe-0X%Td{yxhY zGCjbpN_)?*mC#S~#!r$&*0;lb+|PoR!^mSN z@&f%nZRK?QRc-4v4-b#VC?_8Js4K#~UC-utw*9R@YE(Kd&b)LH>;UW-$hy*wba;#t z9iLdH8-HT5GaVb}Ob16g33dV2_p+r~>Fs5MLrhDc+xa|MWc6d9RB{}42DnZNP==na zbKIJ?A{(jOU;Ll32 zSnSDts;2m=rsJ^#d~uQbc&|tnS>EgIXHqghw*z$N-Rax8UeLj3eRLn_W&6_atc!lY z4?5=n=$=10o$$*ZI)*OC)sa6HnUG-;QE`%=3^{1@^-DzNuc}cRT`)9kMW{fd)+(_fqv^CvHR|hp2j6h zyE@Z}PXg%r>Ik~OgY}G|)4Urx&01j3EMMs9en2AVF#9?+hdyFUijuUUsl6TO<`(E_ zYf19}&wkz+LwC1CLvJ~h_6+l;kx^Eq$*yLPz{5SjCB7Q{p*Hl{+CXPzd5){`v&EfV z=$n}#bbU=M{kSa=_ycxo2agUP=#*n;84}bz&L&t1C7xKLaxU)Hd zE-#7{^q~g_S(Lzw;5>;vahFwLAN%MZbO&# z&Q{&fDat}8?u@r4Fg*+whK*^_aPJp+Z-MUU#xkAR?L&N^E7`6jOyqb4G%N)EY(GKg z#kwPiV;S#aabskJP3gf2p>%acvY;D#1NyNQ0n4W$;~D|eQMb1Uo@oPl=zdX0FmNe}CysOp4XT#`Y%hJ{imPm_`Wk^3q1gHGD&fS(0>IF9QC zS=%p%heL0#Ouv$KEUN;`hKC8~>6-Y|Bz*L<)E8w!U-HE4RGOXPM#)YlzoH*3(k3Uz zHm;H!O>fOehMk@nXnPBCs|_D@_pMM?rYf{>UzpO*DKi!eZ-TWuoJBidKu)=$*G- zsvU9OJ0_*5<;nVb$EIb_nD7p=C|9fN=*PLLZHT{(!d+}8<%`-q-!~zdj?aXC9`xH( z;REP`a^9LeB)~`9O=MEnRIwcwi?8HS!%^yfs<*gCd&A+@aLg;UX?rJ%sgn-v;p;t zcUR`4i35kX4UH!3*OmB5L|cLLJIG(S_`3mT!M`r)=u3OYXVBgWnM&9_F0;~p$@(ga zG{aK8E2I?#D(Pd~Bi+rFX%%_sx_>z`nfiLQD}lb}IpEB8aD;QyjbBv6*m{~3p9H*;m0ZNpN?taZ~W(GUqAKAPoK7#^MsS#>LlbhWw$oDESv zimz2G)ZV@+_Q0R7?iog#217?l1+4URw`Z2g$dTHr#aE;acWO)gUKj2D9gLOfHlVyt z0rnINK6DRuR6bYarFx$bfq2g5chHCJc+O({V{F@6W;+@@UDGQP`bzO?@Ro)w2%-zT zW&MFgJ<7+|O#cz&yaIr0(*|!-3+O<&wrfq@0v(lQboF--+9%V=b;-awLxUnclyOw^ zoF4B=80R0L4_hh5&_sI!?=CLJPgX-ONmIv0$P;{Iyct-|H{08;Ts+NmRSB=|rCaxk z>uy$VNV#%8OBPXzgVAs3zpa6f(0&p+7}|GqHu_^#ew3Py%#vtL!&&~-^@lov#6`=nL#F<2m&H7V_$W;fWI@4upIC>zT(3!w0`&t89L2) zEJv!DZoBe_W)ro(-x^;Bs&FyIZ(C%vQ+285Xp7Ff)e1x@* za^0+nzn537H!|$?ZY}B&E69BxnKy}a!GMg|a&7j#cN-|<8?@A})6VT{LVmU~o@V}O z!9L~QvAlgRZ>y&%wgz1_an=k&&mg*o$n4kskYW02@ifTJOxFs_#}6svIr!BGW6=jq z8q>-NA1dR%u4P{0`mr#A%{U!-YJ1Ky!wb8|vb^*SG@J@`L=?1OEImIvH&piZ(wTH> z)m*J`0)DL#pFC`>wZ3oKsG-{Yz_^PYI%tins|=QhV%~T4X!l!^b(;_cewE$RY+AL= zax{FjW-x38ty=)u)}>mZ&YN%2#+ehfzT-3<6QY!Tg#YWxN89tW8HQy)OwDjxfX8d^fltQ|&ZIvLK%ksIZ&^0wdEv)*E|4Ti}bhkuK_7%p{OvgTn z&p_t-lk|WRjEQGru@|n1Usb~JSJwyq=JDarC(>p3n!k2nd$qu_ohiB6b*NSvmfL0d z=>_@mg!$+$ugj-eLCEK)4$#FILWz~>Q^xdJIg3O&D*LnJQnSAF<-dR5K`qzg9Irz_)rZ&~49b5(Iy#AEp|@Z_g)@!n64Eu2QT&OjzpE_cSVXEg%3>?OC$HPE~3F0y!> zVcTY5UfH>}qUcw4&uZ7SL55wMi8(GNzs&3u_5AF{r2-9Qa&uSc!4KCe2l)RM{JTT0 zj^$;)oLWTv1MD87tzTieqgRG(1sNsSwrPnuVp*P>$>Y&6;y*Ty?FWC=tLXma3j+QR zuYa#57s+9TZ+ez*J_6aex%tVmUcOcjvmA`>LhdmI#i^}_D=7Yzy~=2B&^*;fFE7W* z_)xZs@vr@)9Ue_g^80g6_e5G**qydbE~E{hZBhRmnwAq$GCb1#*KQtW53`(%?qPnJ znPk;Q^xq=i#qz32Hf{W&+mx5-U^qO-$#6-Iv+@2MXQM6IPDV2@|M$jtoS0~%*Z!3; z@P8m92p*L=vQdbMLGDPOg@}sfVn%xfDKJ6)ODQ&1_(Cj6karSmh>t16m~clnFT|S^ z;!c`(g?L$Iccr_f7vg9|oWJ6E1?l&4G`tt?D&-gRbA|Yo;;w?fAcm#?LL5s$uc}xU zi_x)s9I_V*5EzP#k&Td0pYIC((q5GE;$k^11ArHxw(t*sUhO6LbijV=`-=U_SDU?h zZv1U5g^hAwU++0$sn*WyKYj*=Sgiql- zY&3Aut9i+_YO#z*sKoVTzMuK;pQKuq>>TO<85vh9Ug{1%2cC3qqX_;VSboNnt}TS` zhsiFqwwE1rJS?8&`dB^y9w&fDes${yyne%9DjAaF-TvW6$<`%@$H6DXD)z4+g=`4q zT@Lue4}m{DJrV$)3;~cS@rR6zKYTFwL2kqs{v0Hbw{W4M;TF&0B@QezGK*!Ls>qAl zu)jO4o3F+1Yx}y$t}O|qds|@7pJhSzhr>qzLxfh~_Y9AAhr`x;2%Y=PkEW&BmSjk* z?*WIE+V)p8al#o+zwX}Vf9@JCq2g5$u-6_7xsG_)tB+GcUZg2Cezy)aZcqo`n03g~ zxDkCe#6|i3!7ju_njg2t(xru=w5XelEM3%|_r^a_?2T)d%VEd_dgh8Pe%(40J}g$o z!&W)lD^F1ak!=gD`v<%~z;<)rZ(NUhCRoztm2pD4+gl*BuqcLRWjdF{!RG;R$kJ9e z3NwnA?uV$7(-*`9SoJ)}>^U?}u!2CYR$4ZUQia4rw z-Vb^cw)#4T+AH(qw1=i-P&Y4&Cy>F)SCpUTY_fl4&tTd=F;fZJYzOlGH^-TfD=oK2 zrCN3a*jw!%=YccV7x^jj-iP$#Vw_8YJ)Pz%%FlE%zPi3|ByAs-EI?tRs9Yc8y=#|t zt(0-v>ors3kD`1od*jeVWjsZms`puGB8qUc-K{7;+u8WW+TPK$VF1qf0G7yGkssfg zkA1`4lRR`-rko{2St-Q5PT&BW!h%|%@{@^qcWaha<4^ST}Kijz+E2%4b{xY)q7C zW~cd5qKn0sit=&BdVEFKNLtf7Q7bIMK3{$8&GHy4jI$Vn3S%T%<8mHFv66CaBgnR` zGX5tCVv2ULoTw;2$3buQf{vlIVQ{uqkXV&Ji(*?)1ERf!I_7$M@13`4Mc;H~dR3ch zujA}%N$*tUyAcsCCDHaKB1QSw-?kqYeL~&6TibT1j( z3{ZvcX$fj!emAOjSAj2cMh`9bPBks>p-fH-{58wIO@_8IRi6RBxAL3}PVAaCLdJV~ z6+vM^R~p^Fpu#w;=R7Yz`A_h+%6j&|p<%YY-oAAs3!dCOd4z6$bF4K;t1Aor8 zZ!=7l#;W`W4zD5Ij4=tmcfNr>?fokks|BAHG-=55LBUSf!S9cdR_B>mRd}Ep2YIzd`x)HP zQSb180K3cMQiE>I>6P)*%U&vVe*l5X2N9&xKBSFT!4RsW-mHvxKp z_W@X*)$F1YG4>X)vw-nM20!e)O@qOi_3G*t1NN5b(6JsH>&8_DIIaTf79$UNe)`Cp z_4x|9ETK%4&HEIM00w~S?o+V5X`qj{bEv1opb(MM0QhTg$F~J%SK-AnlJV}AD|`5u z{XQk5{j<%5cBN|v*_KX7v3S-=-1fH!Py2bgz7>OA?QC=0+uh$Y&RNF(2%jJEqvuEE zfd8xuvU;F>X^N})Evd-eP8AW6on_q~KJ6ZSzY=;5dt&L)-dI{R!i~J_KcFD@mh@q+ z6&?IsD!e;4FNiWd%}o5@f3M-&)H6{`9FO7iK2gs@J)IrWoJ>C5 zH*)}O{J6JZ$Ea1a#`tE=rjv_D((q2v@a@))+-yu~#klS?sUVq_jOrr1+c2gZ+n^te zHQLexpN^u1!wYEkpf0o*=kQ17jfXvt@pNqd1SNcmcRWY8!CC*I&&Sec*aJ*(G#!F| z8Mkg^FPY+8dfO+%$+&e3*j{QvOGovi!n`C}HEs~nOdvkvX1h{5XN;mbeX^d%+ZuG> zzBYeQ*FX6Dj^Wc`WwyHvTD72AMg8zy`Z|el4$JSR4e3o$zGC73#Ju=lk@hvNgFb;y zr@#GjgK+M49(NOcJsQ!w2ldX&5b7W|F;;md_w}X~bZWyA_-AXsh12qdeDvoG==_N7 z958HJ{DpAevUC9j`bg;dsbfNz-?3eQ(dpqoB8^fWmGi*3n2Yo9M-Q(TE631Bw{9r^ z^VoX-+P5^jZ>OIyc8fWU=9SW+mBomZz>DYhY%O_s>pGP_E1}Y-&*&$dp?tk*)w6-2 z?gvrs2b$?r!+8HXK!iDFMBhM%-LM(8HOsC|KRk0#ji>nkM1Pf}xb7;+-q%-2ifWfZ Sty-%j+CcH1<8qouNc(?VHBeUo literal 0 HcmV?d00001 diff --git a/components/fpspreadsheet/reference/BIFFExplorer/BIFFExplorer.lpi b/components/fpspreadsheet/reference/BIFFExplorer/BIFFExplorer.lpi new file mode 100644 index 000000000..42e34618f --- /dev/null +++ b/components/fpspreadsheet/reference/BIFFExplorer/BIFFExplorer.lpi @@ -0,0 +1,238 @@ + + + + + + + + + + <ResourceType Value="res"/> + <UseXPManifest Value="True"/> + <XPManifest> + <DpiAware Value="True"/> + </XPManifest> + <Icon Value="0"/> + </General> + <i18n> + <EnableI18N LFM="False"/> + </i18n> + <VersionInfo> + <StringTable ProductVersion=""/> + </VersionInfo> + <BuildModes Count="3"> + <Item1 Name="Release" Default="True"/> + <Item2 Name="Debug"> + <CompilerOptions> + <Version Value="11"/> + <PathDelim Value="\"/> + <SearchPaths> + <IncludeFiles Value="$(ProjOutDir)"/> + <OtherUnitFiles Value="mrumenu"/> + <UnitOutputDirectory Value="lib\$(TargetCPU)-$(TargetOS)"/> + </SearchPaths> + <Parsing> + <SyntaxOptions> + <IncludeAssertionCode Value="True"/> + </SyntaxOptions> + </Parsing> + <CodeGeneration> + <Checks> + <IOChecks Value="True"/> + <RangeChecks Value="True"/> + <OverflowChecks Value="True"/> + <StackChecks Value="True"/> + </Checks> + </CodeGeneration> + <Linking> + <Debugging> + <DebugInfoType Value="dsDwarf2Set"/> + <UseExternalDbgSyms Value="True"/> + </Debugging> + <Options> + <Win32> + <GraphicApplication Value="True"/> + </Win32> + </Options> + </Linking> + <Other> + <CompilerMessages> + <MsgFileName Value=""/> + </CompilerMessages> + <CustomOptions Value="-duse_new_ole"/> + <CompilerPath Value="$(CompPath)"/> + </Other> + </CompilerOptions> + </Item2> + <Item3 Name="Debug with heaptrace"> + <CompilerOptions> + <Version Value="11"/> + <PathDelim Value="\"/> + <SearchPaths> + <IncludeFiles Value="$(ProjOutDir)"/> + <OtherUnitFiles Value="mrumenu"/> + <UnitOutputDirectory Value="lib\$(TargetCPU)-$(TargetOS)"/> + </SearchPaths> + <Parsing> + <SyntaxOptions> + <IncludeAssertionCode Value="True"/> + </SyntaxOptions> + </Parsing> + <CodeGeneration> + <Checks> + <IOChecks Value="True"/> + <RangeChecks Value="True"/> + <OverflowChecks Value="True"/> + <StackChecks Value="True"/> + </Checks> + </CodeGeneration> + <Linking> + <Debugging> + <DebugInfoType Value="dsStabs"/> + <UseHeaptrc Value="True"/> + </Debugging> + <Options> + <Win32> + <GraphicApplication Value="True"/> + </Win32> + </Options> + </Linking> + <Other> + <CompilerMessages> + <MsgFileName Value=""/> + </CompilerMessages> + <CustomOptions Value="-duse_new_ole"/> + <CompilerPath Value="$(CompPath)"/> + </Other> + </CompilerOptions> + </Item3> + <SharedMatrixOptions Count="1"> + <Item1 ID="897672969650" Value="-vd"/> + </SharedMatrixOptions> + </BuildModes> + <PublishOptions> + <Version Value="2"/> + </PublishOptions> + <RunParams> + <local> + <FormatVersion Value="1"/> + </local> + </RunParams> + <RequiredPackages Count="4"> + <Item1> + <PackageName Value="laz_fpspreadsheet"/> + </Item1> + <Item2> + <PackageName Value="TurboPowerIPro"/> + </Item2> + <Item3> + <PackageName Value="virtualtreeview_package"/> + </Item3> + <Item4> + <PackageName Value="LCL"/> + </Item4> + </RequiredPackages> + <Units Count="10"> + <Unit0> + <Filename Value="BIFFExplorer.lpr"/> + <IsPartOfProject Value="True"/> + <UnitName Value="BIFFExplorer"/> + </Unit0> + <Unit1> + <Filename Value="beabout.pas"/> + <IsPartOfProject Value="True"/> + <ComponentName Value="AboutForm"/> + <HasResources Value="True"/> + <ResourceBaseClass Value="Form"/> + <UnitName Value="beAbout"/> + </Unit1> + <Unit2> + <Filename Value="bebiffgrid.pas"/> + <IsPartOfProject Value="True"/> + <UnitName Value="beBIFFGrid"/> + </Unit2> + <Unit3> + <Filename Value="bebiffutils.pas"/> + <IsPartOfProject Value="True"/> + <UnitName Value="bebiffutils"/> + </Unit3> + <Unit4> + <Filename Value="behtml.pas"/> + <IsPartOfProject Value="True"/> + <UnitName Value="behtml"/> + </Unit4> + <Unit5> + <Filename Value="bemain.pas"/> + <IsPartOfProject Value="True"/> + <ComponentName Value="MainForm"/> + <HasResources Value="True"/> + <ResourceBaseClass Value="Form"/> + <UnitName Value="beMain"/> + </Unit5> + <Unit6> + <Filename Value="beutils.pas"/> + <IsPartOfProject Value="True"/> + <UnitName Value="beUtils"/> + </Unit6> + <Unit7> + <Filename Value="mrumanager.pp"/> + <IsPartOfProject Value="True"/> + <UnitName Value="mrumanager"/> + </Unit7> + <Unit8> + <Filename Value="bemain.lfm"/> + <IsPartOfProject Value="True"/> + </Unit8> + <Unit9> + <Filename Value="beabout.lfm"/> + <IsPartOfProject Value="True"/> + </Unit9> + </Units> + </ProjectOptions> + <CompilerOptions> + <Version Value="11"/> + <PathDelim Value="\"/> + <SearchPaths> + <IncludeFiles Value="$(ProjOutDir)"/> + <OtherUnitFiles Value="mrumenu"/> + <UnitOutputDirectory Value="lib\$(TargetCPU)-$(TargetOS)"/> + </SearchPaths> + <CodeGeneration> + <SmartLinkUnit Value="True"/> + <Optimizations> + <OptimizationLevel Value="3"/> + </Optimizations> + </CodeGeneration> + <Linking> + <Debugging> + <GenerateDebugInfo Value="False"/> + </Debugging> + <LinkSmart Value="True"/> + <Options> + <Win32> + <GraphicApplication Value="True"/> + </Win32> + </Options> + </Linking> + <Other> + <CompilerMessages> + <MsgFileName Value=""/> + </CompilerMessages> + <CustomOptions Value="-duse_new_ole"/> + <CompilerPath Value="$(CompPath)"/> + </Other> + </CompilerOptions> + <Debugging> + <Exceptions Count="3"> + <Item1> + <Name Value="EAbort"/> + </Item1> + <Item2> + <Name Value="ECodetoolError"/> + </Item2> + <Item3> + <Name Value="EFOpenError"/> + </Item3> + </Exceptions> + </Debugging> +</CONFIG> diff --git a/components/fpspreadsheet/reference/BIFFExplorer/BIFFExplorer.lpr b/components/fpspreadsheet/reference/BIFFExplorer/BIFFExplorer.lpr new file mode 100644 index 000000000..0405991f8 --- /dev/null +++ b/components/fpspreadsheet/reference/BIFFExplorer/BIFFExplorer.lpr @@ -0,0 +1,22 @@ +program BIFFExplorer; + +{$mode objfpc}{$H+} + +uses + {$IFDEF UNIX}{$IFDEF UseCThreads} + cthreads, + {$ENDIF}{$ENDIF} + Interfaces, // this includes the LCL widgetset + Forms, virtualtreeview_package, laz_fpspreadsheet, beabout, bebiffgrid, + bebiffutils, behtml, beutils, mrumanager, beMain; + +{$R *.res} + +begin + RequireDerivedFormResource := True; + Application.Initialize; + Application.CreateForm(TMainForm, MainForm); + MainForm.BeforeRun; + Application.Run; +end. + diff --git a/components/fpspreadsheet/reference/BIFFExplorer/BIFFExplorer.res b/components/fpspreadsheet/reference/BIFFExplorer/BIFFExplorer.res new file mode 100644 index 0000000000000000000000000000000000000000..abecf2329b857ce56a4e4c5303938b41634de613 GIT binary patch literal 26628 zcmeHvc|etA_WwyU&CIc!Qp<`jHIvn(mN`0&j+&!oT3N1Xrih3ei(KHcsDKOi!c|ZK zkwrj6K#)a51zcF&QCS30T#!vbaVZnb<orJ8z4t1bH96b&kKgyv!~4F^dd_*yvz_Oh zOGIP>VAca(9|%u9X-w~qJWnWTUAo-QGH8gC)dCYo3p>?Z8|%TQ@Ad9$YGPq+ZZm7H zwdG*b3FAk;JJ8fbWp8FZ%WQ#-wZ&jlXA70-kiR|KagdoxWnndQfwKuJuvQH=b+EJk zP-Q;H!pcnbuGL&~I~$eFZ2Nc3ZLB^tQ(5(Pe9zRx%FKH1YzvkB#MZ5$DwBJ4jhba) zZ9muE`2mD__Z6gU?QF~~R4N<0VRq(o=Gt4B+dJ3+owrR*tj(<OGTg?>*38=ZbA0q3 zYiBdd!Q5VX|JugEZkVmDsfoR_EwZWSTK9Y3w2#v2EDM#n-CSFHQ2sZ`W@2V*yI`)l znM9bhN;H{cVQ0~MP@h&&hVr%+*1*`@Sw2k$&9cyc+Yd9aMu~m|b*)h`p#PbXW4$NM zwVq|8R`mu!RyNk}4!5zkx3gKGGQH1}KMO~GohP;qGeOB{3+M4R^DWS?fA0U6{xkpl z!FwNkU~WG9y;-wOO%|A0TRNCoDlAmkVIl-Rf`I$cdO8Q$+c~K0M_JFd`Hel_&s5JI zm4&&39Xi**6+4TC4iE;5S!3<yI?i2SVQHb#r<e@7mo&l&Wu!aCSU6fNFj*jf2b-Fy zMp-+8E;~~bhq=SdMJxuJ&Nf@1ve0)dx}wj$DjuqRP@mRl4C-@_7-<`FXyw@N!`5P; z2)9VEW50hW;zmOCwLsFOAIDkP+hZ)LjLe#2Z*TiypFW0>()->>>5Y-nXWVC_`n=z_ zZ~s09Autx!a}W|{J9n7c%+BI(K-&TxWBgRaug@dfRp>G#wIU4BgAl79!ha)Ljwzup zfVne$M#E?neGV8-U*KsBt>+D*C+KPF+qVmzPtu&H<lDqV|5ew9s10>Nc1i1nNvADx zN{$W`+nEq&Vq*B}K-3O7^<Q(^5j|zdX+p7oAZl;Oi7({oV904gb1<ttt+a}YfOFeN z&TYMrCN#|e2qqHT^$+F!!9VUuM2x$;{(--E1-MgIRu&Ruf|UpBANZ@Eb0zX|!xP;e zS)%>RK_K(RCuX$%kC>;^cdw!LTCG;2b<#+1Qfpj?5_L;UPw(4C+l+q_(sbIiG!62H z=v+hAw9_^>`}!g}Q%Tezzd8*Cx;n`>B2h@E)k*%R({`hP#HVQ_QHLZ=U!eH1PUoE7 zO`}q))dSOXXm?=Rva#q0XIEWXNKjXY4?Y+GoV029qeJ%gO@V2<)6)l_ib-0nw5`)h z{q38b({`Z+L<~@CK*TQO2R<E|HGaCZG+j5f)>5r@bxK14ef}n|w6rws`X)^`G_9U2 zjVSdrX#<g|+YLmb8nsHJ;Mt+MN$ZSwb$hiMZQw<%O%r^Yo74^=+GY*DeSMojmD<Tr z4>vjc`Dzi(%`7Pcg<h$rNvr9uaYB?5v>LUcUBtClgQfT{K|28XrGA8u)$9vy`l1bO zvs$66iJP?7)o$8meFB~uJwB)($ViVNGyYxE>g&;JoZ71mnZY`|jaBeL^&Om~s|=x8 ztCn_|xf$^YJ}oUuYBL&WFK-&qh-kd}AjPNIQ|dvChb7`A`kIm=2q8an6Y?Xvu1;I$ zBN!?18nwnwy#$%-P!gd|dkyjEFBfmm?oK`}r~)OVj3K|1le*U&iA9jsw7v?SnwXfF z4r;_I2~tSnfsb0FZtsY1U+p!Y=4-ydz}A32lIrkz4bm(5@5j4qzD0I@<yvhM_}Kw$ z00DE<LIAQ0o<Nh@V|+NN)!j6Q5Q!p4@kRCe(B5~sb_tM_`s=P~TE#c@(j50i05b&3 zd->VHNpoB(zvO#AJGF=Cys6bJx^hXQZJun*jmCYMHIoESU#-LaXpCP7v06Gu(>j{k z%ji<s;?JaexU?$v8(tMIDEmKoBNFM5XN40Ax5sm!{+ZR?@WiYu@mY8%>4xX^hrTQR zH@@2fUupMWeG1)DkMa3C!?*GI8m97Qq#K_@4Bu{sC+nYW4bR^hp0CN%z+dB2);kka zrC*2efzW!bly%4iFce^1hp<5YLU6~TgCwjw$^(D#`kU7w+xB$tKRFMe?vPtqHDt1E z9};9c2j3E~R;0GorN4){8q;oO8lo0Hjn!e2TBRN*bL+q~kM`@+(%(}}dT{_|S^Vqg zra}hD?<9?{R;Sgv`>qJlIlt#P&|IzArB&-Z+_cWR-Og@KlVlRsY2DqLG%|^+--K)< z#=}>m?xEHGxf?z-n7LEkG`{Nfn4B?CFfz0rZkQXL2Wp&zugw~*3i;JeZ#v23iV4@r zUGn>ObHYb6ChcX&j|`YJmC&rQll&@7t}@&)z!$n<B;EwRh77iDc#-jkDO2W5M_(DK z%H)T*W?x%3Or38oX=(Psw1X)?zSWLMm-3hZ9ergslgUixP@m>*Zdi#I3T0>v6Oh^s ztv0Fa^buOk3{=mokdCNpw$xtMZAVQV+HJ1WjzuREIW<pK*I~j@<}LYV@LndHp^_@! zth8X98iX7Wt)8KzVo6tmy)s=vG$|M00dQ{xc>Q;UCs0vacZ@2uB|}1n!w`TQfMus= zf(-g`fB}r~@Hps#I1_+z9Ju5C(ZSt71mqtX<gdF#;m<$bkAW#Fb^o@IH1KO#`}6@2 zi)9)wU7%X6(=O8vOcy!PXuZ-@ScjI$itOu)eTl{c+-+8gFrwF2Xq%mU(663ar(T%O zeLS>kOD#7yYmiq~Xmp7N-x^>ig=gT2+AN8#<IUXwc>Lo4zFh~qu4Ascj`>OU$R;SI z=i`$~`G@(~7qK${vZq$U)B1<<7xf`Q39rBL2EF;#oAgef_h`Vt0rbJ>_h`_hztG#g z&8c6%g*1HlaQftv5j0}V7xcv!pVP=OV`;*K2{hJzG|iYXohDD4K~rbWrrEPCNo{3G zv#cFy!9sg7w_8N>RL*2???8*y4&>(SNRG~~<m~KB1r|dn({cnwTYW{b4wFgiIG@(L z&Z3PD7PQULoQmgtN@r9bQ_jLkROm8^8XP~PFV>Ev=}F^hoyUCAxi6xP?v_-)bTZx2 zeM85+?dj~gB~%$apKb+N(yc%h{kYkgTDC7H&zvRL2dt*2pIt|7o(iR>I&Gki&#kBS zuZGj}uLaRNfAXb1eM0Gj{;O%gfN*NpaTD^#Q^#i$sq^pSsC}mt`rV8B=$Y3yQMdnz zrFY(qr+$Bqp%Eii(Acp$nmomq=DKRg(Paf$T85IN;~JVYDUoKHN0LgFLG7Q(rf0fj zQ_q+3sq2e{)b6XZ)OF4UYB!;ZI!?ZXXB|DW<Stpc`;g;OZ?ajsnjCbY<hpJPnXO5o z`GGshYW+@fSeHunK|9DfIF;-|)5$SnH@R%wLml0jp7UgSUduEfsESO(nBItB>J!~e ze~4x3mB93VD$}r#N*Ws6KqEHS04~$qs4Mi*5vJkAOkY*C(ASkr6Y7}MjZ79TOm0mK z>D7|P$B%S=>uK%Uwd5ZdL;*n|6ciLh(Yj@{F+fXc;mav1JcuG9!f98GKY501p^&hR zw0!w)TD38O{5B=f^2jvu-ke6hvFWrSZaewMrBi4^21Rb#L{V`G6c-;)+Y@7HM{)v1 zC2Xhogk*|N-bq_ic2d-~-L!rCc1qisN@-~+v~5QkrKV+2dU`sQCVJA*P3x$5*Lu2> z;7NDWJ*jGM0R6Npm=2`J(fQp;bYO1^)unBwmZR&53&QAl);9X-&=zVbj-i_4+li0u zq?YoX#1(r<qd81oUWF78P(ZO6`)Sv%JhWL(Yl}`(;?bkDFDI8$_ZL$7!9q$tbc*&K zE~H&Y%P4gJMT$6hk)n=NQrxj>N-C(KgyK5dUQ|naiYh3x>=LDy)X}zcS7~oqJw;YF z(vFMYQEqN76&^ZBWyL2b?^rP%Ej&qQ&XiN#$sD>{o=27EPEkwEA-Yz3o?0%K5MMt> zS*6vKS5{3&&eT$Fc>^6jf0>HUS5r|@BNbn$qXX5obmC$oovW;-la*Jfyyh~UtGiCM zb@kNpeHC52{2l%9!w<4Y(N6&X>A!y;`q5)FF>%PZGpBth1)ga8>p@@XXtk4S;dJOH z=-HSpTegIUhlhoQg@%R(2M62Q+S*uKThE&}7h#TmwfWrM!^J_haN1vyfAihDcW>Xm zb?e5B>(|dAl$Dj1l#~<~7fG0_&p&3_a(5R;v@n>S*?9Z*?VC4mT)TGdYGdQobLYy- z%E~0aQoxY^GgnU(a8S*hKBE1q>gp<lg5$@I9V<MI22h~1q*UL6AwP{+tS_)|`k*fp z6A}_OBW&2P;b38-zJRd>V}APNehZV<t?Mq~#TUBI@?Iabe*OA@fB?$?OG}_MPme$O zj32Q?S^y1ZBRh05gmoK^H3kXQ0p;bTrItYHUVaW7sT2U0%ti%PD4~;g__3=&!lw1e zUK&tbQfzIkpDQMhG8UL&DA1|<IB(1mK|m=0I9ZmKw$5KMcGMz4$=Q8{+s9qIcCD!B z<n8U{)zf?3h7;?-rSgDNC8e$E=ZFKJN(;-69KA5*`<9*+x{l9v?a{lpcHApny9S&% zR~}GaTC(6iKCG+Q|1}DnzZexgd|XSH&d>GK=~k^;w=N<g!l!rFZUF(HVScOpJtHgj zPg$h-p`j{D*RfOQ-a4Ib?WSFO_ok=E$42}0?mp{W`6;Vb`MdV^)_w7{+u159(8I?| z=bu$yf93L(%k}lO7ZVfwx(1Y$TDHm`QPa}$O5W6OhQ+s3to6~Z&Z_@O!WI0N68X_x zy&uT0tEk}~k%taXcrrf9yQhEsm7lKM5B0f~`B7chx30fubVbc8x`>LJHeG#QNvT(I zUsl2u!78_|BL4Z=t?&{2yS}2;b$NPi&o#)d&ujd9r9P*wV%77l@+<gP)U-U=Q)im1 z&s~4{a=r3TO4aAqRCLwvLdb_J!2g<-S0XEPPx}0Rhf*uD)(gl(isdw1j4*6RBtP=j z_0&Z?*+ctoE^5<fQXcy3_4PS570>I(yX4p7-?NRbN3zr=IdkhVm*(cmi-eqp>fSw- z0+L@JqMp>5?$+0yo11elNTK?i`kIIrjrsL5U(u!0D$`8KFIh7UK`EAt{7p$+AIjgU zt9PFqW9~hfdki5nGbblEC-Y8)Y-~yRQ=!MGYgb(#q~zr2Gww#%ga3Q>phPC}->+Zy zr@tVy>$>W7)RieUOJ>QfJfuYCovQow_g3;h)y3!a-8qKb24wU_Q9iphK3XOJ@1Bk@ z9f;Z$9HdGKQVtQRxp(64<D>nPgm>CRy!3&R3IuZGACNPkH?W~e*ZUs5y53s+*FK@s z{!i*2P^izV(5`TH&+dT@H9eH<3V-q|^7Fx^E}b_2zCYSGW=H=j?9a>`xbL=s{d#`t zdn~%mT5l6jAekT!`hW7Vdq7i@9vk8R{m`RJ;wx|NmK-88`hZ3<``6wvR!=^yg077& z*0k?#Mb0n)MDh`G`e)p!)H6p<g5mF1@f`nTM6BtXsmO%9%2>Q|IrF`YJ2g6=2eK+3 zUnRA)cs(5*-}|-q_Fcx@poIDXebbt1R_bN>!7^VZF}G-+j>wOA<JG>~_g%VFpS^Ry z+x;q=YP7FBm{b3S{4Ly)^mNbsf@t4A^!no;|M=GX+b%XWCA{eOsO)5+<mbvBopco! zs|(O0)wi2!;(P1I$<K?J$HylrLD#i&&y~>?6;(;mx*pH{Jfk7T!ovKkufFPr@WS)Y zb$YG~R)S7lAHkPjtl(cy(2Ihcqa^&FUaUe`iZkW|PoqA}_<Rlg`ZwvtVsSJzL6iD( zEG~Bt9zMsKAZ{q&-Z|E=&>%{GhBcgHd-m+9oM8vz4BP+1!8B;lUuodq2hd;tI*fX} zJd^(PCp(;DKc-<LN72a9pVOEzW9ZATzM^qcr_(pze1o&>G#Wj69!>bxoF<uB(zF>f zX^O=Hnl{glEG#T&{``4lzQB&=+Nj8Cp^D5Gx{{5f3(k1<q;hm32gBJmZ1Dm*<TQz9 zcu%2k6UNcJAajByih@@xqTrQ_DRQYJ#jJIue9v#G%*&dN`dLw)MnxA^E~Ik-i>Y#z z8Px_apc`Q>bYqkL{QBXC%c*~VU;5h+KkD>O9Chovh1&Mphx2(d=-Wf4!?x4Vp(|;E zTPV$T^q_f8%V^$WZ?apolw6m%)0oeqX!18nG<|w9nVBV#x%oDlGbfqs>~NlR$)vXL z=TMt|M~MDZK;6gZ(0kKP(%UnS(%a^R^tQ!m8eo2bIxcA;SGR1k^6;U>?n`Njr;gmb zRw?Jz#oqqpvM!dE1jUh6=pIsq?IoAUeahMNr2wX$!7cP&3eyLBm`0z&IkV(8nf=g0 z=07qmU$KI;8VxP=)RL#xi@d$PDZqOv1^VK-)|a%aR+DbEKdtZ!C0#%WtzNyF)(5U9 zzn~4uIW)$96>Sb$Nr@Z0Y4`e76crgtp6fP}CODdwg~XB9hIm>Tkw6<ZMd2)(NI@}4 zv@$A{mPYL%9nPd)TlSHEbTWl*Nv4qGeY7z$lA`0b(v~e-DLHO4r6k7D?&OUW8NZFT zB&AY($_`3RO{E>X(rHKf9@@KS50yvyQd#O6s)=4sKg2DkmffCoB{P8Pb3=)b1W-$E z7|xl@9rE^jYYAB>{LgAsK5U^L=3QA<fYaakg@<Zq*z;=NQ?x|>=~;%s^ba6Ush zn=ad&MV@ilv}$WE`6p(Re{wd3resspj$De%$fK?Mj!??pJj&RUrJPfD>_0&%2a0Lu zp;F2?QcT+ppQf}Urzx_mn8FTJ(x$^Ws~)eRnB#SnQdmnFB{h_KvX0V9>S^EU2HMrw zsGLu;4;-TXhx6$u&cCPfv*_&615{FUgmRCU(7~b-I$BVS=V>}#a+(T@3hDIeGt_uy zKUJPSPCuQ?#u>JhsxO?UA1V$|OI04-tjedB+N0D`cZ{xFJVgx`&lA@c<9u68*Q?GE zH=ZW`?mXq4xkNeTm#OSRC7rLVrK;*0x_s#pRn*oIHnqgxU!+^NZpqxOOa=0%Q=3Nz zqA7#^ItuAn>a#L4_wC!eckk}q8R@GmEN0Cz|ELXpF>cQ6!Jp7Gp%*L8pF48s(4oVH z#f1gOadOMg&o^&FL+8)4oIUo#CtZVsg4XC(d#_%5xUi^5$#5)x7SgTe&qam~y%sNi z`Q?`ohC9nG?97>FW=i_N3D%O~%cnc*gR{5u$&)8Fr~&B~ZI<w7h76-|fDI4t?5uOX zb?c<IsHo8F_%TT@9X3&^;j4k&yLS%n{L)Alj00%NH8Ts2uR?m2>!%Ze!<@O}Kj-e@ zot<2!<s7)R`qs%JO;M4QuX6PpGs$}Xf}_X&7Tn#na}Se`zxn3lSF>*cheD;iX)o8m zOtLB|4|x8$&ON6&E?XBE7~uEKtIM^8g&9iuP&WBwazRt&G80?J^{JO{+_+qQCfxtk z8O6o=_Wc4sb{#$B`Lm%a_tcv>S>L^T^G5yI4JKJXXr=tey<EGajrKiVJsR)c{9Xw+ zzi+4sA9=t>(p4K;K6VXlY1ixR#+x_3zo8G`-)OiL@U2qbby?_Zu6`ds*K6xdNo!OB zp0$<VXbkm#{F-gMZ~oLMX$?w{JiEU0A1Ud|3jgD?wi}V$u*(=48h168^+ft<B`oP| zAALholapm9lPuY4n@o^?wo)nxeZfAuVb`{#xVSB%Y}m3TY1^(Hw?9UD<+MKz7%<=u zFF0&Y+lIs#NtVB;<o0WlZY$|;c6N>278er}r_`R56c@84W=C_6XOOPKe(aBbe9E;C zl2IsmSMs)PKw?W&ZRPK}Bi+PSrBd0pbA3H3ZriqP2K<3$)HVMuen>xyf2U9Tby@N* z(vb`X)Z!79*xd6uTB1-de|ju_`vXJ^XRbFkG$w8O(O=fjB}<kp0xVf#+cEf^e%o%` zK>ysl`F(8vYh{LWpfbiroaWLl!5(k?dB^p;H?ODkkE|<uMoBRI8BxZ3x`)?>rG0z% ze((K=_$L3>rHN3U`6ty#znr|%)0JgGCWf`!SjSX-H-x(O`dHQL;~pjtZyu+P`1|nT zue|b7w-;Z0v1`{?@9kS<2FL|?0Nh&vUjJP|Fm3Dp3-=mgmtukp`h5&cT@W7L$H?)_ z1aNO3BQ+X>yc@pX>ZhXq!$;GYaT96mxbZZ8!bJLF))(}Z<rg&dTQlrS%xH?)ESh3z zL!Zrdq%SSiG=8olO`WTvuje_^r1?%X&B~d~=gg-$^XAihD{ER{Z9}uIRW#3fA<eXL zCTr|ptW=I<vCx_3s$9q#`<R6b7m}TWnie|gb@YptxRHIRHQA-jRdnbbhHs+&f8R>4 zS;bKw=N<IvI311udKr!QJb+X#UNmB29E}~HNF&ClQ2U7|sQsi<)ERpRH}_N;lJOn& zKfv_oLrkCTzd<XOFQui+SI`Qq{mV64TA}r(<=(y&ux1r`_ym&2>R{6Nh0yY~8_0KE zh@yKA3<@SF^=M;w2yNQ9fikv+lTSz_1%^dY(1r*Ki-@40$Svd<l}0|$GyBKyrr@N# z6e;WZ=FJor8$*e4TL?NfN>7ZWZ3$Z_HE|22@7hXHshO0VoUE+t`=Dda*quRpGSUeL zV9MFOoepL0puBx)bo)pM*6|?X6Ij;^H_(ynbUKljMuoYlbUA-3-98q9_>IJ+F~lWX z=+4Om;!}XKE!0@Ni})OL&1ciFo?}g~+)F__4pa2bY>M5LOB*we(B?fyY1^J0+M0EY z(z5nb!v2%wonJ%YSg#`vR?@~pl@yy_P1~?u?>u>lGK#CPUe{3G{#-hI_%LCy!uorf z?p(;Bh6_b#CyTh|0Nt!Uf#*@Iv-!mJhp4f#gqms#h_4`z=#_7rqner;g1rVceSej> z=?XRfaNQ`K|M&baZ~!x-(n`lyU+vN3d91?Ec4|X!z4^{d%RH7WS+3K0X*@g8+XLQz z!lYw|ZXdaiTlA&o+0}jiGN9kPBPVqIXz6&jue>_1p7Gva27b_gaL1R1j9KZf>%98w z8NL3z;!o{9{B+dd7l!G&tp55F)4si@%?=3-U1w?fZI{(EW(}U+Zg!BXlap(J*^p;e zulAYs+E5p}c?gc`32j%e4iE1-W&S+7g(|zb^QN|2{q-OI_|)k6Di?njC)FH$Pk7^v zr-rHm0z)<gy4XxIS&d7eH7{5PY>12u^S2zV(DV6(PZk76Zt}DIT+hU@y!zv>XU+Ut zpGx%6*w041`ck*oB~>KO-2iy}<A6EyfqPL{1e&0fejdg_7UAJ}xG&;n0G?2CqCJ%P zHwBr&W%8G){sn+&O8%Q5ZA#nv1qd&X8QLJflz$sA5Fpnu|4ooKrES5XRq#SbdMqSb zap;NPt!<<yJPU}HebXv~@l`e(!UL&i8eqnM8Kg~VTW~N0T}R*@+y2#X#+@%eyXZ%5 zH|{LsJ{p7FbA~aOJWbwslW_<CzXm{I20;3|m4?sD7WdwayJW^)GC%Ld+|h&isfias zgZ~di-s6y82_wgR!ML;KnC-hcDrFCEOy14mNxK>Myc`Tzw>5(U;?j9dY&zo}n01@e z8F#|$xhaitKdiu_$i3{kaSuBKaKFv=8`9Z6ES+tG(%Cv_7vmnBaUcEw;Er738IYI( zcmV$=o?M%cJ8>R)iuwH=%%&Sa11uVahIU^<5z)@?7SXB+DAxvd4IG`A!nhyh3-ven zY~6J}U3-m7tFLlV<yFR=D(7Fg!nkkcgXb=DUU>s&pQ&e@m3jB6dQK~;;~gh2aY|7w zCl%E4*5ft2<ybXGAFX1XwHf!rjC<mrfzTuU{wVxAzOd;A?&WzxJ@fE<=6;~z^>F6j zqaU7emwu>bY9Df&Xr&eGGZ=U2e7^QFpQ*mgrz;z{^kO~ZPM8bMUE=)mOMLiDEgv{t z!?|VEoPDaAvr20ichihJ>3^DrU&Fs`yO7dhp_M!vi`%$rX4o4j{qP28=qml-1{x;S zfQIm&U~j_fLc%z|sFaTsmhgcSC7gHcB<JK8bLNpE-gCH+aqrGM4-_));CcIjBF5c2 z<9=PC;h*h?U&Eg$cxwC3Q4E_2g@&)t7sEh<(hp&fB@Jj$`k|I#Tf(pfVb~{dQtB>F z*uInFw(aCtjEU%^9UPUA${V+C=dif#3>ydzPuRt<F;Hlbe)wl)>DTd>Q$^tHr#i*l z8WvK;vs#$HLO%>Ys;2?ABHUHRH2R_4mzCVE(`JU<3WtVAa&Xv2wzYR;Yn3Bg**Wq8 zI|rU;>%enu9C(hcBhR;YVFz~&FJBwNzTvUFCNhD20noLvclcJ;Zir`30CaHd5gf;E z>$mXYz*u%&7yH0?kTLyB@{cj`1a6TTb~W6tLo|<wu4fC8rJDORz}7`igEB9{fTcq` z!)}Sc{PN3Rg;nb#lztFdlJNlDAn!kWnR76%jj|*(JUpg_hSp<R=B0mxKTzgn%QCpb zvq?PCK!fyy$db%UGNz5P)DDBa!?W8M_A`u|rbmL%<`WpE$dZf)8PonziG1k%l?P~$ zet39Zl747CFUj2cTkscLV9&%)cTNQjm-Vs)wTf{(h%7y~LO-{{u8Cnc#h#vfe-VF? zCAHgf_VNp6|BZ1RxH*y6MJFkAtVLh^nk==RTV;Ltt@sNKu-W4F9k=takUIUCmhphO z^}X%Pu$5BYVFSf;A{+SG&IvqY#sbKnr2@wO5dQ1d2C~-Ik2OAPS?lA+4law?d(Arb zSs%usaVea#zleP{#@~}AV?W4vXuUqj8uwfA7deWGielI&F>KN>FE#4tR`kQr0*s4_ zy9`?;hOH9AzKA<@$!6FEaZ^(hJ2^Qq&a(`?A&(q6k|$68nrF|R&5n+a44X;F+j7Qv zoIN}|7&dxrZEeG|=Ph7ZWiV`=?yV0prdzLZut|F?{BfVE$b`4|34W?mmO{fU&;{Ew zhFugF9o)~b17p~LF>LbK(ZQ3y`|dlQHtic8KYlz<nKFeJFJ8=2Pr$lBUbjAo*9V7k zNGQfb_(qP1+{BTaqBtUABSVR)&|@*%l3|O;E7nIT^HS?E4ZFI>!e4j;<(@(VY{j_a zbJ;vJ_zJ^bj$wPnS8A&nx^hlVf;_KV!?2xX*i9<9FI%<@ae?f!dM&SAvxZ?e$GZ|E z8MbN+yEHzYox(>lQy4l2hP@jnr=)U1ViH4#q4bS4=3w;-pL=5(Hf9Waz{kQLcUc&h zo{AiZEWnPDJ9NzD`O()H_Gx@L{{&xdsN*9?jxcm0?C0kP6J<4rgoN@c-?i-R<;f}0 zfn0Tb2j8ha#M}VEyIRV89m>CJ*l1lYVy?^Q=8FAXU7W?o59M(B?!BD4V+Z;qLK#Pz zbrA{;Nrly{_TTzg_>26*G)j?aqg=08k;kyFWY||S>^T{Bf_(k@HQv8}KSQ0)!NDQy zv2+>3UXd@INMXKG2*d9R=I^nfe}}>IojhB?jf>1T&Ldwjw^ZhGLs=dlJ9?Ni_UvWo zk1#f@*~2%8lMAZZDIor_@Hfi8kp>x;B2Tb21m5Ksk8AkD4?o}?;8#jY3j6s7u&b*J z?~Pr{T)Q85o&x~C>lXlczjhY<2gtKENScxd@s|$skLR<vyyOIDX6G<8$UJ}keD>Xx zg!TCG@NX^uLWAHBmzaBFLgL<h^9{DKvEd-_U5)t#_L<C$kdqt0`I_Kd4xG;bpb)+a zxoHGkX$A5vprj+8l!2VxJ->&m&YtAF1BVpZG&7&Yu$6r*{y!}LGPes2#xVh#W*#<d z7>91yz-ng~hJ7n!8VkgA$b;al;0igv0-3*Df~UYqygvj=oTMRNBl2Gb%@`Lg<!M}b zp`7<0IEcAm9Z#8Q`B?ZrO8#YC629YNgkdSfixw?njrU6Sb+ci<kOth*w%~mkxCp+N zivbv?4HyUY02#wS1BnMH`H)}ekvcAB@}2XUe5U*?XG4}mj^6J-;F0GS<NgiPyE0$O z^OxjbXppo)g9dRR=5&?K0){Ow_=dKHf5P7e;B3UV{si8SgQv$@0s09%z8{Bl$s>6c z`cPi#Ih~AQU&6-=iZCaI^Uz@*{bu}sP5uRU8(Ujm?&-y_QwOgy^tdZ{gU3dEF9F9( z*o0rg2Cx=$XwAV#0OD&8>+>iy30<H?>bjWCEvHkt{Omc-0pDiMoXN1GaRR>|IR8G1 z|Gy;vuCA_ZYHG@>e0(ux9T>LN=yTzl@Lc$8z*%srKEPa+$6T4M$OBjGW7tnW2#^!5 z%tF2#<j1^K1A2sBg%;FT8qct6=7OSPW$*F!+i!>c7W_qq9u*Q36M5jkfgBJR#7osy z+;n6EaEJVgd<d_F&sD$!yi;&JpU!-C7hnf-c`D<s{XUfAy&UmpcQQ-93w!i*R^{sZ zN$M<1;U8;?_;mSs-h}lT<8JRi!r!=meALs-%uG42z{Z}}ESkeDMKO?7$c*q?!5h3h zzgv&9;98c<xLW`p;}~}h%qL^-gM61DzH}?{B|+X(^mLvBEz(!gABekqK94U{)iP}9 zu}}Hr%)f&F7him#$e~|gFo(F|#4qjEf$t(C3f|!5>1~Jy&VpZYG{g3Rxgdi1L>K`5 zbr0}e5YD(uL7ph&2QN;=>uHw0x`1&7`ddo2b9L<{WemV4<;rix|55TIV@TElU%x<x zZwYV({?gy)F@K%`|Af~i;BhhV5!{Z4Fy{v`9}NVo17NOFp7L&he54%<Mt;y!7>WJ? z&5(PgzLI!uDM;W;b@dE`1D-l{Ds)l5K7K`Ryu7>^elQHbmInZSI|}~(L7^PB$Q*pz zjJ}543eQCrit#PH7JTmE3;goeBMx*({4vm^fP4e;4RjpAQ}RjwNS}$!6-4sgV{u$p z-@peC9>RHI@{NB5fA}0R?65clx`%a+Gnw=JA+zXfkrj~x;kWSGh>PGUawC0FfOO&S zJ;1k7u8xQ5X;JzKeUuM6i;#Z6pMNUc&X+D<WtfF9?7=Gk75w23g}w9$-Wau+y&UH7 z?d?k;GvJfpE^=~2<U@E3ycO97AEi%DLbhe>Dq~j0tpSP=FX_T>sY7U0>Oo%|58{@+ zTK@4=4%aj^D*MF2g9jf3{(k|q(%<U!CnE30ImakJB15eK{#6V=Fy;INUoD0&71}k( zi{LJ83l73#1#jRfvMl35#`-CM%t^|;By&?DXu<p=^azbIjurU>{g9=*+n4YU7fZRa z<`Vn+`$K2bFBrJ@1+>2QSM)y*<1aKk3^2Fh*I$2~VZ6^?t5!4o%9t~?;1zf-eSQLR zBD^dXUdvn}_+o5e9py7SG2a7Zz85IprC$?d-aG|bWF9>UI)rYa|G-+lljy+>b(fTV zke!_!zxCEz7Qp>wfd1kMF9<)w-`Ee2dQP7{ohMG5$g%MWylB2T-w4J$dK|b5--LgH zgYa9%w6Z>>F`vu89EEXyVP7l2S}bvA)Ae+n-ma%t<^jm$PYF)^!+|8OuD{F~85wdm zt%qUK8^Bl0^5q`O7#<7%ty{NZ@Bb!m*bv4m*Z4F1`<S;c2LHhGlhQVLF1X0LD{I1q zOw3W)SR--)`&&UC)?36?WZkFZ4Ejmd>bwAM+T;x0*Ybsmi^};P>%Q!L9>!gvLG*`@ z6JQ6y(hs}RGZ=o0T;Td8^C8STG8YN%A{*zyUj=XATy+S0f+JX`^Y25=QLM3uuRH)c za`gRD0a{OP<=cT4IDY1FRb2yTVBH-%cI>%6efo3*vaR`U<iFTB^5cN)q5Jmj%WI%t zNZh`ISJ=(xi%Ta!W+6wFz(M3h_CQq!fj98HBzwC;?D2|QK@s9l=;;wUWF0Tt!ObD_ z`SPAETv>OSVZX*!R#ta$RvP<DxZfk<{)^D~NSNd7iSut7!^ujS&)$FkeU6EaR&?oJ zc5@m2pv*hH^m`ZCkJcX3<K1u)`=nFYtDb2Erx90*Z^U0c#Vto-`Ih$-u1(#@7cMm@ zXC;{@pa=7M4BYQi@rbv1i@cP5)Q>;@$O58U88T!D$HzlomX^WrS!MXVa?`5m%!e@_ z$~o-jMd%;|s_<R|sAax&iMhFf`3HQL=kT44F5I~EYYdkpK3{!_&*GdX^X2H#qj!Jw z(MPT4nnz&u+oR?$_I?0=p+V+YISa#*jdO5b4S{|QKDrG5UB0$_D&I+1iSZZ<*?^3n z#~3(!80*_khW{nQ2bbZu%kazP(!vvb0rR}b4D5Rq+&}&F)7JC+Z%6bOaxPf1@@M!9 z4X}1o)@9KdW@Tk__MxMSP7VI63}0i0k1-d_|CCS8{e(*wjNxMEZyEl?48Kw?JaU-J zD{J^1Ty}Qu+^NVr@YZ6TH#k-Q0y6(Zw3Yj+N8&Fuz+X+#r-<Hp<;s<um7UG`IJ+J= zUcmbf9^rjBhi79Cv;W{hK3ZJDr57ss?8PdaP0AI#MW>7XaT)gba$oz%dFG!$`GF$V z9==Lja+dfd5V@7}=cGxK6rG~zKVS;UnORwU5PRSQz#pc$%9w$_F*`Uo@N~?@qehLg z`RiZ*`ipbq1Bm>SAMm?o0r+9_{3SY`w@Ax#oL8`=dMR5txUsq2VxDR1!ZWPZJZ07b z9yfIckDV}?Cw@JJr_V5B%Q<sc^vvH*pTQF+O}-=NIryD!`S8OJWnB{6ivI}T|4DNH zuh_3}fSdJ+#;5W-If%*<>kfH#H$3$Z%KHED32Cknx?y#rJh2k}B;W88Quy|o;W@<c zbTd4mX_NFP3{U0vbCeAl;tfyvEjJTXrMKhKPqh!*aY_16z&$%IlzH3$KOjZ-D)(>y z3DD!?+@VcJuN6<e7J0diY0S;GPkY899$cfgBS(M1+cR@Hb>Dv8wkMBc({edxXD)Bt zk;`GJIUKSrn*)=w8NMF8CLxD?6Y^LWpTqD2VfcfvN7O!Ev?-IFBlodG*gjquzK7v| z!|($#>Xe^o(@vv-PY=Hud{?o1f!`3fZSS_TQ}?$_hmIV@@MU56ZZLc}03{5+4u+oy zpoI4vDPs7K@b<%HoOZH`(@W}=yFa=AOFUl7ae(L}l^h9xPsu$H91M4wZC>~w{_1FK z$Kd<JFR#<v8nk^si`%wS<-$*kWuAv$4M%O=#u0Jb7=Ab$9FxTBqKtRJNesUnPCk4F zcSe^0^}HSTUdaWQ(0&ca<X3a#p{jczcnBX1?YDht@Q&u0P0XKPz+F4G@Gs*i3xj)Z z+iySjczLFB_bGNKYu1PIJR23y0nE0t<5>$9ve~?aJad7H7dUzF(zP2{7aq^vuy4?A z*viX8<9TUtJj3US7X@x%C;wOl2WemW!r1=c!7KP3iz7U<sfEX!1r9huz$Z$v8)^Ig zA%<Vtui7cBSR16=i7)pH<80U(WuCdhd+`(;cAV7nA^t?Ig2Sf6)k+_TJV^V-vk!c| z_^lcFJo7g5XXg!kkiJ;b!figtXZVEizJ2?YwO7_(INd5B`wb25=hve@Gy!3JK<u8* zHYzxXok!ZK`g=IIgAcLCY7}`8nQYyDHufv<PvduH6|ngo<}v5=_w6qMho{jO@H>O< zcDbUz5*-}&D)-u#zECalz&&&r2f)SwzFNEn_g21<iHfa>SJ+m?&P4hm0elddlyT9z zeb_`R`*HZc@!K<t8NO!<AK;V5FF_sA7sqM%yfOUYlzT<NLHHo_YgY&GO8+2+zZ)lJ z<T3oJ7`{mg4%uh*eUVXGui%hUq__X_h|<fSk^jc_<^I#m4EAakWjyOg=1<TU@P%Xe zWHD^Jp#w=)&OWk7lD*RBpMS=4=FVjYM<-si*qz-ymhoaY4|ZAN&UVg=89rZ}U4Df# zArHcb9k4-@vAH~E@6YIOea8h~LVnAloXx&(VfcbDe7ZPpOA>$f**w@gOv7^w?lJ7x zQ|rwExPROn2^)a8&AdHv3vWw|=eW3d4%raSOWfQTK9CH5J6;8O*m<%>0r=GYtbI8T z$(^S0&i3=qqj`Y&1&03_pFMK{d)#7<+7!wQp-a(vuVVQAG5qcr{&2XaJ<84XMSL4@ ztNIwjzl`CF#_;6gP0=xo-xXr`AoA|gS_L$)DSTA_3;*R#Rd^xz%$}Xh@Snu~az4%` zM|mgC3c6K341Yp~4<62A=%8EG`t#ZMm4>sLoYyd!Ts_I~Y2#A`hk0jO2HQJ0a@?MS zyzkT{*fu`c{+Tmp9=KzC_|6eNs@UJpgI$0h!;g`FY{1#}2efCrbG(WPw6PV)w{nkK z#w|4m7`}G6o6cgj%OZx)AM2v@HUUQYllC9xzw!I#&6~J$8_4j#Wca7@kG0SXd|#oz zw^Hs3<$Nsw{lEi&IJvWJ#5wz77Q@evx5RB__=K|0X1z_w!|gxJfB9at$QAqNnXFmn z#_)?o+n6NfURCa$l>15OA>`gmxyJ)vl&5?nzP><@6Yh85^S~!dPVr)Q4~FmO1O5Ln z|E2$p<3aB17P~KF_~e2f=y0TM<-QAT8Sjn2W9807?oAZHx9~~Q<vvU9Bymp!e@2ek z63+`4E&EyfcljrN80s(A@tDs(WBBng{72EJ;HlKt`p)M9<nTQ7d`8{mxt-AY;alP_ zW&$7R$^;L*->E*q2XMX>TfNruj~}36Bfv+51;j=L{xm#p;v`<{y^P_j3i`p%O4KL! zU7`;aU9RXpm3xn9=sy8+haviE(f#5cRnbGrosxoQHkY5fz$)DNw{HLV@#8G;aFF=` ze%8Fsdnv;o7Ic8G=b&FJOVqb1dV0BY5dE#(rN|wG5k!wJdU4S$i!N90XmB4?Syjz0 zF0K!>f8xZ6N8X#jN1MMv`+?8}z+V?U%s?H`Q%b$cJqhCEu0-0rcRvDLj^SJ4mAi-_ zeSYYMTM84o8hQ>V*bTI%zo4Mtk?q4boWGnnp5g1vwOc*FOVE8B^eXo=pjY1IZbNjx z!h0jgw{j;Syg~bd-=VeKQoMuVE6eld&FA4CkGi-17Zw)YYrnP5e`?HFhL1e2@e5%1 zp`)EJJxxNZ)GzHRI^zVr?)IL3U-}3AFT59hxb)FJPyP{hGWi83asHj8ob!$2AHS!B zwbf3+;bFbK=*ZyX&G4IN-m?rigrm+)`gWCmHRxRB?(#hPNA$)b|7UjSaZ>KKHgQYp za)$pf!*?6DV$<YKIm_6-&@UkUAhIB`DC0rKL3nsLPnkNE;Zx4=$p=lK+juvij5El# zqU*)DFzTp9H!XV9v%up5@XGYzn_1Be-(-bO(OF=B|AMjohvmNYHymXZd!qFlV5hWV z5yST%^no_HPrs0bHZji_^|Yds6_9Vy-_}9rc08KlbI$OM<|wR%FTeb<(l*)`ox^X^ zAIsedej9<~lD9K{pMdcj1mHi$b|dCs=uefkN9<R`&gl9D*dGBf@58U1uZO!be7HI1 z;9>0H2Jll)JtcY?rEO{d*TP&^EyHh3VMktGp4@@*R@hF%r=Rf~3XI=BfDB?jsKeSL zHcw)gRSTP}{B8Vwm<!iLXc)fb3?FrdUXI`D)$1*^_nX=lyhP_|Y+sNNnV17TPRPbc zhJQcf_XHTf&A=zUZ1|kF72`J=7{AfL@b_o<@iTnWmHmg<+~D5h&Btk5+F#(d@`3gR zhpShwD)v-rCua`d9K$<y?_>P#93R-92b;XZd=z@W{YQ^+%+>^Ugk9dNufF;~e@nf; zHQ=`#l=g)O4}+Ww#jeZU-HqMc-0-WTS{6BRf&HV{{J<R<d&L?5blZZX=-U>!t%9!2 zOVPFAw<~y-%AjYna%BAW22ZuL=C5bXXZ$7y<F`4Wcbm>%PM&%K<9i>f5dY&}>~BHN z9q^wH?s|2Gs4^b--BbA$dJ{CR*JFqp5YA1l^c2118(;!3>M@3*%){aB8N1rNHZty; zKYS8xInFKR3Hbjqe0CYWy9^&*hEFelYwgV6Sh+C#e|h{|HN!8M;UCQKCFXa>r+f>) zU4{=YKiTEmUGV>9_?JTGki+mjW%!^nd`+=;zl3vjEyKrDIgh~aRH<Xc>=ZZn{BnP6 zf8g88@KI*?3M*?je3BWy#SEWahW{$V@0Q`$%J9R5&r79(hs?9^59Tp>*SSBYE%*jA z{DzgYzu30IR~hHb5Qg6?!)KQxGLA5OcojQ!p+(AzJi@n_KR@t2!;hHZTg>n+R%8-B z(Kx%?F?@&_KEVvXSdK&;au%96&rvBa_CaFL3Lj>MKQhCwmf^pwtW};XmN9&a8NS5~ z-(-frG{X-Wx`rBtPxZa>vR@MWFZek#e4ZJ;!wlbGhA%DlPM9kJ@U><53S$rA!tg6* z_+=~QWv`Q&nW@-1iT$P6GQ)Qmdq)sciMd|c*I}-!!n%UJCH#;Xe$fm+Z>7B0<HFCE z;hW5MDm(UH<HJA6{cb7N;1i*S{R!4>c`w_-@Hghou$6@$xl&%{Hu(4|0KagC543)* zRn~gE8|{Z=-G_Yve3>~VF_z(ju9TO%UHF14HYe~$XZT-ZZ-TbuK3cIW!dfNwwX!C{ zRtLV)4F75#kNu_epWGqApIia>vUA{?RSf@V?72X@+?~pOo$S43ZL7$D$>mmt&$j3U zu1R_LCi5k%akaIz@@owYzjlV-HS%N6c;f<o<-HMb1@C8-vw+x8!^fOI9sajZx9;3J zWMj-mw@uLzZZR<tZtxf9O`A4x2>KH~+zfwchQBkz_nF~0&HFRc8UExvX2g)O506Fp z4&H=4B7)fMz%QNQSI&FTFMBi6IeBY5!>64;{riwF9#vN2;MdMU8)F&1>kR*PhR;32 cAD`!0+luT}jv7AXlV2+Po8zIMHTuT>Kb?uo+W-In literal 0 HcmV?d00001 diff --git a/components/fpspreadsheet/reference/BIFFExplorer/beabout.lfm b/components/fpspreadsheet/reference/BIFFExplorer/beabout.lfm new file mode 100644 index 000000000..f386fc606 --- /dev/null +++ b/components/fpspreadsheet/reference/BIFFExplorer/beabout.lfm @@ -0,0 +1,85 @@ +object AboutForm: TAboutForm + Left = 338 + Height = 512 + Top = 153 + Width = 642 + Caption = 'About BIFF Explorer' + ClientHeight = 512 + ClientWidth = 642 + Color = clWindow + OnCreate = FormCreate + Position = poMainFormCenter + LCLVersion = '1.3' + object Panel1: TPanel + Left = 0 + Height = 66 + Top = 0 + Width = 642 + Align = alTop + BevelOuter = bvNone + ClientHeight = 66 + ClientWidth = 642 + Color = clWindow + ParentColor = False + TabOrder = 0 + object IconImage: TImage + Left = 7 + Height = 48 + Top = 8 + Width = 48 + end + object LblTitle: TLabel + Left = 69 + Height = 29 + Top = 16 + Width = 158 + Caption = 'BIFF Explorer' + Font.CharSet = ANSI_CHARSET + Font.Color = clNavy + Font.Height = -24 + Font.Name = 'Arial' + Font.Pitch = fpVariable + Font.Quality = fqDraft + Font.Style = [fsBold] + ParentColor = False + ParentFont = False + end + object BtnClose: TButton + Left = 559 + Height = 29 + Top = 16 + Width = 75 + Anchors = [akTop, akRight] + Cancel = True + Caption = 'Close' + Default = True + ModalResult = 1 + TabOrder = 0 + end + end + object Bevel1: TBevel + Left = 0 + Height = 6 + Top = 66 + Width = 642 + Align = alTop + Shape = bsTopLine + end + object HTMLViewer: TIpHtmlPanel + Left = 0 + Height = 440 + Top = 72 + Width = 642 + Align = alClient + FixedTypeface = 'Courier New' + DefaultTypeFace = 'default' + DefaultFontSize = 9 + FlagErrors = False + PrintSettings.MarginLeft = 0.5 + PrintSettings.MarginTop = 0.5 + PrintSettings.MarginRight = 0.5 + PrintSettings.MarginBottom = 0.5 + TabOrder = 1 + OnHotClick = HTMLViewerHotClick + end +end diff --git a/components/fpspreadsheet/reference/BIFFExplorer/beabout.pas b/components/fpspreadsheet/reference/BIFFExplorer/beabout.pas new file mode 100644 index 000000000..d482482bf --- /dev/null +++ b/components/fpspreadsheet/reference/BIFFExplorer/beabout.pas @@ -0,0 +1,141 @@ +unit beAbout; + +{$mode objfpc}{$H+} + +interface + +uses + Classes, IpHtml, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, + ExtCtrls, StdCtrls; + +type + + { TAboutForm } + + TAboutForm = class(TForm) + Bevel1: TBevel; + BtnClose: TButton; + IconImage: TImage; + HTMLViewer: TIpHtmlPanel; + LblTitle: TLabel; + Panel1: TPanel; + procedure FormCreate(Sender: TObject); + procedure HTMLViewerHotClick(Sender: TObject); + private + { private declarations } + function CreateCredits: String; + public + { public declarations } + end; + +var + AboutForm: TAboutForm; + +implementation + +{$R *.lfm} + +uses + LCLIntf, types, beHTML; + +{ TAboutForm } + +function TAboutForm.CreateCredits: String; +var + html: THTMLDocument; + clrs: THeaderColors = (clBlack, clBlack, clBlack, clBlack, clBlack); +begin + html := THTMLDocument.Create; + try + clrs[h3] := LblTitle.Font.Color; + clrs[h4] := LblTitle.Font.Color; + with html do begin + BeginDocument('Credits', clrs, false); + AddHeader(h3, 'Credits'); + AddHeader(h4, 'Libraries'); + BeginBulletList; + AddListItem(Hyperlink( + 'Free Pascal', + 'www.freepascal.org') + ); + AddListItem(Hyperlink( + 'Lazarus', + 'www.lazarus.freepascal.org') + ); + AddListItem(HyperLink( + 'fpspreadsheet', + 'http://sourceforge.net/p/lazarus-ccr/svn/HEAD/tree/components/fpspreadsheet/') + ); + EndBulletList; + + AddEmptyLine; + + AddHeader(h4, 'Icons'); + BeginBulletList; + AddListItem(HyperLink( + 'Fugue icons', + 'http://p.yusukekamiyamane.com/') + + ' (for toolbar icons)'); + AddListItem(HyperLink( + 'Nuvola icons', + 'www.icon-king.com/projects/nuvola/') + + ' (for application icon'); + EndBulletList; + + AddEmptyLine; + + AddHeader(h4, 'Used documentation'); + BeginBulletList; + AddListItem(Hyperlink( + 'OpenOffice.org''s Documentation of the Microsoft Excel File Format', + 'http://www.openoffice.org/sc/excelfileformat.pdf') + + ' (see folder "fpspreadsheet/reference")' + ); + AddListItem(Hyperlink( + '[MS-XLS]: Excel Binary File Format (.xls) Structure', + 'http://msdn.microsoft.com/en-us/library/cc313154%28v=office.12%29.aspx' + )); + AddListItem(HyperLink( + 'Excel97-2007BinaryFileFormat(xls)Specification', + 'http://download.microsoft.com/download/0/B/E/0BE8BDD7-E5E8-422A-ABFD-4342ED7AD886/Excel97-2007BinaryFileFormat(xls)Specification.pdf' + )); + EndBulletList; + + EndDocument; + + Result := Lines.Text; + end; + finally + html.Free; + end; +end; + + +procedure TAboutForm.FormCreate(Sender: TObject); +var + ico: TIcon; + sz: TSize; +begin + ico := TIcon.Create; + try + ico.Assign(Application.Icon); + sz.cx := 48; + sz.cy := 48; + ico.Current := ico.GetBestIndexForSize(sz); + IconImage.Picture.Assign(ico); + finally + ico.Free; + end; + + HTMLViewer.SetHTMLFromStr(CreateCredits); +end; + + +procedure TAboutForm.HTMLViewerHotClick(Sender: TObject); +begin + OpenURL(HTMLViewer.HotURL); +end; + + +end. + diff --git a/components/fpspreadsheet/reference/BIFFExplorer/bebiffgrid.pas b/components/fpspreadsheet/reference/BIFFExplorer/bebiffgrid.pas new file mode 100644 index 000000000..d6affa9fe --- /dev/null +++ b/components/fpspreadsheet/reference/BIFFExplorer/bebiffgrid.pas @@ -0,0 +1,3469 @@ +unit beBIFFGrid; + +{$mode objfpc}{$H+} + +interface + +uses + Classes, SysUtils, Controls, Grids, fpspreadsheet; + +type + TBIFFBuffer = array of byte; + + TBIFFDetailsEvent = procedure(Sender: TObject; ADetails: TStrings) of object; + + TBIFFGrid = class(TStringGrid) + private + FRecType: Word; + FBuffer: TBIFFBuffer; + FBufferIndex: LongWord; + FFormat: TsSpreadsheetFormat; + FCurrRow: Integer; + FDetails: TStrings; + FOnDetails: TBIFFDetailsEvent; + function GetStringType: String; + + procedure ShowBackup; + procedure ShowBOF; + procedure ShowBookBool; + procedure ShowBottomMargin; + procedure ShowCalcCount; + procedure ShowCalcMode; + procedure ShowClrtClient; + procedure ShowCodePage; + procedure ShowCountry; + procedure ShowDateMode; + procedure ShowDefColWidth; + procedure ShowDefRowHeight; + procedure ShowDelta; + procedure ShowDimensions; + procedure ShowDSF; + procedure ShowEOF; + procedure ShowExcel9File; + procedure ShowFileSharing; + procedure ShowFnGroupCount; + procedure ShowFont; + procedure ShowFooter; + procedure ShowFormat; + procedure ShowFormula; + procedure ShowHeader; + procedure ShowHideObj; + procedure ShowInteger; + procedure ShowInterfaceEnd; + procedure ShowInterfaceHdr; + procedure ShowIteration; + procedure ShowLabelCell; + procedure ShowLabelSSTCell; + procedure ShowLeftMargin; + procedure ShowMMS; + procedure ShowNumberCell; + procedure ShowPalette; + procedure ShowPassword; + procedure ShowPrecision; + procedure ShowPrintGridLines; + procedure ShowPrintHeaders; + procedure ShowProt4Rev; + procedure ShowProt4RevPass; + procedure ShowProtect; + procedure ShowRecalc; + procedure ShowRefMode; + procedure ShowRefreshAll; + procedure ShowRightMargin; + procedure ShowRK; + procedure ShowRow; + procedure ShowSelection; + procedure ShowSheet; + procedure ShowSST; + procedure ShowString; + procedure ShowStyle; + procedure ShowStyleExt; + procedure ShowTabID; + procedure ShowTopMargin; + procedure ShowWindow1; + procedure ShowWindow2; + procedure ShowWindowProtect; + procedure ShowWriteAccess; + procedure ShowWriteProt; + procedure ShowXF; + procedure ShowXFCRC; + procedure ShowXFEXT; + + protected + procedure Click; override; + procedure DoExtractDetails; + procedure ExtractString(ABufIndex: Integer; ALenBytes: Byte; AUnicode: Boolean; + out AString: String; out ANumBytes: Integer; IgnoreCompressedFlag: Boolean = false); + procedure PopulateGrid; + procedure ShowInRow(var ARow: Integer; var AOffs: LongWord; ASize: Word; AValue,ADescr: String); + procedure ShowRowColData(var ABufIndex: LongWord); + + public + constructor Create(AOwner: TComponent); override; + destructor Destroy; override; + procedure SetRecordType(ARecType: Word; ABuffer: TBIFFBuffer; AFormat: TsSpreadsheetFormat); + + published + property OnDetails: TBIFFDetailsEvent read FOnDetails write FOnDetails; + end; + +implementation + +uses + StrUtils, Math, + fpsutils, + beBIFFUtils; + +constructor TBIFFGrid.Create(AOwner: TComponent); +begin + inherited Create(AOwner); + ColCount := 4; + FixedCols := 0; + RowCount := 2; + Cells[0, 0] := 'Offset'; + Cells[1, 0] := 'Size'; + Cells[2, 0] := 'Value'; + Cells[3, 0] := 'Description'; + ColWidths[0] := 60; + ColWidths[1] := 60; + ColWidths[2] := 120; + ColWidths[3] := 350; + Options := Options + [goThumbTracking, goColSizing, goTruncCellHints, goCellHints] - [goVertLine]; + FDetails := TStringList.Create; +end; + + +destructor TBIFFGrid.Destroy; +begin + FDetails.Free; + inherited; +end; + + +procedure TBIFFGrid.Click; +begin + inherited; + if (FBuffer <> nil) then + DoExtractDetails; +end; + + +procedure TBIFFGrid.DoExtractDetails; +begin + if Assigned(FOnDetails) then begin + PopulateGrid; + FOnDetails(self, FDetails); + end; +end; + + +procedure TBIFFGrid.ExtractString(ABufIndex: Integer; ALenBytes: Byte; AUnicode: Boolean; + out AString: String; out ANumBytes: Integer; IgnoreCompressedFlag: Boolean = false); +var + ls: Integer; + sa: ansiString; + sw: WideString; + w: Word; + optn: Byte; +begin + if Length(FBuffer) = 0 then begin + AString := ''; + ANumBytes := 0; + exit; + end; + if ALenBytes = 1 then + ls := FBuffer[ABufIndex] + else begin + Move(FBuffer[ABufIndex], w, 2); + ls := WordLEToN(w); + end; + if AUnicode then begin + optn := FBuffer[ABufIndex + ALenBytes]; + if (optn and $01 = 0) and (not IgnoreCompressedFlag) + then begin // compressed --> 1 byte per character + SetLength(sa, ls); + ANumbytes := ls*SizeOf(AnsiChar) + ALenBytes + 1; + Move(FBuffer[ABufIndex + ALenBytes + 1], sa[1], ls*SizeOf(AnsiChar)); + AString := sa; + end else begin + SetLength(sw, ls); + ANumBytes := ls*SizeOf(WideChar) + ALenBytes + 1; + Move(FBuffer[ABufIndex + ALenBytes + 1], sw[1], ls*SizeOf(WideChar)); + AString := UTF8Encode(WideStringLEToN(sw)); + end; + end else begin + SetLength(sa, ls); + ANumBytes := ls*SizeOf(AnsiChar) + ALenBytes; + Move(FBuffer[ABufIndex + ALenBytes], sa[1], ls*SizeOf(AnsiChar)); + AString := sa; + end; +end; + + +function TBIFFGrid.GetStringType: String; +begin + case FFormat of + sfExcel2: Result := 'Byte'; + sfExcel5: Result := 'Byte'; + sfExcel8: Result := 'Unicode'; + end; +end; + + +procedure TBIFFGrid.PopulateGrid; +begin + FBufferIndex := 0; + FCurrRow := FixedRows; + FDetails.Clear; + case FRecType of + $0000, $0200: + ShowDimensions; + $0002: + ShowInteger; + $0003, $0203: + ShowNumberCell; + $0004, $0204: + ShowLabelCell; + $0006: + ShowFormula; + $0007, $0207: + ShowString; + $0008, $0208: + ShowRow; + $0009, $0209, $0409, $0809: + ShowBOF; + $000A: + ShowEOF; + $000C: + ShowCalcCount; + $000D: + ShowCalcMode; + $000E: + ShowPrecision; + $000F: + ShowRefMode; + $0010: + ShowDelta; + $0011: + ShowIteration; + $0012: + ShowProtect; + $0013: + ShowPassword; + $0014: + ShowHeader; + $0015: + ShowFooter; + $0019: + ShowWindowProtect; + $001D: + ShowSelection; + $001E, $041E: + ShowFormat; + $0022: + ShowDateMode; + $0025, $0225: + ShowDefRowHeight; + $0026: + ShowLeftMargin; + $0027: + ShowRightMargin; + $0028: + ShowTopMargin; + $0029: + ShowBottomMargin; + $002A: + ShowPrintHeaders; + $002B: + ShowPrintGridLines; + $0031: + ShowFont; + $003D: + ShowWindow1; + $003E, $023E: + ShowWindow2; + $0040: + ShowBackup; + $0042: + ShowCodePage; + $0043: + ShowXF; + $0055: + ShowDefColWidth; + $005B: + ShowFileSharing; + $005C: + ShowWriteAccess; + $005F: + ShowRecalc; + $0085: + ShowSheet; + $0086: + ShowWriteProt; + $008C: + ShowCountry; + $008D: + ShowHideObj; + $0092: + ShowPalette; + $00C1: + ShowMMS; + $009C: + ShowFnGroupCount; + $00DA: + ShowBookBool; + $00E0: + ShowXF; + $00E1: + ShowInterfaceHdr; + $00E2: + ShowInterfaceEnd; + $00FC: + ShowSST; + $00FD: + ShowLabelSSTCell; + $013D: + ShowTabID; + $0161: + ShowDSF; + $01AF: + ShowProt4Rev; + $01B7: + ShowRefreshAll; + $01BC: + ShowProt4RevPass; + $01C0: + ShowExcel9File; + $027E: + ShowRK; + $0293: + ShowStyle; + $087C: + ShowXFCRC; + $087D: + ShowXFEXT; + $0892: + ShowStyleExt; + $105C: + ShowClrtClient; + else + RowCount := 2; + Rows[1].Clear; + end; +end; + + +procedure TBIFFGrid.SetRecordType(ARecType: Word; ABuffer: TBIFFBuffer; + AFormat: TsSpreadsheetFormat); +begin + FFormat := AFormat; + FRecType := ARecType; + SetLength(FBuffer, Length(ABuffer)); + if Length(FBuffer) > 0 then + Move(ABuffer[0], FBuffer[0], Length(FBuffer)); + PopulateGrid; + if Assigned(FOnDetails) then FOnDetails(self, FDetails); +end; + + +procedure TBIFFGrid.ShowBackup; +var + numBytes: Integer; + w: Word; +begin + RowCount := FixedRows + 1; + numBytes := 2; + Move(FBuffer[FBufferIndex], w, numBytes); + w := WordLEToN(w); + if Row = FCurrRow then begin + FDetails.Add('Save backup copy of workbook:'#13); + if w = 0 + then FDetails.Add('0 = no backup') + else FDetails.Add('1 = backup copy is saved when workbook is saved'); + end; + ShowInRow(FCurrRow, FBufferIndex, numBytes, Format('$%.4x', [w]), + 'Save backup copy of workbook'); +end; + + +procedure TBIFFGrid.ShowBOF; +var + numBytes: Integer; + w: Word; + s: String; +begin + case FFormat of + sfExcel2: RowCount := FixedRows + 2; + sfExcel5: RowCount := FixedRows + 4; + sfExcel8: RowCount := FixedRows + 6; + end; + + numBytes := 2; + Move(FBuffer[FBufferIndex], w, numBytes); + w := WordLEToN(w); + if Row = FCurrRow then begin + FDetails.Add('BIFF version:'#13); + case w of + $0000: FDetails.Add('$0000 = BIFF5'); + $0200: FDetails.Add('$0200 = BIFF2'); + $0300: FDetails.Add('$0300 = BIFF3'); + $0400: FDetails.Add('$0400 = BIFF4'); + $0500: FDetails.Add('$0500 = BIFF5'); + $0600: FDetails.Add('$0600 = BIFF8'); + end; + end; + ShowInRow(FCurrRow, FBufferIndex, numBytes, Format('$%.4x', [w]), + 'BIFF version ($0500=BIFF5, $0600=BIFF8)'); + + numBytes := 2; + Move(FBuffer[FBufferIndex], w, numBytes); + s := '$0010=Sheet, $0020=Chart, $0040=Macro sheet'; + if FFormat > sfExcel2 then + s := '$0005=WB globals, $0006=VB module, ' + s + ', $0100=Workspace'; + w := WordLEToN(w); + if Row = FCurrRow then begin + FDetails.Add('Type of data:'); + FDetails.Add(Format('$%.4x = %s', [w, BofName(w)])); + end; + ShowInRow(FCurrRow, FBufferIndex, numBytes, Format('$%.4x', [w]), + Format('Type of data (%s)', [s])); + + if FFormat > sfExcel2 then begin + numBytes := 2; + Move(FBuffer[FBufferIndex], w, numBytes); + ShowInRow(FCurrRow, FBufferIndex, numBytes, IntToStr(WordLEToN(w)), + 'Build identifier (must not be zero)'); + + numBytes := 2; + Move(FBuffer[FBufferIndex], w, numBytes); + ShowInRow(FCurrRow, FBufferIndex, numBytes, IntToStr(WordLEToN(w)), + 'Build year (must not be zero)'); + end; + + if FFormat = sfExcel8 then begin + numBytes := 4; + Move(FBuffer[FBufferIndex], w, numBytes); + ShowInRow(FCurrRow, FBufferIndex, numBytes, IntToStr(WordLEToN(w)), + 'File history flags'); + + numBytes :=4; + Move(FBuffer[FBufferIndex], w, numBytes); + ShowInRow(FCurrRow, FBufferIndex, numBytes, IntToStr(WordLEToN(w)), + 'Lowest Excel version that can read all records of this file'); + end; +end; + + +procedure TBIFFGrid.ShowBookBool; +var + numbytes: Integer; + w: Word; +begin + RowCount := FixedRows + 1; + numbytes := 2; + Move(FBuffer[FBufferIndex], w, numbytes); + w := WordLEToN(w); + if Row = FCurrRow then begin + FDetails.Add('Some properties assosciated with notebook:'#13); + if w and $0001 = 0 + then FDetails.Add('Bit 0 = 0: External link values are saved.') + else FDetails.Add('Bit 0 = 1: External link values are NOT saved.'); + FDetails.Add('Bit 1: to be ignored'); + if w and $0004 = 0 + then FDetails.Add('Bit 2 = 0: Workbook does not have a mail envelope') + else FDetails.Add('Bit 2 = 1: Workbook has a mail envelope'); + if w and $0008 = 0 + then FDetails.Add('Bit 3 = 0: Mail envelope is NOT visible.') + else FDetails.Add('Bit 3 = 1: Mail envelope is visible.'); + if w and $0010 = 0 + then FDetails.Add('Bit 4 = 0: Mail envelope has NOT been initialized.') + else FDetails.Add('Bit 4 = 1: Mail envelope has been initialized.'); + case (w and $0060) shr 5 of + 0: FDetails.Add('Bits 5-6 (Update external links) = 0: Prompt user to update'); + 1: FDetails.Add('Bits 5-6 (Update external linls) = 1: Do not update, and do not prompt user.'); + 2: FDetails.Add('Bits 5-6 (Update external links) = 2: Silently update external links.'); + end; + FDetails.Add('Bit 7: undefined, must be ignored'); + if w and $0100 = 0 + then FDetails.Add('Bit 8 = 0: Do not hide borders of tables that do not contain the active cell') + else FDetails.Add('Bit 8 = 1: Hide borders of tables that do not contain the active cell'); + FDetails.Add('Bits 9-15: MUST BE zero, MUST be ignored'); + end; + ShowInRow(FCurrRow, FBufferIndex, numbytes, Format('$%.4x', [w]), + 'Specifies some properties assosciated with a workbook'); +end; + +procedure TBIFFGrid.ShowBottomMargin; +var + numBytes: Integer; + dbl: Double; +begin + RowCount := FixedRows + 1; + numBytes := 8; + Move(FBuffer[FBufferIndex], dbl, numBytes); + ShowInRow(FCurrRow, FBufferIndex, numBytes, FloatToStr(dbl), + 'Bottom page margin in inches (IEEE 754 floating-point value, 64-bit double precision)'); +end; + + +procedure TBIFFGrid.ShowCalcCount; +var + numBytes: Word; + w: Word; +begin + RowCount := FixedRows + 1; + numbytes := 2; + Move(FBuffer[FBufferIndex], w, numBytes); + w := WordLEToN(w); + ShowInRow(FCurrRow, FBufferIndex, numBytes, IntToStr(w), + 'Maximum number of iterations allowed in circular references'); +end; + + +procedure TBIFFGrid.ShowCalcMode; +var + numBytes: Word; + w: word; + s: String; +begin + RowCount := FixedRows + 1; + numBytes := 2; + Move(FBuffer[FBufferIndex], w, numBytes); + w := WordLEToN(w); + if w = $FFFF then + s := '–1 = automatically except for multiple table operations' + else if w = 0 then + s := '0 = manually' + else if w = 1 then + s := '1 = automatically (default)'; + ShowInRow(FCurrRow, FBufferIndex, numBytes, Format('%d ($%.4x)', [w, w]), s); +end; + + +procedure TBIFFGrid.ShowClrtClient; +var + w: Word; + dw: DWord; + numbytes: Word; +begin + numBytes := 2; + Move(FBuffer[FBufferIndex], w, numbytes); + w := WordLEToN(w); + + RowCount := FixedRows + w + 1; + + ShowInRow(FCurrRow, FBufferIndex, numBytes, IntToStr(w), 'Number of colors (must be 3)'); + + numBytes := 4; + Move(FBuffer[FBufferIndex], dw, numbytes); + dw := DWordLEToN(dw); + ShowInRow(FCurrRow, FBufferIndex, numbytes, Format('$%.8x', [dw]), + 'Foreground color (system window text color)'); + Move(FBuffer[FBufferIndex], dw, numbytes); + dw := DWordLEToN(dw); + ShowInRow(FCurrRow, FBufferIndex, numbytes, Format('$%.8x', [dw]), + 'Background color (system window color)'); + Move(FBuffer[FBufferIndex], dw, numbytes); + dw := DWordLEToN(dw); + ShowInRow(FCurrRow, FBufferIndex, numbytes, Format('$%.8x', [dw]), '???'); +end; + + +procedure TBIFFGrid.ShowCodePage; +var + numBytes: Word; + w: Word; + s: String; +begin + RowCount := FixedRows + 1; + numBytes := 2; + Move(FBuffer[FBufferIndex], w, numBytes); + w := WordLEToN(w); + s := CodePageName(w); + if Row = FCurrRow then begin + FDetails.Add('Code page:'); + FDetails.Add(Format('$%.04x = %s', [w, s])); + end; + if s <> '' then s := 'Code page identifier (' + s + ')' else s := 'Code page identifier'; + ShowInRow(FCurrRow, FBufferIndex, numBytes, Format('%d ($%.4x)', [w, w]), s); +end; + + +procedure TBIFFGrid.ShowCountry; +var + numBytes: Integer; + w: Word; +begin + RowCount := FixedRows + 2; + numbytes := 2; + Move(FBuffer[FBufferIndex], w, numbytes); + ShowInRow(FCurrRow, FBufferIndex, numBytes, IntToStr(WordLEToN(w)), + 'Windows country identifier for UI language of Excel'); + + Move(FBuffer[FBufferIndex], w, numbytes); + ShowInRow(FCurrRow, FBufferIndex, numBytes, IntToStr(WordLEToN(w)), + 'Windows country identifier of system regional settings'); +end; + + +procedure TBIFFGrid.ShowDateMode; +var + numBytes: Integer; + w: Word; +begin + RowCount := FixedRows + 1; + numbytes := 2; + Move(FBuffer[FBufferIndex], w, numbytes); + w := WordLEToN(w); + ShowInRow(FCurrRow, FBufferIndex, numBytes, IntToStr(w), + '0 = Base date is 1899-Dec-31, 1 = Base date is 1904-Jan-01'); +end; + +procedure TBIFFGrid.ShowDefColWidth; +var + numBytes: Integer; + w: Word; +begin + RowCount := FixedRows + 1; + + numBytes := 2; + Move(FBuffer[FBufferIndex], w, numBytes); + ShowInRow(FCurrRow, FBufferIndex, numBytes, IntToStr(WordLEToN(w)), + 'Column width in characters, using the width of the zero character from default '+ + 'font (first FONT record in the file) + some extra space.'); +end; + + +procedure TBIFFGrid.ShowDefRowHeight; +var + numBytes: Integer; + w: Word; +begin + RowCount := FixedRows + IfThen(FFormat = sfExcel2, 1, 2); + + if FFormat = sfExcel2 then begin + numBytes := 2; + Move(FBuffer[FBufferIndex], w, numBytes); + w := WordLEToN(w); + if Row = FCurrRow then begin + FDetails.Add('Default height for unused rows'); + FDetails.Add(Format( + 'Bits $7FFF = %d: Default height for unused rows, in twips = 1/20 of a point', + [w and $7FFF])); + if w and $8000 = 0 then + FDetails.Add('Bit $8000 = 0: Row height changed manually') + else + FDetails.Add('Bit $8000 = 1: Row height not changed manually'); + end; + ShowInRow(FCurrRow, FBufferIndex, numBytes, Format('%d ($%.4x)', [w, w]), + 'Default height for unused rows, in twips = 1/20 of a point'); + end else begin + numBytes := 2; + Move(FBuffer[FBufferIndex], w, numBytes); + w := WordLEToN(w); + if Row = FCurrRow then begin + FDetails.Add('Option flags'); + if w and $0001 = 0 + then FDetails.Add('Bit $0001 = 0: Row height and default font height do match') + else FDetails.Add('Bit $0001 = 1: Row height and default font height do not match'); + if w and $0002 = 0 + then FDetails.Add('Bit $0002 = 0: Row is visible') + else FDetails.Add('Bit $0002 = 1: Row is hidden'); + if w and $0004 = 0 + then FDetails.Add('Bit $0004 = 0: No additional space above the row') + else FDetails.Add('Bit $0004 = 1: Additional space above the row'); + if w and $0008 = 0 + then FDetails.Add('Bit $0008 = 0: No additional space below the row') + else FDetails.Add('Bit $0008 = 1: Additional space below the row'); + end; + ShowInRow(FCurrRow, FBufferIndex, numBytes, Format('$%.4x', [WordLEToN(w)]), + 'Option flags'); + + numBytes := 2; + Move(FBuffer[FBufferIndex], w, numBytes); + ShowInRow(FCurrRow, FBufferIndex, numBytes, IntToStr(WordLEToN(w)), + 'Default height for unused rows, in twips = 1/20 of a point'); + end; +end; + + +procedure TBIFFGrid.ShowDelta; +var + numBytes: Integer; + dbl: Double; +begin + RowCount := FixedRows + 1; + numBytes := 8; + Move(FBuffer[FBufferIndex], dbl, numBytes); + ShowInRow(FCurrRow, FBufferIndex, numBytes, FloatToStr(dbl), + 'Maximum change in iteration (IEEE 754 floating-point value, 64-bit double precision)'); +end; + + +procedure TBIFFGrid.ShowDimensions; +var + numBytes: Integer; + dw: DWord; + w: Word; +begin + RowCount := FixedRows + IfThen(FFormat = sfExcel2, 4, 5); + + if FFormat = sfExcel8 then begin + numBytes := 4; + Move(FBuffer[FBufferIndex], dw, numBytes); + ShowInRow(FCurrRow, FBufferIndex, numBytes, IntToStr(DWordLEToN(dw)), + 'Index to first used row'); + + numBytes := 4; + Move(FBuffer[FBufferIndex], dw, numBytes); + ShowInRow(FCurrRow, FBufferIndex, numBytes, IntToStr(DWordLEToN(dw)), + 'Index to last used row, increased by 1'); + end else begin + numBytes := 2; + Move(FBuffer[FBufferIndex], w, numBytes); + ShowInRow(FCurrRow, FBufferIndex, numBytes, IntToStr(WordLEToN(w)), + 'Index to first used row'); + + numBytes := 2; + Move(FBuffer[FBufferIndex], w, numBytes); + ShowInRow(FCurrRow, FBufferIndex, numBytes, IntToStr(WordLEToN(w)), + 'Index to last used row, increased by 1'); + end; + + numBytes := 2; + Move(FBuffer[FBufferIndex], w, numBytes); + ShowInRow(FCurrRow, FBufferIndex, numBytes, IntToStr(WordLEToN(w)), + 'Index to first used column'); + + numBytes := 2; + Move(FBuffer[FBufferIndex], w, numBytes); + ShowInRow(FCurrRow, FBufferIndex, numBytes, IntToStr(WordLEToN(w)), + 'Index to last used column, increased by 1'); + + numBytes := 2; + ShowInRow(FCurrRow, FBufferIndex, numBytes, '', + '(not used)'); +end; + + +procedure TBIFFGrid.ShowDSF; +var + w: Word; + numbytes: Integer; +begin + RowCount := FixedRows + 1; + numBytes := 2; + Move(FBuffer[FBufferIndex], w, numbytes); + ShowInRow(FCurrRow, FBufferIndex, numbytes, IntToStr(w), 'Reserved, MUST be ignored'); +end; + + +procedure TBIFFGrid.ShowEOF; +begin + RowCount := FixedRows + 1; + ShowInRow(FCurrRow, FBufferIndex, 0, '', '(no content)'); +end; + + +procedure TBIFFGrid.ShowExcel9File; +begin + RowCount := FixedRows + 1; + ShowInRow(FCurrRow, FBufferIndex, 0, '', 'Optional and unused'); +end; + + +procedure TBIFFGrid.ShowFileSharing; +var + numbytes: Integer; + w: Word; + s: String; +begin + RowCount := FixedRows + 3; + numBytes := 2; + Move(FBuffer[FBufferIndex], w, numBytes); + w := WordLEToN(w); + if Row = FCurrRow then begin + FDetails.Add('Recommend read-only state when loading the file:'#13); + if w = 0 then FDetails.Add('0 = no') else FDetails.Add('1 = yes'); + end; + ShowInRow(FCurrRow, FBufferIndex, numBytes, IntToStr(w), + 'Recommend read-only state when loading the file'); + + Move(FBuffer[FBufferIndex], w, numBytes); + w := WordLEToN(w); + ShowInRow(FCurrRow, FBufferIndex, numBytes, Format('$%.4x', [w]), + 'Hash value calculated from the read-only password'); + + ExtractString(FBufferIndex, IfThen(FFormat=sfExcel8, 2, 1), FFormat=sfExcel8, + s, numbytes); + ShowInRow(FCurrRow, FBufferIndex, numbytes, s, + 'User name of the file creator' + IfThen(FFormat = sfExcel8, + ' (Unicode string, 16-bit string length)', + ' (byte string, 8-bit string length)' + )); +end; + + +procedure TBIFFGrid.ShowFnGroupCount; +var + numbytes: Integer; + w: Word; +begin + RowCount := FixedRows + 1; + numBytes := 2; + Move(FBuffer[FBufferIndex], w, numBytes); + w := WordLEToN(w); + if Row = FCurrRow then begin + FDetails.Add('Number of built-in function categories:'#13); + case w of + $000E: + FDetails.Add( + 'There are 14 built-in function categories in the workbook.'#13+ + 'This implies that the file was last saved by a specific version of the application.'#13+ + 'The following 9 built-in function categories are visible to the end-user:'#13+ + ' Financial'#13+ + ' Date & Time'#13+ + ' Math & Trig'#13+ + ' Statistical'#13+ + ' Lookup & Reference'#13+ + ' Database'#13+ + ' Text'#13+ + ' Logical'#13+ + ' Information'#13+ + 'The following 5 built-in function categories are not visible to the end-user:'#13+ + ' UserDefined'#13+ + ' Commands'#13+ + ' Customize'#13+ + ' MacroControl'#13+ + ' DDEExternal' + ); + $0010: + FDetails.Add( + 'There are 16 built-in function categories in the workbook.'#13+ + 'This implies that the file was last saved by a specific version of the application'#13+ + 'The following 11 built-in function categories are visible to the end-user:'#13+ + ' Financial'#13+ + ' Date & time'#13+ + ' Math & Trig'#13+ + ' Statistical'#13+ + ' Lookup & Reference'+ + ' Database'#13+ + ' Text'#13+ + ' Logical'#13+ + ' Information'#13+ + ' Engineering'#13+ + ' Cube'#13+ + 'The following 5 built-in function categories are not visible to the end-user:'#13+ + ' UserDefined'#13+ + ' Commands'#13+ + ' Customize'#13+ + ' MacroControl'#13+ + ' DDEExternal' + ); + end; + end; + ShowInRow(FCurrRow, FBufferIndex, numbytes, IntToStr(w), + 'Number of built-in function categories'); +end; + + +procedure TBIFFGrid.ShowFont; +var + numbytes: Integer; + w: Word; + b: Byte; + s: String; +begin + RowCount := IfThen(FFormat = sfExcel2, 3, 10) + FixedRows; + + numBytes := 2; + Move(FBuffer[FBufferIndex], w, numBytes); + w := WordLEToN(w); + ShowInRow(FCurrRow, FBufferIndex, numbytes, IntToStr(w), + 'Font height in twips (=1/20 point)'); + + numBytes := 2; + Move(FBuffer[FBufferIndex], w, numBytes); + w := WordLEToN(w); + if Row = FCurrRow then begin + FDetails.Add('Option flags:'#13); + if w and $0001 = 0 + then FDetails.Add('Bit $0001 = 0: not bold') + else FDetails.Add('Bit $0001 = 1: bold (redundant in BIFF5-BIFF8)'); + if w and $0002 = 0 + then FDetails.Add('Bit $0002 = 0: not italic') + else FDetails.Add('Bit $0002 = 1: italic'); + if w and $0004 = 0 + then FDetails.Add('Bit $0004 = 0: not underlined') + else FDetails.Add('Bit $0004 = 1: underlined (redundant in BIFF5-BIFF8)'); + if w and $0008 = 0 + then FDetails.Add('Bit $0008 = 0: not struck out') + else FDetails.Add('Bit $0008 = 1: struck out'); + if w and $0010 = 0 + then FDetails.Add('Bit $0010 = 0: not outlined') + else FDetails.Add('Bit $0010 = 1: outlined'); + if w and $0020 = 0 + then FDetails.Add('Bit $0020 = 0: not shadowed') + else FDetails.Add('Bit $0020 = 1: shadowed'); + if w and $0040 = 0 + then FDetails.Add('Bit $0040 = 0: not condensed') + else FDetails.Add('Bit $0040 = 1: condensed'); + if w and $0080 = 0 + then FDetails.Add('Bit $0080 = 0: not extended') + else FDetails.Add('Bit $0080 = 1: extended'); + end; + ShowInRow(FCurrRow, FBufferIndex, numBytes, Format('%d ($%.4x)', [w, w]), + 'Option flags'); + + if FFormat <> sfExcel2 then begin + numBytes := 2; + Move(FBuffer[FBufferIndex], w, numBytes); + w := WordLEToN(w); + ShowInRow(FCurrRow, FBufferIndex, numBytes, IntToStr(2), 'Color index'); + + numBytes := 2; + Move(FBuffer[FBufferIndex], w, numBytes); + w := WordLEToN(w); + ShowInRow(FCurrRow, FBufferIndex, numBytes, Format('%d ($%.4x)', [w,w]), + 'Font weight (400=normal, 700=bold)'); + + numBytes := 2; + Move(FBuffer[FBufferIndex], w, numBytes); + w := WordLEToN(w); + if Row = FCurrRow then begin + FDetails.Add('Escapement:'#13); + case w of + 0: FDetails.Add('0 = none'); + 1: FDetails.Add('1 = superscript'); + 2: FDetails.Add('2 = subscript'); + end; + end; + ShowInRow(FCurrRow, FBufferIndex, numBytes, Format('$%.4x', [w]), + 'Escapement ($00=none, $01=superscript, $02=subscript)'); + + numBytes := 1; + Move(FBuffer[FBufferIndex], b, numBytes); + if Row = FCurrRow then begin + FDetails.Add('Underline type:'#13); + case b of + $00: FDetails.Add('$00 = no underline'); + $01: FDetails.Add('$01 = single underline'); + $02: FDetails.Add('$02 = double underline'); + $21: FDetails.Add('$21 = single accounting'); + $22: FDetails.Add('$22 = double accounting'); + end; + end; + ShowInRow(FCurrRow, FBufferIndex, numBytes, Format('$%.2x', [b]), + 'Underline type ($00=none, $01=single, $02=double, ...)'); + + numBytes := 1; + Move(FBuffer[FBufferIndex], b, numBytes); + if Row = FCurrRow then begin + FDetails.Add('Font family:'#13); + case b of + $00: FDetails.Add('$00 = None (unknown or don''t care)'); + $01: FDetails.Add('$01 = Roman (variable width, serifed)'); + $02: FDetails.Add('$02 = Swiss (variable width, sans-serifed)'); + $03: FDetails.Add('$03 = Modern (fixed width, serifed or sans-serifed)'); + $04: FDetails.Add('$04 = Script (cursive)'); + $05: FDetails.Add('$05 = Decorative (specialised, for example Old English, Fraktur)'); + end; + end; + ShowInRow(FCurrRow, FBufferIndex, numBytes, Format('%.2x', [b]), + 'Font family'); + + numBytes := 1; + Move(FBuffer[FBufferIndex], b, numBytes); + case b of + $00: s := 'ANSI Latin'; + $01: s := 'System default'; + $02: s := 'Symbol'; + $4D: s := 'Apple Roman'; + $80: s := 'ANSI Japanese Shift-JIS'; + $81: s := 'ANSI Korean (Hangul)'; + $82: s := 'ANSI Korean (Johab)'; + $86: s := 'ANSI Chinese Simplified GBK'; + $88: s := 'ANSI Chinese Traditional BIG5'; + $A1: s := 'ANSI Greek'; + $A2: s := 'ANSI Turkish'; + $A3: s := 'ANSI Vietnamese'; + $B1: s := 'ANSI Hebrew'; + $B2: s := 'ANSI Arabic'; + $BA: s := 'ANSI Baltic'; + $CC: s := 'ANSI Cyrillic'; + $DE: s := 'ANSI Thai'; + $EE: s := 'ANSI Latin II (Central European)'; // East Europe in MS docs! + $FF: s := 'OEM Latin I'; + else s := ''; + end; + if s <> '' then s := Format('$%.2x: %s', [b, s]) else s := Format('$%.2x', [b]); + ShowInRow(FCurrRow, FBufferIndex, numBytes, s, + 'Character set'); + + numBytes := 1; + Move(FBuffer[FBufferIndex], b, numBytes); + ShowInRow(FCurrRow, FBufferIndex, numBytes, '', 'Not used'); + end; + + ExtractString(FBufferIndex, 1, FFormat=sfExcel8, s, numbytes); + if FFormat = sfExcel8 then + ShowInRow(FCurrRow, FBufferIndex, numbytes, s, 'Font name (unicode string, 8-bit string length)') + else + ShowInRow(FCurrRow, FBufferIndex, numbytes, s, 'Font name (byte string, 8-bit string length)'); +end; + + +procedure TBIFFGrid.ShowFooter; +var + numbytes: Integer; + s: String; +begin + RowCount := FixedRows + 1; + ExtractString(FBufferIndex, IfThen(FFormat=sfExcel8, 2, 1), FFormat=sfExcel8, + s, numbytes); + ShowInRow(FCurrRow, FBufferIndex, numbytes, s, + 'Page footer string' + IfThen(FFormat = sfExcel8, + ' (Unicode string, 16-bit string length)', + ' (byte string, 8-bit string length)' + )); +end; + + +procedure TBIFFGrid.ShowFormat; +var + numBytes: Integer; + w: word; + b: Byte; + s: String; +begin + RowCount := IfThen(FFormat = sfExcel2, FixedRows + 1, FixedRows + 2); + if FFormat <> sfExcel2 then begin + numBytes := 2; + Move(FBuffer[FBufferIndex], w, numBytes); + w := WordLEToN(w); + ShowInRow(FCurrRow, FBufferIndex, numbytes, IntToStr(w), + 'FormatIndex used in other records'); + end; + b := IfThen(FFormat=sfExcel8, 2, 1); + ExtractString(FBufferIndex, b, (FFormat=sfExcel8), s, numBytes); + ShowInRow(FCurrRow, FBufferIndex, numBytes, s, + Format('Number format string (%s string, %d-bit string length)', [GetStringType, b*8])); +end; + + +procedure TBIFFGrid.ShowFormula; +const + ABS_REL: array[boolean] of string = ('abs', 'rel'); +var + numBytes: Integer; + b: Byte; + w: Word; + q: QWord; + dbl: double absolute q; + s: String; + tokenBytes: Integer; + firstTokenBufIdx: Integer; + token: Byte; + r,c, r2,c2: Integer; +begin + BeginUpdate; + RowCount := FixedRows + 1000; + // Brute force simplification because of unknown row count at this point + // Will be reduced at the end. + + // Offset 0 = Row, Offset 2 = Column + ShowRowColData(FBufferIndex); + // Offset 4 = Cell attributes (BIFF2) or XF ecord index (> BIFF2) + if FFormat = sfExcel2 then begin + numBytes := 1; + Move(FBuffer[FBufferIndex], b, numBytes); + ShowInRow(FCurrRow, FBufferIndex, numBytes, Format('%d ($%.2x)', [b,b]), + 'Cell protection and XF index'); + + numBytes := 1; + Move(FBuffer[FBufferIndex], b, numBytes); + ShowInRow(FCurrRow, FBufferIndex, numBytes, Format('%d ($%.2x)', [b,b]), + 'Indexes of format and font records'); + + numBytes := 1; + Move(FBuffer[FBufferIndex], b, numBytes); + ShowInRow(FCurrRow, FBufferIndex, numbytes, Format('%d ($%.2x)', [b,b]), + 'Cell style'); + end else begin + numBytes := 2; + Move(FBuffer[FBufferIndex], w, numBytes); + w := WordLEToN(w); + ShowInRow(FCurrROw, FBufferIndex, numBytes, Format('%d ($%.4x)', [w, w]), + 'Index of XF record'); + end; + // Offset 6: Result of formula + numBytes := 8; + Move(FBuffer[FBufferIndex], q, numBytes); + if (FFormat > sfExcel2) then + case FBuffer[FBufferIndex] of + 0: begin + if FCurrRow = Row then begin + FDetails.Add('Formula result:'#13); + FDetails.Add('Byte 0 = 0 --> Result is string, follows in STRING record'); + FDetails.Add('Bytes 1-5: Not used'); + FDetails.Add('Bytes 6&7: Must be $FFFF'); + end; + ShowInRow(FCurrRow, FBufferIndex, numBytes, Format('$%.16x', [q]), + 'Result is STRING, follows in STRING record'); + end; + 1: if FBuffer[FBufferIndex + 2] = 0 then + ShowInRow(FCurrRow, FBufferIndex, numBytes, Format('$%.16x', [q]), + 'Result is BOOL (FALSE)') + else + ShowInRow(FCurrRow, FBufferIndex, numBytes, Format('$%.16x', [q]), + 'Result is BOOL (TRUE)'); + 2: begin + if FCurrRow = Row then begin + FDetails.Add('Formula result:'#13); + FDetails.Add('Byte 0 = 2 --> Token contains an ERROR code'); + FDetails.Add('Byte 1: not used'); + FDetails.Add(Format('Byte 2 = %d ($%.2x): "%s"', [ + FBuffer[FBufferIndex + 2], + FBuffer[FBufferIndex + 2], + ErrorCodeName(FBufferIndex + 2) + ])); + FDetails.Add('Bytes 2-5: not used'); + FDetails.Add('Bytes 6&7: Must be $FFFF'); + end; + ShowInRow(FCurrRow, FBufferIndex, numBytes, Format('$%.16x', [q]), + Format('Result is ERROR code $%.2x', [FBuffer[FBufferIndex+2]])); + end; + 3: ShowInRow(FCurrRow, FBufferIndex, numBytes, Format('$.16x', [q]), + 'Result is EMPTY cell'); + else + ShowInRow(FCurrRow, FBufferIndex, numBytes, FloatToStr(dbl), + 'Result of formula (IEEE 764 floating-point value, 64-bit double precision)'); + end + else begin + ShowInRow(FCurrRow, FBufferIndex, numBytes, FloatToStr(dbl), + 'Result of formula (IEEE 764 floating-point value, 64-bit double precision)'); + end; + + // Option flags + numBytes := 2; + Move(FBuffer[FBufferIndex], w, numBytes); + w := WordLEToN(w); + if Row = FCurrRow then begin + FDetails.Add('Option flags:'#13); + if w and $0001 = 0 + then FDetails.Add('Bit $0001 = 0: Don''t recalculate') + else FDetails.Add('Bit $0001 = 1: Recalculate always'); + FDetails.Add('Bit $0002: Reserved - MUST be zero, MUST be ignored'); + if w and $0004 = 0 + then FDetails.Add('Bit $0004 = 0: Cell does NOT have a fill alignment or a center-across-selection alignment.') + else FDetails.Add('Bit $0004 = 1: Cell has either a fill alignment or a center-across-selection alignment.'); + if w and $0008 = 0 + then FDetails.Add('Bit $0008 = 0: Formula is NOT part of a shared formula') + else FDetails.Add('Bit $0008 = 1: Formula is part of a shared formula'); + FDetails.Add('Bit $0010: Reserved - MUST be zero, MUST be ignored'); + if w and $0020 = 0 + then FDetails.Add('Bit $0020 = 0: Formula is NOT excluded from formula error checking') + else FDetails.Add('Bit $0020 = 1: Formula is excluded from formula error checking'); + FDetails.Add('Bits $FC00: Reserved - MUST be zero, MUST be ignored'); + end; + ShowInRow(FCurrRow, FBufferIndex, numbytes, Format('$%.4x', [w]), + 'Option flags'); + + // Not used + if (FFormat >= sfExcel5) then begin + numBytes := 4; + ShowInRow(FCurrRow, FBufferIndex, numBytes, '', '(not used'); + end; + + // Size of Token array (in Bytes) + if FFormat = sfExcel2 then begin + numBytes := 1; + Move(FBuffer[FBufferIndex], b, numBytes); + tokenBytes := b; + end else begin + numBytes := 2; + Move(FBuffer[FBufferIndex], w, numBytes); + tokenBytes := WordLEToN(w); + end; + ShowInRow(FCurrRow, FBufferIndex, numBytes, IntToStr(tokenBytes), + 'Size of formula data (in Bytes)'); + + // Tokens and parameters + firstTokenBufIdx := FBufferIndex; + while FBufferIndex < firstTokenBufIdx + tokenBytes do begin + token := FBuffer[FBufferIndex]; + numBytes := 1; + case token of + $01: begin + ShowInRow(FCurrRow, FBufferIndex, numbytes, Format('$%.2x', [token]), + 'Token for "Cell is part of shared formula"'); + numbytes := 2; + Move(FBuffer[FBufferIndex], w, numBytes); + ShowInRow(FCurrRow, FBufferIndex, numbytes, IntToStr(WordLEToN(w)), + 'Index to row of first FORMULA record in the formula range'); + if FFormat = sfExcel2 then begin + numbytes := 1; + b := FBuffer[FBufferIndex]; + ShowInRow(FCurrRow, FBufferIndex, numbytes, IntToStr(b), + 'Index to column of first FORMULA record in the formula range'); + end else begin + numbytes := 2; + Move(FBuffer[FBufferIndex], w, numbytes); + ShowInRow(FCurrRow, FBufferIndex, numbytes, IntToStr(WordLEToN(w)), + 'Index to column of first FORMULA record in the formula range'); + end; + end; + $02: begin + ShowInRow(FCurrRow, FBufferIndex, numbytes, Format('$%.2x', [token]), + 'Token for "Cell is part of a multiple operations table"'); + numbytes := 2; + Move(FBuffer[FBufferIndex], w, numBytes); + ShowInRow(FCurrRow, FBufferIndex, numbytes, IntToStr(WordLEToN(w)), + 'Index to first row of the table range'); + if FFormat = sfExcel2 then begin + numbytes := 1; + b := FBuffer[FBufferIndex]; + ShowInRow(FCurrRow, FBufferIndex, numbytes, IntToStr(b), + 'Index to first column of the table range'); + end else begin + numbytes := 2; + Move(FBuffer[FBufferIndex], w, numbytes); + ShowInRow(FCurrRow, FBufferIndex, numbytes, IntToStr(WordLEToN(w)), + 'Index to first column of the table range'); + end; + end; + $03: ShowInRow(FCurrRow, FBufferIndex, numBytes, Format('$%.2x', [token]), + 'Token "+" (add)'); + $04: ShowInRow(FCurrRow, FBufferIndex, numBytes, Format('$%.2x', [token]), + 'Token "-" (subtract)'); + $05: ShowInRow(FCurrRow, FBufferIndex, numBytes, Format('$%.2x', [token]), + 'Token "*" (multiply)'); + $06: ShowInRow(FCurrRow, FBufferIndex, numBytes, Format('$%.2x', [token]), + 'Token "/" (divide)'); + $07: ShowInRow(FCurrRow, FBufferIndex, numBytes, Format('$%.2x', [token]), + 'Token "^" (power)'); + $08: ShowInRow(FCurrRow, FBufferIndex, numBytes, Format('$%.2x', [token]), + 'Token "&" (concat)'); + $09: ShowInRow(FCurrRow, FBufferIndex, numBytes, Format('$%.2x', [token]), + 'Token "<" (less than)'); + $15: ShowInRow(FCurrRow, FBufferIndex, numbytes, Format('$%.2x', [token]), + 'Token "()" (operator in parenthesis)'); + $0A: ShowInRow(FCurrRow, FBufferIndex, numBytes, Format('$%.2x', [token]), + 'Token "<=" (less equal)'); + $0B: ShowInRow(FCurrRow, FBufferIndex, numBytes, Format('$%.2x', [token]), + 'Token "=" (equal)'); + $0C: ShowInRow(FCurrRow, FBufferIndex, numBytes, Format('$%.2x', [token]), + 'Token ">=" (greater equal)'); + $0D: ShowInRow(FCurrRow, FBufferIndex, numBytes, Format('$%.2x', [token]), + 'Token ">" (greater than)'); + $0E: ShowInRow(FCurrRow, FBufferIndex, numBytes, Format('$%.2x', [token]), + 'Token "<>" (not equal)'); + $0F: ShowInRow(FCurrRow, FBufferIndex, numBytes, Format('$%.2x', [token]), + 'Token " " (intersect)'); + $10: ShowInRow(FCurrRow, FBufferIndex, numBytes, Format('$%.2x', [token]), + 'Token "list character"'); + $11: ShowInRow(FCurrRow, FBufferIndex, numBytes, Format('$%.2x', [token]), + 'Token ":" (range)'); + $12: ShowInRow(FCurrRow, FBufferIndex, numBytes, Format('$%.2x', [token]), + 'Token "+" (unary plus)'); + $13: ShowInRow(FCurrRow, FBufferIndex, numBytes, Format('$%.2x', [token]), + 'Token "-" (unary minus)'); + $14: ShowInRow(FCurrRow, FBufferIndex, numBytes, Format('$%.2x', [token]), + 'Token "%" (percent)'); + $16: ShowInRow(FCurrRow, FBufferIndex, numBytes, Format('$%.2x', [token]), + 'Token "missing argument"'); + $17: begin + ShowInRow(FCurrRow, FBufferIndex, numBytes, Format('$%.2x', [token]), + 'Token tSTR (Label)'); + ExtractString(FBufferIndex, 1, (FFormat = sfExcel8), s, numBytes); + ShowInRow(FCurrRow, FBufferIndex, numBytes, s, 'String value'); + end; + $1C: begin + ShowInRow(FCurrRow, FBufferIndex, numBytes, Format('$%.2x', [token]), + 'Token tERR (Error)'); + numBytes := 1; + b := FBuffer[FBufferIndex]; + if FCurrRow = Row then begin + FDetails.Add('Error code:'#13); + FDetails.Add(Format('Code $%.2x --> "%s"', [b, b])); + end; + ShowInRow(FCurrRow, FBufferIndex, numBytes, Format('$%.2x', [b]), 'Error code'); + end; + $1D: begin + ShowInRow(FCurrRow, FBufferIndex, numBytes, Format('$%.2x', [token]), + 'Token tBOOL'); + numBytes := 1; + b := FBuffer[FBufferIndex]; + ShowInRow(FCurrRow, FBufferIndex, numBytes, IntToStr(b), + '0=FALSE, 1=TRUE'); + end; + $1E: begin + ShowInRow(FCurrRow, FBufferIndex, numBytes, Format('$%.2x', [token]), + 'Token tINT (Integer)'); + numBytes := 2; + Move(FBuffer[FBufferIndex], w, numBytes); + ShowInRow(FCurrRow, FBufferIndex, numBytes, IntToStr(WordLEToN(w)), + 'Integer value'); + end; + $1F: begin + ShowInRow(FCurrRow, FBufferIndex, numBytes, Format('$%.2x', [token]), + 'Token tNUM (Number)'); + numBytes := 8; + Move(FBuffer[FBufferIndex], dbl, numBytes); + ShowInRow(FCurrRow, FBufferIndex, numBytes, FloatToStr(dbl), + 'IEEE 754 floating-point value'); + end; + $20, $40, $60: + begin + ShowInRow(FCurrRow, FBufferIndex, numBytes, Format('$%.2x', [token]), + 'Token tARRAY'); + if FFormat = sfExcel2 then numBytes := 6 else numBytes := 7; + ShowInRow(FCurrRow, FBufferIndex, numbytes, '', '(not used)'); + end; + $21, $41, $61: + begin + ShowInRow(FCurrRow, FBufferIndex, numBytes, Format('$%.2x', [token]), + 'Token tFUNC (Function with fixed argument count)'); + if FFormat = sfExcel2 then begin + numBytes := 1; + b := FBuffer[FBufferIndex]; + s := Format('Index of function (%s)', [SheetFuncName(b)]); + ShowInRow(FCurrRow, FBufferIndex, numBytes, IntToStr(b), s); + end else begin + numBytes := 2; + Move(FBuffer[FBufferIndex], w, numBytes); + w := WordLEToN(w); + s := Format('Index of function (%s)', [SheetFuncName(w)]); + ShowInRow(FCurrRow, FBufferIndex, numBytes, IntToStr(w), s); + end; + end; + $22, $42, $62: + begin + ShowInRow(FCurrRow, FBufferIndex, numBytes, Format('$%.2x', [token]), + 'Token tFUNCVAR (Function with variable argument count)'); + numBytes := 1; + b := FBuffer[FBufferIndex]; + ShowInRow(FCurrRow, FBufferIndex, numBytes, IntToStr(b), + 'Number of arguments'); + if FFormat = sfExcel2 then begin + numBytes := 1; + s := Format('Index of built-in function (%s)', [SheetFuncName(b)]); + ShowInRow(FCurrRow, FBufferIndex, numBytes, IntToStr(b), s); + end else begin + numBytes := 2; + Move(FBuffer[FBufferIndex], w, numbytes); + w := WordLEToN(w); + s := Format('Index of built-in function (%s)', [SheetFuncName(w)]); + ShowInRow(FCurrRow, FBufferIndex, numBytes, IntToStr(w), s); + end; + end; + $23, $43, $63: + begin + ShowInRow(FCurrRow, FBufferIndex, numBytes, Format('$%.2x', [token]), + 'Token tNAME'); + numBytes := 2; + Move(FBuffer[FBufferIndex], w, numBytes); + case FFormat of + sfExcel2: s := 'DEFINEDNAME or EXTERNALNAME record'; + sfExcel5: s := 'DEFINEDNAME record in Global Link Table'; + sfExcel8: s := 'DEFINEDNAME record in Link Table'; + end; + ShowInRow(FCurrRow, FBufferIndex, numBytes, IntToStr(WordLEToN(w)), + '1-based index to '+s); + case FFormat of + sfExcel2: numBytes := 5; + sfExcel5: numBytes := 12; + sfExcel8: numBytes := 2; + end; + ShowInRow(FCurrRow, FBufferIndex, numBytes, '', '(not used)'); + end; + $24, $44, $64: + begin + case token of + $24: s := 'reference'; + $44: s := 'value'; + $64: s := 'array'; + end; + ShowInRow(FCurrRow, FBufferIndex, numBytes, Format('$%.2x', [token]), + Format('Token tREF (Cell %s)', [s])); + numBytes := 2; + Move(FBuffer[FBufferIndex], w, numBytes); // row --> w + r := WordLEToN(w); + if FFormat = sfExcel8 then begin + numBytes := 2; + Move(FBuffer[FBufferIndex+2], w, numBytes); // column --w1 + c := WordLEToN(w); + if FCurrRow = Row then begin + FDetails.Add('RowIndex information:'#13); + FDetails.Add(Format('RowIndex = %d (%s)', [r, ABS_REL[c and $4000 <> 0]])); + end; + //s := Format('$%.4x (%d, %s)', [r, r, ABS_REL[c and $4000 <> 0]]); + s := Format('%d ($%.4x)', [r, r]); + ShowInRow(FCurrRow, FBufferIndex, numbytes, s, 'Row index'); + if FCurrRow = Row then begin + FDetails.Add('ColIndex information:'#13); + FDetails.Add(Format('Bits 0-13: ColIndex = %d (%s)', [c and $3FFF, ABS_REL[c and $8000 <> 0]])); + if c and $4000 = 0 + then FDetails.Add('Bit 14=0: absolute row index') + else FDetails.Add('Bit 14=1: relative row index'); + if c and $8000 = 0 + then FDetails.Add('Bit 15=0: absolute column index') + else FDetails.Add('Bit 15=1: relative column index'); + end; +// s := Format('$%.4x (%d, %s)', [c, c AND $3FFF, ABS_REL[c and $8000 <> 0]]); + s := Format('%d ($%.4x)', [c, c]); + ShowInRow(FCurrRow, FBufferIndex, numBytes, s, 'Column index'); + end else begin + numbytes := 1; + Move(FBuffer[FBufferIndex+2], b, numBytes); + c := b; + if FCurrRow = Row then begin + FDetails.Add('RowIndex information:'#13); + FDetails.Add(Format('Bits 0-13: RowIndex = %d (%s)', [r and $3FFF, ABS_REL[r and $4000 <> 0]])); + if r and $4000 = 0 + then FDetails.Add('Bit 14=0: absolute row index') + else FDetails.Add('Bit 14=1: relative row index'); + if r and $8000 = 0 + then FDetails.Add('Bit 15=0: absolute column index') + else FDetails.Add('Bit 15=1: relative column index'); + end; + //s := Format('$%.4x (%d, %s)', [r, r and $3FFF, ABS_REL[r and $4000 <> 0]]); + s := Format('%d ($%.4x)', [r, r]); + ShowInRow(FCurrRow, FBufferIndex, 2, s, 'Row index'); + if FCurrRow = Row then begin + FDetails.Add('ColIndex information:'#13); + FDetails.Add(Format('ColIndex = %d (%s)', [c, ABS_REL[r and $8000 <> 0]])); + end; + //s := Format('$%.2x (%d, %s)', [c, c, ABS_REL[r and $8000 <> 0]]); + s := Format('%d ($%.4x)', [c, c]); + ShowInRow(FCurrRow, FBufferIndex, numBytes, s, 'Column index'); + end; + end; + $25, $45, $65: + begin + case token of + $25: s := 'reference'; + $45: s := 'value'; + $65: s := 'array'; + end; + ShowInRow(FCurrRow, FBufferIndex, numBytes, Format('$%.2x', [token]), + Format('Token tAREA (Cell range %s)', [s])); + numBytes := 2; + Move(FBuffer[FBufferIndex], w, numBytes); + r := WordLEToN(w); + Move(FBuffer[FBufferIndex+2], w, numBytes); + r2 := WordLEToN(w); + if FFormat = sfExcel8 then begin + numBytes := 2; + Move(FBuffer[FBufferIndex+2], w, numBytes); // column --w1 + c := WordLEToN(w); + if FCurrRow = Row then begin + FDetails.Add('RowIndex information:'#13); + FDetails.Add(Format('RowIndex = %d (%s)', [r, ABS_REL[c and $4000 <> 0]])); + end; + //s := Format('$%.4x (%d, %s)', [r, r, ABS_REL[c and $4000 <> 0]]); + s := Format('%d ($%.4x)', [r, r]); + ShowInRow(FCurrRow, FBufferIndex, numbytes, s, 'Row index'); + if FCurrRow = Row then begin + FDetails.Add('ColIndex information:'#13); + FDetails.Add(Format('Bits 0-13: ColIndex = %d (%s)', [c and $3FFF, ABS_REL[c and $8000 <> 0]])); + if c and $4000 = 0 + then FDetails.Add('Bit 14=0: absolute row index') + else FDetails.Add('Bit 14=1: relative row index'); + if c and $8000 = 0 + then FDetails.Add('Bit 15=0: absolute column index') + else FDetails.Add('Bit 15=1: relative column index'); + end; + // s := Format('$%.4x (%d, %s)', [c, c AND $3FFF, ABS_REL[c and $8000 <> 0]]); + s := Format('%d ($%.4x)', [c, c]); + ShowInRow(FCurrRow, FBufferIndex, numBytes, s, 'Column index'); + end else begin + numbytes := 1; + Move(FBuffer[FBufferIndex+2], b, numBytes); + c := b; + if FCurrRow = Row then begin + FDetails.Add('RowIndex information:'#13); + FDetails.Add(Format('Bits 0-13: RowIndex = %d (%s)', [r and $3FFF, ABS_REL[r and $4000 <> 0]])); + if r and $4000 = 0 + then FDetails.Add('Bit 14=0: absolute row index') + else FDetails.Add('Bit 14=1: relative row index'); + if r and $8000 = 0 + then FDetails.Add('Bit 15=0: absolute column index') + else FDetails.Add('Bit 15=1: relative column index'); + end; + //s := Format('$%.4x (%d, %s)', [r, r and $3FFF, ABS_REL[r and $4000 <> 0]]); + s := Format('%d ($%.4x)', [r, r]); + ShowInRow(FCurrRow, FBufferIndex, 2, s, 'Row index'); + if FCurrRow = Row then begin + FDetails.Add('ColIndex information:'#13); + FDetails.Add(Format('ColIndex = %d (%s)', [c, ABS_REL[r and $8000 <> 0]])); + end; + //s := Format('$%.2x (%d, %s)', [c, c, ABS_REL[r and $8000 <> 0]]); + s := Format('%d ($%.4x)', [c, c]); + ShowInRow(FCurrRow, FBufferIndex, numBytes, s, 'Column index'); + end; + { + if FFormat = sfExcel8 then begin + numBytes := 2; + Move(FBuffer[FBufferIndex+4], w, numBytes); + c := WordLEToN(w); + Move(FBuffer[FBufferIndex+6], w, numBytes); + c2 := WordLEToN(w); + s := Format('$%.4x (%d, %s)', [r, r, ABS_REL[c and $4000 <> 0]]); + ShowInRow(FCurrRow, FBufferIndex, 2, s, 'Index to first row'); + s := Format('$%.4x (%d, %s)', [r2, r2, ABS_REL[c2 and $4000 <> 0]]); + ShowInRow(FCurrRow, FBufferIndex, 2, s, 'Index to last row'); + s := Format('$%.4x (%d, %s)', [c, c and $3FFF, ABS_REL[c and $8000 <> 0]]); + ShowInRow(FCurrRow, FBufferIndex, 2, s, 'Index to first column'); + s := Format('$%.4x (%d, %s)', [c2, c2 and $3FFF, ABS_REL[c2 and $8000 <> 0]]); + ShowInRow(FCurrRow, FBufferIndex, 2, s, 'Index to last columns'); + end else begin + c := FBuffer[FBufferIndex+4]; + c2 := FBuffer[FBufferIndex+5]; + s := Format('$%.4x (%d, %s)', [r, r and $3FFF, ABS_REL[r and $4000 <> 0]]); + ShowInRow(FCurrRow, FBufferIndex, 2, s, 'Index to first row'); + s := Format('$%.4x (%d, %s)', [r2, r2 and $3FFF, ABS_REL[r2 and $4000 <> 0]]); + ShowInRow(FCurrRow, FBufferIndex, 2, s, 'Index to last row'); + s := Format('$%.2x (%d, %s)', [c, c, ABS_REL[r and $8000 <> 0]]); + ShowInRow(FCurrRow, FBufferIndex, 1, s, 'Index to first column'); + s := Format('$%.2x (%d, %s)', [c2, c2, ABS_REL[r2 and $8000 <> 0]]); + ShowInRow(FCurrRow, FBufferIndex, 1, s, 'Index to last column'); + end; + } + end; + else ShowInRow(FCurrRow, FBufferIndex, numBytes, Format('$%.2x', [token]), + '(unknown)'); + end; + end; + + RowCount := FCurrRow; + EndUpdate(true); + +end; + + +procedure TBIFFGrid.ShowHeader; +var + numbytes: Integer; + s: String; +begin + RowCount := FixedRows + 1; + ExtractString(FBufferIndex, IfThen(FFormat=sfExcel8, 2, 1), FFormat=sfExcel8, + s, numbytes); + ShowInRow(FCurrRow, FBufferIndex, numbytes, s, + 'Page header string' + IfThen(FFormat = sfExcel8, + ' (Unicode string, 16-bit string length)', + ' (byte string, 8-bit string length)' + )); +end; + + +procedure TBIFFGrid.ShowHideObj; +var + numBytes: word; + w: Word; +begin + RowCount := FixedRows + 1; + numBytes := 2; + Move(FBuffer[FBufferIndex], w, numBytes); + w := WordLEToN(w); + if Row = FCurrRow then begin + FDetails.Add('Viewing mode for objects:'#13); + case w of + 0: FDetails.Add('0 = Show all objects'); + 1: FDetails.Add('1 = Show placeholders'); + 2: FDetails.Add('2 = Do not show objects'); + end; + end; + ShowInRow(FCurrRow, FBufferIndex, numBytes, IntToStr(w), + 'Viewing mode for objects'); +end; + + +procedure TBIFFGrid.ShowInRow(var ARow: Integer; var AOffs: LongWord; + ASize: Word; AValue,ADescr: String); +begin + Cells[0, ARow] := IntToStr(AOffs); + Cells[1, ARow] := IntToStr(ASize); + Cells[2, ARow] := AValue; + Cells[3, ARow] := ADescr; + inc(ARow); + inc(AOffs, ASize); +end; + + +procedure TBIFFGrid.ShowInteger; +var + numBytes: Integer; + w: Word; + b: Byte; +begin + // BIFF2 only + if (FFormat <> sfExcel2) then + exit; + + RowCount := FixedRows + 5; + ShowRowColData(FBufferIndex); + + numBytes := 1; + b := FBuffer[FBufferIndex]; + ShowInRow(FCurrRow, FBufferIndex, numBytes, Format('%d ($%.2x)', [b,b]), + 'Cell protection and XF index'); + b := FBuffer[FBufferIndex]; + ShowInRow(FCurrRow, FBufferIndex, numBytes, Format('%d ($%.2x)', [b,b]), + 'Indexes of format and font records'); + b := FBuffer[FBufferIndex]; + ShowInRow(FCurrRow, FBufferIndex, numbytes, Format('%d ($%.2x)', [b,b]), + 'Cell style'); + + numBytes := 2; + Move(FBuffer[FBufferIndex], w, numBytes); + ShowInRow(FCurrRow, FBufferIndex, numbytes, IntToStr(WordLEToN(w)), + 'Unsigned 16-bit integer cell value'); +end; + + +procedure TBIFFGrid.ShowInterfaceEnd; +begin + RowCount := FixedRows + 1; + ShowInRow(FCurrRow, FBufferIndex, 0, '', 'End of Globals Substream'); +end; + + +procedure TBIFFGrid.ShowInterfaceHdr; +var + numbytes: Integer; + w: Word; +begin + RowCount := FixedRows + 1; + numbytes := 2; + Move(FBuffer[FBufferIndex], w, numbytes); + w := WordLEToN(w); + if Row = FCurrRow then begin + FDetails.Add('Code page of user interface:'#13); + FDetails.Add(Format('$%.4x = %s', [w, CodePageName(w)])); + end; + ShowInRow(FCurrRow, FBufferIndex, numbytes, Format('%d ($%.4x)', [w, w]), + 'Begin of Globals Substream, code page of user interface'); +end; + + +procedure TBIFFGrid.ShowIteration; +var + numBytes: Integer; + w: word; +begin + RowCount := FixedRows + 1; + numBytes := 2; + Move(FBuffer[FBufferIndex], w, numBytes); + w := WordLEToN(w); + if Row = FCurrRow then begin + FDetails.Add('Iterations:'#13); + case w of + 0: FDetails.Add('0 = Iterations off'); + 1: FDetails.Add('1 = Iterations on'); + end; + end; + ShowInRow(FCurrRow, FBufferIndex, numBytes, IntToStr(w), 'Iterations on/off'); +end; + + +procedure TBIFFGrid.ShowLabelCell; +var + numBytes: Integer; + b: Byte; + w: Word; + s: String; +begin + RowCount := IfThen(FFormat = sfExcel2, FixedRows + 6, FixedRows + 4); + ShowRowColData(FBufferIndex); + if (FFormat = sfExcel2) then begin + numBytes := 1; + Move(FBuffer[FBufferIndex], b, numBytes); + ShowInRow(FCurrRow, FBufferIndex, numBytes, Format('%d ($%.2x)', [b,b]), + 'Cell protection and XF index'); + + numBytes := 1; + Move(FBuffer[FBufferIndex], b, numBytes); + ShowInRow(FCurrRow, FBufferIndex, numBytes, Format('%d ($%.2x)', [b,b]), + 'Indexes of format and font records'); + + numBytes := 1; + Move(FBuffer[FBufferIndex], b, numBytes); + ShowInRow(FCurrRow, FBufferIndex, numbytes, Format('%d ($%.2x)', [b,b]), + 'Cell style'); + end else begin + numBytes := 2; + Move(FBuffer[FBufferIndex], w, numBytes); + w := WordLEToN(w); + ShowInRow(FCurrRow, FBufferIndex, numBytes, Format('%d ($%.4x)', [w, w]), + 'Index of XF record'); + end; + + b := IfThen(FFormat=sfExcel2, 1, 2); + ExtractString(FBufferIndex, b, (FFormat = sfExcel8), s, numBytes); + ShowInRow(FCurrRow, FBufferIndex, numBytes, s, + Format('%s string, %d-bit string length', [GetStringType, b*8])); +end; + + +procedure TBIFFGrid.ShowLabelSSTCell; +var + numBytes: Integer; + w: Word; + dw: DWord; +begin + RowCount := FixedRows + 4; + ShowRowColData(FBufferIndex); + + numBytes := 2; + Move(FBuffer[FBufferIndex], w, numBytes); + w := WordLEToN(w); + ShowInRow(FCurrRow, FBufferIndex, numBytes, Format('%d ($%.4x)', [w, w]), + 'Index of XF record'); + + numBytes := 4; + Move(FBuffer[FBufferIndex], dw, numBytes); + dw := DWordLEToN(dw); + ShowInRow(FCurrRow, FBufferIndex, numBytes, IntToStr(dw), + 'Index into SST record (shared string table)'); +end; + + +procedure TBIFFGrid.ShowLeftMargin; +var + numBytes: Integer; + dbl: Double; +begin + RowCount := FixedRows + 1; + numBytes := 8; + Move(FBuffer[FBufferIndex], dbl, numBytes); + ShowInRow(FCurrRow, FBufferIndex, numBytes, FloatToStr(dbl), + 'Left page margin in inches (IEEE 754 floating-point value, 64-bit double precision)'); +end; + + +procedure TBIFFGrid.ShowMMS; +var + w: Word; + numbytes: Integer; +begin + RowCount := FixedRows + 1; + numBytes := 2; + Move(FBuffer[FBufferIndex], w, numbytes); + ShowInRow(FCurrRow, FBufferIndex, numbytes, IntToStr(w), 'Reserved, MUST be ignored'); +end; + + +procedure TBIFFGrid.ShowNumberCell; +var + numBytes: Integer; + b: Byte = 0; + w: Word = 0; + dbl: Double; +begin + RowCount := IfThen(FFormat = sfExcel2, FixedRows + 6, FixedRows + 4); + // Offset 0: Row & Offsset 2: Column + ShowRowColData(FBufferIndex); + // Offset 4: Cell attributes (BIFF2) or XF ecord index (> BIFF2) + if FFormat = sfExcel2 then begin + numBytes := 1; + Move(FBuffer[FBufferIndex], b, numBytes); + ShowInRow(FCurrRow, FBufferIndex, numBytes, Format('%d ($%.2x)', [b,b]), + 'Cell protection and XF index'); + + numBytes := 1; + Move(FBuffer[FBufferIndex], b, numBytes); + ShowInRow(FCurrRow, FBufferIndex, numBytes, Format('%d ($%.2x)', [b,b]), + 'Indexes of format and font records'); + + numBytes := 1; + Move(FBuffer[FBufferIndex], b, numBytes); + ShowInRow(FCurrRow, FBufferIndex, numbytes, Format('%d ($%.2x)', [b,b]), + 'Cell style'); + end else begin + numBytes := 2; + Move(FBuffer[FBufferIndex], w, numBytes); + w := WordLEToN(w); + ShowInRow(FCurrROw, FBufferIndex, numBytes, Format('%d ($%.4x)', [w, w]), + 'Index of XF record'); + end; + // Offset 6: Double value + numBytes := 8; + Move(FBuffer[FBufferIndex], dbl, numBytes); + ShowInRow(FCurrRow, FBufferIndex, numBytes, FloatToStr(dbl), + 'IEEE 764 floating-point value'); +end; + + +procedure TBIFFGrid.ShowPalette; +var + numBytes: Integer; + w: Word; + dw: DWord; + npal: Integer; + i: Integer; + s: String; +begin + numBytes := 2; + Move(FBuffer[FBufferIndex], w, numBytes); + npal := WordLEToN(w); + + RowCount := FixedRows + 1 + npal; + + ShowInRow(FCurrRow, FBufferIndex, numBytes, IntToStr(npal), + 'Number of palette colors'); + + for i := 0 to npal-1 do begin + numbytes := 4; + Move(FBuffer[FBufferIndex], dw, numBytes); + dw := DWordLEToN(dw); + s := Format('Palette color, index #%d ($%.2x)',[i, i]); + case i of + $00..$07: ; + $08..$3F: s := s + ', user-defined palette'; + $40 : s := s + ', system window text color for border lines'; + $41 : s := s + ', system window background color for pattern background'; + $43 : s := s + ', system face color (dialogue background color)'; + $4D : s := s + ', system window text colour for chart border lines'; + $4E : s := s + ', system window background color for chart areas'; + $4F : s := s + ', automatic color for chart border lines (seems to be always Black)'; + $50 : s := s + ', system tool tip background color (used in note objects)'; + $51 : s := s + ', system tool tip text color (used in note objects)'; + $7FFF : s := s + ', system window text color for fonts'; + end; + ShowInRow(FCurrRow, FBufferIndex, numBytes, Format('$%.8x', [dw]), s); + end; +end; + + +procedure TBIFFGrid.ShowPassword; +var + numBytes: Integer; + w: Word; +begin + RowCount := FixedRows + 1; + numBytes := 2; + Move(FBuffer[FBufferIndex], w, numBytes); + w := WordLEToN(w); + if Row = FCurrRow then begin + FDetails.Add('Password verifier for sheet or workbook:'#13); + if w = 0 + then FDetails.Add('0 = No password') + else FDetails.Add(Format('$%.4x = Password verifier', [w])); + end; + ShowInRow(FCurrRow, FBufferIndex, numBytes, IntToStr(w), + 'Password verifier for sheet or workbook'); +end; + + +procedure TBIFFGrid.ShowPrecision; +var + numbytes: Integer; + w: Word; +begin + RowCount := FixedRows + 1; + numbytes := 2; + Move(FBuffer[FBufferIndex], w, numbytes); + w := WordLEToN(w); + if Row = FCurrRow then begin + FDetails.Add('Precision-as-displayed mode:'#13); + if w = 0 + then FDetails.Add('0 = Precision-as-displayed mode selected') + else FDetails.Add('1 = Precision-as-displayed mode NOT selected'); + end; + ShowInRow(FCurrRow, FBufferIndex, numBytes, IntToStr(w), + 'Precision-as-displayed mode'); +end; + + +procedure TBIFFGrid.ShowPrintGridLines; +var + numBytes: Integer; + w: Word; +begin + RowCount := FixedRows + 1; + numBytes := 2; + Move(FBuffer[FBufferIndex], w, numBytes); + w := WordLEToN(w); + if Row = FCurrRow then begin + FDetails.Add('Print sheet grid lines:'#13); + if w = 0 + then FDetails.Add('0 = Do not print sheet grid lines') + else FDetails.Add('1 = Print sheet grid lines'); + end; + ShowInRow(FCurrRow, FBufferIndex, numBytes, IntToStr(w), + 'Print sheet grid lines'); +end; + + +procedure TBIFFGrid.ShowPrintHeaders; +var + numBytes: Integer; + w: Word; +begin + RowCount := FixedRows + 1; + numBytes := 2; + Move(FBuffer[FBufferIndex], w, numBytes); + w := WordLEToN(w); + if Row = FCurrRow then begin + FDetails.Add('Print row/column headers'); + FDetails.Add('(the area with row numbers and column letters):'#13); + if w = 0 + then FDetails.Add('0 = Do not print row/column headers') + else FDetails.Add('1 = Print row/column headers'); + end; + ShowInRow(FCurrRow, FBufferIndex, numBytes, IntToStr(w), + 'Print row/column headers'); +end; + + +procedure TBIFFGrid.ShowProt4Rev; +var + numBytes: Integer; + w: Word; +begin + RowCount := FixedRows + 1; + numBytes := 2; + Move(FBuffer[FBufferIndex], w, numBytes); + w := WordLEToN(w); + if Row = FCurrRow then begin + FDetails.Add('Removal of the shared workbook''s revision logs:'#13); + if w = 0 + then FDetails.Add('0 = Removal of the shared workbook''s revision logs is allowed.') + else FDetails.Add('1 = Removal of the shared workbook''s revision logs is NOT allowed.'); + end; + ShowInRow(FCurrRow, FBufferIndex, numBytes, IntToStr(w), + 'Removal of the shared workbook''s revision logs'); +end; + + +procedure TBIFFGrid.ShowProt4RevPass; +var + numBytes: Integer; + w: Word; +begin + RowCount := FixedRows + 1; + numBytes := 2; + Move(FBuffer[FBufferIndex], w, numBytes); + w := WordLEToN(w); + if Row = FCurrRow then begin + FDetails.Add('Password verifier needed to change the PROT4REV record:'#13); + if w = 0 + then FDetails.Add('0 = No password.') + else FDetails.Add(Format('$%.04x = Password verifier.', [w])); + end; + ShowInRow(FCurrRow, FBufferIndex, numBytes, Format('%d ($%.4x)', [w,w]), + 'Password verifier needed to change the PROT4REV record'); +end; + + +procedure TBIFFGrid.ShowProtect; +var + numBytes: Integer; + w: Word; +begin + RowCount := FixedRows + 1; + numBytes := 2; + Move(FBuffer[FBufferIndex], w, numBytes); + w := WordLEToN(w); + if Row = FCurrRow then begin + FDetails.Add('Protection state of the workbook:'#13); + if w = 0 + then FDetails.Add('0 = Workbook is NOT protected.') + else FDetails.Add('1 = Workbook is protected.'); + end; + ShowInRow(FCurrRow, FBufferIndex, numBytes, Format('$%.4x', [w]), + 'Protection state of the workbook'); +end; + + +procedure TBIFFGrid.ShowRecalc; +var + numBytes: Integer; + w: Word; +begin + RowCount := FixedRows + 1; + numBytes := 2; + Move(FBuffer[FBufferIndex], w, numBytes); + w := WordLEToN(w); + if Row = FCurrRow then begin + FDetails.Add('"Recalculate before save" option:'#13); + if w = 0 + then FDetails.Add('0 = Do not recalculate') + else FDetails.Add('1 = Recalculate before saving the document'); + end; + ShowInRow(FCurrRow, FBufferIndex, numBytes, IntToStr(w), + 'Recalculate before saving'); +end; + + +procedure TBIFFGrid.ShowRefMode; +var + numBytes: Integer; + w: Word; +begin + RowCount := FixedRows + 1; + numBytes := 2; + Move(FBuffer[FbufferIndex], w, numbytes); + w := WordLEToN(w); + if Row = FCurrRow then begin + FDetails.Add('Cell reference mode:'#13); + if w = 0 + then FDetails.Add('0 = RC mode (i.e. cell address shown as "R(1)C(-1)"') + else FDetails.Add('1 = A1 mode (i.e. cell address shown as "B1")'); + end; + ShowInRow(FCurrRow, FBufferIndex, numbytes, IntToStr(w), + 'Cell reference mode'); +end; + + +procedure TBIFFGrid.ShowRefreshAll; +var + numbytes: Integer; + w: Word; +begin + RowCount := FixedRows + 1; + numbytes := 2; + Move(FBuffer[FBufferIndex], w, numbytes); + w := WordLEToN(w); + if Row = FCurrRow then begin + FDetails.Add('RefreshAll record:'#13); + if w = 0 + then FDetails.Add('0 = Do not force refresh of external data ranges, PivotTables and XML maps on workbook load.') + else FDetails.Add('1 = Force refresh of external data ranges, PivotTables and XML maps on workbook load.'); + end; + ShowInRow(FCurrRow, FBufferIndex, numbytes, Format('%d ($%.4x)', [w, w]), + 'Force refresh of external data ranges, Pivot tables and XML maps on workbook load'); +end; + + +procedure TBIFFGrid.ShowRightMargin; +var + numBytes: Integer; + dbl: Double; +begin + RowCount := FixedRows + 1; + numBytes := 8; + Move(FBuffer[FBufferIndex], dbl, numBytes); + ShowInRow(FCurrRow, FBufferIndex, numBytes, FloatToStr(dbl), + 'Right page margin in inches (IEEE 754 floating-point value, 64-bit double precision)'); +end; + + +procedure TBIFFGrid.ShowRK; +var + numBytes: Integer; + w: Word; + dw: DWord; + encint: Integer; + encdbl: QWord; + dbl: Double absolute encdbl; + s: String; +begin + RowCount := FixedRows + 4; + + ShowRowColData(FBufferIndex); + + numBytes := 2; + Move(FBuffer[FBufferIndex], w, numBytes); + ShowInRow(FCurrRow, FBufferIndex, numBytes, IntToStr(WordLEToN(w)), + 'Index to XF record'); + + numBytes := 4; + Move(FBuffer[FBufferIndex], dw, numBytes); + dw := DWordLEToN(dw); + + if dw and $00000002 = 0 then begin + encdbl := (QWord(dw) and QWord($FFFFFFFFFFFFFFFC)) shl 32; + if dw and $00000001 = 1 then + s := Format('%.2f', [dbl*0.01]) + else + s := Format('%.0f', [dbl]); + end + else begin + s := Format('$%.16x', [-59000000]); + encint := ((dw and $FFFFFFFC) shr 2) or (dw and $C0000000); + // "arithmetic shift" = replace left-most bits by original bits + if dw and $00000001 = 1 then + s := FloatToStr(encint*0.01) + else + s := IntToStr(encint); + end; + ShowInRow(FCurrRow, FBufferIndex, numBytes, + Format('$%.8x', [dw]), + Format('RK value (Bit 0=Unchanged/Encoded value multiplied by 100, Bit 1=float/signed int, '+ + 'Bits 2-31=encoded value (here: %s)', [s]) + ); +end; + + +procedure TBIFFGrid.ShowRow; +var + numBytes: Integer; + dw: DWord; + w: Word; + b: Byte; +begin + RowCount := FixedRows + IfThen(FFormat = sfExcel2, 10, 7); + + numbytes := 2; + Move(FBuffer[FBufferIndex], w, numBytes); + ShowInRow(FCurrRow, FBufferIndex, numBytes, IntToStr(WordLEToN(w)), + 'Index of this row'); + + numBytes := 2; + Move(FBuffer[FBufferIndex], w, numBytes); + ShowInRow(FCurrRow, FBufferIndex, numBytes, IntToStr(WordLEToN(w)), + 'Index to column of the first cell which is described by a cell record'); + + numBytes := 2; + Move(FBuffer[FBufferIndex], w, numbytes); + ShowInRow(FCurrRow, FBufferIndex, numBytes, IntToStr(WordLEToN(w)), + 'Index to column of the last cell which is described by a cell record, increased by 1'); + + numBytes := 2; + Move(FBuffer[FBufferIndex], w, numbytes); + ShowInRow(FCurrRow, FBufferIndex, numBytes, Format('$%.4x', [WordLEToN(w)]), + 'Bits 14-0: Height of row in twips (1/20 pt), Bit 15: Row has default height'); + + numBytes := 2; + Move(FBuffer[FBufferIndex], w, numbytes); + ShowInRow(FCurrRow, FBufferIndex, numBytes, '', '(not used)'); + + if FFormat = sfExcel2 then begin + numBytes := 1; + b := FBuffer[FBufferIndex]; + ShowInRow(FCurrRow, FBufferIndex, numBytes, IntToStr(b), + '0=No defaults written, 1=Default row attribute field and XF index occur below'); + + numBytes := 2; + Move(FBuffer[FBufferIndex], w, numbytes); + ShowInRow(FCurrRow, FBufferIndex, numBytes, IntToStr(WordLEToN(w)), + 'Relative offset to calculate stream position of the first cell record for this row'); + + if b = 1 then begin + numBytes := 1; + b := FBuffer[FBufferIndex]; + ShowInRow(FCurrRow, FBufferIndex, numBytes, IntToStr(b), + 'Cell protection and XF index'); + + numBytes := 1; + b := FBuffer[FBufferIndex]; + ShowInRow(FCurrRow, FBufferIndex, numBytes, IntToStr(b), + 'Indexes to FORMAT and FONT records'); + + numBytes := 1; + b := FBuffer[FBufferIndex]; + ShowInRow(FCurrRow, FBufferIndex, numBytes, IntToStr(b), + 'Cell style'); + end; + end + else begin + numBytes := 2; + Move(FBuffer[FBufferIndex], w, numbytes); + ShowInRow(FCurrRow, FBufferIndex, numBytes, '', + 'In BIFF5-BIFF8 this field is not used anymore, but the DBCELL record instead.'); + + numBytes := 4; + Move(FBuffer[FBufferIndex], dw, numbytes); + dw := DWordLEToN(dw); + if Row = FCurrRow then begin + FDetails.Add('Option flags and default row formatting:'#13); + FDetails.Add(Format('Bits 0-2 = %d: Outline level of the row', [dw and $00000007])); + if dw and $00000010 = 0 + then FDetails.Add('Bit 4 = 0: Outline group does not start or end here and is not collapsed') + else FDetails.Add('Bit 4 = 1: Outline group starts or ends here and is collapsed'); + if dw and $00000020 = 0 + then FDetails.Add('Bit 5 = 0: Row is NOT hidden') + else FDetails.Add('Bit 5 = 1: Row is hidden'); + if dw and $00000040 = 0 + then FDetails.Add('Bit 6 = 0: Row height and default font height do match.') + else FDetails.Add('Bit 6 = 1: Row height and default font height do NOT match.'); + if dw and $00000080 = 0 + then FDetails.Add('Bit 7 = 0: Row does NOT have explicit default format.') + else FDetails.Add('Bit 7 = 1: Row has explicit default format.'); + FDetails.Add('Bit 8 = 1: Is always 1'); + FDetails.Add(Format('Bits 16-27 = %d: Index to default XF record', [(dw and $0FFF0000) shr 16])); + if dw and $10000000 = 0 + then FDetails.Add('Bit 28 = 0: No additional space above the row.') + else FDetails.Add('Bit 28 = 1: Additional space above the row.'); + if dw and $20000000 = 0 + then FDetails.Add('Bit 29 = 0: No additional space below the row.') + else FDetails.Add('Bit 29 = 1: Additional space below the row.'); + if dw and $40000000 = 0 + then FDetails.Add('Bit 30 = 0: D0 NOT show phonetic text for all cells in the row.') + else FDetails.Add('Bit 30 = 1: Show phonetic text for all cells in the row.'); + end; + ShowInRow(FCurrRow, FBufferIndex, numBytes, Format('$%.8x', [dw]), + 'Option flags and default row formatting'); + end; +end; + +procedure TBIFFGrid.ShowRowColData(var ABufIndex: LongWord); +var + w: Word; + numBytes: Integer; +begin + // Row + numBytes := 2; + Move(FBuffer[ABufIndex], w, numBytes); + ShowInRow(FCurrRow, ABufIndex, numBytes, IntToStr(WordLEToN(w)), 'Index to row'); + // Column + numBytes := 2; + Move(FBuffer[ABufIndex], w, numBytes); + ShowInRow(FCurrRow, ABufIndex, numBytes, IntToStr(WordLEToN(w)), 'Index to column'); +end; + + +procedure TBIFFGrid.ShowSelection; +var + numBytes: Integer; + w: word; + b: Byte; + i, n: Integer; +begin + Move(FBuffer[FBufferIndex+7], w, 2); + n := WordLEToN(w); + + RowCount := FixedRows + 5 + n*4; + + numBytes := 1; + b := FBuffer[FBufferIndex]; + ShowInRow(FCurrRow, FBufferIndex, numBytes, IntToStr(b), 'Pane identifier (see PANE record)'); + + numBytes := 2; + Move(FBuffer[FBufferIndex], w, numBytes); + ShowInRow(FCurrRow, FBufferIndex, numBytes, IntToStr(WordLEToN(w)), + 'Index to row of the active cell'); + + Move(FBuffer[FBufferIndex], w, numBytes); + ShowInRow(FCurrRow, FBufferIndex, numBytes, IntToStr(WordLEToN(w)), + 'Index to column of the active cell'); + + Move(FBuffer[FBufferIndex], w, numBytes); + ShowInRow(FCurrRow, FBufferIndex, numBytes, IntToStr(WordLEToN(w)), + 'Index into the following cell range list to the entry that contains the active cell'); + + ShowInRow(FCurrRow, FBufferIndex, numBytes, IntToStr(n), + 'Number of following cell range addresses'); + + numbytes := 2; + for i:=1 to n do begin + Move(FBuffer[FBufferIndex], w, numBytes); + ShowInRow(FCurrRow, FBufferIndex, numBytes, IntToStr(WordLEToN(w)), 'Index to first row'); + Move(FBuffer[FBufferIndex], w, numBytes); + ShowInRow(FCurrRow, FBufferIndex, numBytes, IntToStr(WordLEToN(w)), 'Index to last row'); + numBytes := 1; + b := FBuffer[FBufferIndex]; + ShowInRow(FCurrRow, FBufferIndex, numBytes, IntToStr(b), 'Index to first column'); + b := FBuffer[FBufferIndex]; + ShowInRow(FCurrRow, FBufferIndex, numBytes, IntToStr(b), 'Index to last column'); + end; +end; + + +procedure TBIFFGrid.ShowSheet; +var + numBytes: Integer; + dw: DWord; + b: Byte; + s: String; +begin + RowCount := FixedRows + 4; + + numBytes := 4; + Move(FBuffer[FBufferIndex], dw, numBytes); + dw := DWordLEToN(dw); + ShowInRow(FCurrRow, FBufferIndex, numBytes, Format('%d ($%.8x)', [dw, dw]), + 'Absolute stream position of BOF record of sheet represented by this record.'); + + numBytes := 1; + b := FBuffer[FBufferIndex]; + ShowInRow(FCurrRow, FBufferIndex, numbytes, IntToStr(b), + 'Sheet state (0=visible, 1=hidden, 2="very" hidden)'); + + numBytes := 1; + b := FBuffer[FBufferIndex]; + ShowInRow(FCurrRow, FBufferIndex, numBytes, Format('$%.2x', [b]), + 'Sheet type ($00=worksheet, $02=Chart, $06=VB module)'); + + ExtractString(FBufferIndex, 1, (FFormat = sfExcel8), s, numBytes); + ShowInRow(FCurrRow, FBufferIndex, numBytes, s, IfThen(FFormat=sfExcel8, + 'Sheet name (unicode string, 8-bit string length)', + 'Sheet name (byte string, 8-bit string length)') + ); +end; + + +procedure TBIFFGrid.ShowSST; +var + numBytes: Integer; + s: String; + total1, total2: DWord; + i: Integer; +begin + numBytes := 4; + Move(FBuffer[FBufferIndex], total1, numBytes); + Move(FBuffer[FBufferIndex+4], total2, numBytes); + total1 := DWordLEToN(total1); + total2 := DWordLEToN(total2); + + RowCount := FixedRows + 2 + total2; + + ShowInRow(FCurrRow, FBufferIndex, numBytes, IntToStr(total1), + 'Total number of shared strings in the workbook'); + ShowInRow(FCurrRow, FBufferIndex, numBytes, IntToStr(total2), + 'Number of following strings'); + + for i:=1 to total2 do begin + ExtractString(FBufferIndex, 2, true, s, numBytes); + ShowInRow(FCurrRow, FBufferIndex, numBytes, s, Format('Shared string #%d', [i])); + end; +end; + + +procedure TBIFFGrid.ShowString; +var + numBytes: Integer; + s: String; +begin + RowCount := FixedRows + 1; + case FFormat of + sfExcel2: + begin + ExtractString(FBufferIndex, 1, false, s, numBytes); + ShowInRow(FCurrRow, FBufferIndex, numBytes, s, 'Byte string, 8-bit string length'); + end; + sfExcel5: + begin + ExtractString(FBufferIndex, 2, false, s, numBytes); + ShowInRow(FCurrRow, FBufferIndex, numBytes, s, 'Byte string, 16-bit string length'); + end; + sfExcel8: + begin + ExtractString(FBufferIndex, 2, true, s, numBytes); + ShowInRow(FCurrRow, FBufferIndex, numBytes, s, 'Unicode string, 16-bit string length'); + end; + end; +end; + + +procedure TBIFFGrid.ShowStyle; +var + numBytes: Integer; + b: Byte; + w: Word; + s: String; + isRowLevel: Boolean; + isColLevel: Boolean; +begin + numbytes := 2; + Move(FBuffer[FBufferIndex], w, numbytes); + w := WordLEToN(w); + if w and $8000 = 0 then + RowCount := FixedRows + 2 + else + RowCount := FixedRows + 3; + if Row = FCurrRow then begin + FDetails.Add('Style:'#13); + FDetails.Add(Format('Bits 0-11 = %d: Index to style XF record', [w and $0FFFF])); + if w and $8000 = 0 + then FDetails.Add('Bit 15 = 0: user-defined style') + else FDetails.Add('Bit 15 = 1: built-in style'); + end; + ShowInRow(FCurrRow, FBufferIndex, numbytes, Format('$%.4x', [w]), 'Style index and type'); + + if w and $8000 = 0 then begin + if FFormat = sfExcel8 then begin + ExtractString(FBufferIndex, 2, true, s, numBytes); + ShowInRow(FCurrRow, FBufferIndex, numBytes, s, 'Style name (Unicode string, 16-bit string length)'); + end else begin + ExtractString(FBufferIndex, 1, false, s, numBytes); + ShowInRow(FCurrRow, FBufferIndex, numbytes, s, 'Style name (Byte string, 8-bit string length)'); + end; + end else begin + numbytes := 1; + b := FBuffer[FBufferIndex]; + isRowLevel := (b = 1); + isColLevel := (b = 2); + if FCurrRow = Row then begin + FDetails.Add('Identifier for built-in cell style:'#13); + case b of + 0: FDetails.Add('0 = normal'); + 1: FDetails.Add('1 = RowLevel (see next field)'); + 2: FDetails.Add('2 = ColLevel (see next field)'); + 3: FDetails.Add('3 = Comma'); + 4: FDetails.Add('4 = Currency'); + 5: FDetails.Add('5 = Percent'); + 6: FDetails.Add('6 = Comma [0]'); + 7: FDetails.Add('7 = Currency [0]'); + 8: FDetails.Add('8 = Hyperlink'); + 9: FDetails.Add('9 = Followed hyperlink'); + end; + end; + ShowInRow(FCurrRow, FBufferIndex, numBytes, IntToStr(b), + 'Identifier for built-in cell style'); + + b := FBuffer[FBufferIndex]; + if FCurrRow = Row then begin + FDetails.Add('Level for RowLevel or ColLevel style (zero-based):'#13); + if b = $FF then + FDetails.Add('$FF = no RowLevel or ColLevel style') + else + if isRowLevel then + FDetails.Add('RowLevel = ' + IntToStr(b)) + else if isColLevel then + FDetails.Add('ColLevel = ' + IntToStr(b)); + end; + ShowInRow(FCurrRow, FBufferIndex, numbytes, IntToStr(b), + 'Level for RowLevel or ColLevel style (if available)'); + end; +end; + + +procedure TBIFFGrid.ShowStyleExt; +var + numBytes: Integer; + w: Word; + b: Byte; + bs: Byte; + s: String; +begin + RowCount := FixedRows + 11; + + numBytes := 2; + Move(FBuffer[FBufferIndex], w, numbytes); + ShowInRow(FCurrRow, FBufferIndex, numbytes, Format('$%.4x', [wordLEToN(w)]), + 'Future record type'); + Move(FBuffer[FBufferIndex], w, numbytes); + w := WordLEToN(w); + if Row = FCurrRow then begin + FDetails.Add('Attributes:'#13); + if w and $0001 = 0 + then FDetails.Add('Bit 0 = 0: The containing record does not specify a range of cells.') + else FDetails.Add('Bit 0 = 1: The containing record specifies a range of cells.'); + FDetails.Add('Bit 1: specifies wether to alert the user of possible problems '+ + 'when saving the file whithout having reckognized this record.'); + FDetails.Add('Bits 2-15: reserved (MUST be zero, MUST be ignored)'); + end; + ShowInRow(FCurrRow, FBufferIndex, numbytes, Format('$%.4x', [w]), + 'Attributes'); + numbytes := 8; + ShowInRow(FCurrRow, FBufferIndex, numbytes, '', 'Reserved'); + + numbytes := 1; + b := FBuffer[FBufferIndex]; + if Row = FCurrRow then begin + FDetails.Add('Flags:'#13); + if b and $01 = 0 + then FDetails.Add('Bit 0 = 0: no built-in style') + else FDetails.Add('Bit 0 = 1: built-in style'); + if b and $02 = 0 + then FDetails.Add('Bit 1 = 0: NOT hidden') + else FDetails.Add('Bit 1 = 1: hidden (i.e. is displayed in user interface)'); + FDetails.Add('Bit 2: specifies whether the built-in cell style was modified '+ + 'by the user and thus has a custom definition.'); + FDetails.Add('Bit 3-7: Reserved'); + end; + ShowInRow(FCurrRow, FBufferIndex, numBytes, Format('$%.2x', [b]), 'Flags'); + + numbytes := 1; + b := FBuffer[FBufferIndex]; + if Row = FCurrRow then begin + FDetails.Add('Category:'#13); + case b of + 0: FDetails.Add('Bits 0-7 = 0: Custom style'); + 1: FDetails.Add('Bits 0-7 = 1: Good, bad, neutral style'); + 2: FDetails.Add('Bits 0-7 = 2: Data model style'); + 3: FDetails.Add('Bits 0-7 = 3: Title and heading style'); + 4: FDetails.Add('Bits 0-7 = 4: Themed cell style'); + 5: FDetails.Add('Bits 0-7 = 5: Number format style'); + end; + end; + ShowInRow(FCurrRow, FBufferIndex, numBytes, Format('$%.2x', [b]), 'Category'); + + numbytes := 1; + b := FBuffer[FBufferIndex]; + if Row = FCurrRow then begin + FDetails.Add('Built-in style:'#13); + FDetails.Add('An unsigned integer that specifies the type of the built-in cell style.'); + end; + ShowInRow(FCurrRow, FBufferIndex, numBytes, Format('$%.2x', [b]), 'Built-in style'); + bs := b; + + numbytes := 1; + b := FBuffer[FBufferindex]; + if Row = FCurrRow then begin + FDetails.Add('Outline depth level:'#13); + FDetails.Add('An unsigned integer that specifies the depth level of row/column automatic outlining.'); + if (bs in [1, 2]) then + FDetails.Add(Format('Bits 0-7 = %d: Outline level is %d', [b, b+1])) + else + FDetails.Add(Format('Bits 0-7 = $%.2x: MUST be $FF, MUST be ignoried', [b])); + end; + ShowInRow(FCurrRow, FBufferIndex, numbytes, Format('$%.2x', [b]), 'Outline depth level'); + + ExtractString(FBufferIndex, 1, true, s, numBytes, true); + ShowInRow(FCurrRow, FBufferIndex, numBytes, s, 'Name of the style name to extend (Unicode string, 8-bit string length)'); + + numbytes := 2; + ShowInRow(FCurrRow, FBufferIndex, numbytes, '', 'XFProps (reserved)'); + + numbytes := 2; + Move(FBuffer[FBufferIndex], w, numbytes); + w := WordLEToN(w); + ShowInRow(FCurrRow, FBufferIndex, numBytes, IntToStr(w), 'Count of XFProp structures to follow in array'); + + +end; + + +procedure TBiffGrid.ShowTabID; +var + numbytes: Integer; + w: word; + i, n: Integer; +begin + numbytes := 2; + n := Length(FBuffer) div numbytes; + RowCount := FixedRows + n; + for i := 1 to n do begin + Move(FBuffer[FBufferIndex], w, numbytes); + w := WordLEToN(w); + ShowInRow(FCurrRow, FBufferIndex, numbytes, Format('%d ($%.4x)', [w, w]), + 'Unique sheet identifier'); + end; +end; + + +procedure TBIFFGrid.ShowTopMargin; +var + numBytes: Integer; + dbl: Double; +begin + RowCount := FixedRows + 1; + numBytes := 8; + Move(FBuffer[FBufferIndex], dbl, numBytes); + ShowInRow(FCurrRow, FBufferIndex, numBytes, FloatToStr(dbl), + 'Top page margin in inches (IEEE 754 floating-point value, 64-bit double precision)'); +end; + + +procedure TBIFFGrid.ShowWindow1; +var + numBytes: Word; + b: Byte; + w: word; +begin + RowCount := FixedRows + IfThen(FFormat < sfExcel5, 5, 9); + numBytes := 2; + Move(FBuffer[FBufferIndex], w, numBytes); + ShowInRow(FCurrRow, FBufferIndex, numbytes, IntToStr(WordLEToN(w)), + 'Horizontal position of the document window (in twips = 1/20 pt)'); + + Move(FBuffer[FBufferIndex], w, numbytes); + ShowInRow(FCurrRow, FBufferIndex, numbytes, IntToStr(WordLEToN(w)), + 'Vertical position of the document window (in twips = 1/20 pt)'); + + Move(FBuffer[FBufferIndex], w, numbytes); + ShowInRow(FCurrRow, FBufferIndex, numbytes, IntToStr(WordLEToN(w)), + 'Width of the document window (in twips = 1/20 pt)'); + + Move(FBuffer[FBufferIndex], w, numbytes); + ShowInRow(FCurrRow, FBufferIndex, numbytes, IntToStr(WordLEToN(w)), + 'Height of the document window (in twips = 1/20 pt)'); + + if FFormat < sfExcel5 then begin + numBytes := 1; + b := FBuffer[FBufferIndex]; + ShowInRow(FCurrRow, FBufferIndex, numbytes, IntToStr(WordLEToN(b)), + '0 = Window is visible; 1 = window is hidden'); + end else begin + numBytes := 2; + Move(FBuffer[FBufferIndex], w, numbytes); + w := WordLEToN(w); + if Row = FCurrRow then begin + FDetails.Add('Option flags:'); + if w and $0001 = 0 + then FDetails.Add('Bit $0001 = 0: Window is visible') + else FDetails.Add('Bit $0001 = 1: Window is hidden'); + if w and $0002 = 0 + then FDetails.Add('Bit $0002 = 0: Window is open') + else FDetails.Add('Bit $0002 = 1: Window is minimized'); + if w and $0008 = 0 + then FDetails.Add('Bit $0008 = 0: Horizontal scrollbar hidden') + else FDetails.Add('Bit $0008 = 1: Horizontal scrollbar visible'); + if w and $0010 = 0 + then FDetails.Add('Bit $0010 = 0: Vertical scrollbar hidden') + else FDetails.Add('Bit $0010 = 1: Vertical scrollbar visible'); + if w and $0020 = 0 + then FDetails.Add('Bit $0020 = 0: Worksheet tab bar hidden') + else FDetails.Add('Bit $0020 = 1: Worksheet tab bar visible'); + end; + ShowInRow(FCurrRow, FBufferIndex, numbytes, Format('%d ($%.4x)', [w, w]), + 'Option flags'); + + Move(FBuffer[FBufferIndex], w, numbytes); + ShowInRow(FCurrRow, FBufferIndex, numbytes, IntToStr(WordLEToN(w)), + 'Index to active (displayed) worksheet'); + + Move(FBuffer[FBufferIndex], w, numbytes); + ShowInRow(FCurrRow, FBufferIndex, numbytes, IntToStr(WordLEToN(w)), + 'Index of first visible tab in the worksheet tab bar'); + + Move(FBuffer[FBufferIndex], w, numbytes); + ShowInRow(FCurrRow, FBufferIndex, numbytes, IntToStr(WordLEToN(w)), + 'Number of selected worksheets (highlighted in the worksheet tab bar)'); + + Move(FBuffer[FBufferIndex], w, numbytes); + ShowInRow(FCurrRow, FBufferIndex, numbytes, IntToStr(WordLEToN(w)), + 'Width of worksheet tab bar (in 1/1000 of window width). '+ + 'The remaining space is used by the horizontal scrollbar.'); + end; +end; + + +procedure TBIFFGrid.ShowWindow2; +var + numBytes: Word; + b: Byte; + w: word; + dw : DWord; +begin + if FFormat = sfExcel2 then begin + numBytes := 1; + b := FBuffer[FBufferIndex]; + ShowInRow(FCurrRow, FBufferIndex, numbytes, IntToStr(b), + '0 = Show formula results; 1 = Show formulas'); + b := FBuffer[FBufferIndex]; + ShowInRow(FCurrRow, FBufferIndex, numbytes, IntToStr(b), + '0 = Do not show grid lines; 1 = Show grid lines'); + b := FBuffer[FBufferIndex]; + ShowInRow(FCurrRow, FBufferIndex, numbytes, IntToStr(b), + '0 = Do not show grid lines; 1 = Show grid lines'); + b := FBuffer[FBufferIndex]; + ShowInRow(FCurrRow, FBufferIndex, numbytes, IntToStr(b), + '0 = Do not show sheet headers; 1 = Show sheet headers'); + b := FBuffer[FBufferIndex]; + ShowInRow(FCurrRow, FBufferIndex, numbytes, IntToStr(b), + '0 = Panes are not frozen; 1 = Panes are frozen'); + b := FBuffer[FBufferIndex]; + ShowInRow(FCurrRow, FBufferIndex, numbytes, IntToStr(b), + '0 = Show zero values as empty cells; 1 = Show zero values'); + numBytes := 2; + Move(FBuffer[FBufferIndex], w, numbytes); + ShowInRow(FCurrRow, FBufferIndex, numbytes, IntToStr(WordLEToN(w)), + 'Index to first visible row'); + Move(FBuffer[FBufferIndex], w, numbytes); + ShowInRow(FCurrRow, FBufferIndex, numbytes, IntToStr(WordLEToN(w)), + 'Index to first visible column'); + numBytes := 1; + b := FBuffer[FBufferIndex]; + ShowInRow(FCurrRow, FBufferIndex, numbytes, IntToStr(b), + '0 = Use manual grid line colour (below); 1 = Use automatic grid line colour'); + numbytes := 4; + Move(FBuffer[FBufferIndex], dw, numbytes); + ShowInRow(FCurrRow, FBufferIndex, numbytes, Format('$%.8x', [DWordLEToN(dw)]), + 'Grid line RGB color'); + end else begin + RowCount := FixedRows + IfThen(FFormat = sfExcel5, 4, 8); + numbytes := 2; + Move(FBuffer[FBufferIndex], w, numbytes); + w := WordLEToN(w); + if Row = FCurrRow then begin + FDetails.Add('Option flags:'); + if w and $0001 = 0 + then FDetails.Add('Bit $0001 = 0: Show formula results') + else FDetails.Add('Bit $0001 = 1: Show formulas'); + if w and $0002 = 0 + then FDetails.Add('Bit $0002 = 0: Do not show grid lines') + else FDetails.Add('Bit $0002 = 1: Show grid lines'); + if w and $0004 = 0 + then FDetails.Add('Bit $0004 = 0: Do not show sheet headers') + else FDetails.Add('Bit $0004 = 1: Show sheet headers'); + if w and $0008 = 0 + then FDetails.Add('Bit $0008 = 0: Panes are not frozen') + else FDetails.Add('Bit $0008 = 1: Panes are frozen'); + if w and $0010 = 0 + then FDetails.Add('Bit $0010 = 0: Show zero values as empty cells') + else FDetails.Add('Bit $0010 = 1: Show zero values'); + if w and $0020 = 0 + then FDetails.Add('Bit $0020 = 0: Manual grid line color') + else FDetails.Add('Bit $0020 = 1: Automatic grid line color'); + if w and $0040 = 0 + then FDetails.Add('Bit $0040 = 0: Columns from left to right') + else FDetails.Add('Bit $0040 = 1: Columns from right to left'); + if w and $0080 = 0 + then FDetails.Add('Bit $0080 = 0: Do not show outline symbols') + else FDetails.Add('Bit $0080 = 1: Show outline symbols'); + if w and $0100 = 0 + then FDetails.Add('Bit $0100 = 0: Keep splits if pane freeze is removed') + else FDetails.Add('Bit $0100 = 1: Remove splits if pane freeze is removed'); + if w and $0200 = 0 + then FDetails.Add('Bit $0200 = 0: Sheet not selected') + else FDetails.Add('Bit $0200 = 1: Sheet selected'); + if w and $0400 = 0 + then FDetails.Add('Bit $0400 = 0: Sheet not active') + else FDetails.Add('Bit $0400 = 1: Sheet active'); + if w and $0800 = 0 + then FDetails.Add('Bit $0800 = 0: Show in normal view') + else FDetails.Add('Bit $0800 = 1: Show in page break preview'); + end; + ShowInRow(FCurrRow, FBufferIndex, numbytes, Format('%d ($%.4x)', [w, w]), + 'Option flags'); + + numBytes := 2; + Move(FBuffer[FBufferIndex], w, numbytes); + ShowInRow(FCurrRow, FBufferIndex, numbytes, IntToStr(WordLEToN(w)), + 'Index to first visible row'); + Move(FBuffer[FBufferIndex], w, numbytes); + ShowInRow(FCurrRow, FBufferIndex, numbytes, IntToStr(WordLEToN(w)), + 'Index to first visible column'); + + if FFormat =sfExcel5 then begin + numbytes := 4; + Move(FBuffer[FBufferIndex], dw, numbytes); + ShowInRow(FCurrRow, FBufferIndex, numbytes, Format('$%.8x', [DWordLEToN(dw)]), + 'Grid line RGB color'); + end else begin + numBytes := 2; + Move(FBuffer[FBufferIndex], w, numbytes); + ShowInRow(FCurrRow, FBufferIndex, numbytes, IntToStr(WordLEToN(w)), + 'Color index of grid line color'); + + ShowInRow(FCurrRow, FBufferIndex, numbytes, '', 'Not used'); + + Move(FBuffer[FBufferIndex], w, numbytes); + ShowInRow(FCurrRow, FBufferIndex, numbytes, IntToStr(WordLEToN(w)), + 'Cached magnification factor in page break preview (in percent); 0 = Default (60%)'); + + Move(FBuffer[FBufferIndex], w, numbytes); + ShowInRow(FCurrRow, FBufferIndex, numbytes, IntToStr(WordLEToN(w)), + 'Cached magnification factor in normal view (in percent); 0 = Default (100%)'); + + numBytes := 4; + ShowInRow(FCurrRow, FBufferIndex, numbytes, '', 'Not used'); + end; + end; +end; + + +procedure TBIFFGrid.ShowWindowProtect; +var + numBytes: Integer; + w: Word; +begin + RowCount := FixedRows + 1; + numBytes := 2; + Move(FBuffer[FBufferIndex], w, numBytes); + w := WordLEToN(w); + if Row = FCurrRow then begin + FDetails.Add('Protection state of workbook windows:'#13); + if w = 0 + then FDetails.Add('0 = The workbook windows can be resized or moved and the window state can be changed.') + else FDetails.Add('1 = The workbook windows cannot be resized or moved and the window state cannot be changed.'); + end; + ShowInRow(FCurrRow, FBufferIndex, numBytes, Format('$%.4x', [w]), + 'Protection state of the workbook windows'); +end; + + +procedure TBIFFGrid.ShowWriteAccess; +var + numbytes: Integer; + s: String; +begin + RowCount := FixedRows + 1; + ExtractString(FBufferIndex, IfThen(FFormat=sfExcel8, 2, 1), FFormat=sfExcel8, s, numbytes); + ShowInRow(FCurrRow, FBufferIndex, numbytes, s, 'User name (i.e., the name that you type when you install Microsoft Excel'); +end; + + +procedure TBIFFGrid.ShowWriteProt; +begin + RowCount := FixedRows + 2; + ShowInRow(FCurrRow, FBufferIndex, 0, '', 'Write protect: if present file is write-protected'); + ShowInRow(FCurrRow, FBufferIndex, 0, '', 'Write protection password is in FILESHARING record'); +end; + + +procedure TBIFFGrid.ShowXF; +var + numBytes: Word; + b: Byte; + w: word; + dw : DWord; +begin + if FFormat = sfExcel2 then begin + RowCount := FixedRows + 4; + numBytes := 1; + b := FBuffer[FBufferIndex]; + ShowInRow(FCurrRow, FBufferIndex, numBytes, IntToStr(b), + 'Index to font record'); + ShowInRow(FCurrRow, FBufferIndex, numBytes, '', + '(not used)'); + + b := FBuffer[FBufferIndex]; + if Row = FCurrRow then begin + FDetails.Add('Number format and cell flags:'#13); + FDetails.Add(Format('Bits 0-5 = %d: Index to FORMAT record', [b and $3F])); + if b and $40 = 0 + then FDetails.Add('Bit 6 = 0: Cell is not locked') + else FDetails.Add('Bit 6 = 1: Cell is locked'); + if b and $80 = 0 + then FDetails.Add('Bit 7 = 0: Formula is not hidden') + else FDetails.Add('Bit 7 = 1: Formula is hidden'); + end; + ShowInRow(FCurrRow, FBufferIndex, numBytes, Format('$%.2x', [b]), + 'Number format and cell flags'); + + b := FBuffer[FBufferIndex]; + if Row = FCurrRow then begin + FDetails.Add('Horizontal alignment, border style and background:'#13); + case b and $07 of + 0: FDetails.Add('Bits $07 = 0: Horizontal alignment "General"'); + 1: FDetails.Add('Bits $07 = 1: Horizontal alignment "Left"'); + 2: FDetails.Add('Bits $07 = 2: Horizontal alignemnt "Centered"'); + 3: FDetails.Add('Bits $07 = 3: Horizontal alignment "Right"'); + 4: FDetails.Add('Bits $07 = 4: Horizontal alignment "Filled"'); + 5: FDetails.Add('Bits $07 = 5: Horizontal alignment "Justified"'); + 6: FDetails.Add('Bits $07 = 6: Horizontal alignment "Centred across selection"'); + 7: FDetails.Add('Bits $07 = 7: Horizontal alignment "Distributed"'); + end; + if b and $08 = 0 + then FDetails.Add('Bit $08 = 0: Cell has no left border') + else FDetails.Add('Bit $08 = 1: Cell has left black border'); + if b and $10 = 0 + then FDetails.Add('Bit $10 = 0: Cell has no right border') + else FDetails.Add('Bit $10 = 1: Cell has right black border'); + if b and $20 = 0 + then FDetails.Add('Bit $20 = 0: Cell has no top border') + else FDetails.Add('Bit $20 = 1: Cell has top black border'); + if b and $40 = 0 + then FDetails.Add('Bit $40 = 0: Cell has no bottom border') + else FDetails.Add('Bit $40 = 1: Cell has bottom black border'); + if b and $80 = 0 + then FDetails.Add('Bit $80 = 0: Cell has no shaded background') + else FDetails.Add('Bit $80 = 1: Cell has shaded background'); + end; + ShowInRow(FCurrRow, FBufferIndex, numBytes, Format('$%.2x', [b]), + 'Horizontal alignment, border style, and background'); + end + else + begin // XF (BIFF5 and BIFF8) + RowCount := FixedRows + IfThen(FFormat=sfExcel5, 7, 10); + numBytes := 2; + Move(FBuffer[FBufferIndex], w, numBytes); + ShowInRow(FCurrRow, FBufferIndex, numBytes, IntToStr(WordLEToN(w)), + 'Index to font record'); + numBytes := 2; + Move(FBuffer[FBufferIndex], w, numBytes); + ShowInRow(FCurrRow, FBufferIndex, numBytes, IntToStr(WordLEToN(w)), + 'Index to format record'); + numBytes := 2; + Move(FBuffer[FBufferIndex], w, numBytes); + w := WordLEToN(w); + if Row = FCurrRow then begin + FDetails.Add('XFType, cell protection, parent style XF:'#13); + if w and $0001 = 0 + then FDetails.Add('Bit $0001 = 0: Cell is not locked') + else FDetails.Add('Bit $0001 = 1: Cell is locked'); + if w and $0002 = 0 + then FDetails.Add('Bit $0002 = 0: Formula is not hidden') + else FDetails.Add('Bit $0002 = 1: Formula is hidden'); + if w and $0004 = 0 + then FDetails.Add('Bit $0004 = 0: Cell XF') + else FDetails.Add('Bit $0004 = 1: Style XF'); + end; + ShowInRow(FCurrRow, FBufferIndex, numBytes, Format('$%.4x', [w]), + 'XFType, cell protection, parent style XF'); + + numBytes := 1; + b := FBuffer[FBufferIndex]; + if Row = FCurrRow then begin + FDetails.Add('Alignment and text break:'#13); + case b and $03 of + 0: FDetails.Add('Bits 0-2 = 0: Horizontal alignment "General"'); + 1: FDetails.Add('Bits 0-2 = 1: Horizontal alignment "Left"'); + 2: FDetails.Add('Bits 0-2 = 2: Horizontal alignemnt "Centered"'); + 3: FDetails.Add('Bits 0-2 = 3: Horizontal alignment "Right"'); + 4: FDetails.Add('Bits 0-2 = 4: Horizontal alignment "Filled"'); + 5: FDetails.Add('Bits 0-2 = 5: Horizontal alignment "Justified"'); + 6: FDetails.Add('Bits 0-2 = 6: Horizontal alignment "Centred across selection"'); + 7: if FFormat = sfExcel8 then + FDetails.Add('Bits 0-2 = 7: Horizontal alignment "Distributed"'); + end; + if b and $08 = 0 + then FDetails.Add('Bit 3 = 0: Text is not wrapped.') + else FDetails.Add('Bit 3 = 1: Text is wrapped at right border.'); + case (b and $70) shr 4 of + 0: FDetails.Add('Bits 4-6 = 0: Vertical alignment "Top"'); + 1: FDetails.Add('Bits 4-6 = 1: Vertical alignment "Centered"'); + 2: FDetails.Add('Bits 4-6 = 2: Vertical alignment "Bottom"'); + 3: FDetails.Add('Bits 4-6 = 3: Vertical alignment "Justified"'); + 4: if FFormat = sfExcel8 then + FDetails.Add('Bits 4-6 = 4: Vertical alignment "Distributed"'); + end; + if FFormat = sfExcel8 then begin + if b and $80 = 0 + then FDetails.Add('Bit 3 = 0: Don''t justify last line in justified or distibuted text') + else FDetails.Add('Bit 3 = 1: Justify last line in justified or distibuted text'); + end; + end; + ShowInRow(FCurrRow, FBufferIndex, numBytes, Format('$%.2x', [b]), + 'Alignment and text break'); + + numBytes := 1; + b := FBuffer[FBufferIndex]; + if FFormat = sfExcel5 then begin + if Row = FCurrRow then begin + FDetails.Add('Text orientation and flags for used attribute groups:'#13); + case (b and $03) of + 0: FDetails.Add('Bits $03 = 0: not rotated'); + 1: FDetails.Add('Bits $03 = 1: not rotated, letters stacked top-to-bottom'); + 2: FDetails.Add('Bits $03 = 2: text rotated 90° counter-clockwise'); + 3: FDetails.Add('Bits $03 = 3: text rotated 90° clockwise'); + end; + if b and $04 = 0 + then FDetails.Add('Bit $04 = 0: No flag for number format') + else FDetails.Add('Bit $04 = 1: Flag for number format'); + if b and $08 = 0 + then FDetails.Add('Bit $08 = 0: No flag for font') + else FDetails.Add('Bit $08 = 2: Flag for font'); + if b and $10 = 0 + then FDetails.Add('Bit $10 = 0: No flag for hor/vert alignment, text wrap, indentation, orientation, rotation, and text direction') + else FDetails.Add('Bit $10 = 1: Flag for hor/vert alignment, text wrap, indentation, orientation, rotation, and text direction'); + if b and $20 = 0 + then FDetails.Add('Bit $20 = 0: No flag for border lines') + else FDetails.Add('Bit $20 = 1: Flag for border lines'); + if b and $40 = 0 + then FDetails.Add('Bit $40 = 0: No flag for background area style') + else FDetails.Add('Bit $40 = 1: Flag for background area style'); + if b and $80 = 0 + then FDetails.Add('Bit $80 = 0: No flag for cell protection (cell locked and formula hidden)') + else FDetails.Add('Bit $80 = 1: Flag for cell protection (cell locked and formula hidden)'); + end; + ShowInRow(FCurrRow, FBufferIndex, numbytes, Format('$%.2x', [b]), + 'Text orientation and flags for used attribute groups'); + end else + begin // sfExcel8 + if Row = FCurrRow then begin + FDetails.Add('Text rotation angle:'#13); + if b = 0 then + FDetails.Add('not rotated') + else if b <= 90 then + FDetails.Add(Format('%d degrees counter-clockwise', [b])) + else if b <= 180 then + FDetails.Add(Format('%d degrees clockwize', [b-90])) + else if b = 255 then + FDetails.Add('not rotated, letters stacked top-to-bottom'); + end; + ShowInRow(FCurrRow, FBufferIndex, numbytes, IntToStr(b), 'Text rotation angle'); + end; + + if FFormat = sfExcel8 then begin + numBytes := 1; + b := FBuffer[FBufferIndex]; + if Row = FCurrRow then begin + FDetails.Add('Indentation, shrink to cell size, and text direction:'#13); + FDetails.Add(Format('Bits 0-3: Indent level = %d', [b and $0F])); + if b and $10 = 0 + then FDetails.Add('Bit $10 = 0: Don''t shrink content to fit into cell') + else FDetails.Add('Bit $10 = 1: Shrink content to fit into cell'); + case (b and $C0) shr 6 of + 0: FDetails.Add('Bits 6-7 = 0: Text direction according to context'); + 1: FDetails.Add('Bits 6-7 = 1: Text direction left-to-right'); + 2: FDetails.Add('Bits 6-7 = 2: Text direction right-to-left'); + end; + end; + ShowInRow(FCurrRow, FBufferIndex, numBytes, Format('$%.2x', [b]), + 'Indentation, shrink to cell size, and text direction'); + + numBytes := 1; + b := FBuffer[FBufferIndex]; + if Row = FCurrRow then begin + FDetails.Add('Flags for used attribute groups:'#13); + if b and $04 = 0 + then FDetails.Add('Bit $04 = 0: No flag for number format') + else FDetails.Add('Bit $04 = 1: Flag for number format'); + if b and $08 = 0 + then FDetails.Add('Bit $08 = 0: No flag for font') + else FDetails.Add('Bit $08 = 2: Flag for font'); + if b and $10 = 0 + then FDetails.Add('Bit $10 = 0: No flag for hor/vert alignment, text wrap, indentation, orientation, rotation, and text direction') + else FDetails.Add('Bit $10 = 1: Flag for hor/vert alignment, text wrap, indentation, orientation, rotation, and text direction'); + if b and $20 = 0 + then FDetails.Add('Bit $20 = 0: No flag for border lines') + else FDetails.Add('Bit $20 = 1: Flag for border lines'); + if b and $40 = 0 + then FDetails.Add('Bit $40 = 0: No flag for background area style') + else FDetails.Add('Bit $40 = 1: Flag for background area style'); + if b and $80 = 0 + then FDetails.Add('Bit $80 = 0: No flag for cell protection (cell locked and formula hidden)') + else FDetails.Add('Bit $80 = 1: Flag for cell protection (cell locked and formula hidden)'); + end; + ShowInRow(FCurrRow, FBufferIndex, numbytes, Format('$%.2x', [b]), + 'Flags for used attribute groups'); + + numBytes := 4; + Move(FBuffer[FBufferIndex], dw, numbytes); + dw := DWordLEToN(dw); + if Row = FCurrRow then begin + FDetails.Add('Cell border lines and background area:'#13); + case dw and $0000000F of + $0000: FDetails.Add('Bits 0-3 = 0: Left border = No line'); + $0001: FDetails.Add('Bits 0-3 = 1: Left border = thin solid line'); + $0002: FDetails.Add('Bits 0-3 = 2: Left border = medium solid line'); + $0003: FDetails.Add('Bits 0-3 = 3: Left border = dashed line'); + $0004: FDetails.Add('Bits 0-3 = 4: Left border = dotted line'); + $0005: FDetails.Add('Bits 0-3 = 5: Left border = thick solid line'); + $0006: FDetails.Add('Bits 0-3 = 6: Left border = double solid line'); + $0007: FDetails.Add('Bits 0-3 = 7: Left border = hair line'); + $0008: FDetails.Add('Bits 0-3 = 8: Left border = medium dashed'); + $0009: FDetails.Add('Bits 0-3 = 9: Left border = thin dash-dotted'); + $000A: FDetails.Add('Bits 0-3 = 10: Left border = medium dash-dotted'); + $000B: FDetails.Add('Bits 0-3 = 11: Left border = thin dash-dot-dotted'); + $000C: FDetails.Add('Bits 0-3 = 12: Left border = medium dash-dot-dotted'); + $000D: FDetails.Add('Bits 0-3 = 13: Left border = slanted medium dash-dotted'); + end; + case dw and $000000F0 of + $0000: FDetails.Add('Bits 4-7 = 0: Right border = No line'); + $0010: FDetails.Add('Bits 4-7 = 1: Right border = thin solid line'); + $0020: FDetails.Add('Bits 4-7 = 2: Right border = medium solid line'); + $0030: FDetails.Add('Bits 4-7 = 3: Right border = dashed line'); + $0040: FDetails.Add('Bits 4-7 = 4: Right border = dotted line'); + $0050: FDetails.Add('Bits 4-7 = 5: Right border = thick solid line'); + $0060: FDetails.Add('Bits 4-7 = 6: Right border = double solid line'); + $0070: FDetails.Add('Bits 4-7 = 7: Right border = hair line'); + $0080: FDetails.Add('Bits 4-7 = 8: Right border = medium dashed'); + $0090: FDetails.Add('Bits 4-7 = 9: Right border = thin dash-dotted'); + $00A0: FDetails.Add('Bits 4-7 = 10: Right border = medium dash-dotted'); + $00B0: FDetails.Add('Bits 4-7 = 11: Right border = thin dash-dot-dotted'); + $00C0: FDetails.Add('Bits 4-7 = 12: Right border = medium dash-dot-dotted'); + $00D0: FDetails.Add('Bits 4-7 = 13: Right border = slanted medium dash-dotted'); + end; + case dw and $00000F00 of + $0000: FDetails.Add('Bits 8-11 = 0: Top border = No line'); + $0100: FDetails.Add('Bits 8-11 = 1: Top border = thin solid line'); + $0200: FDetails.Add('Bits 8-11 = 2: Top border = medium solid line'); + $0300: FDetails.Add('Bits 8-11 = 3: Top border = dashed line'); + $0400: FDetails.Add('Bits 8-11 = 4: Top border = dotted line'); + $0500: FDetails.Add('Bits 8-11 = 5: Top border = thick solid line'); + $0600: FDetails.Add('Bits 8-11 = 6: Top border = double solid line'); + $0700: FDetails.Add('Bits 8-11 = 7: Top border = hair line'); + $0800: FDetails.Add('Bits 8-11 = 8: Top border = medium dashed'); + $0900: FDetails.Add('Bits 8-11 = 9: Top border = thin dash-dotted'); + $0A00: FDetails.Add('Bits 8-11 = 10: Top border = medium dash-dotted'); + $0B00: FDetails.Add('Bits 8-11 = 11: Top border = thin dash-dot-dotted'); + $0C00: FDetails.Add('Bits 8-11 = 12: Top border = medium dash-dot-dotted'); + $0D00: FDetails.Add('Bits 8-11 = 13: Top border = slanted medium dash-dotted'); + end; + case dw and $0000F000 of + $0000: FDetails.Add('Bits 12-15 = 0: Bottom border = No line'); + $1000: FDetails.Add('Bits 12-15 = 1: Bottom border = thin solid line'); + $2000: FDetails.Add('Bits 12-15 = 2: Bottom border = medium solid line'); + $3000: FDetails.Add('Bits 12-15 = 3: Bottom border = dashed line'); + $4000: FDetails.Add('Bits 12-15 = 4: Bottom border = dotted line'); + $5000: FDetails.Add('Bits 12-15 = 5: Bottom border = thick solid line'); + $6000: FDetails.Add('Bits 12-15 = 6: Bottom border = double solid line'); + $7000: FDetails.Add('Bits 12-15 = 7: Bottom border = hair line'); + $8000: FDetails.Add('Bits 12-15 = 8: Bottom border = medium dashed'); + $9000: FDetails.Add('Bits 12-15 = 9: Bottom border = thin dash-dotted'); + $A000: FDetails.Add('Bits 12-15 = 10: Bottom border = medium dash-dotted'); + $B000: FDetails.Add('Bits 12-15 = 11: Bottom border = thin dash-dot-dotted'); + $C000: FDetails.Add('Bits 12-15 = 12: Bottom border = medium dash-dot-dotted'); + $D000: FDetails.Add('Bits 12-15 = 13: Bottom border = slanted medium dash-dotted'); + end; + FDetails.Add(Format('Bits 16-22 = %d: Color index for left line color', [(dw and $007F0000) shr 16])); + FDetails.Add(Format('Bits 23-29 = %d: Color index for right line color', [(dw and $3F800000) shr 23])); + if dw and $40000000 = 0 + then FDetails.Add('Bit 30 = 0: No diagonal line from top left to right bottom') + else FDetails.Add('Bit 30 = 1: Diagonal line from top left to right bottom'); + if dw and $80000000 = 0 + then FDetails.Add('Bit 31 = 0: No diagonal line from bottom left to right top') + else FDetails.Add('Bit 31 = 1: Diagonal line from bottom left to right top'); + end; + ShowInRow(FCurrRow, FBufferIndex, numbytes, Format('$%.8x', [dw]), + 'Cell border lines and background area'); + + numBytes := 4; + Move(FBuffer[FBufferIndex], dw, numbytes); + if Row = FCurrRow then begin + FDetails.Add('Cell border lines and background area (cont''d):'#13); + FDetails.Add(Format('Bits 0-6 = %d: Color index for top line color', [(dw and $0000007F)])); + FDetails.Add(Format('Bits 7-13 = %d: Color index for bottom line color', [(dw and $00003F80) shr 7])); + FDetails.Add(Format('Bits 14-20 = %d: Color index for diagonal line color', [(dw and $001FC000) shr 14])); + case dw and $01E00000 shr 17 of + $0: FDetails.Add('Bits 21-24 = 0: Diagonal line style = No line'); + $1: FDetails.Add('Bits 21-24 = 1: Diagonal line style = thin solid line'); + $2: FDetails.Add('Bits 21-24 = 2: Diagonal line style = medium solid line'); + $3: FDetails.Add('Bits 21-24 = 3: Diagonal line style = dashed line'); + $4: FDetails.Add('Bits 21-24 = 4: Diagonal line style = dotted line'); + $5: FDetails.Add('Bits 21-24 = 5: Diagonal line style = thick solid line'); + $6: FDetails.Add('Bits 21-24 = 6: Diagonal line style = double solid line'); + $7: FDetails.Add('Bits 21-24 = 7: Diagonal line style = hair line'); + $8: FDetails.Add('Bits 21-24 = 8: Diagonal line style = medium dashed'); + $9: FDetails.Add('Bits 21-24 = 9: Diagonal line style = thin dash-dotted'); + $A: FDetails.Add('Bits 21-24 = 10: Diagonal line style = medium dash-dotted'); + $B: FDetails.Add('Bits 21-24 = 11: Diagonal line style = thin dash-dot-dotted'); + $C: FDetails.Add('Bits 21-24 = 12: Diagonal line style = medium dash-dot-dotted'); + $D: FDetails.Add('Bits 21-24 = 13: Diagonal line style = slanted medium dash-dotted'); + end; + case (dw and $FC000000) shr 26 of + $00: FDetails.Add('Bits 26-31 = 0: Fill pattern = No fill'); + $01: FDetails.Add('Bits 26-31 = 1: Fill pattern = solid fill'); + $02: FDetails.Add('Bits 26-31 = 2: Fill pattern = medium fill'); + $03: FDetails.Add('Bits 26-31 = 3: Fill pattern = dense fill'); + $04: FDetails.Add('Bits 26-31 = 4: Fill pattern = sparse fill'); + $05: FDetails.Add('Bits 26-31 = 5: Fill pattern = horizontal fill'); + $06: FDetails.Add('Bits 26-31 = 6: Fill pattern = vertical fill'); + $07: FDetails.Add('Bits 26-31 = 7: Fill pattern = backslash fill'); + $08: FDetails.Add('Bits 26-31 = 8: Fill pattern = slash fill'); + $09: FDetails.Add('Bits 26-31 = 9: Fill pattern = coarse medium fill'); + $0A: FDetails.Add('Bits 26-31 = 10: Fill pattern = coarse medium horiz fill'); + $0B: FDetails.Add('Bits 26-31 = 11: Fill pattern = sparse horizontal fill'); + $0C: FDetails.Add('Bits 26-31 = 12: Fill pattern = sparse vertical fill'); + $0D: FDetails.Add('Bits 26-31 = 13: Fill pattern = sparse backslash fill'); + $0E: FDetails.Add('Bits 26-31 = 14: Fill pattern = sparse slash fill'); + $0F: FDetails.Add('Bits 26-31 = 15: Fill pattern = cross fill'); + $10: FDetails.Add('Bits 26-31 = 16: Fill pattern = dense backslash fill'); + $11: FDetails.Add('Bits 26-31 = 17: Fill pattern = very sparse fill'); + $12: FDetails.Add('Bits 26-31 = 18: Fill pattern = extremely sparse fill'); + end; + end; + ShowInRow(FCurrRow, FBufferIndex, numbytes, Format('$%.8x', [dw]), + 'Cell border lines and background area (cont''d)'); + + numBytes := 2; + Move(FBuffer[FBufferIndex], w, numbytes); + w := WordLEToN(w); + if Row = FCurrRow then begin + FDetails.Add('Cell border lines and background area (cont''d):'#13); + FDetails.Add(Format('Bits 0-6 = %d: Color index for pattern color', [(w and $007F)])); + FDetails.Add(Format('Bits 7-13 = %d: Color index for pattern background color', [(w and $3F80) shr 7])); + end; + ShowInRow(FCurrRow, FBufferIndex, numbytes, Format('$%.4x', [w]), + 'Cell border lines and background area (cont''d)'); + end; + + if FFormat = sfExcel5 then begin + numBytes := 4; + Move(FBuffer[FBufferIndex], dw, numBytes); + dw := DWordLEToN(dw); + if Row = FCurrRow then begin + FDetails.Add('Cell border lines and background area:'#13); + FDetails.Add(Format('Bits 0-6 = %d: Color index for pattern color', [(dw and $007F)])); + FDetails.Add(Format('Bits 7-13 = %d: Color index for pattern background color', [(dw and $3F80) shr 7])); + case (dw and $003F0000) shr 16 of + $00: FDetails.Add('Bits 16-21 = 0: Fill pattern = No fill'); + $01: FDetails.Add('Bits 16-21 = 1: Fill pattern = solid fill'); + $02: FDetails.Add('Bits 16-21 = 2: Fill pattern = medium fill'); + $03: FDetails.Add('Bits 16-21 = 3: Fill pattern = dense fill'); + $04: FDetails.Add('Bits 16-21 = 4: Fill pattern = sparse fill'); + $05: FDetails.Add('Bits 16-21 = 5: Fill pattern = horizontal fill'); + $06: FDetails.Add('Bits 16-21 = 6: Fill pattern = vertical fill'); + $07: FDetails.Add('Bits 16-21 = 7: Fill pattern = backslash fill'); + $08: FDetails.Add('Bits 16-21 = 8: Fill pattern = slash fill'); + $09: FDetails.Add('Bits 16-21 = 9: Fill pattern = coarse medium fill'); + $0A: FDetails.Add('Bits 16-21 = 10: Fill pattern = coarse medium horiz fill'); + $0B: FDetails.Add('Bits 16-21 = 11: Fill pattern = sparse horizontal fill'); + $0C: FDetails.Add('Bits 16-21 = 12: Fill pattern = sparse vertical fill'); + $0D: FDetails.Add('Bits 16-21 = 13: Fill pattern = sparse backslash fill'); + $0E: FDetails.Add('Bits 16-21 = 14: Fill pattern = sparse slash fill'); + $0F: FDetails.Add('Bits 16-21 = 15: Fill pattern = cross fill'); + $10: FDetails.Add('Bits 16-21 = 16: Fill pattern = dense backslash fill'); + $11: FDetails.Add('Bits 16-21 = 17: Fill pattern = very sparse fill'); + $12: FDetails.Add('Bits 16-21 = 18: Fill pattern = extremely sparse fill'); + end; + case dw and $01C00000 shr 22 of + $0: FDetails.Add('Bits 22-24 = 0: Bottom line style = No line'); + $1: FDetails.Add('Bits 22-24 = 1: Bottom line style = thin solid line'); + $2: FDetails.Add('Bits 22-24 = 2: Bottom line style = medium solid line'); + $3: FDetails.Add('Bits 22-24 = 3: Bottom line style = dashed line'); + $4: FDetails.Add('Bits 22-24 = 4: Bottom line style = dotted line'); + $5: FDetails.Add('Bits 22-24 = 5: Bottom line style = thick solid line'); + $6: FDetails.Add('Bits 22-24 = 6: Bottom line style = double solid line'); + $7: FDetails.Add('Bits 22-24 = 7: Bottom line style = hair line'); + end; + FDetails.Add(Format('Bits 25-31 = %d: Color index for bottom line color', [(dw and $FE000000) shr 25])); + end; + ShowInRow(FCurrRow, FBufferIndex, numbytes, Format('$%.8x', [dw]), + 'Cell border lines & background area'); + + numBytes := 4; + Move(FBuffer[FBufferIndex], dw, numBytes); + dw := DWOrdLEToN(dw); + if Row = FCurrRow then begin + FDetails.Add('Cell border lines (cont''d):'#13); + case dw and $00000007 of + $00: FDetails.Add('Bits 0-2 = 0: Top border = No line'); + $01: FDetails.Add('Bits 0-2 = 1: Top border = thin solid line'); + $02: FDetails.Add('Bits 0-2 = 2: Top border = medium solid line'); + $03: FDetails.Add('Bits 0-2 = 3: Top border = dashed line'); + $04: FDetails.Add('Bits 0-2 = 4: Top border = dotted line'); + $05: FDetails.Add('Bits 0-2 = 5: Top border = thick solid line'); + $06: FDetails.Add('Bits 0-2 = 6: Top border = double solid line'); + $07: FDetails.Add('Bits 0-2 = 7: Top border = hair line'); + end; + case (dw and $00000038) shr 3 of + $0000: FDetails.Add('Bits 3-5 = 0: Left border = No line'); + $0001: FDetails.Add('Bits 3-5 = 1: Left border = thin solid line'); + $0002: FDetails.Add('Bits 3-5 = 2: Left border = medium solid line'); + $0003: FDetails.Add('Bits 3-5 = 3: Left border = dashed line'); + $0004: FDetails.Add('Bits 3-5 = 4: Left border = dotted line'); + $0005: FDetails.Add('Bits 3-5 = 5: Left border = thick solid line'); + $0006: FDetails.Add('Bits 3-5 = 6: Left border = double solid line'); + $0007: FDetails.Add('Bits 3-5 = 7: Left border = hair line'); + end; + case (dw and $000001C0) shr 6 of + $0000: FDetails.Add('Bits 6-8 = 0: Right border = No line'); + $0010: FDetails.Add('Bits 6-8 = 1: Right border = thin solid line'); + $0020: FDetails.Add('Bits 6-8 = 2: Right border = medium solid line'); + $0030: FDetails.Add('Bits 6-8 = 3: Right border = dashed line'); + $0040: FDetails.Add('Bits 6-8 = 4: Right border = dotted line'); + $0050: FDetails.Add('Bits 6-8 = 5: Right border = thick solid line'); + $0060: FDetails.Add('Bits 6-8 = 6: Right border = double solid line'); + $0070: FDetails.Add('Bits 6-8 = 7: Right border = hair line'); + end; + FDetails.Add(Format('Bits 9-15 = %d: Color index for top line color', [(dw and $0000FE00) shr 7])); + FDetails.Add(Format('Bits 16-22 = %d: Color index for left line color', [(dw and $007F0000) shr 16])); + FDetails.Add(Format('Bits 23-29 = %d: Color index for right line color', [(dw and $3F800000) shr 23])); + end; + ShowInRow(FCurrRow, FBufferIndex, numBytes, Format('$%.8x', [dw]), + 'Cell border lines (cont''d)'); + end; + end; +end; + + +procedure TBIFFGrid.ShowXFCRC; +var + numBytes: Integer; + w: Word; + dw: DWord; +begin + RowCount := FixedRows + 7; + + numBytes := 2; + Move(FBuffer[FBufferIndex], w, numBytes); + w := WordLEToN(w); + ShowInRow(FCurrRow, FBufferIndex, numbytes, Format('$%.4x', [wordLEToN(w)]), + 'Future record type'); + + Move(FBuffer[FBufferIndex], w, numbytes); + w := WordLEToN(w); + if Row = FCurrRow then begin + FDetails.Add('Attributes:'#13); + if w and $0001 = 0 + then FDetails.Add('Bit 0 = 0: The containing record does not specify a range of cells.') + else FDetails.Add('Bit 0 = 1: The containing record specifies a range of cells.'); + FDetails.Add('Bit 1: specifies wether to alert the user of possible problems '+ + 'when saving the file whithout having reckognized this record.'); + FDetails.Add('Bits 2-15: reserved (MUST be zero, MUST be ignored)'); + end; + ShowInRow(FCurrRow, FBufferIndex, numbytes, Format('$%.4x', [w]), + 'Attributes'); + + numbytes := 4; + Move(FBuffer[FBufferIndex], dw, numbytes); + ShowInRow(FCurrRow, FBufferIndex, numbytes, IntToStr(DWordLEToN(dw)), 'Reserved'); + Move(FBuffer[FBufferIndex], dw, numbytes); + ShowInRow(FCurrRow, FBufferIndex, numbytes, IntToStr(DWordLEToN(dw)), 'Reserved'); + + numbytes := 2; + Move(FBuffer[FBufferIndex], w, numbytes); + w := WordLEToN(w); + ShowInRow(FCurrRow, FBufferIndex, numbytes, Format('$%.4x', [w]), 'Reserved'); + + Move(FBuffer[FBufferIndex], w, numbytes); + w := WordLEToN(w); + ShowInRow(FCurrRow, FBufferIndex, numbytes, IntToStr(w), + 'Count of XF records'); + + Move(FBuffer[FBufferIndex], w, numbytes); + w := WordLEToN(w); + ShowInRow(FCurrRow, FBufferIndex, numbytes, Format('%d ($%.4x)', [w,w]), + 'Checksum of XF records'); +end; + + +procedure TBIFFGrid.ShowXFEXT; +var + numBytes: Integer; + w: Word; + dw: DWord; + i, n: Integer; + et: Word; + es: Word; + ct: Word; + buffidx: Cardinal; + s: String; +begin + BeginUpdate; + + RowCount := FixedRows + 100; + + numBytes := 2; + Move(FBuffer[FBufferIndex], w, numBytes); + w := WordLEToN(w); + ShowInRow(FCurrRow, FBufferIndex, numbytes, Format('$%.4x', [wordLEToN(w)]), + 'Future record type'); + + Move(FBuffer[FBufferIndex], w, numbytes); + w := WordLEToN(w); + if Row = FCurrRow then begin + FDetails.Add('Attributes:'#13); + if w and $0001 = 0 + then FDetails.Add('Bit 0 = 0: The containing record does not specify a range of cells.') + else FDetails.Add('Bit 0 = 1: The containing record specifies a range of cells.'); + FDetails.Add('Bit 1: specifies wether to alert the user of possible problems '+ + 'when saving the file whithout having reckognized this record.'); + FDetails.Add('Bits 2-15: reserved (MUST be zero, MUST be ignored)'); + end; + ShowInRow(FCurrRow, FBufferIndex, numbytes, Format('$%.4x', [w]), + 'Attributes'); + + numbytes := 4; + Move(FBuffer[FBufferIndex], dw, numbytes); + ShowInRow(FCurrRow, FBufferIndex, numbytes, IntToStr(DWordLEToN(dw)), 'Reserved'); + Move(FBuffer[FBufferIndex], dw, numbytes); + ShowInRow(FCurrRow, FBufferIndex, numbytes, IntToStr(DWordLEToN(dw)), 'Reserved'); + + numbytes := 2; + Move(FBuffer[FBufferIndex], w, numbytes); + w := WordLEToN(w); + ShowInRow(FCurrRow, FBufferIndex, numbytes, Format('$%.4x', [w]), 'Reserved'); + + Move(FBuffer[FBufferIndex], w, numbytes); + w := WordLEToN(w); + ShowInRow(FCurrRow, FBufferIndex, numbytes, Format('%d ($%.4x)', [w,w]), + 'XF index'); + + numbytes := 2; + Move(FBuffer[FBufferIndex], w, numbytes); + w := WordLEToN(w); + ShowInRow(FCurrRow, FBufferIndex, numbytes, Format('$%.4x', [w]), 'Reserved'); + + Move(FBuffer[FBufferIndex], w, numbytes); + w := WordLEToN(w); + ShowInRow(FCurrRow, FBufferIndex, numbytes, IntToStr(w), + 'Number of extension properties'); + n := w; + + for i:=1 to n do begin + buffidx := FBufferIndex; + numbytes := 2; + Move(FBuffer[FBufferIndex], et, numbytes); + et := WordLEToN(et); + if Row = FCurrRow then begin + FDetails.Add('Type:'#13); + case et of + $04: FDetails.Add('Full color extension that specifies the cell interior foreground color.'); + $05: FDetails.Add('Full color extension that specifies the cell interior background color.'); + $06: FDetails.Add('Gradient extension that specifies a cell interior gradient fill.'); + $07: FDetails.Add('Full color extension that specifies the top cell border color.'); + $08: FDetails.Add('Full color extension that specifies the bottom cell border color.'); + $09: FDetails.Add('Full color extension that specifies the left cell border color.'); + $0A: FDetails.Add('Full color extension that specifies the right cell border color.'); + $0B: FDetails.Add('Full color extension that specifies the diagonal cell border color.'); + $0D: FDetails.Add('Full color extension that specifies the cell text color.'); + $0E: FDetails.Add('2-byte unsigned integer that specifies a font scheme.'); + $0F: FDetails.Add('2-byte unsigned integer that specifies the text indentation level (MUST be <= 250).'); + end; + end; + ShowInRow(FCurrRow, FBufferIndex, numbytes, Format('%d ($%.4x)', [et, et]), + Format('Extension property #%d: Type', [i])); + Move(FBuffer[FBufferIndex], es, numbytes); + es := WordLEToN(es); + ShowInRow(FCurrRow, FBufferIndex, numbytes, IntToStr(es), + Format('Extension property #%d: Data size', [i])); + + case et of + $04, $05, $07..$0D: // FullColorExt + begin + numbytes := 2; + Move(FBuffer[FBufferIndex], ct, numbytes); + ct := WordLEToN(ct); + if Row = FCurrRow then begin + FDetails.Add('Full color extension - Color type:'#13); + case ct of + 0: FDetails.Add('0 - Automatic color'); + 1: FDetails.Add('1 - Indexed color'); + 2: FDetails.Add('2 - RGB color'); + 3: FDetails.Add('3 - Theme color'); + 4: FDetails.Add('4 - Color not set'); + end; + end; + ShowInRow(FCurrRow, FBufferIndex, numbytes, IntToStr(ct), + Format('Extension property #%d (Full color extension): Color type', [i])); + numbytes := 2; + Move(FBuffer[FBufferIndex], w, numbytes); + w := WordLEToN(w); + ShowInRow(FCurrRow, FBufferIndex, numbytes, IntToStr(integer(w)), + Format('Extension property #%d (Full color extension): Color tint', [i])); + numbytes := 4; + Move(FBuffer[FBufferIndex], dw, numbytes); + dw := DWordLEToN(dw); + case ct of + 0: s := '(dummy - MUST be 0)'; + 1: s := '(index)'; + 2: s := '(RGB value)'; + 3: s := '(theme)'; + else s := ''; + end; + ShowInRow(FCurrRow, FBufferIndex, numbytes, Format('%d ($%.8x)', [dw, dw]), + Format('Extension property #%d (Full color extension): value %s', [i, s])); + numbytes := 4; + Move(FBuffer[FBufferIndex], dw, numbytes); + dw := DWordLEToN(dw); + ShowInRow(FCurrRow, FBufferIndex, numbytes, Format('%d ($%.8x)', [dw, dw]), + Format('Extension property #%d (Full color extension): Reserved', [i])); + Move(FBuffer[FBufferIndex], dw, numbytes); + dw := DWordLEToN(dw); + ShowInRow(FCurrRow, FBufferIndex, numbytes, Format('%d ($%.8x)', [dw, dw]), + Format('Extension property #%d (Full color extension): Reserved', [i])); + end; + + $06: // Gradient + begin + ShowInRow(FCurrRow, FBufferIndex, es, '(var)', + Format('Extension property #%d (Gradient): - not interpreted here -', [i])); + end; + + $0E: // Font scheme + begin + numbytes := 2; + Move(FBuffer[FBufferIndex], w, numbytes); + w := WordLEToN(w); + if Row = FCurrRow then begin + FDetails.Add('Font scheme:'#13); + case w of + 0: FDetails.Add('0 - No font scheme'); + 1: FDetails.Add('1 - Major scheme'); + 2: FDetails.Add('2 - Minor scheme'); + 3: FDetails.Add('3 - Ninched scheme'); + end; + end; + ShowInRow(FCurrRow, FBufferIndex, numbytes, Format('%d ($%.4x)', [w,w]), + Format('Extension property #%d Font scheme', [i])); + end; + + $0F: // Text indentation level + begin + numbytes := 2; + Move(FBuffer[FBufferIndex], w, numbytes); + w := WordLEToN(w); + ShowInRow(FCurrRow, FBufferIndex, numbytes, IntToStr(w), + Format('Extension property #%d Text indentation level', [i])); + end; + end; + FBufferIndex := buffidx + es; + end; + RowCount := FCurrRow; + + EndUpdate(true); +end; + + +end. + diff --git a/components/fpspreadsheet/reference/BIFFExplorer/bebiffutils.pas b/components/fpspreadsheet/reference/BIFFExplorer/bebiffutils.pas new file mode 100644 index 000000000..4dc81184a --- /dev/null +++ b/components/fpspreadsheet/reference/BIFFExplorer/bebiffutils.pas @@ -0,0 +1,708 @@ +unit beBIFFUtils; + +{$mode objfpc}{$H+} + +interface + +uses + Classes, SysUtils; + +function BOFName(ACode: Word): String; +function CodePageName(AID: Word): String; +function RecTypeName(ARecType: Word): String; +function SheetFuncName(AIndex: Word): String; +function ErrorCodeName(ACode: Byte): String; + + +implementation + +function BOFName(ACode: Word): String; +begin + case ACode of + $0005: Result := 'Workbook globals'; + $0006: Result := 'Visual Basic module'; + $0010: Result := 'Sheet or dialog'; + $0020: Result := 'Chart'; + $0040: Result := 'Macro sheet'; + $0100: Result := 'Workspace'; + else Result := ''; + end; +end; + +function CodePageName(AID: Word): String; +begin + case AID of + $0016: Result := 'ASCII'; + $01B5: Result := 'IBM PC CP-437 (US)'; + $02D0: Result := 'IBM PC CP-720 (OEM Arabic)'; + $02E1: Result := 'IBM PC CP-737 (Greek)'; + $0307: Result := 'IBM PC CP-775 (Baltic)'; + $0352: Result := 'IBM PC CP-850 (Latin I)'; + $0354: Result := 'IBM PC CP-852 (Latin II (Central European))'; + $0357: Result := 'IBM PC CP-855 (Cyrillic)'; + $0359: Result := 'IBM PC CP-857 (Turkish)'; + $035A: Result := 'IBM PC CP-858 (Multilingual Latin I with Euro)'; + $035C: Result := 'IBM PC CP-860 (Portuguese)'; + $035D: Result := 'IBM PC CP-861 (Icelandic)'; + $035E: Result := 'IBM PC CP-862 (Hebrew)'; + $035F: Result := 'IBM PC CP-863 (Canadian (French))'; + $0360: Result := 'IBM PC CP-864 (Arabic)'; + $0361: Result := 'IBM PC CP-865 (Nordic)'; + $0362: Result := 'IBM PC CP-866 (Cyrillic (Russian))'; + $0365: Result := 'IBM PC CP-869 (Greek (Modern))'; + $036A: Result := 'Windows CP-874 (Thai)'; + $03A4: Result := 'Windows CP-932 (Japanese Shift-JIS)'; + $03A8: Result := 'Windows CP-936 (Chinese Simplified GBK)'; + $03B5: Result := 'Windows CP-949 (Korean (Wansung))'; + $03B6: Result := 'Windows CP-950 (Chinese Traditional BIG5)'; + $04B0: Result := 'UTF-16 (BIFF8)'; + $04E2: Result := 'Windows CP-1250 (Latin II) (Central European)'; + $04E3: Result := 'Windows CP-1251 (Cyrillic)'; + $04E4: Result := 'Windows CP-1252 (Latin I) (BIFF4-BIFF5)'; + $04E5: Result := 'Windows CP-1253 (Greek)'; + $04E6: Result := 'Windows CP-1254 (Turkish)'; + $04E7: Result := 'Windows CP-1255 (Hebrew)'; + $04E8: Result := 'Windows CP-1256 (Arabic)'; + $04E9: Result := 'Windows CP-1257 (Baltic)'; + $04EA: Result := 'Windows CP-1258 (Vietnamese)'; + $0551: Result := 'Windows CP-1361 (Korean (Johab))'; + $2710: Result := 'Apple Roman'; + $8000: Result := 'Apple Roman'; + $8001: Result := 'Windows CP-1252 (Latin I) (BIFF2-BIFF3)'; + else Result := ''; + end; +end; + +function ErrorCodeName(ACode: Byte): String; +begin + case ACode of + $00: Result := '#NULL! - Intersection of two cell ranges is empty'; + $07: Result := '#DIV/0! - Division by zero'; + $0F: Result := '#VALUE! - Wrong type of operand'; + $17: Result := '#REF! - Illegal or deleted cell reference'; + $1D: Result := '#NAME? - Wrong function or range name'; + $24: Result := '#NUM! - Value range overflow'; + $2A: Result := '#N/A - Argument or function not available'; + else Result := '(unknown)'; + end; +end; + +function RecTypeName(ARecType: Word): String; +begin + case ARecType of + $0000: Result := 'Dimension'; + $0001: Result := 'Blank'; + $0002: Result := 'Integer'; + $0003: Result := 'Number'; + $0004: Result := 'Label'; + $0005: Result := 'BoolErr'; + $0006: Result := 'Formula'; + $0007: Result := 'String'; + $0008: Result := 'Row'; + $0009: Result := 'BOF'; + $000A: Result := 'EOF: End of file'; + $000B: Result := 'Index'; + $000C: Result := 'CALCCOUNT: Iteration count'; + $000D: Result := 'CALCMODE: Calculation mode'; + $000E: Result := 'PRECISION: Precision'; + $000F: Result := 'REFMODE: Reference mode'; + $0010: Result := 'DELTA: Iteration increment'; + $0011: Result := 'ITERATION: Iteration mode'; + $0012: Result := 'PROTECT: Protection flag'; + $0013: Result := 'PASSWORD: Protection password'; + $0014: Result := 'HEADER: Print header on each page'; + $0015: Result := 'FOOTER: Print footer on each page'; + $0016: Result := 'EXTERNCOUNT: Number of external references'; + $0017: Result := 'EXTERNSHEET: External reference'; + $0018: Result := 'DefinedName'; + $0019: Result := 'WINDOWPROTECT: Windows are protected'; + $001A: Result := 'VERTICALPAGEBREAKS: Explicit column page breaks'; + $001B: Result := 'HORIZONALPAGEBREAKS: Explicit row page breaks'; + $001C: Result := 'NOTE: Comment associated with a cell'; + $001D: Result := 'SELECTION: current selection'; + $001E: Result := 'Format'; + $001F: Result := 'BuiltInFmtCount'; + $0020: Result := 'ColumnDefault'; + $0021: Result := 'Array'; + $0022: Result := '1904: 1904 date system'; + $0023: Result := 'ExternalName'; + $0024: Result := 'ColWidth'; + $0025: Result := 'DefaultRowHeight'; + $0026: Result := 'LEFTMARGIN: Left margin measurement'; + $0027: Result := 'RIGHTMARGIN: Right margin measurement'; + $0028: Result := 'TOPMARGIN: Top margin measurement'; + $0029: Result := 'BOTTOMMARGIN: Bottom margin measurement'; + $002A: Result := 'PRINTHEADERS: Print row/column labels'; + $002B: Result := 'PRINTGRIDLINES: Print gridlines flag'; + $002F: Result := 'FILEPASS: File is password-protected'; + $0031: Result := 'FONT: Font and font formatting information'; + $0032: Result := 'Font2'; + $0033: Result := 'PRINTSIZE: Printed size of chart'; + $0036: Result := 'DataTable'; + $0037: Result := 'DateTable2'; + $003C: Result := 'CONTINUE: Continues long records'; + $003D: Result := 'WINDOW1: Window information'; + $003E: Result := 'Window2'; + $0040: Result := 'BACKUP: Save backup version of the file'; + $0041: Result := 'PANE: Number of panes and their position'; + $0042: Result := 'CODEPAGE: Default code page'; // also: CODENAME: VBE object name ??? + $0043: Result := 'XF: Extended f'; + $0044: Result := 'IXFE'; + $0045: Result := 'FontColor'; + $004D: Result := 'PLS: Environment-specific print record'; + $0050: Result := 'DCON: Data consolidation information'; + $0051: Result := 'DCONREF: Data consolidation references'; + $0055: Result := 'DEFCOLWIDTH: Default width for columns'; + $0056: Result := 'BuiltInFmtCount'; + $0059: Result := 'XCT: CRN record count'; + $005A: Result := 'CRN: Non-resident operands'; + $005B: Result := 'FILESHARING: File-sharing information'; + $005C: Result := 'WRITEACCESS: Write access user name'; + $005E: Result := 'UNCALCED: Recalculation status'; + $005F: Result := 'SAVERECALC: Recalculate before saving'; + $0060: Result := 'TEMPLATE: Workbook is a template'; + $0063: Result := 'OBJPROTECT: Objects are protected'; + $007D: Result := 'COLINFO: Column formatting information'; + $007E: Result := 'RK: Cell value, RK number'; + $007F: Result := 'IMDATA: Image data'; + $0080: Result := 'GUTS: Size of row and column gutters'; + $0081: Result := 'SHEETPR: Additional workspace information'; + $0082: Result := 'GRIDSET: State change of Gridlines option'; + $0083: Result := 'HCENTER: Center between horizontal margins'; + $0084: Result := 'VCENTER: Center between vertical margins'; + $0085: Result := 'BOUNDSSHEET: Sheet information'; + $0086: Result := 'WRITEPROT: Workbook is write-protected'; + $0087: Result := 'ADDIN: Workbook is an add-in macro'; + $0088: Result := 'EDG: Edition globals'; + $0089: Result := 'PUB: Publisher'; + $008C: Result := 'COUNTRY: Default country and WIN.INI country'; + $008D: Result := 'HIDEOBJ: Object display options'; + $0090: Result := 'SORT: Sorting options'; + $0091: Result := 'SUB: Subscriber'; + $0092: Result := 'PALETTE: Color palette definition'; + $0094: Result := 'LHRECORD: .WK? file conversion information'; + $0095: Result := 'LHNGRAPH: Named graph information'; + $0096: Result := 'SOUND: Sound note'; + $0098: Result := 'LPR: Sheet was printed using LINE.PRINT()'; + $0099: Result := 'STANDARDWIDTH: Standard column width'; + $009A: Result := 'FNGROUPNAME: Function group name'; + $009B: Result := 'FILTERMODE: Sheet contains filtered list'; + $009C: Result := 'FNGROUPCOUNT: Built-in function group count'; + $009D: Result := 'AUTOFILTERINFO: Drop-down arrow count'; + $009E: Result := 'AUTOFILTER: AutoFilter data'; + $00A0: Result := 'SCL: Window zoom magnification'; + $00A1: Result := 'SETUP: PageSetup'; + $00A9: Result := 'COORDLIST: Polygon object vertex coordinates'; + $00AB: Result := 'GCW: Global column width flags'; + $00AE: Result := 'SCENMAN: Scenario output data'; + $00AF: Result := 'SCENARIO: Scenario data'; + $00B0: Result := 'SXVIEW: View definition'; + $00B1: Result := 'SXVD: View fields'; + $00B2: Result := 'SXVI: View item'; + $00B4: Result := 'SXIVD: Row/column field IDs'; + $00B5: Result := 'SXLI: Line item array'; + $00B6: Result := 'SXPI: Page item'; + $00B8: Result := 'DOCROUTE: Routing slip information'; + $00B9: Result := 'RECIPNAME: Recipient name'; + $00BC: Result := 'SHRFMLA: Shared formula'; + $00BD: Result := 'MULRK: Multiple RK cells'; + $00BE: Result := 'MULBLANK: Multiple blank cells'; + $00C1: Result := 'MMS: ADDMENU/DELMENU record group count'; + $00C2: Result := 'ADDMENU: Menu addition'; + $00C3: Result := 'DELMENU: Menu deletion'; + $00C5: Result := 'SXDI: Data item'; + $00C6: Result := 'SXDB: Pivot table cache data'; + $00CD: Result := 'SXSTRING: String'; + $00D0: Result := 'SXTBL: Multiple consolidation source info'; + $00D1: Result := 'SXBRGIITM: Page item name count'; + $00D2: Result := 'SXTBPG: Page item indexex'; + $00D3: Result := 'OBPROJ: Visual Basic project'; + $00D5: Result := 'SXIDSTM: Stream ID'; + $00D6: Result := 'RSTRING: Cell with character formatting'; + $00D7: Result := 'DBCELL: Stream offsets'; + $00DA: Result := 'BOOKBOOL: Workbook option flag'; + $00DC: Result := 'PARAMQRY: Query parameters'; // also: SXEXT: External source information + $00DD: Result := 'SCENPROTECT: Scenario Protection'; + $00DE: Result := 'OLESIZE: Size of OLE object'; + $00DF: Result := 'UDDESC: Description format for chart autoformat'; + $00E0: Result := 'XF: Extended format'; + $00E1: Result := 'INTERFACEHDR: Beginning of user interface records'; + $00E2: Result := 'INTERFACEEND: End of user interface records'; + $00E3: Result := 'SXVS: View source'; + $00E5: Result := 'MEGECELLS: Merged cells'; + $00E9: Result := 'Bitmap'; + $00EA: Result := 'TABIDCONF: Sheet Tab ID of conflict history'; + $00EB: Result := 'MSODRAWINGGROUP: Microsoft Office drawing group'; + $00EC: Result := 'MSODRAWING: Microsoft Office drawing'; + $00ED: Result := 'MSODRAWINGSELECTION: Microsoft Office drawing selection'; + $00EF: Result := 'PhoneticPR'; + $00F0: Result := 'SXRULE: PivotTable rule data'; + $00F1: Result := 'SXEX: PivotTable view extended information'; + $00F2: Result := 'SXFILT: PivotTable rule filter'; + $00F4: Result := 'SXDXF: PivotTable formatting'; + $00F5: Result := 'SXITM: PivotTable item indexes'; + $00F6: Result := 'SXNAME: PivotTable name'; + $00F7: Result := 'SXSELECT: PivotTable selection information'; + $00F8: Result := 'SXPAIR: PivotTable name pair'; + $00F9: Result := 'SXFMLA: PivotTable parsed expression'; + $00FB: Result := 'SXFORMAT: PivotTable format record'; + $00FC: Result := 'SST: Shared string table'; + $00FD: Result := 'LABELSST: Cell value, string constant/SST'; + $00FF: Result := 'EXTSST: extended shared string table'; + $013D: Result := 'TABID: Sheet tab index array'; + $015F: Result := 'LabelRanges'; + $0160: Result := 'USESELFS: Natural language formulas flag'; + $0161: Result := 'DSF: Double stream file'; + $0162: Result := 'XL5MODIFY: Flag for DSF'; + $01AE: Result := 'SUPBOOK: Supporting workbook'; + $01AF: Result := 'PROT4REV: Shared workbook protection flag'; + $01B0: Result := 'CONDFMT: Conditional formatting range information'; + $01B1: Result := 'CF: Conditional formatting conditions'; + $01B2: Result := 'DVAL: Data validation information'; + $01B5: Result := 'DCONBIN: Data consolidation information'; + $01B6: Result := 'TXO: Text object'; + $01B7: Result := 'REFRESHALL: Refresh flag'; + $01B8: Result := 'HLINK: Hyperlink'; + $01BA: Result := 'CODENAME: Name of the workbook object'; + $01BB: Result := 'SXFDBTYPE: SQL datatype identifier'; + $01BC: Result := 'PROT4REVPASS: Shared workbook protection password'; + $01BE: Result := 'DV: Data validation criteria'; + $01C0: Result := 'EXCEL9FILE: Excel 9 file'; + $01C1: Result := 'RECALCID: Recalc information'; + $0200: Result := 'DIMENSIONS: Cell table size'; + $0201: Result := 'BLANK: Cell Value, blank cell'; + $0203: Result := 'NUMBER: Cell value, floating-point cell'; + $0204: Result := 'LABEL: Cell value, string constant'; + $0205: Result := 'BOOLERR: Cell Value, boolean or error'; + $0206: Result := 'Formula'; + $0207: Result := 'STRING: String value of a formula'; + $0208: Result := 'ROW: Describes a row'; + $0209: Result := 'BOF'; + $020B: Result := 'INDEX: Index record'; + $0218: Result := 'NAME: Defined name'; + $0221: Result := 'ARRAY: Array-entered formula'; + $0223: Result := 'EXTERNNAME: Externally referenced name'; + $0225: Result := 'DEFAULTROWHEIGHT: Default row height'; + $0231: Result := 'FONT: Font description'; + $0236: Result := 'TABLE: Data table'; + $023E: Result := 'WINDOW2: Sheet window information'; + $0243: Result := 'XF'; + $027E: Result := 'RK'; + $0293: Result := 'STYLE: Style information'; + $0406: Result := 'FORMULA: Cell formula'; + $0409: Result := 'BOF'; + $041E: Result := 'FORMAT: Number format'; + $0443: Result := 'XF'; + $04BC: Result := 'SharedFormula'; + $0800: Result := 'HLINKTOOLTOP: Hyperlink tooltip'; + $0801: Result := 'WEBPUB: Web publish item'; + $0802: Result := 'QSISXTAG: PivotTable and query table extensions'; + $0803: Result := 'DBQUERYEXT: Database query extensions'; + $0804: Result := 'EXTSTRING: FRT string'; + $0805: Result := 'TXTQUERY: Text query information'; + $0806: Result := 'QSIR: Query table formatting'; + $0807: Result := 'QSIF: Query table field formatting'; + $0809: Result := 'BOF: Beginning of file'; + $080A: Result := 'OLEDBCONN: OLE database connection'; + $080B: Result := 'WOPT: Web options'; + $080C: Result := 'SXVIEWEX: Pivot table OLAP extensions'; + $080D: Result := 'SXTH: Pivot table OLAP hierarchy'; + $080E: Result := 'SXPIEX: OLAP page item extensions'; + $080F: Result := 'SXVDTEX: View dimension OLAP extensions'; + $0810: Result := 'SXVIEWX9: Pivot table extensions'; + $0812: Result := 'CONTINUEFRT: Continued FRT'; + $0813: Result := 'REALTIMEDATA: Real-time data (RTD)'; + $0850: Result := 'CHARTFRTINFO: Future record identifiers'; + $0852: Result := 'STARTBLOCK: Beginning of a collection of records'; + $0853: Result := 'ENDBLOCK: End of a collection of records'; + $0862: Result := 'SHEETEXT: Extra sheet info'; + $0863: Result := 'BOOKEXT: Extra book info'; + $0864: Result := 'SXADDL: Pivot table additional info'; + $0865: Result := 'CRASHRECERR: Crash recovery error'; + $0866: Result := 'HFPICTURE: Header/footer picture'; + $0867: Result := 'FEATHEADR: Shared feature header'; + $0868: Result := 'FEAT: Shared feature record'; + $086A: Result := 'DATALABEXT: Chart data label extension'; + $086B: Result := 'DATALABEXTCONTENTS: Chart data label extension contents'; + $086C: Result := 'CELLWATCH: Cell watch'; + $086D: Result := 'FEATINFO: Shared feature info record'; + $0871: Result := 'FEATHEADR11: Shared feature header 11'; + $0872: Result := 'FEAT11: Shared feature 11 record'; + $0873: Result := 'FEATINFO11: Shared feature info 11 record'; + $0874: Result := 'DROPDOWNOBJIDS: Drop down opbject'; + $0875: Result := 'CONTINUEFRT11: Continue FRT 11'; + $0876: Result := 'DCONN: Data connection'; + $0877: Result := 'LIST12: Extra table data introduced in Excel 2007'; + $0878: Result := 'FEAT12: Shared feature 12 record'; + $0879: Result := 'CONDFMT12: Conditional formatting range information 12'; + $087A: Result := 'CF12: Conditional formatting condition 12'; + $087B: Result := 'CFEX: Conditional formatting extension'; + $087C: Result := 'XFCRC: XF extension checksum'; + $087D: Result := 'XFEXT: XF extension'; + $087E: Result := 'EZFILTER12: Autofilter data introduced in Excel 2007'; + $087F: Result := 'CONTINUEFRT12: Continue FRT 12'; + $0881: Result := 'SXADDL12: Additional workbook connections information'; + $0884: Result := 'MDTINFO: Information about a metadata type'; + $0885: Result := 'MDXSTR: MDX metadata string'; + $0886: Result := 'MDXTUPLE: Tuple MDX metadata'; + $0887: Result := 'MDXSET: Set MDX metadata'; + $0888: Result := 'MDXPROP: Member property MDX metadata'; + $0889: Result := 'MDXKPI: Key performance indicator MDX metadata'; + $088A: Result := 'MDTB: Block of metadata records'; + $088B: Result := 'PLV: Page layout view settings in Excel 2007'; + $088C: Result := 'COMPAR12: Compatibility checker 12'; + $088D: Result := 'DXF: Differential XF'; + $088E: Result := 'TABLESTYLES: Table styles'; + $088F: Result := 'TABLESTYLE: Table style'; + $0890: Result := 'TABLESTYLEELEMENT: Table style element'; + $0892: Result := 'STYLEEXT: Named cell style extension'; + $0893: Result := 'NAMEPUBLISH: Publish to Excel server data for name'; + $0894: Result := 'NAMECMT: Name comment'; + $0895: Result := 'SORTDATA12: Sort data 12'; + $0896: Result := 'THEME: Theme'; + $0897: Result := 'GUIDTYPELIB: VB project typelib GUID'; + $0898: Result := 'FNGRP12: Function group'; + $0899: Result := 'NAMEFNGRP12: Extra function group'; + $089A: Result := 'MTRSETTINGS: Multi-threaded calculation settings'; + $089B: Result := 'COMPRESSPICTURES: Automatic picture compression mode'; + $089C: Result := 'HEADERFOOTER: Header footer'; + $089E: Result := 'CRTMLFRT: Additional properties for chart elements'; + $08A3: Result := 'FORCEFULLCALCULATION: Force full calculation settings'; + $08A4: Result := 'SHAPEPROPSSTREAM: Shape formatting properties for chart elements'; + $08A5: Result := 'TEXTPROPSSTREAM: Additional text properties for text in entire chart'; + $08A7: Result := 'CRTLAYOUT12A: Layout information for a plot area'; + $08C1: Result := 'LISTOBJ: List object'; + $08C2: Result := 'LISTFIELD: List field'; + $08C3: Result := 'LISTDV: List data validation'; + $08C4: Result := 'LISTCONDFMT: List conditional formatting'; + $08C5: Result := 'LIST CF: List cell formatting'; + $08C6: Result := 'FMQRY: Filemaker queries'; + $08C7: Result := 'FMSQRY: Filemaker queries'; + $08C8: Result := 'PLV: Page layout view in Mac Excel 11'; + $08C9: Result := 'LNEXT: Extenstion information for borders in Mac Office 11'; + $08CA: Result := 'MKREXT: Extension information for markers in Mac Office 11'; + $08CB: Result := 'CRTCOOPT: Color options for chart series in Mac Office 11'; + $1001: Result := 'UNITS: ignored'; + $1002: Result := 'CHART: Position and size of chart area'; + $1003: Result := 'SERIES: Properties of the data for a series, a trendline, or error bars'; + $1004: Result := 'CHSOURCELINK: Source of data series'; + $1006: Result := 'DATAFORMAT: Formatting properties for data point or series'; + $1007: Result := 'CHLINEFORMAT: Formatting attributes of line or border'; + $1009: Result := 'MARKERFORMAT: Color, size, and shape of data markers'; + $100A: Result := 'AREAFORMAT: Patterns and colors in filled chart region'; + $100B: Result := 'PIEFORMAT: Distance of a data point(s) from pie'; + $100C: Result := 'ATTACHEDLABEL: Properties of series data label'; + $100D: Result := 'CHSTRING: Category name of series, or text for text box in chart'; + $1014: Result := 'CHARTFORMAT: Properties of a chart group'; + $1015: Result := 'LEGEND: Properties of a legend'; + $1016: Result := 'SERIESLIST: Specifies the series for the chart'; + $1017: Result := 'BAR: identifies a bar/column chart group'; + $1018: Result := 'LINE: identifies a line chart group'; + $1019: Result := 'PIE: identifies a pie/doughnut chart group'; + $101A: Result := 'AREA: identifies an area chart group'; + $101B: Result := 'SCATTER: identifies scatter or bubble chart group'; + $101D: Result := 'AXIS: Properties of an axis'; + $101E: Result := 'TICK: Attributes of axis labels and ticks'; + $101F: Result := 'VALUERANGE: Properties of value axis'; + $1021: Result := 'CHAXISLINE: Part of the axis specified by the LINEFORMAT record'; + $1022: Result := 'CRTLINK: not used'; + $1024: Result := 'DEFAULTTEXT: Text elements formatted by TEXT record'; + $1025: Result := 'TEXT: Properties of an attached label'; + $1026: Result := 'FONTX: Font for a given text element'; + $1027: Result := 'OBJECTLINK: specifies object on chart, or entire chart, to which TEXT record is linked.'; + $1032: Result := 'CHFRAME: Border and area formatting of chart'; + $1033: Result := 'CHBEGIN: Indicates begin of a chart record block'; + $1034: Result := 'CHEND: Indicates end of a chart record block'; + $1035: Result := 'PLOTAREA: empty --> see FRAME record specifying plot area properties'; + $103A: Result := 'CHART3D: plot area of the chart group is rendered in a 3-D'; + $103C: Result := 'PICF: Layout of a picture attached to a picture-filled chart elemen'; + $103D: Result := 'DROPBAR: attributes of the up/down bars between multiple series of line chart group'; + $103E: Result := 'RADAR: identifies a radar chart group'; + $103F: Result := 'SURF: identifies a surface chart group'; + $1040: Result := 'RADARAREA: identifies a filled radar chart group'; + $1041: Result := 'AXISPARENT: Properties of an axis group'; + $1043: Result := 'LEGENDEXCEPTION: Information on legend item changed from default'; + $1044: Result := 'SHTPROPS: Chart properties defined by the Chart Sheet Substream ABNF'; + $1045: Result := 'SERTOCRT: Specifies chart group for the current series'; + $1046: Result := 'AXESUSED: Number of axis groups on the chart'; + $1048: Result := 'SBASEREF: Location of a PivotTable view referenced by a chart'; + $104A: Result := 'SERPARENT: Series to which the current trendline or error bar corresponds'; + $104B: Result := 'SERAUXTREND: Specifies a trendline'; + $104E: Result := 'IFMTRECORD: Number format to use for the text on an axis'; + $104F: Result := 'POS: Size/position for legend, attached label, or plot area'; + $1050: Result := 'ALRUNS: Rich Text Formatting within chart titles, trendline, and data labels'; + $1051: Result := 'BRAI: Reference to data used in chart'; + $105B: Result := 'SERAUXERRBAR: Error bar properties'; + $105C: Result := 'CLRTCLIENT: Custom color palette for chart'; + $105D: Result := 'SERFMT: Properties of series data points, markers, or lines'; + $105F: Result := 'CHART3DBARSHAPE: Shape of the data points in bar or column chart group'; + $1060: Result := 'FBI: Scalable font information (chart)'; + $1061: Result := 'BOPPOP: Chart group is a bar or a pie of pie chart'; + $1062: Result := 'AXCEXT: Additional extension properties of a date axis'; + $1063: Result := 'DAT: Chart Sheet Substream ABNF for data table within chart area'; + $1064: Result := 'PLOTGROWTH: Scale factors for font scaling'; + $1065: Result := 'SIINDEX: Specifies data of a chart'; + $1066: Result := 'GELFRAME: Properties of a fill pattern for parts of a chart'; + $1067: Result := 'BOPPOPCUSTOM: Series data points contained in the secondary bar/pie'; + $1068: Result := 'FBI2: Scalable font information (chart)'; + else + Result := '<unknown>'; + end; +end; + +function SheetFuncName(AIndex: Word): String; +begin + case AIndex of + 0 : result := 'COUNT'; + 1 : Result := 'IF'; + 2 : Result := 'ISNA'; + 3 : Result := 'ISERROR'; + 4 : Result := 'SUM'; + 5 : Result := 'AVERAGE'; + 6 : Result := 'MIN'; + 7 : Result := 'MAX'; + 8 : Result := 'ROW'; + 9 : Result := 'COLUMN'; + 10 : Result := 'NA'; + 11 : Result := 'NPV'; + 12 : Result := 'STDEV'; + 13 : Result := 'DOLLAR'; + 14 : Result := 'FIXED'; + 15 : Result := 'SIN'; + 16 : Result := 'COS'; + 17 : Result := 'TAN'; + 18 : Result := 'ATAN'; + 19 : Result := 'PI'; + 20 : Result := 'SQRT'; + 21 : Result := 'EXP'; + 22 : Result := 'LN'; + 23 : Result := 'LOG10'; + 24 : Result := 'ABS'; + 25 : Result := 'INT'; + 26 : Result := 'SIGN'; + 27 : Result := 'ROUND'; + 28 : Result := 'LOOKUP'; + 29 : Result := 'INDEX'; + 30 : Result := 'REPT'; + 31 : Result := 'MID'; + 32 : Result := 'LEN'; + 33 : Result := 'VALUE'; + 34 : Result := 'TRUE'; + 35 : Result := 'FALSE'; + 36 : Result := 'AND'; + 37 : Result := 'OR'; + 38 : Result := 'NOT'; + 39 : Result := 'MOD'; + 40 : Result := 'DCOUNT'; + 41 : Result := 'DSUM'; + 42 : Result := 'DAVERAGE'; + 43 : Result := 'DMIN'; + 44 : Result := 'DMAX'; + 45 : Result := 'DSTDEV'; + 46 : Result := 'VAR'; + 47 : Result := 'DVAR'; + 48 : Result := 'TEXT'; + 49 : Result := 'LINEST'; + 50 : Result := 'TREND'; + 51 : Result := 'LOGEST'; + 52 : Result := 'GROWTH'; + 56 : Result := 'PV'; + 57 : Result := 'FV'; + 58 : Result := 'NPER'; + 59 : Result := 'PMT'; + 60 : Result := 'RATE'; + 61 : Result := 'MIRR'; + 62 : Result := 'IRR'; + 63 : Result := 'RAND'; + 64 : Result := 'MATCH'; + 65 : Result := 'DATE'; + 66 : Result := 'TIME'; + 67 : Result := 'DAY'; + 68 : Result := 'MONTH'; + 69 : Result := 'YEAR'; + 70 : Result := 'WEEKDAY'; + 71 : Result := 'HOUR'; + 72 : Result := 'MINUTE'; + 73 : Result := 'SECOND'; + 74 : Result := 'NOW'; + 75 : Result := 'AREAS'; + 76 : Result := 'ROWS'; + 77 : Result := 'COLUMNS'; + 78 : Result := 'OFFSET'; + 82 : Result := 'SEARCH'; + 83 : Result := 'TRANSPOSE'; + 86 : Result := 'TYPE'; + 97 : Result := 'ATAN2'; + 98 : Result := 'ASIN'; + 99 : Result := 'ACOS'; + 100 : Result := 'CHOOSE'; + 101 : Result := 'HLOOKUP'; + 102 : Result := 'VLOOKUP'; + 105 : Result := 'ISREF'; + 109 : Result := 'LOG'; + 111 : Result := 'CHAR'; + 112 : Result := 'LOWER'; + 113 : Result := 'UPPER'; + 114 : Result := 'PROPER'; + 115 : Result := 'LEFT'; + 116 : Result := 'RIGHT'; + 117 : Result := 'EXACT'; + 118 : Result := 'TRIM'; + 119 : Result := 'REPLACE'; + 120 : Result := 'SUBSTITUTE'; + 121 : Result := 'CODE'; + 124 : Result := 'FIND'; + 125 : Result := 'CELL'; + 126 : Result := 'ISERR'; + 127 : Result := 'ISTEXT'; + 128 : Result := 'ISNUMBER'; + 129 : Result := 'ISBLANK'; + 130 : Result := 'T'; + 131 : Result := 'N'; + 140 : Result := 'DATEVALUE'; + 141 : Result := 'TIMEVALUE'; + 142 : Result := 'SLN'; + 143 : Result := 'SYD'; + 144 : Result := 'DDB'; + 148 : Result := 'INDIRECT'; + 162 : Result := 'CLEAN'; + 163 : Result := 'MDETERM'; + 164 : Result := 'MINVERSE'; + 165 : Result := 'MMULT'; + 167 : Result := 'IPMT'; + 168 : Result := 'PPMT'; + 169 : Result := 'COUNTA'; + 183 : Result := 'PRODUCT'; + 184 : Result := 'FACT'; + 189 : Result := 'DPRODUCT'; + 190 : Result := 'ISNONTEXT'; + 193 : Result := 'STDEVP'; + 194 : Result := 'VARP'; + 195 : Result := 'DSTDEVP'; + 196 : Result := 'DVARP'; + 197 : Result := 'TRUNC'; + 198 : Result := 'ISLOGICAL'; + 199 : Result := 'DCOUNTA'; + 204 : Result := 'YEN/USDOLLAR'; + 205 : Result := 'FINDB'; + 206 : Result := 'SEARCHB'; + 207 : Result := 'REPLACEB'; + 208 : Result := 'LEFTB'; + 209 : Result := 'RIGHTB'; + 210 : Result := 'MIDB'; + 211 : Result := 'LENB'; + 212 : Result := 'ROUNDUP'; + 213 : Result := 'ROUNDDOWN'; + 214 : Result := 'ASC'; + 215 : Result := 'JIS / DBCS'; + 216 : Result := 'RANK'; + 219 : Result := 'ADDRESS'; + 220 : Result := 'DAYS360'; + 221 : Result := 'TODAY'; + 222 : Result := 'VDB'; + 227 : Result := 'MEDIAN'; + 228 : Result := 'SUMPRODUCT'; + 229 : Result := 'SINH'; + 230 : Result := 'COSH'; + 231 : Result := 'TANH'; + 232 : Result := 'ASINH'; + 233 : Result := 'ACOSH'; + 234 : Result := 'ATANH'; + 235 : Result := 'DGET'; + 244 : Result := 'INFO'; + 247 : Result := 'DB'; + 252 : Result := 'FREQUENCY'; + 261 : Result := 'ERROR.TYPE'; + 269 : Result := 'AVEDEV'; + 270 : Result := 'BETADIST'; + 271 : Result := 'GAMMALN'; + 272 : Result := 'BETAINV'; + 273 : Result := 'BINOMDIST'; + 274 : Result := 'CHIDIST'; + 275 : Result := 'CHIINV'; + 276 : Result := 'COMBIN'; + 277 : Result := 'CONFIDENCE'; + 278 : Result := 'CRITBINOM'; + 279 : Result := 'EVEN'; + 280 : Result := 'EXPONDIST'; + 281 : Result := 'FDIST'; + 282 : Result := 'FINV'; + 283 : Result := 'FISHER'; + 284 : Result := 'FISHERINV'; + 285 : Result := 'FLOOR'; + 286 : Result := 'GAMMADIST'; + 287 : Result := 'GAMMAINV'; + 288 : Result := 'CEILING'; + 289 : Result := 'HYPGEOMDIST'; + 290 : Result := 'LOGNORMDIST'; + 291 : Result := 'LOGINV'; + 292 : Result := 'NEGBINOMDIST'; + 293 : Result := 'NORMDIST'; + 294 : Result := 'NORMSDIST'; + 295 : Result := 'NORMINV'; + 296 : Result := 'NORMSINV'; + 297 : Result := 'STANDARDIZE'; + 298 : Result := 'ODD'; + 299 : Result := 'PERMUT'; + 300 : Result := 'POISSON'; + 301 : Result := 'TDIST'; + 302 : Result := 'WEIBULL'; + 303 : Result := 'SUMXMY2'; + 304 : Result := 'SUMX2MY2'; + 305 : Result := 'SUMX2PY2'; + 306 : Result := 'CHITEST'; + 307 : Result := 'CORREL'; + 308 : Result := 'COVAR'; + 309 : Result := 'FORECAST'; + 310 : Result := 'FTEST'; + 311 : Result := 'INTERCEPT'; + 312 : Result := 'PEARSON'; + 313 : Result := 'RSQ'; + 314 : Result := 'STEYX'; + 315 : Result := 'SLOPE'; + 316 : Result := 'TTEST'; + 317 : Result := 'PROB'; + 318 : Result := 'DEVSQ'; + 319 : Result := 'GEOMEAN'; + 320 : Result := 'HARMEAN'; + 321 : Result := 'SUMSQ'; + 322 : Result := 'KURT'; + 323 : Result := 'SKEW'; + 324 : Result := 'ZTEST'; + 325 : Result := 'LARGE'; + 326 : Result := 'SMALL'; + 327 : Result := 'QUARTILE'; + 328 : Result := 'PERCENTILE'; + 329 : Result := 'PERCENTRANK'; + 330 : Result := 'MODE'; + 331 : Result := 'TRIMMEAN'; + 332 : Result := 'TINV'; + 336 : Result := 'CONCATENATE'; + 337 : Result := 'POWER'; + 342 : Result := 'RADIANS'; + 343 : Result := 'DEGREES'; + 344 : Result := 'SUBTOTAL'; + 345 : Result := 'SUMIF'; + 346 : Result := 'COUNTIF'; + 347 : Result := 'COUNTBLANK'; + 350 : Result := 'ISPMT'; + 351 : Result := 'DATEDIF'; + 352 : Result := 'DATESTRING'; + 353 : Result := 'NUMBERSTRING'; + 354 : Result := 'ROMAN'; + 358 : Result := 'GETPIVOTDATA'; + 359 : Result := 'HYPERLINK'; + 360 : Result := 'PHONETIC'; + 361 : Result := 'AVERAGEA'; + 362 : Result := 'MAXA'; + 363 : Result := 'MINA'; + 364 : Result := 'STDEVPA'; + 365 : Result := 'VARPA'; + 366 : Result := 'STDEVA'; + 367 : Result := 'VARA'; + else Result := 'unknown'; + end; +end; + +end. + diff --git a/components/fpspreadsheet/reference/BIFFExplorer/behtml.pas b/components/fpspreadsheet/reference/BIFFExplorer/behtml.pas new file mode 100644 index 000000000..71f255619 --- /dev/null +++ b/components/fpspreadsheet/reference/BIFFExplorer/behtml.pas @@ -0,0 +1,245 @@ +unit beHTML; + +{$mode objfpc}{$H+} + +interface + +uses + Classes, SysUtils, Graphics; + +type + THTMLHeader = (h1, h2, h3, h4, h5); + THeaderColors = Array[THTMLHeader] of TColor; + + THTMLDocument = class + private + FLines: TStrings; + FRawMode: Boolean; + FIndent: Integer; + function Indent: String; + function Raw(const AText: String): String; + function ColorToHTML(AColor: TColor): String; + public + constructor Create; + destructor Destroy; override; + procedure AddEmptyLine; + procedure AddListItem(const AText: String); + procedure AddHeader(AHeader: THTMLHeader; const AText: String); + procedure AddParagraph(const AText: String); + procedure BeginDocument(const ATitle: String; const AHeaderColors: THeaderColors; + ARawMode: Boolean=false); + procedure BeginBulletList; + procedure BeginNumberedList; + function Bold(const AText: String): String; + procedure EndDocument; + procedure EndBulletList; + procedure EndNumberedList; + function Hyperlink(const AText, ALink: String): String; + function Italic(const AText: String): String; + property Lines: TStrings read FLines; + end; + +implementation + +uses + StrUtils, LCLIntf; + +constructor THTMLDocument.Create; +begin + inherited; + FLines := TStringList.Create; +end; + +destructor THTMLDocument.Destroy; +begin + FLines.Free; + inherited; +end; + +procedure THTMLDocument.AddHeader(AHeader: THTMLHeader; const AText: String); +begin + if FRawMode then + FLines.Add(Raw(AText)) + else + FLines.Add(Format('%s<h%d>%s</h%d>', [Indent, ord(AHeader)+1, AText, ord(AHeader)+1])); +end; + + (* + +<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd"> +<html xmlns="http://www.w3.org/1999/xhtml"> +<head> +<!-- HTML Codes by Quackit.com --> +<title> +Title appears in the browser's title bar... + + + + + +

Heading goes here...

+

Enter your paragraph text here...

+ + + *) + +procedure THTMLDocument.BeginDocument(const ATitle: String; + const AHeaderColors: THeaderColors; ARawMode: Boolean = false); +begin + FRawMode := ARawMode; + FLines.Clear; + if not FRawMode then begin + FLines.Add(''); + FLines.Add(''); + FLines.Add(' '); + FLines.Add(' '); + FLines.Add(' ' + ATitle + ''); + FLines.Add(' '); + FLines.Add(' '); + FLines.Add(' '); + FIndent := 4; + end; +end; + +procedure THTMLDocument.BeginBulletList; +begin + if not FRawMode then begin + FLines.Add(Indent + '
    '); + inc(FIndent, 2); + end; +end; + +procedure THTMLDocument.BeginNumberedList; +begin + if not FRawMode then begin + FLines.Add(Indent + '
      '); + inc(FIndent, 2); + end; +end; + +procedure THTMLDocument.AddEmptyLine; +begin + if FRawMode then + FLines.Add('') + else + FLines.Add('
      '); +end; + +procedure THTMLDocument.AddListItem(const AText: String); +begin + if FRawMode then + FLines.Add('- ' + Raw(AText)) + else + FLines.Add(Indent + '
    1. ' + AText + '
      2. '); +end; + +procedure THTMLDocument.AddParagraph(const AText: String); +begin + if FRawMode then + FLines.Add(Raw(AText)) + else + FLines.Add(Indent + '

      ' + AText + '

      '); +end; + +function THTMLDocument.Bold(const AText: String): String; +begin + if FRawMode then + Result := AText + else + Result := '' + AText + ''; +end; + +function THTMLDocument.ColorToHTML(AColor: TColor): String; +var + tmpRGB: LongInt; +begin + tmpRGB := ColorToRGB(AColor) ; + Result := Format('#%.2x%.2x%.2x', [ + GetRValue(tmpRGB), + GetGValue(tmpRGB), + GetBValue(tmpRGB) + ]) ; +end; + +procedure THTMLDocument.EndDocument; +begin + if not FRawMode then begin + FLines.Add(' '); + FLines.Add(''); + end; +end; + +procedure THTMLDocument.EndBulletList; +begin + if not FRawMode then begin + dec(FIndent, 2); + FLines.Add(Indent + '
'); + end; +end; + +procedure THTMLDocument.EndNumberedList; +begin + if not FRawMode then begin + dec(FIndent, 2); + FLines.Add(Indent + ''); + end; +end; + +function THTMLDocument.Hyperlink(const AText, ALink: String): String; +begin + if FRawMode then + Result := Format('%s (%s)', [AText, ALink]) + else + Result := Format('%s', [ALink, AText]); +end; + +function THTMLDocument.Indent: String; +begin + Result := DupeString(' ', FIndent); +end; + +function THTMLDocument.Italic(const AText: String): String; +begin + if FRawMode then + Result := AText + else + Result := '' + AText + ''; +end; + +function THTMLDocument.Raw(const AText: String): String; +var + i, n: Integer; +begin + Result := ''; + if AText = '' then + exit; + n := Length(AText); + i := 1; + while (i <= n) do begin + if AText[i] = '<' then + repeat + inc(i); + until (i = n) or (AText[i] = '>') + else + Result := Result + AText[i]; + inc(i); + end; +end; + +end. + diff --git a/components/fpspreadsheet/reference/BIFFExplorer/bemain.lfm b/components/fpspreadsheet/reference/BIFFExplorer/bemain.lfm new file mode 100644 index 000000000..3afa0069b --- /dev/null +++ b/components/fpspreadsheet/reference/BIFFExplorer/bemain.lfm @@ -0,0 +1,1255 @@ +object MainForm: TMainForm + Left = 352 + Height = 576 + Top = 177 + Width = 1089 + Caption = 'BIFF Explorer' + ClientHeight = 556 + ClientWidth = 1089 + Menu = MainMenu + OnCloseQuery = FormCloseQuery + OnCreate = FormCreate + OnDestroy = FormDestroy + OnShow = FormShow + ShowHint = True + LCLVersion = '1.3' + object Splitter1: TSplitter + Left = 419 + Height = 507 + Top = 26 + Width = 5 + end + object ToolBar: TToolBar + Left = 0 + Height = 26 + Top = 0 + Width = 1089 + Caption = 'ToolBar' + Images = ImageList + TabOrder = 1 + object ToolButton1: TToolButton + Left = 1 + Top = 2 + Action = AcFileOpen + DropdownMenu = RecentFilesPopupMenu + Style = tbsDropDown + end + object ToolButton2: TToolButton + Left = 64 + Top = 2 + Action = AcFileQuit + end + object ToolButton3: TToolButton + Left = 36 + Top = 2 + Action = AcFind + end + object ToolButton4: TToolButton + Left = 59 + Top = 2 + Width = 5 + Caption = 'ToolButton4' + Style = tbsDivider + end + end + object DetailPanel: TPanel + Left = 424 + Height = 507 + Top = 26 + Width = 665 + Align = alClient + BevelOuter = bvNone + ClientHeight = 507 + ClientWidth = 665 + TabOrder = 2 + object HexSplitter: TSplitter + Cursor = crVSplit + Left = 0 + Height = 5 + Top = 244 + Width = 665 + Align = alBottom + ResizeAnchor = akBottom + end + object HexPanel: TPanel + Left = 0 + Height = 244 + Top = 0 + Width = 665 + Align = alClient + Caption = 'HexPanel' + ClientHeight = 244 + ClientWidth = 665 + TabOrder = 1 + object HexGrid: TStringGrid + Left = 1 + Height = 242 + Top = 1 + Width = 398 + Align = alClient + AutoFillColumns = True + ColCount = 17 + DefaultColWidth = 28 + ExtendedSelect = False + Options = [goFixedVertLine, goFixedHorzLine, goHorzLine, goRangeSelect, goDrawFocusSelected, goThumbTracking, goSmoothScroll] + ParentFont = False + TabOrder = 0 + TitleStyle = tsNative + OnClick = GridClick + OnPrepareCanvas = HexGridPrepareCanvas + OnSelection = HexGridSelection + ColWidths = ( + 28 + 22 + 22 + 22 + 22 + 22 + 22 + 22 + 22 + 22 + 22 + 22 + 22 + 22 + 22 + 22 + 36 + ) + Cells = ( + 16 + 1 + 0 + '0' + 2 + 0 + '1' + 3 + 0 + '2' + 4 + 0 + '3' + 5 + 0 + '4' + 6 + 0 + '5' + 7 + 0 + '6' + 8 + 0 + '7' + 9 + 0 + '8' + 10 + 0 + '9' + 11 + 0 + '10' + 12 + 0 + '11' + 13 + 0 + '12' + 14 + 0 + '13' + 15 + 0 + '14' + 16 + 0 + '15' + ) + end + object AlphaGrid: TStringGrid + Left = 404 + Height = 242 + Top = 1 + Width = 260 + Align = alRight + AutoFillColumns = True + ColCount = 16 + FixedCols = 0 + Options = [goFixedVertLine, goFixedHorzLine, goHorzLine, goRangeSelect, goDrawFocusSelected, goThumbTracking, goSmoothScroll] + ParentFont = False + TabOrder = 1 + TitleStyle = tsNative + OnClick = GridClick + OnSelection = AlphaGridSelection + ColWidths = ( + 16 + 16 + 16 + 16 + 16 + 16 + 16 + 16 + 16 + 16 + 16 + 16 + 16 + 16 + 16 + 16 + ) + Cells = ( + 16 + 0 + 0 + '0' + 1 + 0 + '1' + 2 + 0 + '2' + 3 + 0 + '3' + 4 + 0 + '4' + 5 + 0 + '5' + 6 + 0 + '6' + 7 + 0 + '7' + 8 + 0 + '8' + 9 + 0 + '9' + 10 + 0 + 'A' + 11 + 0 + 'B' + 12 + 0 + 'C' + 13 + 0 + 'D' + 14 + 0 + 'E' + 15 + 0 + 'F' + ) + end + object HexDumpSplitter: TSplitter + Left = 399 + Height = 242 + Top = 1 + Width = 5 + Align = alRight + ResizeAnchor = akRight + end + end + object PageControl: TPageControl + Left = 0 + Height = 258 + Top = 249 + Width = 665 + ActivePage = PgValues + Align = alBottom + TabIndex = 1 + TabOrder = 2 + OnChange = PageControlChange + object PgAnalysis: TTabSheet + Caption = 'Analysis' + ClientHeight = 230 + ClientWidth = 657 + object AnalysisDetails: TMemo + Left = 428 + Height = 230 + Top = 0 + Width = 229 + Align = alRight + Font.CharSet = ANSI_CHARSET + Font.Height = -12 + Font.Name = 'Courier New' + Font.Pitch = fpFixed + Font.Quality = fqDraft + ParentFont = False + ScrollBars = ssAutoBoth + TabOrder = 0 + WordWrap = False + end + object DetailsSplitter: TSplitter + Left = 423 + Height = 230 + Top = 0 + Width = 5 + Align = alRight + ResizeAnchor = akRight + end + end + object PgValues: TTabSheet + Caption = 'Values' + ClientHeight = 230 + ClientWidth = 657 + object ValueGrid: TStringGrid + Left = 0 + Height = 230 + Top = 0 + Width = 657 + Align = alClient + ColCount = 3 + DefaultColWidth = 100 + FixedCols = 0 + Options = [goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine, goRangeSelect, goDrawFocusSelected, goColSizing, goSmoothScroll] + RowCount = 9 + TabOrder = 0 + TitleStyle = tsNative + ColWidths = ( + 112 + 142 + 141 + ) + Cells = ( + 3 + 0 + 0 + 'Data type' + 1 + 0 + 'Value' + 2 + 0 + 'Offset range' + ) + end + end + end + end + object TreePanel: TPanel + Left = 0 + Height = 507 + Top = 26 + Width = 419 + Align = alLeft + BevelOuter = bvNone + ClientHeight = 507 + ClientWidth = 419 + Constraints.MinWidth = 275 + TabOrder = 3 + object FindPanel: TPanel + Left = 0 + Height = 36 + Top = 471 + Width = 419 + Align = alBottom + BevelOuter = bvNone + ClientHeight = 36 + ClientWidth = 419 + TabOrder = 0 + Visible = False + object BtnFindNext: TSpeedButton + Left = 240 + Height = 22 + Hint = 'Find next' + Top = 6 + Width = 23 + Action = AcFindNext + Flat = True + Glyph.Data = { + 36040000424D3604000000000000360000002800000010000000100000000100 + 2000000000000004000064000000640000000000000000000000FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00E297 + 3A00D98E3300CB802900BC711D00AE631200A05509159B5005AE9B5005AEA055 + 0915AE631200BC711D00CB802900D98E3300E2973A00FFFFFF00FFFFFF00E297 + 3A00D98E3300CB802900BC711D00AE631215A75C0DAED38D19E6D38C18E6A75C + 0DAEAE631215BC711D00CB802900D98E3300E2973A00FFFFFF00FFFFFF00E297 + 3A00D98E3300CB802900BC711D15B56A18AED69737E6F1B436FFF0B130FFD492 + 2DE6B56A18AEBC711D15CB802900D98E3300E2973A00FFFFFF00FFFFFF00E297 + 3A00D98E3300CB802915C37923AEDCA553E6E3B25DFFD3953BFFD3953BFFDFA9 + 52FFD69A45E6C37923AECB802915D98E3300E2973A00FFFFFF00FFFFFF00E297 + 3A00D98E3315D2872EAEE8B563E6F7CB7FFFEAAF63FFE0A559FFD69B4FFFD195 + 49FFDDAC60FFDFA553E6D2872EAED98E3315E2973A00FFFFFF00FFFFFF00E297 + 3A15DF9438AEF0BD69E6FEDE92FFFCD68AFFFCD68AFFFCD68AFFFCD68AFFFCD5 + 89FFFCD589FFFDDA8EFFEFBA66E6DF9438AEE2973A15FFFFFF00FFFFFF00E69B + 3D33E89D3FCCE89D3FCCE89D3FCCE89D3FCCE89D3FCCE89D3FCCE89D3FCCE89D + 3FCCE89D3FCCE89D3FCCE89D3FCCE89D3FCCE69B3D33FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00 + } + end + object BtnFindPrev: TSpeedButton + Left = 216 + Height = 22 + Hint = 'Find previous' + Top = 6 + Width = 23 + Action = AcFindPrev + Flat = True + Glyph.Data = { + 36040000424D3604000000000000360000002800000010000000100000000100 + 2000000000000004000064000000640000000000000000000000FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF009C51 + 06999B5005CC9B5005CC9B5005CC9B5005CC9B5005CC9B5005CC9B5005CC9B50 + 05CC9B5005CC9B5005CC9B5005CC9C510699FFFFFF00FFFFFF00FFFFFF00A55A + 0C5CA75C0DCCF9C966FFFAB827FFFBB71CFFFBB518FFFBB414FFFBB311FFFBB2 + 0FFFFBB20EFFFBB516FFA75C0DCCA55A0C5CFFFFFF00FFFFFF00FFFFFF00A75C + 0D00B368175CB56A18CCF8CF80FFE6A53EFFDE9D2FFFDD9C2EFFDD9C2EFFDD9C + 2EFFE6AE47FFB56A18CCB368175CA75C0D00FFFFFF00FFFFFF00FFFFFF00A75C + 0D00B56A1800C177225CC37923CCFBD98DFFECB367FFE1A75BFFD79C50FFE7BC + 70FFC37923CCC177225CB56A1800A75C0D00FFFFFF00FFFFFF00FFFFFF00A75C + 0D00B56A1800C3792300D0852D5CD2872ECCFEE195FFF8C77BFFFDDE92FFD287 + 2ECCD0852D5CC3792300B56A1800A75C0D00FFFFFF00FFFFFF00FFFFFF00A75C + 0D00B56A1800C3792300D2872E00DE93375CDF9438CCFFE599FFDF9438CCDE93 + 375CD2872E00C3792300B56A1800A75C0D00FFFFFF00FFFFFF00FFFFFF00A75C + 0D00B56A1800C3792300D2872E00DF943800E79C3E5CE89D3FCCE79C3E5CDF94 + 3800D2872E00C3792300B56A1800A75C0D00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00 + } + end + object SpeedButton3: TSpeedButton + Left = 3 + Height = 22 + Hint = 'Close "find" panel' + Top = 6 + Width = 23 + Action = AcFindClose + Flat = True + Glyph.Data = { + 36040000424D3604000000000000360000002800000010000000100000000100 + 2000000000000004000064000000640000000000000000000000FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00000072000000614800005FCC000061480000720000008200000082000000 + 72000000614800005FCC0000614800007200FFFFFF00FFFFFF00FFFFFF00FFFF + FF0000007548000072CC1111D8FF000072CC0000754800008200000082000000 + 7548000072CC1111D8FF000072CC00007548FFFFFF00FFFFFF00FFFFFF00FFFF + FF00000082CC1111D0FF1111D0FF1111D0FF000082CC00008348000083480000 + 82CC1111D0FF1111D0FF1111D0FF000082CCFFFFFF00FFFFFF00FFFFFF00FFFF + FF0000008748000087CC1111C4FF1111C4FF1111C4FF000087CC000087CC1111 + C4FF1111C4FF1111C4FF000087CC00008748FFFFFF00FFFFFF00FFFFFF00FFFF + FF000000870000008C4800008DCC1111B8FF1111B8FF1111B8FF1111B8FF1111 + B8FF1111B8FF00008DCC00008C4800008700FFFFFF00FFFFFF00FFFFFF00FFFF + FF000000870000008D0000009148000092CC1515AFFF1111ACFF1111ACFF1111 + ACFF000092CC0000914800008D0000008700FFFFFF00FFFFFF00FFFFFF00FFFF + FF000000A00000009B0000009848000097CC2525B4FF1111A2FF1111A2FF1414 + A5FF000097CC0000984800009B000000A000FFFFFF00FFFFFF00FFFFFF00FFFF + FF000000A00000009C4800009BCC5353DBFF2E2EB7FF3D3DC6FF3131BAFF1515 + 9FFF1E1EA8FF00009BCC00009C480000A000FFFFFF00FFFFFF00FFFFFF00FFFF + FF000000A1480000A0CC6767EFFF3636BEFF5E5EE6FF0000A0CC0000A0CC4F4F + D7FF3636BEFF4545CDFF0000A0CC0000A148FFFFFF00FFFFFF00FFFFFF00FFFF + FF000000A3CC7676FEFF4C4CD4FF7272FAFF0000A3CC0000A3480000A3480000 + A3CC6262EAFF4C4CD4FF5C5CE4FF0000A3CCFFFFFF00FFFFFF00FFFFFF00FFFF + FF000000A7480000A7CC7777FFFF0000A7CC0000A7480000A3000000A3000000 + A7480000A7CC7070F8FF0000A7CC0000A748FFFFFF00FFFFFF00FFFFFF00FFFF + FF000000A7000000AA480000AACC0000AA480000A7000000A3000000A3000000 + A7000000AA480000AACC0000AA480000A700FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00 + } + end + object CbFind: TComboBox + Left = 28 + Height = 23 + Top = 5 + Width = 183 + ItemHeight = 15 + OnChange = CbFindChange + OnKeyPress = CbFindKeyPress + TabOrder = 0 + end + end + object BIFFTree: TVirtualStringTree + Left = 0 + Height = 471 + Top = 0 + Width = 419 + Align = alClient + ButtonStyle = bsTriangle + DefaultText = 'Node' + Header.AutoSizeIndex = 3 + Header.Columns = < + item + Alignment = taRightJustify + CaptionAlignment = taRightJustify + MinWidth = 80 + Options = [coAllowClick, coDraggable, coEnabled, coParentBidiMode, coParentColor, coResizable, coShowDropMark, coVisible, coAllowFocus, coUseCaptionAlignment] + Position = 0 + Text = 'Offset' + Width = 80 + end + item + Alignment = taCenter + MinWidth = 60 + Position = 1 + Text = 'Record ID' + Width = 80 + end + item + MinWidth = 80 + Position = 2 + Text = 'Record name' + Width = 130 + end + item + MinWidth = 80 + Position = 3 + Text = 'Record description' + Width = 125 + end> + Header.DefaultHeight = 24 + Header.Height = 24 + Header.Options = [hoAutoResize, hoColumnResize, hoDrag, hoShowSortGlyphs, hoVisible] + HintMode = hmTooltip + PopupMenu = TreePopupMenu + TabOrder = 1 + TreeOptions.AutoOptions = [toAutoDropExpand, toAutoScrollOnExpand, toAutoSpanColumns, toAutoTristateTracking, toAutoDeleteMovedNodes] + TreeOptions.PaintOptions = [toShowButtons, toShowDropmark, toShowRoot, toThemeAware, toUseBlendedImages] + TreeOptions.SelectionOptions = [toFullRowSelect] + OnBeforeCellPaint = BIFFTreeBeforeCellPaint + OnFocusChanged = BIFFTreeFocusChanged + OnFreeNode = BIFFTreeFreeNode + OnGetText = BIFFTreeGetText + OnPaintText = BIFFTreePaintText + OnGetNodeDataSize = BIFFTreeGetNodeDataSize + end + end + object StatusBar: TStatusBar + Left = 0 + Height = 23 + Top = 533 + Width = 1089 + Panels = < + item + Width = 120 + end + item + Width = 180 + end + item + Width = 150 + end + item + Width = 180 + end> + SimplePanel = False + end + object ImageList: TImageList + left = 80 + top = 64 + Bitmap = { + 4C69090000001000000010000000FFFFFF00FFFFFF000088CC610088CC810088 + CC810088CC810088CC810088CC810088CC810088CC810088CC810088CC810088 + CC810088CC610087CB00FFFFFF00FFFFFF00FFFFFF000087CA8388DCF4FF60C0 + E9FF5FBFEAFF80D3F4FF9CE3FDFFA2E6FFFFA2E6FFFFA2E6FFFFA2E6FFFFA6EA + FFFF0087CA830087CA00FFFFFF00FFFFFF00FFFFFF000085C885ACF1FFFFABEF + FEFF95E2F8FF6EC9EDFF48A8D9FF98DCFEFF98DCFEFF98DCFEFF98DCFEFFA1E5 + FFFF0085C8850085C800FFFFFF00FFFFFF00FFFFFF000084C587A9EEFDFFA4E9 + FCFFA4E9FCFFAAEEFDFF42A1D1FF97DBFDFF97DBFDFF97DBFDFF97DBFDFF9FE3 + FEFF0084C5870084C500FFFFFF00FFFFFF00FFFFFF000082C28AA6EBFCFFA1E6 + FBFFA1E6FBFFA6EBFCFF3C9DCFFF96DAFCFF96DAFCFF96DAFCFF96DAFCFF9EE2 + FDFF0082C28A0082C200FFFFFF00FFFFFF00FFFFFF00007FBF8DA3E8FBFF9DE3 + F9FF9DE3F9FFA3E8FBFF3594C5FF94D8FAFF94D8FAFF94D8FAFF94D8FAFF9BDF + FCFF007FBF8D007FBE00FFFFFF00FFFFFF00FFFFFF00007DBB909EE5F9FF98DF + F6FF98DFF6FF9EE5F9FF3290C0FF92D6F8FF92D6F8FF92D6F8FF92D6F8FF99DD + FAFF007DBB90007DBB33FFFFFF00FFFFFF00FFFFFF00007BB8949BE1F7FF94DB + F4FF94DBF4FF9BE1F7FF308DBCFF90D4F6FF90D4F6FF90D4F6FF90D4F6FF97DB + F9FFFEFEFDFF007BB894FFFFFF00FFFFFF00FFFFFF000078B49797DEF6FF90D8 + F2FF90D8F2FF97DEF6FF2D89B7FF8FD3F5FF8FD3F5FF8FD3F5FF8FD3F5FF95D9 + F8FFF5F5EEFF0078B497FFFFFF00FFFFFF00FFFFFF000076B09B92DAF4FF8BD4 + F0FF8BD4F0FF92DAF4FF2B85B3FF8DD1F3FF8DD1F3FF8DD1F3FF8DD1F3FF93D7 + F6FFEBEBDDFF0076B09BFFFFFF00FFFFFF00FFFFFF000073AC9E8ED6F2FF87D0 + EDFF87D0EDFF8ED6F2FF2882AFFF8BCFF1FF8BCFF1FF8BCFF1FF8BCFF1FF91D5 + F5FFFEC941FF0073AC9EFFFFFF00FFFFFF00FFFFFF00006FA7A48AD3F0FF82CD + EBFF82CDEBFF8AD3F0FF267EABFF8ACEF0FF8ACEF0FF8ACEF0FF8ACEF0FF8FD3 + F4FFF4B62EFF006FA7A4FFFFFF00FFFFFF00FFFFFF00006699B287D1EFFF7FCA + E9FF7FCAE9FF87D0EFFF267DA9FF8DD1F3FF8DD1F3FF8DD1F3FF8DD1F3FF90D4 + F5FF006699B200679B3EFFFFFF00FFFFFF00FFFFFF00005E8D8E3591BDF169B8 + DDFA81CBECFF84CEEEFF005C8BEF005D8CBE005D8CBE005D8CBE005D8CBE005D + 8CBE005E8D8E00669900FFFFFF00FFFFFF00FFFFFF00005D8C00006599500064 + 97991C7AA9C052A5CDE0005B89C1005B8900005B8900005B8900005B8900005B + 8900005D8C0000669900FFFFFF00FFFFFF00FFFFFF00005D8C00006497000062 + 9300005E8E30005C8C7C0059879200598700005B8900005B8900005B8900005B + 8900005D8C0000669900FFFFFF00003F9300003F9300003F9300003F9424003F + 948A003E93CC004095CC004095CC004095CC004095CC004095CC004095CC0040 + 95CC004095CC00409599FFFFFF00003F9300003F9324003F938A0E4B9CD33F76 + C0EC5D90D4FF3365A9FFA0A0A0FFA9A9A9FFA9A9A9FFAAAAAAFFACACACFFAEAE + AEFFB0B0B0FF003E93CCFFFFFF00003F938A0E4A9CD33E75BFEC5487CBFF3669 + ADFF23569AFF3363A6FFA9A9A9FFBCBCBCFFBDBDBDFFBFBFBFFFC1C1C1FFC4C4 + C4FFC7C7C7FF003C90CCFFFFFF00003D91CC5D90D4FF3568ACFF285B9FFF1A4D + 91FF4477BBFF3361A4FFA9A9A9FFBDBDBDFFBFBFBFFFC1C1C1FFC4C4C4FFC7C7 + C7FFC9C9C9FF003A8DCCFFFFFF00003B8ECC588BCFFF1A4D91FF4376BAFF3265 + A9FF4376BAFF335FA1FFAAAAAAFFBFBFBFFFC1C1C1FFC4C4C4FFC7C7C7FFC9C9 + C9FFCCCCCCFF003789CCFFFFFF0000398BCC5588CCFF275A9EFF4174B8FF3164 + A8FF4174B8FF335D9EFFACACACFFC1C1C1FFC4C4C4FFC7C7C7FFC9C9C9FFCCCC + CCFFD0D0D0FF003485CCFFFFFF00003688CC5386CAFF295CA0FF3F72B6FF3063 + A7FF3F72B6FF335A9AFFAEAEAEFFC4C4C4FFC7C7C7FFC9C9C9FFCCCCCCFFD0D0 + D0FFD3D3D3FF003181CCFFFFFF00003485CC5083C7FF1D5094FF3265A9FF2D60 + A4FF3D70B4FF335897FFB0B0B0FFC7C7C7FFC9C9C9FFCCCCCCFFD0D0D0FFD3D3 + D3FFD5D5D5FF002E7DCCFFFFFF00003181CC4C7FC3FFBBBBBBFF22518CFF2C5F + A3FF3B6EB2FF335593FFB3B3B3FFC9C9C9FFCCCCCCFFD0D0D0FFD3D3D3FFD5D5 + D5FFD8D8D8FF002B78CCFFFFFF00002E7DCC497CC0FF09336FFF215090FF2B5E + A2FF396CB0FF335290FFB5B5B5FFCCCCCCFFD0D0D0FFD3D3D3FFD5D5D5FFD8D8 + D8FFDBDBDBFF002774CCFFFFFF00002B79CC477ABEFF2C5FA3FF376AAEFF2B5E + A2FF376AAEFF33508CFFB8B8B8FFD0D0D0FFD3D3D3FFD5D5D5FFD8D8D8FFDBDB + DBFFDCDCDCFF00246FCCFFFFFF00002875CC4477BBFF2C5FA3FF3568ACFF2B5E + A2FF2E61A5FF334B87FFBBBBBBFFD3D3D3FFD5D5D5FFD8D8D8FFDBDBDBFFDCDC + DCFFDDDDDDFF001F68CCFFFFFF00002571CC4174B8FF2C5FA3FF2D60A4FF2356 + 9AFF3D70B4FF334179FFBEBEBEFFD5D5D5FFD8D8D8FFDBDBDBFFDCDCDCFFDDDD + DDFFDDDDDDFF001258CCFFFFFF0000226DCC3F72B6FF225599FF3B6EB2FF2C51 + 96EC0A1C60D3000749A4000648CC000648CC000648CC000648CC000648CC0006 + 48CC000648CC00074A99FFFFFF00001B64CC4174B8FF2A5094EC0A1A5ED30008 + 4A8A000648240006470000044500000445000004450000044500000445000004 + 45000004450000064800FFFFFF0000105500000B4FCC0007498A000546240005 + 4700000648000006470000044500000445000004450000044500000445000004 + 45000004450000064800FFFFFF004E4E4E005151510054545411555555405555 + 555A555555655555555A5555554054545411515151004E4E4E004E4E4E002957 + 27000569000007710000FFFFFF004E4E4E005151512163605E62B1A3948BE6D5 + C5AFF4EADFC7EDE3D9B5B6ACA28E63605E62515151214E4E4E004E4E4E004E4E + 4E004E4E4E004E4E4E00FFFFFF004D4D4D115F5D5A64D5C1AEA1EBD8C4C2F6EC + E2CDF6EDE4CEF6EDE4CEF6ECE2CDD9C8B8A4605D5B644D4D4D114C4C4C004C4C + 4C004C4C4C004C4C4C00FFFFFF0049494943AD9F918EE8D2BBC0F1E3D5C8F6ED + E4CEF6EDE4CEF6EDE4CEF6EDE4CEF2E4D6C8B0A4979149494943494949004949 + 49004949490049494900FFFFFF0043434360E0CBB6ACE8D2BBC0E8D2BBC0E8D2 + BBC0E8D2BBC0E8D2BBC0E8D2BBC0E8D2BBC0E4D3C1B243434360434343004343 + 43004343430043434300FFFFFF003E3E3E6FE9D4BEBEE8D2BBC0E8D2BBC0F6ED + E4CEF6EDE4CEF6EDE4CEF6EDE4CEF6EDE4CEEDDBC8C53E3E3E6F3E3E3E003E3E + 3E003E3E3E003E3E3E00FFFFFF0038383865E1CFBCB1E8D2BBC0F6EDE4CEF6ED + E4CEF6EDE4CEF6EDE4CEF6EDE4CEF6EDE4CEE7D8CAB838383865383838003838 + 38003838380038383800FFFFFF0031313149A89D9397EAD5BFC3F5E9DFCBF6ED + E4CEF6EDE4CEF6EDE4CEF6EDE4CEF6ECE2CEADA69E9D31313149313131003131 + 31003131310031313100FFFFFF00262626143B3A3874D7C9BCAFF3E6D9CBF6ED + E4CEF6EDE4CEF6EDE4CEF7EFE6D1E4DED9C84544437D34343424383838003939 + 39003A3A3A003C3C3C00FFFFFF001E1E1E001111112A2826257D9D9791A5EEE8 + E3C4F9F3EDD6EFEAE5C5A3A09EA92827278AACACACFF373737753737371F3939 + 39003A3A3A003C3C3C00FFFFFF001E1E1E000E0E0E0004040416040404560404 + 04790404048704040479040404560404042A0F0F0F86B8B5B5FF4241417E3838 + 382A3A3A3A003C3C3C00FFFFFF001E1E1E000E0E0E0004040400040404000404 + 040004040400040404000404040004040400040404251A1A1A8FC8C1C1FF4F4D + 4D88393939383C3C3C00FFFFFF001E1E1E000E0E0E0004040400040404000404 + 040004040400040404000404040004040400040404000404043328272799D9CE + CEFF605C5C913A3A3A4DFFFFFF001E1E1E000E0E0E0004040400040404000404 + 0400040404000404040004040400040404000404040004040400040404443B38 + 38A2E8D8D8FF32323276FFFFFF001E1E1E000E0E0E0004040400040404000404 + 0400040404000404040004040400040404000404040004040400040404000404 + 045C090909892525252CFFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF000000A7000000AA480000 + AACC0000AA480000A7000000A3000000A3000000A7000000AA480000AACC0000 + AA480000A700FFFFFF00FFFFFF00FFFFFF00FFFFFF000000A7480000A7CC7777 + FFFF0000A7CC0000A7480000A3000000A3000000A7480000A7CC7070F8FF0000 + A7CC0000A748FFFFFF00FFFFFF00FFFFFF00FFFFFF000000A3CC7676FEFF4C4C + D4FF7272FAFF0000A3CC0000A3480000A3480000A3CC6262EAFF4C4CD4FF5C5C + E4FF0000A3CCFFFFFF00FFFFFF00FFFFFF00FFFFFF000000A1480000A0CC6767 + EFFF3636BEFF5E5EE6FF0000A0CC0000A0CC4F4FD7FF3636BEFF4545CDFF0000 + A0CC0000A148FFFFFF00FFFFFF00FFFFFF00FFFFFF000000A00000009C480000 + 9BCC5353DBFF2E2EB7FF3D3DC6FF3131BAFF15159FFF1E1EA8FF00009BCC0000 + 9C480000A000FFFFFF00FFFFFF00FFFFFF00FFFFFF000000A00000009B000000 + 9848000097CC2525B4FF1111A2FF1111A2FF1414A5FF000097CC000098480000 + 9B000000A000FFFFFF00FFFFFF00FFFFFF00FFFFFF000000870000008D000000 + 9148000092CC1515AFFF1111ACFF1111ACFF1111ACFF000092CC000091480000 + 8D0000008700FFFFFF00FFFFFF00FFFFFF00FFFFFF000000870000008C480000 + 8DCC1111B8FF1111B8FF1111B8FF1111B8FF1111B8FF1111B8FF00008DCC0000 + 8C4800008700FFFFFF00FFFFFF00FFFFFF00FFFFFF0000008748000087CC1111 + C4FF1111C4FF1111C4FF000087CC000087CC1111C4FF1111C4FF1111C4FF0000 + 87CC00008748FFFFFF00FFFFFF00FFFFFF00FFFFFF00000082CC1111D0FF1111 + D0FF1111D0FF000082CC0000834800008348000082CC1111D0FF1111D0FF1111 + D0FF000082CCFFFFFF00FFFFFF00FFFFFF00FFFFFF0000007548000072CC1111 + D8FF000072CC00007548000082000000820000007548000072CC1111D8FF0000 + 72CC00007548FFFFFF00FFFFFF00FFFFFF00FFFFFF0000007200000061480000 + 5FCC00006148000072000000820000008200000072000000614800005FCC0000 + 614800007200FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00E69B3D33E89D3FCCE89D3FCCE89D + 3FCCE89D3FCCE89D3FCCE89D3FCCE89D3FCCE89D3FCCE89D3FCCE89D3FCCE89D + 3FCCE89D3FCCE69B3D33FFFFFF00FFFFFF00E2973A15DF9438AEF0BD69E6FEDE + 92FFFCD68AFFFCD68AFFFCD68AFFFCD68AFFFCD589FFFCD589FFFDDA8EFFEFBA + 66E6DF9438AEE2973A15FFFFFF00FFFFFF00E2973A00D98E3315D2872EAEE8B5 + 63E6F7CB7FFFEAAF63FFE0A559FFD69B4FFFD19549FFDDAC60FFDFA553E6D287 + 2EAED98E3315E2973A00FFFFFF00FFFFFF00E2973A00D98E3300CB802915C379 + 23AEDCA553E6E3B25DFFD3953BFFD3953BFFDFA952FFD69A45E6C37923AECB80 + 2915D98E3300E2973A00FFFFFF00FFFFFF00E2973A00D98E3300CB802900BC71 + 1D15B56A18AED69737E6F1B436FFF0B130FFD4922DE6B56A18AEBC711D15CB80 + 2900D98E3300E2973A00FFFFFF00FFFFFF00E2973A00D98E3300CB802900BC71 + 1D00AE631215A75C0DAED38D19E6D38C18E6A75C0DAEAE631215BC711D00CB80 + 2900D98E3300E2973A00FFFFFF00FFFFFF00E2973A00D98E3300CB802900BC71 + 1D00AE631200A05509159B5005AE9B5005AEA0550915AE631200BC711D00CB80 + 2900D98E3300E2973A00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00A75C0D00B56A1800C3792300D287 + 2E00DF943800E79C3E5CE89D3FCCE79C3E5CDF943800D2872E00C3792300B56A + 1800A75C0D00FFFFFF00FFFFFF00FFFFFF00A75C0D00B56A1800C3792300D287 + 2E00DE93375CDF9438CCFFE599FFDF9438CCDE93375CD2872E00C3792300B56A + 1800A75C0D00FFFFFF00FFFFFF00FFFFFF00A75C0D00B56A1800C3792300D085 + 2D5CD2872ECCFEE195FFF8C77BFFFDDE92FFD2872ECCD0852D5CC3792300B56A + 1800A75C0D00FFFFFF00FFFFFF00FFFFFF00A75C0D00B56A1800C177225CC379 + 23CCFBD98DFFECB367FFE1A75BFFD79C50FFE7BC70FFC37923CCC177225CB56A + 1800A75C0D00FFFFFF00FFFFFF00FFFFFF00A75C0D00B368175CB56A18CCF8CF + 80FFE6A53EFFDE9D2FFFDD9C2EFFDD9C2EFFDD9C2EFFE6AE47FFB56A18CCB368 + 175CA75C0D00FFFFFF00FFFFFF00FFFFFF00A55A0C5CA75C0DCCF9C966FFFAB8 + 27FFFBB71CFFFBB518FFFBB414FFFBB311FFFBB20FFFFBB20EFFFBB516FFA75C + 0DCCA55A0C5CFFFFFF00FFFFFF00FFFFFF009C5106999B5005CC9B5005CC9B50 + 05CC9B5005CC9B5005CC9B5005CC9B5005CC9B5005CC9B5005CC9B5005CC9B50 + 05CC9C510699FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF004F4F4F005050500052525200535353005454 + 54155555553E555555555555556355555563555555555555553E545454155353 + 530052525200505050004F4F4F004F4F4F0050505000525252075353533D7373 + 7378C8C8C8D2EAEAEAFFE6E6E6FFE6E6E6FFEAEAEAFFC7C7C7D2727272785353 + 533D52525207505050004F4F4F004F4F4F00505050075151514D9F9F9FA1E6E6 + E6FFD7B0A3FFD08C75FFCD6C4BFFCD6C4BFFD08C75FFD6AFA2FFE3E4E4FF9D9D + 9DA15151514D505050074F4F4F004E4E4E004E4E4E3F9D9D9DA2DFDFDFFFCB79 + 5EFFDB7A58FFEE906EFFF49674FFF49573FFED8E6CFFDA7856FFCB795EFFDBDC + DCFF999999A24E4E4E3F4E4E4E004B4B4B176C6C6C7CDFE0E0FFC8755AFFE283 + 61FFDC7A58FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFE2987FFFDF7E5CFFC875 + 5AFFD8D8D8FF6969697C4B4B4B1748484842BEBFBFD4C9A295FFD57452FFE281 + 5FFFD26C4AFFD5A291FFD5A291FFE6C2B6FFFFFFFFFFE0AD9CFFDF7C5AFFD16E + 4CFFC7A194FFB2B3B3D4484848424545455CDBDCDCFFC07C65FFDF805EFFCF69 + 47FFCF6947FFCA6442FFC05937FFC28775FFCCCCCCFFBC8877FFAD4624FFC360 + 3EFFC07C65FFCBCCCCFF4545455C4242426CCFCFCFFFBC5B3BFFDD7D5BFFC962 + 40FFBD5330FFB44A26FFBC7259FFD1CFCFFFC7AEA5FFB24824FFB34925FFBD55 + 32FFBC5B3BFFC3C3C3FF4242426C3E3E3E6ECCCCCCFFB95737FFD5714DFFBF50 + 2AFFBD4E27FFB94B26FFDBDBDBFFDBDBDBFFB94C26FFBD4E27FFBD4E27FFC154 + 2EFFB95737FFC0C0C0FF3E3E3E6E3A3A3A61D0CFCFFFB9745DFFCF643EFFC954 + 2AFFC9542AFFC9542AFFBB4D27FFBB4D27FFC9542AFFC9542AFFC9542AFFC554 + 2CFFB9745DFFC2C0C0FF3A3A3A6137373747ACAAAAD7C09789FFBF5631FFD85F + 33FFD55A2DFFCB542AFFEEEEEEFFEEEEEEFFCB542AFFD55A2DFFD55A2DFFBC4F + 29FFBF9588FFA29F9FD7373737473434341953515186D4CECEFFB35F44FFC957 + 2FFFE16132FFD3592DFFEEEEEEFFEEEEEEFFD3592DFFE15F30FFC8532AFFB35F + 44FFD0C9C9FF5150508634343419303030002F2F2F48827E7EACDBD1D1FFAC57 + 3CFFB6461FFFD6592AFFE56230FFE56230FFD6592AFFB6461FFFAC573CFFDACF + CFFF817C7CAC2F2F2F48303030002E2E2E002C2C2C092626265C807979AFE4D6 + D6FFC69689FFAD644EFF943312FF943312FFAD644EFFC69689FFE3D6D6FF7F79 + 79AF2626265C2C2C2C092E2E2E002E2E2E002C2C2C001E1E1E091717174F3D3A + 3A92B2A6A6DCEBDADAFFEBDADAFFEBDADAFFEBDADAFFB2A6A6DC3D3A3A921717 + 174F1E1E1E092C2C2C002E2E2E002E2E2E002C2C2C001E1E1E00131313000D0D + 0D1D0B0B0B540B0B0B740B0B0B870B0B0B870B0B0B740B0B0B540D0D0D1D1313 + 13001E1E1E002C2C2C002E2E2E00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF007A7A7A117C7C7C547C7C7C677C7C7C547A7A + 7A1177777700555555000000A2000000A200000099000000A6000000A7210000 + A8A60000A8CC0000A8A60000A72165656557CACACAB8FDFDFDFFCACACAB86565 + 65575B5B5B005555550016168E0000009FCC0000993300009E0000009FA73F3F + D5E87272FEFF3F3FD5E800009FA74545456FF2F2F2FFF2F2F2FFF2F2F2FF4545 + 456F55555566555555662B2B7400000092B3000092CC00009200000092CC5656 + F5FF5656F5FF5656F5FF000092CC2525255E9F9F9FBDE4E4E4FF9F9F9FBD2525 + 255E474747005555550016167700000084CC00008B3300008600000084A71F1F + BEE83434EBFF1F1FBEE8000084A70E0E0E140B0B0B610B0B0B770B0B0B610E0E + 0E141010100055555500000080000000800000008B0000006E0000006B210000 + 67A6000067CC000067A600006B21FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF007A7A7A117C7C7C547C7C7C677C7C7C547A7A + 7A1177777700555555005555550055555500EA846200EB856329EC8664D0EC86 + 64FFEC8664D0EB856329FFFFFF0065656557CACACAB8FDFDFDFFCACACAB86565 + 65575B5B5B0055555500555555005555550079605700E27C5AD0EEA891FFF7CE + C1FFEEA891FFE27C5AD0FFFFFF004545456FF2F2F2FFF2F2F2FFF2F2F2FF4545 + 456F5454546654545466545454665454546654545466D46F4DFFF0C7BAFFF0C7 + BAFFF0C7BAFFD46F4DFFFFFFFF002525255E9F9F9FBDE4E4E4FF9F9F9FBD2525 + 255E45454500505050004C4C4C66505050006E554D00C4613FD0D7927BFFE8BF + B2FFD7927BFFC4613FD0FFFFFF000E0E0E140B0B0B610B0B0B770B0B0B610E0E + 0E1410101000414141004141416641414100B9563400B8553329B65331D0B653 + 31FFB65331D0B8553329FFFFFF000B0B0B000606060006060600060606000B0B + 0B002323230035353500353535663535350077463500B6533100B3502E00B350 + 2E00B3502E00B6533100FFFFFF000B0B0B000606060006060600060606000B0B + 0B00282828002828280028282866282828006E372600B1452300AE442200AE44 + 2200AE442200B1452300FFFFFF000B0B0B000606060006060600060606001111 + 11001A1A1A001A1A1A001A1A1A661A1A1A00B3462400B2462429B14523D0B145 + 23FFB14523D0B2462429FFFFFF000B0B0B000606060006060600080808000F0F + 0F000F0F0F000F0F0F000F0F0F660A0A0A0034180F00BD4B29D0DB9078FFF7CE + C1FFDB9078FFBD4B29D0FFFFFF000B0B0B000606060006060600070707000707 + 070007070700070707000606064D0505056605050566CC5331FFF0C7BAFFF0C7 + BAFFF0C7BAFFCC5331FFFFFFFF000B0B0B000606060006060600070707000707 + 0700070707000707070005050500030303003A1A1100DB5B39D0E4917AFFE8BF + B2FFE4917AFFDB5B39D0FFFFFF000B0B0B000606060006060600070707000707 + 070007070700070707000505050003030300E5613F00E7624029E86341D0E863 + 41FFE86341D0E7624029FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00 + } + end + object MainMenu: TMainMenu + Images = ImageList + left = 168 + top = 136 + object MnuFile: TMenuItem + Caption = 'File' + object MnuFileOpen: TMenuItem + Action = AcFileOpen + Bitmap.Data = { + 36040000424D3604000000000000360000002800000010000000100000000100 + 2000000000000004000064000000640000000000000000000000FFFFFF00FFFF + FF00005D8C000064970000629300005E8E30005C8C7C0059879200598700005B + 8900005B8900005B8900005B8900005D8C0000669900FFFFFF00FFFFFF00FFFF + FF00005D8C0000659950006497991C7AA9C052A5CDE0005B89C1005B8900005B + 8900005B8900005B8900005B8900005D8C0000669900FFFFFF00FFFFFF00FFFF + FF00005E8D8E3591BDF169B8DDFA81CBECFF84CEEEFF005C8BEF005D8CBE005D + 8CBE005D8CBE005D8CBE005D8CBE005E8D8E00669900FFFFFF00FFFFFF00FFFF + FF00006699B287D1EFFF7FCAE9FF7FCAE9FF87D0EFFF267DA9FF8DD1F3FF8DD1 + F3FF8DD1F3FF8DD1F3FF90D4F5FF006699B200679B3EFFFFFF00FFFFFF00FFFF + FF00006FA7A48AD3F0FF82CDEBFF82CDEBFF8AD3F0FF267EABFF8ACEF0FF8ACE + F0FF8ACEF0FF8ACEF0FF8FD3F4FFF4B62EFF006FA7A4FFFFFF00FFFFFF00FFFF + FF000073AC9E8ED6F2FF87D0EDFF87D0EDFF8ED6F2FF2882AFFF8BCFF1FF8BCF + F1FF8BCFF1FF8BCFF1FF91D5F5FFFEC941FF0073AC9EFFFFFF00FFFFFF00FFFF + FF000076B09B92DAF4FF8BD4F0FF8BD4F0FF92DAF4FF2B85B3FF8DD1F3FF8DD1 + F3FF8DD1F3FF8DD1F3FF93D7F6FFEBEBDDFF0076B09BFFFFFF00FFFFFF00FFFF + FF000078B49797DEF6FF90D8F2FF90D8F2FF97DEF6FF2D89B7FF8FD3F5FF8FD3 + F5FF8FD3F5FF8FD3F5FF95D9F8FFF5F5EEFF0078B497FFFFFF00FFFFFF00FFFF + FF00007BB8949BE1F7FF94DBF4FF94DBF4FF9BE1F7FF308DBCFF90D4F6FF90D4 + F6FF90D4F6FF90D4F6FF97DBF9FFFEFEFDFF007BB894FFFFFF00FFFFFF00FFFF + FF00007DBB909EE5F9FF98DFF6FF98DFF6FF9EE5F9FF3290C0FF92D6F8FF92D6 + F8FF92D6F8FF92D6F8FF99DDFAFF007DBB90007DBB33FFFFFF00FFFFFF00FFFF + FF00007FBF8DA3E8FBFF9DE3F9FF9DE3F9FFA3E8FBFF3594C5FF94D8FAFF94D8 + FAFF94D8FAFF94D8FAFF9BDFFCFF007FBF8D007FBE00FFFFFF00FFFFFF00FFFF + FF000082C28AA6EBFCFFA1E6FBFFA1E6FBFFA6EBFCFF3C9DCFFF96DAFCFF96DA + FCFF96DAFCFF96DAFCFF9EE2FDFF0082C28A0082C200FFFFFF00FFFFFF00FFFF + FF000084C587A9EEFDFFA4E9FCFFA4E9FCFFAAEEFDFF42A1D1FF97DBFDFF97DB + FDFF97DBFDFF97DBFDFF9FE3FEFF0084C5870084C500FFFFFF00FFFFFF00FFFF + FF000085C885ACF1FFFFABEFFEFF95E2F8FF6EC9EDFF48A8D9FF98DCFEFF98DC + FEFF98DCFEFF98DCFEFFA1E5FFFF0085C8850085C800FFFFFF00FFFFFF00FFFF + FF000087CA8388DCF4FF60C0E9FF5FBFEAFF80D3F4FF9CE3FDFFA2E6FFFFA2E6 + FFFFA2E6FFFFA2E6FFFFA6EAFFFF0087CA830087CA00FFFFFF00FFFFFF00FFFF + FF000088CC610088CC810088CC810088CC810088CC810088CC810088CC810088 + CC810088CC810088CC810088CC810088CC610087CB00FFFFFF00 + } + end + object MnuFileReopen: TMenuItem + Caption = 'Recently opened files' + end + object MenuItem4: TMenuItem + Caption = '-' + end + object MnuFileQuit: TMenuItem + Action = AcFileQuit + Bitmap.Data = { + 36040000424D3604000000000000360000002800000010000000100000000100 + 200000000000000400006400000064000000000000000000000000105500000B + 4FCC0007498A0005462400054700000648000006470000044500000445000004 + 45000004450000044500000445000004450000064800FFFFFF00001B64CC4174 + B8FF2A5094EC0A1A5ED300084A8A000648240006470000044500000445000004 + 45000004450000044500000445000004450000064800FFFFFF0000226DCC3F72 + B6FF225599FF3B6EB2FF2C5196EC0A1C60D3000749A4000648CC000648CC0006 + 48CC000648CC000648CC000648CC000648CC00074A99FFFFFF00002571CC4174 + B8FF2C5FA3FF2D60A4FF23569AFF3D70B4FF334179FFBEBEBEFFD5D5D5FFD8D8 + D8FFDBDBDBFFDCDCDCFFDDDDDDFFDDDDDDFF001258CCFFFFFF00002875CC4477 + BBFF2C5FA3FF3568ACFF2B5EA2FF2E61A5FF334B87FFBBBBBBFFD3D3D3FFD5D5 + D5FFD8D8D8FFDBDBDBFFDCDCDCFFDDDDDDFF001F68CCFFFFFF00002B79CC477A + BEFF2C5FA3FF376AAEFF2B5EA2FF376AAEFF33508CFFB8B8B8FFD0D0D0FFD3D3 + D3FFD5D5D5FFD8D8D8FFDBDBDBFFDCDCDCFF00246FCCFFFFFF00002E7DCC497C + C0FF09336FFF215090FF2B5EA2FF396CB0FF335290FFB5B5B5FFCCCCCCFFD0D0 + D0FFD3D3D3FFD5D5D5FFD8D8D8FFDBDBDBFF002774CCFFFFFF00003181CC4C7F + C3FFBBBBBBFF22518CFF2C5FA3FF3B6EB2FF335593FFB3B3B3FFC9C9C9FFCCCC + CCFFD0D0D0FFD3D3D3FFD5D5D5FFD8D8D8FF002B78CCFFFFFF00003485CC5083 + C7FF1D5094FF3265A9FF2D60A4FF3D70B4FF335897FFB0B0B0FFC7C7C7FFC9C9 + C9FFCCCCCCFFD0D0D0FFD3D3D3FFD5D5D5FF002E7DCCFFFFFF00003688CC5386 + CAFF295CA0FF3F72B6FF3063A7FF3F72B6FF335A9AFFAEAEAEFFC4C4C4FFC7C7 + C7FFC9C9C9FFCCCCCCFFD0D0D0FFD3D3D3FF003181CCFFFFFF0000398BCC5588 + CCFF275A9EFF4174B8FF3164A8FF4174B8FF335D9EFFACACACFFC1C1C1FFC4C4 + C4FFC7C7C7FFC9C9C9FFCCCCCCFFD0D0D0FF003485CCFFFFFF00003B8ECC588B + CFFF1A4D91FF4376BAFF3265A9FF4376BAFF335FA1FFAAAAAAFFBFBFBFFFC1C1 + C1FFC4C4C4FFC7C7C7FFC9C9C9FFCCCCCCFF003789CCFFFFFF00003D91CC5D90 + D4FF3568ACFF285B9FFF1A4D91FF4477BBFF3361A4FFA9A9A9FFBDBDBDFFBFBF + BFFFC1C1C1FFC4C4C4FFC7C7C7FFC9C9C9FF003A8DCCFFFFFF00003F938A0E4A + 9CD33E75BFEC5487CBFF3669ADFF23569AFF3363A6FFA9A9A9FFBCBCBCFFBDBD + BDFFBFBFBFFFC1C1C1FFC4C4C4FFC7C7C7FF003C90CCFFFFFF00003F9300003F + 9324003F938A0E4B9CD33F76C0EC5D90D4FF3365A9FFA0A0A0FFA9A9A9FFA9A9 + A9FFAAAAAAFFACACACFFAEAEAEFFB0B0B0FF003E93CCFFFFFF00003F9300003F + 9300003F9300003F9424003F948A003E93CC004095CC004095CC004095CC0040 + 95CC004095CC004095CC004095CC004095CC00409599FFFFFF00 + } + end + end + object MnuRecord: TMenuItem + Caption = 'Record' + object MnuFind: TMenuItem + Action = AcFind + AutoCheck = True + Bitmap.Data = { + 36040000424D3604000000000000360000002800000010000000100000000100 + 2000000000000004000064000000640000000000000000000000FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF001E1E1E000E0E + 0E00040404000404040004040400040404000404040004040400040404000404 + 040004040400040404000404045C090909892525252CFFFFFF001E1E1E000E0E + 0E00040404000404040004040400040404000404040004040400040404000404 + 040004040400040404443B3838A2E8D8D8FF32323276FFFFFF001E1E1E000E0E + 0E00040404000404040004040400040404000404040004040400040404000404 + 04000404043328272799D9CECEFF605C5C913A3A3A4DFFFFFF001E1E1E000E0E + 0E00040404000404040004040400040404000404040004040400040404000404 + 04251A1A1A8FC8C1C1FF4F4D4D88393939383C3C3C00FFFFFF001E1E1E000E0E + 0E000404041604040456040404790404048704040479040404560404042A0F0F + 0F86B8B5B5FF4241417E3838382A3A3A3A003C3C3C00FFFFFF001E1E1E001111 + 112A2826257D9D9791A5EEE8E3C4F9F3EDD6EFEAE5C5A3A09EA92827278AACAC + ACFF373737753737371F393939003A3A3A003C3C3C00FFFFFF00262626143B3A + 3874D7C9BCAFF3E6D9CBF6EDE4CEF6EDE4CEF6EDE4CEF7EFE6D1E4DED9C84544 + 437D3434342438383800393939003A3A3A003C3C3C00FFFFFF0031313149A89D + 9397EAD5BFC3F5E9DFCBF6EDE4CEF6EDE4CEF6EDE4CEF6EDE4CEF6ECE2CEADA6 + 9E9D3131314931313100313131003131310031313100FFFFFF0038383865E1CF + BCB1E8D2BBC0F6EDE4CEF6EDE4CEF6EDE4CEF6EDE4CEF6EDE4CEF6EDE4CEE7D8 + CAB83838386538383800383838003838380038383800FFFFFF003E3E3E6FE9D4 + BEBEE8D2BBC0E8D2BBC0F6EDE4CEF6EDE4CEF6EDE4CEF6EDE4CEF6EDE4CEEDDB + C8C53E3E3E6F3E3E3E003E3E3E003E3E3E003E3E3E00FFFFFF0043434360E0CB + B6ACE8D2BBC0E8D2BBC0E8D2BBC0E8D2BBC0E8D2BBC0E8D2BBC0E8D2BBC0E4D3 + C1B24343436043434300434343004343430043434300FFFFFF0049494943AD9F + 918EE8D2BBC0F1E3D5C8F6EDE4CEF6EDE4CEF6EDE4CEF6EDE4CEF2E4D6C8B0A4 + 97914949494349494900494949004949490049494900FFFFFF004D4D4D115F5D + 5A64D5C1AEA1EBD8C4C2F6ECE2CDF6EDE4CEF6EDE4CEF6ECE2CDD9C8B8A4605D + 5B644D4D4D114C4C4C004C4C4C004C4C4C004C4C4C00FFFFFF004E4E4E005151 + 512163605E62B1A3948BE6D5C5AFF4EADFC7EDE3D9B5B6ACA28E63605E625151 + 51214E4E4E004E4E4E004E4E4E004E4E4E004E4E4E00FFFFFF004E4E4E005151 + 510054545411555555405555555A555555655555555A55555540545454115151 + 51004E4E4E004E4E4E00295727000569000007710000FFFFFF00 + } + end + end + object MnuHelp: TMenuItem + Caption = 'Help' + object MenuItem2: TMenuItem + Action = AcAbout + Bitmap.Data = { + 36040000424D3604000000000000360000002800000010000000100000000100 + 20000000000000040000640000006400000000000000000000002E2E2E002C2C + 2C001E1E1E00131313000D0D0D1D0B0B0B540B0B0B740B0B0B870B0B0B870B0B + 0B740B0B0B540D0D0D1D131313001E1E1E002C2C2C002E2E2E002E2E2E002C2C + 2C001E1E1E091717174F3D3A3A92B2A6A6DCEBDADAFFEBDADAFFEBDADAFFEBDA + DAFFB2A6A6DC3D3A3A921717174F1E1E1E092C2C2C002E2E2E002E2E2E002C2C + 2C092626265C807979AFE4D6D6FFC69689FFAD644EFF943312FF943312FFAD64 + 4EFFC69689FFE3D6D6FF7F7979AF2626265C2C2C2C092E2E2E00303030002F2F + 2F48827E7EACDBD1D1FFAC573CFFB6461FFFD6592AFFE56230FFE56230FFD659 + 2AFFB6461FFFAC573CFFDACFCFFF817C7CAC2F2F2F4830303000343434195351 + 5186D4CECEFFB35F44FFC9572FFFE16132FFD3592DFFEEEEEEFFEEEEEEFFD359 + 2DFFE15F30FFC8532AFFB35F44FFD0C9C9FF515050863434341937373747ACAA + AAD7C09789FFBF5631FFD85F33FFD55A2DFFCB542AFFEEEEEEFFEEEEEEFFCB54 + 2AFFD55A2DFFD55A2DFFBC4F29FFBF9588FFA29F9FD7373737473A3A3A61D0CF + CFFFB9745DFFCF643EFFC9542AFFC9542AFFC9542AFFBB4D27FFBB4D27FFC954 + 2AFFC9542AFFC9542AFFC5542CFFB9745DFFC2C0C0FF3A3A3A613E3E3E6ECCCC + CCFFB95737FFD5714DFFBF502AFFBD4E27FFB94B26FFDBDBDBFFDBDBDBFFB94C + 26FFBD4E27FFBD4E27FFC1542EFFB95737FFC0C0C0FF3E3E3E6E4242426CCFCF + CFFFBC5B3BFFDD7D5BFFC96240FFBD5330FFB44A26FFBC7259FFD1CFCFFFC7AE + A5FFB24824FFB34925FFBD5532FFBC5B3BFFC3C3C3FF4242426C4545455CDBDC + DCFFC07C65FFDF805EFFCF6947FFCF6947FFCA6442FFC05937FFC28775FFCCCC + CCFFBC8877FFAD4624FFC3603EFFC07C65FFCBCCCCFF4545455C48484842BEBF + BFD4C9A295FFD57452FFE2815FFFD26C4AFFD5A291FFD5A291FFE6C2B6FFFFFF + FFFFE0AD9CFFDF7C5AFFD16E4CFFC7A194FFB2B3B3D4484848424B4B4B176C6C + 6C7CDFE0E0FFC8755AFFE28361FFDC7A58FFFFFFFFFFFFFFFFFFFFFFFFFFFFFF + FFFFE2987FFFDF7E5CFFC8755AFFD8D8D8FF6969697C4B4B4B174E4E4E004E4E + 4E3F9D9D9DA2DFDFDFFFCB795EFFDB7A58FFEE906EFFF49674FFF49573FFED8E + 6CFFDA7856FFCB795EFFDBDCDCFF999999A24E4E4E3F4E4E4E004F4F4F005050 + 50075151514D9F9F9FA1E6E6E6FFD7B0A3FFD08C75FFCD6C4BFFCD6C4BFFD08C + 75FFD6AFA2FFE3E4E4FF9D9D9DA15151514D505050074F4F4F004F4F4F005050 + 5000525252075353533D73737378C8C8C8D2EAEAEAFFE6E6E6FFE6E6E6FFEAEA + EAFFC7C7C7D2727272785353533D52525207505050004F4F4F004F4F4F005050 + 50005252520053535300545454155555553E5555555555555563555555635555 + 55555555553E545454155353530052525200505050004F4F4F00 + } + end + end + end + object ActionList: TActionList + Images = ImageList + left = 168 + top = 64 + object AcFileOpen: TAction + Caption = 'Open' + Hint = 'Open xls file' + ImageIndex = 0 + OnExecute = AcFileOpenExecute + ShortCut = 16463 + end + object AcFileQuit: TAction + Caption = 'Quit' + Hint = 'Quit application' + ImageIndex = 1 + OnExecute = AcFileQuitExecute + ShortCut = 32856 + end + object AcFind: TAction + AutoCheck = True + Caption = 'Find' + Hint = 'Find record' + ImageIndex = 2 + OnExecute = AcFindExecute + ShortCut = 16454 + end + object AcFindClose: TAction + ImageIndex = 3 + OnExecute = AcFindCloseExecute + end + object AcFindNext: TAction + ImageIndex = 4 + OnExecute = AcFindNextExecute + end + object AcFindPrev: TAction + ImageIndex = 5 + OnExecute = AcFindPrevExecute + end + object AcAbout: TAction + Caption = 'About...' + ImageIndex = 6 + OnExecute = AcAboutExecute + end + object AcNodeExpand: TAction + Caption = 'Expand node' + Hint = 'Expand current node' + ImageIndex = 8 + OnExecute = AcNodeExpandExecute + OnUpdate = AcNodeExpandUpdate + end + object AcNodeCollapse: TAction + Caption = 'Collapse node' + Hint = 'Collapse current node' + ImageIndex = 7 + OnExecute = AcNodeCollapseExecute + OnUpdate = AcNodeCollapseUpdate + end + end + object OpenDialog: TOpenDialog + DefaultExt = '.xls' + Filter = 'Excel files (*.xls)|*.xls' + left = 160 + top = 296 + end + object RecentFilesPopupMenu: TPopupMenu + left = 160 + top = 208 + object MenuItem1: TMenuItem + Caption = 'New Item1' + end + end + object TreePopupMenu: TPopupMenu + Images = ImageList + left = 160 + top = 392 + object MenuItem3: TMenuItem + Action = AcNodeExpand + Bitmap.Data = { + 36040000424D3604000000000000360000002800000010000000100000000100 + 2000000000000004000064000000640000000000000000000000FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF000B0B0B000606 + 060006060600070707000707070007070700070707000505050003030300E561 + 3F00E7624029E86341D0E86341FFE86341D0E7624029FFFFFF000B0B0B000606 + 0600060606000707070007070700070707000707070005050500030303003A1A + 1100DB5B39D0E4917AFFE8BFB2FFE4917AFFDB5B39D0FFFFFF000B0B0B000606 + 060006060600070707000707070007070700070707000606064D050505660505 + 0566CC5331FFF0C7BAFFF0C7BAFFF0C7BAFFCC5331FFFFFFFF000B0B0B000606 + 060006060600080808000F0F0F000F0F0F000F0F0F000F0F0F660A0A0A003418 + 0F00BD4B29D0DB9078FFF7CEC1FFDB9078FFBD4B29D0FFFFFF000B0B0B000606 + 06000606060006060600111111001A1A1A001A1A1A001A1A1A661A1A1A00B346 + 2400B2462429B14523D0B14523FFB14523D0B2462429FFFFFF000B0B0B000606 + 060006060600060606000B0B0B00282828002828280028282866282828006E37 + 2600B1452300AE442200AE442200AE442200B1452300FFFFFF000B0B0B000606 + 060006060600060606000B0B0B00232323003535350035353566353535007746 + 3500B6533100B3502E00B3502E00B3502E00B6533100FFFFFF000E0E0E140B0B + 0B610B0B0B770B0B0B610E0E0E1410101000414141004141416641414100B956 + 3400B8553329B65331D0B65331FFB65331D0B8553329FFFFFF002525255E9F9F + 9FBDE4E4E4FF9F9F9FBD2525255E45454500505050004C4C4C66505050006E55 + 4D00C4613FD0D7927BFFE8BFB2FFD7927BFFC4613FD0FFFFFF004545456FF2F2 + F2FFF2F2F2FFF2F2F2FF4545456F545454665454546654545466545454665454 + 5466D46F4DFFF0C7BAFFF0C7BAFFF0C7BAFFD46F4DFFFFFFFF0065656557CACA + CAB8FDFDFDFFCACACAB8656565575B5B5B005555550055555500555555007960 + 5700E27C5AD0EEA891FFF7CEC1FFEEA891FFE27C5AD0FFFFFF007A7A7A117C7C + 7C547C7C7C677C7C7C547A7A7A1177777700555555005555550055555500EA84 + 6200EB856329EC8664D0EC8664FFEC8664D0EB856329FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00 + } + end + object MenuItem5: TMenuItem + Action = AcNodeCollapse + Bitmap.Data = { + 36040000424D3604000000000000360000002800000010000000100000000100 + 2000000000000004000064000000640000000000000000000000FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF000E0E0E140B0B + 0B610B0B0B770B0B0B610E0E0E14101010005555550000008000000080000000 + 8B0000006E0000006B21000067A6000067CC000067A600006B212525255E9F9F + 9FBDE4E4E4FF9F9F9FBD2525255E474747005555550016167700000084CC0000 + 8B3300008600000084A71F1FBEE83434EBFF1F1FBEE8000084A74545456FF2F2 + F2FFF2F2F2FFF2F2F2FF4545456F55555566555555662B2B7400000092B30000 + 92CC00009200000092CC5656F5FF5656F5FF5656F5FF000092CC65656557CACA + CAB8FDFDFDFFCACACAB8656565575B5B5B005555550016168E0000009FCC0000 + 993300009E0000009FA73F3FD5E87272FEFF3F3FD5E800009FA77A7A7A117C7C + 7C547C7C7C677C7C7C547A7A7A1177777700555555000000A2000000A2000000 + 99000000A6000000A7210000A8A60000A8CC0000A8A60000A721FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00 + } + end + object MenuItem6: TMenuItem + Caption = '-' + end + object MenuItem7: TMenuItem + Action = AcFind + AutoCheck = True + Bitmap.Data = { + 36040000424D3604000000000000360000002800000010000000100000000100 + 2000000000000004000064000000640000000000000000000000FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF001E1E1E000E0E + 0E00040404000404040004040400040404000404040004040400040404000404 + 040004040400040404000404045C090909892525252CFFFFFF001E1E1E000E0E + 0E00040404000404040004040400040404000404040004040400040404000404 + 040004040400040404443B3838A2E8D8D8FF32323276FFFFFF001E1E1E000E0E + 0E00040404000404040004040400040404000404040004040400040404000404 + 04000404043328272799D9CECEFF605C5C913A3A3A4DFFFFFF001E1E1E000E0E + 0E00040404000404040004040400040404000404040004040400040404000404 + 04251A1A1A8FC8C1C1FF4F4D4D88393939383C3C3C00FFFFFF001E1E1E000E0E + 0E000404041604040456040404790404048704040479040404560404042A0F0F + 0F86B8B5B5FF4241417E3838382A3A3A3A003C3C3C00FFFFFF001E1E1E001111 + 112A2826257D9D9791A5EEE8E3C4F9F3EDD6EFEAE5C5A3A09EA92827278AACAC + ACFF373737753737371F393939003A3A3A003C3C3C00FFFFFF00262626143B3A + 3874D7C9BCAFF3E6D9CBF6EDE4CEF6EDE4CEF6EDE4CEF7EFE6D1E4DED9C84544 + 437D3434342438383800393939003A3A3A003C3C3C00FFFFFF0031313149A89D + 9397EAD5BFC3F5E9DFCBF6EDE4CEF6EDE4CEF6EDE4CEF6EDE4CEF6ECE2CEADA6 + 9E9D3131314931313100313131003131310031313100FFFFFF0038383865E1CF + BCB1E8D2BBC0F6EDE4CEF6EDE4CEF6EDE4CEF6EDE4CEF6EDE4CEF6EDE4CEE7D8 + CAB83838386538383800383838003838380038383800FFFFFF003E3E3E6FE9D4 + BEBEE8D2BBC0E8D2BBC0F6EDE4CEF6EDE4CEF6EDE4CEF6EDE4CEF6EDE4CEEDDB + C8C53E3E3E6F3E3E3E003E3E3E003E3E3E003E3E3E00FFFFFF0043434360E0CB + B6ACE8D2BBC0E8D2BBC0E8D2BBC0E8D2BBC0E8D2BBC0E8D2BBC0E8D2BBC0E4D3 + C1B24343436043434300434343004343430043434300FFFFFF0049494943AD9F + 918EE8D2BBC0F1E3D5C8F6EDE4CEF6EDE4CEF6EDE4CEF6EDE4CEF2E4D6C8B0A4 + 97914949494349494900494949004949490049494900FFFFFF004D4D4D115F5D + 5A64D5C1AEA1EBD8C4C2F6ECE2CDF6EDE4CEF6EDE4CEF6ECE2CDD9C8B8A4605D + 5B644D4D4D114C4C4C004C4C4C004C4C4C004C4C4C00FFFFFF004E4E4E005151 + 512163605E62B1A3948BE6D5C5AFF4EADFC7EDE3D9B5B6ACA28E63605E625151 + 51214E4E4E004E4E4E004E4E4E004E4E4E004E4E4E00FFFFFF004E4E4E005151 + 510054545411555555405555555A555555655555555A55555540545454115151 + 51004E4E4E004E4E4E00295727000569000007710000FFFFFF00 + } + end + end +end diff --git a/components/fpspreadsheet/reference/BIFFExplorer/bemain.pas b/components/fpspreadsheet/reference/BIFFExplorer/bemain.pas new file mode 100644 index 000000000..2449bd3c5 --- /dev/null +++ b/components/fpspreadsheet/reference/BIFFExplorer/bemain.pas @@ -0,0 +1,1144 @@ +unit beMain; + +{$mode objfpc}{$H+} + +interface + +uses + ActnList, Classes, ComCtrls, ExtCtrls, Grids, Menus, StdCtrls, SysUtils, + FileUtil, Forms, Controls, Graphics, Dialogs, Buttons, VirtualTrees, + {$ifdef USE_NEW_OLE} + fpolebasic, + {$else} + fpolestorage, + {$endif} + fpSpreadsheet, + mrumanager, beBIFFGrid; + +type + { Virtual tree node data } + TBiffNodeData = class + Offset: Integer; + RecordID: Integer; + RecordName: String; + RecordDescription: String; + destructor Destroy; override; + end; + + + { TMainForm } + TMainForm = class(TForm) + AcFileOpen: TAction; + AcFileQuit: TAction; + AcFind: TAction; + AcFindNext: TAction; + AcFindPrev: TAction; + AcAbout: TAction; + AcFindClose: TAction; + AcNodeExpand: TAction; + AcNodeCollapse: TAction; + ActionList: TActionList; + BIFFTree: TVirtualStringTree; + CbFind: TComboBox; + HexGrid: TStringGrid; + ImageList: TImageList; + MainMenu: TMainMenu; + AnalysisDetails: TMemo; + MenuItem1: TMenuItem; + MenuItem3: TMenuItem; + MenuItem5: TMenuItem; + MenuItem6: TMenuItem; + MenuItem7: TMenuItem; + MnuFind: TMenuItem; + MnuRecord: TMenuItem; + MnuFileReopen: TMenuItem; + MenuItem4: TMenuItem; + MnuHelp: TMenuItem; + MenuItem2: TMenuItem; + MnuFileQuit: TMenuItem; + MnuFileOpen: TMenuItem; + MnuFile: TMenuItem; + OpenDialog: TOpenDialog; + PageControl: TPageControl; + DetailPanel: TPanel; + HexPanel: TPanel; + FindPanel: TPanel; + TreePopupMenu: TPopupMenu; + TreePanel: TPanel; + BtnFindNext: TSpeedButton; + BtnFindPrev: TSpeedButton; + RecentFilesPopupMenu: TPopupMenu; + SpeedButton3: TSpeedButton; + Splitter1: TSplitter; + HexSplitter: TSplitter; + AlphaGrid: TStringGrid; + HexDumpSplitter: TSplitter; + PgAnalysis: TTabSheet; + PgValues: TTabSheet; + DetailsSplitter: TSplitter; + StatusBar: TStatusBar; + ToolButton3: TToolButton; + ToolButton4: TToolButton; + ValueGrid: TStringGrid; + ToolBar: TToolBar; + ToolButton1: TToolButton; + ToolButton2: TToolButton; + procedure AcAboutExecute(Sender: TObject); + procedure AcFileOpenExecute(Sender: TObject); + procedure AcFileQuitExecute(Sender: TObject); + procedure AcFindCloseExecute(Sender: TObject); + procedure AcFindExecute(Sender: TObject); + procedure AcFindNextExecute(Sender: TObject); + procedure AcFindPrevExecute(Sender: TObject); + procedure AcNodeCollapseExecute(Sender: TObject); + procedure AcNodeCollapseUpdate(Sender: TObject); + procedure AcNodeExpandExecute(Sender: TObject); + procedure AcNodeExpandUpdate(Sender: TObject); + procedure AlphaGridSelection(Sender: TObject; aCol, aRow: Integer); + procedure BIFFTreeBeforeCellPaint(Sender: TBaseVirtualTree; + TargetCanvas: TCanvas; Node: PVirtualNode; Column: TColumnIndex; + CellPaintMode: TVTCellPaintMode; CellRect: TRect; var ContentRect: TRect); + procedure BIFFTreeFocusChanged(Sender: TBaseVirtualTree; + Node: PVirtualNode; Column: TColumnIndex); + procedure BIFFTreeFreeNode(Sender: TBaseVirtualTree; Node: PVirtualNode); + procedure BIFFTreeGetNodeDataSize(Sender: TBaseVirtualTree; + var NodeDataSize: Integer); + procedure BIFFTreeGetText(Sender: TBaseVirtualTree; Node: PVirtualNode; + Column: TColumnIndex; TextType: TVSTTextType; var CellText: String); + procedure BIFFTreePaintText(Sender: TBaseVirtualTree; + const TargetCanvas: TCanvas; Node: PVirtualNode; Column: TColumnIndex; + TextType: TVSTTextType); + procedure CbFindChange(Sender: TObject); + procedure CbFindKeyPress(Sender: TObject; var Key: char); + procedure FormCloseQuery(Sender: TObject; var CanClose: boolean); + procedure FormCreate(Sender: TObject); + procedure FormDestroy(Sender: TObject); + procedure FormShow(Sender: TObject); + procedure GridClick(Sender: TObject); + procedure HexGridPrepareCanvas(sender: TObject; aCol, aRow: Integer; + aState: TGridDrawState); + procedure HexGridSelection(Sender: TObject; aCol, aRow: Integer); + procedure ListViewSelectItem(Sender: TObject; Item: TListItem; + Selected: Boolean); + procedure PageControlChange(Sender: TObject); + + private + MemStream: TMemoryStream; + OLEStorage: TOLEStorage; + FFileName: String; + FFormat: TsSpreadsheetFormat; + FBuffer: TBIFFBuffer; + FCurrOffset: Integer; + FLockHexDumpGrids: Integer; + FAnalysisGrid: TBIFFGrid; + FMRUMenuManager : TMRUMenuManager; + procedure AddToHistory(const AText: String); + procedure AnalysisGridDetails(Sender: TObject; ADetails: TStrings); + procedure ExecFind(ANext, AKeep: Boolean); + function GetNodeData(ANode: PVirtualNode): TBiffNodeData; + function GetRecType: Word; + procedure LoadFile(const AFileName: String); overload; + procedure LoadFile(const AFileName: String; AFormat: TsSpreadsheetFormat); overload; + procedure MRUMenuManagerRecentFile(Sender:TObject; const AFileName:string); + procedure PopulateAnalysisGrid; + procedure PopulateHexDump; + procedure PopulateValueGrid; + procedure ReadCmdLine; + procedure ReadFromIni; + procedure ReadFromStream(AStream: TStream); + procedure UpdateCaption; + procedure WriteToIni; + + public + procedure BeforeRun; + end; + +var + MainForm: TMainForm; + +implementation + +{$R *.lfm} + +uses + IniFiles, StrUtils, Math, lazutf8, + fpsUtils, + beUtils, beBIFFUtils, beAbout; + +const + VALUE_ROW_INDEX = 1; + VALUE_ROW_BYTE = 2; + VALUE_ROW_WORD = 3; + VALUE_ROW_DWORD = 4; + VALUE_ROW_QWORD = 5; + VALUE_ROW_DOUBLE = 6; + VALUE_ROW_ANSISTRING = 7; + VALUE_ROW_WIDESTRING = 8; + + MAX_HISTORY = 16; + + +{ Virtual tree nodes } +type + TObjectNodeData = record + Data: TObject; + end; + PObjectNodeData = ^TObjectNodeData; + + +{ TBiffNodeData } + +destructor TBiffNodeData.Destroy; +begin + Finalize(RecordName); + Finalize(RecordDescription); + inherited; +end; + + +{ TMainForm } + +procedure TMainForm.AcAboutExecute(Sender: TObject); +var + F: TAboutForm; +begin + F := TAboutForm.Create(nil); + try + F.ShowModal; + finally + F.Free; + end; +end; + + +procedure TMainForm.AcFileOpenExecute(Sender: TObject); +begin + with OpenDialog do begin + if Execute then LoadFile(FileName); + end; +end; + + +procedure TMainForm.AcFileQuitExecute(Sender: TObject); +begin + Close; +end; + + +procedure TMainForm.AcFindCloseExecute(Sender: TObject); +begin + AcFind.Checked := false; + FindPanel.Hide; +end; + + +procedure TMainForm.AcFindExecute(Sender: TObject); +begin + if AcFind.Checked then begin + FindPanel.Show; + CbFind.SetFocus; + end else begin + FindPanel.Hide; + end; +end; + + +procedure TMainForm.AcFindNextExecute(Sender: TObject); +begin + ExecFind(true, false); +end; + + +procedure TMainForm.AcFindPrevExecute(Sender: TObject); +begin + ExecFind(false, false); +end; + + +procedure TMainForm.AcNodeCollapseExecute(Sender: TObject); +var + node: PVirtualNode; +begin + node := BiffTree.FocusedNode; + if node <> nil then begin + if BiffTree.GetNodeLevel(node) > 0 then + node := node^.Parent; + BiffTree.Expanded[node] := false; + end; +end; + +procedure TMainForm.AcNodeCollapseUpdate(Sender: TObject); +var + node: PVirtualNode; +begin + node := BiffTree.FocusedNode; + if node <> nil then begin + if BiffTree.GetNodeLevel(node) > 0 then + node := node^.Parent; + end; + AcNodeCollapse.Enabled := (node <> nil) and BiffTree.Expanded[node]; +end; + + +procedure TMainForm.AcNodeExpandExecute(Sender: TObject); +var + node: PVirtualNode; +begin + node := BiffTree.FocusedNode; + if node <> nil then begin + if BiffTree.GetNodeLevel(node) > 0 then + node := node^.Parent; + BiffTree.Expanded[node] := true; + end; +end; + + +procedure TMainForm.AcNodeExpandUpdate(Sender: TObject); +var + node: PVirtualNode; +begin + node := BiffTree.FocusedNode; + if node <> nil then begin + if BiffTree.GetNodeLevel(node) > 0 then + node := node^.Parent; + end; + AcNodeExpand.Enabled := (node <> nil) and not BiffTree.Expanded[node]; +end; + +procedure TMainForm.AddToHistory(const AText: String); +begin + if (AText <> '') and (CbFind.Items.IndexOf(AText) = -1) then begin + CbFind.Items.Insert(0, AText); + while CbFind.Items.Count > MAX_HISTORY do + CbFind.Items.Delete(CbFind.Items.Count-1); + end; +end; + + +procedure TMainForm.AlphaGridSelection(Sender: TObject; aCol, aRow: Integer); +begin + if FLockHexDumpGrids > 0 then + exit; + FCurrOffset := (ARow - AlphaGrid.FixedRows)*16 + (ACol - AlphaGrid.FixedCols); + if FCurrOffset < 0 then FCurrOffset := 0; + inc(FLockHexDumpGrids); + HexGrid.Col := aCol - AlphaGrid.FixedCols + HexGrid.FixedCols; + HexGrid.Row := aRow - AlphaGrid.FixedRows + HexGrid.FixedRows; + dec(FLockHexDumpGrids); + if FCurrOffset > -1 then + Statusbar.Panels[3].Text := Format('HexViewer offset: %d', [FCurrOffset]) + else + Statusbar.Panels[3].Text := ''; +end; + + +procedure TMainForm.AnalysisGridDetails(Sender: TObject; ADetails: TStrings); +begin + AnalysisDetails.Lines.Assign(ADetails); +end; + + +procedure TMainForm.BeforeRun; +begin + ReadFromIni; + ReadCmdLine; +end; + + +procedure TMainForm.BIFFTreeBeforeCellPaint(Sender: TBaseVirtualTree; + TargetCanvas: TCanvas; Node: PVirtualNode; Column: TColumnIndex; + CellPaintMode: TVTCellPaintMode; CellRect: TRect; var ContentRect: TRect); +var + s: String; +begin + if (Sender.GetNodeLevel(Node) = 0) and (Column = 0) then begin + // Left-align parent nodes (column 0 is right-aligned) + BiffTreeGetText(Sender, Node, 0, ttNormal, s); + TargetCanvas.Font.Style := [fsBold]; + ContentRect.Right := CellRect.Left + TargetCanvas.TextWidth(s) + 30; + end; +end; + + +procedure TMainForm.BIFFTreeFocusChanged(Sender: TBaseVirtualTree; + Node: PVirtualNode; Column: TColumnIndex); +var + ptr: PObjectNodeData; + data: TBiffNodeData; + n: Word; +begin + ptr := Sender.GetNodeData(Node); + data := TBiffNodeData(ptr^.Data); + + // Move to start of record + 2 bytes to skip record type ID. + MemStream.Position := PtrInt(data.Offset) + 2; + + // Read size of record + n := WordLEToN(MemStream.ReadWord); + + // Read record data + SetLength(FBuffer, n); + if n > 0 then + MemStream.ReadBuffer(FBuffer[0], n); + + // Update user interface + if (BiffTree.FocusedNode <> nil) and (BiffTree.GetNodeLevel(BiffTree.FocusedNode) > 0) + then begin + Statusbar.Panels[0].Text := Format('Record ID: $%.4x', [data.RecordID]); + Statusbar.Panels[1].Text := data.RecordName; + Statusbar.Panels[2].Text := Format('Record size: %d bytes', [n]); + Statusbar.Panels[3].Text := ''; + end else begin + Statusbar.Panels[0].Text := ''; + Statusbar.Panels[1].Text := data.RecordName; + Statusbar.Panels[2].Text := ''; + Statusbar.Panels[3].Text := ''; + end; + PopulateHexDump; + PageControlChange(nil); +end; + + +procedure TMainForm.BIFFTreeFreeNode(Sender: TBaseVirtualTree; + Node: PVirtualNode); +var + ptr: PObjectNodeData; +begin + ptr := BiffTree.GetNodeData(Node); + if ptr <> nil then + FreeAndNil(ptr^.Data); +end; + + +procedure TMainForm.BIFFTreeGetNodeDataSize(Sender: TBaseVirtualTree; + var NodeDataSize: Integer); +begin + NodeDataSize := SizeOf(TObjectNodeData); +end; + + +procedure TMainForm.BIFFTreeGetText(Sender: TBaseVirtualTree; + Node: PVirtualNode; Column: TColumnIndex; TextType: TVSTTextType; + var CellText: String); +var + ptr: PObjectNodeData; + data: TBiffNodeData; +begin + CellText := ''; + ptr := Sender.GetNodeData(Node); + if ptr <> nil then begin + data := TBiffNodeData(ptr^.Data); + case Sender.GetNodeLevel(Node) of + 0: if Column = 0 then + CellText := data.RecordName; + 1: case Column of + 0: CellText := IntToStr(data.Offset); + 1: CellText := Format('$%.4x', [data.RecordID]); + 2: CellText := data.RecordName; + 3: CellText := data.RecordDescription; + end; + end; + end; +end; + + +procedure TMainForm.BIFFTreePaintText(Sender: TBaseVirtualTree; + const TargetCanvas: TCanvas; Node: PVirtualNode; Column: TColumnIndex; + TextType: TVSTTextType); +begin + // Paint parent node in bold font. + if (Sender.GetNodeLevel(Node) = 0) and (Column = 0) then + TargetCanvas.Font.Style := [fsBold]; +end; + + +procedure TMainForm.CbFindChange(Sender: TObject); +begin + ExecFind(true, true); +end; + + +procedure TMainForm.CbFindKeyPress(Sender: TObject; var Key: char); +begin + if Key = #13 then + ExecFind(true, false); +end; + + +procedure TMainForm.ExecFind(ANext, AKeep: Boolean); +var + s: String; + node, node0: PVirtualNode; + + function GetRecordname(ANode: PVirtualNode; UseLowercase: Boolean = true): String; + var + data: TBIffNodeData; + begin + data := GetNodeData(ANode); + if Assigned(data) then begin + if UseLowercase then + Result := lowercase(data.RecordName) + else + Result := data.RecordName; + end else + Result := ''; + end; + + function GetNextNode(ANode: PVirtualNode): PVirtualNode; + var + nextparent: PVirtualNode; + begin + Result := BiffTree.GetNextSibling(ANode); + if (Result = nil) and (ANode <> nil) then begin + nextparent := BiffTree.GetNextSibling(ANode^.Parent); + if nextparent = nil then + nextparent := BiffTree.GetFirst; + Result := BiffTree.GetFirstChild(nextparent); + end; + end; + + function GetPrevNode(ANode: PVirtualNode): PVirtualNode; + var + prevparent: PVirtualNode; + begin + Result := BiffTree.GetPreviousSibling(ANode); + if (Result = nil) and (ANode <> nil) then begin + prevparent := BiffTree.GetPreviousSibling(ANode^.Parent); + if prevparent = nil then + prevparent := BiffTree.GetLast; + Result := BiffTree.GetLastChild(prevparent); + end; + end; + +begin + if CbFind.Text = '' then + exit; + + s := Lowercase(CbFind.Text); + node0 := BiffTree.FocusedNode; + if node0 = nil then + node0 := BiffTree.GetFirst; + if BiffTree.GetNodeLevel(node0) = 0 then + node0 := BiffTree.GetFirstChild(node0); + + if ANext then begin + if AKeep + then node := node0 + else node := GetNextNode(node0); + repeat + if pos(s, GetRecordname(node)) > 0 then begin + BiffTree.FocusedNode := node; + BiffTree.Selected[node] := true; + BiffTree.ScrollIntoView(node, true); + AddToHistory(GetRecordname(node, false)); + exit; + end; + node := GetNextNode(node); + until (node = node0) or (node = nil); + end else begin + if AKeep + then node := node0 + else node := GetPrevNode(node0); + repeat + if pos(s, GetRecordName(node)) > 0 then begin + BiffTree.FocusedNode := node; + BiffTree.Selected[node] := true; + BiffTree.ScrollIntoView(node, true); + AddToHistory(GetRecordName(node, false)); + exit; + end; + node := GetPrevNode(node); + until (node = node0) or (node = nil); + end; +end; + + +procedure TMainForm.FormCloseQuery(Sender: TObject; var CanClose: boolean); +begin + if CanClose then + try + WriteToIni; + except + MessageDlg('Could not write setting to configuration file.', mtError, [mbOK], 0); + end; +end; + + +procedure TMainForm.FormCreate(Sender: TObject); +begin + FMRUMenuManager := TMRUMenuManager.Create(self); + with FMRUMenuManager do begin + Name := 'MRUMenuManager'; + IniFileName := GetAppConfigFile(false); + IniSection := 'RecentFiles'; + MaxRecent := 16; + MenuCaptionMask := '&%x - %s'; // & --> create hotkey + MenuItem := MnuFileReopen; + PopupMenu := RecentFilesPopupMenu; + OnRecentFile := @MRUMenuManagerRecentFile; + end; + + HexGrid.ColWidths[HexGrid.ColCount-1] := 5; + HexGrid.DefaultRowHeight := HexGrid.Canvas.TextHeight('Tg') + 4; + AlphaGrid.DefaultRowHeight := HexGrid.DefaultRowHeight; + ValueGrid.DefaultRowHeight := HexGrid.DefaultRowHeight; + BiffTree.DefaultNodeHeight := HexGrid.DefaultRowHeight; + BiffTree.Header.DefaultHeight := HexGrid.DefaultRowHeight + 4; + + FAnalysisGrid := TBIFFGrid.Create(self); + with FAnalysisGrid do begin + Parent := PgAnalysis; + Align := alClient; + DefaultRowHeight := HexGrid.DefaultRowHeight; + Options := Options + [goDrawFocusSelected]; + TitleStyle := tsNative; + OnDetails := @AnalysisGridDetails; + end; + + with ValueGrid do begin + ColCount := 3; + RowCount := VALUE_ROW_WIDESTRING+1; + Cells[0, 0] := 'Data type'; + Cells[1, 0] := 'Value'; + Cells[2, 0] := 'Offset range'; + Cells[0, VALUE_ROW_INDEX] := 'Offset'; + Cells[0, VALUE_ROW_BYTE] := 'Byte'; + Cells[0, VALUE_ROW_WORD] := 'Word'; + Cells[0, VALUE_ROW_DWORD] := 'DWord'; + Cells[0, VALUE_ROW_QWORD] := 'QWord'; + Cells[0, VALUE_ROW_DOUBLE] := 'Double'; + Cells[0, VALUE_ROW_ANSISTRING] := 'AnsiString'; + Cells[0, VALUE_ROW_WIDESTRING] := 'WideString'; + end; +end; + + +procedure TMainForm.FormDestroy(Sender: TObject); +begin + if MemStream <> nil then + FreeAndNil(MemStream); + if OLEStorage <> nil then + FreeAndNil(OLEStorage); +end; + + +procedure TMainForm.FormShow(Sender: TObject); +begin + Width := Width + 1; // remove black rectangle next to ValueGrid + Width := Width - 1; +end; + + +function TMainForm.GetNodeData(ANode: PVirtualNode): TBiffNodeData; +var + ptr: PObjectNodeData; +begin + result := nil; + if ANode <> nil then begin + ptr := BiffTree.GetNodeData(ANode); + if ptr <> nil then Result := TBiffNodeData(ptr^.Data); + end; +end; + + +function TMainForm.GetRecType: Word; +var + data: TBiffNodeData; +begin + Result := Word(-1); + if BiffTree.FocusedNode <> nil then begin + data := GetNodeData(BiffTree.FocusedNode); + if data <> nil then begin + MemStream.Position := data.Offset; + Result := WordLEToN(MemStream.ReadWord); + end; + end; +end; + + +procedure TMainForm.GridClick(Sender: TObject); +begin + if PageControl.ActivePage = PgValues then + PopulateValueGrid; +end; + + +procedure TMainForm.HexGridPrepareCanvas(sender: TObject; aCol, aRow: Integer; + aState: TGridDrawState); +var + ts: TTextStyle; +begin + ts := HexGrid.Canvas.TextStyle; + if ACol = 0 then + ts.Alignment := taRightJustify + else + ts.Alignment := taCenter; + ts.Opaque := false; + ts.Layout := tlCenter; + HexGrid.Canvas.TextStyle := ts; + + ts.Alignment := taCenter; + AlphaGrid.Canvas.TextStyle := ts; +end; + + +procedure TMainForm.HexGridSelection(Sender: TObject; aCol, aRow: Integer); +begin + if (FLockHexDumpGrids > 0) then + exit; + FCurrOffset := (ARow - HexGrid.FixedRows)*16 + (ACol - HexGrid.FixedCols); + if FCurrOffset < 0 then + FCurrOffset := 0; + inc(FLockHexDumpGrids); + AlphaGrid.Row := aRow - HexGrid.FixedRows + AlphaGrid.FixedRows; + AlphaGrid.Col := aCol - HexGrid.FixedCols + AlphaGrid.FixedCols; + dec(FLockHexDumpGrids); + if FCurrOffset > -1 then + Statusbar.Panels[3].Text := Format('HexViewer offset: %d', [FCurrOffset]) + else + Statusbar.Panels[3].Text := ''; +end; + + +procedure TMainForm.LoadFile(const AFileName: String); +var + fmt: TsSpreadsheetFormat; + valid: Boolean; + excptn: Exception = nil; +begin + if not FileExists(AFileName) then begin + MessageDlg(Format('File "%s" not found.', [AFileName]), mtError, [mbOK], 0); + exit; + end; + + if not SameText(ExtractFileExt(AFileName), '.xls') then begin + MessageDlg('BIFFExplorer can only process binary Excel files (extension ".xls")', + mtError, [mbOK], 0); + exit; + end; + + fmt := sfExcel8; + while True do begin + try + LoadFile(AFileName, fmt); + valid := True; + except + on E: Exception do begin + if fmt = sfExcel8 then excptn := E; + valid := False + end; + end; + if valid or (fmt = sfExcel2) then Break; + fmt := Pred(fmt); + end; + + // A failed attempt to read a file should bring an exception, so re-raise + // the exception if necessary. We re-raise the exception brought by Excel 8, + // since this is the most common format + if (not valid) and (excptn <> nil) then + raise excptn; + + FFormat := fmt; +end; + + +procedure TMainForm.LoadFile(const AFileName: String; AFormat: TsSpreadsheetFormat); +var + OLEDocument: TOLEDocument; +begin + if MemStream <> nil then + FreeAndNil(MemStream); + + if OLEStorage <> nil then + FreeAndNil(OLEStorage); + + MemStream := TMemoryStream.Create; + + if AFormat = sfExcel2 then begin + MemStream.LoadFromFile(AFileName); + end else begin + OLEStorage := TOLEStorage.Create; + + // Only one stream is necessary for any number of worksheets + OLEDocument.Stream := MemStream; + OLEStorage.ReadOLEFile(AFileName, OLEDocument, 'Workbook'); + + // Check if the operation succeded + if MemStream.Size = 0 then + raise Exception.Create('BIFF Explorer: Reading the OLE document failed'); + end; + + // Rewind the stream and read from it + MemStream.Position := 0; + FFileName := ExpandFileName(AFileName); + ReadFromStream(MemStream); + + UpdateCaption; + FMRUMenuManager.AddToRecent(AFileName); +end; + + +procedure TMainForm.ListViewSelectItem(Sender: TObject; Item: TListItem; + Selected: Boolean); +var + n: Word; +begin + if Selected then begin + // Move to start of record + 2 bytes to skip record type ID. + MemStream.Position := PtrInt(Item.Data) + 2; + + // Read size of record + n := WordLEToN(MemStream.ReadWord); + + // Read record data + SetLength(FBuffer, n); + MemStream.ReadBuffer(FBuffer[0], n); + + // Update user interface + Statusbar.Panels[0].Text := Format('Record ID: %s', [Item.SubItems[0]]); + Statusbar.Panels[1].Text := Item.SubItems[1]; + Statusbar.Panels[2].Text := Format('Record size: %s bytes', [Item.SubItems[3]]); + PopulateHexDump; + PageControlChange(nil); + end; +end; + + +procedure TMainForm.MRUMenuManagerRecentFile(Sender: TObject; + const AFileName: string); +begin + LoadFile(AFileName); +end; + + +procedure TMainForm.PopulateAnalysisGrid; +begin + FAnalysisGrid.SetRecordType(GetRecType, FBuffer, FFormat); +end; + + +procedure TMainForm.PopulateHexDump; +var + n: Word; + i,r,c, w: Integer; +begin + n := Length(FBuffer); + + // Prepare hex viewer rows... + r := HexGrid.FixedRows + n div 16; + if n mod 16 <> 0 then inc(r); + HexGrid.RowCount := r; + AlphaGrid.RowCount := r; + for i:=HexGrid.FixedRows to r-1 do begin + HexGrid.Rows[i].Clear; + HexGrid.Cells[0, i] := IntToStr((i - HexGrid.FixedRows)*16); + AlphaGrid.Rows[i].Clear; + end; + + // ... width of first column, ... + w := HexGrid.Canvas.TextWidth(IntToStr(n)) + 4; + if w > HexGrid.DefaultColWidth then + HexGrid.ColWidths[0] := w; + + // ... and cells + for i:=0 to Length(FBuffer)-1 do begin + c := i mod 16; + r := i div 16; + with HexGrid do + Cells[c+FixedCols, r+FixedRows] := Format('%.2x', [FBuffer[i]]); + with AlphaGrid do + if FBuffer[i] < 32 then + Cells[c+FixedCols, r+FixedRows] := '.' + else + Cells[c+FixedCols, r+FixedRows] := AnsiToUTF8(AnsiChar(FBuffer[i])); + end; + + // Clear value grid + if PageControl.ActivePage = PgValues then + with ValueGrid do begin + Clean(1, 1, RowCount-1, ColCount-1, [gzNormal]); + end; + + // Update status bar + HexGridSelection(nil, HexGrid.Col, HexGrid.Row); +end; + + +procedure TMainForm.PopulateValueGrid; +var + buf: array[0..1023] of Byte; + w: word absolute buf; + dw: DWord absolute buf; + qw: QWord absolute buf; + dbl: double absolute buf; + idx: Integer; + i, j: Integer; + s: String; + sw: WideString; + ls: Integer; +begin + idx := FCurrOffset; + + i := ValueGrid.RowCount; + j := ValueGrid.ColCount; + + ValueGrid.Cells[1, VALUE_ROW_INDEX] := IntToStr(idx); + + if idx <= Length(FBuffer)-SizeOf(byte) then begin + ValueGrid.Cells[1, VALUE_ROW_BYTE] := IntToStr(FBuffer[idx]); + ValueGrid.Cells[2, VALUE_ROW_BYTE] := Format('%d ... %d', [idx, idx]); + end + else begin + ValueGrid.Cells[1, VALUE_ROW_BYTE] := ''; + ValueGrid.Cells[2, VALUE_ROW_BYTE] := ''; + end; + + if idx <= Length(FBuffer)-SizeOf(word) then begin + buf[0] := FBuffer[idx]; + buf[1] := FBuffer[idx+1]; + ValueGrid.Cells[1, VALUE_ROW_WORD] := IntToStr(WordLEToN(w)); + ValueGrid.Cells[2, VALUE_ROW_WORD] := Format('%d ... %d', [idx, idx+SizeOf(Word)-1]); + end else begin + ValueGrid.Cells[1, VALUE_Row_WORD] := ''; + ValueGrid.Cells[2, VALUE_ROW_WORD] := ''; + end; + + if idx <= Length(FBuffer) - SizeOf(DWord) then begin + for i:=0 to SizeOf(DWord)-1 do buf[i] := FBuffer[idx+i]; + ValueGrid.Cells[1, VALUE_ROW_DWORD] := IntToStr(DWordLEToN(dw)); + ValueGrid.Cells[2, VALUE_ROW_DWORD] := Format('%d ... %d', [idx, idx+SizeOf(DWord)-1]); + end else begin + ValueGrid.Cells[1, VALUE_ROW_DWORD] := ''; + ValueGrid.Cells[2, VALUE_ROW_DWORD] := ''; + end; + + if idx <= Length(FBuffer) - SizeOf(QWord) then begin + for i:=0 to SizeOf(QWord)-1 do buf[i] := FBuffer[idx+i]; + ValueGrid.Cells[1, VALUE_ROW_QWORD] := Format('%d', [qw]); + ValueGrid.Cells[2, VALUE_ROW_QWORD] := Format('%d ... %d', [idx, idx+SizeOf(QWord)-1]); + end else begin + ValueGrid.Cells[1, VALUE_ROW_QWORD] := ''; + ValueGrid.Cells[2, VALUE_ROW_QWORD] := ''; + end; + + if idx <= Length(FBuffer) - SizeOf(double) then begin + for i:=0 to SizeOf(double)-1 do buf[i] := FBuffer[idx+i]; + ValueGrid.Cells[1, VALUE_ROW_DOUBLE] := Format('%f', [dbl]); + ValueGrid.Cells[2, VALUE_ROW_DOUBLE] := Format('%d ... %d', [idx, idx+SizeOf(Double)-1]); + end else begin + ValueGrid.Cells[1, VALUE_ROW_DOUBLE] := ''; + ValueGrid.Cells[2, VALUE_ROW_DOUBLE] := ''; + end; + + if idx < Length(FBuffer) then begin + ls := FBuffer[idx]; + SetLength(s, ls); + i := idx + 1; + j := 0; + while (i < Length(FBuffer)) and (j < Length(s)) do begin + inc(j); + s[j] := char(FBuffer[i]); + inc(i); + end; + SetLength(s, j); + ValueGrid.Cells[1, VALUE_ROW_ANSISTRING] := s; + ValueGrid.Cells[2, VALUE_ROW_ANSISTRING] := Format('%d ... %d', [idx, ls * SizeOf(char) + 1]); + end else begin + ValueGrid.Cells[1, VALUE_ROW_ANSISTRING] := ''; + ValueGrid.Cells[2, VALUE_ROW_ANSISTRING] := ''; + end; + + if idx < Length(FBuffer) then begin + ls := FBuffer[idx]; + SetLength(sw, ls); + j := 0; + i := idx + 2; + while (i < Length(FBuffer)-1) and (j < Length(sw)) do begin + buf[0] := FBuffer[i]; + buf[1] := FBuffer[i+1]; + inc(i, SizeOf(WideChar)); + inc(j); + sw[j] := WideChar(w); + end; + SetLength(sw, j); + ValueGrid.Cells[1, VALUE_ROW_WIDESTRING] := UTF8Decode(sw); + ValueGrid.Cells[2, VALUE_ROW_WIDESTRING] := Format('%d ... %d', [idx, idx + ls*SizeOf(wideChar)+1]); + end else begin + ValueGrid.Cells[1, VALUE_ROW_WIDESTRING] := ''; + ValueGrid.Cells[2, VALUE_ROW_WIDESTRING] := ''; + end; +end; + + +procedure TMainForm.ReadCmdLine; +begin + if ParamCount > 0 then + LoadFile(ParamStr(1)); +end; + + +procedure TMainForm.ReadFromIni; +var + ini: TCustomIniFile; + i: Integer; +begin + ini := CreateIni; + try + ReadFormFromIni(ini, 'MainForm', self); + + BiffTree.Width := ini.ReadInteger('MainForm', 'RecordList_Width', BiffTree.Width); + for i:=0 to BiffTree.Header.Columns.Count-1 do + BiffTree.Header.Columns[i].Width := ini.ReadInteger('MainForm', + Format('RecordList_ColWidth_%d', [i+1]), BiffTree.Header.Columns[i].Width); + + ValueGrid.Height := ini.ReadInteger('MainForm', 'ValueGrid_Height', ValueGrid.Height); + for i:=0 to ValueGrid.ColCount-1 do + ValueGrid.ColWidths[i] := ini.ReadInteger('MainForm', + Format('ValueGrid_ColWidth_%d', [i+1]), ValueGrid.ColWidths[i]); + + AlphaGrid.Width := ini.ReadInteger('MainForm', 'AlphaGrid_Width', AlphaGrid.Width); + for i:=0 to AlphaGrid.ColCount-1 do + AlphaGrid.ColWidths[i] := ini.ReadInteger('MainForm', + Format('AlphaGrid_ColWidth_%d', [i+1]), AlphaGrid.ColWidths[i]); + + for i:=0 to FAnalysisGrid.ColCount-1 do + FAnalysisGrid.ColWidths[i] := ini.ReadInteger('MainForm', + Format('AnalysisGrid_ColWidth_%d', [i+1]), FAnalysisGrid.ColWidths[i]); + + AnalysisDetails.Width := ini.ReadInteger('MainForm', 'AnalysisDetails_Width', AnalysisDetails.Width); + + PageControl.Height := ini.ReadInteger('MainForm', 'PageControl_Height', PageControl.Height); + PageControl.ActivePageIndex := ini.ReadInteger('MainForm', 'PageIndex', PageControl.ActivePageIndex); + finally + ini.Free; + end; +end; + + +procedure TMainForm.ReadFromStream(AStream: TStream); +var + recType: Word; + recSize: Word; + p: Cardinal; + p0: Cardinal; + s: String; + i: Integer; + node: PVirtualNode; + parentnode: PVirtualNode; + ptr: PObjectNodeData; + parentdata, data: TBiffNodeData; + w: word; + crs: TCursor; +begin + crs := Screen.Cursor; + try + Screen.Cursor := crHourGlass; + BiffTree.Clear; + parentnode := nil; + AStream.Position := 0; + while AStream.Position < AStream.Size do begin + p := AStream.Position; + recType := WordLEToN(AStream.ReadWord); + recSize := WordLEToN(AStream.ReadWord); + s := RecTypeName(recType); + i := pos(':', s); + // in case of BOF record: create new parent node for this substream + if (recType = $0009) or (recType = $0209) or (recType = $0409) or (recType = $0809) + then begin + // Read info on substream beginning here + p0 := AStream.Position; + AStream.Position := AStream.Position + 2; + w := WordLEToN(AStream.ReadWord); + AStream.Position := p0; + parentdata := TBiffNodeData.Create; + parentdata.Offset := p; + parentdata.Recordname := BOFName(w); + // add parent node for this substream + parentnode := BIFFTree.AddChild(nil); + ptr := BIFFTree.GetNodeData(parentnode); + ptr^.Data := parentdata; + end; + // add node to parent node + data := TBiffNodeData.Create; + data.Offset := p; + data.RecordID := recType; + if i > 0 then begin + data.RecordName := copy(s, 1, i-1); + data.RecordDescription := copy(s, i+2, Length(s)); + end else begin + data.RecordName := s; + data.RecordDescription := ''; + end; + node := BIFFTree.AddChild(parentnode); + ptr := BIFFTree.GetNodeData(node); + ptr^.Data := data; + // advance stream pointer + AStream.Position := AStream.Position + recSize; + end; + // expand all parent nodes + node := BiffTree.GetFirst; + while node <> nil do begin + BiffTree.Expanded[node] := true; + node := BiffTree.GetNextSibling(node); + end; + // Select first node + BiffTree.FocusedNode := BiffTree.GetFirst; + BiffTree.Selected[BiffTree.FocusedNode] := true; + + finally + Screen.Cursor := crs; + end; +end; + + +procedure TMainForm.PageControlChange(Sender: TObject); +begin + if PageControl.ActivePage = PgAnalysis then + PopulateAnalysisGrid + else + if PageControl.ActivePage = PgValues then + PopulateValueGrid; +end; + + +procedure TMainForm.UpdateCaption; +begin + Caption := Format('BIFF Explorer - "%s', [IfThen(FFileName <> '', FFileName, 'no file loaded')]); +end; + + +procedure TMainForm.WriteToIni; +var + ini: TCustomIniFile; + i: Integer; +begin + ini := CreateIni; + try + WriteFormToIni(ini, 'MainForm', self); + + ini.WriteInteger('MainForm', 'RecordList_Width', BiffTree.Width); + for i:=0 to BiffTree.Header.Columns.Count-1 do + ini.WriteInteger('MainForm', Format('RecordList_ColWidth_%d', [i+1]), BiffTree.Header.Columns[i].Width); + + ini.WriteInteger('MainForm', 'ValueGrid_Height', ValueGrid.Height); + for i:=0 to ValueGrid.ColCount-1 do + ini.WriteInteger('MainForm', Format('ValueGrid_ColWidth_%d', [i+1]), ValueGrid.ColWidths[i]); + + ini.WriteInteger('MainForm', 'AlphaGrid_Width', AlphaGrid.Width); + for i:=0 to AlphaGrid.ColCount-1 do + ini.WriteInteger('MainForm', Format('AlphaGrid_ColWidth_%d', [i+1]), AlphaGrid.ColWidths[i]); + + for i:=0 to FAnalysisGrid.ColCount-1 do + ini.WriteInteger('MainForm', Format('AnalysisGrid_ColWidth_%d', [i+1]), FAnalysisGrid.ColWidths[i]); + + ini.WriteInteger('MainForm', 'AnalysisDetails_Width', AnalysisDetails.Width); + + ini.WriteInteger('MainForm', 'PageIndex', PageControl.ActivePageIndex); + ini.WriteInteger('MainForm', 'PageControl_Height', PageControl.Height); + finally + ini.Free; + end; +end; + +end. + diff --git a/components/fpspreadsheet/reference/BIFFExplorer/beutils.pas b/components/fpspreadsheet/reference/BIFFExplorer/beutils.pas new file mode 100644 index 000000000..736ea8475 --- /dev/null +++ b/components/fpspreadsheet/reference/BIFFExplorer/beutils.pas @@ -0,0 +1,66 @@ +unit beUtils; + +{$mode objfpc}{$H+} + +interface + +uses + Classes, SysUtils, IniFiles, Forms; + +function CreateIni : TCustomIniFile; +procedure ReadFormFromIni(ini: TCustomIniFile; ASection: String; AForm: TCustomForm); +procedure WriteFormToIni(ini: TCustomIniFile; ASection: String; AForm: TCustomForm); + + +implementation + +function CreateIni : TCustomIniFile; +var + cfg : string; +begin + cfg := GetAppConfigDir(false); + if not DirectoryExists(cfg) then + CreateDir(cfg); + result := TMemIniFile.Create(GetAppConfigFile(false)); +end; + +procedure ReadFormFromIni(ini: TCustomIniFile; ASection: String; AForm: TCustomForm); +var + L,T,W,H: Integer; + isMax: Boolean; +begin + L := ini.ReadInteger(ASection, 'Left', AForm.Left); + T := Ini.ReadInteger(ASection, 'Top', AForm.Top); + W := ini.ReadInteger(ASection, 'Width', AForm.Width); + H := ini.ReadInteger(ASection, 'Height', AForm.Height); + isMax := ini.ReadBool(ASection, 'Maximized', AForm.WindowState = wsMaximized); + if W > Screen.Width then W := Screen.Width; + if H > Screen.Height then H := Screen.Height; + if L < 0 then L := 0; + if T < 0 then T := 0; + if L + W > Screen.Width then L := Screen.Width - W; + if T + H > Screen.Height then T := Screen.Height - H; + AForm.Left := L; + AForm.Top := T; + AForm.Width := W; + AForm.Height := H; + if IsMax then + AForm.WindowState := wsMaximized + else + AForm.WindowState := wsNormal; +end; + + +procedure WriteFormToIni(ini: TCustomIniFile; ASection: String; AForm: TCustomForm); +begin + ini.WriteBool(ASection, 'Maximized', (AForm.WindowState = wsMaximized)); + if AForm.WindowState = wsNormal then begin + ini.WriteInteger(ASection, 'Left', AForm.Left); + ini.WriteInteger(ASection, 'Top', AForm.Top); + ini.WriteInteger(ASection, 'Width', AForm.Width); + ini.WriteInteger(ASection, 'Height', AForm.Height); + end; +end; + +end. + diff --git a/components/fpspreadsheet/reference/BIFFExplorer/mrumanager.pp b/components/fpspreadsheet/reference/BIFFExplorer/mrumanager.pp new file mode 100644 index 000000000..847f886e9 --- /dev/null +++ b/components/fpspreadsheet/reference/BIFFExplorer/mrumanager.pp @@ -0,0 +1,485 @@ +{ MRU (Most Recent Used) menu item manager + + Copyright (C) 2011 Michael Van Canneyt (michael@freepascal.org) + Modifications by Werner Pamler + + This library is free software; you can redistribute it and/or modify it + under the terms of the GNU Library General Public License as published by + the Free Software Foundation; either version 2 of the License, or (at your + option) any later version with the following modification: + + As a special exception, the copyright holders of this library give you + permission to link this library with independent modules to produce an + executable, regardless of the license terms of these independent modules,and + to copy and distribute the resulting executable under terms of your choice, + provided that you also meet, for each linked independent module, the terms + and conditions of the license of that module. An independent module is a + module which is not derived from or based on this library. If you modify + this library, you may extend this exception to your version of the library, + but you are not obligated to do so. If you do not wish to do so, delete this + exception statement from your version. + + This program is distributed in the hope that it will be useful, but WITHOUT + ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or + FITNESS FOR A PARTICULAR PURPOSE. See the GNU Library General Public License + for more details. + + You should have received a copy of the GNU Library General Public License + along with this library; if not, write to the Free Software Foundation, + Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. + + modified by wp +} +unit mrumanager; + +{$mode objfpc}{$H+} + +interface + +uses + Classes, SysUtils, inifiles, menus; + +Type + { TRecentMenuItem } + + TRecentMenuItem = Class(TMenuItem) + Private + FFileName : string; + Public + Property FileName : String Read FFileName; + end; + TRecentMenuItemClass = Class of TRecentMenuItem; + + { TMRUMenuManager } + + TOnRecentFileEvent = Procedure(Sender : TObject; Const AFileName : String) of object; + + TMRUMenuManager = Class(TComponent) + Private + FIniFileName: String; + FIniSection: String; + FOnRecent: TOnRecentFileEvent; + FRecent : TStrings; + FMaxRecent : Integer; + FMenuCaptionMask : string; + FMIRecent : TMenuItem; + FPMRecent : TPopupMenu; + FMaxItemLength : integer; + procedure SetIniFileName(const AValue:string); + procedure SetIniSection(const AValue:string); + procedure SetMaxItemLength(const AValue:integer); + procedure SetMenuCaptionMask(const AValue:string); + procedure SetMIRecent(const AValue: TMenuItem); + procedure SetPMRecent(const AValue: TPopupMenu); + procedure SetRecent(const AValue: TStrings); + protected + // Overrides. + procedure Loaded; override; + procedure Notification(AComponent: TComponent; Operation: TOperation); override; + // Return default name and section if either is empty. + procedure GetFileNameAndSection(Var AFileName,ASection : String); virtual; + // Override if you want to load additional values. + procedure LoadFromIni(Ini: TCustomIniFile; ASection: String); virtual; + // Override if you want to write additional values. + procedure SaveToIni(Ini: TCustomIniFile; ASection: String); virtual; + // Called when menu item is clicked. + procedure DoOnRecentClick(Sender: TObject); virtual; + // Override this if you want to create a custom class of menu itel. + function CreateMenuItem(AOwner: TComponent): TRecentMenuItem; virtual; + // Create a menu caption. Default is index followed by filename. + // Override if you want to customize. + Function CreateMenuCaption(AIndex : Integer; Const AFileName : String) : String; virtual; + Public + Constructor Create(AOwner : TComponent);override; + Destructor Destroy; override; + // Load files from ini file AFileName in section ASection. Calls ShowRecentFiles + // Need for explicit call only when IniFileName='' and IniSection='' and class created at run-time + procedure LoadRecentFilesFromIni(const AFileName: string=''; const ASection: String=''); + // Saves files to ini file AFileName in section ASection. + procedure SaveRecentFilesToIni(const AFileName: string=''; const ASection: String=''); + // Add a filename to the list of files. + // If an existing file is added, it is moved first in the list. + // If MaxRecent is attained, the last one is removed. + // Calls ShowRecentFiles. + procedure AddToRecent(AFileName: String); + // Re-populate the menu. + procedure ShowRecentFiles; + Published + // Max. items to be kept in the list. + Property MaxRecent : Integer Read FMaxRecent write FMaxRecent; + // Menu item to create a submenu under. Existing items will be removed. + Property MenuItem : TMenuItem Read FMIRecent Write SetMIRecent; + // Popupmenu attached to a toolbar button. Existing items will be removed. + Property PopupMenu : TPopupMenu Read FPMRecent Write SetPMRecent; + // Default ini filename. + Property IniFileName : String Read FIniFileName Write SetIniFileName; + // Default ini section. + Property IniSection : String Read FIniSection Write SetIniSection; + // Maximum length of recent menu item + Property MaxItemLength : integer Read FMaxItemLength Write SetMaxItemLength default 80; + // Format mask for MenuCaption: first placeholder must be %d, second %s, e.g. '%d - %s' + Property MenuCaptionMask : string read FMenuCaptionMask Write SetMenuCaptionMask; + // Recent items. If adding manually to the list, ShowRecentFiles must be called manually. + Property Recent : TStrings Read FRecent Write SetRecent; + // Called when the user clicks an recent meu item. + Property OnRecentFile : TOnRecentFileEvent Read FOnRecent Write FOnRecent; + end; + EMRUManager = Class(Exception); + +Const + DefaultIniFile = 'recent.ini'; + DefaultSection = 'Global'; + KeyMaxRecent = 'MaxRecent'; + KeyCount = 'Count'; + KeyFile = 'File%d'; + +implementation + +Resourcestring + SErrFailedToCreateDir = 'Failed to create directory "%s"'; + +const + DEFAULT_MASK = '%d. %s'; + +function MinimizeFileName(const AFileName:string; AMaxLen:integer) : string; + + procedure SplitPath(const APath:String; Parts: TStrings); + { Splits the provided path into constituent folder names } + var + i, j : Integer; + begin + if APath = '' then exit; + if not Assigned(Parts) then exit; + + i := Length(APath); + j := i; + while (i >= 1) do begin + if APath[i] = DirectorySeparator then begin + Parts.Insert(0, copy(APath, i+1, j-i)); + j := i; + end; + dec(i); + end; + Parts.Insert(0, copy(APath, 1, j)); + end; + + function AddStringsFromTo(AList:TStrings; FromIndex,ToIndex:integer) : string; + var + i : integer; + begin + result := ''; + for i:=FromIndex to ToIndex do + result := result + AList[i]; + end; + +var + Parts : TStringList; + i : integer; + tmp : string; +begin + result := AFileName; + if Length(AFileName) > AMaxLen then begin + Parts := TStringList.Create; + try + SplitPath(AFileName, Parts); + i := Parts.Count div 2; + while (i < Parts.Count) do begin + tmp := Format('%s...%s%s', [ + AddStringsFromTo(Parts, 0, i-1), + DirectorySeparator, + AddStringsFromTo(Parts, i+1, Parts.Count-1) + ]); + if Length(tmp) < AMaxLen then begin + result := tmp; + exit; + end else + Parts.Delete(i); + i := Parts.Count div 2; + end; + result := ExtractFileName(AFileName); + finally + Parts.Free; + end; + end; +end; + +procedure TMRUMenuManager.AddToRecent(AFileName : String); + +Var + I,J : Integer; + B : Boolean; + +begin + AFileName:=ExpandFileName(AFileName); + With FRecent do + begin + J:=IndexOf(AFileName); + If (J<>-1) then + begin + if (J>0) then + Exchange(0,J) + end + else + begin + While (Count>=FMaxRecent) do + Delete(Count-1); + Insert(0,AFileName) + end; + end; + ShowRecentFiles; +end; + +function TMRUMenuManager.CreateMenuItem(AOwner :TComponent) : TRecentMenuItem; + +begin + Result:=TRecentMenuItem.Create(AOwner); +end; + +function TMRUMenuManager.CreateMenuCaption(AIndex: Integer; + const AFileName: String): String; +var + fn : string; + mask : string; +begin + if FMaxItemLength > 0 then + fn := MinimizeFileName(AFileName, FMaxItemLength) + else + fn := AFileName; + if FMenuCaptionMask = '' then + mask := DEFAULT_MASK + else + mask := FMenuCaptionMask; + Result:=Format(mask, [AIndex+1,fn]); +end; + +procedure TMRUMenuManager.ShowRecentFiles; + +Var + I : Integer; + M : TRecentMenuItem; + +begin + if Assigned(FMIRecent) then begin + FMIRecent.clear; + For I:=0 to FRecent.Count-1 do + begin + M:=CreateMenuItem(Self.Owner); + M.Caption:=CreateMenuCaption(I,FRecent[i]); + M.FFileName:=FRecent[i]; + M.OnClick:=@DoOnRecentClick; + FMIRecent.Add(M); + end; + end; + if Assigned(FPMRecent) then begin + FPMRecent.Items.Clear; + for i:=0 to FRecent.Count-1 do + begin + M := CreateMenuItem(Self.Owner); + M.Caption := CreateMenuCaption(I, Recent[i]); + M.FFileName := FRecent[i]; + M.OnClick := @DoOnRecentClick; + FPMRecent.Items.Add(M); + end; + end; +end; + +procedure TMRUMenuManager.LoadFromIni(Ini : TCustomIniFile; ASection : String); + +Var + I,Count : Integer; + FN : String; + +begin + FRecent.Clear; + FMaxRecent:=Ini.ReadInteger(ASection,KeyMaxRecent,10); + Count:=Ini.ReadInteger(ASection,KeyCount,0); + For I:=1 to Count do + begin + FN:=Ini.ReadString(ASection,Format(KeyFile,[i]),''); + If (FN<>'') then + FRecent.Add(FN); + end; +end; + +procedure TMRUMenuManager.GetFileNameAndSection(var AFileName, ASection: String); + +begin + if (AFileName='') then + begin + AFileName:=GetAppConfigDir(False); + AFileName:=IncludeTrailingPathDelimiter(AFileName)+DefaultIniFile; + end; + if (ASection='') then + ASection:=DefaultSection; +end; + +procedure TMRUMenuManager.LoadRecentFilesFromIni(Const AFileName : string = ''; Const ASection : String = ''); + +Var + DN,FN,Sec : String; + Ini : TIniFile; + +begin + FN:=AFileName; + Sec:=ASection; + GetFileNameAndSection(FN,Sec); + DN:=ExtractFilePath(FN); + If ForceDirectories(DN) then + begin + If FileExists(FN) then + begin + Ini:=TIniFile.Create(FN); + try + LoadFromIni(Ini,Sec); + finally + Ini.Free; + end; + end; + end; + ShowRecentFiles; +end; + +procedure TMRUMenuManager.SaveToIni(Ini : TCustomIniFile; ASection : String); + +Var + I : Integer; +begin + Ini.EraseSection(ASection); + Ini.WriteInteger(ASection,KeyMaxRecent,FMaxRecent); + Ini.WriteInteger(ASection,KeyCount,FRecent.Count); + For I:=0 to FRecent.Count-1 do + Ini.WriteString(ASection,Format(KeyFile,[i+1]),FRecent[i]); + Ini.UpdateFile; +end; + +procedure TMRUMenuManager.SaveRecentFilesToIni(Const AFileName : string = ''; Const ASection : String = ''); + +Var + DN,FN,Sec : String; + Ini : TMemIniFile; + +begin + FN:=AFileName; + Sec:=ASection; + GetFileNameAndSection(FN,Sec); + DN:=ExtractFilePath(FN); + If not ForceDirectories(DN) then + Raise EMRUManager.CreateFmt(SErrFailedToCreateDir,[DN]); + Ini:=TMemIniFile.Create(FN); + try + SaveToIni(Ini,Sec); + finally + Ini.Free; + end; +end; + +procedure TMRUMenuManager.SetIniFileName(const AValue:string); +begin + if AValue <> FIniFileName then begin + FIniFileName := AValue; + LoadRecentFilesFromIni(FIniFileName, FIniSection); + end; +end; + +procedure TMRUMenuManager.SetIniSection(const AValue:string); +begin + if AValue <> FIniSection then begin + FIniSection := AValue; + LoadRecentFilesFromini(FIniFileName, FIniSection); + end; +end; + +procedure TMRUMenuManager.SetMaxItemLength(const AValue:integer); +begin + if FMaxItemLength <> AValue then begin + FMaxItemLength := AValue; + ShowRecentFiles; + end; +end; + +procedure TMRUMenuManager.SetMenuCaptionMask(const AValue:string); +begin + if FMenuCaptionMask <> AValue then begin + FMenuCaptionMask := AValue; + ShowRecentFiles; + end; +end; + +procedure TMRUMenuManager.SetMIRecent(const AValue: TMenuItem); +begin + if FMIRecent=AValue then exit; + If Assigned(FMIRecent) then + FMIRecent.RemoveFreeNotification(Self); + FMIRecent:=AValue; + If Assigned(FMIRecent) then + FMIRecent.FreeNotification(Self); + ShowRecentFiles; +end; + +procedure TMRUMenuManager.SetPMRecent(const AValue: TPopupMenu); +begin + if FPMRecent=AValue then exit; + if Assigned(FPMRecent) then + FPMRecent.RemoveFreeNotification(self); + FPMRecent := AValue; + if Assigned(FPMRecent) then + FPMRecent.FreeNotification(self); + ShowRecentFiles; +end; + +procedure TMRUMenuManager.SetRecent(const AValue: TStrings); +begin + if FRecent=AValue then exit; + FRecent.Assign(AValue); + ShowRecentFiles; +end; + +procedure TMRUMenuManager.loaded; +begin + inherited loaded; + if (FRecent.Count>0) and (assigned(FMIRecent) or assigned(FPMRecent))then + LoadRecentFilesFromIni(FIniFileName, FIniSection); +end; + +constructor TMRUMenuManager.Create(AOwner: TComponent); +begin + inherited Create(AOwner); + FRecent:=TStringList.Create; + FMaxItemLength := 80; + FMenuCaptionMask := DEFAULT_MASK; +end; + +destructor TMRUMenuManager.Destroy; +begin + SaveRecentFilesToIni(FIniFileName, FIniSection); + FreeAndNil(FRecent); + inherited Destroy; +end; + +procedure TMRUMenuManager.Notification(AComponent: TComponent; + Operation: TOperation); +begin + inherited Notification(AComponent, Operation); + if (Operation = opRemove) then begin + if AComponent = FMIRecent then FMIRecent := nil; + if AComponent = FPMRecent then FPMRecent := nil; + end; + { original code - I think this is not correct: + inherited Notification(AComponent, Operation); + if (Operation=opRemove) and ((AComponent=FMIRecent) or (AComponent=FPMRecent)) then + exit; + } +end; + +procedure TMRUMenuManager.DoOnRecentClick(Sender: TObject); +Var + FN : String; +begin + With (Sender as TRecentMenuItem) do + FN:=FileName; + if (FN<>'') and (OnRecentFile<>Nil) then + OnRecentFile(Self,FN); +end; + +end. + diff --git a/components/fpspreadsheet/reference/BIFFExplorer/readme.txt b/components/fpspreadsheet/reference/BIFFExplorer/readme.txt new file mode 100644 index 000000000..adeae1dc5 --- /dev/null +++ b/components/fpspreadsheet/reference/BIFFExplorer/readme.txt @@ -0,0 +1,18 @@ +BIFF Explorer +-------------------------------------------------------------------------------- + +"BIFF Explorer" is a tool to peek into the internal structure of a binary +Excel file in biff format. + +It displays a list of the BIFF records contained in the xls file along with +name and explanation as described in various documentation files (see "About"). +Selecting one of the records loads its bytes into a simple hex viewer; for the +most important records I tried to decipher the contents of the hex values and +display their meaning in a grid and a memo (page "Analysis"). For the other +records select a byte in the hex viewer, and the program will display the +contents of that byte and the following ones as integer, double, string +(page "Values"). + +For compiling, note that the program requires the package "VirtualTreeview-new" +from ccr (which in turn requires the package "lclextensions" from +http://code.google.com/p/luipack/downloads/list).