From c836531e3842158741e2768fab49620b4b1502dd Mon Sep 17 00:00:00 2001 From: wp_xxyyzz Date: Wed, 15 Jun 2016 16:13:17 +0000 Subject: [PATCH] tvplanit: Add icon for Zeos datastore. Some cleanup. git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@4758 8e941d3f-bd1b-0410-a28a-d453659cc2b4 --- .../tvplanit/packages/laz_visualplanit.lpk | 214 +++++++++--------- .../packages/laz_visualplanit_zeos.lpk | 3 +- components/tvplanit/source/vpreg.res | Bin 14936 -> 14057 bytes components/tvplanit/source/vpregzeos.pas | 65 +----- 4 files changed, 110 insertions(+), 172 deletions(-) diff --git a/components/tvplanit/packages/laz_visualplanit.lpk b/components/tvplanit/packages/laz_visualplanit.lpk index a9bd3a542..976020aed 100644 --- a/components/tvplanit/packages/laz_visualplanit.lpk +++ b/components/tvplanit/packages/laz_visualplanit.lpk @@ -32,7 +32,7 @@ Portions created by TurboPower Software Inc. are Copyright (C) 2002 TurboPower S Contributor(s): "/> - + @@ -82,222 +82,214 @@ Contributor(s): "/> - - - - - - + + - - + + - - + + - - + + - - + + - - + + - - + + - - + + + + + + - - + + - + - - - - - - - - - - + + - - + + - - + + - - + + - - + + - - + + - - + + - - + + - - + + - - + + - - + + + + + + + + + + - + - - + + - + - - - - - - - - - - + + - - + + - - + + - - + + - - + + - - + + - - + + - - + + - - + + - - + + - - + + - - + + - - + + - - + + + + + + + + + + - + - - + + - + - - - - - - - - - - + + - - + + - + diff --git a/components/tvplanit/packages/laz_visualplanit_zeos.lpk b/components/tvplanit/packages/laz_visualplanit_zeos.lpk index ef4bad70e..310e220fc 100644 --- a/components/tvplanit/packages/laz_visualplanit_zeos.lpk +++ b/components/tvplanit/packages/laz_visualplanit_zeos.lpk @@ -9,8 +9,9 @@ + - + diff --git a/components/tvplanit/source/vpreg.res b/components/tvplanit/source/vpreg.res index fc34bdea3d1ed7c83b5eb1118af500769f710e3b..b969eaab83c375465e7300d7e9161c07219477b3 100644 GIT binary patch literal 14057 zcmdU$2{e>#`0$@$7|UcCTS^%k*=0*)XDowc-zwQ%IX103gA>ySvxH;l4%= z0RSm*W_OnYKm!;+9?$^J0xEzWpah%&w7^gD-^V{+qM`XY0)XpUnkok<4pD$J2QaE= z9q@jT(8)-_>l-iWb?^ptSHS3zfz6-HDjfVw?y73+4gi!0LWgvZ1%3l3Sv-`CJak=b zJiN@^tO0o|7Yl2ovYnf?my4T&J5o_sl(e)b3w(}|@SLKXwYi6#i!)Ns&dC}O6h0v& zenL=!Ozmtb_=GtIEw86~eLhKu3M&XFc6$Ew=96y+wYU%(4Av2OT&WAf!&u+NOY$ZT zj9KA;90C!a6M1=LxW`7a{kkKJrxZQ#SzA7LxARo%XB~PxVg}VqPwerK<1Ln$r z`>l`_3zb0V#+(}X%K(g$Cc0R`3Mt=lYhuiPn$xK4erpq z&^NA8Yb<5FDssW6WXDnF#noU1@(Llfd#Gu(QGxjvX|>%KawEd<8lYmn!G< z5`pJqVY%h~nkQ|NR*ozP0B*3lH{7c)#xADpKmb}=HXjOrn>ELBw!Tfd*hED$DIq5O zq;Bx~ljZvRui>pnSd@Y~8y>#*qcUih=K;*x8t!-l{!6K-=~%`YTF6}cA1+c2jWm< zVX3d7stOsMv2AU0pVEDot#JUh$5Sovd~$PPw*JZk;P1-JV^loMh|NBNi?ONub4!)f!U&sCDKreRhFweUJh&UP`!M zRZiUa5g+Zi)x|uS!@iCaXi1-jhD*Tg`;H@U^4{4so{Et6GtnB_Jl7L9WS<5bJ(ssX zp{Ku56``N_N?uW`xBY3RSLx7kb=Yk7+S6+uG&i`v0m{!hX_f0^#0VJvvYZ+4gB;ii zcJq^;KA;Tp)BS(O@E?6nDnZiT!*zP+sOpjMcOS-U{ZQw6dxwJ;h_?l~71Sa1>^o4y+U79)2i+#mn)@SRGk%;(ZtcO zYL=2Y4kv!)oN^!$} zXCWC@29S!#>`Xy%V6LyX`@L~DF({Q^a&iatTy&qD6ufSd%uiC_Ax_I-r*;csmn31$RZzEi!ky22`>L!^$Z+=Qr z{$$;k-5eJjH$}e=%J~?7jM+y$?AIAzvKE-nUwNPu zwnTKllFp^)%bMKIsSVFyx@jiik``#L4?%=~i5qYO<&6esewX)I&?X4JUlF`20Q%sS zum)&?V|j2T*lT|{gI9YDDh$pch}p;@k5IpFH*&ekStjf0aG_r1)!RUW<6ZBF)9b9Ol_eg*O-@2+}w8{8)FJkN4|eZdE^=ZwZ& ziRI~6-%^yf2D{wcVKfSsQ2H9_Kvf@7@~9ZwfA#fwZ8J|b-)fR8BT7-rhGtdz^eKK_ zW$=&pn^saxRs~U6KAn8|McIM%rE)cT9K~B>CY7uFy%aX^_QoVeLnm_PRAn%gviR<+)BuA-w=b{2r@^Q5kFraX1+i-^m zbz|V7ankPR8#^Q~X@?W2n56><6o2VL5~vG5bCA6lK=Hf1{XOGn{L({nDh}!EQt;sL}kt+ zdWWx|O~bC4lRP}pOy|E3^W1^et8HxD&JwC`V6dC(gI9Ab&!6+qL?FgULXP^7>^mW&44S0loOt+s< zmdpxo7{J;Wb00@Kzyej>9m9$z)^nYm6Q z{hWn2mbw_{Y~3WaczAv!UOufeZ~;Q%#meT2mlAeEA=B@d@zFj36R+q4(v>2wH5tVZ z^4G7q%}`y1&VKPr9F||kA3LXa$nAMUP$icNzIy7SSqrtwTOdjL$W`mWSf?{G?pTpP!dUERSfH z($Z$Tt~#bL7DSX)(ch)01$w^Fl=x8~skU%@%VS}SdZP}Y4Ni`Hd32lwm`YzuA*xlT z!^BGUohhn#CQg#l(pR+7f8)JCeVQSrB-ydF$cHfyh-y#j)L;#6lD)#Kp`&&uO`7#I zqk(#GMU_p$x8122;)QW7m6}xJ;CK5)5BU9~?2W-H1qPJ9;Sb6G@wU;W#EmqR99rP6=|&mUCRKBrDvsxM zHrLAQSaVj_hF*7QEC0w0k#L+>chimg1dn}AEjNeF>Ci_2OP@rmMucc+8YAE*wHDjF zef{7O?49|Sp1*O63x2Pffx*7+nS-~yFR0``zTs`Z%GI*T>)@*F>%O#xsXPUY;B{_E zfBt$5VAE-ToVq6Ua5v}XxF6rN`+PFp2%@}nxdtJpWFVw3)7Ho`70ye#;5{Xp`4o8n zbY?=Si&=jk+p52@RRZmhP(2}3y8pAe2K5iNNyhk4FxL>_+%$C)d24f$vvmVVDANC6 z$4-_cIL^z@$W6`$eM@OQ;iZ76UHhJD7+n^OU@UPwmg?6^Yx|<5kvq0r^JuFcxvGax zY`-Zd%9~@Iez-B<(5^p`10`nTog!2x0~_krK3RI?t7TprTxe6bn;a!La5*6s+AncT z3*H_W6PO$lC#X2Gkxec3*86#)53e^Ti_#M(DjU+7O3MW?m{a*oiXF8`dsDxJq4cgV z>=6%Y(!2{c;57Kr`ZVz^#gV1Chz(_cRZi41XI4CH<3DsoS(TX#J#D>NC;Ot=wW zCWd@w>d8TsG(xZ+FMWG;F)Vj^GqQChXyJowPfu^$W9g3li(oj&et&+U3|1J0|J9=Z z@U`&G9`ho7bp#lT9*bTJ?2K<#QW=rQdGPS&C7}H2ZIsocP^F(wjkLGTozP4SI+SHr z&z6Xnz3X<J|`%)V^yLX<0ZM6oR+g!TZEMbi7I3c3fd7 zrE6`CyBgyJ~exrV(w+A@7hFO1g=iIKSR4xt1X{VT=)yfg+P2ZLm(9KuH1Ci51;FTozuW2nGoq%Fs&T@;ft30mL=cy@6)3hG~8y z2NdR-E(0Nhj5m|I&vk**^idUVxJgE%YO!sJ#)ZeycadRABn+QHTss?!Kfo&9*) zXw3=WmgGE0QPAUZ z!5%lop;CG2DcyD7JI8_&X>r9$1Ht}ECmUErxafs&7iZ&M)5||sjX)w;ZwHhzRY_gB z^gA~~?RbBzPS9{PsORz^KPB+K*Zy$-^jH1(HE1zpy@S`bW){qy#-E!*ogMke%0(6t zyaxJ(EJdPQN1z($yptwW>MZX9PK3m-FH~8UiPHpll1p4?qO;5#PwQc*Eff>3l&`I%Po)vI3@yWvO2 zLt11ymsWPMyRsXXaSTbz7$PE(PoBR^900sPng86k-K#yF`B8gP{jbI8oqKlDm!M4* ziiD#_Zmi*M(mIP}I&0*CX@RN4 z6*fM`n&xLlNWC^SwJki|XvOLnrm|Vv{7U{4E1a%6#1>lY_)GvYvLM?z_m z9@(3|w{jcc7t7~1+j5{YVYL?;mFM3KqMA*akT~c`bshq=N>sl(jPpqAd^22kdLJ++ zkk|hG6;04O4E{^C{iZ!m^9JAZsj@pVqua(?!i(5!?S9(a2J>#duU$l90-8`KOAaw$ za4q0*1ZwcOqaxmx80*9Y3;rx+d$_^!v}H(S$fS5bd2G67AZ@H@c~&kla?8QOaZ7yC z1`KV6=xOr~f1-H)u96XxgO*~#=<3DClYXpPE`i#wlzv)yUZs)CizKHlMjm)Kj9IML zg;l)Fi03<_`1C^ud8!J-!Kjbw=;SrFZ&s&@{Dz<2%+GRqP_&DAaK?AJ$YO&{7Ghv| z&{m}+s%#$}0JsA3*~j0w9jf3NKS;eM@SkK0(ncW%%D{oRbI z=^jP2e5fa-+KCI?YV>B!q&EQ%7T9KRr4uD&c5xpy^5n=HUcNDXOVsND(Q*qBwfme zr61ZmA5wfA$i*gJZS5ZvNs*XxEavY?)hI2j0ZiPhcKfQ87m=&*S5xmT^n#U=&ym|F zRPgr%t_(E=j&je3z}Jg*zKGT7LNreHMPaGK0z*tcZEFHtyggtsDMC@a+ApgcYHn5XF8ftiU5n zvWx?5u|(CqVKiwO?#`>$kwCd-VUguy%^bY_%59*<*|YEXP+ausiYdk5F(br-F%8PW z%CD<~-{uZ%EwJ3L_mhnp;Cwz*?<^iCO}9n0zS|gL-GY8nM?aDI{U{hK;T)C?~k0<-~K+x-K`#VlxIZ@(V1QXru>X+5# zlGs$Xyz(lj7SWo>jPPAzbNsQllJB%1F)M4SkR9`)?$L64S zTbQ>=wuBZI#T1_~?Nb+^57d|aIqxq!CX5KxkKe11f41F1_%yJlE37yu%#R+OLnC&XJNu})^FETR=Br~BQMeOpnhB>i$@MfWZ!EmZ%LJPO1`NFbDwR>y8w9%o!Nc z-u7;OKAd&7bHIy7$pEj9UCn0QNrp&A5J zE|xD?>ZSh#R=bZ>h^lHyG6wfkxUkNilxwt%dPe3MVA-2-p> zkf{~nqt~dh)eKwK2W%>p?x?oVd^mt;hdbRgHE_-433BSrn!@9b=_`*niYd+~_-iah zpkyOlqMAK~=>0c>_(sxDm~W7$@m~ToyQaPNX_5}8M{?lIueFHaPjtapKp*rhis1NH zbU=8K(Ee=y0u=s?3tm%!XEr|ZuU%ZSTe4lU9(zV4In;ia*;v%Uf?a7OB$EpzL|1ip zHd(MM{c|r3J)one`y3+!AAUn-Uv%&D47HCrl6`x)wJszY-Kv1ztZQ#xsTT=3XgQciq$C2g+tyC7)G`yx`!j-bCl!Y&f{6}U9Y9?d_P(R z*Ny%srx6oZiJGY&^T&dD>QjSDTUK$~VFVqem zY|3C8Lgn3AILfJP6Gu|H)#91zh0DYDoFAN5OfwL#zgQG}15tfEfQWSwTBn3pjFL2t zmuqaM%{xur%wVckh(qXI)u*nJ-1!_a6GuS0pAVzD zNfJGh`COYjDwMA#BgE4C6)m5SGs?vkOVj9l=D^7}`WG1UGZ$~F&yb9y=UW>+X}C#J zv~*ma`rE@SrXAHRi%I*iAO@6oRGdX*5d0}a!jeum5qNVoJC{)e>&d|^gb`mFBMw|K zG_T1FQa9P@WZs4x|1_0&Du&|CK1Hbhn{Dpx$E$-@`ER=%e>i`dzxYRkd-G^p1HY0@ zo6ws+XT`Q4q}TFAuMew+_jj$a%*E;;`aKz*2qsyxp>8LzV~CJ)@h~do)03whQIkC$ zFB-&+#Yyn*TbxpP8W_=KjNOCf{YQ3CWLn|M4a}yii?TV`{_xNgVd^0jD8$Pv#gAbT z5!+QEGmujAYz_h><`y>Gi*q;@d^x%e(l7^EdpdcF`0tW^yd?&z!9uTAtP-5Sc-g+xYoL@V*0 zr~4gzD9C+(?eHge!buy#DfqqiXR`)I_gMGof;qMzS;*a83fX%rBAddC=xbc%V|cr? zJk{$;f>%Q!U8f!nUQN~Ez1` zrH`N`k{hW!VqxOI?LtGV)3?cRJ^Xrr))wV7TrV*^9AHT*%&)z8wOii7X+mTzfcif7 z;#*5K$i&5<+iH5|k3+b?f|f@K!&Vb_fQ>@&*J_5*w-TnyIg^hUkU-V$N>GBXk+ z$SZoxAE&(;L>DFT^d@rlNHr0DOL9GlDJA`CYrZgR&+nE50KtD_Vhj=?oE`p8F&X;7 zMDKgONnAFNzz_7!8C`$0eutpWA`feNB_} z$$#y8d3)IKZJf?ylta|RVmW+#-Z{Evy(tJ@k@ytDq+&^F&*RRZfzBo$*JiVdTu}FWu57q|-DrHid R=rTs?n~t;k$^4G(e*iNc(ry3% literal 14936 zcmeHO&x;(#6@I&InAWb6mPjDEdDugo<0QQ>h73sZ&dL(DC7~bwaY}Bv4(Kp@Fibl+ z>=+D#Z}CZc-jg5~!|q|t94yd4$bTS+iE~RQ5zGioD&O~BRd(}+_RgZ{B9h-Bu0Zyg;Ov0Cwb@BpNe!s@6g5lv|1S=A zD-t#Hk)j~u=!*TG`@Ipgp3(Ab?cEf|b}Gv_7_i8z1Qo;+-~ug;OH z&LaAu$F!bFzmNYuaM5GE^09e7P}K%+%Db?-H^AUFHrn0=xqOvmH5%4;5CKOinik}ZgM$OAQvX+w|Isv4l>=|K+gn}^*xvH;%{KD9oG|DsHu>gO zA!j8#;dRrt>hKh`s~9pnRS{I#b;P(}y1KDZ*IeiX%whqvX2nouH375cpu_T^PGWL+ z9s=56;P94Q1cx`C36E!Zu_9%7apDB;PCZ}`xX`Hk{YZIGi&l{i4*+vrwIt_Eg(hZU4M`tjft-8-=R8U4^}I?AyZr z4Y`Fq$G|JV7cdf9S_YTrXj4A*f>+b+_IhwKd;-qkabyzr`vFrzED~oPLj&igqqy&J z7DJ?&0=PWms2U|!~wH8aj56GHn_4Iy6THw zI)O`iHJ8C^kLsH@{T^acUI-d zN>6`O;>OvtT9)$k?2oig#lP^^(vzqeI{pcBi!eVlzh+DAFxY08Z-lCrVUub4J)B=O zM_+>HRx2H*>4&#JB+ocW)6s3^*)Y!e478v_{+WV~omts{S?4inc772!ybdnk#@}VU zS)YS3lJ|zx8u5Oy0km-6Etmua#Cre4>^JHMKnxL+nX2LS$d24M)KmeW*HBY!p?h(z zHryIwa-GV$L@>b-s%6>uT~U=H$g+xkY@}nu|(dC~ULdi>mtj zDli*_q@7@pdvZAKm)h)bTjz;MCTuQgMDRUTeyB1vV8>n?JSRh{Fx`v5cj%V6)l z;wsDG?)&oY3@|@xQjLIu`#CHhOZRiI%-z5PTgC~_f&5=7)_4fBbKx*vbP?gqTf3R2VWMQGL8EQLK1}RXYIwP^94+L_y%f;O)tPNIShN zvK|5~UarMdZXpxX-?SLbtiD~v>MyT|b6!wWV`F1OF@h2W#d}c61OSrt& zso373)ANjN*dS;2jCQ~DOF{5_ztoJ0o~-(x7&(vb-~YtpVS4}GJ;g($qkHsAM?kG~ z6pt!?=@%uYUs@RGv+zqVBHH%LxfZ#McPq>g&!2yuiNmuEgG=#n<8e1BvMgo_6OCT1 zSlfAYLOJih2w!wt-k-}Nlx6Ytr!!P9QicF2P7o;71NMLm#Y{bIa}TIBk7v4s~6vHYp=;&6I?K}&4w`tKV+Z=-{l zmhm19#wWZx@T+Z?B8-|Xs zkm2Wn~ zXTTB1PAvWtH*5|FPZv57=ZWxtiTzxXSWJ#7DCH>3ahbS*TInwnM=6|Q?13R6*7}Ra zX<2_ZA6NN5;X4|RbEO?#)30ebKfDMYuVcnfP8mIY2iAF2xA%*hm(6L>BPW1f`CLCS z_6GYcVrGgNOG99-#JQWrk_(oQv5v&p8xnLFdxMl`Gj&pkG$Sv1^}EO3t}VdnN%Q}T zt;qlGo3}7q#N%G}1)uMyUzehj06U~LHJiKLE{sy`wt*L4rWsMQ@#qizzGgs&%;b#x z;JPs=Vg}~_X=9g7Iyk_(6zm_w=Ifv1or&izX}7aRzki0ffznajKdbm*`%=`v8Wo>S z7SMGmU{;hqi}`sp>eB$z&S(D!xOwW%PXdPcw&9LQ5I5tU z&WaajySuxg#&|N>0il}Wf!if!pT}3JY&7== zU1FnoXH0A~hxi<6Rw;H$vp;E&=8&N@`xB)(WccIk_&JZm=WYD#)C!xdo%&RtY2Fiv z3z&QcOg;@OpK2$m@d=EcF+R;EjZfGi$ReK{8%Y-VBqmwpv+He=d@2T6;IliXydbNv zNwiL}C(E#rrPyrJbj&6_Hm;`qrxV7{^SGUI{G=V;z&Lpe7P$pnj+}fRn3ijoc5_eK z_t51bJ!!oP7B)R*`hqIQ*eUo6nD$|qA3GOgW|FuhjG6d|E9dtg^XshEZ(Yj$cV4fW z_G=&KasFtz96tXGVkB6ePOZ%$$Em-8d zRgafEl6NKY{^22g9*}`W5B(O0a-5vLN1sPY8nr&5p948kE2f|0F~7y}Sii*qkE-;P zJWj{x0+0NHgI|eTS`K&Lmvv+^6cTK4=)Wa_#bRC9zQMuzGNk(1jjbt%un^?)XaxH_wBg`W$mt?ag`EOwD?I9`<~hQnjM8Kw+AX z@i)ue2Vjohp}yn}zRCRG*3cCEMr#Ux7HMU_+h&$lVm(J}l|!Bld!>ezt(LUB;yU5= z>N)%yg7I}7`yz~gFhZoq-;Z_3&SML|VH1=&K4tLLk%NUpJzx*G&>A92A;JHzrrKDf zmRBTW8NlBwQVzE-31yN_ZQRSpNfw(V8OtQeAaWi4ZVtoyxR)U0QX3-&shdpj1r)yP z_t~f`#=J3~B&ME><2;{q`nB;wAy_l+%OpmP`6R|9q!Ytejk5_n z%gID)16-l&#;hpr)&_3U(Yc3KyffJypoIhHcD11>?bD9t*LLumFWmQJhqa*DUFi;_ z)R+t8Y;mk_^>$DgwaRPSIJ;{pD-t{`H!3e}2t9`sio9$rrC&{bmKVtjIZB;vAa! z+e2PgvL9s81N;c%!OBsR*N$FAAT60h50X5}a1&BHTKRlMRvw_tUqxR11}*tUGBo>l z=l)s${hfdR=Hol=tB;-g>QByn{Ut8^clTp7!`5hj2tR@IF~%>iVdFS-U4E?*YsRWA TRc(Zpu_E>Q8MP2v)QbEEY;V2I diff --git a/components/tvplanit/source/vpregzeos.pas b/components/tvplanit/source/vpregzeos.pas index a7b950cfd..bf3f515f1 100644 --- a/components/tvplanit/source/vpregzeos.pas +++ b/components/tvplanit/source/vpregzeos.pas @@ -1,40 +1,17 @@ unit VpRegZEOS; {-Registration unit for the ZEOS database components} -{$I Vp.INC} { Compiler Version Defines } -//{$R VpReg.RES} { Palette Glyphs } +{$I Vp.INC} // Compiler version defines +{$R vpregzeos.res} // Palette glyphs interface uses - Windows, Dialogs, - {$IFDEF FPC} - PropEdits, - {$ELSE} + {$IFDEF DELPHI} + // Windows, {$IFDEF VERSION6} DesignIntf, DesignEditors, {$ELSE} DsgnIntf, {$ENDIF} {$ENDIF} - ZPropertyEditor, - Classes, Controls, TypInfo; - (* -type - { Implements a property editor for VpZEOSDatastore.Database property. } - TVPZeosDatabasePropertyEditor = class(TZDatabasePropertyEditor) - public - function GetZComponent: TPersistent; override; - end; - - { Implements a property editor for VpZEOSDatastore.LibLocation property. } - TVPZeosLibLocationPropertyEditor = class(TZLibLocationPropertyEditor) - public - function GetZComponent: TPersistent; override; - end; - - {** Implements a property editor for ZConnection.ClientCodePage property. } - TVpZeosClientCodepagePropertyEditor = class (TZClientCodePagePropertyEditor) - public - function GetZComponent: TPersistent; override; - end; - *) + Classes; procedure Register; @@ -46,38 +23,6 @@ uses procedure Register; begin RegisterComponents('Visual PlanIt', [TVpZeosDatastore]); - (* - RegisterPropertyEditor(TypeInfo(string), TVpZEOSDatastore, 'Protocol', TZProtocolPropertyEditor); - RegisterPropertyEditor(TypeInfo(string), TVpZEOSDatastore, 'Database', TVpZeosDatabasePropertyEditor); - RegisterPropertyEditor(TypeInfo(string), TVpZEOSDatastore, 'LibraryLocation', TVpZeosLibLocationPropertyEditor); - RegisterPropertyEditor(TypeInfo(string), TVpZEOSDatastore, 'ClientCodepage', TVpZeosClientCodePagePropertyEditor); - *) end; - (* -{ TVpZeosDatabasePropertyEditor } - -function TVpZeosDatabasePropertyEditor.GetZComponent: TPersistent; -begin - if (GetComponent(0) is TVpZeosDatastore) then - Result := (GetComponent(0) as TVpZeosDatastore).Connection; -end; - -{ TVpZeosLibLocationPropertyEditor } - -function TVpZeosLibLocationPropertyEditor.GetZComponent: TPersistent; -begin - if (GetComponent(0) is TVpZeosDatastore) then - Result := (GetComponent(0) as TVpZeosDatastore).Connection; -end; - -{ TVpZeosClientCodePagePropertyEditor } - -function TVpZeosClientCodePagePropertyEditor.GetZComponent: TPersistent; -begin - if (GetComponent(0) is TVpZeosDatastore) then - Result := (GetComponent(0) as TVpZeosDatastore).Connection; -end; - *) - end.