From d2fe2df1e789bd4a3b926119092e7ef14c791a5b Mon Sep 17 00:00:00 2001 From: wp_xxyyzz Date: Sat, 10 Sep 2022 20:38:31 +0000 Subject: [PATCH] tvplanit: Define initial control size by GetControlClassDefaultSize. New icons in PrintPreview dialog. Consistent 3D look of TVpPrintPreview. git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@8469 8e941d3f-bd1b-0410-a28a-d453659cc2b4 --- .../tvplanit/examples/fulldemo/demomain.lfm | 2 - .../tvplanit/examples/navbar/project1.lpi | 3 + .../components/monochrome/VpCancel16.png | Bin 0 -> 672 bytes .../components/monochrome/VpCancel24.png | Bin 0 -> 932 bytes .../components/monochrome/VpCancel32.png | Bin 0 -> 1220 bytes .../components/monochrome/VpFirst16.png | Bin 0 -> 302 bytes .../components/monochrome/VpFirst24.png | Bin 0 -> 402 bytes .../components/monochrome/VpFirst32.png | Bin 0 -> 488 bytes .../images/components/monochrome/VpLast16.png | Bin 0 -> 312 bytes .../images/components/monochrome/VpLast24.png | Bin 0 -> 407 bytes .../images/components/monochrome/VpLast32.png | Bin 0 -> 481 bytes .../components/monochrome/VpPrint16.png | Bin 0 -> 278 bytes .../components/monochrome/VpPrint24.png | Bin 0 -> 441 bytes .../components/monochrome/VpPrint32.png | Bin 0 -> 302 bytes .../images/components/old/VpCancel16.png | Bin 0 -> 621 bytes .../images/components/old/VpCancel24.png | Bin 0 -> 912 bytes .../images/components/old/VpCancel32.png | Bin 0 -> 1411 bytes .../images/components/old/VpFirst16.png | Bin 0 -> 198 bytes .../images/components/old/VpFirst24.png | Bin 0 -> 294 bytes .../images/components/old/VpFirst32.png | Bin 0 -> 435 bytes .../images/components/old/VpLast16.png | Bin 0 -> 182 bytes .../images/components/old/VpLast24.png | Bin 0 -> 244 bytes .../images/components/old/VpLast32.png | Bin 0 -> 418 bytes .../images/components/old/VpPrint16.png | Bin 0 -> 419 bytes .../images/components/old/VpPrint24.png | Bin 0 -> 812 bytes .../images/components/old/VpPrint32.png | Bin 0 -> 958 bytes .../images/components/regbasepng_files.txt | 16 +++ .../images/components/twocolor/VpCancel16.png | Bin 0 -> 672 bytes .../images/components/twocolor/VpCancel24.png | Bin 0 -> 932 bytes .../images/components/twocolor/VpCancel32.png | Bin 0 -> 1220 bytes .../images/components/twocolor/VpFirst16.png | Bin 0 -> 302 bytes .../images/components/twocolor/VpFirst24.png | Bin 0 -> 402 bytes .../images/components/twocolor/VpFirst32.png | Bin 0 -> 488 bytes .../images/components/twocolor/VpLast16.png | Bin 0 -> 312 bytes .../images/components/twocolor/VpLast24.png | Bin 0 -> 407 bytes .../images/components/twocolor/VpLast32.png | Bin 0 -> 481 bytes .../images/components/twocolor/VpPrint16.png | Bin 0 -> 278 bytes .../images/components/twocolor/VpPrint24.png | Bin 0 -> 441 bytes .../images/components/twocolor/VpPrint32.png | Bin 0 -> 302 bytes components/tvplanit/languages/vpsr.de.po | 4 +- components/tvplanit/source/vpbasepng.res | Bin 44808 -> 51646 bytes components/tvplanit/source/vpcalendar.pas | 2 +- components/tvplanit/source/vpclock.pas | 16 ++- .../tvplanit/source/vpcontactbuttons.pas | 21 +-- components/tvplanit/source/vpcontactgrid.pas | 19 ++- components/tvplanit/source/vpdayview.pas | 19 ++- .../tvplanit/source/vpdayviewpainter.pas | 2 +- components/tvplanit/source/vpedfmtlst.lfm | 49 ++----- components/tvplanit/source/vpedfmtlst.pas | 118 ++++++++------- components/tvplanit/source/vpevnteditdlg.lfm | 134 ----------------- components/tvplanit/source/vpledlabel.pas | 35 ++--- components/tvplanit/source/vpmisc.pas | 8 +- components/tvplanit/source/vpmonthview.pas | 18 ++- components/tvplanit/source/vpprtprv.pas | 28 ++-- components/tvplanit/source/vpprtprvdlg.lfm | 136 ------------------ components/tvplanit/source/vpprtprvdlg.pas | 31 +++- components/tvplanit/source/vptasklist.pas | 19 ++- components/tvplanit/source/vpweekview.pas | 21 ++- 58 files changed, 247 insertions(+), 454 deletions(-) create mode 100644 components/tvplanit/images/components/monochrome/VpCancel16.png create mode 100644 components/tvplanit/images/components/monochrome/VpCancel24.png create mode 100644 components/tvplanit/images/components/monochrome/VpCancel32.png create mode 100644 components/tvplanit/images/components/monochrome/VpFirst16.png create mode 100644 components/tvplanit/images/components/monochrome/VpFirst24.png create mode 100644 components/tvplanit/images/components/monochrome/VpFirst32.png create mode 100644 components/tvplanit/images/components/monochrome/VpLast16.png create mode 100644 components/tvplanit/images/components/monochrome/VpLast24.png create mode 100644 components/tvplanit/images/components/monochrome/VpLast32.png create mode 100644 components/tvplanit/images/components/monochrome/VpPrint16.png create mode 100644 components/tvplanit/images/components/monochrome/VpPrint24.png create mode 100644 components/tvplanit/images/components/monochrome/VpPrint32.png create mode 100644 components/tvplanit/images/components/old/VpCancel16.png create mode 100644 components/tvplanit/images/components/old/VpCancel24.png create mode 100644 components/tvplanit/images/components/old/VpCancel32.png create mode 100644 components/tvplanit/images/components/old/VpFirst16.png create mode 100644 components/tvplanit/images/components/old/VpFirst24.png create mode 100644 components/tvplanit/images/components/old/VpFirst32.png create mode 100644 components/tvplanit/images/components/old/VpLast16.png create mode 100644 components/tvplanit/images/components/old/VpLast24.png create mode 100644 components/tvplanit/images/components/old/VpLast32.png create mode 100644 components/tvplanit/images/components/old/VpPrint16.png create mode 100644 components/tvplanit/images/components/old/VpPrint24.png create mode 100644 components/tvplanit/images/components/old/VpPrint32.png create mode 100644 components/tvplanit/images/components/twocolor/VpCancel16.png create mode 100644 components/tvplanit/images/components/twocolor/VpCancel24.png create mode 100644 components/tvplanit/images/components/twocolor/VpCancel32.png create mode 100644 components/tvplanit/images/components/twocolor/VpFirst16.png create mode 100644 components/tvplanit/images/components/twocolor/VpFirst24.png create mode 100644 components/tvplanit/images/components/twocolor/VpFirst32.png create mode 100644 components/tvplanit/images/components/twocolor/VpLast16.png create mode 100644 components/tvplanit/images/components/twocolor/VpLast24.png create mode 100644 components/tvplanit/images/components/twocolor/VpLast32.png create mode 100644 components/tvplanit/images/components/twocolor/VpPrint16.png create mode 100644 components/tvplanit/images/components/twocolor/VpPrint24.png create mode 100644 components/tvplanit/images/components/twocolor/VpPrint32.png diff --git a/components/tvplanit/examples/fulldemo/demomain.lfm b/components/tvplanit/examples/fulldemo/demomain.lfm index 342c771c0..e4ab099c6 100644 --- a/components/tvplanit/examples/fulldemo/demomain.lfm +++ b/components/tvplanit/examples/fulldemo/demomain.lfm @@ -382,8 +382,6 @@ object MainForm: TMainForm TabOrder = 1 BarWidth = 1 ColumnWidth = 200 - ContactHeadAttributes.Color = clSilver - ContactHeadAttributes.Bordered = True DrawingStyle = dsFlat end end diff --git a/components/tvplanit/examples/navbar/project1.lpi b/components/tvplanit/examples/navbar/project1.lpi index 02ba4eb27..559083187 100644 --- a/components/tvplanit/examples/navbar/project1.lpi +++ b/components/tvplanit/examples/navbar/project1.lpi @@ -58,6 +58,9 @@ + + + diff --git a/components/tvplanit/images/components/monochrome/VpCancel16.png b/components/tvplanit/images/components/monochrome/VpCancel16.png new file mode 100644 index 0000000000000000000000000000000000000000..9d90846beefefb7e12836c9f1d2a68ca1ab67c9b GIT binary patch literal 672 zcmV;R0$=@!P)pF8FWQhbW?9;ba!ELWdL_~cP?peYja~^aAhuUa%Y?FJQ@H10xd~I zK~y-6ZIew)Rbddvf6sGXQV=XC!A&o|ojD%z1%yhMw#xbhMT%0JK7%X!04*XZG8Mv4 zkh@%l;9VGb@!q2dMbM^%TIoI4`%H^-)Vw*nXJ(lB&HtG(s>**hFmQ=18^@Td7^67% zoz~WmY;OK;PBmu=^z?KP1kZsfAZW_11MfIGnq_zQ=dshCgp(v82ui?XU>@gg5r%Dq zVH?)o2Ihe&e7{7JBxeco&LzM@^&Zvgm;dJiqG%9nSAip(8zD`9^y)Dyd0Nk*^Ig5Y+E}XnnTMA!pwVEwRoDX~jpkD6>HZaB_ zvQS_z7m1UI9AHdN;rmHZ_?u5l%NmD=b*y~^Y!F3v$QNmeYIOzx5e24*qPM^&;31Ha zWos0wzE+V#?duyXR3BBas+!0D_4W4;t4K}b_?4;_i`3hD1>Y|LKAv}NF5G z_0KS70o7S5mHm_NI`^EryW0uFag4cktTtJ;#@^na=G4Ds#O{9Nu$jgH0000pF8FWQhbW?9;ba!ELWdL_~cP?peYja~^aAhuUa%Y?FJQ@H112IWN zK~zYIm6gwHTvZguKj%(o)FEB8o01k6S;%{LUWmGJQJravB4*;EtHipIf>~DZUum`l z>B1B$f{IBCElL|($g%^&yru3T|^e(DbQTKOBoFkBp;L9Mog z>J31E-!bM(+U3X zDUtO#h~$^!v-twp1*US5f_w_t^*;Uh&T}mwVnl=BG$K!YCLwX047i8k`-t2Ej-&b< zV;rhgpo{9K#PP2K{y`98Ob38cY1#m%bK|jNPZ&lVKR|UJ=pynus#R3?4kZUDm;cKD z)AWo%*Iz_iM zX}33Mw>L1RNzq-`2hON2`tLfbE~{6Xu6pxF)M|}B_cdTEC-0#U+44RatUZs&hkmsR z{jpF8FWQhbW?9;ba!ELWdL_~cP?peYja~^aAhuUa%Y?FJQ@H11W`#u zK~z|U#h1@-R882V%oe}ktiDiA*qptLMf3zVnl|TYKjdh z8e=W!A3%aJsL`}jf*6S|VFB()-+QUC+9_p_Wq(c?=D2uo-rSja(-}yNXLrvz_kKU` z{y6tOQC0p=vzyKoNsvzOMzs&v2|NjOgwZVU4{!s^$}lx`4b=xt4cl-AQmIzj+D-ri zz++9~-a}-Rg@rH4W>+2^z;TWu@&&N1N#SanL$x2z`{CgLL@XR<1o)sTG7DsY%c%av zrcHAIuT?|T0;JQQRDJn4iNu@Sy0y5jaJ4zkW-ROLaMPCT46Zv^A0Sxs@1nNqS$uyW zZt9w{U@6Z6@0Lacj^MgK)&itbtt69vw0^1+`2OKX7O#XD2M&gw+a#0S+`PFAW*rEQ zT50plVcTy+;$2;vuI{wU^o3y7RD#vceZLx6O8H}H5Ep2hbs#C~C5 z`)F&+R6qp9Dg*4R+sk#&19M^P3A(#?l>t-_8L1OBM{RNO9B?%jB3}Gz*r#m4n3;Zb35)bnKG+ON@z|%$`7u(r{Q2jY3`rEqV0JeSGXl*kAntv3mu3Esx8o%mB zwr;g*I~bPFoAIIvaHs4pnzK=9!G@be|GZkk=Smu?wA0-8(;ED9q~+sI9z3Esh6dtSE)Rrds$l>k1bZk;(i1E zMj61eGDhG~sY*o_lKqN&veY}P~ zPP}CC5S5n8y+!#Ac^BWmUItKofXHZ+tU8S2Y>wK6!Wb|J3{oic#vZkDu`1<_MX|1~ zEx@pm{dwu4D__T*oh`Jq_`oyaOkBZrdz*dT*0ta|o&b77&)=-BI?T+hLU|Ly%*-mP z1C(ll>dQFJ7$WPR?Z)Eg3~@!Iza$RvPqH(>hlXbo)njWa;!_RL82``43~Wh`i6#)Ofvw z#=mBroh`JszK7~bg8#v0>@KRKE;3cBl{O=`13P1UJVHV0000anMprB-l zYeY$Kep*R+Vo@qXd3m{BW?pu2a$-TMUVc&f>~}U&Kt;PfT^vI!daq92$ak5%PyVoC|)m`JBu%G&z<+>;pa?y^OteE()P_!c-v61=diocw4|bB?^efHq|Noiu{w=o`n3?U>4)g|tr>mdKI;Vst0F6#}#{d8T literal 0 HcmV?d00001 diff --git a/components/tvplanit/images/components/monochrome/VpFirst24.png b/components/tvplanit/images/components/monochrome/VpFirst24.png new file mode 100644 index 0000000000000000000000000000000000000000..11257f479a7f2d0a92e307525427a7ac0684ae40 GIT binary patch literal 402 zcmV;D0d4+?P)pF8FWQhbW?9;ba!ELWdL_~cP?peYja~^aAhuUa%Y?FJQ@H10Ut?3 zK~zYI-PJ!!!$25-@#k#Q?!P?cu-A~dF(Mbs+h@cKqK^$C5 z5uA!nPA*PD+t=YT9Fn8ld4=M;gplL;g&avlRhi{fW?KIjK7c0Wi6=;*TJ^)8d{$*mwYy1CU{H z(geMgtJlS7fVOJyz@~+4@IAVjhIl=q5X5^A3^LjQ-Yn!i8eovd5XM^;vK|6_m|Afx wL&n+!Iw*&(h`4^4u|C&MAlA&&i#Dgg5BB6~`>G__h5!Hn07*qoM6N<$g4E!uW&i*H literal 0 HcmV?d00001 diff --git a/components/tvplanit/images/components/monochrome/VpFirst32.png b/components/tvplanit/images/components/monochrome/VpFirst32.png new file mode 100644 index 0000000000000000000000000000000000000000..015e3b81e8c62a603f7398410071247c419feec7 GIT binary patch literal 488 zcmVP)pF8FWQhbW?9;ba!ELWdL_~cP?peYja~^aAhuUa%Y?FJQ@H10d+}4 zK~z|U?U%nw!%!55zf-jB)cOPtQU|Mx2>JrrE`l8zmu>|&aS@z-fiB`GZe3ah5toX% zI4N{fTnd6uU^}G_9)|`RQp`=0{u%6k=k2+ zA_7{3`CD~P~X|5DmUiSNV?$_4O3Q(u2VAm eGnxtfdx2m7E`fIwOU^z30000anMprB-l zYeY$Kep*R+Vo@qXd3m{BW?pu2a$-TMUVc&f>~}U&Kt)GAT^vI!daqvI$agS72(;f}|i=k(Ke zE?QMn{A~3%e}>38Qc23{bKCdbDEMF5ctrcc+#3t#ohfAeZrsq*C^W;D>*NlR1@nyE zQ+_yXOKMKjV{q7gj_0ai0Lx~vYMtjypJLP$PG>Z9@ZSlz9Jao!j#VTmRr;&r@&lre zrhU`eJ%_vGlTP*3?N86Ju6U_X6}VnXwV2Q2*rWgT%d8(gxBL3-x?UsDLkym-elF{r G5}E*Z+J1Kc literal 0 HcmV?d00001 diff --git a/components/tvplanit/images/components/monochrome/VpLast24.png b/components/tvplanit/images/components/monochrome/VpLast24.png new file mode 100644 index 0000000000000000000000000000000000000000..a4136efbe8e9371f70412a7eb5110595c2e7ba37 GIT binary patch literal 407 zcmV;I0cie-P)pF8FWQhbW?9;ba!ELWdL_~cP?peYja~^aAhuUa%Y?FJQ@H10VGL8 zK~zYI-PNH^!$2Iz@$Y{{Y?G)V2qD-FGl5z{eS?4zP*XesZ-H5O3}92FnubgvW)?s~ z0MjSfX38H^aiVu!(=HJHrkA^af1l)X*NUpL&Z@07{a*kZWnPxi>n5TDL?85|Ju3vr z-HVS9km$9Zx4$x*RIh*wRAOK&tHr)W!Wg*3lZlLGyOy3-I%;LEI{|n~pF7}1RwSqF zKx5elA_IAp+vmN?01dix8q2^ywy8-}6mcHYDv;cJph0&Ias*5a7pV8tw*^ zJ}@NFo;6&F(@~tc4oI0_<|?1-Qot(p`xouc13&S(YZdf3UaSBB002ovPDHLkV1nD` Br!D{h literal 0 HcmV?d00001 diff --git a/components/tvplanit/images/components/monochrome/VpLast32.png b/components/tvplanit/images/components/monochrome/VpLast32.png new file mode 100644 index 0000000000000000000000000000000000000000..8abc926337e87bad247a64b048362662552a262d GIT binary patch literal 481 zcmV<70UrK|P)pF8FWQhbW?9;ba!ELWdL_~cP?peYja~^aAhuUa%Y?FJQ@H10d7e| zK~z|U?bp9f!cY{)@$VrfFsbnYOiY}xiIGPDV&r z+(>jnCKKPls0*-g9B^oD;=M>KgFR#KpWi39C+V%ID)X$wT+?Gf3;-6w-ca2BDrgf} zL$#)5=V~T^H2OQJo`Sr*GG^8t*n1U3Xn!GkIGFjJdx8<`t>*A)_|zOtpMWoa=~!AFv`vvZUq3j42BQ$ z7N6y?0KN(}+zud80XmbDun8CM_?u~a3d+;G|y8Pz#d;$GSg&<|BPb5zXyB* Xy~2q0ra4;500000NkvXXu0mjfc%94e literal 0 HcmV?d00001 diff --git a/components/tvplanit/images/components/monochrome/VpPrint16.png b/components/tvplanit/images/components/monochrome/VpPrint16.png new file mode 100644 index 0000000000000000000000000000000000000000..0e2b729f1b0413f5ed7528fabb9a0fbb4a78e95c GIT binary patch literal 278 zcmeAS@N?(olHy`uVBq!ia0vp^0wB!61|;P_|4#%`oCO|{#S9F5he4R}c>anMprB-l zYeY$Kep*R+Vo@qXd3m{BW?pu2a$-TMUVc&f>~}U&Kt+o^T^vI!dY4YV$a~0u$L0Mh zJ^{0a_nZ78+c)`b^83syJ%P86e}UKKDP~VR|82;b@89X;xng0ju+@HV-`eAA9HP!l z)QjX`V0dfMu;<*=(#ub6bl!RdAL#4)9J9psDxU^t$v@5mBKsTz?#s^dPuj+oo_239 z8v}>6-|hbjTbABVez9lP+imwlxKs8Q@>HE WnbUuSMZOd0Tn0~9KbLh*2~7Y_4r+z~ literal 0 HcmV?d00001 diff --git a/components/tvplanit/images/components/monochrome/VpPrint24.png b/components/tvplanit/images/components/monochrome/VpPrint24.png new file mode 100644 index 0000000000000000000000000000000000000000..9f5dc6353f6fcb262295f90577154cdca1db7b24 GIT binary patch literal 441 zcmV;q0Y?6bP)pF8FWQhbW?9;ba!ELWdL_~cP?peYja~^aAhuUa%Y?FJQ@H10Y*tg zK~zYIwU$9n!cY`N&jaE<)R>r-9T0;W_v)5 z7RG6kU>4n~QNB#Y?*>go?XO;pAbi;$Zp8KFIqz}(L;>h6X@>O#(nazR>j{eYR|>pn54>+{ts>new}V5cNXxqw6JiL5hPGAM+m$ z!LIl@aL@AGoy-JGN_~o-=a{A}+0%S`ZGjGUUxAbV`k|G5>jbfP%F;2ap}@wVIz~NH j!PGLgy#Fe4|4hFCc0^-hj$b>C00000NkvXXu0mjfCUUuD literal 0 HcmV?d00001 diff --git a/components/tvplanit/images/components/monochrome/VpPrint32.png b/components/tvplanit/images/components/monochrome/VpPrint32.png new file mode 100644 index 0000000000000000000000000000000000000000..4cc0f2b0839926083e6cd6b59ba60d7db73cdcbf GIT binary patch literal 302 zcmeAS@N?(olHy`uVBq!ia0vp^3LwnE1|*BCs=fdz&H|6fVg?4j!ywFfJby(BP*AeO zHKHUqKdq!Zu_%?Hyu4g5GcUV1Ik6yBFTW^#_B$IXprYNLE{-7)t#7Aa6l_-DY5QMr zw@vhogihpf4dpA9kGvm7WefQ2Sn#zv3OY@J$>Mw&6+|T=I7@adM^tfnDDE@pH1wWjdeBqK3L}RED!cwZ_5IDgTd3)&t;ucLK6T_DRp-M literal 0 HcmV?d00001 diff --git a/components/tvplanit/images/components/old/VpCancel16.png b/components/tvplanit/images/components/old/VpCancel16.png new file mode 100644 index 0000000000000000000000000000000000000000..c1044873730d0d470ce68d3364c6501ff3794d32 GIT binary patch literal 621 zcmV-z0+RiSP)+vbeQ|*oO3_secWde zjh;cJ!h1VA&p4TUPFfcRTBj`L9x>N-zyIpt($Z_IQqiLfA}c2EmY4Ic>%L9;{=M7z zyzgf+v5UIxHhph2y1#?qvlT^;OWWI@Vy7wazFfX6hWTvLr2on>; z*(~7Dz*%$%H)m$-r03n;+ueNv&bI5m7@wW>L5w*LxhpHfB1i@&(T!h*@m$X5MB=4D zaa(su~P6ybSS#!Be zVYOUeD;&BBkO6%mKmI6?SVz(NkKZ7JdXWSi8#r|EpUtMaI6wa?ZM^}0=a&-gYDlzO0*y1};n%d+jm%Wfm`u4I1zwR!u63TL0V00000NkvXX Hu0mjfWvw8L literal 0 HcmV?d00001 diff --git a/components/tvplanit/images/components/old/VpCancel24.png b/components/tvplanit/images/components/old/VpCancel24.png new file mode 100644 index 0000000000000000000000000000000000000000..238935f2c98e2096df9ae9bbec9b909cfc806de4 GIT binary patch literal 912 zcmV;B18@9^P)a zSncT%HJh!9(0n|8<_?8q(jOD?x3a9Oijv}ZUP>ks zAKjAler*aFmpn1CnLIbWMZU#RZ&3BA4>@^{$#sPPi5q z_p?A~ zUfv@=PYa1qR5bmntE*sg#$mBQeMd(%-oI(GNmzn)pYLsPX=$Tqx05eR_?nt5J8f_r zO?&^S}TA5~gFQn|(eOBTU-=TOlrd zq$kNV(ZXq(n=+H0DcbQdsN35hw6+3Z`O5q}3!8_AKxl4eF~Trs#$v-NbbwxRnSvhA zGwi>>;jbdceNiL{K-WQNYfD!lIGvzwZGp19d>_ti;xgfjxivUwGnuW{7Z$6P1s+-$ z5&i&H34*99=0p9V6Q4-9j>li}il%W7fzo~+Z{0LY&~aEbp0eL%XtCJ ziA3h%VPI_uhgq9gyD+HC%>m%ZKsD!7kW)=0j!oV`Aht0&n$oe))VnMsk&ldk(9{Gf zk}H7#umiC|dpk>}%+BT{Aub$-3Qb(B9peB}{QR8l&0P4}+B@={9Z*(Q(jn4S^ikq` z??Mc@Q~*D1V2`PKdpm_wak!+ivVxq3Xh%nooS6abrsR+tK}?b_mbkdkaTe`(mX<;UWeG^ZjPDOOHcqj3 zWELbe?0$s9#PPu(;0?tiNs&|{F%iL$TSyWjr*Vx>&Up92!gqt0GZf?cq#qn3$&-FE mjU;q^vX4HI-Mtr|!yk-~KP$(x?%*&WjI`4xir?8P zD}A+1O?A~?uOLWLQ4>{`$yPL~Cc@!FYI}Q8ljW~YO-{}f1s^Ca1Nf__$6n!dUbj0O zy-gh*Zbx`cTo?Tb&x#?r+siw1DFr>CAcos-7{0l%xQ%~s5? zTwQ!=DIJ}kU&zSv$B>O^zFk28)1i<@5`=rLot=$UZa1HA@H*}7SWJEX=uu>kv96EC z#^TvNass&D-|u9q`me96D^O8eOS6G*THlVxwdDs7p2Y}xKYKcINi^+8x8L7-)Z`dE zWRtpmKA(ru@3C!&833+!(Qg05>-Xz>+W;J8=?MfJuyxPf?d@$h{F(vaR%`C)s53eW zO4xeT<0(+*E2!5?h$!Z(&2~#L=%P;N4~9YyV7jl*FFBoWTWvMYZYR>^%S0L+B(%BN zuq`NQOAC<(26RE20sttGLv%Raxf2Tcph@%qBuTnj*V1A+dJfJ2T2n)aAP}j)pU{Q| zw9OIP*r@j*2C-<91ITK)nwx7mj=PE~JpedfufPdsx#hH2jL0``5SB_20#hMfx|EX% z%!+jJqMmxhAQo+qpqL;R<@qbvM}Hd_Kw`Jm@roc6bf}Ds><59FIDcLbLMMkhjvUDm zgIKh&5?F`?2JK=)LzFfq5>24stiaiNbc_T@goM(C3j_u0sKY+QWZPKPVI8nLQ&SC; zqqJJG+chg-z8(pXh`_}|ct{=ygF5Q4FCTB!7DbWENKy@@jFmO|97i^|9)Q@;!5|1h zouPPzlByh+lv62vF_vRz&N&2tBiA#LwI<5(ffyy7CcG>sY2?_k6}ZRCddZmNK&a0- z>khY)tOy=j8tE-BY5gx&K03iXUT)BCZAhChRx^n9lAqu#F>>w6xjQ;!* zxa5qYTu1$W0IK@?MmW5QiejQ|Y!EFP)z1J-xfY2Oz_gVWA`cG}26Ky8v?%}`C|2sSzVL%DbM?CrK-u&>hXHg%{s1x`RbVsW&lu1EzhBb^+xQKTQ<1#J1@!`oe> zqap0x&j8fm$@F!2b~Ztn#d?IjUWy#t=$X=|0vq`PzQa$SCNiq}rO{;uaB5;=9v0$g zY-wr7=sfB&wy>}RssE#Ue0<69Z3cjf|8{q;0cdvXkOhgj*O6o-qQKy07Aq>u(W9S& z`8FS=!C*s`$0H!zAG-#>X$WM1#La7};K)ZSiK>2g_O(NVr^udlQ4lP4RhqWrqEyZcS= z)RdZ!!FEZfe}_Wv3Y7k2b2v`awzj@iQ(rH@^^LX#qQHY?b8Sscz&=;@_GaPJ>{|Ea zF>K RZ><0T002ovPDHLkV1o1EooWC8 literal 0 HcmV?d00001 diff --git a/components/tvplanit/images/components/old/VpFirst16.png b/components/tvplanit/images/components/old/VpFirst16.png new file mode 100644 index 0000000000000000000000000000000000000000..ca63f5c9727ce19c793381128255425b81d87ef3 GIT binary patch literal 198 zcmeAS@N?(olHy`uVBq!ia0vp^0wB!61|;P_|4#%`y`CHBFlg;_Nw(V8F%P>Qn>2+BScmBQaI}^_aU*c_G w{D11KBBSYT`-!;>XH4rtqpu5@B(N|sY+PSr?W1lO1#}pLr>mdKI;Vst01SsvT>t<8 literal 0 HcmV?d00001 diff --git a/components/tvplanit/images/components/old/VpFirst24.png b/components/tvplanit/images/components/old/VpFirst24.png new file mode 100644 index 0000000000000000000000000000000000000000..5bfef25d1778399f5b6a0321cea6894927db6e12 GIT binary patch literal 294 zcmeAS@N?(olHy`uVBq!ia0vp^5+KaM1|%Pp+x`GjZ#`WcLp(Z@6C_v{H>4d{pY^(4 z;@I+Y+Y>i;#9!TZ)nwy={YAw<=C$$`8OKem2I0R$bN{}N-`l%D-*Xd4&cosBHvYQM z+y9=P+409d{g~>j2!Vi&M=ds_-L~1kYVH5WyZY*T|Nf2te{ovOvO7%sU+HEx zmRjerU48p!n)T;T|F89~|5u*>-@%q!;ozpf%|MImcN**ee}C)Syj@}j1`bMQ3#xvz zflOO`i?1d>=J%XkVh0$`nE$(a`=7|Uy?(Xa3Hv^-zP0Nb(E0xl+zopr0KUnNd;kCd literal 0 HcmV?d00001 diff --git a/components/tvplanit/images/components/old/VpFirst32.png b/components/tvplanit/images/components/old/VpFirst32.png new file mode 100644 index 0000000000000000000000000000000000000000..31da1b5b86a8d54161294ab9f6cce94172525c6b GIT binary patch literal 435 zcmV;k0ZjghP)T^u>*W7w-hAzpZwgt{lov76%YRh)$P28-@#iV0;;!t3##4u zhpr9?Xjm^0+OT_fP~Fb2Rm<-GPo8k zu%9EeardHtn(aTz7Tx*Vz5T;~7^b-c0;;we1lH|%8r^pAeanVd|B)@HsRIJ*cH9qX z*wY$Nv+ZZWoU32ZEvAa8Y$bvvKNbR2p|*C;?vgrNQ@x6TUUHUr!1_Eog`UKQ&|CrQw@_omaxAb=a0|NttZ^LGhkcQodLmGB{ zsa^Sq{tkcv|LW~o{x#db2iH-lC?=;e@~haW5>T__JXIV(ZguR?u%E@dYKsoV4j2Wa dU=$2{002q5&*#&YOqBot002ovPDHLkV1gFo&`|&Y literal 0 HcmV?d00001 diff --git a/components/tvplanit/images/components/old/VpLast16.png b/components/tvplanit/images/components/old/VpLast16.png new file mode 100644 index 0000000000000000000000000000000000000000..7acef6884f4a7a07cd6fd3cbc25f7465a2ca55b7 GIT binary patch literal 182 zcmeAS@N?(olHy`uVBq!ia0vp^0wB!61|;P_|4#%`wVp1HAr`&K2@NY%bN~9cFh>7pzmoU=Mf^_7mK^3+VYdI|Z|!)Vop84=*Wmhu6o>EM`2X+T zw)g*h)31MKH_UoFze&36=!8^b%7 literal 0 HcmV?d00001 diff --git a/components/tvplanit/images/components/old/VpLast24.png b/components/tvplanit/images/components/old/VpLast24.png new file mode 100644 index 0000000000000000000000000000000000000000..5538c2756a86a69d6f9414c69b0c597d0c732de7 GIT binary patch literal 244 zcmeAS@N?(olHy`uVBq!ia0vp^5+KaM1|%Pp+x`GjyFFbTLp(Z@6C_v{H>4d{pLILy ze%o24A6Ik!@*hr#*zk3K{MBpa|EA7%&Pa1~I9s-Y@kXulMpjE>y}#$@*M8k!|8<)^ z;TO?yda4^4x0v@4Y}h z{U8(D`dH7tj{n!6W&Pps`mERg8*aUwy+X>RwRru1{uMX>Nk7XfF%^jvh~V~K7JdDa q%FJKk`HNHC78eE@a=9^HWME+S|I;sU?z=J28w{SVelF{r5}E)OnsaFY literal 0 HcmV?d00001 diff --git a/components/tvplanit/images/components/old/VpLast32.png b/components/tvplanit/images/components/old/VpLast32.png new file mode 100644 index 0000000000000000000000000000000000000000..0b32cb658b4af55faa6695bc21c40a8f657f312c GIT binary patch literal 418 zcmV;T0bTxyP)TE!#)+89VmA|)#iqPn(gNTDz+;SQX5pa z^K5L_k#EWUCqIWa?*8sqwYh;R4hXK>`NzLz`}ctA?P>Vb2G{R8U$Nxg|L*M{{%1@% z_k(H^yZ=9^cIUT{hF#m} zng~0$zWbj#>CA_K>TTZws<%g?tEH&}8rD4hAKJM4b8y41b3tX>WU#5FnFE3wcK;5j z+5Xe7dTS9rwKQ`;K+X0W-c?(42&tt>WfV}g)nGuY<54gQM!~QL0HZO}5G1b^7ytkO M07*qoM6N<$g5rG4jQ{`u literal 0 HcmV?d00001 diff --git a/components/tvplanit/images/components/old/VpPrint16.png b/components/tvplanit/images/components/old/VpPrint16.png new file mode 100644 index 0000000000000000000000000000000000000000..be8b17e96e7d64e56ecdcd0c40d97a6876ecd653 GIT binary patch literal 419 zcmV;U0bKrxP)^Z~5OIHY~2g~d0=`u)5Nr2gK1Ei%S86H1*$PgD12$sM_ELyQ1 zt{J3;g_)W8=FZ)F6&QekpP!puQwG(KKw%67RR0qs$i&Eej^z!@J3WyfV%#7BAbtnL z4Cv_{BnHCpeDa4?62uqfc!e5epxpSM005~0X@+5V7{CN@*$$IOrvcR|b?-8%mI43( N002ovPDHLkV1fb3ty};A literal 0 HcmV?d00001 diff --git a/components/tvplanit/images/components/old/VpPrint24.png b/components/tvplanit/images/components/old/VpPrint24.png new file mode 100644 index 0000000000000000000000000000000000000000..6720eb162b208e55ccc6b67158ca72c45a9967ed GIT binary patch literal 812 zcmV+{1JnG8P)5e!j@@!(12M&g012NMq_ z1`~~NGMsiY9t<;COf+0fJb3lsg$o`v5=9B}=MOkG0p%}cTi32Xes41dT~}9v&G&xq z-}Aih_q9#GQUKN~k$Bcv^m)3hQFk7n(`OTjTZR2-X1{|r77qx%@srUO1%0=&lv!g% z$n_HZ2O^bWYk(One(ma&FxqbAB2Grcyzj`AFxz!k3 z15GzZ4MPuB1MB(7L2fmU!oa|AvX5ce0b+ZB<}c>yh`@6!aovxitbm}cbi(y^ z%tHLwY9)Q(x23{#FecJ5$SWMl{viTj+X2gZK$0XNZ-ohPGa*)z3cwNWW$s zBE12wTb7mQO#&A}|MG=yRCR@Lwxwe3h9t_<2KqAL-5~IcwsAo+)m>3Vn#Hc3>YB&&LG=NA=`7u(`mbR95+ue2ECT-eox45O~ z#m&Cid2inP-q$xXom~c?^mSw6p_d`7tMsTotDKR7x5lmnN=1=UMzmS$EO!pL9H(k{ zK7)FtvXe}bAHncz8h?R`>eeK{u`D@ryw~2`tRjcHPg_x!AN)n*PR-Uh^$`-_=h=rKgFBS$3SI4K$8f2K_IL-o$tk@C; zuOpr@fx)1;fH8DeNvAVlAt|U$2f~W8%*di7#za{fp7f2pWG;=~Hao0l|Ipxo%V;zx zKG?jS+k|>|J6Nn1R4bNvEDoWKB{{8AA3p!HA?o7)Dlk|5XBCgH0*| zba$w1ih<(*L|M&P8Pw58k_23tpQ%ZprGbZywE&2ss3TpWE5@#`t%BFd7Y^iUn%r6% zc}NH%EPa`Wj8s`A2+Kf+#|)lI2p~xeM#27miRKjSSHfc4e@;NP21HSU4xQE=QeW{LXogQkLjQHC$9U6&*zhd zeUk%Ai_4=7$8==9Tn#pSCG%wUy*%lHUR(CBzRP0BqPzfvy$kg1hoEuFcP&nzKFGUn zK6vtssyPDR0vj;DutH6{-`$<9aM730P`t0HrKi1%tRoDhR7yh-L-oKUn6~^lYRWAE$_=MOl+TEE*q;ClW5L gKs|Q+JlFF74P`nD&i_@% literal 0 HcmV?d00001 diff --git a/components/tvplanit/images/components/regbasepng_files.txt b/components/tvplanit/images/components/regbasepng_files.txt index eb24fbb39..6354baed7 100644 --- a/components/tvplanit/images/components/regbasepng_files.txt +++ b/components/tvplanit/images/components/regbasepng_files.txt @@ -69,3 +69,19 @@ VpUpArrow200.png VpDownArrow.png VpDownArrow150.png VpdownArrow200.png + +VpFirst16.png +VpFirst24.png +VpFirst32.png + +VpLast16.png +VpLast24.png +VpLast32.png + +VpCancel16.png +VpCancel24.png +VpCancel32.png + +VpPrint16.png +VpPrint24.png +VpPrint32.png diff --git a/components/tvplanit/images/components/twocolor/VpCancel16.png b/components/tvplanit/images/components/twocolor/VpCancel16.png new file mode 100644 index 0000000000000000000000000000000000000000..9d90846beefefb7e12836c9f1d2a68ca1ab67c9b GIT binary patch literal 672 zcmV;R0$=@!P)pF8FWQhbW?9;ba!ELWdL_~cP?peYja~^aAhuUa%Y?FJQ@H10xd~I zK~y-6ZIew)Rbddvf6sGXQV=XC!A&o|ojD%z1%yhMw#xbhMT%0JK7%X!04*XZG8Mv4 zkh@%l;9VGb@!q2dMbM^%TIoI4`%H^-)Vw*nXJ(lB&HtG(s>**hFmQ=18^@Td7^67% zoz~WmY;OK;PBmu=^z?KP1kZsfAZW_11MfIGnq_zQ=dshCgp(v82ui?XU>@gg5r%Dq zVH?)o2Ihe&e7{7JBxeco&LzM@^&Zvgm;dJiqG%9nSAip(8zD`9^y)Dyd0Nk*^Ig5Y+E}XnnTMA!pwVEwRoDX~jpkD6>HZaB_ zvQS_z7m1UI9AHdN;rmHZ_?u5l%NmD=b*y~^Y!F3v$QNmeYIOzx5e24*qPM^&;31Ha zWos0wzE+V#?duyXR3BBas+!0D_4W4;t4K}b_?4;_i`3hD1>Y|LKAv}NF5G z_0KS70o7S5mHm_NI`^EryW0uFag4cktTtJ;#@^na=G4Ds#O{9Nu$jgH0000pF8FWQhbW?9;ba!ELWdL_~cP?peYja~^aAhuUa%Y?FJQ@H112IWN zK~zYIm6gwHTvZguKj%(o)FEB8o01k6S;%{LUWmGJQJravB4*;EtHipIf>~DZUum`l z>B1B$f{IBCElL|($g%^&yru3T|^e(DbQTKOBoFkBp;L9Mog z>J31E-!bM(+U3X zDUtO#h~$^!v-twp1*US5f_w_t^*;Uh&T}mwVnl=BG$K!YCLwX047i8k`-t2Ej-&b< zV;rhgpo{9K#PP2K{y`98Ob38cY1#m%bK|jNPZ&lVKR|UJ=pynus#R3?4kZUDm;cKD z)AWo%*Iz_iM zX}33Mw>L1RNzq-`2hON2`tLfbE~{6Xu6pxF)M|}B_cdTEC-0#U+44RatUZs&hkmsR z{jpF8FWQhbW?9;ba!ELWdL_~cP?peYja~^aAhuUa%Y?FJQ@H11W`#u zK~z|U#h1@-R882V%oe}ktiDiA*qptLMf3zVnl|TYKjdh z8e=W!A3%aJsL`}jf*6S|VFB()-+QUC+9_p_Wq(c?=D2uo-rSja(-}yNXLrvz_kKU` z{y6tOQC0p=vzyKoNsvzOMzs&v2|NjOgwZVU4{!s^$}lx`4b=xt4cl-AQmIzj+D-ri zz++9~-a}-Rg@rH4W>+2^z;TWu@&&N1N#SanL$x2z`{CgLL@XR<1o)sTG7DsY%c%av zrcHAIuT?|T0;JQQRDJn4iNu@Sy0y5jaJ4zkW-ROLaMPCT46Zv^A0Sxs@1nNqS$uyW zZt9w{U@6Z6@0Lacj^MgK)&itbtt69vw0^1+`2OKX7O#XD2M&gw+a#0S+`PFAW*rEQ zT50plVcTy+;$2;vuI{wU^o3y7RD#vceZLx6O8H}H5Ep2hbs#C~C5 z`)F&+R6qp9Dg*4R+sk#&19M^P3A(#?l>t-_8L1OBM{RNO9B?%jB3}Gz*r#m4n3;Zb35)bnKG+ON@z|%$`7u(r{Q2jY3`rEqV0JeSGXl*kAntv3mu3Esx8o%mB zwr;g*I~bPFoAIIvaHs4pnzK=9!G@be|GZkk=Smu?wA0-8(;ED9q~+sI9z3Esh6dtSE)Rrds$l>k1bZk;(i1E zMj61eGDhG~sY*o_lKqN&veY}P~ zPP}CC5S5n8y+!#Ac^BWmUItKofXHZ+tU8S2Y>wK6!Wb|J3{oic#vZkDu`1<_MX|1~ zEx@pm{dwu4D__T*oh`Jq_`oyaOkBZrdz*dT*0ta|o&b77&)=-BI?T+hLU|Ly%*-mP z1C(ll>dQFJ7$WPR?Z)Eg3~@!Iza$RvPqH(>hlXbo)njWa;!_RL82``43~Wh`i6#)Ofvw z#=mBroh`JszK7~bg8#v0>@KRKE;3cBl{O=`13P1UJVHV0000anMprB-l zYeY$Kep*R+Vo@qXd3m{BW?pu2a$-TMUVc&f>~}U&Kt;PfT^vI!daq92$ak5%PyVoC|)m`JBu%G&z<+>;pa?y^OteE()P_!c-v61=diocw4|bB?^efHq|Noiu{w=o`n3?U>4)g|tr>mdKI;Vst0F6#}#{d8T literal 0 HcmV?d00001 diff --git a/components/tvplanit/images/components/twocolor/VpFirst24.png b/components/tvplanit/images/components/twocolor/VpFirst24.png new file mode 100644 index 0000000000000000000000000000000000000000..11257f479a7f2d0a92e307525427a7ac0684ae40 GIT binary patch literal 402 zcmV;D0d4+?P)pF8FWQhbW?9;ba!ELWdL_~cP?peYja~^aAhuUa%Y?FJQ@H10Ut?3 zK~zYI-PJ!!!$25-@#k#Q?!P?cu-A~dF(Mbs+h@cKqK^$C5 z5uA!nPA*PD+t=YT9Fn8ld4=M;gplL;g&avlRhi{fW?KIjK7c0Wi6=;*TJ^)8d{$*mwYy1CU{H z(geMgtJlS7fVOJyz@~+4@IAVjhIl=q5X5^A3^LjQ-Yn!i8eovd5XM^;vK|6_m|Afx wL&n+!Iw*&(h`4^4u|C&MAlA&&i#Dgg5BB6~`>G__h5!Hn07*qoM6N<$g4E!uW&i*H literal 0 HcmV?d00001 diff --git a/components/tvplanit/images/components/twocolor/VpFirst32.png b/components/tvplanit/images/components/twocolor/VpFirst32.png new file mode 100644 index 0000000000000000000000000000000000000000..015e3b81e8c62a603f7398410071247c419feec7 GIT binary patch literal 488 zcmVP)pF8FWQhbW?9;ba!ELWdL_~cP?peYja~^aAhuUa%Y?FJQ@H10d+}4 zK~z|U?U%nw!%!55zf-jB)cOPtQU|Mx2>JrrE`l8zmu>|&aS@z-fiB`GZe3ah5toX% zI4N{fTnd6uU^}G_9)|`RQp`=0{u%6k=k2+ zA_7{3`CD~P~X|5DmUiSNV?$_4O3Q(u2VAm eGnxtfdx2m7E`fIwOU^z30000anMprB-l zYeY$Kep*R+Vo@qXd3m{BW?pu2a$-TMUVc&f>~}U&Kt)GAT^vI!daqvI$agS72(;f}|i=k(Ke zE?QMn{A~3%e}>38Qc23{bKCdbDEMF5ctrcc+#3t#ohfAeZrsq*C^W;D>*NlR1@nyE zQ+_yXOKMKjV{q7gj_0ai0Lx~vYMtjypJLP$PG>Z9@ZSlz9Jao!j#VTmRr;&r@&lre zrhU`eJ%_vGlTP*3?N86Ju6U_X6}VnXwV2Q2*rWgT%d8(gxBL3-x?UsDLkym-elF{r G5}E*Z+J1Kc literal 0 HcmV?d00001 diff --git a/components/tvplanit/images/components/twocolor/VpLast24.png b/components/tvplanit/images/components/twocolor/VpLast24.png new file mode 100644 index 0000000000000000000000000000000000000000..a4136efbe8e9371f70412a7eb5110595c2e7ba37 GIT binary patch literal 407 zcmV;I0cie-P)pF8FWQhbW?9;ba!ELWdL_~cP?peYja~^aAhuUa%Y?FJQ@H10VGL8 zK~zYI-PNH^!$2Iz@$Y{{Y?G)V2qD-FGl5z{eS?4zP*XesZ-H5O3}92FnubgvW)?s~ z0MjSfX38H^aiVu!(=HJHrkA^af1l)X*NUpL&Z@07{a*kZWnPxi>n5TDL?85|Ju3vr z-HVS9km$9Zx4$x*RIh*wRAOK&tHr)W!Wg*3lZlLGyOy3-I%;LEI{|n~pF7}1RwSqF zKx5elA_IAp+vmN?01dix8q2^ywy8-}6mcHYDv;cJph0&Ias*5a7pV8tw*^ zJ}@NFo;6&F(@~tc4oI0_<|?1-Qot(p`xouc13&S(YZdf3UaSBB002ovPDHLkV1nD` Br!D{h literal 0 HcmV?d00001 diff --git a/components/tvplanit/images/components/twocolor/VpLast32.png b/components/tvplanit/images/components/twocolor/VpLast32.png new file mode 100644 index 0000000000000000000000000000000000000000..8abc926337e87bad247a64b048362662552a262d GIT binary patch literal 481 zcmV<70UrK|P)pF8FWQhbW?9;ba!ELWdL_~cP?peYja~^aAhuUa%Y?FJQ@H10d7e| zK~z|U?bp9f!cY{)@$VrfFsbnYOiY}xiIGPDV&r z+(>jnCKKPls0*-g9B^oD;=M>KgFR#KpWi39C+V%ID)X$wT+?Gf3;-6w-ca2BDrgf} zL$#)5=V~T^H2OQJo`Sr*GG^8t*n1U3Xn!GkIGFjJdx8<`t>*A)_|zOtpMWoa=~!AFv`vvZUq3j42BQ$ z7N6y?0KN(}+zud80XmbDun8CM_?u~a3d+;G|y8Pz#d;$GSg&<|BPb5zXyB* Xy~2q0ra4;500000NkvXXu0mjfc%94e literal 0 HcmV?d00001 diff --git a/components/tvplanit/images/components/twocolor/VpPrint16.png b/components/tvplanit/images/components/twocolor/VpPrint16.png new file mode 100644 index 0000000000000000000000000000000000000000..0e2b729f1b0413f5ed7528fabb9a0fbb4a78e95c GIT binary patch literal 278 zcmeAS@N?(olHy`uVBq!ia0vp^0wB!61|;P_|4#%`oCO|{#S9F5he4R}c>anMprB-l zYeY$Kep*R+Vo@qXd3m{BW?pu2a$-TMUVc&f>~}U&Kt+o^T^vI!dY4YV$a~0u$L0Mh zJ^{0a_nZ78+c)`b^83syJ%P86e}UKKDP~VR|82;b@89X;xng0ju+@HV-`eAA9HP!l z)QjX`V0dfMu;<*=(#ub6bl!RdAL#4)9J9psDxU^t$v@5mBKsTz?#s^dPuj+oo_239 z8v}>6-|hbjTbABVez9lP+imwlxKs8Q@>HE WnbUuSMZOd0Tn0~9KbLh*2~7Y_4r+z~ literal 0 HcmV?d00001 diff --git a/components/tvplanit/images/components/twocolor/VpPrint24.png b/components/tvplanit/images/components/twocolor/VpPrint24.png new file mode 100644 index 0000000000000000000000000000000000000000..9f5dc6353f6fcb262295f90577154cdca1db7b24 GIT binary patch literal 441 zcmV;q0Y?6bP)pF8FWQhbW?9;ba!ELWdL_~cP?peYja~^aAhuUa%Y?FJQ@H10Y*tg zK~zYIwU$9n!cY`N&jaE<)R>r-9T0;W_v)5 z7RG6kU>4n~QNB#Y?*>go?XO;pAbi;$Zp8KFIqz}(L;>h6X@>O#(nazR>j{eYR|>pn54>+{ts>new}V5cNXxqw6JiL5hPGAM+m$ z!LIl@aL@AGoy-JGN_~o-=a{A}+0%S`ZGjGUUxAbV`k|G5>jbfP%F;2ap}@wVIz~NH j!PGLgy#Fe4|4hFCc0^-hj$b>C00000NkvXXu0mjfCUUuD literal 0 HcmV?d00001 diff --git a/components/tvplanit/images/components/twocolor/VpPrint32.png b/components/tvplanit/images/components/twocolor/VpPrint32.png new file mode 100644 index 0000000000000000000000000000000000000000..4cc0f2b0839926083e6cd6b59ba60d7db73cdcbf GIT binary patch literal 302 zcmeAS@N?(olHy`uVBq!ia0vp^3LwnE1|*BCs=fdz&H|6fVg?4j!ywFfJby(BP*AeO zHKHUqKdq!Zu_%?Hyu4g5GcUV1Ik6yBFTW^#_B$IXprYNLE{-7)t#7Aa6l_-DY5QMr zw@vhogihpf4dpA9kGvm7WefQ2Sn#zv3OY@J$>Mw&6+|T=I7@adM^tfnDDE@pH1wWjdeBqK3L}RED!cwZ_5IDgTd3)&t;ucLK6T_DRp-M literal 0 HcmV?d00001 diff --git a/components/tvplanit/languages/vpsr.de.po b/components/tvplanit/languages/vpsr.de.po index 9ad775439..ab63a7ac1 100644 --- a/components/tvplanit/languages/vpsr.de.po +++ b/components/tvplanit/languages/vpsr.de.po @@ -1089,7 +1089,9 @@ msgstr "Druckformat-Designer" #: vpsr.rsprintorder msgid "Print order" -msgstr "Druckreihenfolge" +msgstr "" +"Druck-\n" +"Reihenfolge" #: vpsr.rsprintprvcancel msgctxt "vpsr.rsprintprvcancel" diff --git a/components/tvplanit/source/vpbasepng.res b/components/tvplanit/source/vpbasepng.res index 3d427626b6b5a305812a7620cc1cfda3c9babf50..c4fd820ae3372c3a8b0f7580ee23a560db0d4f08 100644 GIT binary patch delta 5557 zcmZ`-c|6qX+y2gCXQ*UfM@e==_GQFqh_Q`Cg@`N>A%tc|_H~%bzC_uw@4Hd95NT}L zNfgPJCBj?hoZs&~@A1Ob3F0076w^uQIs z2+#p^0TaL!z>?xUy>LLIuC^vtF=m)l4r_B~>1-{HW}GIAT(n)atw|Qup?lQ+I!RwU z`h5#tLE8DE%mW(U7nz#uxYMpFFt?`3H6NdPp0k36SL;7tgnkc#OxgTM)=>Cj)!@*Q zCa{Y4ZF+r)yX<}z9H_Pi=Xf$gPUAmjiUkl}5*_ZPq{@jk&AP5u$C^x9q&U8_JU4vW zM~8`9L0}m~t6B0nBRBaRkuu$tpwdm%yd^>+6NB-KPEd8|vFSzbihT!}G0B>XF4&1`QR|8KzPh^b+X%de3f_>Co3Fa{%e1B;-O@bV@G z;n;3K+s21GrVQUR59-pv!?R!}nmpGppGb@Rbq#ZIVss9{laMp%7c$=%O#JvGghyA~ zEcp}G!Sa|Lx!fSY{)k$1BHydp>>wH@9j}rV>CCHmzB!_@4H1!+eSO6k*Sti79L7d| zT=ShCKqv5(MY=PJKPhGyhrBu9Wc838D5;*tFGz_Ir>||CV|#y}mE7(Jye-uL?jp}uO_Ebacx zjEHg2wD^K5mkqI#rSqCGTLm9DAj#50T&r^&sw@?=Q(xmv{rs=2$|QQ@ynnNLHDoohRqwSCYgnsk)#}hb6lOy6GKzK|JT4i;%a!Ox zrQmTQEs!8NFXDE?lIlcaWS!!9FVpMvL54OeFJOFO)LbTg2Bag-ugMn`cLVr$kGlDd z&2lZu3*O%b%YtnBhXkre5%ANqkmp%fc09AeumI3i8W`c!%nr_3tRtW{s4Td-#K3Ziq=&s)^N}^M} zk5&7IOYm^JBW15lCU}&XA`WCz=zjVWtdAuLKBq4Ci>m*PTkwDkAP)ef zXCx0?$6u4b`olA&Ub(v**w!=w2GRYUOmlVh*96=*}(!k|ASSO-* z6rPZa;*zQRsM{}fyFR-xz;p5Cjv-)?#$_vXECGp&@T2aeJm@Z&jYk8i;pIp zOfsNA$#f89U3*32WHo`1R{+L*@RwJGjDT>GhyD*ubX1LIPzvz{DpMsq3)3K1!)Dxm}Ci-7Xu&RPZ*i1g6L&_pQnWC3p%hNF9MWvV-7w1rXJZoHz<-UN4bfOI9%q!z0t_RivGgl3y0PKx4qTV z!4=_bh&KQC=W1fm?y0Ca7UJjXjM`R2Dz+5QfVH*3iM{M-LA~OrYbQlSJ2XDcxT5TA zU!nr?)yq_wMO`_Q_Z4aPfd&rodpxn!+ygK*cyjfUku?RnSXK`{iYRf?KTFdGb`Pr0 zxR8s;y7LKq5|f&>i{*KJ+l%7;(VmF369tTUrwQK5|> zMQM{)fofAYDXwqSkJY8m3}#%o9ziiqtB0YJtrtZzS4_yF+Xw8c0}zdkdY9AR6|IVX z6Zc<_o%{btCe2}daUi$9oM5yS^U8?z7p;QA(ghnJef_kusHD33ESt1;=v5Aj7zU|X zhB^-OsjK1;j1KzhB--nu@TnPcK0}#1kGrGmd^1|?k(%9F=FGX;b6<+{MYoFDuT$)h zi~!rKX`{&_QO8qPwW@RNmz;(1a{DUz89`0ttlSs4VxQLub~c_BSNrk&phfd6OPY!- zGjw%(;8le9daP7xO=b;E%__@|J?NdNbTs` zSQtm#RQ-m~%eVw1>PYc3j$R@{ii>dC^uJDVJqFUM@f4H&ZH2iJeEzFqV1DObn|p(F zPd}F%6;RI@%Dlyv`Kb(Op}#N*6EFcOlSpNB>}z|ePW~Tb&{1FfZARq=OxekN*5(Mx zt%&1jTXHK+0J!;8_)e~pWzQc4I{V)#2xNhQKU)4jgJ0{H3t#{(00roiq8{AGfhGPl z0aud2WwVHD>P5=G77YlTNfIBbX*i#HyQ&di|_t{-4r(^_^&Ir=#k?m~wmfTK+x(46m z9+{?IB%BXu)lN8bn{KoJELm%tZ+JQJcnO^C$l_v75K7|~G{Aj=YD&|1%}zp{EQMn) z$t*tZ=eW!hS5a9RQq7FVsNRJEyj%_W@Z`=71~XKSqdp3YVmn=g3o?sGoi>iimN7%2 ztP0TvjSb_0FxWR+ePm8K7@1NcQ~}i&w51Q#wTY0sAr(HIvmY(Zvn#XsK&JD4>~ol1 z?uj?}JQTscaF`Q&L$X@|98x9SuLbQ*I2RhHEnjl6Uxyu!#v ziaml9&SRsGnZq6E8txt2#CdP>j)PKyyltd8O+UsSa&r2FE$ijc)4+S{I4bZHzF-+&dxT?yTLD~@2}?~;Y) z#)md0!9c!S)`O5UesXsZVcN~Xp3M8*YXTL~&gd5i)C)w2b9gtxU4g-LnPZD6eVr#$ zv$!UBnF)!Xky*Svz8X_LIO@!VEd|{LMK0fN-*{_G`0&98O$j4&lLLD`Md7L}RqWpQ zC#9;iwY4!LA)n_bKUmdAo>Z!xe?t@g{Akb1J9%v$EsP zpJF*5zpWI$kod9k2Y8GMmwPWhD1d%!Tm5ja-%~=sR{PPc9NaKKSkNPlu`X=xAbb)W zo3qbj$5UvQ6}6n#zEKJ}(qysKr@@;zjRSd}AIt3wIdph5kluWs;hV~ZX4qZWSsIbV z&QuM_oK6w;kAU1WXTuryEwM!K6IF$_~GkfNZO@CO~J#LL>z>(Sdn=d8&d~Hm8n`2P%%qJ7G#KYL1T}qIYek3y^tDx|c+{9B^ zdG5o^@gT{^xcR;8X|V1l?Qkz1%mjnUm+wq!-*Xut<)(%Yz3JSxpRXI1jcakdSr^`| zfE-?%q;gBhZ8a|VNk=|9N`0*7jb%S@p59)7d|X^VCrdls>6rBL*4Ck!JM(bqz7W5Z z5$#){dvx(svkSy+4eTi1Y<_R2SEQ3+!OFI5hgEvjr{;@SM)tBW?;$_Wq75%vj+_4P zVrz%~yVy$c_i<3;Kc{a;;=o<(A7Xn88P~t5`O`wV({{YcB3^_WELad9a`AjT@>eI6 zn2Aq0I!7{{=dzRd%#RF`$sepT4dRH9yb1b-p7AdzA3twTw8vpM7wdfQPERKLQ8>}j zw|#zz?V-lnk>akpvDuMfWokdGE)lb)Q_YMUqf@2x3LX?+XLg75_DEmwW*Vk3V485J zHYvC=K8^t(WIKcTX{}q2Lqeq9IGFSCl09PKn^a}Rx^vE{TGjjm2Xk|Pwm8pi=w6m6 zg5egvH~*+3*T554*y0UWW#BgHM0@IFLv>w=d$m%(gZRpdJLTzD#uAmQ`~p|E z*0O7sEdp=?Zp$eZHs=SxYfp8cv9k>tBjD#I#b-zls~#4f+B=%N#8w*2K?4iTm^ee4 znry0Pbl|0pwRGC*yE$=Jd;Z3a)H2*E2%rx!&du8@xApKVMDZ+f!1><6?%4VL;GLBP z#GdN|=W+P=;Q$?L=a9(~-!cA47N=qLZKYf)?KEfx@~k zM@Gl4RQto5HV2L_y;vl)LlpA$ciNJY^Ia_h?E&9ubd!lz=Gzh@k?-I{F@c0P){ZWXJVMj#*Mg!@mB$RiNdJYJ zRSjolu)g8ac~+P?GW;v(LCQ(y&0{&sRbetkM}U3eL$J}IlJNdS!#q$EIN|6j3rfMU z7L{0%JGokyb!yzIomDuV;s#PTvgzFOzDlN48auUxrfM&Aq$G9ojf_0B?TWoMb@X)D zt!mK#?+2N!_wJZ`(Ve&NGJNmr4R(0^m|NAiB%qbsdQ*>gLqA0Ey1i3D;)@sN1*+Np z7T37rB(8MKKZG3VaFQz!IDGKLYeAiq z(m*{4L7qV=2R4POW14PlusnI%+l>0bz%~pkWXWNnw@(h+`A)ym zitzDvZL4Vo!L-$fDZbN2RCei?zM!yiT+@Eqn7M`}Zb@CkI0MOD`E{8mXOG|+yUJ!k zD{8%lr}~09tcj>wh^AqOu`x>joXSIee8Y%vsp7PUikL2xRN)zMEn{o@%xXY?yt(*3n%{uM6e z{JCMiAPq9Tl4jIiD}=Gg5)_|S_O~FcEb_S zk&G<{A>BK1?NI)RzXJn+`hP(CUu3^SB%MEZn(C*TzaKfM0m!`iP*T!UUY18%SCJ8? zYBjTEjD=HXMbk_cl?8OP#t0}HdN(a0D;jKYp(|mh|Hyw;NlN2T@y6W`U$voHmRs zZ#i3y)iDw*uF>>HKO|4XDLe0^)udA{?a~$~SR<6%XshZGa`N($A?q&ffi-suvmTtk zKKaITB6+isz_NXDGiT*2&POxy5gY#&Kdh}}Psx2?b27aTs;?IqnYomdEB=8J;O|O+ z-M1!?j`yEE30#4e`}Dk*DSSrm%u?1-Gi@6})HEH7-aFQB1@3Fx*~VI{#Qb0Kfq#aU z|79PL1rWb744=Dhe?^zSGpE55j|3P)kKLz2Pk-eQx9AcP8uFXJJZI^`f~m{e_Qwv8 z6Ek}?`xp(PoxK5tFH|w6W*5GS7ptv}B9WGUlGlU}6xMa!B=w4Td&$$PMIPdirG6lW za*9mc_cf$u+fh~Vr)gn26J;(uvhM^^xh(Ns^3dEw4HDetQn|~tp;N91FmA9`efE!Z z7afvymzcFg4$6sZCP{cuL;GE9>P;gaG7h!SeX<37V_w}=Jv?0Xr5;jOYKt8Wb^bf> F{{hHR 0; btnMoveElementDn.Enabled := (lbElements.ItemIndex > -1) and (lbElements.ItemIndex < lbElements.Items.Count - 1); end; -{=====} + procedure TfrmPrnFormat.FormShow(Sender: TObject); begin PositionControls; @@ -193,7 +197,7 @@ begin btnNewFormat.Enabled := True; lbFormats.SetFocus; end; -{=====} + procedure TfrmPrnFormat.btnDeleteElementClick(Sender: TObject); var Format: TVpPrintFormatItem; @@ -216,7 +220,7 @@ begin end; end; end; -{=====} + procedure TfrmPrnFormat.btnDeleteFormatClick(Sender: TObject); var Prn: TVpPrinter; @@ -231,17 +235,17 @@ begin IsDirty := True; UpdatePreview; end; -{=====} + procedure TfrmPrnFormat.btnEditElementClick(Sender: TObject); begin DoEditElement; end; -{=====} + procedure TfrmPrnFormat.btnEditFormatClick(Sender: TObject); begin DoEditFormat; end; -{=====} + procedure TfrmPrnFormat.btnLoadFileClick(Sender: TObject); var Prn: TVpPrinter; @@ -256,8 +260,8 @@ begin end; end; - if OpenDialog1.Execute then begin - FormatFileName := OpenDialog1.FileName; + if OpenDialog.Execute then begin + FormatFileName := OpenDialog.FileName; lbFormats.Items.Clear; Prn := ControlLink.Printer; Prn.LoadFromFile(FormatFileName, False); @@ -265,7 +269,7 @@ begin UpdateCaption; end; end; -{=====} + procedure TfrmPrnFormat.btnMoveElementDnClick(Sender: TObject); var E: TVpPrintFormatElementItem; @@ -276,7 +280,7 @@ begin lbElements.Items.Move(lbElements.ItemIndex, lbElements.ItemIndex + 1); end; end; -{=====} + procedure TfrmPrnFormat.btnMoveElementUpClick(Sender: TObject); var E : TVpPrintFormatElementItem; @@ -287,12 +291,12 @@ begin lbElements.Items.Move(lbElements.ItemIndex, lbElements.ItemIndex - 1); end; end; -{=====} + procedure TfrmPrnFormat.btnNewElementClick(Sender: TObject); begin DoNewElement; end; -{=====} + procedure TfrmPrnFormat.btnNewFormatClick(Sender: TObject); var NewFormatIdx: Integer; @@ -310,7 +314,7 @@ begin Break; end; end; -{=====} + procedure TfrmPrnFormat.btnNewFileClick(Sender: TObject); var Rslt: Integer; @@ -332,17 +336,17 @@ begin else DoNewFile; end; -{=====} + procedure TfrmPrnFormat.btnOkClick(Sender: TObject); begin ModalResult := mrOk; end; -{=====} + procedure TfrmPrnFormat.btnSaveFileClick(Sender: TObject); begin DoSave; end; -{=====} + function TfrmPrnFormat.DirtyPrompt: Integer; var msg: String; @@ -353,7 +357,7 @@ begin msg := Format(RSSaveFormatChangesToFilename, [FormatFileName]); Result := MessageDlg(msg, mtConfirmation, [mbYes, mbNo, mbCancel], 0); end; -{=====} + procedure TfrmPrnFormat.DoEditElement; var E: TVpPrintFormatElementItem; @@ -375,7 +379,7 @@ begin DoNewElement; end; end; -{=====} + procedure TfrmPrnFormat.DoEditFormat; var AFormat: TVpPrintFormatItem; @@ -395,7 +399,7 @@ begin DoNewFormat; end; end; -{=====} + procedure TfrmPrnFormat.DoNewElement; var Format: TVpPrintFormatItem; @@ -438,7 +442,7 @@ begin frmEditElement.Free; end; -{=====} + procedure TfrmPrnFormat.DoNewFile; var Prn: TVpPrinter; @@ -454,7 +458,7 @@ begin btnNewFormat.Enabled := True; EnableElementButtons(False); end; -{=====} + function TfrmPrnFormat.DoNewFormat: Integer; var AFormat: TVpPrintFormatItem; @@ -498,38 +502,36 @@ begin frmEditFormat.Free; end; -{=====} + procedure TfrmPrnFormat.DoSave; begin if FormatFileName <> UnnamedFile then - SaveDialog1.FileName := FormatFileName + SaveDialog.FileName := FormatFileName else - SaveDialog1.FileName := 'Unnamed.xml'; - if SaveDialog1.Execute then begin - FormatFileName := SaveDialog1.FileName; + SaveDialog.FileName := 'Unnamed.xml'; + if SaveDialog.Execute then begin + FormatFileName := SaveDialog.FileName; ControlLink.Printer.SaveToFile(FormatFileName); IsDirty := False; UpdateCaption; end; end; -{=====} + procedure TfrmPrnFormat.EnableElementButtons(Enable: Boolean); begin btnNewElement.Enabled := Enable; btnEditElement.Enabled := Enable; btnDeleteElement.Enabled := Enable; -// btnMoveElementUp.Enabled := Enable; -// btnMoveElementDn.Enabled := Enable; EnableMoveButtons; end; -{=====} + procedure TfrmPrnFormat.EnableFormatButtons(Enable: Boolean); begin btnNewFormat.Enabled := Enable; btnEditFormat.Enabled := Enable; btnDeleteFormat.Enabled := Enable; end; -{=====} + function TfrmPrnFormat.Execute: Boolean; begin if not Assigned (ControlLink) then @@ -537,7 +539,7 @@ begin Result := ShowModal = mrOk; end; -{=====} + procedure TfrmPrnFormat.FormCloseQuery(Sender: TObject; var CanClose: Boolean); var @@ -562,12 +564,12 @@ begin end else CanClose := True; end; -{=====} + function TfrmPrnFormat.GetControlLink: TVpControlLink; begin Result := FControlLink; end; -{=====} + procedure TfrmPrnFormat.lbFormatsClick(Sender: TObject); var E: TVpPrintFormatElementItem; @@ -598,12 +600,12 @@ begin EnableFormatButtons(True); EnableMoveButtons; end; -{=====} + procedure TfrmPrnFormat.lbElementsClick(Sender: TObject); begin EnableElementButtons(True); end; -{=====} + procedure TfrmPrnFormat.lbElementsMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); begin @@ -612,7 +614,7 @@ begin LastY := Y; DragItem := (Sender as TListBox).ItemAtPos(Point(LastX, LastY), True); end; -{=====} + procedure TfrmPrnFormat.lbElementsDragDrop(Sender, Source: TObject; X, Y: Integer); var lb: TListBox; @@ -627,7 +629,7 @@ begin lb.ItemIndex := Dest; EnableMoveButtons; end; -{=====} + procedure TfrmPrnFormat.lbElementsDragOver(Sender, Source: TObject; X,Y: Integer; State: TDragState; var Accept: Boolean); var @@ -693,19 +695,12 @@ begin LblPrintOrder.Width ]); - btnNewFormat.AutoSize := false; - btnEditFormat.AutoSize := false; - btnDeleteFormat.AutoSize := false; - btnNewElement.AutoSize := false; - btnEditElement.AutoSize := false; - btnDeleteElement.AutoSize := false; - - btnNewFormat.Width := w; - btnEditFormat.Width := w; - btnDeleteFormat.Width := w; - btnNewElement.Width := w; - btnEditElement.Width := w; - btnDeleteElement.Width := w; + btnNewFormat.Constraints.MinWidth := w; + btnEditFormat.Constraints.MinWidth := w; + btnDeleteFormat.Constraints.MinWidth := w; + btnNewElement.Constraints.MinWidth := w; + btnEditElement.Constraints.MinWidth := w; + btnDeleteElement.Constraints.MinWidth := w; if LblPrintOrder.Top < BottomOf(btnDeleteElement) + 16 then Height := Height + BottomOf(btnDeleteElement) + 16 - LblPrintOrder.Top; @@ -715,7 +710,8 @@ procedure TfrmPrnFormat.SetDrawingStyle(const v: TVpDrawingStyle); begin FDrawingStyle := v; if FDrawingStyle = dsNoBorder then - PrintPreview.BorderStyle := bsNone else + PrintPreview.BorderStyle := bsNone + else PrintPreview.BorderStyle := bsSingle; PrintPreview.DrawingStyle := FDrawingStyle; end; @@ -728,12 +724,12 @@ begin FControlLink.Printer.DefaultXMLFileName := v; end; end; -{=====} + procedure TfrmPrnFormat.UpdateCaption; begin Caption := Format(FileCaption, [FormatFileName]); end; -{=====} + procedure TfrmPrnFormat.UpdateFormats; var i: Integer; @@ -766,7 +762,7 @@ begin EnableMoveButtons; end; -{=====} + procedure TfrmPrnFormat.UpdatePreview; var Prn: TVpPrinter; @@ -783,8 +779,6 @@ begin EnableMoveButtons; RebuildPreview; end; -{=====} - end. diff --git a/components/tvplanit/source/vpevnteditdlg.lfm b/components/tvplanit/source/vpevnteditdlg.lfm index 85978c4db..d657ffabd 100644 --- a/components/tvplanit/source/vpevnteditdlg.lfm +++ b/components/tvplanit/source/vpevnteditdlg.lfm @@ -222,46 +222,6 @@ object DlgEventEdit: TDlgEventEdit Width = 32 BorderSpacing.Left = 16 BorderSpacing.Top = 12 - Picture.Data = { - 1754506F727461626C654E6574776F726B477261706869638504000089504E47 - 0D0A1A0A0000000D4948445200000020000000200806000000737A7AF4000000 - 097048597300000EC300000EC301C76FA8640000001974455874536F66747761 - 7265007777772E696E6B73636170652E6F72679BEE3C1A000004124944415458 - 85BD975B6C546510C77FF39D6DED25606B2590D2DA526291EED6A0A942828288 - 8F3C98DE15DF8CA0312AD4447DA2145FBC3CC883515063401253BB82C6F48980 - D1A0165148A4BBAD9550B7DAB410AE054D5BD973C6873D7B69D96E7BB6E8976C - 76E63B33F3FFEDE47CB3E788AA92D5EAA8DD843A7B0110B395F6DEEE6CCA98EC - D401740F501AFBE89E6CAB640FA0BA34ADFD7F0008882DE65CDC4FB53DD7F272 - 0F4867A81CCBBC0CDAB0E9FAA9B2BD231F00B0B5740BDD0BEE8F8004B1E41DAD - 5F397ACB0124D8D706FA3A50304BE87584D7B4D1FFDE2D0390CFFBDE47F559D7 - 559023C0578813C111C1B01C95C741D7279294DDDAECDF3E6F00E90ABF8AF086 - EB0E82F39436D5F6A48D0DF6AE077300288F6DB05D1BFDBBB3069083FD77E338 - BDC06DC059A2BA569F089CCF58B073A0142BFA3D5009328E6507B4BE7670A6F8 - CCA7C076B6C5C4C5C631CDB3890368EB8A118CB4020E683EB6F562A6F8CC00C2 - 06B7EC616D59796A36F1044443CD8F20475DF7D1EC01A0C22509CD553CB144DD - 1CADC80A40F645F2881F39D54B9E0192390B25D897EB1980C2B192248D5EF40E - 40123AEA147B07505F75D2B6E63CD9124BCC48C2CE31D53385CD0C20F2705C1E - 99F8C93300933D40FC8C3FE41D00270ED0AF4DF75DF02AEFE60CC49C94093917 - 00E90C9583718F205F7B154F16227E14374AF097B47FD9E93B60640BA8E5DA1F - 670D60F3A16BF950EB99B48CD347B17CDA5B4C8EF90DB813F8419BFC6BB30600 - 2418EA01590372811BF60A7DB2F64AEA75DF4D193EE970C569B976FC1376B6EC - 07BD88120189606414DBB1B1ACB1448E6DE783938798228C2EC291A508772152 - DC50DEB6FFE082D56B4017916BED045E9AB103F2596839467E8D81E9110DB57E - 89E8BBF3E900C27352D3D5086C04A2387A8FB604CEA6EF80312F80FA406C8C6C - C37006CC283855A095602A8125A80A509422320E32017A15B80C3A0CFC81C310 - A305DD04E4188E9E067C58F23CD0961E005DE77E7FA30DFE300D218043F3EA00 - A0109660F85B60032AEBA6FCE669B18B63197A4E82276F9FAF707CC9BE481EAA - EE64D4C5A9D7A6DF84C34029229B216FB304C39780DF111D446518D5499031D0 - 71C44CA0CE558C18541602B9A816221480E4034B40CB80720A651988E5020C67 - 0090B7410F0079EE460950824A5DECB2C4E3883D1A8A3B6C35B94D8ACF745FC6 - 51F3E614C59BE6C0A1D36544ADD5885621A60AD52AA0CA85294A95C9B0FE022E - 037F820CA37A064318637FA7F5F74EE980A7F70276041EF8C7B24E5C33F98375 - 956F3D36947B872147B5E2EF2BFAF3D02B470B9DC965F9D1893A76F59F9C6B49 - 6F00CD625153D30754837CC40D6707B98E806F17AA4F23324038ECA74BEDFF06 - 00A023F020AAC780A94F39C224E823B4F71DF752CEFBBB617BE804B65985C817 - 08A308E7410F81B5CAAB38C0BFC9869005A218A0020000000049454E44AE4260 - 82 - } end object CBAllDay: TCheckBox AnchorSideLeft.Control = imgClock @@ -438,45 +398,6 @@ object DlgEventEdit: TDlgEventEdit Top = 76 Width = 32 BorderSpacing.Left = 16 - Picture.Data = { - 1754506F727461626C654E6574776F726B477261706869638404000089504E47 - 0D0A1A0A0000000D4948445200000020000000200806000000737A7AF4000000 - 097048597300000EC300000EC301C76FA8640000001974455874536F66747761 - 7265007777772E696E6B73636170652E6F72679BEE3C1A000004114944415458 - 85C5975B681C6518869F6F76B709C5434D4A2AB598A205DBDDA44989568BA978 - 23280649B453D354AD22C4E0452E5AC11B21C62BC1A222B5A6E885D04368266C - 2BF642BC10F180D09AD26EB2BB82458B4995A606ECC91C76673E2F76766793EC - 642735D60F06F67FFFEFFFDE7766FFC3FB8BAAB2989023C377100ED763387538 - DCEAC2D780143233A2E6A64B8BAA174480F48FAC224C3BC84EE08132E93F82F4 - 93750EEB8EBA8BFF4A8058A95B507D1D6137B0BCACD2D9711DE15D9685DFD1A7 - EEBBBA6801620D6F8190057AD79CAE2960182481E89F00A8AC042706D20854CE - C91F05D9A666F464600162A55E04ED032A8AE05320FB995916D79DEBAE942C76 - F8DC6D544CB7A2D20DDA54D4350DD2A566F4D35CFDE4B7006AC6B6CE132056AA - 03F410202E348EC86EB6458F28049AB102C240B21DE10360A50B3BA8EED0ED75 - 036225D51520B304C840FA11C4F9D27B733D0D469B9AD1DF8210CF13124FD762 - 3BC7804D2E348DC863A87E334F809C185ACE64E530708F9B9C249269D6D6C6BF - 4A56EFAD6F419D03B9C1C62BF40C9F2829C21ABA1D2ABF061A5DE83CB0362FC0 - 2864FE5DD9E391CB2542F6E3BEE4803B4756E71EEDF3CD329B2E43B6059870A1 - B5C5FD06801CFBA91AA1DB839D3DFAF4C6317F72408B5687CE5B297344345C00 - 79AD545F1880ACB30B6FF99CC2AC3BB42079C070677BF34239EE5FA02F140DDB - 1F74B62F4584DD4952EFB6334C65ADA52AAE666C6BB91C03A97890C297E08C3E - BFF1FA5209081206C8DD5E531237933C27C03B5201BD7CF3058878FBBD90F91F - 04E09DD92AAB038F14B950F2F7A205E0FCEA35F5DEE043A50BF83DF748D78D0A - 10E2676BC886FEC88921432453B3F016BCB46168DBC671D0BC598830136EF9AF - C86420F9B058C909B19269E91F590585F56F7CE665C91EF1BC807FF4449FA4B7 - 6E8C3763A3F4C49E284BDE8B81F0215005AC27CCA39E80B0F13190F76D8D0C26 - 9F2DFF3AD2E71E426B303850367FC34807D0E0B6AE42E6AB82006D5B3F81EABE - 42B2F291C4D3B5658B060C89A76B1179BF08D99BB7EF9E1FC854BE0DFCE2B656 - 60DB71B15255BE55954E600C6114A4D397DC4A55613BC7816A173A4F45E8BD42 - FF2C4B66A536837E07445CE82C21BBA5AC37F0238F27D66087BE00622E34054E - B39AF543F91CA37840CE3AEBCB20B60B3560871262A53A024DCC62F281E42EEC - 50C223171BB4B3981CFC6CF960B21DE52079C3928B04E85E22D9CFFDF6899C2D - 9F7906D56E3C0F08395BFE9C9AD1C179637C2F2647D30F6138078175737A6CE0 - 24700E75C61111846A940D204DA0A139A57E467949B7C7BE2FC953F66A26FA06 - CAAB507C6A068A6BC03EB8F2969A5B267D39025D4E8F9F594136D2894A2BB0B9 - C45BE6336DD0D3881C45273FC939E232B56FE87A1E91FB813B11A306471D0C26 - 70B848A6E207BF6B9B5FFC032D1B905F4C97C7260000000049454E44AE426082 - } end object RecurringLbl: TLabel AnchorSideLeft.Control = ImgRecurring @@ -563,51 +484,6 @@ object DlgEventEdit: TDlgEventEdit BorderSpacing.Left = 16 BorderSpacing.Top = 12 BorderSpacing.Bottom = 8 - Picture.Data = { - 1754506F727461626C654E6574776F726B477261706869633505000089504E47 - 0D0A1A0A0000000D4948445200000020000000200806000000737A7AF4000000 - 097048597300000EC300000EC301C76FA8640000001974455874536F66747761 - 7265007777772E696E6B73636170652E6F72679BEE3C1A000004C24944415458 - 85C5976B6C936514C77FA757940911E4BA0B0136D1764B144D0C37231225F1C2 - 06AC938060443E28104DCC6EC0665707C8C6C54443881ABC4490B04DD83E0089 - 4E1222424C20444601CD82289B0306096C2C59DBF53D7ED85BB2ADA52DB0847F - F2A64D9EE7FCCFEF797A9EE73D1555E541CAF240B303B63B0D48EDD9B1A89620 - CC072600978006C2B64F74D194FF62C7FC918AD8D6A0CC03D2818B28F58854A9 - C77539664CAC9F406AFCB3116A8191C031043FCA93C00CE0061699A50B5DFE7E - 317BCF6563317E058603BF219C437103D381EB602C544FCE918400527B3613F4 - 244827B0483DAEA37DC066203482B441E039F53CDDDE1B736A14387F071D07C6 - 8BEAC939DEC76F26E85E90A158C3537541CE85BEF962D480AE03198AA1AFF64B - BEAF6912422530048C2E2CCED1B7438C2163C0E8EA1DB36C907D4D936EBB795C - 47B1C86B400A61EBDA2476C0DF069C568F7B2E80F8B0E0F6BF8FB23E23D4E65C - DBFE65E38A1B75562B9A01A499612D61E4DFAF4614F46C1CB9E2A54BF6710184 - 32FCEECFD48B61FAFE0232453DAEB444004154776941F672F9B1E9090CCBCED4 - D0D5E99B2F6FB9B6A8E3E008497C728C4329B36EAE1C5FF6E8457BEA312CC63B - BA30E7BCD4F8BF4328508FFBA10400672F805E03D907EA5DD0D168DDD352A40E - 0D398020C27EA09E1E4ED14D0B004348C3C254843C200F70042DF6C01BE95BA4 - 3E658E01E203F24187ABC79D151FA0CE5F865209507175C7DFDEF6ED13E85D75 - 1D42095EED5744512A97C9D8D88C321F303E1AB5FA9FCAD1EF4E0440759D1664 - 6F8C0FB0BB79188EC099CAF6CF7F2ABBFAC5DB080A14E3D56D037349AD5F01D4 - E3962810AF14216C02F08D7AEFEB8AD1ABE6127466EB92CC8EB80000C7376567 - 4EEBF69F0252500AF1E9D6588B8D0B00E09362942A84CEA3CE9CA766969E8EDA - BD980535ADDBBF064801EAEE943C2979B51AA847796466A0A934D69468009F64 - 20BC456FC195DC73F288842220082CC727690387A3010C7251AC08FB13165C32 - F26A3342038A1583DCC400C22B2648C37D278F28E215F18E0B009966D0894104 - 3861024C4E06602C0036DA060DC0462B004A6AF4D02028721C07E8B07ADC73CC - EF91851A0327C5DA8148B3317E10D8228A78453532B176E002F03806CF007FC5 - 73BDE30514AD67FB78F753AC5370C0FCCC4BD23CB1D43C7E11EFB800211A10C2 - 401EE51255B577AD72C942C8057A08451FED6880F57A09E51BC0818DCDF7955C - 44CC37A31D6127EBB5353100400F15089D28F3F14AD13D03545082928B709320 - BE58536203F492BE0918089BEE1A4244F04929CA06C0C060091B34E6BD12DD0F - 1C6A76D219F8186169E1F56F1FAEBEB27598A88AD90915E3D5E6B8C9CB250B2B - 5B80792AA285638A3AB68D5CD685B20B9172F5B882F1016AFC550885A8EE0178 - FDD691C5B52D1F869C46D0811002EA3168C0C249305BB21ED26FB764422E8ABD - 5B1CC1FCF44FED07529EFFC1DC95C508D59AEF2E8D0F50EB6F45E4B0E6BB96F6 - 029DD935267C7DCEE53F5FA8015692F8F6341076A76535BEDCEA18F7735F1F44 - 66ABC7DDEF3A4EEABFE115DB630615FA01C24494D5088780F3C02DF3390F1C44 - 58450F19787559AB7D6C3819EFE8D508DFA35A2C35677A6F3991C54015005E6D - 01B69B4F7CC5F3890B30D4E9A52B00C852D3A81A156F32ABB9179FFF01757EEC - 0254F42D740000000049454E44AE426082 - } end object AlarmSet: TCheckBox AnchorSideLeft.Control = ImgAlarm @@ -684,16 +560,6 @@ object DlgEventEdit: TDlgEventEdit Width = 24 Anchors = [akTop, akLeft, akBottom] BorderSpacing.Left = 16 - Glyph.Data = { - F6000000424DF600000000000000760000002800000010000000100000000100 - 0400000000008000000000000000000000001000000010000000000000000000 - 8000008000000080800080000000800080008080000080808000C0C0C0000000 - FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00888888888888 - 8888888888000888888888888080808888088888080880888088888080888808 - 0888880880888808888800888008880888880888808088080000088880808808 - 8888008880088808888888088088880808888880808888088088888808088088 - 8808888880808088888888888800088888888888888888888888 - } OnClick = SoundFinderBtnClick end object EndTimePlaceholder: TEdit diff --git a/components/tvplanit/source/vpledlabel.pas b/components/tvplanit/source/vpledlabel.pas index 82e7068b6..287c475e8 100644 --- a/components/tvplanit/source/vpledlabel.pas +++ b/components/tvplanit/source/vpledlabel.pas @@ -39,7 +39,7 @@ uses {$ELSE} Windows, Messages, {$ENDIF} - Classes, Controls, Graphics, SysUtils; + Classes, Controls, Graphics, Types, SysUtils; type TSegmentSize = 2..10; @@ -71,6 +71,7 @@ type procedure SelectSegments(Segment: Word; Points: array of TPoint; OffsetX, OffsetY: Integer); protected + class function GetControlClassDefaultSize: TSize; override; procedure Paint; override; public constructor Create(AOwner:TComponent);override; @@ -245,14 +246,17 @@ const constructor TVpCustomLEDLabel.Create(AOwner:TComponent); begin inherited Create(AOwner); + + // Initial size of the control + with GetControlClassDefaultSize do + SetInitialBounds(0, 0, CX, CY); + ControlStyle := [csCaptureMouse, csOpaque, csSetCaption, csClickEvents, csDoubleClicks]; lbDrawBmp := TBitmap.Create; - Width := 170; - Height := 30; FOnColor := clLime; FOffColor := $000E3432; FBgColor := clBlack; @@ -261,7 +265,6 @@ begin FColumns := 10; Caption := 'LED-LABEL'; end; -{=====} destructor TVpCustomLEDLabel.Destroy; begin @@ -269,27 +272,23 @@ begin lbDrawBmp := nil; inherited Destroy; end; -{=====} function TVpCustomLEDLabel.GetAbout : string; begin Result := VpVersionStr; end; -{=====} procedure TVpCustomLEDLabel.SetAbout(const Value: string); begin {Leave empty} Unused(Value); end; -{=====} procedure TVpCustomLEDLabel.CMTextChanged(var Message: {$IFDEF LCL}TLMessage{$ELSE}TMessage{$ENDIF}); begin inherited; Invalidate; end; -{=====} procedure TVpCustomLEDLabel.Initialize(out Points: array of TPoint); var @@ -300,7 +299,6 @@ begin Points[i].Y := DigitPoints[i].Y * (FSize - 1); end; end; -{=====} function TVpCustomLEDLabel.NewOffset(xOry:char;oldOffset:integer):integer; begin @@ -309,7 +307,6 @@ begin else newOffset := oldOffset + 30 * (FSize -1) end; -{=====} procedure TVpCustomLEDLabel.Paint; var @@ -326,7 +323,6 @@ begin Canvas.CopyMode := cmSrcCopy; Canvas.Draw(0, 0, lbDrawBMP); end; -{=====} procedure TVpCustomLEDLabel.PaintSegment(Segment: Integer; Color: TColor; Points: array of TPoint; @@ -344,7 +340,6 @@ begin end; lbDrawBMP.Canvas.Polygon(DrawPts); end; -{=====} procedure TVpCustomLEDLabel.SelectSegments(Segment: word; Points: array of TPoint; OffsetX, OffsetY: Integer); @@ -376,7 +371,6 @@ begin end; end; end; -{=====} procedure TVpCustomLEDLabel.ProcessCaption(Points: array of TPoint); var @@ -479,7 +473,6 @@ begin end; end; end; -{=====} procedure TVpCustomLEDLabel.ResizeControl(Row, Col, Size: Integer); begin @@ -489,7 +482,6 @@ begin SetBounds(Left, Top, FColumns * 17 * (FSize - 1), FRows * 30 * (FSize - 1)); Invalidate; end; -{=====} procedure TVpCustomLEDLabel.SetBgColor(Value:TColor); begin @@ -498,7 +490,6 @@ begin Invalidate; end; end; -{=====} procedure TVpCustomLEDLabel.SetOnColor(Value:TColor); begin @@ -507,7 +498,6 @@ begin Invalidate; end; end; -{=====} procedure TVpCustomLEDLabel.SetOffColor(Value:TColor); begin @@ -516,7 +506,6 @@ begin Invalidate; end; end; -{=====} procedure TVpCustomLEDLabel.SetRows(Value : Integer); begin @@ -526,7 +515,6 @@ begin ResizeControl(Value, FColumns, FSize); end; end; -{=====} procedure TVpCustomLEDLabel.SetColumns(Value : Integer); begin @@ -536,7 +524,6 @@ begin ResizeControl(FRows, Value, FSize); end; end; -{=====} procedure TVpCustomLEDLabel.SetSize(Value : TSegmentSize); begin @@ -548,6 +535,12 @@ begin ResizeControl(FRows, FColumns, Value); end; end; -{=====} + +{ Defines the initial size of the control. } +class function TVpCustomLEDLabel.GetControlClassDefaultSize: TSize; +begin + Result.CX := 170; + Result.CY := 30; +end; end. diff --git a/components/tvplanit/source/vpmisc.pas b/components/tvplanit/source/vpmisc.pas index 0b52fcf6f..94196eb2d 100644 --- a/components/tvplanit/source/vpmisc.pas +++ b/components/tvplanit/source/vpmisc.pas @@ -1186,8 +1186,12 @@ begin resName := ABaseResName + ResToStr(AHighRes) else if ppiFactor >= 115 then resName := ABaseResName + ResToStr(AMedRes) - else - resName := ABaseResName + ResToStr(ALowRes); + else begin + if ALowRes <= 0 then + resName := ABaseResName + else + resName := ABaseResName + ResToStr(ALowRes); + end; stream := TResourceStream.Create(HINSTANCE, resName, RT_RCDATA); try diff --git a/components/tvplanit/source/vpmonthview.pas b/components/tvplanit/source/vpmonthview.pas index 8965c865c..22084168f 100644 --- a/components/tvplanit/source/vpmonthview.pas +++ b/components/tvplanit/source/vpmonthview.pas @@ -42,7 +42,7 @@ uses {$ELSE} Windows, Messages, {$ENDIF} - Classes, Graphics, Controls, ComCtrls, ExtCtrls, Buttons, Forms, Menus, + Classes, Graphics, Types, Controls, ComCtrls, ExtCtrls, Buttons, Forms, Menus, VpConst, VpBase, VpBaseDS, VpMisc, VpData, VpSR; type @@ -245,6 +245,7 @@ type { inherited methods } procedure CreateParams(var Params: TCreateParams); override; procedure CreateWnd; override; + class function GetControlClassDefaultSize: TSize; override; procedure Loaded; override; procedure KeyDown(var Key: Word; Shift: TShiftState); override; procedure MouseDown(Button: TMouseButton; Shift: TShiftState; X, Y: Integer); override; @@ -560,16 +561,16 @@ begin SetLength(mvEventArray, MaxVisibleEvents); SetLength(mvMonthdayArray, 45); - { size } - Height := 225; - Width := 300; - { Popup menu } FDefaultPopup := TPopupMenu.Create(Self); FDefaultPopup.Name := 'default'; InitializeDefaultPopup; Self.PopupMenu := FDefaultPopup; + // Initial size of the control + with GetControlClassDefaultSize do + SetInitialBounds(0, 0, CX, CY); + LoadLanguage; mvHookUp; @@ -698,6 +699,13 @@ begin mvPopulate; end; +{ Defines the initial size of the control. } +class function TVpMonthView.GetControlClassDefaultSize: TSize; +begin + Result.CX := 225; + Result.CY := 300; +end; + function TVpMonthView.GetControlType: TVpItemType; begin Result := itMonthView; diff --git a/components/tvplanit/source/vpprtprv.pas b/components/tvplanit/source/vpprtprv.pas index bff81c904..ddf832fe8 100644 --- a/components/tvplanit/source/vpprtprv.pas +++ b/components/tvplanit/source/vpprtprv.pas @@ -61,7 +61,7 @@ uses {$ELSE} Windows, Messages, {$ENDIF} - SysUtils, Classes, Controls, Forms, Graphics, Printers, + SysUtils, Graphics, Types, Classes, Controls, Forms, Printers, VpBase, VpMisc, VpBaseDS, VpSR, VpException, Menus; type @@ -120,6 +120,7 @@ type procedure CreateWnd; override; procedure DoScroll(var Msg: {$IFNDEF LCL}TWMSCROLL{$ELSE}TLMScroll{$ENDIF}; BarDirection: Integer); procedure GeneratePageImage; + class function GetControlClassDefaultSize: TSize; override; procedure GetLastPage; procedure InitHScrollBar(PageSize, TotalSize: Integer); procedure InitializeDefaultPopup; @@ -260,9 +261,11 @@ begin FEndDate := Now + 7; FScrollX := 0; FScrollY := 0; - Height := 225; - Width := 169; FPrinter := Printer; + + // Initial size of the control + with GetControlClassDefaultSize do + SetInitialBounds(0, 0, CX, CY); end; destructor TVpPrintPreview.Destroy; @@ -483,6 +486,13 @@ begin SetScrollBars; end; +{ Defines the initial size of the control. } +class function TVpPrintPreview.GetControlClassDefaultSize: TSize; +begin + Result.CX := 169; + Result.CY := 225; +end; + procedure TVpPrintPreview.GetLastPage; var i: Integer; @@ -785,23 +795,15 @@ var begin if FBorderStyle = bsSingle then begin R := ClientRect; + dec(R.Right); + dec(R.Bottom); if FDrawingStyle = dsFlat then begin // Draw a simple rectangular border - //InflateRect(R, 1, 1); DrawBevelRect(WorkBmp.Canvas, R, clBtnShadow, clBtnShadow); - { - DrawBevelRect(WorkBmp.Canvas, R, clBtnShadow, clBtnHighlight); - InflateRect(R, 1,1); - DrawBevelRect(WorkBmp.Canvas, R, clBtnHighlight, clBtnShadow); - } end else if FDrawingStyle = ds3d then begin // Draw a 3d bevel - dec(R.Right); - dec(R.Bottom); DrawBevelRect(WorkBmp.Canvas, R, clBtnShadow, clBtnHighlight); - InflateRect(R, -1, -1); - DrawBevelRect(WorkBmp.Canvas, R, cl3DDkShadow, clBtnFace); end; end; end; diff --git a/components/tvplanit/source/vpprtprvdlg.lfm b/components/tvplanit/source/vpprtprvdlg.lfm index 160a421ab..d847984ca 100644 --- a/components/tvplanit/source/vpprtprvdlg.lfm +++ b/components/tvplanit/source/vpprtprvdlg.lfm @@ -165,142 +165,6 @@ object frmPrintPreview: TfrmPrintPreview object imMain: TImageList Left = 272 Top = 160 - Bitmap = { - 4C7A060000001000000010000000911000000000000078DACD97075055D7B7C6 - D7BD7450411144A2A8081A2CC458B087008222A0227640B11144D1BFBD1B4510 - 13093152C4125154C460C18614518A0D052B55441050BAF47B69F77E6F5D306F - 3289C973266FE6BD3BF3CD3973CFFE9D75F6DA7BEDB596E39429E4F851732C2C - 68DFD6ADC79FA7A5D5B3AA9FA5A6563F67BDE0FB97FC9FDF9E3DE7E64E9E2C74 - B6B3A3DF35C7DCBC5DB35976E3C691BF8FCF65FCCD2F2420206EBAA9A9C23CB6 - 35FFA3269999D1F44993C8C9CA8AE6989A92FFBE7D111289A47D7C2BAB89D5C8 - 6A91F1FEFE37E75B5ACA2FB6B5A5193CDECAD292BE65DE82F979FC9F3DF3C77C - 7DCFCA78E91FD8DA8FF7E78283AFCEE2393AD9DB9325B3E6CC99312F93A5B535 - 0D1A324433F0C081447CB42763EB581F58CDACD0C38753794CAFC953A79239CF - 5766D7D4D454C5CECECECD63E5CA985DDBB7BFB970364CD22C16A1B1A519352D - 4DA8E46B696B33AA9B9B71FDC245E9AE9D3B0BD7AD5D17EF603F738D998579A7 - F973E7FA3C4C4A82A8FA03CADFBD43F2F5087C789D8AEAC274541666A2A2280B - E5459928CF7F867B5117519095830FC545789070078B162E0CFED9CFAF00AD2D - 686A68447E6E2E0A1E4740F22E0E6D05D7D09A731A6D2F83D0FAEC20A44FF7A3 - 38613FD21F3F425A6A1C0A739F22E867FFD2C8C8C81AD97C6B3FD4212FE3296A - 12D60337AD813043484375203DA5DD2E847445CDF17EC84D8B47715129EA2A2A - 70F3EAB5DAB09090DAAAE2625454D4E2DDF30434FBE8031BA9439B3E6A73875A - 360A5172F73754D634A1BCA00057C2C26A827FFAA9FA494C0C9EDC494476F22D - 149CFB11EFCFEE4659E82694FDBABA43A736E27DD82E14841F404E622C9E2424 - 41C69C0E08A809F4F37B5FF8EC1992AE5EC592452E70755F0B8F755BB16ADD36 - BE7668D5FAEDF058BF0D6E1E1BB0C87921622E4440C69C080AAAF0F1F67ED258 - 5686E70F1F62CBA64DB871E33A921213712B2E8E158B58B613137D13717CBD71 - FD3AB66CDE8C145EAFA6CA4A1CF4F5CD59B67CF9CA0749498D79191978C36AFF - F1FE6B6B6A424B63239A6A6BD15855855AB621AAAEC6DBCC4CE4B1521F3E14B9 - BBBB6F9BE9E020EFEAE666BD6BFDFA33A545451DFB9EF74A8B58CC6BDA00514D - 0DEAD9564D6987CF2B798F786EDA14B5C4D9D96EF6BC798A3367CDA2D56E6EE4 - B3658B57767A7A7D6E56568D4CAF64CACCACC9CDC8A8C9494FAFC979F9B25D79 - D9D9F53CF6F8028EBD853366F0C2E05F29DC843A34BA43E7F9FEE238B935E726 - 6BE3E82885ED47BE260A3026BA329128D192E88E05D1AD6F6840B2BD56C6C3D9 - 5DF3424712858E203A3D9CC563430690DBED8D3391177B0827C7744E383C8004 - BF0E218A35234A603E7E22F54CB4D14EA9BC1B86573BCD5A8F31776C28D1F1C1 - 44470DC9E9F282E1ADA286A7284B3E8433268AB78F0D22C145FEAEFBD644B7CD - 4929C14229A9E4FA2F1CE099C8DF32BCE938F3C7F9FB8E0E209BF3338C6A3FE4 - 46022511C8FAC9016126C293B2B9255AB12691CA1D33E18DC2D0EDFC3C1ECDC9 - 7B91E7AA532BE3830DC824D4A2DFFBD26761C0CB0328F2B3C16F139433CE8DA6 - 3ED7F9BB6F4F24C1AD71743A3FD803C83987D6C865285CDD17D9F6B42E781019 - 1D1FAB9D53987C18B8BB11A5BB8D71C154F5EDD9513424CA9C28D992E46F8D27 - FF5C5F6748D382203D668EE2D5BAC8B4A5BD3933894E8C577FF6266A3FC7AC0B - 3EAC51C76553E1FBF3A3E9EBF3E3D8D796EDDFBD2ADBD30E92446F609F3E4A96 - AB21C7817CF3E611E5CD273A39A947F6FB2333809DEAA87455C0B5C9EA6F6F9A - D280FB3644F7AC6592DB50B07B3CE03B08F02094BA76C25B4785BDD58B885A57 - 101DF98A469E1F2BFFB6629B1EE0D91DE5BB4D106FAFF32AC98A0C5267B0DF6D - 49E9890D9D2AF3D0E4E73D21DDAD8FEAEF87E3838B7053EB77EC7B5EFB5323C9 - 22C65AB5AA969FC15B17E53B86E2C1CC4E29CFECA9E7137BA2A7F6A4F86A8EE0 - 52ED962F00AFDE907A1942B455AFADC58D961D63FE0CAFEFE50934FFFEAC4E62 - 91B721B0570725AEAA786E4FC1CFD9474F59F9F349BDD4459820FEBE37FBA11F - A45BBB42BA4AAEEAF030F6C128A24B138862CCC8F5E5420DB41D1C8AC64D1AC8 - 9E4DB7336793207D16D11BF655850B756DF84E2E4DEA33A0DD97582D14DF9C44 - 1427DB1F325FB1CF526C68E3DB553DD0E069887C47B984D77348903B97A86001 - 51F962A246573290AE517A0EDFC17C26AAB73C73209249F68D4F58693CDFCCD9 - C21D454B5450BC48E855E44C2453B113F32E44223722B8D3D758AB988FFF2814 - FFDBF8FDDF5230C7AEBF1191CC9F47D99F811C8F811CB747797D64CF7EEE4B53 - 8F8E52CF099F6680D0B10AA99FC307311F3C8CBA317BF0A4995E5BFEED709424 - FC8AF3133A8B3F870F30A2C98706089F46AFB1476D661C0FCB46D99D031C23AA - 7FCBCBAE474690E2A101E47B7C9C5653C699FD90142770DC9E80243D0819FBA7 - E39AA95CE9A7F88041ED364D0E1A50DAD56516A84CBB08649D02623D501BB608 - F7960C44E4584ABD694E669FE055FCFA9267F070F58A2747B7A355760EDD7083 - 2460345E6F198A1B569D441746902FB35D6278BFFD990F1C4AC957178D46E5BD - 9340B227C7491F88367441927D675C1A4F4FAE7E4363AEF01E979D29D19FE083 - 8C85A9B11EDFA2FEFC62DEDBBAC03A011A57CA21D9A11BA2ACBADC4FB020A3C7 - 36B2BD49F4D6E9AF7CF070523D644807C3C72934BCDED81F123F23605B2748F6 - F443E13E6B3C5CF045F5032BDA99398B3A7D9267FF1D362641E828B28C182FC8 - 4E5BD81D8DDE06C02E0D6007DFFB8E45EE6A0364CC1226712C0DFD24CF79E0EC - 58A2AB66D439DA9C8EDDB75792566CEE05E9CEEEC07A25483DF550B95A13854E - 54F84FFC35F6512CC775B235CD7B3C5DF0AAC8BD1B5A77EA702DA38CE6D58A28 - 5F22107F0E7F772A119F417A990E74A27889329AB67447CB3A55D42DA7CFE7F9 - 6C78C5E747E17C9A5BB554AEB8719522C4EE82CCFF2F71FFBB38D73F38676788 - 63265DF30E1BD2F4F0F14437781E719CFFEE4D217AC16768EE1CA2F77C8ED62C - FBEBFA1F1DD949FC36EE280AEF5E40C4547D840EA6C06BA6A41D67FE99FC0855 - 71512CE74169161A726E2365C71C5C19237C196B4AD33E870F19217C97B6C716 - 12AE97917D02D2E23B7817E98BBB0E3AAD772DE810E711957FE24F8FA1B161C3 - 29E5EE2203D4852D04A257712D7002A2179791BB6B0A9E590B9FBF9A4113DAF9 - E57FE5CFB2BF2E4EA0CE9747D2BE445BB5FA779C03A51CFBE05A419273195597 - BF478173B7EA627BDACFF6553EC55FE0F8BEC6755682150D7F604D29B98BD4B8 - E6560776F702E277A2253514D55EE350BB981EFC9997E59DB4E92C3BCE433664 - F07476E784374BBBA3D94301F80F0FD9D303920B2E10FF6201B1ABF0D9DFF06A - 8FA7D0E60C179DCA8A035338DE387E37A9427A60209ABCFAA3C155512C5A4881 - CD2B48FDCF3CD70A5FA64E13DC79BD4A1F4D3F71BDB19D7B8E6D9DD1E66300D1 - 462DD42F17BE162DA3A9E2652460FE2FFE7B3283F28BDDBB42C2318EF58ACC77 - 43F3F75FA0CE5D198DCB2854EC461A625722E6E9537CE61C81B8C1438973B232 - DA7668A37E4337D42C13E4352CA785B29C2B96E91FF8BC052416AD514133C778 - CD0A65D42CA5B3F59CEB1B5C3B72F6FFC4173B0B9E57B92AE2C372B952669DEA - B9369289ED7F16FF7FA5AB53345E5EB7E95170956BCED88FB17EE35B3ECBF83C - FB956BFB9031F26EA72D7BE0F050851D27B8163869D2516F85B04EF0F324B731 - CD65C9E188B5EDFD3C7A3C19DC9DD251E71FE3FC7DB03FE7E2AF55C2B2AFFC88 - DB3B1D71D880D69FE4FC7E86DF738EDF13C17B3E79A99108A22728893B8E5B96 - AA69099348E305EFC5087EEEDB8FBF6388FC9982681FB4B5BD40D4D209386148 - AEE1FC6DFCBD243B5BE2EDBB57D4C5EF02CA6251747E2F1227C927A458539774 - AEC54286B79FC9FBD33C6D8077E1A8E79EFA86F330F1D9C1342F72747BBD4851 - 136959CAC25E92E68B4B38D787A2F0D426DC37A74B193348E93AF73AFEC6A47B - 7294624AFE0F9381A73EA8C90E47D4AC2F2B2F1A93B98CBFC9BE8A9E405BD297 - E8A02DD8147874106F039721D58A42B866558CE55C7DC4980CC3C72BE5BEDBC9 - 692F610DAA528F23DAAED7DBA87134329AF95816E767CF5C673E16BCF420BDB3 - 1BC57EB390654FDF3FE39896D5C86747D3C04853417EA50787DEE579A848F809 - B7ED35731E71BC3F6CAF5DE5B7E4BAA84BB18697F5070394EDFF06D973E47D5E - B22F2F7FC3F5F138D2BD62D539A79CF728B6AAA1E6D834242FD02D78642BEBAD - 042B72D67E256993C5BB670F94ADD142E6348AE09A59E501BFFFE258D2BB32A5 - 7BFABB5D7C9EEDD644ED2E3D245B2B96DF3223D3145B9A93B5FC0B71CB5EAEA9 - BD7451C9F93A6B962086EB66B564CE7F972652B7480BD5F8C24D43DA7B83C6BD - FAB8E7A0561F6D46D36F5BC9F2A3B0A4713DD7083E7AA8D9DE073973E41E71BD - AD2DABB965BDD7A56FC833D349997B026D34ED33C4A379EA2DBC4F97C5F1DAC8 - F857F30522195BBF772072E6C967E4CCA6DEB25A3D897D72F19BF6779C295BDD - 19D2434390E6D40DCCFE47C6FECEBF59DAB9B9D16710729D9473B31DE82B99DD - 74CED9B1FC9CF317C54C1286BDDFDA1F596EBA60C653C6DC99DCC126F05ECF71 - 54C8CD73562ACD9945E37338BFBC663E8DFBA69B1C03713C2EDE5AB0E6BEBD32 - 12AC853E3C5E20EB33FEA87F1BBF3D7B6EA6EEDD57F731340C4A3630086FD0D5 - DD3E4F47671B696BEF262D2D6FD2D4F4A1AE5DF753972EDEACFD3686869175FD - FB9F7F2A10FC682427E74F3A3AEBFBE8EBFB252F5850013737A077EF6B221D9D - ED8EDADABBFEC0EFA3CE9DBD6CFBF4B951EBE3238197571DF4F4CEA772573078 - E8D0C01447C72AA4A4005555C08A15ADE8DA3546A4A5B57BBE969617F3FB485D - 7DDF542DADE8DA0D1B9A505101BC79031C38508FA1432333468D0A17AD5E0DA4 - A703F9F99C725F02CECE62282B4735686A7A3B6868ECB35453BB56B76449035E - BCE0323E07C8E4EAE9B7DF000B8BA4D69E3DB72F183122AAE1BBEF2488E316E1 - E1436EC3EF0276760D1008A25A85C2C8265BDB5A242602F7EF0377EE00010152 - 661F35292804BB6B6A6EE5796E9D6F64142F72726A6B7FEFF5EB9CB623259838 - B1122626E5888890E0DA35E0C2054EA37B24183F3EAD555EDE7F25770BCC6E23 - 0D8D2DBC06BB1CFBF68D11DBD8B4C0DF1F38C9657C5090048181128484C8EEA5 - 70776FC590210F5BE5E40298FD850482A076BE5BB76DECA31DFC1ECF193A3A37 - 9BCDCD1BE0CDEDFECF3F037E7E1C1A3E52CC9DDB883E7DEEB5090481DC4D1E22 - 996D19AFAAFA03292BFBF0D59B79AF6FF5F56F88BB7429C1A041A530372F6FD7 - E8D12530322A41FFFE492DCC704407337F8275BA9D5750F066FB5EB64386DCAC - D3D1A90177BBAC0C566ABBD4D4D2D1B76F3EFBE303860DBB2F120A8F3A72E7DF - CE2B2BEFA74E9DBCA68E1A75AB564FAF91C797B3F25959ECFF5C282ABE86A666 - 16F4F5DFE0ABAF4A306D5A03BF27552427F72B5752A16CF7876963C644D7191A - B63053CB7AD7CE2B28144155F59E444D2DB1555BBB08FDFAE5C3D8B81813267C - 808B4B33AFDFE30679F9330BC78EBD52376C18070235B12A5825CC55B0CD074D - AAAA412E8A8A81F69A9AF71A8C8CCAD8FE7BE6CB6165D580CD9B014BCB14B1B1 - F16FE92626F56C4F66BF121A1AB5E8D52BB555452570A5B2B23F292A0610CF77 - BE9EDE63D1B871D5BCF695B0B51561ED5A31468E4CC85751393078F0E0F3A9C6 - C6B5D0D56D8581414A2BDB5DA9A07088F81DA4A414C8EB749875DC71E0C047A2 - E9D3C558BCB891E7129FC5F31FA3AAEAC7360E18F5EF7F35EDCB2F939A555482 - 572828F83317F0DFBC5078847D7D94AF671C070D4A6934344C7CC55978B44070 - 86FE0B678DEAB0 - } end object actMain: TActionList Images = imMain diff --git a/components/tvplanit/source/vpprtprvdlg.pas b/components/tvplanit/source/vpprtprvdlg.pas index cb9644f33..a77d585cc 100644 --- a/components/tvplanit/source/vpprtprvdlg.pas +++ b/components/tvplanit/source/vpprtprvdlg.pas @@ -39,7 +39,7 @@ uses Windows, Messages, {$ENDIF} SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ExtCtrls, - Buttons, Printers, ComCtrls, ActnList, + Buttons, Printers, ComCtrls, ActnList, ImgList, {$IFDEF VERSION6} Variants, {$ENDIF} VpMisc, VpBase, VpData, VpPrtPrv, VpSR, VpBaseDS, VpDlg, VpPrtFmtCBox; @@ -74,7 +74,6 @@ type actLastPage: TAction; actCancel: TAction; - procedure FormShow(Sender: TObject); procedure OKBtnClick (Sender : TObject); procedure cboxZoomChange(Sender: TObject); procedure actPrintExecute(Sender: TObject); @@ -85,11 +84,13 @@ type procedure actMainUpdate(Action: TBasicAction; var Handled: Boolean); procedure actCancelExecute(Sender: TObject); procedure FormCreate(Sender: TObject); + procedure FormShow(Sender: TObject); procedure FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState); procedure VpPrintFormatComboBox1Change(Sender: TObject); private FDrawingStyle: TVpDrawingStyle; + procedure PopulateImageList; procedure SetCaptions; procedure SetDrawingStyle(AValue: TVpDrawingStyle); @@ -171,10 +172,35 @@ procedure TfrmPrintPreview.FormCreate(Sender: TObject); begin ReturnCode := rtAbandon; SetCaptions; + PopulateImageList; Toolbar1.ButtonHeight := ScaleY(Toolbar1.ButtonHeight, DesignTimeDPI); Toolbar1.ButtonWidth := Toolbar1.ButtonHeight; end; +procedure TfrmPrintPreview.PopulateImageList; +const + RES_NAMES: array[0..5] of string = ( + 'VpPrint', 'VpFirst', 'VpLArrow', 'VpRArrow', 'VpLast', 'VpCancel' + ); +var + bmp16, bmp24, bmp32: TCustomBitmap; + i: Integer; +begin + imMain.RegisterResolutions([16, 24, 32]); + imMain.Scaled := true; + + for i := 0 to High(RES_NAMES) do + begin + bmp16 := CreateBitmapFromResourceName(HINSTANCE, RES_NAMES[i]+'16'); + bmp24 := CreateBitmapFromResourceName(HINSTANCE, RES_NAMES[i]+'24'); + bmp32 := CreateBitmapFromResourceName(HINSTANCE, RES_NAMES[i]+'32'); + imMain.AddMultipleResolutions([bmp16, bmp24, bmp32]); + bmp32.Free; + bmp24.Free; + bmp16.Free; + end; +end; + procedure TfrmPrintPreview.SetCaptions; begin Self.Caption := RSDlgPrintPreview; @@ -239,6 +265,7 @@ begin EditForm := TfrmPrintPreview.Create(Application); try DoFormPlacement(EditForm); + EditForm.WindowState := WindowState; EditForm.VpPrintPreview1.ControlLink := ControlLink; EditForm.VpPrintFormatComboBox1.ControlLink := ControlLink; diff --git a/components/tvplanit/source/vptasklist.pas b/components/tvplanit/source/vptasklist.pas index 5e3b8e6db..21a61f94e 100644 --- a/components/tvplanit/source/vptasklist.pas +++ b/components/tvplanit/source/vptasklist.pas @@ -38,7 +38,7 @@ uses {$ELSE} Windows, Messages, {$ENDIF} - Classes, Graphics, Controls, ExtCtrls, StdCtrls, Menus, + Classes, Graphics, Types, Controls, ExtCtrls, StdCtrls, Menus, VpConst, VpBase, VpBaseDS, VpMisc, VpData, VpSR; type @@ -196,6 +196,7 @@ type procedure EditTask; procedure EndEdit(Sender: TObject); procedure KeyDown(var Key: Word; Shift: TShiftState); override; + class function GetControlClassDefaultSize: TSize; override; { Popup menu } function GetPopupMenu: TPopupMenu; override; @@ -556,15 +557,16 @@ begin SetLength(tlVisibleTaskArray, MaxVisibleTasks); - { size } - Height := 225; - Width := 169; - + // Popup menu FDefaultPopup := TPopupMenu.Create(Self); FDefaultPopup.Name := 'default'; InitializeDefaultPopup; Self.PopupMenu := FDefaultPopup; + // Initial size of the control + with GetControlClassDefaultSize do + SetInitialBounds(0, 0, CX, CY); + LoadLanguage; tlHookUp; @@ -651,6 +653,13 @@ begin FExternalPopup := nil; end; +{ Defines the initial size of the control. } +class function TVpTaskList.GetControlClassDefaultSize: TSize; +begin + Result.CX := 200; + Result.CY := 300; +end; + function TVpTaskList.GetControlType: TVpItemType; begin Result := itTasks; diff --git a/components/tvplanit/source/vpweekview.pas b/components/tvplanit/source/vpweekview.pas index 152a425d2..1d187590a 100644 --- a/components/tvplanit/source/vpweekview.pas +++ b/components/tvplanit/source/vpweekview.pas @@ -55,11 +55,11 @@ interface uses {$IFDEF LCL} - LMessages, LCLProc, LCLType, LCLIntf, FileUtil, + LMessages, LCLProc, LCLType, LCLIntf, {$ELSE} Windows, Messages, {$ENDIF} - Classes, Graphics, Controls, ComCtrls, ExtCtrls, StdCtrls, Buttons, Forms, Menus, + Classes, Graphics, Types, Controls, ComCtrls, StdCtrls, ExtCtrls, Buttons, Forms, Menus, VpConst, VpBase, VpBaseDS, VpMisc, VpData, VpSR; type @@ -229,6 +229,7 @@ type { inherited standard methods } procedure CreateParams(var Params: TCreateParams); override; procedure CreateWnd; override; + class function GetControlClassDefaultSize: TSize; override; procedure Loaded; override; procedure KeyDown(var Key: Word; Shift: TShiftState); override; procedure MouseDown(Button: TMouseButton; Shift: TShiftState; X,Y: Integer); override; @@ -644,15 +645,16 @@ begin SetLength(wvEventArray, MaxVisibleEvents); SetLength(wvWeekdayArray, 7); - { size } - Height := 225; - Width := 300; - + // Popup menu FDefaultPopup := TPopupMenu.Create(Self); FDefaultPopup.Name := 'default'; InitializeDefaultPopup; Self.PopupMenu := FDefaultPopup; + // Initial size of the control + with GetControlClassDefaultSize do + SetInitialBounds(0, 0, CX, CY); + LoadLanguage; wvHookUp; @@ -818,6 +820,13 @@ begin wvPopulate; end; +{ Defines the initial size of the control. } +class function TVpWeekView.GetControlClassDefaultSize: TSize; +begin + Result.CX := 225; + Result.CY := 300; +end; + function TVpWeekView.GetControlType : TVpItemType; begin Result := itWeekView;