From eee95d253fcd145180de967101c62d3284e4a776 Mon Sep 17 00:00:00 2001 From: Ivan Date: Sun, 2 May 2021 00:19:04 -0300 Subject: [PATCH 1/3] Access violation preventing component installation All resource files were pointing to the wrong location for the images. I edited the .rc files, generated new .res with brcc32, edited in the source code the calls to the .res files where I had some comments and compiled the project --- .gitignore | 7 +++ Bold.dpk | 40 +++++++++--------- Bold.dproj | 6 ++- Bold.res | Bin 448 -> 616 bytes BoldAdo.res | Bin 0 -> 628 bytes BoldAdvantage.res | Bin 0 -> 664 bytes BoldCom.res | Bin 0 -> 628 bytes Source/Common/IDE/BoldReg.RES | Bin 0 -> 492 bytes Source/Common/IDE/BoldReg.pas | 2 +- Source/Common/IDE/BoldReg.rc | 2 +- Source/Common/IDE/BoldWebConnectionReg.RES | Bin 0 -> 492 bytes Source/Common/IDE/BoldWebConnectionReg.pas | 2 +- Source/Common/IDE/BoldWebConnectionReg.rc | 2 +- Source/Common/Support/BoldCommonBitmaps.RES | Bin 0 -> 5100 bytes Source/Common/Support/BoldCommonBitmaps.pas | 2 +- Source/Common/Support/BoldCommonBitmaps.rc | 26 ++++++------ ...BoldExternalObjectSpaceEventHandlerReg.RES | Bin 0 -> 528 bytes ...BoldExternalObjectSpaceEventHandlerReg.pas | 2 +- .../BoldExternalObjectSpaceEventHandlerReg.rc | 2 +- 19 files changed, 51 insertions(+), 42 deletions(-) create mode 100644 .gitignore create mode 100644 BoldAdo.res create mode 100644 BoldAdvantage.res create mode 100644 BoldCom.res create mode 100644 Source/Common/IDE/BoldReg.RES create mode 100644 Source/Common/IDE/BoldWebConnectionReg.RES create mode 100644 Source/Common/Support/BoldCommonBitmaps.RES create mode 100644 Source/ObjectSpace/IDE/BoldExternalObjectSpaceEventHandlerReg.RES diff --git a/.gitignore b/.gitignore new file mode 100644 index 00000000..e0e4ceb6 --- /dev/null +++ b/.gitignore @@ -0,0 +1,7 @@ + +*.dcu +*.~1~ +*.~2~ +*.local +*.dsk +*.identcache diff --git a/Bold.dpk b/Bold.dpk index 155ec5e6..e1dd85a8 100644 --- a/Bold.dpk +++ b/Bold.dpk @@ -1,27 +1,27 @@ package Bold; -{.$R *.res} +{$R *.res} {$IFDEF IMPLICITBUILDING This IFDEF should not be used by users} -{ ALIGN 8} -{ ASSERTIONS ON} -{ BOOLEVAL OFF} -{ DEBUGINFO ON} -{ EXTENDEDSYNTAX ON} -{ IMPORTEDDATA ON} -{ IOCHECKS ON} -{ LOCALSYMBOLS ON} -{ LONGSTRINGS ON} -{ OPENSTRINGS ON} -{ OPTIMIZATION OFF} -{ OVERFLOWCHECKS ON} -{ RANGECHECKS ON} +{$ALIGN 8} +{$ASSERTIONS ON} +{$BOOLEVAL OFF} +{$DEBUGINFO ON} +{$EXTENDEDSYNTAX ON} +{$IMPORTEDDATA ON} +{$IOCHECKS ON} +{$LOCALSYMBOLS ON} +{$LONGSTRINGS ON} +{$OPENSTRINGS ON} +{$OPTIMIZATION OFF} +{$OVERFLOWCHECKS ON} +{$RANGECHECKS ON} {$REFERENCEINFO ON} -{ SAFEDIVIDE OFF} -{ STACKFRAMES ON} -{ TYPEDADDRESS OFF} -{ VARSTRINGCHECKS ON} -{ WRITEABLECONST ON} -{ MINENUMSIZE 1} +{$SAFEDIVIDE OFF} +{$STACKFRAMES ON} +{$TYPEDADDRESS OFF} +{$VARSTRINGCHECKS ON} +{$WRITEABLECONST ON} +{$MINENUMSIZE 1} {$IMAGEBASE $400000} {$DEFINE BOLD_DELPHI} {$DEFINE DEBUG} diff --git a/Bold.dproj b/Bold.dproj index 9e641511..e154fb41 100644 --- a/Bold.dproj +++ b/Bold.dproj @@ -73,12 +73,14 @@ CompanyName=;FileVersion=1.0.0.0;InternalName=;LegalCopyright=;LegalTrademarks=;OriginalFilename=;ProductVersion=1.0.0.0;Comments=;ProgramID=com.embarcadero.$(MSBuildProjectName);FileDescription=$(MSBuildProjectName);ProductName=$(MSBuildProjectName) System.Win;Data.Win;Datasnap.Win;Web.Win;Soap.Win;Xml.Win;Bde;$(DCC_Namespace) true + vcl;vclx;vcldb;$(DCC_UsePackage) System.Win;Data.Win;Datasnap.Win;Web.Win;Soap.Win;Xml.Win;$(DCC_Namespace) Debug true CompanyName=;FileDescription=$(MSBuildProjectName);FileVersion=1.0.0.0;InternalName=;LegalCopyright=;LegalTrademarks=;OriginalFilename=;ProgramID=com.embarcadero.$(MSBuildProjectName);ProductName=$(MSBuildProjectName);ProductVersion=1.0.0.0;Comments= + vcl;vclx;vcldb;$(DCC_UsePackage) false @@ -435,8 +437,8 @@ Bold.dpk - Microsoft Office 2000 Sample Automation Server Wrapper Components - Microsoft Office XP Sample Automation Server Wrapper Components + QuickReport 6 Components + Componentes Softcenter Sydney - Completo diff --git a/Bold.res b/Bold.res index a64cea33b7bbf9c30d10d7750693ab849f870abc..348af5e980f626b3ebea2958d9db5b58ab15d940 100644 GIT binary patch delta 199 zcmX@W{DNhI0^^H`it<3hF`CJZapF8BCMCv+hpOt`7(^Ku83GuJ81fm?fn*{>E`uk7 z3j+uw1I2O~^cYfsWD-!O2q==skOJg`RO>M~0m&R79|VjTSb^raF=PToQi1wY8H$0b ri-7zBh7ur|&yWXJhpb17fmID|c?v@*P(ulWAJ_@0sEQ|BGPVN%HL4`n delta 32 ncmaFCa)5b)0;9u3MR_3M7|pbRVd6X`rW%HchpHw&VQc{aswoQ^ diff --git a/BoldAdo.res b/BoldAdo.res new file mode 100644 index 0000000000000000000000000000000000000000..800ca8b6fc5df43552a1673a0b8306ca5b62ba0e GIT binary patch literal 628 zcmZvaPfNo<5XE042kXhBM-QGQLJkTAsZ=FU|4>7(rPf*kX(F+HJim>1FFhN7v+3G4 zI53;Z?wj{!XI7Gq@w#rDaK~1GKR*P+4;HBtdeAC}2}gR;nDtsiqC^k6=RaY+AvXIA zzkejlZ#ew-(w$01=ug&LO4$hDTdGo~LUY(M<(k1<=v5`a$YCPIRCR&J)L<2zYoAoUev=K-%j3$yo$^X{!FK+c(-1d&LgN2h7UBB+*rL8g0(VxZ~C1X$2cl=Xy7t}LjedeU1f(eya-6i{Neai}%lp%e0Hri5QR@l7S@Hh>`Gj?mI&Dhf>f$f@Q)gbJBhW1K$=Lb;>-Cq?tKI6cPCz& zcF_xSJDoXm&SdUL(mu9WG={r!dL5tN1rt~t2uC=NjP+b*mfx54kV! z-T4ZCekE7maQNR-%Sw*WXZ}O_BoM$iSFK#7GT3qzn!;S_MHRrrFp*+KI>uspa2*Y_ zL#@XTsCm=GcwXVlsVz}Pap}NbD>22Ai4-8)Gwp`oA#1}t+)i!N;T7{uY!^nl#_O{um%LQM>o%vo IQ*ICb0QBQq5C8xG literal 0 HcmV?d00001 diff --git a/BoldCom.res b/BoldCom.res new file mode 100644 index 0000000000000000000000000000000000000000..ea559daaef87a55a110e6e891d2cc71c5d2f0622 GIT binary patch literal 628 zcmZvaPfNo<5XE042kXhBM-QG$gd7wEsa7RW|4>7(Qfn=NG?7?8p5Mm1m!6Hkow&3K zE=+bd``(+kJ1a?tL|r#Q+8XP?@9%?Q!HCogJ!l=oq!T^riSL!hWQp!|$2#GAP432L z`28a}exu>%bK8}ipx^oXrIa55dMj1RRA_-(rd)HB3%#lY7#Su~jH^>3#)EToqFuNi zKZNtHnd!Wtm%%Np%mrDl7hN(honDJKfmgxY;E&Y@2ZW8IPscmp?dA*FN8*nTgr$G?P1RRjP4 literal 0 HcmV?d00001 diff --git a/Source/Common/IDE/BoldReg.RES b/Source/Common/IDE/BoldReg.RES new file mode 100644 index 0000000000000000000000000000000000000000..8e7ed242e70fd6da5af3cfb28211e2235e939623 GIT binary patch literal 492 zcmbu5v1-FG5QhK6B_b3WX(`E;v17KZZAeOo7Kf4t@N``begTj6meG%qJ&U2Q)cyKP zXHz=o@UQ#y%Xc~i0BcIsMEn=c1lZG2o#KQYa=deY!T}#Rl3xgUv zXH|8Zzp(z+Cx0FLtEOv(J|}plU4Zv8He`gX^vYiIm4T3IOMS%hdzTwy)Az9EwqIF?yN;fDp6fQ|e>CcITKZt_< z82e%z3f7+6w{!Mr0bovfA4L39?-M}jcz=R59G;MKe#VM?$LW#JinPWOrY_I*-V6!0D%$GO3ZFz%C)eu4;wp(sr)?`z#pbOPm(wRRQKVIM_SL0}1lTpaQVXb6 zt6*XX1`V13;Soqo#01g46cDXQ)Sy_Sf}kJ>rC5Hh-*@hwWw+2xNkDpb&%HBe=FFM- zX70IXS41Qm-RCnq$dL95xI%QFFG7lBhB%}|9+Mg=$Gt&{r4DqBluDJ%3e1}%=@!jQ z0Acs{VPXzvgHMSydlKjytx*JDX>2raxPnA)l(x1u290c$3v?YwGvsN!HhDfC2Xj{%A`_!FrrJV^?-AUDFlZp<;=eX^O_eUQ4 zrCp@fTavdart(zcyi1w$FK0nM?Lhnlw>>F0vSNOb$RqpXE4q@G_T+Eqoz>hscUezC zb$4psn=xq*Thbqm5_zyWrs3kamTS&k*I(Xu{f%|KHTCDR^52U~onpx-f!x?LectJ@ zYp*{3?!TT7`qngFt(<)(1M=Zhqa07e{?U`|lUrh@A4z)VLe6tnCf1+NEc+q>9^2C+ z5T%OG`A%7KZshm{_Q|is9muB6+`xI`6DINkdLVDeArh)uWMsV9Z1+iY^g|LKUoV-NABw|qjyaR; z?B66U?Iks4vrSZT@_LN=qzBTYtza4L>NPmtUlu&Ja^=NQS!!);9Z( z>vcIN+&X%Gu)Y6l?X&YZs#7K;}BElo}T$mY#GvUl$_HNU$0PiztwWYwxmYW|cdXJq5XE0U41P1$H@ zI4|3`_eyMRsf-a^HvOO;ZO~WZHhOfY zsv-JGJJiq2+$UU@{&6mKsmGWZ7j-D-8kEy+T%1GsNZa&_W1L6%@Zqnibs2w3ibwgS z?J*9@IfphzjM$>=a2@)Qm32rG6Q7dgWVc$6^Qlk0hzP6jnXp*WBr0l@SgqsK^T8Uh z+b1cEXp?zjO)*EbML%edwo+5qsGKl1ZI@W<^@$N@pRAD^+o)-&gE zzJ5l7Ygdoy=hlYS(QyD*L5!zPob3Mfcq{4SKYjjL`{^ILNPoAZ`SndZzW@5L$e~?Z zTbf>M-qi*A(>=RadsnS}y9>L>Cwq6VUbh1D5$J!sVezuX8}?J*c5wZI=NsSu=CHDF z>po05=zQ!w1(+B7o~purHXHAw66|Pv+wxtjTmQW+3xarbeP;L;wBFn9=$V0s1J(GF z4Q_+xU22c-gT4yJa49Q;;mze-UN-87wA<&2c|Lr&73O6)4b-TUfpSuYGTy#E!|)Lg z8vt1XJo^lv;pdkKd7t6umq5z}sh~=s;q&ttP&_iC?P z{q{|0i8uPq_-f?Md-y$tXI-9@YKAK2ZdNs8beeVL0fu3Cl(f%BISa^Y*0g&tylLO% z^%yQs82d(GeLu=xR{hO6u!PxDs(|;LFnFiI_24~xEBL#&hX?!ar`>=UF*!ZBdB}hk zFdhR8X)s{jsAbUNp`QE3xXTmJS6G^MKx&)-a)1WapALuJOjK$)eoxn6UAF%F!#&3i z(YW!u4L6sS5CIpEC`CX=+J&+tq@Y2H)sLMTCqw~#Fp5@oTpp8#Sy%(UicptOn%E6= zey9X)vr&6>>X)#BZ)o9%*SUx9bX7m7E5Ky0vf*(;P?dgP2C1lgPjQ??05bQ#<;i# z=~(!(&@l$lq4*$fKR%&&2C#J^xLe}Sm3VOLW61q43SFOL`G45m*#n(|vcSiQz0CY*-i*#E{{hdi9W(#{ literal 0 HcmV?d00001 diff --git a/Source/Common/Support/BoldCommonBitmaps.pas b/Source/Common/Support/BoldCommonBitmaps.pas index d5d67f14..66cb72c4 100644 --- a/Source/Common/Support/BoldCommonBitmaps.pas +++ b/Source/Common/Support/BoldCommonBitmaps.pas @@ -27,7 +27,7 @@ interface implementation -{.$R *.res} +{$R *.res} uses SysUtils; diff --git a/Source/Common/Support/BoldCommonBitmaps.rc b/Source/Common/Support/BoldCommonBitmaps.rc index 596effce..1bc57132 100644 --- a/Source/Common/Support/BoldCommonBitmaps.rc +++ b/Source/Common/Support/BoldCommonBitmaps.rc @@ -1,19 +1,19 @@ /* Grid bitmaps */ -BOLDGRID_CURRENT BITMAP LOADONCALL "BoldGrid Current.bmp" -BOLDGRID_SELECTED BITMAP LOADONCALL "BoldGrid Selected.bmp" -BOLDGRID_CONSTRAINT_TRUE BITMAP LOADONCALL "BoldGrid Constraint True.bmp" -BOLDGRID_CONSTRAINT_FALSE BITMAP LOADONCALL "BoldGrid Constraint False.bmp" +BOLDGRID_CURRENT BITMAP LOADONCALL "..\..\..\Images\BoldGrid Current.bmp" +BOLDGRID_SELECTED BITMAP LOADONCALL "..\..\..\Images\BoldGrid Selected.bmp" +BOLDGRID_CONSTRAINT_TRUE BITMAP LOADONCALL "..\..\..\Images\BoldGrid Constraint True.bmp" +BOLDGRID_CONSTRAINT_FALSE BITMAP LOADONCALL "..\..\..\Images\BoldGrid Constraint False.bmp" /* Navigator bitmaps */ -BOLDNAV_DELETE BITMAP LOADONCALL "BoldNavigator Delete.bmp" -BOLDNAV_FIRST BITMAP LOADONCALL "BoldNavigator First.bmp" -BOLDNAV_LAST BITMAP LOADONCALL "BoldNavigator Last.bmp" -BOLDNAV_INSERT BITMAP LOADONCALL "BoldNavigator Insert.bmp" -BOLDNAV_NEXT BITMAP LOADONCALL "BoldNavigator Next.bmp" -BOLDNAV_PRIOR BITMAP LOADONCALL "BoldNavigator Prior.bmp" -BOLDNAV_MOVEUP BITMAP LOADONCALL "BoldNavigator MoveUp.bmp" -BOLDNAV_MOVEDOWN BITMAP LOADONCALL "BoldNavigator MoveDown.bmp" +BOLDNAV_DELETE BITMAP LOADONCALL "..\..\..\Images\BoldNavigator Delete.bmp" +BOLDNAV_FIRST BITMAP LOADONCALL "..\..\..\Images\BoldNavigator First.bmp" +BOLDNAV_LAST BITMAP LOADONCALL "..\..\..\Images\BoldNavigator Last.bmp" +BOLDNAV_INSERT BITMAP LOADONCALL "..\..\..\Images\BoldNavigator Insert.bmp" +BOLDNAV_NEXT BITMAP LOADONCALL "..\..\..\Images\BoldNavigator Next.bmp" +BOLDNAV_PRIOR BITMAP LOADONCALL "..\..\..\Images\BoldNavigator Prior.bmp" +BOLDNAV_MOVEUP BITMAP LOADONCALL "..\..\..\Images\BoldNavigator MoveUp.bmp" +BOLDNAV_MOVEDOWN BITMAP LOADONCALL "..\..\..\Images\BoldNavigator MoveDown.bmp" /* Editbox bitmaps */ -BOLDEDIT_ELLIPSIS BITMAP LOADONCALL "BoldEdit Ellipsis.bmp" +BOLDEDIT_ELLIPSIS BITMAP LOADONCALL "..\..\..\Images\BoldEdit Ellipsis.bmp" diff --git a/Source/ObjectSpace/IDE/BoldExternalObjectSpaceEventHandlerReg.RES b/Source/ObjectSpace/IDE/BoldExternalObjectSpaceEventHandlerReg.RES new file mode 100644 index 0000000000000000000000000000000000000000..3311a7b06db6f4bab7278807cffb24dff21a78b3 GIT binary patch literal 528 zcmY+9u}*|Q5QhIV2E0%lSQzat6von5(1XO73tUcPED6QrN?SrhX=%r6Tz3TxkHj0S z|1faI4YTvjH@ia?0M-oWEQtTs_X0T3ICp_}JR`>z2~vErO0h?VCz_m{SJoTaH|*#( ztWtb1GP)O-`9afI3FBy1MoxBSmI7Z-}lVg(8p+U zmblyd97Gpex{T|t>rN;DPkhwGuh9o5bf}M_jexf9jv)d#D^jWjk8@7?<}VOY^02WIk5D8+{qaXHOROI$sne UT2@u%NvRyRZF{A__4g-{Ux_?|)&Kwi literal 0 HcmV?d00001 diff --git a/Source/ObjectSpace/IDE/BoldExternalObjectSpaceEventHandlerReg.pas b/Source/ObjectSpace/IDE/BoldExternalObjectSpaceEventHandlerReg.pas index 7d331053..5e3ba6cf 100644 --- a/Source/ObjectSpace/IDE/BoldExternalObjectSpaceEventHandlerReg.pas +++ b/Source/ObjectSpace/IDE/BoldExternalObjectSpaceEventHandlerReg.pas @@ -9,7 +9,7 @@ procedure Register; implementation -{.$R *.res} +{$R *.res} uses SysUtils, diff --git a/Source/ObjectSpace/IDE/BoldExternalObjectSpaceEventHandlerReg.rc b/Source/ObjectSpace/IDE/BoldExternalObjectSpaceEventHandlerReg.rc index a5f2439b..6134951b 100644 --- a/Source/ObjectSpace/IDE/BoldExternalObjectSpaceEventHandlerReg.rc +++ b/Source/ObjectSpace/IDE/BoldExternalObjectSpaceEventHandlerReg.rc @@ -1 +1 @@ -TBOLDEXTERNALOBJECTSPACEEVENTHANDLER BITMAP LOADONCALL TBoldExternalObjectSpaceEventHandler.bmp +TBOLDEXTERNALOBJECTSPACEEVENTHANDLER BITMAP LOADONCALL ..\..\..\Images\Components\TBoldExternalObjectSpaceEventHandler.bmp From 1bf5a3d394b798415db539f8482a37e368801bfe Mon Sep 17 00:00:00 2001 From: Ivan Date: Sun, 2 May 2021 15:13:21 -0300 Subject: [PATCH 2/3] File MSXML_TLB.pas renamed The Archive was in conflict with other components that used the same name. --- Bold.dpk | 2 +- Bold.dproj | 2 +- Bold.~dsk | 923 ++++++++++++++++++ .../{MSXML_TLB.pas => Bold_MSXML_TLB.pas} | 2 +- Source/Common/SOAP/BoldXMLRequests.pas | 3 +- Source/Common/Support/BoldXMLStreaming.pas | 2 +- Source/Handles/XML/BoldXMLProducers.pas | 2 +- .../Ocl/BoldOclLightWeightNodes.pas | 2 +- .../File/BoldPersistenceHandleFileXML.pas | 2 +- Source/ValueSpace/Condition/BoldCondition.pas | 2 +- Source/ValueSpace/Id/BoldId.pas | 2 +- .../XMLStreaming/BoldDefaultXMLStreaming.pas | 2 +- __history/Bold.dpk.~3~ | 348 +++++++ 13 files changed, 1282 insertions(+), 12 deletions(-) create mode 100644 Bold.~dsk rename Source/Common/MsXml/{MSXML_TLB.pas => Bold_MSXML_TLB.pas} (99%) create mode 100644 __history/Bold.dpk.~3~ diff --git a/Bold.dpk b/Bold.dpk index e1dd85a8..e8dc73be 100644 --- a/Bold.dpk +++ b/Bold.dpk @@ -145,7 +145,7 @@ contains BoldLogReceiverInterface in 'Source\Common\Logging\BoldLogReceiverInterface.pas', BoldSmallLogFrame in 'Source\Common\Logging\BoldSmallLogFrame.pas', BoldThreadSafeLog in 'Source\Common\Logging\BoldThreadSafeLog.pas', - MSXML_TLB in 'Source\Common\MsXml\MSXML_TLB.pas', + Bold_MSXML_TLB in 'Source\Common\MsXml\Bold_MSXML_TLB.pas', BoldAbstractDequeuer in 'Source\Common\Queue\BoldAbstractDequeuer.pas', BoldEventQueue in 'Source\Common\Queue\BoldEventQueue.pas', BoldQueue in 'Source\Common\Queue\BoldQueue.pas', diff --git a/Bold.dproj b/Bold.dproj index e154fb41..451b30a5 100644 --- a/Bold.dproj +++ b/Bold.dproj @@ -217,7 +217,7 @@ - + diff --git a/Bold.~dsk b/Bold.~dsk new file mode 100644 index 00000000..47778468 --- /dev/null +++ b/Bold.~dsk @@ -0,0 +1,923 @@ +[Closed Files] +File_0=TSourceModule,'D:\Developer\DELPHI\BoldForDelphi\Source\Handles\IDE\BoldHandleReg.pas',0,1,51,73,71,0,0,, +File_1=TSourceModule,'D:\Developer\DELPHI\BoldForDelphi\Source\Propagator\Common\BoldLockingSupportInterfaces_TLB.pas',0,1,28,77,40,0,0,, +File_2=TSourceModule,'D:\Developer\DELPHI\BoldForDelphi\Source\Common\Support\BoldControlsDefs.pas',0,1,1,7,12,0,0,, +File_3=TSourceModule,'D:\Developer\DELPHI\BoldForDelphi\Source\Common\UtilsGUI\BoldQueryUserDlg.pas',0,1,1,7,11,0,0,, +File_4=TSourceModule,'D:\Developer\DELPHI\BoldForDelphi\Source\MoldModel\UtilsGUI\BoldTypeNameEditor.pas',0,1,1,7,10,0,0,, +File_5=TSourceModule,'D:\Developer\DELPHI\BoldForDelphi\Source\Common\SOAP\BoldSOAP2_TLB.pas',0,1,29,37,38,0,0,, +File_6=TSourceModule,'D:\Developer\DELPHI\BoldForDelphi\Source\Common\SOAP\BoldSOAP_TLB.pas',0,1,29,37,38,0,0,, +File_7=TSourceModule,'D:\Developer\DELPHI\BoldForDelphi\Source\Common\Rose98\RationalRose98_TLB.pas',0,1,21,37,30,0,0,, +File_8=TSourceModule,'D:\Developer\DELPHI\BoldForDelphi\Source\Common\Rose2000\RationalRose2000_TLB.pas',0,1,22,37,31,0,0,, +File_9=TSourceModule,'D:\Developer\DELPHI\BoldForDelphi\Source\Common\MsXml\MSXML_TLB.pas',0,1,34,37,43,0,0,, + +[Modules] +Module0=D:\Developer\DELPHI\BoldForDelphi\Bold.dproj +Module1=D:\Developer\DELPHI\BoldForDelphi\Source\Common\IDE\BoldExpert.pas +Module2=D:\Developer\DELPHI\BoldForDelphi\Source\ObjectSpace\IDE\BoldExternalObjectSpaceEventHandlerReg.pas +Module3=D:\Developer\DELPHI\BoldForDelphi\Source\Common\Support\BoldCommonBitmaps.pas +Module4=D:\Developer\DELPHI\BoldForDelphi\Source\Common\IDE\BoldWebConnectionReg.pas +Module5=D:\Developer\DELPHI\BoldForDelphi\Source\Common\IDE\BoldReg.pas +Module6=default.htm +Count=7 +EditWindowCount=1 + +[D:\Developer\DELPHI\BoldForDelphi\Bold.dproj] +ModuleType=TBaseProject + +[D:\Developer\DELPHI\BoldForDelphi\Source\Common\IDE\BoldExpert.pas] +ModuleType=TSourceModule + +[D:\Developer\DELPHI\BoldForDelphi\Source\ObjectSpace\IDE\BoldExternalObjectSpaceEventHandlerReg.pas] +ModuleType=TSourceModule + +[D:\Developer\DELPHI\BoldForDelphi\Source\Common\Support\BoldCommonBitmaps.pas] +ModuleType=TSourceModule + +[D:\Developer\DELPHI\BoldForDelphi\Source\Common\IDE\BoldWebConnectionReg.pas] +ModuleType=TSourceModule + +[D:\Developer\DELPHI\BoldForDelphi\Source\Common\IDE\BoldReg.pas] +ModuleType=TSourceModule + +[default.htm] +ModuleType=TURLModule + +[EditWindow0] +ViewCount=7 +CurrentEditView=D:\Developer\DELPHI\BoldForDelphi\Bold.dpk +View0=0 +View1=1 +View2=2 +View3=3 +View4=4 +View5=5 +View6=6 +PercentageSizes=1 +Create=1 +Visible=1 +Docked=1 +State=0 +Left=0 +Top=0 +Width=9917 +Height=9052 +MaxLeft=-1 +MaxTop=-1 +ClientWidth=9917 +ClientHeight=9052 +DockedToMainForm=1 +BorlandEditorCodeExplorer=BorlandEditorCodeExplorer@EditWindow0 +TopPanelSize=0 +LeftPanelSize=2005 +LeftPanelClients=DockSite2 +LeftPanelData=00000800010100000000F10B00000000000001D50700000000000001000000003B15000009000000446F636B5369746532FFFFFFFF +RightPanelSize=2052 +RightPanelClients=DockSite1 +RightPanelData=00000800010100000000F10B00000000000001040800000000000001000000003B15000009000000446F636B5369746531FFFFFFFF +BottomPanelSize=3157 +BottomPanelClients=DockSite0,MessageView +BottomPanelData=0000080001020100000009000000446F636B5369746530DE4400000000000002550C0000000000000100000000DE4400000F0000004D65737361676556696577466F726DFFFFFFFF +BottomMiddlePanelSize=0 +BottomMiddlePanelClients=GraphDrawingModel +BottomMiddelPanelData=0000080001000100000010000000477261706844726177696E67566965771D2800000000000000B621000000000000FFFFFFFF + +[View0] +CustomEditViewType=TWelcomePageView +WelcomePageURL=bds:/default.htm + +[View1] +CustomEditViewType=TEditView +Module=D:\Developer\DELPHI\BoldForDelphi\Bold.dpk +CursorX=80 +CursorY=25 +TopLine=13 +LeftCol=1 +Elisions= +Bookmarks= +EditViewName=D:\Developer\DELPHI\BoldForDelphi\Bold.dpk + +[View2] +CustomEditViewType=TEditView +Module=D:\Developer\DELPHI\BoldForDelphi\Source\ObjectSpace\IDE\BoldExternalObjectSpaceEventHandlerReg.pas +CursorX=5 +CursorY=12 +TopLine=1 +LeftCol=1 +Elisions= +Bookmarks= +EditViewName=D:\Developer\DELPHI\BoldForDelphi\Source\ObjectSpace\IDE\BoldExternalObjectSpaceEventHandlerReg.pas + +[View3] +CustomEditViewType=TEditView +Module=D:\Developer\DELPHI\BoldForDelphi\Source\Common\IDE\BoldExpert.pas +CursorX=56 +CursorY=55 +TopLine=33 +LeftCol=1 +Elisions= +Bookmarks= +EditViewName=D:\Developer\DELPHI\BoldForDelphi\Source\Common\IDE\BoldExpert.pas + +[View4] +CustomEditViewType=TEditView +Module=D:\Developer\DELPHI\BoldForDelphi\Source\Common\IDE\BoldReg.pas +CursorX=2 +CursorY=19 +TopLine=1 +LeftCol=1 +Elisions= +Bookmarks= +EditViewName=D:\Developer\DELPHI\BoldForDelphi\Source\Common\IDE\BoldReg.pas + +[View5] +CustomEditViewType=TEditView +Module=D:\Developer\DELPHI\BoldForDelphi\Source\Common\IDE\BoldWebConnectionReg.pas +CursorX=2 +CursorY=12 +TopLine=1 +LeftCol=1 +Elisions= +Bookmarks= +EditViewName=D:\Developer\DELPHI\BoldForDelphi\Source\Common\IDE\BoldWebConnectionReg.pas + +[View6] +CustomEditViewType=TEditView +Module=D:\Developer\DELPHI\BoldForDelphi\Source\Common\Support\BoldCommonBitmaps.pas +CursorX=2 +CursorY=30 +TopLine=17 +LeftCol=1 +Elisions= +Bookmarks= +EditViewName=D:\Developer\DELPHI\BoldForDelphi\Source\Common\Support\BoldCommonBitmaps.pas + +[Watches] +Count=0 + +[WatchWindow] +WatchColumnWidth=120 +WatchShowColumnHeaders=1 +PercentageSizes=1 +Create=1 +Visible=1 +Docked=1 +State=0 +Left=0 +Top=0 +Width=3823 +Height=1151 +MaxLeft=-1 +MaxTop=-1 +ClientWidth=3823 +ClientHeight=1151 +TBDockHeight=213 +LRDockWidth=13604 +Dockable=1 +StayOnTop=0 + +[Breakpoints] +Count=0 + +[EmbarcaderoWin32Debugger_AddressBreakpoints] +Count=0 + +[EmbarcaderoWin64Debugger_AddressBreakpoints] +Count=0 + +[EmbarcaderoLinux64Debugger_AddressBreakpoints] +Count=0 + +[EmbarcaderoOSX32Debugger_AddressBreakpoints] +Count=0 + +[EmbarcaderoOSX64Debugger_AddressBreakpoints] +Count=0 + +[EmbarcaderoIOS64DeviceDebugger_AddressBreakpoints] +Count=0 + +[EmbarcaderoAndroid32Debugger_AddressBreakpoints] +Count=0 + +[EmbarcaderoAndroid64Debugger_AddressBreakpoints] +Count=0 + +[Main Window] +PercentageSizes=1 +Create=1 +Visible=1 +Docked=0 +State=2 +Left=11120 +Top=0 +Width=8922 +Height=8491 +MaxLeft=-5 +MaxTop=-10 +MaxWidth=8922 +MaxHeight=8491 +ClientWidth=10000 +ClientHeight=10135 +BottomPanelSize=8667 +BottomPanelClients=EditWindow0 +BottomPanelData=0000080000000000000000000000000000000000000000000000000100000000000000000C0000004564697457696E646F775F30FFFFFFFF + +[ProjectManager] +PercentageSizes=1 +Create=1 +Visible=1 +Docked=1 +State=0 +Left=0 +Top=0 +Width=2052 +Height=5135 +MaxLeft=-1 +MaxTop=-1 +ClientWidth=2052 +ClientHeight=5135 +TBDockHeight=5890 +LRDockWidth=2349 +Dockable=1 +StayOnTop=0 + +[MessageView] +PercentageSizes=1 +Create=1 +Visible=1 +Docked=1 +State=0 +Left=0 +Top=28 +Width=9917 +Height=3027 +MaxLeft=-1 +MaxTop=-1 +ClientWidth=9917 +ClientHeight=3027 +TBDockHeight=3027 +LRDockWidth=2771 +Dockable=1 +StayOnTop=0 + +[ConfigurationManager] +PercentageSizes=1 +Create=1 +Visible=0 +Docked=0 +State=0 +Left=3531 +Top=2930 +Width=2932 +Height=4091 +MaxLeft=-5 +MaxTop=-10 +ClientWidth=2849 +ClientHeight=3714 +TBDockHeight=4091 +LRDockWidth=2932 +Dockable=1 +StayOnTop=0 + +[TConfigMgrDlg] +Column0=120 +Column1=120 +Column2=120 +Column3=100 +Column4=140 + +[ToolForm] +PercentageSizes=1 +Create=1 +Visible=1 +Docked=1 +State=0 +Left=0 +Top=0 +Width=2052 +Height=6557 +MaxLeft=-1 +MaxTop=-1 +ClientWidth=2052 +ClientHeight=6557 +TBDockHeight=7137 +LRDockWidth=2000 +Dockable=1 +StayOnTop=0 + +[PropertyInspector] +PercentageSizes=1 +Create=1 +Visible=1 +Docked=1 +State=0 +Left=0 +Top=0 +Width=2005 +Height=5135 +MaxLeft=-1 +MaxTop=-1 +ClientWidth=2005 +ClientHeight=5135 +TBDockHeight=8985 +LRDockWidth=1682 +Dockable=1 +StayOnTop=0 +SplitPos=178 + +[frmDesignPreview] +PercentageSizes=1 +Create=1 +Visible=1 +Docked=1 +State=0 +Left=0 +Top=0 +Width=2005 +Height=6557 +MaxLeft=-1 +MaxTop=-1 +ClientWidth=2005 +ClientHeight=6557 +TBDockHeight=5948 +LRDockWidth=2510 +Dockable=1 +StayOnTop=0 + +[TemplateView] +PercentageSizes=1 +Create=1 +Visible=0 +Docked=1 +State=0 +Left=0 +Top=0 +Width=276 +Height=368 +MaxLeft=-1 +MaxTop=-1 +ClientWidth=276 +ClientHeight=368 +TBDockHeight=368 +LRDockWidth=276 +Dockable=1 +StayOnTop=0 +Name=120 +Description=334 +filter=1 + +[DebugLogView] +PercentageSizes=1 +Create=1 +Visible=1 +Docked=1 +State=0 +Left=0 +Top=0 +Width=3823 +Height=1151 +MaxLeft=-1 +MaxTop=-1 +ClientWidth=3823 +ClientHeight=1151 +TBDockHeight=416 +LRDockWidth=4953 +Dockable=1 +StayOnTop=0 + +[ThreadStatusWindow] +PercentageSizes=1 +Create=1 +Visible=1 +Docked=1 +State=0 +Left=0 +Top=0 +Width=3823 +Height=1151 +MaxLeft=-1 +MaxTop=-1 +ClientWidth=3823 +ClientHeight=1151 +TBDockHeight=213 +LRDockWidth=7406 +Dockable=1 +StayOnTop=0 +Column0Width=145 +Column1Width=100 +Column2Width=115 +Column3Width=374 +Column4Width=10 + +[LocalVarsWindow] +PercentageSizes=1 +Create=1 +Visible=1 +Docked=1 +State=0 +Left=0 +Top=0 +Width=3823 +Height=1151 +MaxLeft=-1 +MaxTop=-1 +ClientWidth=3823 +ClientHeight=1151 +TBDockHeight=1538 +LRDockWidth=3484 +Dockable=1 +StayOnTop=0 + +[CallStackWindow] +PercentageSizes=1 +Create=1 +Visible=1 +Docked=1 +State=0 +Left=0 +Top=0 +Width=3823 +Height=1151 +MaxLeft=-1 +MaxTop=-1 +ClientWidth=3823 +ClientHeight=1151 +TBDockHeight=2060 +LRDockWidth=3484 +Dockable=1 +StayOnTop=0 + +[FindReferencsForm] +PercentageSizes=1 +Create=1 +Visible=0 +Docked=0 +State=0 +Left=3135 +Top=4265 +Width=2339 +Height=1209 +MaxLeft=-5 +MaxTop=-10 +ClientWidth=2255 +ClientHeight=832 +TBDockHeight=2311 +LRDockWidth=2823 +Dockable=1 +StayOnTop=0 + +[RefactoringForm] +PercentageSizes=1 +Create=1 +Visible=0 +Docked=0 +State=0 +Left=3453 +Top=3501 +Width=2339 +Height=1209 +MaxLeft=-5 +MaxTop=-10 +ClientWidth=2255 +ClientHeight=832 +TBDockHeight=3201 +LRDockWidth=2823 +Dockable=1 +StayOnTop=0 + +[ToDo List] +PercentageSizes=1 +Create=1 +Visible=1 +Docked=1 +State=0 +Left=0 +Top=0 +Width=2005 +Height=6557 +MaxLeft=-1 +MaxTop=-1 +ClientWidth=2005 +ClientHeight=6557 +TBDockHeight=1151 +LRDockWidth=3677 +Dockable=1 +StayOnTop=0 +Column0Width=314 +Column1Width=30 +Column2Width=150 +Column3Width=172 +Column4Width=129 +SortOrder=4 +ShowHints=1 +ShowChecked=1 + +[DataExplorerContainer] +PercentageSizes=1 +Create=1 +Visible=1 +Docked=1 +State=0 +Left=0 +Top=0 +Width=2052 +Height=6557 +MaxLeft=-1 +MaxTop=-1 +ClientWidth=2052 +ClientHeight=6557 +TBDockHeight=4874 +LRDockWidth=7151 +Dockable=1 +StayOnTop=0 + +[GraphDrawingModel] +PercentageSizes=1 +Create=1 +Visible=0 +Docked=1 +State=0 +Left=0 +Top=0 +Width=2854 +Height=3201 +MaxLeft=-1 +MaxTop=-1 +ClientWidth=2854 +ClientHeight=3201 +TBDockHeight=3201 +LRDockWidth=2854 +Dockable=1 +StayOnTop=0 + +[ClassBrowserTool] +PercentageSizes=1 +Create=1 +Visible=0 +Docked=1 +State=0 +Left=-172 +Top=-399 +Width=1849 +Height=3133 +MaxLeft=-1 +MaxTop=-1 +ClientWidth=1849 +ClientHeight=3133 +TBDockHeight=3133 +LRDockWidth=1849 +Dockable=1 +StayOnTop=0 + +[MetricsView] +PercentageSizes=1 +Create=1 +Visible=0 +Docked=0 +State=0 +Left=3594 +Top=4178 +Width=2339 +Height=1209 +MaxLeft=-5 +MaxTop=-10 +ClientWidth=2255 +ClientHeight=832 +TBDockHeight=4826 +LRDockWidth=3562 +Dockable=1 +StayOnTop=0 + +[QAView] +PercentageSizes=1 +Create=1 +Visible=0 +Docked=0 +State=0 +Left=3812 +Top=3694 +Width=2339 +Height=1209 +MaxLeft=-5 +MaxTop=-10 +ClientWidth=2255 +ClientHeight=832 +TBDockHeight=4826 +LRDockWidth=3562 +Dockable=1 +StayOnTop=0 + +[BreakpointWindow] +PercentageSizes=1 +Create=1 +Visible=1 +Docked=1 +State=0 +Left=0 +Top=0 +Width=3823 +Height=1151 +MaxLeft=-1 +MaxTop=-1 +ClientWidth=3823 +ClientHeight=1151 +TBDockHeight=1547 +LRDockWidth=8740 +Dockable=1 +StayOnTop=0 +Column0Width=200 +Column1Width=75 +Column2Width=200 +Column3Width=200 +Column4Width=200 +Column5Width=75 +Column6Width=75 + +[StructureView] +PercentageSizes=1 +Create=1 +Visible=1 +Docked=1 +State=0 +Left=0 +Top=0 +Width=2052 +Height=6557 +MaxLeft=-1 +MaxTop=-1 +ClientWidth=2052 +ClientHeight=6557 +TBDockHeight=3675 +LRDockWidth=1896 +Dockable=1 +StayOnTop=0 + +[ParnassusBookmarksForm] +PercentageSizes=1 +Create=1 +Visible=0 +Docked=1 +State=0 +Left=-172 +Top=-399 +Width=2969 +Height=3153 +MaxLeft=-1 +MaxTop=-1 +ClientWidth=2969 +ClientHeight=3153 +TBDockHeight=3153 +LRDockWidth=2969 +Dockable=1 +StayOnTop=0 + +[MMXCodeExplorer] +PercentageSizes=1 +Create=1 +Visible=1 +Docked=1 +State=0 +Left=0 +Top=0 +Width=2052 +Height=6557 +MaxLeft=-1 +MaxTop=-1 +ClientWidth=2052 +ClientHeight=6557 +TBDockHeight=8288 +LRDockWidth=1464 +Dockable=1 +StayOnTop=0 +Layout=0 +Split=30 +ContentsClosed=0 + +[MMXSourceIndexerView] +PercentageSizes=1 +Create=1 +Visible=0 +Docked=0 +State=0 +Left=3250 +Top=2911 +Width=3495 +Height=4139 +MaxLeft=-5 +MaxTop=-10 +ClientWidth=3411 +ClientHeight=3762 +TBDockHeight=4139 +LRDockWidth=3495 +Dockable=1 +StayOnTop=0 + +[ParnassusThreadListForm] +PercentageSizes=1 +Create=1 +Visible=0 +Docked=0 +State=0 +Left=0 +Top=0 +Width=3797 +Height=3104 +MaxLeft=-5 +MaxTop=-10 +ClientWidth=3714 +ClientHeight=2727 +TBDockHeight=3104 +LRDockWidth=3797 +Dockable=1 +StayOnTop=0 + +[ParnassusProcessForm] +PercentageSizes=1 +Create=1 +Visible=0 +Docked=0 +State=0 +Left=0 +Top=0 +Width=3797 +Height=3104 +MaxLeft=-5 +MaxTop=-10 +ClientWidth=3714 +ClientHeight=2727 +TBDockHeight=3104 +LRDockWidth=3797 +Dockable=1 +StayOnTop=0 + +[fmGrepResults] +PercentageSizes=1 +Create=1 +Visible=0 +Docked=0 +State=0 +Left=0 +Top=0 +Width=2146 +Height=3636 +MaxLeft=-5 +MaxTop=-10 +ClientWidth=2062 +ClientHeight=3259 +TBDockHeight=3607 +LRDockWidth=2146 +Dockable=1 +StayOnTop=0 + +[fmMacroLibrary] +PercentageSizes=1 +Create=1 +Visible=0 +Docked=0 +State=0 +Left=0 +Top=0 +Width=1719 +Height=2485 +MaxLeft=-5 +MaxTop=-10 +ClientWidth=1635 +ClientHeight=2108 +TBDockHeight=2466 +LRDockWidth=1719 +Dockable=1 +StayOnTop=0 + +[TestInsightForm] +PercentageSizes=1 +Create=1 +Visible=0 +Docked=0 +State=0 +Left=0 +Top=0 +Width=2969 +Height=3172 +MaxLeft=-5 +MaxTop=-10 +ClientWidth=2885 +ClientHeight=2795 +TBDockHeight=3172 +LRDockWidth=2969 +Dockable=1 +StayOnTop=0 +TabIndex=0 + +[ModelViewTool] +PercentageSizes=1 +Create=1 +Visible=1 +Docked=1 +State=0 +Left=0 +Top=0 +Width=2005 +Height=6557 +MaxLeft=-1 +MaxTop=-1 +ClientWidth=2005 +ClientHeight=6557 +TBDockHeight=4874 +LRDockWidth=5307 +Dockable=1 +StayOnTop=0 + +[BorlandEditorCodeExplorer@EditWindow0] +PercentageSizes=1 +Create=1 +Visible=0 +Docked=0 +State=0 +Left=0 +Top=0 +Width=1823 +Height=6151 +MaxLeft=-5 +MaxTop=-10 +ClientWidth=1740 +ClientHeight=5774 +TBDockHeight=6151 +LRDockWidth=1823 +Dockable=1 +StayOnTop=0 + +[DockHosts] +DockHostCount=3 + +[DockSite0] +HostDockSite=DockBottomPanel +DockSiteType=1 +PercentageSizes=1 +Create=1 +Visible=0 +Docked=1 +State=0 +Left=8 +Top=8 +Width=3823 +Height=1422 +MaxLeft=-1 +MaxTop=-1 +ClientWidth=3823 +ClientHeight=1422 +TBDockHeight=1422 +LRDockWidth=3823 +Dockable=1 +StayOnTop=0 +TabPosition=1 +ActiveTabID=DebugLogView +TabDockClients=DebugLogView,BreakpointWindow,ThreadStatusWindow,CallStackWindow,WatchWindow,LocalVarsWindow + +[DockSite1] +HostDockSite=DockRightPanel +DockSiteType=1 +PercentageSizes=1 +Create=1 +Visible=1 +Docked=1 +State=0 +Left=0 +Top=28 +Width=2052 +Height=5406 +MaxLeft=-1 +MaxTop=-1 +ClientWidth=2052 +ClientHeight=5406 +TBDockHeight=8985 +LRDockWidth=2052 +Dockable=1 +StayOnTop=0 +TabPosition=0 +ActiveTabID=ProjectManager +TabDockClients=ProjectManager,ToolForm,StructureView,MMXCodeExplorer,DataExplorerContainer,TemplateView + +[DockSite2] +HostDockSite=DockLeftPanel +DockSiteType=1 +PercentageSizes=1 +Create=1 +Visible=1 +Docked=1 +State=0 +Left=0 +Top=28 +Width=2005 +Height=5406 +MaxLeft=-1 +MaxTop=-1 +ClientWidth=2005 +ClientHeight=5406 +TBDockHeight=3627 +LRDockWidth=2005 +Dockable=1 +StayOnTop=0 +TabPosition=0 +ActiveTabID=PropertyInspector +TabDockClients=PropertyInspector,frmDesignPreview,ModelViewTool,ToDo List,ParnassusBookmarksForm,ClassBrowserTool + diff --git a/Source/Common/MsXml/MSXML_TLB.pas b/Source/Common/MsXml/Bold_MSXML_TLB.pas similarity index 99% rename from Source/Common/MsXml/MSXML_TLB.pas rename to Source/Common/MsXml/Bold_MSXML_TLB.pas index 85b24820..dd4f223b 100644 --- a/Source/Common/MsXml/MSXML_TLB.pas +++ b/Source/Common/MsXml/Bold_MSXML_TLB.pas @@ -1,7 +1,7 @@ { Global compiler directives } {$include bold.inc} -unit MSXML_TLB; +unit Bold_MSXML_TLB; diff --git a/Source/Common/SOAP/BoldXMLRequests.pas b/Source/Common/SOAP/BoldXMLRequests.pas index 48bce4c9..a783b6cb 100644 --- a/Source/Common/SOAP/BoldXMLRequests.pas +++ b/Source/Common/SOAP/BoldXMLRequests.pas @@ -1,4 +1,3 @@ - { Global compiler directives } {$include bold.inc} unit BoldXMLRequests; @@ -6,7 +5,7 @@ interface uses - MSXML_TLB, + Bold_MSXML_TLB, Classes, BoldStringList, BoldDefs; diff --git a/Source/Common/Support/BoldXMLStreaming.pas b/Source/Common/Support/BoldXMLStreaming.pas index 3dad0d49..f73d7f5e 100644 --- a/Source/Common/Support/BoldXMLStreaming.pas +++ b/Source/Common/Support/BoldXMLStreaming.pas @@ -6,7 +6,7 @@ interface uses - {$IFDEF OXML}OXmlPDOM{$ELSE}MSXML_TLB{$ENDIF}, + {$IFDEF OXML}OXmlPDOM{$ELSE}Bold_MSXML_TLB{$ENDIF}, BoldDefs, BoldBase, BoldStreams, diff --git a/Source/Handles/XML/BoldXMLProducers.pas b/Source/Handles/XML/BoldXMLProducers.pas index 5b86e498..64b52a00 100644 --- a/Source/Handles/XML/BoldXMLProducers.pas +++ b/Source/Handles/XML/BoldXMLProducers.pas @@ -5,7 +5,7 @@ interface uses - MSXML_TLB, + Bold_MSXML_TLB, BoldStringList, BoldManipulators, BoldDefs, diff --git a/Source/ObjectSpace/Ocl/BoldOclLightWeightNodes.pas b/Source/ObjectSpace/Ocl/BoldOclLightWeightNodes.pas index 59508f0b..9e4c3cbb 100644 --- a/Source/ObjectSpace/Ocl/BoldOclLightWeightNodes.pas +++ b/Source/ObjectSpace/Ocl/BoldOclLightWeightNodes.pas @@ -283,7 +283,7 @@ implementation uses SysUtils, - {$IFDEF OXML}OXmlPDOM{$ELSE}MSXML_TLB{$ENDIF}, + {$IFDEF OXML}OXmlPDOM{$ELSE}Bold_MSXML_TLB{$ENDIF}, BoldXMLStreaming, BoldDefaultStreamNames, BoldDefs; diff --git a/Source/Persistence/File/BoldPersistenceHandleFileXML.pas b/Source/Persistence/File/BoldPersistenceHandleFileXML.pas index 96c5e912..b9d0cbfa 100644 --- a/Source/Persistence/File/BoldPersistenceHandleFileXML.pas +++ b/Source/Persistence/File/BoldPersistenceHandleFileXML.pas @@ -37,7 +37,7 @@ implementation classes, SysUtils, BoldDefs, - {$IFDEF OXML}OXmlPDOM, OTextReadWrite{$ELSE}MSXML_TLB{$ENDIF}, + {$IFDEF OXML}OXmlPDOM, OTextReadWrite{$ELSE}Bold_MSXML_TLB{$ENDIF}, BoldId, BoldXMLStreaming, BoldDefaultXMLStreaming, diff --git a/Source/ValueSpace/Condition/BoldCondition.pas b/Source/ValueSpace/Condition/BoldCondition.pas index a5e6db16..e30f0c5c 100644 --- a/Source/ValueSpace/Condition/BoldCondition.pas +++ b/Source/ValueSpace/Condition/BoldCondition.pas @@ -119,7 +119,7 @@ implementation uses classes, - {$IFDEF OXML}OXmlPDOM{$ELSE}MSXML_TLB{$ENDIF}, + {$IFDEF OXML}OXmlPDOM{$ELSE}Bold_MSXML_TLB{$ENDIF}, BoldDefaultStreamNames; const diff --git a/Source/ValueSpace/Id/BoldId.pas b/Source/ValueSpace/Id/BoldId.pas index ca42c70c..fc5a8205 100644 --- a/Source/ValueSpace/Id/BoldId.pas +++ b/Source/ValueSpace/Id/BoldId.pas @@ -237,7 +237,7 @@ TBoldXMLObjectIdStreamer = class(TBoldXMLObjectStreamer) implementation uses - {$IFDEF OXML}OXmlPDOM{$ELSE}MSXML_TLB{$ENDIF}, + {$IFDEF OXML}OXmlPDOM{$ELSE}Bold_MSXML_TLB{$ENDIF}, SysUtils, {$IFNDEF BOLD_UNICODE} StringBuilder, diff --git a/Source/ValueSpace/XMLStreaming/BoldDefaultXMLStreaming.pas b/Source/ValueSpace/XMLStreaming/BoldDefaultXMLStreaming.pas index 91a7d2ba..e81b8970 100644 --- a/Source/ValueSpace/XMLStreaming/BoldDefaultXMLStreaming.pas +++ b/Source/ValueSpace/XMLStreaming/BoldDefaultXMLStreaming.pas @@ -265,7 +265,7 @@ implementation uses BoldHashIndexes, - {$IFDEF OXML}OXmlPDOM{$ELSE}MSXML_TLB{$ENDIF}, + {$IFDEF OXML}OXmlPDOM{$ELSE}Bold_MSXML_TLB{$ENDIF}, SysUtils, BoldDefaultStreamNames; diff --git a/__history/Bold.dpk.~3~ b/__history/Bold.dpk.~3~ new file mode 100644 index 00000000..e1dd85a8 --- /dev/null +++ b/__history/Bold.dpk.~3~ @@ -0,0 +1,348 @@ +package Bold; + +{$R *.res} +{$IFDEF IMPLICITBUILDING This IFDEF should not be used by users} +{$ALIGN 8} +{$ASSERTIONS ON} +{$BOOLEVAL OFF} +{$DEBUGINFO ON} +{$EXTENDEDSYNTAX ON} +{$IMPORTEDDATA ON} +{$IOCHECKS ON} +{$LOCALSYMBOLS ON} +{$LONGSTRINGS ON} +{$OPENSTRINGS ON} +{$OPTIMIZATION OFF} +{$OVERFLOWCHECKS ON} +{$RANGECHECKS ON} +{$REFERENCEINFO ON} +{$SAFEDIVIDE OFF} +{$STACKFRAMES ON} +{$TYPEDADDRESS OFF} +{$VARSTRINGCHECKS ON} +{$WRITEABLECONST ON} +{$MINENUMSIZE 1} +{$IMAGEBASE $400000} +{$DEFINE BOLD_DELPHI} +{$DEFINE DEBUG} +{$ENDIF IMPLICITBUILDING} +{$DESCRIPTION 'Bold 4.0 for Delphi'} +{$LIBSUFFIX '90'} +{$DESIGNONLY} +{$IMPLICITBUILD ON} + +requires + vcl, + vcldb, + VclX, + DesignIDE; + +contains + BoldSystem in 'Source\ObjectSpace\BORepresentation\BoldSystem.pas', + BoldAttributes in 'Source\ObjectSpace\BORepresentation\BoldAttributes.pas', + BoldDerivedValueSet in 'Source\ObjectSpace\BORepresentation\BoldDerivedValueSet.pas', + BoldDomainElement in 'Source\ObjectSpace\BORepresentation\BoldDomainElement.pas', + BoldElementList in 'Source\ObjectSpace\BORepresentation\BoldElementList.pas', + BoldExternalObjectSpaceEventHandler in 'Source\ObjectSpace\BORepresentation\BoldExternalObjectSpaceEventHandler.pas', + BoldLinks in 'Source\ObjectSpace\BORepresentation\BoldLinks.pas', + BoldMLAttributes in 'Source\ObjectSpace\BORepresentation\BoldMLAttributes.pas', + BoldObjectListControllers in 'Source\ObjectSpace\BORepresentation\BoldObjectListControllers.pas', + BoldObjectSpaceLists in 'Source\ObjectSpace\BORepresentation\BoldObjectSpaceLists.pas', + BoldOptimisticLockingSupport in 'Source\ObjectSpace\BORepresentation\BoldOptimisticLockingSupport.pas', + BoldSystemOldValuehandler in 'Source\ObjectSpace\BORepresentation\BoldSystemOldValuehandler.pas', + BoldSystemPersistenceHandler in 'Source\ObjectSpace\BORepresentation\BoldSystemPersistenceHandler.pas', + BoldTypeList in 'Source\ObjectSpace\BORepresentation\BoldTypeList.pas', + BoldCoreConsts in 'Source\ObjectSpace\Core\BoldCoreConsts.pas', + BoldElements in 'Source\ObjectSpace\Core\BoldElements.pas', + BoldMetaElementList in 'Source\ObjectSpace\Core\BoldMetaElementList.pas', + BoldComponentValidatorIDE in 'Source\ObjectSpace\IDE\BoldComponentValidatorIDE.pas', + BoldExternalObjectSpaceEventHandlerReg in 'Source\ObjectSpace\IDE\BoldExternalObjectSpaceEventHandlerReg.pas', + BoldWSimpleMenuWizard in 'Source\ObjectSpace\IDE\BoldWSimpleMenuWizard.pas', + BoldAttributeWizard in 'Source\ObjectSpace\IDE\AttributeWizard\BoldAttributeWizard.pas', + BoldOTACodeGen in 'Source\ObjectSpace\IDE\AttributeWizard\BoldOTACodeGen.pas', + BoldWAClassInfo in 'Source\ObjectSpace\IDE\AttributeWizard\BoldWAClassInfo.pas', + BoldWACustomAttr in 'Source\ObjectSpace\IDE\AttributeWizard\BoldWACustomAttr.pas', + BoldWACustomAttrForm1 in 'Source\ObjectSpace\IDE\AttributeWizard\BoldWACustomAttrForm1.pas', + BoldWAdatamodule in 'Source\ObjectSpace\IDE\AttributeWizard\BoldWAdatamodule.pas', + BoldWAdmTemplates in 'Source\ObjectSpace\IDE\AttributeWizard\BoldWAdmTemplates.pas', + BoldWAInputFormUnit in 'Source\ObjectSpace\IDE\AttributeWizard\BoldWAInputFormUnit.pas', + BoldWAInterfaces in 'Source\ObjectSpace\IDE\AttributeWizard\BoldWAInterfaces.pas', + BoldWAMainForm in 'Source\ObjectSpace\IDE\AttributeWizard\BoldWAMainForm.pas', + BoldWAMethodInfo in 'Source\ObjectSpace\IDE\AttributeWizard\BoldWAMethodInfo.pas', + BoldWAStringGridManager in 'Source\ObjectSpace\IDE\AttributeWizard\BoldWAStringGridManager.pas', + BoldWASubClassForm1 in 'Source\ObjectSpace\IDE\AttributeWizard\BoldWASubClassForm1.pas', + BoldWAValueSetDlg in 'Source\ObjectSpace\IDE\AttributeWizard\BoldWAValueSetDlg.pas', + BoldWAValueSetForm1 in 'Source\ObjectSpace\IDE\AttributeWizard\BoldWAValueSetForm1.pas', + BoldVclUtils in 'Source\ObjectSpace\IDE\AttributeWizard\BoldVclUtils.pas', + BoldWCodeInformer in 'Source\ObjectSpace\IDE\AttributeWizard\BoldWCodeInformer.pas', + BoldWProjectWizard in 'Source\ObjectSpace\IDE\AttributeWizard\BoldWProjectWizard.pas', + BoldWScanner in 'Source\ObjectSpace\IDE\AttributeWizard\BoldWScanner.pas', + BoldUndoInterfaces in 'Source\ObjectSpace\Interfaces\BoldUndoInterfaces.pas', + BoldOcl in 'Source\ObjectSpace\Ocl\BoldOcl.pas', + BoldOclClasses in 'Source\ObjectSpace\Ocl\BoldOclClasses.pas', + BoldOclError in 'Source\ObjectSpace\Ocl\BoldOclError.pas', + BoldOclEvaluator in 'Source\ObjectSpace\Ocl\BoldOclEvaluator.pas', + BoldOclLightWeightNodeMaker in 'Source\ObjectSpace\Ocl\BoldOclLightWeightNodeMaker.pas', + BoldOclLightWeightNodes in 'Source\ObjectSpace\Ocl\BoldOclLightWeightNodes.pas', + BoldOclRTDebug in 'Source\ObjectSpace\Ocl\BoldOclRTDebug.pas', + BoldOclSemantics in 'Source\ObjectSpace\Ocl\BoldOclSemantics.pas', + BoldOclSymbolImplementations in 'Source\ObjectSpace\Ocl\BoldOclSymbolImplementations.pas', + BoldORed in 'Source\ObjectSpace\Ocl\BoldORed.pas', + BoldSSExcept in 'Source\ObjectSpace\Ocl\BoldSSExcept.pas', + BoldSSLexU in 'Source\ObjectSpace\Ocl\BoldSSLexU.pas', + BoldSSYaccU in 'Source\ObjectSpace\Ocl\BoldSSYaccU.pas', + BoldLockHandler in 'Source\ObjectSpace\PessimisticLocking\BoldLockHandler.pas', + BoldLockHolder in 'Source\ObjectSpace\PessimisticLocking\BoldLockHolder.pas', + BoldLockRegions in 'Source\ObjectSpace\PessimisticLocking\BoldLockRegions.pas', + BoldRegionDefinitionParser in 'Source\ObjectSpace\PessimisticLocking\BoldRegionDefinitionParser.pas', + BoldRegionDefinitions in 'Source\ObjectSpace\PessimisticLocking\BoldRegionDefinitions.pas', + BoldGeneratedCodeDictionary in 'Source\ObjectSpace\RTModel\BoldGeneratedCodeDictionary.pas', + BoldMemberTypeDictionary in 'Source\ObjectSpace\RTModel\BoldMemberTypeDictionary.pas', + BoldSystemRT in 'Source\ObjectSpace\RTModel\BoldSystemRT.pas', + BoldUndoHandler in 'Source\ObjectSpace\Undo\BoldUndoHandler.pas', + BoldUnloader in 'Source\ObjectSpace\Unloader\BoldUnloader.pas', + BoldComponentValidator in 'Source\ObjectSpace\UtilsGUI\BoldComponentValidator.pas', + BoldOCLGraphicRTDebug in 'Source\ObjectSpace\UtilsGUI\BoldOCLGraphicRTDebug.pas', + BoldOclPropEditor in 'Source\ObjectSpace\UtilsGUI\BoldOclPropEditor.pas', + BoldTypeNameSelector in 'Source\ObjectSpace\UtilsGUI\BoldTypeNameSelector.pas', + BoldClient in 'Source\Common\Connection\BoldClient.pas', + BoldServer in 'Source\Common\Connection\BoldServer.pas', + BoldClientHandles in 'Source\Common\ConnectionHandles\BoldClientHandles.pas', + BoldServerHandles in 'Source\Common\ConnectionHandles\BoldServerHandles.pas', + BoldAggeregates in 'Source\Common\Core\BoldAggeregates.pas', + BoldBase in 'Source\Common\Core\BoldBase.pas', + BoldCommonConst in 'Source\Common\Core\BoldCommonConst.pas', + BoldContainers in 'Source\Common\Core\BoldContainers.pas', + BoldDefs in 'Source\Common\Core\BoldDefs.pas', + BoldStreams in 'Source\Common\Core\BoldStreams.pas', + BoldThreadSafeQueue in 'Source\Common\Core\BoldThreadSafeQueue.pas', + BoldEnvironment in 'Source\Common\Environment\BoldEnvironment.pas', + BoldEnvironmentIDE in 'Source\Common\Environment\BoldEnvironmentIDE.pas', + BoldEnvironmentVCL in 'Source\Common\Environment\BoldEnvironmentVCL.pas', + BoldHandle in 'Source\Common\Handles\BoldHandle.pas', + BoldDataBlock in 'Source\Common\HTTP\BoldDataBlock.pas', + BoldWebConnection in 'Source\Common\HTTP\BoldWebConnection.pas', + BoldAbstractPropertyEditors in 'Source\Common\IDE\BoldAbstractPropertyEditors.pas', + BoldDefsDT in 'Source\Common\IDE\BoldDefsDT.pas', + BoldExpert in 'Source\Common\IDE\BoldExpert.pas', + BoldExpertMenus in 'Source\Common\IDE\BoldExpertMenus.pas', + BoldGettingStartedExpert in 'Source\Common\IDE\BoldGettingStartedExpert.pas', + BoldGettingStartedForm in 'Source\Common\IDE\BoldGettingStartedForm.pas', + BoldIDEConsts in 'Source\Common\IDE\BoldIDEConsts.pas', + BoldIDEMenus in 'Source\Common\IDE\BoldIDEMenus.pas', + BoldIDESupport in 'Source\Common\IDE\BoldIDESupport.pas', + BoldModelAwareComponentEditor in 'Source\Common\IDE\BoldModelAwareComponentEditor.pas', + BoldOTAFileHandler in 'Source\Common\IDE\BoldOTAFileHandler.pas', + BoldOTASupport in 'Source\Common\IDE\BoldOTASupport.pas', + BoldPropertyEditors in 'Source\Common\IDE\BoldPropertyEditors.pas', + BoldReg in 'Source\Common\IDE\BoldReg.pas', + BoldTextStream in 'Source\Common\IDE\BoldTextStream.pas', + BoldWebConnectionReg in 'Source\Common\IDE\BoldWebConnectionReg.pas', + BoldLogForm in 'Source\Common\Logging\BoldLogForm.pas', + BoldLogHandler in 'Source\Common\Logging\BoldLogHandler.pas', + BoldLogHandlerForm in 'Source\Common\Logging\BoldLogHandlerForm.pas', + BoldLogHandlerSimple in 'Source\Common\Logging\BoldLogHandlerSimple.pas', + BoldLogReceiverInterface in 'Source\Common\Logging\BoldLogReceiverInterface.pas', + BoldSmallLogFrame in 'Source\Common\Logging\BoldSmallLogFrame.pas', + BoldThreadSafeLog in 'Source\Common\Logging\BoldThreadSafeLog.pas', + MSXML_TLB in 'Source\Common\MsXml\MSXML_TLB.pas', + BoldAbstractDequeuer in 'Source\Common\Queue\BoldAbstractDequeuer.pas', + BoldEventQueue in 'Source\Common\Queue\BoldEventQueue.pas', + BoldQueue in 'Source\Common\Queue\BoldQueue.pas', + BoldRose2000Support in 'Source\Common\Rose2000\BoldRose2000Support.pas', + RationalRose2000_TLB in 'Source\Common\Rose2000\RationalRose2000_TLB.pas', + BoldRose98Support in 'Source\Common\Rose98\BoldRose98Support.pas', + RationalRose98_TLB in 'Source\Common\Rose98\RationalRose98_TLB.pas', + BoldSOAP_TLB in 'Source\Common\SOAP\BoldSOAP_TLB.pas', + BoldSOAP2_TLB in 'Source\Common\SOAP\BoldSOAP2_TLB.pas', + BoldXMLRequests in 'Source\Common\SOAP\BoldXMLRequests.pas', + BoldDeriver in 'Source\Common\Subscription\BoldDeriver.pas', + BoldSubscribableCollection in 'Source\Common\Subscription\BoldSubscribableCollection.pas', + BoldSubscription in 'Source\Common\Subscription\BoldSubscription.pas', + BoldBase64 in 'Source\Common\Support\BoldBase64.pas', + BoldCollections in 'Source\Common\Support\BoldCollections.pas', + BoldIndexCollection in 'Source\Common\Support\BoldIndexCollection.pas', + BoldCommonBitmaps in 'Source\Common\Support\BoldCommonBitmaps.pas', + BoldControlPackDefs in 'Source\Common\Support\BoldControlPackDefs.pas', + BoldControlsDefs in 'Source\Common\Support\BoldControlsDefs.pas', + BoldDirectoryTraverser in 'Source\Common\Support\BoldDirectoryTraverser.pas', + BoldExternalizedReferences in 'Source\Common\Support\BoldExternalizedReferences.pas', + BoldFileHandler in 'Source\Common\Support\BoldFileHandler.pas', + BoldGuard in 'Source\Common\Support\BoldGuard.pas', + BoldGUIDUtils in 'Source\Common\Support\BoldGUIDUtils.pas', + BoldHashIndexes in 'Source\Common\Support\BoldHashIndexes.pas', + BoldIndex in 'Source\Common\Support\BoldIndex.pas', + BoldIndexableList in 'Source\Common\Support\BoldIndexableList.pas', + BoldIsoDateTime in 'Source\Common\Support\BoldIsoDateTime.pas', + BoldLoggableCriticalSection in 'Source\Common\Support\BoldLoggableCriticalSection.pas', + BoldMath in 'Source\Common\Support\BoldMath.pas', + BoldMemoryManager in 'Source\Common\Support\BoldMemoryManager.pas', + BoldNamedValueList in 'Source\Common\Support\BoldNamedValueList.pas', + BoldNavigatorDefs in 'Source\Common\Support\BoldNavigatorDefs.pas', + BoldPerformanceCounter in 'Source\Common\Support\BoldPerformanceCounter.pas', + BoldPriorityQueue in 'Source\Common\Support\BoldPriorityQueue.pas', + BoldRegistry in 'Source\Common\Support\BoldRegistry.pas', + BoldRev in 'Source\Common\Support\BoldRev.pas', + BoldSharedStrings in 'Source\Common\Support\BoldSharedStrings.pas', + BoldSorter in 'Source\Common\Support\BoldSorter.pas', + BoldStringList in 'Source\Common\Support\BoldStringList.pas', + BoldSupportConst in 'Source\Common\Support\BoldSupportConst.pas', + BoldTemplateExpander in 'Source\Common\Support\BoldTemplateExpander.pas', + BoldUtils in 'Source\Common\Support\BoldUtils.pas', + BoldXMLStreaming in 'Source\Common\Support\BoldXMLStreaming.pas', + BoldThread in 'Source\Common\SupportWin\BoldThread.pas', + BoldWinINet in 'Source\Common\SupportWin\BoldWinINet.pas', + BoldWinUtils in 'Source\Common\SupportWin\BoldWinUtils.pas', + BoldDefaultTaggedValues in 'Source\Common\TaggedValues\BoldDefaultTaggedValues.pas', + BoldTaggedValueList in 'Source\Common\TaggedValues\BoldTaggedValueList.pas', + BoldTaggedValueSupport in 'Source\Common\TaggedValues\BoldTaggedValueSupport.pas', + BoldUMLTaggedValues in 'Source\Common\TaggedValues\BoldUMLTaggedValues.pas', + BoldTemplate in 'Source\Common\Template\BoldTemplate.pas', + BoldUMLDelphiSupport in 'Source\Common\UML\BoldUMLDelphiSupport.pas', + BoldUMLTypes in 'Source\Common\UML\BoldUMLTypes.pas', + BoldCursorGuard in 'Source\Common\UtilsGUI\BoldCursorGuard.pas', + BoldQueryUserDlg in 'Source\Common\UtilsGUI\BoldQueryUserDlg.pas', + BoldAbstractLockManagerAdminHandle in 'Source\ConcurrencyControl\Common\BoldAbstractLockManagerAdminHandle.pas', + BoldAbstractLockManagerHandle in 'Source\ConcurrencyControl\Common\BoldAbstractLockManagerHandle.pas', + BoldLockingDefs in 'Source\ConcurrencyControl\Common\BoldLockingDefs.pas', + BoldFreeStandingValueFactories in 'Source\FreestandingValueSpace\Core\BoldFreeStandingValueFactories.pas', + BoldFreeStandingValues in 'Source\FreestandingValueSpace\Core\BoldFreeStandingValues.pas', + FreeStandingValuesConst in 'Source\FreestandingValueSpace\Core\FreeStandingValuesConst.pas', + BoldActionDefs in 'Source\Handles\Actions\BoldActionDefs.pas', + BoldActions in 'Source\Handles\Actions\BoldActions.pas', + BoldHandleAction in 'Source\Handles\Actions\BoldHandleAction.pas', + BoldListActions in 'Source\Handles\Actions\BoldListActions.pas', + BoldUndoActions in 'Source\Handles\Actions\BoldUndoActions.pas', + BoldAbstractListHandle in 'Source\Handles\Core\BoldAbstractListHandle.pas', + BoldCursorHandle in 'Source\Handles\Core\BoldCursorHandle.pas', + BoldDerivedHandle in 'Source\Handles\Core\BoldDerivedHandle.pas', + BoldExpressionHandle in 'Source\Handles\Core\BoldExpressionHandle.pas', + BoldFilteredHandle in 'Source\Handles\Core\BoldFilteredHandle.pas', + BoldHandles in 'Source\Handles\Core\BoldHandles.pas', + BoldListHandle in 'Source\Handles\Core\BoldListHandle.pas', + BoldOclRepository in 'Source\Handles\Core\BoldOclRepository.pas', + BoldOclVariables in 'Source\Handles\Core\BoldOclVariables.pas', + BoldOSSMessage in 'Source\ObjectSpace\BORepresentation\BoldOSSMessage.pas', + BoldPlaceableSubscriber in 'Source\Handles\Core\BoldPlaceableSubscriber.pas', + BoldReferenceHandle in 'Source\Handles\Core\BoldReferenceHandle.pas', + BoldRootedHandles in 'Source\Handles\Core\BoldRootedHandles.pas', + BoldSortedHandle in 'Source\Handles\Core\BoldSortedHandle.pas', + BoldSQLHandle in 'Source\Handles\Core\BoldSQLHandle.pas', + BoldRawSQLHandle in 'Source\Handles\Core\BoldRawSQLHandle.pas', + BoldSystemHandle in 'Source\Handles\Core\BoldSystemHandle.pas', + BoldVariableDefinition in 'Source\Handles\Core\BoldVariableDefinition.pas', + BoldVariableHandle in 'Source\Handles\Core\BoldVariableHandle.pas', + HandlesConst in 'Source\Handles\Core\HandlesConst.pas', + BoldHandlePropEditor in 'Source\Handles\IDE\BoldHandlePropEditor.pas', + BoldHandleReg in 'Source\Handles\IDE\BoldHandleReg.pas', + BoldLockingReg in 'Source\Handles\IDE\BoldLockingReg.pas', + BoldManipulatorReg in 'Source\Handles\IDE\BoldManipulatorReg.pas', + BoldXMLReg in 'Source\Handles\IDE\BoldXMLReg.pas', + BoldManipulators in 'Source\Handles\Manipulators\BoldManipulators.pas', + BoldLockingHandles in 'Source\Handles\PessimisticLocking\BoldLockingHandles.pas', + BoldUnloaderHandle in 'Source\Handles\UnLoader\BoldUnloaderHandle.pas', + BoldXMLProducers in 'Source\Handles\XML\BoldXMLProducers.pas', + BoldBld in 'Source\MoldModel\Bld\BoldBld.pas', + BoldGen in 'Source\MoldModel\CodeGenerator\BoldGen.pas', + BoldGeneratorTemplates in 'Source\MoldModel\CodeGenerator\BoldGeneratorTemplates.pas', + BoldGeneratorTemplatesCPP in 'Source\MoldModel\CodeGenerator\BoldGeneratorTemplatesCPP.pas', + BoldGeneratorTemplatesDelphi in 'Source\MoldModel\CodeGenerator\BoldGeneratorTemplatesDelphi.pas', + BoldMeta in 'Source\MoldModel\Core\BoldMeta.pas', + BoldMetaSupport in 'Source\MoldModel\Core\BoldMetaSupport.pas', + BoldMoldConsts in 'Source\MoldModel\Core\BoldMoldConsts.pas', + BoldNameExpander in 'Source\MoldModel\Core\BoldNameExpander.pas', + BoldAbstractModel in 'Source\MoldModel\Handles\BoldAbstractModel.pas', + BoldTypeNameHandle in 'Source\MoldModel\Handles\BoldTypeNameHandle.pas', + BoldModelReg in 'Source\MoldModel\IDE\BoldModelReg.pas', + BoldTypeNameHandleReg in 'Source\MoldModel\IDE\BoldTypeNameHandleReg.pas', + BoldTypeNameDictionary in 'Source\MoldModel\TypeNameDictionary\BoldTypeNameDictionary.pas', + BoldTypeNameEditor in 'Source\MoldModel\UtilsGUI\BoldTypeNameEditor.pas', + BoldAbstractSnooper in 'Source\Persistence\Core\BoldAbstractSnooper.pas', + BoldPersistenceController in 'Source\Persistence\Core\BoldPersistenceController.pas', + BoldPersistenceHandle in 'Source\Persistence\Core\BoldPersistenceHandle.pas', + BoldPersistenceHandlePassthrough in 'Source\Persistence\Core\BoldPersistenceHandlePassthrough.pas', + BoldPersistenceHandlePTWithModel in 'Source\Persistence\Core\BoldPersistenceHandlePTWithModel.pas', + BoldPersistenceNotifier in 'Source\Persistence\Core\BoldPersistenceNotifier.pas', + BoldUpdatePrecondition in 'Source\Persistence\Core\BoldUpdatePrecondition.pas', + PersistenceConsts in 'Source\Persistence\Core\PersistenceConsts.pas', + BoldAbstractDatabaseAdapter in 'Source\Persistence\DB\BoldAbstractDatabaseAdapter.pas', + BoldAbstractPersistenceHandleDB in 'Source\Persistence\DB\BoldAbstractPersistenceHandleDB.pas', + BoldDBActions in 'Source\Persistence\DB\BoldDBActions.pas', + BoldDBInterfaces in 'Source\Persistence\DB\BoldDBInterfaces.pas', + BoldPersistenceControllerDefault in 'Source\Persistence\DB\BoldPersistenceControllerDefault.pas', + BoldPersistenceHandleDB_deprecated in 'Source\Persistence\DB\BoldPersistenceHandleDB_deprecated.pas', + BoldPersistenceHandleDB in 'Source\Persistence\DB\BoldPersistenceHandleDB.pas', + BoldPersistenceHandleDBreg in 'Source\Persistence\DB\BoldPersistenceHandleDBreg.pas', + BoldPersistenceHandleFile in 'Source\Persistence\File\BoldPersistenceHandleFile.pas', + BoldPersistenceHandleFileXML in 'Source\Persistence\File\BoldPersistenceHandleFileXML.pas', + BoldHandlesPropagationReg in 'Source\Persistence\IDE\BoldHandlesPropagationReg.pas', + BoldObjectUpgraderHandleReg in 'Source\Persistence\IDE\BoldObjectUpgraderHandleReg.pas', + BoldPersistenceHandleFileReg in 'Source\Persistence\IDE\BoldPersistenceHandleFileReg.pas', + BoldPersistenceHandleReg in 'Source\Persistence\IDE\BoldPersistenceHandleReg.pas', + BoldPersistenceHandleSystemReg in 'Source\Persistence\IDE\BoldPersistenceHandleSystemReg.pas', + BoldPersistenceNotifierReg in 'Source\Persistence\IDE\BoldPersistenceNotifierReg.pas', + BoldAbstractObjectUpgraderHandle in 'Source\Persistence\ObjectUpgrading\BoldAbstractObjectUpgraderHandle.pas', + BoldBatchUpgrader in 'Source\Persistence\ObjectUpgrading\BoldBatchUpgrader.pas', + BoldObjectUpgrader in 'Source\Persistence\ObjectUpgrading\BoldObjectUpgrader.pas', + BoldObjectUpgraderHandle in 'Source\Persistence\ObjectUpgrading\BoldObjectUpgraderHandle.pas', + BoldIDAdder in 'Source\Persistence\Propagation\BoldIDAdder.pas', + BoldIDAdderHandle in 'Source\Persistence\Propagation\BoldIDAdderHandle.pas', + BoldListenerCOM in 'Source\Persistence\Propagation\BoldListenerCOM.pas', + BoldListenerHandle in 'Source\Persistence\Propagation\BoldListenerHandle.pas', + BoldListenerThread in 'Source\Persistence\Propagation\BoldListenerThread.pas', + BoldPersistenceControllerPassthrough in 'Source\Persistence\Propagation\BoldPersistenceControllerPassthrough.pas', + BoldSnooper in 'Source\Persistence\Propagation\BoldSnooper.pas', + BoldSnooperHandle in 'Source\Persistence\Propagation\BoldSnooperHandle.pas', + BoldPersistenceControllerSystem in 'Source\Persistence\System\BoldPersistenceControllerSystem.pas', + BoldPersistenceHandleSystem in 'Source\Persistence\System\BoldPersistenceHandleSystem.pas', + BoldAbstractObjectUpgrader in 'Source\PMapper\Core\BoldAbstractObjectUpgrader.pas', + BoldPMapper in 'Source\PMapper\Core\BoldPMapper.pas', + BoldPMapperLists in 'Source\PMapper\Core\BoldPMapperLists.pas', + BoldPMappers in 'Source\PMapper\Core\BoldPMappers.pas', + BoldPMConsts in 'Source\PMapper\Core\BoldPMConsts.pas', + BoldPSDescriptions in 'Source\PMapper\Core\BoldPSDescriptions.pas', + BoldPSParams in 'Source\PMapper\Core\BoldPSParams.pas', + BoldDbEvolutor in 'Source\PMapper\DbEvolutor\BoldDbEvolutor.pas', + BoldDbEvolutorForm in 'Source\PMapper\DbEvolutor\BoldDbEvolutorForm.pas', + BoldDbEvolutorScript in 'Source\PMapper\DbEvolutor\BoldDbEvolutorScript.pas', + BoldCustomBlobMapper in 'Source\PMapper\Default\BoldCustomBlobMapper.pas', + BoldMappingInfo in 'Source\PMapper\Default\BoldMappingInfo.pas', + BoldPMappersAttributeDefault in 'Source\PMapper\Default\BoldPMappersAttributeDefault.pas', + BoldPMappersDefault in 'Source\PMapper\Default\BoldPMappersDefault.pas', + BoldPMappersLinkDefault in 'Source\PMapper\Default\BoldPMappersLinkDefault.pas', + BoldPSDescriptionsDefault in 'Source\PMapper\Default\BoldPSDescriptionsDefault.pas', + BoldPSParamsDefault in 'Source\PMapper\Default\BoldPSParamsDefault.pas', + BoldPMappersSQL in 'Source\PMapper\SQL\BoldPMappersSQL.pas', + BoldPSDescriptionsSQL in 'Source\PMapper\SQL\BoldPSDescriptionsSQL.pas', + BoldPSParamsSQL in 'Source\PMapper\SQL\BoldPSParamsSQL.pas', + BoldSQLDatabaseConfig in 'Source\PMapper\SQL\BoldSQLDatabaseConfig.pas', + BoldSQLMappingInfo in 'Source\PMapper\SQL\BoldSQLMappingInfo.pas', + BoldSqlNodeMaker in 'Source\PMapper\SQL\BoldSqlNodeMaker.pas', + BoldSqlNodes in 'Source\PMapper\SQL\BoldSqlNodes.pas', + BoldSqlNodesResolver in 'Source\PMapper\SQL\BoldSqlNodesResolver.pas', + BoldSQLQuery in 'Source\PMapper\SQL\BoldSQLQuery.pas', + BoldSqlQueryGenerator in 'Source\PMapper\SQL\BoldSqlQueryGenerator.pas', + BoldSqlSymbols in 'Source\PMapper\SQL\BoldSqlSymbols.pas', + BoldDbDataValidator in 'Source\PMapper\Validator\BoldDbDataValidator.pas', + BoldDbStructureValidator in 'Source\PMapper\Validator\BoldDbStructureValidator.pas', + BoldDbValidator in 'Source\PMapper\Validator\BoldDbValidator.pas', + BoldAbstractPropagatorHandle in 'Source\Propagator\Common\BoldAbstractPropagatorHandle.pas', + BoldLockingSupportInterfaces_TLB in 'Source\Propagator\Common\BoldLockingSupportInterfaces_TLB.pas', + BoldObjectMarshaler in 'Source\Propagator\Common\BoldObjectMarshaler.pas', + BoldPropagatorConstants in 'Source\Propagator\Common\BoldPropagatorConstants.pas', + BoldPropagatorGUIDs in 'Source\Propagator\Common\BoldPropagatorGUIDs.pas', + BoldPropagatorInterfaces_TLB in 'Source\Propagator\Common\BoldPropagatorInterfaces_TLB.pas', + PropagatorConsts in 'Source\Propagator\Common\PropagatorConsts.pas', + BoldCondition in 'Source\ValueSpace\Condition\BoldCondition.pas', + BoldObjectSpaceExternalEvents in 'Source\ValueSpace\ExternalEvents\BoldObjectSpaceExternalEvents.pas', + BoldDefaultId in 'Source\ValueSpace\Id\BoldDefaultId.pas', + BoldGlobalId in 'Source\ValueSpace\Id\BoldGlobalId.pas', + BoldId in 'Source\ValueSpace\Id\BoldId.pas', + BoldStringId in 'Source\ValueSpace\Id\BoldStringId.pas', + ValueSpaceConst in 'Source\ValueSpace\Id\ValueSpaceConst.pas', + BoldValueInterfaces in 'Source\ValueSpace\Interfaces\BoldValueInterfaces.pas', + BoldValueSpaceInterfaces in 'Source\ValueSpace\Interfaces\BoldValueSpaceInterfaces.pas', + BoldDefaultStreamNames in 'Source\ValueSpace\XMLStreaming\BoldDefaultStreamNames.pas', + BoldDefaultXMLStreaming in 'Source\ValueSpace\XMLStreaming\BoldDefaultXMLStreaming.pas'; + +end. From 005ba2119e888a19e342b350d68e5da39147268c Mon Sep 17 00:00:00 2001 From: Ivan Date: Sun, 2 May 2021 16:40:46 -0300 Subject: [PATCH 3/3] More packages converted Converting more packages --- BoldBDE.dproj | 9 + BoldBDE.res | Bin 0 -> 628 bytes BoldCom.dproj | 9 + BoldComGUI.dproj | 9 + BoldComGUI.res | Bin 0 -> 652 bytes BoldDBExpress.res | Bin 0 -> 664 bytes BoldDOA.res | Bin 0 -> 628 bytes BoldExPe.dproj | 9 + BoldExPe.res | Bin 0 -> 640 bytes BoldForDelphi.groupproj | 264 ++++ BoldIB.dproj | 9 + BoldIB.res | Bin 0 -> 628 bytes BoldMMLink.dproj | 9 + BoldMMLink.res | Bin 0 -> 652 bytes BoldOLLE.res | Bin 0 -> 640 bytes BoldSQLDirect.res | Bin 0 -> 664 bytes BoldUDPProp.res | Bin 0 -> 652 bytes BoldUml.dproj | 9 + BoldUml.res | Bin 0 -> 628 bytes BoldUtility.dproj | 9 + BoldUtility.res | Bin 0 -> 652 bytes BoldVCLGUI.dproj | 9 + BoldVCLGUI.res | Bin 0 -> 652 bytes BoldXMILink.dproj | 9 + BoldXMILink.res | Bin 0 -> 652 bytes .../BoldControls/BoldAwareGuiComReg.rc | 34 + .../BoldControls/BoldAwareGuiComReg.res | Bin 0 -> 15248 bytes .../ClientGuiCom/BoldControls/BoldGridCom.pas | 4 +- .../ClientGuiCom/BoldControls/BoldMemoCom.pas | 2 +- .../BoldControls/BoldRichEditCom.pas | 2 +- .../BoldControls/BoldTreeViewCom.pas | 2 +- .../ClientGuiCom/IDE/BoldAwareGuiComReg.res | Bin 0 -> 15248 bytes .../ClientHandlesCom/IDE/BoldHandleComReg.RES | Bin 0 -> 5608 bytes .../ClientHandlesCom/IDE/BoldHandleComReg.rc | 24 +- .../BoldXMLDispatcher.pas | 2 +- ...oldOLLEDistributableObjectHandlers.pas.~3~ | 1175 +++++++++++++++++ .../BDE/BoldPersistenceHandleBde.RES | Bin 0 -> 972 bytes .../BDE/BoldPersistenceHandleBde.rc | 4 +- ...ldPersistenceControllerSOAPAdapterCore.pas | 2 +- .../BoldPersistenceOperationXMLStreaming.pas | 2 +- .../UMLModel/Handles/BoldUMLModelStreamer.pas | 2 +- .../ModelMaker/MMPlugin/BoldMMTVDefGen.pas | 2 +- .../ModelLinks/XMI/BoldMOFInterfaces.pas | 2 +- .../XMI/BoldUMLModelMOFAdapters.pas | 2 +- .../ModelLinks/XMI/BoldUMLXMIImporter.pas | 2 +- .../ModelLinks/XMI/BoldUMLXMILinkSupport.pas | 2 +- .../ModelLinks/XMI/BoldXMI10Exporter.pas | 2 +- .../Plugins/BoldUMLModelToEcoIIIGenerator.pas | 2 +- Source/Unassigned/Asta/AstaforBfD.dproj | 176 +++ Source/Unassigned/Asta/AstaforBfD.res | Bin 0 -> 652 bytes Source/Unassigned/BoldDataSetIPD4.dproj | 168 +++ Source/Unassigned/BoldDataSetIPD4.res | Bin 0 -> 676 bytes .../Unassigned/BoldUMLModelEditorDebugger.dpk | 10 +- .../BoldUMLModelEditorDebugger.dproj | 170 +++ .../Unassigned/BoldUMLModelEditorDebugger.res | Bin 0 -> 748 bytes .../BoldUMLModelEditorDebugger.dpk.~3~ | 37 + .../BoldUMLModelEditorDebugger.dpk.~4~ | 37 + .../BoldUMLModelEditorDebugger.dpk.~5~ | 37 + .../BoldUMLModelEditorDebugger.dpk.~6~ | 37 + .../BoldUMLModelEditorDebugger.dpk.~7~ | 37 + 60 files changed, 2297 insertions(+), 35 deletions(-) create mode 100644 BoldBDE.res create mode 100644 BoldComGUI.res create mode 100644 BoldDBExpress.res create mode 100644 BoldDOA.res create mode 100644 BoldExPe.res create mode 100644 BoldForDelphi.groupproj create mode 100644 BoldIB.res create mode 100644 BoldMMLink.res create mode 100644 BoldOLLE.res create mode 100644 BoldSQLDirect.res create mode 100644 BoldUDPProp.res create mode 100644 BoldUml.res create mode 100644 BoldUtility.res create mode 100644 BoldVCLGUI.res create mode 100644 BoldXMILink.res create mode 100644 Source/ClientGuiCom/BoldControls/BoldAwareGuiComReg.rc create mode 100644 Source/ClientGuiCom/BoldControls/BoldAwareGuiComReg.res create mode 100644 Source/ClientGuiCom/IDE/BoldAwareGuiComReg.res create mode 100644 Source/ClientHandlesCom/IDE/BoldHandleComReg.RES create mode 100644 Source/Extensions/OLLE/Core/__history/BoldOLLEDistributableObjectHandlers.pas.~3~ create mode 100644 Source/Persistence/BDE/BoldPersistenceHandleBde.RES create mode 100644 Source/Unassigned/Asta/AstaforBfD.dproj create mode 100644 Source/Unassigned/Asta/AstaforBfD.res create mode 100644 Source/Unassigned/BoldDataSetIPD4.dproj create mode 100644 Source/Unassigned/BoldDataSetIPD4.res create mode 100644 Source/Unassigned/BoldUMLModelEditorDebugger.dproj create mode 100644 Source/Unassigned/BoldUMLModelEditorDebugger.res create mode 100644 Source/Unassigned/__history/BoldUMLModelEditorDebugger.dpk.~3~ create mode 100644 Source/Unassigned/__history/BoldUMLModelEditorDebugger.dpk.~4~ create mode 100644 Source/Unassigned/__history/BoldUMLModelEditorDebugger.dpk.~5~ create mode 100644 Source/Unassigned/__history/BoldUMLModelEditorDebugger.dpk.~6~ create mode 100644 Source/Unassigned/__history/BoldUMLModelEditorDebugger.dpk.~7~ diff --git a/BoldBDE.dproj b/BoldBDE.dproj index 615bc85f..071267db 100644 --- a/BoldBDE.dproj +++ b/BoldBDE.dproj @@ -18,6 +18,11 @@ Base true + + true + Base + true + true Base @@ -64,6 +69,10 @@ true CompanyName=;FileDescription=$(MSBuildProjectName);FileVersion=1.0.0.0;InternalName=;LegalCopyright=;LegalTrademarks=;OriginalFilename=;ProductName=$(MSBuildProjectName);ProductVersion=1.0.0.0;Comments=;ProgramID=com.embarcadero.$(MSBuildProjectName) 1033 + vcl;vcldb;bdertl;$(DCC_UsePackage) + + + vcl;vcldb;$(DCC_UsePackage) RELEASE;$(DCC_Define) diff --git a/BoldBDE.res b/BoldBDE.res new file mode 100644 index 0000000000000000000000000000000000000000..a1b23a8216f7ec7a0d6b44ffa33801897af4f1d0 GIT binary patch literal 628 zcmZ9KPfNo<5XE042kXhBM-QGQLJkTAX{kz}{-K6mrLDCD(nMnYczzr2UV1kEX5-Q{ z1GAazy!U2yXC>(ruj|GM_iP*Z{4p4Qut>eogSJ6TIMuUWSZ_2TO7y4){u9<)VzaOC z=T|a*qv5~TE-RU!&-`yGWg|duqe__ytx(I9Yl(89HDCzQgtIi96_rdqpWSx_#*qPCZ^xt#7P=Ng2}L&h9p)GdGFU uRVg@m4zhh;z3@9cK%^$}f-HBjp2JkdSTfH!c*U8YQ~vG#kh8UF!^%~S{g literal 0 HcmV?d00001 diff --git a/BoldCom.dproj b/BoldCom.dproj index a4bcfad0..6f9f182e 100644 --- a/BoldCom.dproj +++ b/BoldCom.dproj @@ -18,6 +18,11 @@ Base true + + true + Base + true + true Base @@ -71,6 +76,10 @@ true CompanyName=;FileDescription=$(MSBuildProjectName);FileVersion=1.0.0.0;InternalName=;LegalCopyright=;LegalTrademarks=;OriginalFilename=;ProductName=$(MSBuildProjectName);ProductVersion=1.0.0.0;Comments=;ProgramID=com.embarcadero.$(MSBuildProjectName) 1033 + vcl;$(DCC_UsePackage) + + + vcl;$(DCC_UsePackage) RELEASE;$(DCC_Define) diff --git a/BoldComGUI.dproj b/BoldComGUI.dproj index d748ef95..71f1295c 100644 --- a/BoldComGUI.dproj +++ b/BoldComGUI.dproj @@ -18,6 +18,11 @@ Base true + + true + Base + true + true Base @@ -64,6 +69,10 @@ true CompanyName=;FileDescription=$(MSBuildProjectName);FileVersion=1.0.0.0;InternalName=;LegalCopyright=;LegalTrademarks=;OriginalFilename=;ProductName=$(MSBuildProjectName);ProductVersion=1.0.0.0;Comments=;ProgramID=com.embarcadero.$(MSBuildProjectName) 1033 + vcl;$(DCC_UsePackage) + + + vcl;$(DCC_UsePackage) RELEASE;$(DCC_Define) diff --git a/BoldComGUI.res b/BoldComGUI.res new file mode 100644 index 0000000000000000000000000000000000000000..42e41efe9ee1965d7c641b733330cb2c3e2ac3f0 GIT binary patch literal 652 zcmaKqK}*9x5QSe#4pw{c?!|-W5+MkJDAn2$uqrY3Dz(-UNfU|n=lO5E`wxuYZd{rc zbYONTnR)Nc?yMy3<5g8V;hJ??F275SXLEttzANgqLc+1`^uT(lm?+YXuKA8w2gJrc z{I74x;A;-IpV_Qr2wmp)mtOec!M9YYRJrD`rOGseIoGoa3J10(P^du1ct{VXqf_mG zb@hEPZ<<=3SNKw}xs^F5%JifQ_JxMJhuc`7tpi5QR@l7S@Hh>`Gj?mI&Dhg0xg6;7_TcxRY9I38YC$EA-`j8~46}^_v?n z{aJM2-cD!EIWw6%l61;ht?GljWvzzKAA<>8E>bh}pjIQs9q3uF+&AjuC3?~${}b+8 ze6z3c=T|a*t>J&KT~;zdpZO1INgzOPp-PzwO;F2}Ym9QC50wB@hlvy`(j_OR2kWS- zBe)*lg)`U4>CDi};1;e-2QSw<_zujaW?&3ECmZQtLt{X^BEIHc=p2kc(v_>(1688< zNxcOV7-|aBY+tR|)!OFnR@|-kq7(Y7ITNZ{rGzgr8_~m*-p1T-WGW&a$3lRM^}^18Kc I?v(ApADBH_zW@LL literal 0 HcmV?d00001 diff --git a/BoldDOA.res b/BoldDOA.res new file mode 100644 index 0000000000000000000000000000000000000000..d7963959af8a1dea3bb1416eff1368e3637f7c4f GIT binary patch literal 628 zcmZ9KPfNo<5XE042kXhBM-QGQLJkTAsZ=FU|4>7(rPf*kX(F+HJim>1FFhN7v+2?% z1GAazy!U2yXC>(ruj|GMTeb;&{um5DSfpO)L7N~ZoajYU)?1B<5t`cD6Fp*-qy24|6u#PTu2-o9> za6UD6Iv?m|a0^%FhA7vYhV(fwy%ui*uY$S5U+5f+caMJtRig4mjWws9X$8})s~TVtdX&eCv}R5JC1j?L!OUD3~i^_5J;&Wuj1?~?s)ePabo%8>qccDE^=xk;q1 tO2NrzR3iWY literal 0 HcmV?d00001 diff --git a/BoldExPe.dproj b/BoldExPe.dproj index 83a11076..d3280265 100644 --- a/BoldExPe.dproj +++ b/BoldExPe.dproj @@ -18,6 +18,11 @@ Base true + + true + Base + true + true Base @@ -64,6 +69,10 @@ true CompanyName=;FileDescription=$(MSBuildProjectName);FileVersion=1.0.0.0;InternalName=;LegalCopyright=;LegalTrademarks=;OriginalFilename=;ProductName=$(MSBuildProjectName);ProductVersion=1.0.0.0;Comments=;ProgramID=com.embarcadero.$(MSBuildProjectName) 1033 + vcl;vclx;vcldb;$(DCC_UsePackage) + + + vcl;vclx;vcldb;$(DCC_UsePackage) RELEASE;$(DCC_Define) diff --git a/BoldExPe.res b/BoldExPe.res new file mode 100644 index 0000000000000000000000000000000000000000..36c6894c3cf92af160da52b7f16852a83bb104a9 GIT binary patch literal 640 zcmZvaK~KU!5QSe!57v`cZXP_FYI>277z}EfC=zHmY7mh$DXpoP_~-mL-u(yGZ?~)z z!X~pFcHf)#m|00WCaS6q((To9_eWqndlxG3|3R&YbfU4I*snDri}j!Zzhm|ral*HRX>TP{(A}($^vHony_HI(%C(?cs!Ve#=XzBEuwyZyB89pjB0LyJ9R+Y5 zz7OYJGh644dMVu8%3P6UdV%$+Atw5b%BCD~@*;U%r8K{k~nzKO7D8%Yp&oi`_c$%|6b5r7CiW}p-;C!D4!}OS%LAy?E zIxC&nsU%h@rvn+tX72+3+vj + + {DFD5A34D-3F28-461E-9001-16DFEADD40A9} + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + Default.Personality.12 + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + diff --git a/BoldIB.dproj b/BoldIB.dproj index 35006cc0..412cf446 100644 --- a/BoldIB.dproj +++ b/BoldIB.dproj @@ -18,6 +18,11 @@ Base true + + true + Base + true + true Base @@ -64,6 +69,10 @@ true CompanyName=;FileDescription=$(MSBuildProjectName);FileVersion=1.0.0.0;InternalName=;LegalCopyright=;LegalTrademarks=;OriginalFilename=;ProductName=$(MSBuildProjectName);ProductVersion=1.0.0.0;Comments=;ProgramID=com.embarcadero.$(MSBuildProjectName) 1033 + vcl;vcldb;ibxpress;$(DCC_UsePackage) + + + vcl;vcldb;ibxpress;$(DCC_UsePackage) RELEASE;$(DCC_Define) diff --git a/BoldIB.res b/BoldIB.res new file mode 100644 index 0000000000000000000000000000000000000000..b9f9acf203b664c69b4883c89958ff1b977d1e2b GIT binary patch literal 628 zcmZ9KO-sW-5Qg7KK`gdhllv{WVH7culIwbl|y6RGv*`ER^?>Dl<~#HDEl zb~C&CeoS^&l8zX4-3-#LSO@<601OKvQZMwNbr6$|^`vL!OQmFq9(2z-VZI`F@fH63 zN{-)X`0s_CN>0$9{BJ2`BS3GZrE-;;qn4}C4CPX9ssQ#46Dg*uGe%4euA)=z!u9wO zoDWS+=N-KqZfQ0{vO=#Y4s9K2uf-d~Tf*GnPt?c75B$yN5mbfBCmt*QdZGnP7hV0> z^tbU{m#)W+4ymc(%yDw+iAJVB#dkp!Gv*ggmQ*mI5?6P{e%Ifz0y^c8{&qIEDIHrU vGIJ^U^8#f1zIx$zxP!(yqptU<>Q)0~*5_1rWCPy7HC@Q)Todj0;(GiCx)f78 literal 0 HcmV?d00001 diff --git a/BoldMMLink.dproj b/BoldMMLink.dproj index 6132c93a..bb62a3a1 100644 --- a/BoldMMLink.dproj +++ b/BoldMMLink.dproj @@ -18,6 +18,11 @@ Base true + + true + Base + true + true Base @@ -64,6 +69,10 @@ true CompanyName=;FileDescription=$(MSBuildProjectName);FileVersion=1.0.0.0;InternalName=;LegalCopyright=;LegalTrademarks=;OriginalFilename=;ProductName=$(MSBuildProjectName);ProductVersion=1.0.0.0;Comments=;ProgramID=com.embarcadero.$(MSBuildProjectName) 1033 + vcl;$(DCC_UsePackage) + + + vcl;$(DCC_UsePackage) RELEASE;$(DCC_Define) diff --git a/BoldMMLink.res b/BoldMMLink.res new file mode 100644 index 0000000000000000000000000000000000000000..a70827e2ae1ff364df368de19bd3293d8ce88d6b GIT binary patch literal 652 zcmZ{iPfNo<5XE0g4pw{c?!|*=i4X)q6s1-I^$#)hDz(-UO;f4$>Sfn{;e^_hike_6gU5 zzaMG}(ydKAvGJ_p*4fs%QthFw#!O&zEQz|tGlGALt}*))kvU3+D02E|oNvg7nEe{xtxx~^ zM{@YOM)SV3sN@PZk-sB7a^O*KrBbPKEvS|%)11n=UR99TwVY6qLY-p~8l0l80DN!*+jniImzDt8cdQ8n_H=SB{ zRyww+B*v7}fsD*{?*jkJ=X&S@tEzpJ4b@X(Gau^~ug873p{of~tXKQ)xOx8q(JWJ9 literal 0 HcmV?d00001 diff --git a/BoldSQLDirect.res b/BoldSQLDirect.res new file mode 100644 index 0000000000000000000000000000000000000000..4b1a68d0cfce9437496c8cf6ea28e1256b51549b GIT binary patch literal 664 zcmaKqK}*9x5QSe#4%UNs>`6R$mI%2Bf>f#!s8wqy-lW!A0%;<#f`86`NANbS&rI;|LYqz655UuuY#=vD*%C)`)~ zW?$jYuVnmM!~dSUtYm^d^B>YDfdIXQDrG7(LoHLTDawUjRRT;MCQ__Or<|A`tfQXx z;Cg%y&buZ~=MB9KZsE#Y;N^Ou%DwuqGB8t+3$l@R8X6_xBvV>Y literal 0 HcmV?d00001 diff --git a/BoldUDPProp.res b/BoldUDPProp.res new file mode 100644 index 0000000000000000000000000000000000000000..e15e0ec94c5611606b05299189b56ba5872e2855 GIT binary patch literal 652 zcmZ{i%}T>i5QR@l7FM$G0bICnEfKO%5VTT%0{&5Bw^G|$0%=-eeLUaBy>DRr=Eh5Z zpcCe1a%aw*lRHA%2jGYw_JtBbT0L-8HKm5CRUK~mQ0CZ5PNJZ4^&H#bcgR)I8D7`BsJl}~nVWx4_e34;#tqZSm}q0G_sC}d E2jHt$%K!iX literal 0 HcmV?d00001 diff --git a/BoldUml.dproj b/BoldUml.dproj index 72fb2ee0..0aaaeb6e 100644 --- a/BoldUml.dproj +++ b/BoldUml.dproj @@ -18,6 +18,11 @@ Base true + + true + Base + true + true Base @@ -64,6 +69,10 @@ true CompanyName=;FileDescription=$(MSBuildProjectName);FileVersion=1.0.0.0;InternalName=;LegalCopyright=;LegalTrademarks=;OriginalFilename=;ProductName=$(MSBuildProjectName);ProductVersion=1.0.0.0;Comments=;ProgramID=com.embarcadero.$(MSBuildProjectName) 1033 + vcl;$(DCC_UsePackage) + + + vcl;$(DCC_UsePackage) RELEASE;$(DCC_Define) diff --git a/BoldUml.res b/BoldUml.res new file mode 100644 index 0000000000000000000000000000000000000000..4fba3de8a5e17b2093c0eef3f285ac1d7e2b36a3 GIT binary patch literal 628 zcmZvaPfNo<5XE042kXhBM-QH*LJkUoRH_oFe`sT`Qfn-MG?7?8p5Mm1m!6Hk*|;ig4WqAK=t1is!kucOC*~`S@nYTUj(yC0jc?;K z{Qi-Q-)Q*t!re+H=x_dxlyDHBw^F4{g%+q~%9WyA=v5`azQgntk<}R%k%MJ)s$IAq zKZNtHxzl+=FN0gSFqe3_Ui7FXtJT)#P2p8AH~14BgYo9^51>j^K8UfR>KSV3zxt8W z-^O>NbYqNkKrIbtK_pX;HFWxO;x5T2Wq#(SB7+&3Sl%V)-TI6b&?!Uu*V(+LbmTgb uxF`jc=OEkf)eFDE9W>6dy51wJkp@a!pU1kz8}J8i=t4s0n$i9**5hBXo>egb literal 0 HcmV?d00001 diff --git a/BoldUtility.dproj b/BoldUtility.dproj index 18ef9440..ce7db656 100644 --- a/BoldUtility.dproj +++ b/BoldUtility.dproj @@ -18,6 +18,11 @@ Base true + + true + Base + true + true Base @@ -64,6 +69,10 @@ true CompanyName=;FileDescription=$(MSBuildProjectName);FileVersion=1.0.0.0;InternalName=;LegalCopyright=;LegalTrademarks=;OriginalFilename=;ProductName=$(MSBuildProjectName);ProductVersion=1.0.0.0;Comments=;ProgramID=com.embarcadero.$(MSBuildProjectName) 1033 + vcl;vclx;$(DCC_UsePackage) + + + vcl;vclx;$(DCC_UsePackage) RELEASE;$(DCC_Define) diff --git a/BoldUtility.res b/BoldUtility.res new file mode 100644 index 0000000000000000000000000000000000000000..aea73fb4fd167f774dba8e964f483bb08629465e GIT binary patch literal 652 zcmZ{i%}T>S5Xb*1Iaukz2k_v*vqZ>2LC{M52xyfWdzD&i38abCdhp?V8}Gh>@wXF~ zriCudX1X)~kM67_?GaT~2kFY{w0wPsp1^96+M#div|`es9`wY1p#fQ2;f_2u1tlduw}|Mfw|DDN*b@NCsM3P$3%<==jcow zu)eCVx+UxKHm;aX%0%ncd`E8f Ee=iGJ2><{9 literal 0 HcmV?d00001 diff --git a/BoldVCLGUI.dproj b/BoldVCLGUI.dproj index 9900ed70..8ce4dd8a 100644 --- a/BoldVCLGUI.dproj +++ b/BoldVCLGUI.dproj @@ -18,6 +18,11 @@ Base true + + true + Base + true + true Base @@ -64,6 +69,10 @@ true CompanyName=;FileDescription=$(MSBuildProjectName);FileVersion=1.0.0.0;InternalName=;LegalCopyright=;LegalTrademarks=;OriginalFilename=;ProductName=$(MSBuildProjectName);ProductVersion=1.0.0.0;Comments=;ProgramID=com.embarcadero.$(MSBuildProjectName) 1033 + vcl;$(DCC_UsePackage) + + + vcl;$(DCC_UsePackage) RELEASE;$(DCC_Define) diff --git a/BoldVCLGUI.res b/BoldVCLGUI.res new file mode 100644 index 0000000000000000000000000000000000000000..d122be742a807abcedfa65544af3f4638a8fb047 GIT binary patch literal 652 zcmZ{iK}*9x5QSe#4pw{c?!|*=i4X)qlxl4Wv??+7Dz(-UNfU|n=lO5E`wxuYZd{rc zIxw5*&b;@gGb>4lcvaO-xMrP}%kNX;*<7Hu?}|FDkZ`OAJ#pSBCW>^YTYg8JePUx@ z{?D&u@HL0~UfQf=2wmp?N^e|v@GVs;RjxT~sWQ!A&h@H-!oIBu6e`de9@2y9=t6s7 zU40MCho+Y29ljK7Ze^~BGQH6IwT2q#5pH9Fb{hCG_!5Q{?nKAbIG0YX-aSBase true + + true + Base + true + true Base @@ -64,6 +69,10 @@ true CompanyName=;FileDescription=$(MSBuildProjectName);FileVersion=1.0.0.0;InternalName=;LegalCopyright=;LegalTrademarks=;OriginalFilename=;ProductName=$(MSBuildProjectName);ProductVersion=1.0.0.0;Comments=;ProgramID=com.embarcadero.$(MSBuildProjectName) 1033 + vcl;$(DCC_UsePackage) + + + vcl;$(DCC_UsePackage) RELEASE;$(DCC_Define) diff --git a/BoldXMILink.res b/BoldXMILink.res new file mode 100644 index 0000000000000000000000000000000000000000..381f78415b7978017e8fade57110b8098fdc79ee GIT binary patch literal 652 zcmZ{i%}T>i5QR@l7FM$G0bICnEfKO%5d5M31ZtHSiaV*bmSUPnt&iv1xc3c=-<^2r z5A?#^%)K+`oXO0Uq&=*z8^c{$QOn17$O$YKs~!5JsFmRM^`IyAOJ#Ve?$qO)vR~o5 z^%eg7N)F#}`0uGjB}eEZ|5qxw2;iG*rin_8VVkJX2Ohq z&H4L*rXbzgq?4G=DsEkET`SivwKbSAicTd}$8?71PpNCf{!C;>B?BsQ^;g_)s>7iJ zCg>2pYl|*R`!=E6)Ji&0kh$E)cK99gRCI#X^)}UYb*|jzpV8Z#Q>JUClQYp~Ex#i- F`#-hgSD^p^ literal 0 HcmV?d00001 diff --git a/Source/ClientGuiCom/BoldControls/BoldAwareGuiComReg.rc b/Source/ClientGuiCom/BoldControls/BoldAwareGuiComReg.rc new file mode 100644 index 00000000..88b657da --- /dev/null +++ b/Source/ClientGuiCom/BoldControls/BoldAwareGuiComReg.rc @@ -0,0 +1,34 @@ +TBoldAsCheckBoxStateRendererCom BITMAP LOADONCALL ..\..\..\Images\ComponentsCom\TBoldAsCheckBoxStateRendererCom.bmp +TBoldAsFloatRendererCom BITMAP LOADONCALL ..\..\..\Images\ComponentsCom\TBoldAsFloatRendererCom.bmp +TBoldAsIntegerRendererCom BITMAP LOADONCALL ..\..\..\Images\ComponentsCom\TBoldAsIntegerRendererCom.bmp +TBoldAsViewerRendererCom BITMAP LOADONCALL ..\..\..\Images\ComponentsCom\TBoldAsViewerRendererCom.bmp +TBoldAsStringRendererCom BITMAP LOADONCALL ..\..\..\Images\ComponentsCom\TBoldAsStringRendererCom.bmp +TBoldAsMLStringRendererCom BITMAP LOADONCALL ..\..\..\Images\ComponentsCom\TBoldAsMLStringRendererCom.bmp +TBoldCaptionControllerCom BITMAP LOADONCALL ..\..\..\Images\ComponentsCom\TBoldCaptionControllerCom.bmp +TBoldChartCom BITMAP LOADONCALL ..\..\..\Images\ComponentsCom\TBoldChartCom.bmp +TBoldCheckBoxCom BITMAP LOADONCALL ..\..\..\Images\ComponentsCom\TBoldCheckBoxCom.bmp +TBoldComboBoxCom BITMAP LOADONCALL ..\..\..\Images\ComponentsCom\TBoldComboBoxCom.bmp +TBoldControlGridCom BITMAP LOADONCALL ..\..\..\Images\ComponentsCom\TBoldControlGridCom.bmp +TBoldEditCom BITMAP LOADONCALL ..\..\..\Images\ComponentsCom\TBoldEditCom.bmp +TBoldGridCom BITMAP LOADONCALL ..\..\..\Images\ComponentsCom\TBoldGridCom.bmp +TBoldImageCom BITMAP LOADONCALL ..\..\..\Images\ComponentsCom\TBoldImageCom.bmp +TBoldLabelCom BITMAP LOADONCALL ..\..\..\Images\ComponentsCom\TBoldLabelCom.bmp +TBoldListBoxCom BITMAP LOADONCALL ..\..\..\Images\ComponentsCom\TBoldListBoxCom.bmp +TBoldListViewCom BITMAP LOADONCALL ..\..\..\Images\ComponentsCom\TBoldListViewCom.bmp +TBoldMemoCom BITMAP LOADONCALL ..\..\..\Images\ComponentsCom\TBoldMemoCom.bmp +TBoldNavigatorCom BITMAP LOADONCALL ..\..\..\Images\ComponentsCom\TBoldNavigatorCom.bmp +TBoldProgressBarCom BITMAP LOADONCALL ..\..\..\Images\ComponentsCom\TBoldProgressBarCom.bmp +TBoldRadioGroupCom BITMAP LOADONCALL ..\..\..\Images\ComponentsCom\TBoldRadioGroupCom.bmp +TBoldRendererCom BITMAP LOADONCALL ..\..\..\Images\ComponentsCom\TBoldRendererCom.bmp +TBoldRichEditCom BITMAP LOADONCALL ..\..\..\Images\ComponentsCom\TBoldRichEditCom.bmp +TBoldTimePickerCom BITMAP LOADONCALL ..\..\..\Images\ComponentsCom\TBoldTimePickerCom.bmp +TBoldTrackBarCom BITMAP LOADONCALL ..\..\..\Images\ComponentsCom\TBoldTrackBarCom.bmp +TBoldTreeViewCom BITMAP LOADONCALL ..\..\..\Images\ComponentsCom\TBoldTreeViewCom.bmp +TBoldXCVTreeViewCom BITMAP LOADONCALL ..\..\..\Images\ComponentsCom\TBoldXCVTreeViewCom.bmp +TBoldDataSetCom BITMAP LOADONCALL ..\..\..\Images\ComponentsCom\TBoldDataSetCom.bmp +TBoldDropTargetCom BITMAP LOADONCALL ..\..\..\Images\ComponentsCom\TBoldDropTargetCom.bmp +TBoldPageControlCom BITMAP LOADONCALL ..\..\..\Images\ComponentsCom\TBoldPageControlCom.bmp +TBoldPropertiesControllerCom BITMAP LOADONCALL ..\..\..\Images\ComponentsCom\TBoldPropertiesControllerCom.bmp +TBoldStringsPropertyControllerCom BITMAP LOADONCALL ..\..\..\Images\ComponentsCom\TBoldStringsPropertyControllerCom.bmp +TBoldExceptionHandlerCom BITMAP LOADONCALL ..\..\..\Images\ComponentsCom\TBoldExceptionHandlerCom.bmp + \ No newline at end of file diff --git a/Source/ClientGuiCom/BoldControls/BoldAwareGuiComReg.res b/Source/ClientGuiCom/BoldControls/BoldAwareGuiComReg.res new file mode 100644 index 0000000000000000000000000000000000000000..98825a08ee61c8cebb618bfccaf68b932dd35c11 GIT binary patch literal 15248 zcmds8&uUtroN~0}14u+#!!};57{&r;L!=z~Fe(oxe2R^bGJRN? ziI6g!mRLDBXHJ{~(H>$cIplzpe}P+aV-6MutwiPf-mB`ac8{Tl_1Gq5Pxm*kUR8J3 z*YDM#X_755on14)9a|`OK*J9Ip4zAL}RR={YwB|0d7%gd-q6x!Kv- zK?WayC#NSI^_iTpnjDkD)mFdXA9$QVT;S=wq`+%yy#nt|mpZXL){pAJjhIk&9qD)e z9`uwk8!*Gi%+1Zs@;qf%XB8vcW>38wIx{NIs6VH2W2ddXBywn@_Ck)TF3n2)tliGd zJbd_Yipbj8=g*&`m?U4jU~;^KB6W@zAa4t+-hauaE!)eQ>Ng)T<=6JZSkec>T&Og3(`pkX2)v_}~fH>ndB4 z39Y*NLeox!&z1OmiO(y3g>>HIcT7S4-vM((|J~p@a|FM7_=ZJZvd(vJ{z&@yu35lb#>o)rZ;-zKS>>?tk8xs4nzr87u^OAVy zapU1}d@*C;oI%tF;$g(UlF+<&)eEj~2xgG%oZt<~=rzYu;{&ZnD;1n-y2kob=h|*J z72Mu+_y^8RQpnBR=V=OgnqKS90=r$oh@BvpbPc}vbGb|BUi-LL-V*PN1y|*04)MP9 z#rN;upAr>2`|R1Xmcp7ZzQ`7=jCnZTxeOjx#vad1f&tg1-Ylgm**RS$a_J~zE>K~K8d6cO07mrtCD{R(xPKHN) zli3!wD~KffG~UA)YeGoku_Z>VJaSx$q&zA< z2|RK(fin^O+^$&T@$rbaT#~exQp$MKb{&0I+hfUyH%DZu^9a1;k=SF3``mAj>>oqV$k=uf zb4IaM9`-n;Vc&?>(S)XXAl=v++O)uE(*o~BSUi+8Z$FRq8{-jWQDRZ>{%@SHaxkzMip}EsirDX~f?^je|#<`^aW}y=QZk8~V{4#pLd?Fxn0Yb~cS( zu!p9kpG>BePTJfgG}B_+kMx2CMEE$bYI=y^YX0q zZtwSAZZ3)thnL-1?Fwm(N8K0J?QaR}UBTFJY3%;*(ETS~e(A{&Ljc;0$FA8V?t)R+ z10j?)t<7~9U~`(t6s1zYt4o2P&H_Ol1*d{KE7aOq81D{GlEMwJZZ8UJCHQ)r_V)|i zQ8kuXLhr}9oO(ohOfig7;#*F-#G%9?c7U+3&A1Rr<$H=DcNjHL{xxtqulirJTMIan zvmO`fgie7WZ~JtERyWO9Q4a9U!Dd8nQ18a*ibeCQttT>mTMk+dSH*YKJ$_7t#j5#CZigPImu5 zGafyOI3YA-Gi>0KBP7Lpys?La;(TMT<#BE{_DoCUYlhfNi%ukmW~m?50~+3t3;5;u zx_mo)$|(2vg!GB^@%^&QdFz_hE%c68z~^MSZ01u#Bknu**yNI|CA*T~{x)9xi+|#F z55!)bTS^Mgw!ZHI2Yfw%%di)Or4BDXZRS(!T;2qC9O1WR4YF;1g%yqy?q4^0BvXBA zu2B!$auCafZm$!|MSq0+z54Le;IgQHpMMQ+$l-C>Y#n1Bo}%hsKj}4OQaJe(Y%;^8 zf`2{c{aK@UT!amB58lVly^RyEHtQ!(NW8P{wk4hdkAtnPZSe!N$G1+f#5-S4Oe^4$qduK5xWBWG@L2>;q@wKP1YEj^^@~x zpsH`>YQ|+@u^#O-8$*sWpVNrPsm%I+8vrEYL!(Wps}D-Ay3sE(?)LjdMuZ*lT{iV= zyH32y)<&sFr;4HKFOc!A@;LZbd_B&1XC8M{=kY2m@za{(A^KFn!g0VRNeY~l@~CX66LSH>P$%XBu=dO};9NlBG3Nq;{3zxE>b{k$!(Yi7 z<3VgTnV&m!o3sbd>qskl{t&*FoP~DBoK4a0f>GjQ_>1e|ypHG0g3G`kxeRi08SV{S z(ukQ7%0p=bg6>D};7h0D_d+fZ>t0ANmtFAG?{v5yy*|gvUmfrl2Df0B zlih>U$gdV-bNaGYB13i=Z6rzh1`C8kI=LXvfmNOkb7T~9WCZ;jxGsnOKDjnLcga(~ z-+zOd2;eNpO^%qg$berhG8pTG48}SkV^aNN-5yh!6X5PR&IND>dX>q;?<1SWtsv;m z77ihO6F|A*0ZEo5CS)X7_MP%y5*VuDJDG$14DT@G&Le4IsWz5_^Fkjus>j!#v7BFN zF=x-7J!38Jr+Y@Q+-LSk<-E=*l@r>tk^E-|%B6nQKXvcky(xkA%;U$8{fdq)Yqys6 zSm$yX9FjrCs^vb8IC5>`TgMrLG_y;67CnZojSOfIn@BnY{D7YDHS5gt2b>J_bwYku z;~dTAO(>T{`0*yR33{*HjZ?}~Y??_6zWs}til-X~0q-Q+mw zZ#e|Z-s4o|qcFFW7jkT0F3S3S=^#l;Jl2ov3H4{F!Q}XC u2LCMg6ZRLd!Z2q`9QN0>?44roG6J!`hS)c2W#1I>R6e!ucY7b6Bl;g^06sGS literal 0 HcmV?d00001 diff --git a/Source/ClientGuiCom/BoldControls/BoldGridCom.pas b/Source/ClientGuiCom/BoldControls/BoldGridCom.pas index aaa13a71..fb662b63 100644 --- a/Source/ClientGuiCom/BoldControls/BoldGridCom.pas +++ b/Source/ClientGuiCom/BoldControls/BoldGridCom.pas @@ -632,7 +632,7 @@ procedure TBoldInplaceEditCom.KeyPress(var Key: Char); Grid := TBoldCustomGridCom(Owner); Grid.SetSelection(grid.DataRow(grid.Row), [], true, false); if (Key in [#32..#255]) and - not Grid.Columns[Grid.Col].BoldProperties.ValidateCharacter(Key, Grid.CurrentCellFollower) then + not Grid.Columns[Grid.Col].BoldProperties.ValidateCharacter(AnsiChar(Key), Grid.CurrentCellFollower) then begin MessageBeep(0); Key := BOLDNULL; @@ -1918,7 +1918,7 @@ procedure TBoldCustomGridCom.ColWidthsChanged; function TBoldCustomGridCom.CanEditAcceptKey(KEY: Char): Boolean; begin Result := Assigned(CurrentCellFollower) and - TBoldStringFollowerControllerCom(CurrentCellFollower.Controller).ValidateCharacter(KEY, CurrentCellFollower); + TBoldStringFollowerControllerCom(CurrentCellFollower.Controller).ValidateCharacter(AnsiChar(Key), CurrentCellFollower); end; function TBoldCustomGridCom.CanEditModify: Boolean; diff --git a/Source/ClientGuiCom/BoldControls/BoldMemoCom.pas b/Source/ClientGuiCom/BoldControls/BoldMemoCom.pas index 62986634..81da7330 100644 --- a/Source/ClientGuiCom/BoldControls/BoldMemoCom.pas +++ b/Source/ClientGuiCom/BoldControls/BoldMemoCom.pas @@ -324,7 +324,7 @@ procedure TBoldCustomMemoCom.KeyPress(var Key: Char); begin inherited KeyPress(Key); if (Key in [#32..#255]) and - not BoldProperties.ValidateCharacter(Key, Follower) then + not BoldProperties.ValidateCharacter(AnsiChar(Key), Follower) then begin MessageBeep(0); Key := BOLDNULL; diff --git a/Source/ClientGuiCom/BoldControls/BoldRichEditCom.pas b/Source/ClientGuiCom/BoldControls/BoldRichEditCom.pas index e58dccb4..f0a5a541 100644 --- a/Source/ClientGuiCom/BoldControls/BoldRichEditCom.pas +++ b/Source/ClientGuiCom/BoldControls/BoldRichEditCom.pas @@ -312,7 +312,7 @@ procedure TBoldCustomRichEditCom.KeyPress(var Key: Char); begin inherited KeyPress(Key); if (Key in [#32..#255]) and - not BoldProperties.ValidateCharacter(Key, Follower) then + not BoldProperties.ValidateCharacter(AnsiChar(Key), Follower) then begin MessageBeep(0); Key := BOLDNULL; diff --git a/Source/ClientGuiCom/BoldControls/BoldTreeViewCom.pas b/Source/ClientGuiCom/BoldControls/BoldTreeViewCom.pas index 33de1df3..344fe63f 100644 --- a/Source/ClientGuiCom/BoldControls/BoldTreeViewCom.pas +++ b/Source/ClientGuiCom/BoldControls/BoldTreeViewCom.pas @@ -742,7 +742,7 @@ procedure TBoldCustomTreeViewCom.KeyPress(var Key: Char); begin inherited KeyPress(Key); if Assigned(FEditFollower) and (Key > #32) and - not (FEditFollower.Controller as TBoldStringFollowerControllerCom).ValidateCharacter(Key, FEditFollower) then + not (FEditFollower.Controller as TBoldStringFollowerControllerCom).ValidateCharacter(AnsiChar(Key), FEditFollower) then begin MessageBeep(0); Key := #0; diff --git a/Source/ClientGuiCom/IDE/BoldAwareGuiComReg.res b/Source/ClientGuiCom/IDE/BoldAwareGuiComReg.res new file mode 100644 index 0000000000000000000000000000000000000000..98825a08ee61c8cebb618bfccaf68b932dd35c11 GIT binary patch literal 15248 zcmds8&uUtroN~0}14u+#!!};57{&r;L!=z~Fe(oxe2R^bGJRN? ziI6g!mRLDBXHJ{~(H>$cIplzpe}P+aV-6MutwiPf-mB`ac8{Tl_1Gq5Pxm*kUR8J3 z*YDM#X_755on14)9a|`OK*J9Ip4zAL}RR={YwB|0d7%gd-q6x!Kv- zK?WayC#NSI^_iTpnjDkD)mFdXA9$QVT;S=wq`+%yy#nt|mpZXL){pAJjhIk&9qD)e z9`uwk8!*Gi%+1Zs@;qf%XB8vcW>38wIx{NIs6VH2W2ddXBywn@_Ck)TF3n2)tliGd zJbd_Yipbj8=g*&`m?U4jU~;^KB6W@zAa4t+-hauaE!)eQ>Ng)T<=6JZSkec>T&Og3(`pkX2)v_}~fH>ndB4 z39Y*NLeox!&z1OmiO(y3g>>HIcT7S4-vM((|J~p@a|FM7_=ZJZvd(vJ{z&@yu35lb#>o)rZ;-zKS>>?tk8xs4nzr87u^OAVy zapU1}d@*C;oI%tF;$g(UlF+<&)eEj~2xgG%oZt<~=rzYu;{&ZnD;1n-y2kob=h|*J z72Mu+_y^8RQpnBR=V=OgnqKS90=r$oh@BvpbPc}vbGb|BUi-LL-V*PN1y|*04)MP9 z#rN;upAr>2`|R1Xmcp7ZzQ`7=jCnZTxeOjx#vad1f&tg1-Ylgm**RS$a_J~zE>K~K8d6cO07mrtCD{R(xPKHN) zli3!wD~KffG~UA)YeGoku_Z>VJaSx$q&zA< z2|RK(fin^O+^$&T@$rbaT#~exQp$MKb{&0I+hfUyH%DZu^9a1;k=SF3``mAj>>oqV$k=uf zb4IaM9`-n;Vc&?>(S)XXAl=v++O)uE(*o~BSUi+8Z$FRq8{-jWQDRZ>{%@SHaxkzMip}EsirDX~f?^je|#<`^aW}y=QZk8~V{4#pLd?Fxn0Yb~cS( zu!p9kpG>BePTJfgG}B_+kMx2CMEE$bYI=y^YX0q zZtwSAZZ3)thnL-1?Fwm(N8K0J?QaR}UBTFJY3%;*(ETS~e(A{&Ljc;0$FA8V?t)R+ z10j?)t<7~9U~`(t6s1zYt4o2P&H_Ol1*d{KE7aOq81D{GlEMwJZZ8UJCHQ)r_V)|i zQ8kuXLhr}9oO(ohOfig7;#*F-#G%9?c7U+3&A1Rr<$H=DcNjHL{xxtqulirJTMIan zvmO`fgie7WZ~JtERyWO9Q4a9U!Dd8nQ18a*ibeCQttT>mTMk+dSH*YKJ$_7t#j5#CZigPImu5 zGafyOI3YA-Gi>0KBP7Lpys?La;(TMT<#BE{_DoCUYlhfNi%ukmW~m?50~+3t3;5;u zx_mo)$|(2vg!GB^@%^&QdFz_hE%c68z~^MSZ01u#Bknu**yNI|CA*T~{x)9xi+|#F z55!)bTS^Mgw!ZHI2Yfw%%di)Or4BDXZRS(!T;2qC9O1WR4YF;1g%yqy?q4^0BvXBA zu2B!$auCafZm$!|MSq0+z54Le;IgQHpMMQ+$l-C>Y#n1Bo}%hsKj}4OQaJe(Y%;^8 zf`2{c{aK@UT!amB58lVly^RyEHtQ!(NW8P{wk4hdkAtnPZSe!N$G1+f#5-S4Oe^4$qduK5xWBWG@L2>;q@wKP1YEj^^@~x zpsH`>YQ|+@u^#O-8$*sWpVNrPsm%I+8vrEYL!(Wps}D-Ay3sE(?)LjdMuZ*lT{iV= zyH32y)<&sFr;4HKFOc!A@;LZbd_B&1XC8M{=kY2m@za{(A^KFn!g0VRNeY~l@~CX66LSH>P$%XBu=dO};9NlBG3Nq;{3zxE>b{k$!(Yi7 z<3VgTnV&m!o3sbd>qskl{t&*FoP~DBoK4a0f>GjQ_>1e|ypHG0g3G`kxeRi08SV{S z(ukQ7%0p=bg6>D};7h0D_d+fZ>t0ANmtFAG?{v5yy*|gvUmfrl2Df0B zlih>U$gdV-bNaGYB13i=Z6rzh1`C8kI=LXvfmNOkb7T~9WCZ;jxGsnOKDjnLcga(~ z-+zOd2;eNpO^%qg$berhG8pTG48}SkV^aNN-5yh!6X5PR&IND>dX>q;?<1SWtsv;m z77ihO6F|A*0ZEo5CS)X7_MP%y5*VuDJDG$14DT@G&Le4IsWz5_^Fkjus>j!#v7BFN zF=x-7J!38Jr+Y@Q+-LSk<-E=*l@r>tk^E-|%B6nQKXvcky(xkA%;U$8{fdq)Yqys6 zSm$yX9FjrCs^vb8IC5>`TgMrLG_y;67CnZojSOfIn@BnY{D7YDHS5gt2b>J_bwYku z;~dTAO(>T{`0*yR33{*HjZ?}~Y??_6zWs}til-X~0q-Q+mw zZ#e|Z-s4o|qcFFW7jkT0F3S3S=^#l;Jl2ov3H4{F!Q}XC u2LCMg6ZRLd!Z2q`9QN0>?44roG6J!`hS)c2W#1I>R6e!ucY7b6Bl;g^06sGS literal 0 HcmV?d00001 diff --git a/Source/ClientHandlesCom/IDE/BoldHandleComReg.RES b/Source/ClientHandlesCom/IDE/BoldHandleComReg.RES new file mode 100644 index 0000000000000000000000000000000000000000..c9a496738c37a3342285e3ff49728fa44922d23b GIT binary patch literal 5608 zcmds5zi-<{6n;($N`QeO+Mxpxc#vbD*YCZ%BgM!dp}4bqBU&B z*bT5EgC(MGpfTnS9nd=M&=$qCPd{KgpbdJ8(Z{q6-4@QCVEk!ueMGCD`I9dJzHr+T zS@jxx|M|Jy8s1QjJtF*5uV)X~17hpZXf(nA-z*=DJz#I|-;mZC10sOxZc`)zUM{gZ zFY$7#!0CCZSFKN~FYZ~jq92>JmB#bSnoiGZKmA%8HeS38w0eFSp3^mj{~YV|#mlTy z%bHP!$NKrNm3t2!UVH_p(`l+7C+Em1AFna{GQAuX zT&91IwC6JYcccq0;pbK^;m7NF{k0kmd3bE~#?4Pv0WP&SG*N zxweh@kCQmYq+#NcBu)}cG#)tC31Sp@*Z{Q-dTI`glidM1K_nD`NZDFs6w0aSWVB5$mtmUY&_vd@e^qjF8hji+bb10RKJkHK{L| z@jT+j3LY63JhJ{h9uKB?+y#q|Q7JdDUze)6Pu~IUL$`-`UB}2?rIOBrTYfGbcI0pi zRx)YUhWc4%4XK`E0tKt^l;@MNs*lG`5A7-RSr_{7xAA!B^!4HC@RipOhpz^M(3n8$ zI$*!w;Y6$I46}|@_;Aq8GUDu1O&GwLsfn8L?6xV*Hhdk z;BQO%qAG(#bK|g*9Fb(bq`yyKB-uhHljD)o^4yTivP|LWDbwIvtuSD$5L1ZMoUsl~ zPNDGw;V(TIP()$=*2n>l$^x>iB5LmA|4v&CV z9k+}ru<;3u9AxwC(IMv`8=s7?8vAqkis!VygK)#Y>9!6ffzl66y{3Sa6P9`9FD2ndUQ= z_}rvtIL0#>olkt0RTK;anpEKE!N(TrIo#28synVa$13Q!_*7CT@eT*U#n{>SwAIwb zCo*gyBv$s6YvPnFV0=!$ue@JJnP2X6x3L{y<8MU^@ZHaUQ@|vD@cWRnfgvZzz}idy zn%nO~Xq|G`$)b(oVr#i`HuglWwXm|cdc_B4FS%El5PocrWc}M7$=bLcNv^HFmq^Dt cp||$7*HwILx$SjvpSWw=>slN4rX$z>2V@IV3IG5A literal 0 HcmV?d00001 diff --git a/Source/ClientHandlesCom/IDE/BoldHandleComReg.rc b/Source/ClientHandlesCom/IDE/BoldHandleComReg.rc index 7c31f801..79959782 100644 --- a/Source/ClientHandlesCom/IDE/BoldHandleComReg.rc +++ b/Source/ClientHandlesCom/IDE/BoldHandleComReg.rc @@ -1,12 +1,12 @@ -TBOLDSYSTEMHANDLECOM BITMAP LOADONCALL TBoldSystemHandleCom.bmp -TBOLDEXPRESSIONHANDLECOM BITMAP LOADONCALL TBoldExpressionHandleCom.bmp -TBOLDLISTHANDLECOM BITMAP LOADONCALL TBoldListHandleCom.bmp -TBOLDSQLHANDLECOM BITMAP LOADONCALL TBoldSQLHandleCom.bmp -TBOLDPLACEABLESUBSCRIBERCOM BITMAP LOADONCALL TBoldPlaceableSubscriberCom.bmp -TBOLDFILTERCOM BITMAP LOADONCALL TBoldFilterCom.bmp -TBOLDCOMPARERCOM BITMAP LOADONCALL TBoldComparerCom.bmp -TBOLDVARIABLEHANDLECOM BITMAP LOADONCALL TBoldVariableHandleCom.bmp -TBOLDREFERENCEHANDLECOM BITMAP LOADONCALL TBoldReferenceHandleCom.bmp -TBOLDCURSORHANDLECOM BITMAP LOADONCALL TBoldCursorHandleCom.bmp -TBOLDDERIVEDHANDLECOM BITMAP LOADONCALL TBoldDerivedHandleCom.bmp -TBOLDVARIABLEDEFINITIONCOM BITMAP LOADONCALL TBoldVariableDefinitionCom.bmp +TBOLDSYSTEMHANDLECOM BITMAP LOADONCALL ..\..\..\Images\ComponentsCom\TBoldSystemHandleCom.bmp +TBOLDEXPRESSIONHANDLECOM BITMAP LOADONCALL ..\..\..\Images\ComponentsCom\TBoldExpressionHandleCom.bmp +TBOLDLISTHANDLECOM BITMAP LOADONCALL ..\..\..\Images\ComponentsCom\TBoldListHandleCom.bmp +TBOLDSQLHANDLECOM BITMAP LOADONCALL ..\..\..\Images\ComponentsCom\TBoldSQLHandleCom.bmp +TBOLDPLACEABLESUBSCRIBERCOM BITMAP LOADONCALL ..\..\..\Images\ComponentsCom\TBoldPlaceableSubscriberCom.bmp +TBOLDFILTERCOM BITMAP LOADONCALL ..\..\..\Images\ComponentsCom\TBoldFilterCom.bmp +TBOLDCOMPARERCOM BITMAP LOADONCALL ..\..\..\Images\ComponentsCom\TBoldComparerCom.bmp +TBOLDVARIABLEHANDLECOM BITMAP LOADONCALL ..\..\..\Images\ComponentsCom\TBoldVariableHandleCom.bmp +TBOLDREFERENCEHANDLECOM BITMAP LOADONCALL ..\..\..\Images\ComponentsCom\TBoldReferenceHandleCom.bmp +TBOLDCURSORHANDLECOM BITMAP LOADONCALL ..\..\..\Images\ComponentsCom\TBoldCursorHandleCom.bmp +TBOLDDERIVEDHANDLECOM BITMAP LOADONCALL ..\..\..\Images\ComponentsCom\TBoldDerivedHandleCom.bmp +TBOLDVARIABLEDEFINITIONCOM BITMAP LOADONCALL ..\..\..\Images\ComponentsCom\TBoldVariableDefinitionCom.bmp diff --git a/Source/Common/ConnectionHandlesCOM/BoldXMLDispatcher.pas b/Source/Common/ConnectionHandlesCOM/BoldXMLDispatcher.pas index 73e4eef5..b4aa967b 100644 --- a/Source/Common/ConnectionHandlesCOM/BoldXMLDispatcher.pas +++ b/Source/Common/ConnectionHandlesCOM/BoldXMLDispatcher.pas @@ -10,7 +10,7 @@ interface BoldUtils, BoldSOAP_TLB, BoldStringList, - MSXML_TLB, + Bold_MSXML_TLB, BoldComServerHandles, BoldDefs, BoldXMLRequests, diff --git a/Source/Extensions/OLLE/Core/__history/BoldOLLEDistributableObjectHandlers.pas.~3~ b/Source/Extensions/OLLE/Core/__history/BoldOLLEDistributableObjectHandlers.pas.~3~ new file mode 100644 index 00000000..460ca398 --- /dev/null +++ b/Source/Extensions/OLLE/Core/__history/BoldOLLEDistributableObjectHandlers.pas.~3~ @@ -0,0 +1,1175 @@ + +{ Global compiler directives } +{$include bold.inc} +unit BoldOLLEDistributableObjectHandlers; + +interface + +uses + Windows, + BoldDefs, + BoldId, + BoldDefaultId, + BoldGlobalId, + DistributableInfo, + BoldValueInterfaces, + BoldValueSpaceInterfaces, + BoldFreeStandingValues, + BoldElements, + BoldSystem, + BoldCondition, + BoldPersistenceControllerDefault, + BoldPMappers, + BoldPMappersDefault, + BoldPersistenceController, + BoldDbInterfaces, + BoldOLLEdmmain; + + + +const + BOLD_OLL_IDATTRIBUTECOLUMN_NAME = 'LOCALID'; + BOLD_OLL_PSIDATTRIBUTECOLUMN_NAME = 'GLOBALID'; + BOLD_OLL_NAMEOFCLASSATTRIBUTECOLUMN_NAME = 'NAMEOFCLASS'; + +type + TBoldPSId = string; + TBoldDistributableObjectHandler = class; + TBoldForeignObjectHandler = class; + TBoldOwnObjecthandler = class; + TBoldBrokenLinkResolver = class; + + TBoldLinkResolveAction = (blraCut, blraAbort, blraFailObject, blraIgnore, blraMissing); + + TBoldBrokenLinkResolver = class + private + fHeldObjectAction: TBoldLinkResolveAction; + fNonheldObjectAction: TBoldLinkResolveAction; + public + function ResolveBrokenLink(ObjectContents: IBoldObjectContents; MemberIndex: Integer; Hold: Boolean): Boolean; + property HeldObjectAction: TBoldLinkResolveAction read fHeldObjectAction write fHeldObjectAction; + property NonheldObjectAction: TBoldLinkResolveAction read fNonheldObjectAction write fNonheldObjectAction; + end; + + TBoldDistributableObjectHandler = class + private + fPController: TBoldPersistenceControllerDefault; + fOllSystem: TBoldSystem; + fBrokenLinkResolver: TBoldBrokenLinkResolver; + fMyTransaction: Boolean; + fTheMapping: TMapping; + function TheMapping: TMapping; + function LookupInfoByLocalId(LocalId: TBoldDefaultId): TDistributableObjectInfo; + procedure AddToMapping(anObj: TDistributableObjectInfo); + procedure GetLocalIdsFor(InfoObjects: TDistributableObjectInfoList; IdList: TBoldObjectIdList); + function GetForeignPSInfo(PSId: TBoldPSId): TForeignPSInfo; + procedure ExtractAllIds(IdList: TBoldObjectIdList; ValueSpace: IBoldValueSpace; OutIdList: TBoldObjectIdList); + procedure Fetch(IdList: TBoldObjectIdList; ValueSpace: IBoldValueSpace); + procedure GetInfoObjectsFor(IdList: TBoldObjectIdList; InfoObjectList: TDistributableObjectInfoList; RemainingIdList: TBoldObjectIdList); + procedure NewOwnInfoObjectsFor(IdList: TBoldObjectIdList; InfoObjectList: TDistributableObjectInfoList); + procedure NewForeignInfoObjectsFor(IdList: TBoldObjectIdList; InfoObjectList: TDistributableObjectInfoList; Owner: TForeignPSInfo; Hold: Boolean = false); + procedure MakeGlobalTranslationListFor(ValueSpace: IBoldValueSpace; IdList: TBoldObjectIdList; GlobalTranslationList: TBoldIdTranslationList); + procedure MakeLocalizingTranslationList(ValueSpace: IBoldValueSpace; GlobalIdList: TBoldObjectIdList; TranslationList: TBoldIdTranslationList); + procedure SearchByOcl(OclExpr: string; IdList: TBoldObjectIdList); + procedure Update(ValueSpace: IBoldValueSpace; IdList: TBoldObjectIdList; TranslationList: TBoldIdTranslationList; var TimeStamp: Integer); + procedure LockAndFreeObjects(IdList, FreeList: TBoldObjectIdList); + procedure VerifyAssociations(ValueSpace: IBoldValueSpace; IdList, HoldList: TBoldObjectIdList); + procedure StartTransaction; + procedure CommitTransaction; + procedure RollbackTransaction; + public + property PController: TBoldPersistenceControllerDefault read fPController write fPController; + property OllSystem: TBoldSystem read fOllSystem write fOllSystem; + property BrokenLinkResolver: TBoldBrokenLinkResolver read fBrokenLinkResolver write fBrokenLinkResolver; + end; + + TBoldForeignObjectHandler = class(TBoldDistributableObjectHandler) + private + procedure PutObjects(ValueSpace: IBoldValueSpace; IdList, HoldList: TBoldObjectIdList; NewLocalTimeStamp: Integer; Owner: TForeignPSInfo); + procedure StartCheckInObjects(ValueSpace: IBoldValueSpace; IdList, ReleaseList: TBoldObjectIdList; Owner: TForeignPSInfo); + procedure ReleaseObjects(ValueSpace: IBoldValueSpace; IdList: TBoldObjectIdList); + procedure UnReleaseObjects(IdList: TBoldObjectIdList); + public + procedure Put(ValueSpace: IBoldValueSpace; IdList: TBoldObjectIdList; HoldList: TBoldObjectIdList; Owner: TBoldPSId); + procedure StartCheckIn(IdList, ReleaseList: TBoldObjectIdList; ValueSpace: IBoldValueSpace; Owner: TBoldPSId); + procedure AcknowledgeCheckIn(Owner: TBoldPSId; NewTimeStamp: Integer); + procedure FailCheckIn(Owner: TBoldPSId); + procedure ObjectsFrom(Owner: TBoldPSId; Objects: TBoldObjectIdList); + procedure HeldObjectsFrom(Owner: TBoldPSId; Objects: TBoldObjectIdList); + procedure ModifiedObjectsFrom(Owner: TBoldPSId; Objects: TBoldObjectIdList); + end; + + TBoldOwnObjectHandler = class(TBoldDistributableObjectHandler) + private + procedure GetObjects(ValueSpace: IBoldValueSpace; IdList, HoldList: TBoldObjectIdList; Holder: TForeignPSinfo); + procedure CheckInObjects(ValueSpace: IBoldValueSpace; IdList, ReleaseList: TBoldObjectIdList; Holder: TForeignPSInfo); + procedure ReserveObjects(ValueSpace: IBoldValueSpace; HoldList: TBoldObjectIdList); + procedure UnCheckOutObjects(IdList: TBoldObjectIdList; Holder: TForeignPSInfo); + procedure InternalGet(IdList, HoldList: TBoldObjectIdList; Holder: TBoldPSId; ValueSpace: IBoldValueSpace); + public + procedure GetSynch(ForeignPS: TBoldPSId; IdList: TBoldObjectIdList; Valuespace: IBoldValueSpace); + procedure AcknowledgeSynch(ForeignPS: TBoldPSId); + procedure FailSynch(ForeignPS: TBoldPSId); + procedure Get(IdList, HoldList: TBoldObjectIdList; Holder: TBoldPSId; ValueSpace: IBoldValueSpace); + procedure CheckIn(ValueSpace: IBoldValueSpace; IdList, ReleaseList: TBoldObjectIdList; Holder: TBoldPSId; var NewTimeStamp: Integer); + procedure UnCheckOut(IdList: TBoldObjectIdList; Holder: TBoldPSId); + end; + +implementation + +uses + SysUtils, + BoldUtils, + BoldDomainElement; + +procedure AddObjectToIdList(aDistributableInfo: TDistributableObjectInfo; anIdList: TBoldObjectIdList); +var + anId: TBoldDefaultId; +begin + anId := TBoldDefaultId.CreateWithClassId(BUSINESSCLASSESROOT_TOPSORTEDINDEX, false); + + anId.AsInteger := aDistributableInfo.LocalId; + anIdList.Add(anId); + + anId.Free; +end; + + +{ TForeignObjectHandler } + +procedure TBoldForeignObjectHandler.PutObjects( + ValueSpace: IBoldValueSpace; IdList, HoldList: TBoldObjectIdList; NewLocalTimeStamp: Integer; Owner: TForeignPSInfo); +var + InfoObjects: TDistributableObjectInfoList; + i: Integer; + anObjectId: TBoldDefaultId; + anObject: TBoldObject; + MissingInfos: TBoldObjectIdList; + aForeignObjectInfo: TForeignObjectInfo; +begin + InfoObjects := TDistributableObjectInfoList.Create; + anObjectId := TBoldDefaultId.Create; + MissingInfos := TBoldObjectIdList.Create; + try + GetInfoObjectsFor(IdList, InfoObjects, MissingInfos); + NewForeignInfoObjectsFor(MissingInfos, InfoObjects, Owner); + for i := 0 to InfoObjects.Count - 1 do + begin + anObject := InfoObjects[i]; + if not (anObject is TForeignObjectInfo) then + raise EBold.CreateFmt('%s.EnsureForeignInfo: Object is not a foreign object', [Classname]); + aForeignObjectInfo := anObject as TForeignObjectInfo; + if not (aForeignObjectInfo.Owner = Owner) then + raise EBold.CreateFmt('%s.EnsureForeignInfo: Wrong owner', [Classname]); + anObjectId.AsInteger := aForeignObjectInfo.LocalId; + aForeignObjectInfo.Put(ValueSpace, HoldList.IdInList[anObjectId], NewLocalTimeStamp); + end; +{ for i := 0 to MissingInfos.Count - 1 do + begin + aForeignObjectInfo := TForeignObjectInfo.Create(OllSystem); + aForeignObjectInfo.LocalId := (MissingInfos[i] as TBoldDefaultId).AsInteger; + aForeignObjectInfo.Owner := Owner; + aForeignObjectInfo.Put(ValueSpace, HoldList.IdInList[MissingInfos[i]], NewLocalTimeStamp); + end;} + finally + InfoObjects.Free; + anObjectId.Free; + MissingInfos.Free; + end; +end; + +procedure TBoldForeignObjectHandler.Put(ValueSpace: IBoldValueSpace; IdList: TBoldObjectIdList; HoldList: TBoldObjectIdList; Owner: TBoldPSId); +var + TranslationList, TranslationList2: TBoldIdTranslationList; + IdList2, HoldList2: TBoldObjectIdList; + NewLocalTimeStamp: Integer; +begin + TranslationList := TBoldIdTranslationList.Create; + TranslationList2 := TBoldIdTranslationList.Create; + IdList2 := IdList.Clone; + HoldList2 := HoldList.Clone; + + try + StartTransaction; + try + MakeLocalizingTranslationList(ValueSpace, IdList, TranslationList); + + ValueSpace.ApplyTranslationList(TranslationList); + IdList2.ApplyTranslationList(TranslationList); + HoldList2.ApplyTranslationList(TranslationList); + + VerifyAssociations(ValueSpace, IdList2, HoldList2); + Update(ValueSpace, IdList2, TranslationList2, NewLocalTimeStamp); + IdList2.ApplyTranslationList(TranslationList2); + HoldList2.ApplyTranslationList(TranslationList2); + + LockAndFreeObjects(IdList2, HoldList2); + PutObjects(ValueSpace, IdList2, HoldList2, NewLocalTimeStamp, GetForeignPSInfo(Owner)); + OllSystem.UpdateDatabase; + + CommitTransaction; + except + RollbackTransaction; + raise; + end; + finally + IdList2.Free; + HoldList2.Free; + TranslationList.Free; + TranslationList2.Free; + end; +end; + +procedure TBoldForeignObjectHandler.ReleaseObjects(ValueSpace: IBoldValueSpace; + IdList: TBoldObjectIdList); +begin + PController.PMSetReadonlyness(IdList, nil); +end; + +procedure TBoldForeignObjectHandler.StartCheckIn(IdList, + ReleaseList: TBoldObjectIdList; ValueSpace: IBoldValueSpace; Owner: TBoldPSId); +var + GlobalTranslationList: TBoldIdTranslationList; + OwnerForeignPSInfo: TForeignPSInfo; +begin + GlobalTranslationList := TBoldIdTranslationList.Create; + try + StartTransaction; + try + OwnerForeignPSInfo := GetForeignPSInfo(Owner); + if OwnerForeignPSInfo.IsCheckingIn then + raise EBold.CreateFmt('%s.StartCheckIn: Already checking in objects for this persistent storage', [Classname]); + Fetch(Idlist, ValueSpace); + StartCheckInObjects(ValueSpace, IdList, ReleaseList, OwnerForeignPSInfo); + ReleaseObjects(ValueSpace, ReleaseList); + + MakeGlobalTranslationListFor(ValueSpace, IdList, GlobalTranslationList); + ValueSpace.ApplytranslationList(GlobalTranslationList); + IdList.ApplyTranslationList(GlobalTranslationList); + ReleaseList.ApplyTranslationList(GlobalTranslationList); + + OllSystem.UpdateDatabase; + + CommitTransaction; + except + RollbackTransaction; + raise; + end; + finally + GlobalTranslationList.Free; + end; +end; + +procedure TBoldForeignObjectHandler.StartCheckInObjects( + ValueSpace: IBoldValueSpace; IdList, ReleaseList: TBoldObjectIdList; Owner: TForeignPSinfo); +var + i: Integer; + InfoObjectList: TDistributableObjectInfoList; + NewInfoObjectList: TBoldObjectIdList; + aDistributableObjectInfo: TDistributableObjectInfo; + anId: TBoldDefaultId; +begin + InfoObjectList := TDistributableObjectInfoList.Create; + NewInfoObjectList := TBoldObjectIdList.Create; + anId := TBoldDefaultID.Create; + try + GetInfoObjectsFor(IdList, InfoObjectList, NewInfoObjectList); + NewForeignInfoObjectsFor(NewInfoObjectList, InfoObjectList, Owner, True); + for i := 0 to InfoObjectList.Count - 1 do + begin + aDistributableObjectInfo := InfoObjectList[i] as TDistributableObjectInfo; + anId.AsInteger := aDistributableObjectInfo.LocalId; + aDistributableObjectInfo.StartCheckIn(ValueSpace, not ReleaseList.IdInList[anId]); + end; + finally + InfoObjectList.Free; + NewInfoObjectList.Free; + anId.Free; + end; +end; + +procedure TBoldForeignObjectHandler.AcknowledgeCheckIn(Owner: TBoldPSId; + NewTimeStamp: Integer); +begin + GetForeignPSInfo(Owner).AcknowledgeCheckIn(NewTimeStamp); + OllSystem.UpdateDatabase; +end; + +procedure TBoldForeignObjectHandler.FailCheckIn(Owner: TBoldPSId); +var + FailedReleaseList: TBoldObjectIdList; +begin + FailedReleaseList := TBoldObjectIdList.Create; + try + StartTransaction; + try + GetForeignPSInfo(Owner).FailCheckIn(FailedReleaseList); + UnReleaseObjects(FailedReleaseList); + OllSystem.UpdateDatabase; + + CommitTransaction; + except + RollbackTransaction; + raise; + end; + finally + FailedReleaseList.Free; + end; +end; + +procedure TBoldForeignObjectHandler.UnReleaseObjects( + IdList: TBoldObjectIdList); +begin + PController.PMSetReadonlyness(nil, IdList); +end; + +procedure TBoldForeignObjectHandler.HeldObjectsFrom(Owner: TBoldPSId; + Objects: TBoldObjectIdList); +var + anObjectList: TForeignObjectInfoList; + i: Integer; +begin + Objects.Clear; + anObjectList := GetForeignPSInfo(Owner).OwnedObjectInfos; + anObjectList.EnsureObjects; + for i := 0 to anObjectList.Count-1 do + if assigned(anObjectList[i].HeldObjectInfo) then + AddObjectToIdList(anObjectList[i], Objects); +end; + +procedure TBoldForeignObjectHandler.ModifiedObjectsFrom(Owner: TBoldPSId; + Objects: TBoldObjectIdList); +var + i: Integer; + anObjectList: TBoldObjectList; + anElement: TBoldIndirectElement; + anObjectIdList: TBoldObjectIdList; + aValueSpace: TBoldFreeStandingValueSpace; + + function DifferentTimeStamp: Boolean; + var + anObjectContents: IBOldObjectContents; + begin + anObjectContents := (aValueSpace as IBoldValueSpace).GetObjectContentsByObjectId(anObjectIdList[i]); + result := anObjectContents.TimeStamp <> + (anObjectList[i] as THeldObjectInfo).OriginalLocalTimeStamp; + end; + +begin + anElement := TBoldIndirectElement.Create; + anObjectIdList := TBoldObjectIdList.Create; + aValueSpace := TBoldFreeStandingValueSpace.Create; + try + GetForeignPSInfo(Owner).EvaluateExpression('ownedObjectInfos.heldObjectInfo', anElement); + anObjectList := anElement.Value as TBoldObjectList; + anObjectList.EnsureObjects; + for i := 0 to anObjectList.Count-1 do + AddObjectToIdList((anObjectList[i] as THeldObjectInfo).ForeignObjectInfo, anObjectIdList); + Fetch(anObjectIdList, aValueSpace); + for i := 0 to anObjectList.Count-1 do + if DifferentTimeStamp then + Objects.Add(anObjectIdList[i]); + finally + anObjectIdList.Free; + aValueSpace.Free; + anElement.Free; + end; +end; + +procedure TBoldForeignObjectHandler.ObjectsFrom(Owner: TBoldPSId; + Objects: TBoldObjectIdList); +var + anObjectList: TForeignObjectInfoList; + i: Integer; +begin + Objects.Clear; + anObjectList := GetForeignPSInfo(Owner).OwnedObjectInfos; + anObjectList.EnsureObjects; + for i := 0 to anObjectList.Count-1 do + AddObjectToIdList(anObjectList[i], Objects); +end; + + +{ TOwnObjectHandler } + +procedure TBoldOwnObjectHandler.AcknowledgeSynch(ForeignPS: TBoldPSId); +var + aForeignPS: TForeignPSInfo; +begin + aForeignPS := GetForeignPSInfo(ForeignPS); + aForeignPS.LastSynchTimestamp := aForeignPS.OngoingSynchTimestamp; + aForeignPS.OngoingSynchTimestamp := -1; + OllSystem.UpdateDatabase; +end; + +procedure TBoldOwnObjectHandler.CheckIn(ValueSpace: IBoldValueSpace; IdList, + ReleaseList: TBoldObjectIdList; Holder: TBoldPSId; var NewTimeStamp: Integer); +var + TranslationList, TranslationList2: TBoldIdTranslationList; + IdList2, ReleaseList2: TBoldObjectIdList; +begin + TranslationList := TBoldIdTranslationList.Create; + TranslationList2 := TBoldIdTranslationList.Create; + IdList2 := IdList.Clone; + ReleaseList2 := ReleaseList.Clone; + + try + StartTransaction; + try + MakeLocalizingTranslationList(ValueSpace, IdList, TranslationList); + + ValueSpace.ApplyTranslationList(TranslationList); + IdList2.ApplyTranslationList(TranslationList); + ReleaseList2.ApplyTranslationList(TranslationList); + + VerifyAssociations(ValueSpace, IdList2, IdList2); + Update(ValueSpace, IdList2, TranslationList2, NewTimeStamp); + IdList2.ApplyTranslationList(TranslationList2); + ReleaseList2.ApplyTranslationList(TranslationList2); + + LockAndFreeObjects(IdList2, ReleaseList2); + CheckInObjects(ValueSpace, IdList2, ReleaseList2, GetForeignPSInfo(Holder)); + OllSystem.UpdateDatabase; + + CommitTransaction; + except + RollbackTransaction; + raise; + end; + finally + IdList2.Free; + ReleaseList2.Free; + TranslationList.Free; + TranslationList2.Free; + end; +end; + +procedure TBoldOwnObjectHandler.CheckInObjects(ValueSpace: IBoldValueSpace; + IdList, ReleaseList: TBoldObjectIdList; Holder: TForeignPSInfo); +var + InfoObjects: TDistributableObjectInfoList; + NewInfoIds: TBoldObjectIdList; + i: Integer; + anObject: TBoldObject; + anOwnObjectInfo: TOwnObjectInfo; + anObjectId: TBoldDefaultId; +begin + InfoObjects := TDistributableObjectInfoList.Create; + NewInfoIds := TBoldObjectIdList.Create; + anObjectId := TBoldDefaultId.Create; + try + GetInfoObjectsFor(IdList, InfoObjects, NewInfoIds); + for i := 0 to InfoObjects.Count - 1 do + begin + anObject := InfoObjects[i]; + if not (anObject is TOwnObjectInfo) then + raise EBold.CreateFmt('%s.CheckInObjects: Object is not an owned object', [Classname]); + anOwnObjectInfo := anObject as TOwnObjectInfo; + anObjectId.AsInteger := anOwnObjectInfo.LocalId; + anOwnObjectInfo.CheckIn(ValueSpace, ReleaseList.IdInList[anObjectId], Holder); + end; + for i := 0 to NewInfoIds.Count - 1 do + begin + anOwnObjectInfo := TOwnObjectInfo.Create(OllSystem); + anOwnObjectInfo.LocalId := (NewInfoIds[i] as TBoldDefaultId).AsInteger; + AddToMapping(anOwnObjectInfo); + anOwnObjectInfo.CheckedOutObjectInfo := TCheckedOutObjectInfo.Create(OllSystem); + anOwnObjectInfo.CheckedOutObjectInfo.Holder := Holder; + anOwnObjectInfo.CheckIn(ValueSpace, ReleaseList.IdInList[NewInfoIds[i]], Holder); + end; + finally + InfoObjects.Free; + NewInfoIds.Free; + anObjectId.Free; + end; +end; + +procedure TBoldOwnObjectHandler.FailSynch(ForeignPS: TBoldPSId); +begin + GetForeignPSInfo(ForeignPS).OngoingSynchTimestamp := -1; + OllSystem.UpdateDatabase; +end; + +procedure TBoldOwnObjectHandler.Get(IdList, HoldList: TBoldObjectIdList; + Holder: TBoldPSId; ValueSpace: IBoldValueSpace); +begin + StartTransaction; + try + InternalGet(IdList, HoldList, Holder, ValueSpace); + + OllSystem.UpdateDatabase; + CommitTransaction; + except + RollbackTransaction; + raise; + end; +end; + +procedure TBoldOwnObjectHandler.GetObjects(ValueSpace: IBoldValueSpace; IdList, + HoldList: TBoldObjectIdList; Holder: TForeignPSInfo); +var + i: Integer; + InfoObjectList: TDistributableObjectInfoList; + NewInfoObjectList: TBoldObjectIdList; + aDistributableObjectInfo: TDistributableObjectInfo; + anId: TBoldDefaultId; +begin + InfoObjectList := TDistributableObjectInfoList.Create; + NewInfoObjectList := TBoldObjectIdList.Create; + anId := TBoldDefaultID.Create; + try + GetInfoObjectsFor(IdList, InfoObjectList, NewInfoObjectList); + NewOwnInfoObjectsFor(NewInfoObjectList, InfoObjectList); + for i := 0 to InfoObjectList.Count - 1 do + begin + aDistributableObjectInfo := InfoObjectList[i]; + anId.AsInteger := aDistributableObjectInfo.LocalId; + aDistributableObjectInfo.Get(ValueSpace, HoldList.IdInList[anId], Holder); + end; + finally + InfoObjectList.Free; + NewInfoObjectList.Free; + anId.Free; + end; +end; + +procedure TBoldOwnObjectHandler.GetSynch(ForeignPS: TBoldPSId; + IdList: TBoldObjectIdList; Valuespace: IBoldValueSpace); +var + aCond: TBoldTimestampCondition; + i: Integer; + HoldList: TBoldObjectIdList; + MaxTimestamp: Integer; + aTimestamp: Integer; + aForeignPS: TForeignPSInfo; + InfoObjects: TDistributableObjectInfoList; + ChangedObjects: TBoldObjectIdList; + MissingIds: TBoldObjectIdList; +begin + StartTransaction; + try + aForeignPS := GetForeignPSInfo(ForeignPS); + if aForeignPS.IsSynching then + raise EBold.CreateFmt('%s.GetSynch: There is already an ongoing synch that must either be acknowledged or failed.', [classname]); + + ChangedObjects := TBoldObjectIdList.Create; + HoldList := TBoldObjectIdList.Create; + aCond := TBoldTimestampCondition.create; + InfoObjects := TDistributableObjectInfoList.Create; + MissingIds := TBoldObjectIdList.Create; + try + aCond.Timestamp := aForeignPS.LastSynchTimestamp; + fPController.PMFetchIDListWithCondition(ChangedObjects, Valuespace, fmDistributable, aCond, -1); + GetInfoObjectsFor(ChangedObjects, InfoObjects, MissingIds); + NewOwnInfoObjectsFor(MissingIds, InfoObjects); + for i := InfoObjects.Count-1 downto 0 do + if not (InfoObjects[i] is TOwnObjectInfo) then + InfoObjects.RemoveByIndex(i); + + GetLocalIdsFor(InfoObjects, IdList); + InternalGet(IdList, HoldList, ForeignPS, ValueSpace); + MaxTimestamp := 0; + for i := 0 to IdList.Count-1 do + begin + aTimestamp := Valuespace.ObjectContentsByObjectId[IdList[i]].TimeStamp; + if aTimestamp > MaxTimestamp then + MaxTimestamp := aTimestamp; + end; + aForeignPS.OngoingSynchTimestamp := MaxTimestamp; + finally + ChangedObjects.Free; + HoldList.Free; + aCond.Free; + InfoObjects.Free; + end; + + OllSystem.UpdateDatabase; + CommitTransaction; + except + RollbackTransaction; + raise; + end; +end; + +procedure TBoldOwnObjectHandler.InternalGet(IdList, + HoldList: TBoldObjectIdList; Holder: TBoldPSId; + ValueSpace: IBoldValueSpace); +var + GlobalTranslationList: TBoldIdTranslationList; +begin + GlobalTranslationList := TBoldIdTranslationList.Create; + try + Fetch(Idlist, ValueSpace); + GetObjects(ValueSpace, IdList, HoldList, GetForeignPSInfo(Holder)); + ReserveObjects(ValueSpace, HoldList); + + MakeGlobalTranslationListFor(ValueSpace, IdList, GlobalTranslationList); + ValueSpace.ApplytranslationList(GlobalTranslationList); + IdList.ApplyTranslationList(GlobalTranslationList); + HoldList.ApplyTranslationList(GlobalTranslationList); + finally + GlobalTranslationList.Free; + end; +end; + +procedure TBoldOwnObjectHandler.ReserveObjects(ValueSpace: IBoldValueSpace; + HoldList: TBoldObjectIdList); +begin + PController.PMSetReadonlyness(HoldList, nil); +end; + + +procedure TBoldOwnObjectHandler.UnCheckOut(IdList: TBoldObjectIdList; + Holder: TBoldPSId); +var + EmptyIdList: TBoldObjectIdList; + TranslationList: TBoldIdTranslationList; +begin + TranslationList := TBoldIDTranslationList.Create; + EmptyIdList := TBoldObjectIdList.Create; + try + StartTransaction; + try + PController.PMTranslateToLocalIds(IdList, TranslationList); + IdList.ApplyTranslationList(TranslationList); + UnCheckOutObjects(IdList, GetForeignPSInfo(Holder)); + LockAndFreeObjects(EmptyIdList, IdList); + OllSystem.UpdateDatabase; + + CommitTransaction; + except + RollbackTransaction; + raise; + end; + finally + TranslationList.Free; + EmptyIdList.Free; + end; +end; + +procedure TBoldOwnObjectHandler.UnCheckOutObjects(IdList: TBoldObjectIdList; + Holder: TForeignPSInfo); +var + InfoObjects: TDistributableObjectInfoList; + i: Integer; + anOwnObjectInfo: TOwnObjectInfo; + MissingList: TBoldObjectIdList; +begin + InfoObjects := TDistributableObjectInfoList.Create; + MissingList := TBoldObjectIdList.Create; + try + GetInfoObjectsFor(IdList, InfoObjects, MissingList); + for i := 0 to InfoObjects.Count - 1 do + begin + if not (InfoObjects[i] is TOwnObjectInfo) then + raise EBold.CreateFmt('%s.UnCheckOutObjects: Object is not an owned object', [Classname]); + anOwnObjectInfo := InfoObjects[i] as TOwnObjectInfo; + anOwnObjectInfo.UnCheckOut(Holder); + end; + finally + InfoObjects.Free; + MissingList.Free; + end; +end; + +{ TDistributableObjectHandler } + +function TBoldDistributableObjectHandler.GetForeignPSInfo( + PSId: TBoldPSId): TForeignPSInfo; +var + aCondition: TBoldSQLCondition; + PSInfoObjectIdList: TBoldObjectIdList; + aLocator: TBoldObjectLocator; +begin + aCondition := TBoldSQLCondition.Create; + PSInfoObjectIdList := TBoldObjectIdList.Create; + try +{ if assigned(OllSystem.PersistenceController) then + begin + aCondition.TopSortedIndex := OllSystem.BoldSystemTypeInfo.ClassTypeInfoByModelName['ForeignPSInfo'].TopSortedIndex; + aCondition.WhereFragment := BOLD_OLL_PSIDATTRIBUTECOLUMN_NAME + ' = ''' + PSId + ''''; + OllSystem.PersistenceController.PMFetchIDListWithCondition(PSInfoObjectIdList, OllSystem.AsIBoldvalueSpace[bdepPMIn], fmNormal, aCondition, 0); + end else} + SearchByOcl('ForeignPSInfo.allInstances->select(globalId = ''' + PSId + ''')', PSInfoObjectIdList); + if PSInfoObjectIdList.Count = 0 then + begin + result := TForeignPSInfo.Create(OllSystem); + result.GlobalID := PSId; + end else + begin + assert(PSInfoObjectIdList.Count = 1); + aLocator := OllSystem.EnsuredLocatorByID[PSInfoObjectIdList[0]]; + aLocator.EnsureBoldObject; + result := aLocator.BoldObject as TForeignPSInfo; + end; + finally + aCondition.Free; + PSInfoObjectIdList.Free; + end; +end; + +procedure TBoldDistributableObjectHandler.ExtractAllIds(IdList: TBoldObjectIdList; + ValueSpace: IBoldValueSpace; OutIdList: TBoldObjectIdList); + + procedure EnsureIdInList(Id: TBoldObjectId; IdList: TBoldObjectIdList); + begin + if assigned(Id) and + not IdList.IdInList[Id] then + IdList.Add(Id); + end; + +var + i, j: Integer; + anObject: IBoldObjectContents; + aValue: IBoldValue; + IdRef: IBoldObjectIdRef; + IdRefPair: IBoldObjectIdRefPair; +begin + for i := 0 to IdList.Count - 1 do + begin + EnsureIdInList(IdList[i], OutIdList); + anObject := ValueSpace.ObjectContentsByObjectId[IdList[i]]; + if not assigned(anObject) then + anObject := ValueSpace.ObjectContentsByObjectId[IdList[i]]; + for j := 0 to anObject.MemberCount - 1 do + begin + aValue := anObject.ValueByIndex[j]; + if assigned(aValue) then + if aValue.QueryInterface(IBoldObjectIdRef, IdRef) = S_OK then + EnsureIdInList(IdRef.Id, OutIdList) + else if aValue.QueryInterface(IBoldObjectIdRefPair, IdRefPair) = S_OK then + begin + EnsureIdInList(IdRefPair.Id1, OutIdList); + EnsureIdInList(IdRefPair.Id2, OutIdList); + end; + end; + end; +end; + +procedure TBoldDistributableObjectHandler.Fetch(IdList: TBoldObjectIdList; + ValueSpace: IBoldValueSpace); +begin + PController.PMFetch(IdList, ValueSpace, nil, fmDistributable, 0); +end; + +procedure TBoldDistributableObjectHandler.MakeGlobalTranslationListFor( + ValueSpace: IBoldValueSpace; IdList: TBoldObjectIdList; + GlobalTranslationList: TBoldIdTranslationList); +var + anIdList: TBoldObjectIdList; +begin + anIdList := TBoldObjectIdList.Create; + try + ExtractAllIds(IdList, ValueSpace, anIdList); + PController.PMTranslateToGlobalIds(anIdList, GlobalTranslationList); + finally + anIdList.Free; + end; +end; + +procedure TBoldDistributableObjectHandler.GetInfoObjectsFor(IdList: TBoldObjectIdList; + InfoObjectList: TDistributableObjectInfoList; RemainingIdList: TBoldObjectIdList); + + function IdListToSQL(IdList: TBoldObjectIdList): string; + var + i: Integer; + begin + result := IdList[0].AsString; + for i := 1 to IdList.Count - 1 do + result := result + ', ' + IdList[i].AsString; + end; + +var + aCondition: TBoldSQLCondition; + i: Integer; + InfoObj: TDistributableObjectInfo; + RemainingIds: TBoldObjectIdList; + FoundIds: TBoldObjectIdList; + FetchedInfoObjs: TDistributableObjectInfoList; +begin + RemainingIds := IdList.Clone; + FetchedInfoObjs := TDistributableObjectInfoList.Create; + try + for i := RemainingIds.Count-1 downto 0 do + begin + InfoObj := LookupInfoByLocalId(RemainingIds[i] as TBoldDefaultId); + if assigned(InfoObj) then + begin + InfoObjectList.Add(InfoObj); + RemainingIds.RemoveByIndex(i); + end; + end; + + if (RemainingIds.Count > 0) and + assigned(OllSystem.PersistenceController) then + begin + aCondition := TBoldSQLCondition.Create; + FoundIds := TBoldObjectIdList.Create; + try + aCondition.TopSortedIndex := OllSystem.BoldSystemTypeInfo.ClassTypeInfoByModelName['DistributableObjectInfo'].TopSortedIndex; + aCondition.WhereFragment := BOLD_OLL_IDATTRIBUTECOLUMN_NAME + ' IN (' + IdListToSQL(RemainingIds) + ')'; + OllSystem.GetAllWithCondition(FetchedInfoObjs, aCondition); + FetchedInfoObjs.EnsureObjects; + for i := 0 to FetchedInfoObjs.Count-1 do + AddToMapping(FetchedInfoObjs[i]); + GetLocalIdsFor(FetchedInfoObjs, FoundIds); + for i := 0 to FoundIds.Count-1 do + RemainingIds.Remove(RemainingIds.IDByID[FoundIds[i]]); + InfoObjectList.AddList(FetchedInfoObjs); + finally + aCondition.Free; + FoundIds.Free; + end; + end; + + RemainingIdList.AddList(RemainingIds); + + finally + RemainingIds.Free; + FetchedInfoObjs.Free; + end; +end; + +procedure TBoldDistributableObjectHandler.MakeLocalizingTranslationList( + ValueSpace: IBoldValueSpace; + GlobalIdList: TBoldObjectIdList; + TranslationList: TBoldIdTranslationList); +var + AllIdList: TBoldObjectIdList; +begin + AllIdList := TBoldObjectIdList.Create; + try + ExtractAllIds(GlobalIdList, ValueSpace, AllIdList); + PController.PMTranslateToLocalIds(AllIdList, TranslationList); + finally + AllIdList.Free; + end; +end; + +procedure TBoldDistributableObjectHandler.Update(ValueSpace: IBoldValueSpace; + IdList: TBoldObjectIdList; TranslationList: TBoldIdTranslationList; + var TimeStamp: Integer); +var + anObject: IBoldObjectContents; + i, j: Integer; +begin + for i := IdList.Count-1 downto 0 do + begin + anObject := ValueSpace.ObjectContentsByObjectId[IdList[i]]; + for j := 0 to anObject.MemberCount-1 do + anObject.ValueByIndex[j].BoldPersistenceState := bvpsModified; + if IdList[i] is TBoldGlobalId then + begin + if anObject.BoldExistenceState = besDeleted then + IdList.RemoveByIndex(i) + else + begin + anObject.BoldExistenceState := besExisting; + anObject.BoldPersistenceState := bvpsModified; + end; + end else if anObject.BoldExistenceState = besDeleted then + begin + anObject.BoldPersistenceState := bvpsModified; + end; + end; + PController.PMUpdate(IdList, ValueSpace, nil, nil, TranslationList, TimeStamp, TimeStamp, 0); +end; + +procedure TBoldDistributableObjectHandler.LockAndFreeObjects(IdList, + FreeList: TBoldObjectIdList); +var + ReadOnlyList: TBoldObjectIdList; + i: Integer; +begin + ReadOnlyList := IdList.Clone; + try + for i := 0 to FreeList.Count-1 do + ReadOnlyList.Remove(ReadOnlyList.IDByID[FreeList[i]]); + PController.PMSetReadonlyness(ReadOnlyList, FreeList); + finally + ReadOnlyList.Free; + end; +end; + +{ +function TBoldDistributableObjectHandler.NewLocalClassIdFor( + ClassId: TBoldClassIdWithExpressionName): TBoldClassId; +var + i: Integer; + PMapper: TBoldSystemPersistenceMapper; +begin + PMapper := (PController as TBoldPersistenceControllerDefault).PersistenceMapper; + i := 0; + while (i < PMapper.ObjectPersistenceMappers.Count) and + not (PMapper.ObjectPersistenceMappers[i].ExpressionName = ClassId.ExpressionName) do + inc(i); + if not (PMapper.ObjectPersistenceMappers[i].ExpressionName = ClassId.ExpressionName) then + raise EBold.CreateFmt('%s.NewLocalClassIdFor: There is no class with expressionname "%s"', [Classname, ClassId.ExpressionName]); + result := TBoldClassID.CreateWithInfo(True, i); +end; +} +procedure TBoldDistributableObjectHandler.VerifyAssociations( + ValueSpace: IBoldValueSpace; IdList, HoldList: TBoldObjectIdList); +var + i: Integer; + anObject: IBoldObjectContents; + + procedure VerifyObjectRoles(ObjectContents: IBoldObjectContents); + + procedure CascadeToNeighbours; + + procedure VerifyAllInList(anIdList: TBoldObjectIdList); + var + i: Integer; + begin + for i := 0 to anIdList.Count-1 do + begin + if ValueSpace.HasContentsForId[anIdList[i]] then + VerifyObjectRoles(ValueSpace.ObjectContentsByObjectId[anIdList[i]]); + end; + end; + + var + k: Integer; + aMember: IBoldValue; + anIdRef: IBoldObjectIdRef; + anIdRefPair: IBoldObjectIdRefPair; + anIdListRef: IBoldObjectIdListRef; + anIdListRefPair: IBoldObjectIdListRefPair; + begin + for k := 0 to ObjectContents.MemberCount-1 do + begin + aMember := ObjectContents.ValueByIndex[k]; + if assigned(aMember) then + begin + if (aMember.QueryInterface(IBoldObjectIdRef, anIdRef) = S_OK) then + begin + if ValueSpace.HasContentsForId[anIdRef.Id] then + VerifyObjectRoles(ValueSpace.ObjectContentsByObjectId[anIdRef.Id]); + end else if (aMember.QueryInterface(IBoldObjectIdRefPair, anIdRefPair) = S_OK) then + begin + if ValueSpace.HasContentsForId[anIdRefPair.Id1] then + VerifyObjectRoles(ValueSpace.ObjectContentsByObjectId[anIdRefPair.Id1]); + if ValueSpace.HasContentsForId[anIdRefPair.Id2] then + VerifyObjectRoles(ValueSpace.ObjectContentsByObjectId[anIdRefPair.Id2]); + end else if aMember.QueryInterface(IBoldObjectIdListRef, anIdListRef) = S_OK then + begin + end else if aMember.QueryInterface(IBoldObjectIdListRefPair, anIdListRefPair) = S_OK then + begin + + end; + end; + end; + end; + + var + j: integer; + aMember: IBoldValue; + anIdRef: IBoldObjectIdRef; + anIdRefPair: IBoldObjectIdRefPair; + begin + for j := 0 to ObjectContents.MemberCount-1 do + begin + aMember := ObjectContents.ValueByIndex[j]; + if assigned(aMember) then + begin + if ((aMember.QueryInterface(IBoldObjectIdRef, anIdRef) = S_OK) and + (anIdRef.Id is TBoldGlobalId) and + (not ValueSpace.HasContentsForId[anIdRef.Id])) or + ((aMember.QueryInterface(IBoldObjectIdRefPair, anIdRefPair) = S_OK) and + (anIdRefPair.Id1 is TBoldGlobalId) and + (not ValueSpace.HasContentsForId[anIdRefPair.Id1])) then + if assigned(BrokenLinkResolver) then + begin + if not BrokenLinkResolver.ResolveBrokenLink(ObjectContents, j, HoldList.IdInList[IdList[i]]) then + begin + raise EBoldFeatureNotImplementedYet.CreateFmt('%s.VerifyAssociations: Failing inidividual objects not implemented', [classname]); + + end; + end else + raise EBold.Create('Operation failed: Unresolved link'); + end; + end; + end; + +begin + for i := 0 to IdList.Count-1 do + begin + anObject := ValueSpace.ObjectContentsByObjectId[Idlist[i]]; + if assigned(anObject) then + VerifyObjectRoles(anObject); + end; +end; + + +procedure TBoldDistributableObjectHandler.SearchByOcl(OclExpr: string; + IdList: TBoldObjectIdList); +var + anElement: TBoldIndirectElement; + anObjectList: TBoldObjectList; + i: integer; +begin + anElement := TBoldIndirectElement.Create; + try + OllSystem.EvaluateExpression(OclExpr, anElement); + anObjectList := anElement.Value as TBoldObjectList; + for i := 0 to anObjectList.Count-1 do + IdList.Add(anObjectList.Locators[i].BoldObjectID); + finally + anElement.Free; + end; +end; + +procedure TBoldDistributableObjectHandler.CommitTransaction; +begin + if fMyTransaction then + PController.CommitTransaction; + fMyTransaction := false; +end; + +procedure TBoldDistributableObjectHandler.RollbackTransaction; +begin + if fMyTransaction then + PController.RollbackTransaction; + fMyTransaction := false; +end; + +procedure TBoldDistributableObjectHandler.StartTransaction; +begin + if not PController.InTransaction then + begin + PController.StartTransaction; + fMyTransaction := true; + end; +end; +{ +function TBoldDistributableObjectHandler.GetDatabase: IBoldDatabase; +begin + result := ((PController as TBoldPersistenceControllerDefault).PersistenceMapper as TBoldSystemDefaultMapper).Database; +end; + } +{ TBoldBrokenLinkResolver } + +function TBoldBrokenLinkResolver.ResolveBrokenLink( + ObjectContents: IBoldObjectContents; MemberIndex: Integer; + Hold: Boolean): Boolean; +var + ResolveAction: TBoldLinkResolveAction; + + procedure Cut; + var + aMember: IBoldValue; + anIdRef: IBoldObjectIdRef; + anIdRefPair: IBoldObjectIdrefPair; + begin + aMember := ObjectContents.ValueByIndex[MemberIndex]; + if (aMember.QueryInterface(IBoldObjectIdRef, anIdRef) = S_OK) then + anIdRef.SetFromId(nil, false) + else if (aMember.QueryInterface(IBoldObjectIdRefPair, anIdRefPair) = S_OK) then + anIdRefPair.SetFromIds(nil, nil) + else + raise EBoldInternal.CreateFmt('%.ResolveBrokenLink: Member is not a singlelink', [Classname]); + end; + +begin + result := True; + if Hold then + ResolveAction := HeldObjectAction + else + ResolveAction := NonheldObjectAction; + + case ResolveAction of + blraCut: Cut; + blraAbort: raise EBold.Create('Operation failed: Unresolved link'); + blraFailObject: result := False; + blraIgnore:; + blraMissing: raise EBoldFeatureNotImplementedYet.Create('Missing Objects not implemented'); + end; +end; + +procedure TBoldDistributableObjectHandler.GetLocalIdsFor( + InfoObjects: TDistributableObjectInfoList; IdList: TBoldObjectIdList); +var + TempId: TBoldDefaultId; + i: Integer; +begin + TempId := TBoldDefaultID.CreateWithClassID(0, false); + try + for i := 0 to InfoObjects.Count-1 do + begin + TempId.AsInteger := InfoObjects[i].LocalId; + IdList.Add(TempId); + end; + finally + TempId.Free; + end; +end; + +procedure TBoldDistributableObjectHandler.NewOwnInfoObjectsFor( + IdList: TBoldObjectIdList; InfoObjectList: TDistributableObjectInfoList); +var + anOwnObjectInfo: TOwnObjectInfo; + i: integer; +begin + for i := IdList.Count-1 downto 0 do + begin + anOwnObjectInfo := TOwnObjectInfo.Create(OllSystem); + anOwnObjectInfo.LocalId := (IdList[i] as TBoldDefaultId).AsInteger; + AddToMapping(anOwnObjectInfo); + InfoObjectList.Add(anOwnObjectInfo); + end; +end; + +procedure TBoldDistributableObjectHandler.NewForeignInfoObjectsFor( + IdList: TBoldObjectIdList; InfoObjectList: TDistributableObjectInfoList; Owner: TForeignPSInfo; Hold: Boolean = false); +var + i: Integer; + aForeignObjectInfo: TForeignObjectInfo; +begin + for i := 0 to IdList.Count - 1 do + begin + aForeignObjectInfo := TForeignObjectInfo.Create(OllSystem); + if Hold then + aForeignObjectInfo.InitializeHolding(IdList[i], Owner) + else + begin + aForeignObjectInfo.LocalId := (IdList[i] as TBoldDefaultId).AsInteger; + aForeignObjectInfo.Owner := Owner; + end; + AddToMapping(aForeignObjectInfo); + InfoObjectList.Add(aForeignObjectInfo); + end; +end; + +function TBoldDistributableObjectHandler.LookupInfoByLocalId( + LocalId: TBoldDefaultId): TDistributableObjectInfo; +begin + result := TheMapping.ObjectInfo[LocalId.AsInteger]; +end; + +function TBoldDistributableObjectHandler.TheMapping: TMapping; +var + Mappings: TBoldObjectList; +begin + if not assigned(fTheMapping) then + begin + Mappings := fOllSystem.ClassByExpressionName['Mapping']; + if Mappings.Count = 0 then + fTheMapping := TMapping.Create(fOllSystem) + else + begin + assert(Mappings.Count = 1); + fTheMapping := Mappings[0] as TMapping; + end; + end; + result := fTheMapping; +end; + +procedure TBoldDistributableObjectHandler.AddToMapping( + anObj: TDistributableObjectInfo); +begin + TheMapping.M_ObjectInfo.Add(anObj); +end; + +initialization +end. diff --git a/Source/Persistence/BDE/BoldPersistenceHandleBde.RES b/Source/Persistence/BDE/BoldPersistenceHandleBde.RES new file mode 100644 index 0000000000000000000000000000000000000000..3263cc293b8761deb780fcceb9590e034336bed8 GIT binary patch literal 972 zcmc(cv2NQi5Qcvjh6OEwxCHf>b{V$;jI>Dn02&Au-aHhLyLq!b#Q};$_ck6h z>VeWp{mGL8H$bw6@bP|rJRd3k0C2%*TMf$pMmYd}khJXwEHT4(EMQ44af4f2F_zTV z_`>-crc{;{m#nm$b$rJ8uy6W_;$s&BD8Aqs^_fOrr+EwThwWAqXG+Ev$K#P3;nE?s znmFrsv{?P|cJA!l`;~~y=gxT!k(E5Crf}SF&IasVShI%7JA$Bzy|ZD%UJ+{p#X)l; zRO{d&vPKaXJh6Hz*Q2-)xoda3walg!;gLW@aphRI0K-ejv^g5%M$}%YByo zma2d`h?p$diC{e@HW@a5~C!4)Ii0t?KkuLxqQdL#b-RhpzQSuvt zuZ#F}r@mS`xMa*2xAbpH7pHVPczpBjp3)8o2ITO!Bb#JZlk9rQ%+C$(#q*+(6K%};YPWwfyp>>#6BHw_y_XPKgXiR S$fUieh0mTn^*(g(FaHmYT^Wi1 literal 0 HcmV?d00001 diff --git a/Source/Persistence/BDE/BoldPersistenceHandleBde.rc b/Source/Persistence/BDE/BoldPersistenceHandleBde.rc index cbc9c495..f2449cf8 100644 --- a/Source/Persistence/BDE/BoldPersistenceHandleBde.rc +++ b/Source/Persistence/BDE/BoldPersistenceHandleBde.rc @@ -1,2 +1,2 @@ -TBOLDPERSISTENCEHANDLEBDE BITMAP LOADONCALL TBoldPersistenceHandleBde.bmp -TBOLDDATABASEADAPTERBDE BITMAP LOADONCALL TBoldDatabaseAdapterBde.bmp +TBOLDPERSISTENCEHANDLEBDE BITMAP LOADONCALL ..\..\..\Images\Components\TBoldPersistenceHandleBde.bmp +TBOLDDATABASEADAPTERBDE BITMAP LOADONCALL ..\..\..\Images\Components\TBoldDatabaseAdapterBde.bmp diff --git a/Source/Persistence/SOAP/BoldPersistenceControllerSOAPAdapterCore.pas b/Source/Persistence/SOAP/BoldPersistenceControllerSOAPAdapterCore.pas index 8bc0ef18..df45497b 100644 --- a/Source/Persistence/SOAP/BoldPersistenceControllerSOAPAdapterCore.pas +++ b/Source/Persistence/SOAP/BoldPersistenceControllerSOAPAdapterCore.pas @@ -27,7 +27,7 @@ implementation uses SysUtils, - {$IFDEF OXML}OXmlPDOM{$ELSE}MSXML_TLB{$ENDIF}, + {$IFDEF OXML}OXmlPDOM{$ELSE}Bold_MSXML_TLB{$ENDIF}, BoldDefs, BoldXMLStreaming, BoldRev diff --git a/Source/Persistence/SOAP/BoldPersistenceOperationXMLStreaming.pas b/Source/Persistence/SOAP/BoldPersistenceOperationXMLStreaming.pas index c9e79dcc..487429fa 100644 --- a/Source/Persistence/SOAP/BoldPersistenceOperationXMLStreaming.pas +++ b/Source/Persistence/SOAP/BoldPersistenceOperationXMLStreaming.pas @@ -197,7 +197,7 @@ TBoldPMTimeForTimestampOperation = class(TBoldPersistenceOperation) implementation uses - {$IFDEF OXML}OXmlPDOM{$ELSE}MSXML_TLB{$ENDIF}, + {$IFDEF OXML}OXmlPDOM{$ELSE}Bold_MSXML_TLB{$ENDIF}, SysUtils, BoldDefaultStreamNames; diff --git a/Source/UMLModel/Handles/BoldUMLModelStreamer.pas b/Source/UMLModel/Handles/BoldUMLModelStreamer.pas index 44fd0e47..3c51340a 100644 --- a/Source/UMLModel/Handles/BoldUMLModelStreamer.pas +++ b/Source/UMLModel/Handles/BoldUMLModelStreamer.pas @@ -20,7 +20,7 @@ TUMLModelStreamer = class implementation uses - {$IFDEF OXML}OXmlPDOM, OTextReadWrite{$ELSE}MSXML_TLB{$ENDIF}, + {$IFDEF OXML}OXmlPDOM, OTextReadWrite{$ELSE}Bold_MSXML_TLB{$ENDIF}, BoldXMLStreaming, BoldDefaultXMLStreaming, BoldDomainElement, diff --git a/Source/UMLModel/ModelLinks/ModelMaker/MMPlugin/BoldMMTVDefGen.pas b/Source/UMLModel/ModelLinks/ModelMaker/MMPlugin/BoldMMTVDefGen.pas index dbc9a64e..d5b98584 100644 --- a/Source/UMLModel/ModelLinks/ModelMaker/MMPlugin/BoldMMTVDefGen.pas +++ b/Source/UMLModel/ModelLinks/ModelMaker/MMPlugin/BoldMMTVDefGen.pas @@ -8,7 +8,7 @@ interface uses BoldDefaultTaggedValues, BoldUMLTaggedValues, - MSXML_TLB, + Bold_MSXML_TLB, BoldTaggedValueList; type diff --git a/Source/UMLModel/ModelLinks/XMI/BoldMOFInterfaces.pas b/Source/UMLModel/ModelLinks/XMI/BoldMOFInterfaces.pas index a0a1846d..9e3f14eb 100644 --- a/Source/UMLModel/ModelLinks/XMI/BoldMOFInterfaces.pas +++ b/Source/UMLModel/ModelLinks/XMI/BoldMOFInterfaces.pas @@ -6,7 +6,7 @@ interface uses - MSXML_TLB; + Bold_MSXML_TLB; type IBoldMOFObject = interface; diff --git a/Source/UMLModel/ModelLinks/XMI/BoldUMLModelMOFAdapters.pas b/Source/UMLModel/ModelLinks/XMI/BoldUMLModelMOFAdapters.pas index 46de9891..0efa4738 100644 --- a/Source/UMLModel/ModelLinks/XMI/BoldUMLModelMOFAdapters.pas +++ b/Source/UMLModel/ModelLinks/XMI/BoldUMLModelMOFAdapters.pas @@ -13,7 +13,7 @@ interface BoldSystem, BoldAttributes, BoldUMLXMILink, - MSXML_TLB, + Bold_MSXML_TLB, BoldUMLModel; type diff --git a/Source/UMLModel/ModelLinks/XMI/BoldUMLXMIImporter.pas b/Source/UMLModel/ModelLinks/XMI/BoldUMLXMIImporter.pas index c2d75283..21863119 100644 --- a/Source/UMLModel/ModelLinks/XMI/BoldUMLXMIImporter.pas +++ b/Source/UMLModel/ModelLinks/XMI/BoldUMLXMIImporter.pas @@ -14,7 +14,7 @@ interface BoldUMLXMILink, BoldSystemRT, BoldUMLXMILinkSupport, - MSXML_TLB, + Bold_MSXML_TLB, Sysutils, Classes; diff --git a/Source/UMLModel/ModelLinks/XMI/BoldUMLXMILinkSupport.pas b/Source/UMLModel/ModelLinks/XMI/BoldUMLXMILinkSupport.pas index 68f9cdb7..138a44fc 100644 --- a/Source/UMLModel/ModelLinks/XMI/BoldUMLXMILinkSupport.pas +++ b/Source/UMLModel/ModelLinks/XMI/BoldUMLXMILinkSupport.pas @@ -7,7 +7,7 @@ interface uses Variants, - MSXML_TLB, + Bold_MSXML_TLB, BoldContainers, BoldIndexableList, BoldUMLModel; diff --git a/Source/UMLModel/ModelLinks/XMI/BoldXMI10Exporter.pas b/Source/UMLModel/ModelLinks/XMI/BoldXMI10Exporter.pas index 9b15d425..edba15bc 100644 --- a/Source/UMLModel/ModelLinks/XMI/BoldXMI10Exporter.pas +++ b/Source/UMLModel/ModelLinks/XMI/BoldXMI10Exporter.pas @@ -12,7 +12,7 @@ interface BoldUMLXMILink, BoldMOFInterfaces, - MSXML_TLB, + Bold_MSXML_TLB, Sysutils, BoldStringList, BoldUMLDTDData, diff --git a/Source/UMLModel/Plugins/BoldUMLModelToEcoIIIGenerator.pas b/Source/UMLModel/Plugins/BoldUMLModelToEcoIIIGenerator.pas index 46dac180..363a9333 100644 --- a/Source/UMLModel/Plugins/BoldUMLModelToEcoIIIGenerator.pas +++ b/Source/UMLModel/Plugins/BoldUMLModelToEcoIIIGenerator.pas @@ -8,7 +8,7 @@ interface Dialogs, BoldSystem, BoldGuidUtils, - MSXML_TLB, + Bold_MSXML_TLB, BoldUMLModel, BoldUMLTypes, BoldUMLPlugins, diff --git a/Source/Unassigned/Asta/AstaforBfD.dproj b/Source/Unassigned/Asta/AstaforBfD.dproj new file mode 100644 index 00000000..9a61c9e5 --- /dev/null +++ b/Source/Unassigned/Asta/AstaforBfD.dproj @@ -0,0 +1,176 @@ + + + {80E62428-6352-4CB3-B8F0-613CE169AA20} + AstaforBfD.dpk + True + Debug + 38017 + Package + None + 19.2 + Win32 + + + true + + + true + Base + true + + + true + Base + true + + + true + Base + true + + + true + Base + true + + + true + Base + true + + + true + Base + true + + + true + Cfg_2 + true + true + + + true + Cfg_2 + true + true + + + true + Cfg_2 + true + true + + + false + false + false + false + false + 00400000 + true + true + AstaforBfD + 1 + false + 0 + true + Asta support for Bold for Delphi + true + true + 1046 + CompanyName=;FileDescription=;FileVersion=1.0.0.0;InternalName=;LegalCopyright=;LegalTrademarks=;OriginalFilename=;ProductName=;ProductVersion=1.0.0.0;Comments=;CFBundleName= + System;Xml;Data;Datasnap;Web;Soap;$(DCC_Namespace) + + + package=com.embarcadero.$(MSBuildProjectName);label=$(MSBuildProjectName);versionCode=1;versionName=1.0.0;persistent=False;restoreAnyVersion=False;installLocation=auto;largeHeap=False;theme=TitleBar;hardwareAccelerated=true;apiKey= + Debug + $(BDS)\bin\Artwork\Android\FM_LauncherIcon_192x192.png + android-support-v4.dex.jar;cloud-messaging.dex.jar;com-google-android-gms.play-services-ads-base.17.2.0.dex.jar;com-google-android-gms.play-services-ads-identifier.16.0.0.dex.jar;com-google-android-gms.play-services-ads-lite.17.2.0.dex.jar;com-google-android-gms.play-services-ads.17.2.0.dex.jar;com-google-android-gms.play-services-analytics-impl.16.0.8.dex.jar;com-google-android-gms.play-services-analytics.16.0.8.dex.jar;com-google-android-gms.play-services-base.16.0.1.dex.jar;com-google-android-gms.play-services-basement.16.2.0.dex.jar;com-google-android-gms.play-services-gass.17.2.0.dex.jar;com-google-android-gms.play-services-identity.16.0.0.dex.jar;com-google-android-gms.play-services-maps.16.1.0.dex.jar;com-google-android-gms.play-services-measurement-base.16.4.0.dex.jar;com-google-android-gms.play-services-measurement-sdk-api.16.4.0.dex.jar;com-google-android-gms.play-services-stats.16.0.1.dex.jar;com-google-android-gms.play-services-tagmanager-v4-impl.16.0.8.dex.jar;com-google-android-gms.play-services-tasks.16.0.1.dex.jar;com-google-android-gms.play-services-wallet.16.0.1.dex.jar;com-google-firebase.firebase-analytics.16.4.0.dex.jar;com-google-firebase.firebase-common.16.1.0.dex.jar;com-google-firebase.firebase-iid-interop.16.0.1.dex.jar;com-google-firebase.firebase-iid.17.1.1.dex.jar;com-google-firebase.firebase-measurement-connector.17.0.1.dex.jar;com-google-firebase.firebase-messaging.17.5.0.dex.jar;fmx.dex.jar;google-play-billing.dex.jar;google-play-licensing.dex.jar + + + $(BDS)\bin\Artwork\Android\FM_LauncherIcon_192x192.png + android-support-v4.dex.jar;cloud-messaging.dex.jar;com-google-android-gms.play-services-ads-base.17.2.0.dex.jar;com-google-android-gms.play-services-ads-identifier.16.0.0.dex.jar;com-google-android-gms.play-services-ads-lite.17.2.0.dex.jar;com-google-android-gms.play-services-ads.17.2.0.dex.jar;com-google-android-gms.play-services-analytics-impl.16.0.8.dex.jar;com-google-android-gms.play-services-analytics.16.0.8.dex.jar;com-google-android-gms.play-services-base.16.0.1.dex.jar;com-google-android-gms.play-services-basement.16.2.0.dex.jar;com-google-android-gms.play-services-gass.17.2.0.dex.jar;com-google-android-gms.play-services-identity.16.0.0.dex.jar;com-google-android-gms.play-services-maps.16.1.0.dex.jar;com-google-android-gms.play-services-measurement-base.16.4.0.dex.jar;com-google-android-gms.play-services-measurement-sdk-api.16.4.0.dex.jar;com-google-android-gms.play-services-stats.16.0.1.dex.jar;com-google-android-gms.play-services-tagmanager-v4-impl.16.0.8.dex.jar;com-google-android-gms.play-services-tasks.16.0.1.dex.jar;com-google-android-gms.play-services-wallet.16.0.1.dex.jar;com-google-firebase.firebase-analytics.16.4.0.dex.jar;com-google-firebase.firebase-common.16.1.0.dex.jar;com-google-firebase.firebase-iid-interop.16.0.1.dex.jar;com-google-firebase.firebase-iid.17.1.1.dex.jar;com-google-firebase.firebase-measurement-connector.17.0.1.dex.jar;com-google-firebase.firebase-messaging.17.5.0.dex.jar;fmx.dex.jar;google-play-billing.dex.jar;google-play-licensing.dex.jar + + + $(BDS)\bin\Artwork\iOS\iPhone\FM_ApplicationIcon_1024x1024.png + + + Winapi;System.Win;Data.Win;Datasnap.Win;Web.Win;Soap.Win;Xml.Win;Bde;$(DCC_Namespace) + Debug + true + CompanyName=;FileDescription=$(MSBuildProjectName);FileVersion=1.0.0.0;InternalName=;LegalCopyright=;LegalTrademarks=;OriginalFilename=;ProductName=$(MSBuildProjectName);ProductVersion=1.0.0.0;Comments=;ProgramID=com.embarcadero.$(MSBuildProjectName) + 1033 + + + RELEASE;$(DCC_Define) + 0 + false + 0 + + + DEBUG;$(DCC_Define) + false + true + + + Debug + + + Debug + + + Debug + + + + MainSource + + + + + + + + + + + + Cfg_2 + Base + + + Base + + + Cfg_1 + Base + + + + Delphi.Personality.12 + Package + + + + AstaforBfD.dpk + + + + False + True + False + True + False + True + False + True + True + False + + + 12 + + + + diff --git a/Source/Unassigned/Asta/AstaforBfD.res b/Source/Unassigned/Asta/AstaforBfD.res new file mode 100644 index 0000000000000000000000000000000000000000..89beac0bbaa8af1c294f2ba943d8ba29bbed20a5 GIT binary patch literal 652 zcmZ{i&q~8U5XQfh9IW=>-HQj$5+MkJD3w|X_>UNRl~`+uw28#{0KS8-A+4Xv1~avF{845k6r)A=c(uvtLtslUBi{w`Nz7!>+?3Qm`=h(o7H|t HpI_2H=`>g6 literal 0 HcmV?d00001 diff --git a/Source/Unassigned/BoldDataSetIPD4.dproj b/Source/Unassigned/BoldDataSetIPD4.dproj new file mode 100644 index 00000000..f547a218 --- /dev/null +++ b/Source/Unassigned/BoldDataSetIPD4.dproj @@ -0,0 +1,168 @@ + + + {AA2B7764-D39D-459A-A19F-D2ED3E34A62B} + BoldDataSetIPD4.dpk + True + Debug + 38017 + Package + None + 19.2 + Win32 + + + true + + + true + Base + true + + + true + Base + true + + + true + Base + true + + + true + Base + true + + + true + Base + true + + + true + Base + true + + + true + Cfg_2 + true + true + + + true + Cfg_2 + true + true + + + true + Cfg_2 + true + true + + + false + false + false + false + false + 00400000 + true + true + BoldDataSetIPD4 + 1 + true + true + 1046 + CompanyName=;FileDescription=;FileVersion=1.0.0.0;InternalName=;LegalCopyright=;LegalTrademarks=;OriginalFilename=;ProductName=;ProductVersion=1.0.0.0;Comments=;CFBundleName= + System;Xml;Data;Datasnap;Web;Soap;$(DCC_Namespace) + + + package=com.embarcadero.$(MSBuildProjectName);label=$(MSBuildProjectName);versionCode=1;versionName=1.0.0;persistent=False;restoreAnyVersion=False;installLocation=auto;largeHeap=False;theme=TitleBar;hardwareAccelerated=true;apiKey= + Debug + $(BDS)\bin\Artwork\Android\FM_LauncherIcon_192x192.png + android-support-v4.dex.jar;cloud-messaging.dex.jar;com-google-android-gms.play-services-ads-base.17.2.0.dex.jar;com-google-android-gms.play-services-ads-identifier.16.0.0.dex.jar;com-google-android-gms.play-services-ads-lite.17.2.0.dex.jar;com-google-android-gms.play-services-ads.17.2.0.dex.jar;com-google-android-gms.play-services-analytics-impl.16.0.8.dex.jar;com-google-android-gms.play-services-analytics.16.0.8.dex.jar;com-google-android-gms.play-services-base.16.0.1.dex.jar;com-google-android-gms.play-services-basement.16.2.0.dex.jar;com-google-android-gms.play-services-gass.17.2.0.dex.jar;com-google-android-gms.play-services-identity.16.0.0.dex.jar;com-google-android-gms.play-services-maps.16.1.0.dex.jar;com-google-android-gms.play-services-measurement-base.16.4.0.dex.jar;com-google-android-gms.play-services-measurement-sdk-api.16.4.0.dex.jar;com-google-android-gms.play-services-stats.16.0.1.dex.jar;com-google-android-gms.play-services-tagmanager-v4-impl.16.0.8.dex.jar;com-google-android-gms.play-services-tasks.16.0.1.dex.jar;com-google-android-gms.play-services-wallet.16.0.1.dex.jar;com-google-firebase.firebase-analytics.16.4.0.dex.jar;com-google-firebase.firebase-common.16.1.0.dex.jar;com-google-firebase.firebase-iid-interop.16.0.1.dex.jar;com-google-firebase.firebase-iid.17.1.1.dex.jar;com-google-firebase.firebase-measurement-connector.17.0.1.dex.jar;com-google-firebase.firebase-messaging.17.5.0.dex.jar;fmx.dex.jar;google-play-billing.dex.jar;google-play-licensing.dex.jar + + + $(BDS)\bin\Artwork\Android\FM_LauncherIcon_192x192.png + android-support-v4.dex.jar;cloud-messaging.dex.jar;com-google-android-gms.play-services-ads-base.17.2.0.dex.jar;com-google-android-gms.play-services-ads-identifier.16.0.0.dex.jar;com-google-android-gms.play-services-ads-lite.17.2.0.dex.jar;com-google-android-gms.play-services-ads.17.2.0.dex.jar;com-google-android-gms.play-services-analytics-impl.16.0.8.dex.jar;com-google-android-gms.play-services-analytics.16.0.8.dex.jar;com-google-android-gms.play-services-base.16.0.1.dex.jar;com-google-android-gms.play-services-basement.16.2.0.dex.jar;com-google-android-gms.play-services-gass.17.2.0.dex.jar;com-google-android-gms.play-services-identity.16.0.0.dex.jar;com-google-android-gms.play-services-maps.16.1.0.dex.jar;com-google-android-gms.play-services-measurement-base.16.4.0.dex.jar;com-google-android-gms.play-services-measurement-sdk-api.16.4.0.dex.jar;com-google-android-gms.play-services-stats.16.0.1.dex.jar;com-google-android-gms.play-services-tagmanager-v4-impl.16.0.8.dex.jar;com-google-android-gms.play-services-tasks.16.0.1.dex.jar;com-google-android-gms.play-services-wallet.16.0.1.dex.jar;com-google-firebase.firebase-analytics.16.4.0.dex.jar;com-google-firebase.firebase-common.16.1.0.dex.jar;com-google-firebase.firebase-iid-interop.16.0.1.dex.jar;com-google-firebase.firebase-iid.17.1.1.dex.jar;com-google-firebase.firebase-measurement-connector.17.0.1.dex.jar;com-google-firebase.firebase-messaging.17.5.0.dex.jar;fmx.dex.jar;google-play-billing.dex.jar;google-play-licensing.dex.jar + + + $(BDS)\bin\Artwork\iOS\iPhone\FM_ApplicationIcon_1024x1024.png + + + Winapi;System.Win;Data.Win;Datasnap.Win;Web.Win;Soap.Win;Xml.Win;Bde;$(DCC_Namespace) + Debug + true + CompanyName=;FileDescription=$(MSBuildProjectName);FileVersion=1.0.0.0;InternalName=;LegalCopyright=;LegalTrademarks=;OriginalFilename=;ProductName=$(MSBuildProjectName);ProductVersion=1.0.0.0;Comments=;ProgramID=com.embarcadero.$(MSBuildProjectName) + 1033 + + + RELEASE;$(DCC_Define) + 0 + false + 0 + + + DEBUG;$(DCC_Define) + false + true + + + Debug + + + Debug + + + Debug + + + + MainSource + + + + + + + + Cfg_2 + Base + + + Base + + + Cfg_1 + Base + + + + Delphi.Personality.12 + Package + + + + BoldDataSetIPD4.dpk + + + + False + True + False + True + False + True + False + True + True + False + + + 12 + + + + diff --git a/Source/Unassigned/BoldDataSetIPD4.res b/Source/Unassigned/BoldDataSetIPD4.res new file mode 100644 index 0000000000000000000000000000000000000000..c29ccf6f1dcea1a897ef49c728acad9b0e1a5ade GIT binary patch literal 676 zcmaiy%}T>i5QR@l7S>fCp^K~~LN`otbmabnca;KHfB~6Rug%arGWOo~?!I`mQPHM1&LF>YnpdW1?6$y5@Jx zc}8sP%m4Y648G-X-y>U<456$1r}RO>gKwc)xk}Ao%T*|Yxzw{N8Xs&=s7Rp>@Q4}A zL>KCTb^SvyubNt(7x;3prIk4$D)gkGQt~Nk8Q)kVGKMGA&I-?jY7Ns8zpp)doJ+@6 zcSKhO>l>O2wvcKL(%3e=$m*@*H&r(^@6>0;7BfTHsKv~0Y|0#S=F2!AsnldrCNuw| zBEM}O!{TwX2I;oB+`bgpn@g-}$z}>VSNGfXzkQyN4)LbhWy(tpl-PGM))mo!H*?Od OCG5Vn)%W%ODg6P48(iuD literal 0 HcmV?d00001 diff --git a/Source/Unassigned/BoldUMLModelEditorDebugger.dpk b/Source/Unassigned/BoldUMLModelEditorDebugger.dpk index e9137456..1e24c0f9 100644 --- a/Source/Unassigned/BoldUMLModelEditorDebugger.dpk +++ b/Source/Unassigned/BoldUMLModelEditorDebugger.dpk @@ -25,11 +25,11 @@ package BoldUMLModelEditorDebugger; {$IMPLICITBUILD OFF} requires - vcl50, - Vcldb50, - Bold30D5, - Bold30D5Uml, - Bold30D5Utils; + vcl, + Vcldb, + Bold90, + BoldUml90, + BoldUtility; contains BoldUMLModelEditorDebuggerPlugin in 'BoldUMLModelEditorDebuggerPlugin.pas'; diff --git a/Source/Unassigned/BoldUMLModelEditorDebugger.dproj b/Source/Unassigned/BoldUMLModelEditorDebugger.dproj new file mode 100644 index 00000000..ecd84c78 --- /dev/null +++ b/Source/Unassigned/BoldUMLModelEditorDebugger.dproj @@ -0,0 +1,170 @@ + + + {B1033BC2-F58D-4BB6-A117-26186C23A3EF} + BoldUMLModelEditorDebugger.dpk + True + Debug + 38017 + Package + None + 19.2 + Win32 + + + true + + + true + Base + true + + + true + Base + true + + + true + Base + true + + + true + Base + true + + + true + Base + true + + + true + Base + true + + + true + Cfg_2 + true + true + + + true + Cfg_2 + true + true + + + true + Cfg_2 + true + true + + + false + false + false + false + false + 00400000 + true + true + BoldUMLModelEditorDebugger + 1 + false + true + true + 1046 + CompanyName=;FileDescription=;FileVersion=1.0.0.0;InternalName=;LegalCopyright=;LegalTrademarks=;OriginalFilename=;ProductName=;ProductVersion=1.0.0.0;Comments=;CFBundleName= + System;Xml;Data;Datasnap;Web;Soap;$(DCC_Namespace) + + + package=com.embarcadero.$(MSBuildProjectName);label=$(MSBuildProjectName);versionCode=1;versionName=1.0.0;persistent=False;restoreAnyVersion=False;installLocation=auto;largeHeap=False;theme=TitleBar;hardwareAccelerated=true;apiKey= + Debug + $(BDS)\bin\Artwork\Android\FM_LauncherIcon_192x192.png + android-support-v4.dex.jar;cloud-messaging.dex.jar;com-google-android-gms.play-services-ads-base.17.2.0.dex.jar;com-google-android-gms.play-services-ads-identifier.16.0.0.dex.jar;com-google-android-gms.play-services-ads-lite.17.2.0.dex.jar;com-google-android-gms.play-services-ads.17.2.0.dex.jar;com-google-android-gms.play-services-analytics-impl.16.0.8.dex.jar;com-google-android-gms.play-services-analytics.16.0.8.dex.jar;com-google-android-gms.play-services-base.16.0.1.dex.jar;com-google-android-gms.play-services-basement.16.2.0.dex.jar;com-google-android-gms.play-services-gass.17.2.0.dex.jar;com-google-android-gms.play-services-identity.16.0.0.dex.jar;com-google-android-gms.play-services-maps.16.1.0.dex.jar;com-google-android-gms.play-services-measurement-base.16.4.0.dex.jar;com-google-android-gms.play-services-measurement-sdk-api.16.4.0.dex.jar;com-google-android-gms.play-services-stats.16.0.1.dex.jar;com-google-android-gms.play-services-tagmanager-v4-impl.16.0.8.dex.jar;com-google-android-gms.play-services-tasks.16.0.1.dex.jar;com-google-android-gms.play-services-wallet.16.0.1.dex.jar;com-google-firebase.firebase-analytics.16.4.0.dex.jar;com-google-firebase.firebase-common.16.1.0.dex.jar;com-google-firebase.firebase-iid-interop.16.0.1.dex.jar;com-google-firebase.firebase-iid.17.1.1.dex.jar;com-google-firebase.firebase-measurement-connector.17.0.1.dex.jar;com-google-firebase.firebase-messaging.17.5.0.dex.jar;fmx.dex.jar;google-play-billing.dex.jar;google-play-licensing.dex.jar + + + $(BDS)\bin\Artwork\Android\FM_LauncherIcon_192x192.png + android-support-v4.dex.jar;cloud-messaging.dex.jar;com-google-android-gms.play-services-ads-base.17.2.0.dex.jar;com-google-android-gms.play-services-ads-identifier.16.0.0.dex.jar;com-google-android-gms.play-services-ads-lite.17.2.0.dex.jar;com-google-android-gms.play-services-ads.17.2.0.dex.jar;com-google-android-gms.play-services-analytics-impl.16.0.8.dex.jar;com-google-android-gms.play-services-analytics.16.0.8.dex.jar;com-google-android-gms.play-services-base.16.0.1.dex.jar;com-google-android-gms.play-services-basement.16.2.0.dex.jar;com-google-android-gms.play-services-gass.17.2.0.dex.jar;com-google-android-gms.play-services-identity.16.0.0.dex.jar;com-google-android-gms.play-services-maps.16.1.0.dex.jar;com-google-android-gms.play-services-measurement-base.16.4.0.dex.jar;com-google-android-gms.play-services-measurement-sdk-api.16.4.0.dex.jar;com-google-android-gms.play-services-stats.16.0.1.dex.jar;com-google-android-gms.play-services-tagmanager-v4-impl.16.0.8.dex.jar;com-google-android-gms.play-services-tasks.16.0.1.dex.jar;com-google-android-gms.play-services-wallet.16.0.1.dex.jar;com-google-firebase.firebase-analytics.16.4.0.dex.jar;com-google-firebase.firebase-common.16.1.0.dex.jar;com-google-firebase.firebase-iid-interop.16.0.1.dex.jar;com-google-firebase.firebase-iid.17.1.1.dex.jar;com-google-firebase.firebase-measurement-connector.17.0.1.dex.jar;com-google-firebase.firebase-messaging.17.5.0.dex.jar;fmx.dex.jar;google-play-billing.dex.jar;google-play-licensing.dex.jar + + + $(BDS)\bin\Artwork\iOS\iPhone\FM_ApplicationIcon_1024x1024.png + + + Winapi;System.Win;Data.Win;Datasnap.Win;Web.Win;Soap.Win;Xml.Win;Bde;$(DCC_Namespace) + Debug + true + CompanyName=;FileDescription=$(MSBuildProjectName);FileVersion=1.0.0.0;InternalName=;LegalCopyright=;LegalTrademarks=;OriginalFilename=;ProductName=$(MSBuildProjectName);ProductVersion=1.0.0.0;Comments=;ProgramID=com.embarcadero.$(MSBuildProjectName) + 1033 + + + RELEASE;$(DCC_Define) + 0 + false + 0 + + + DEBUG;$(DCC_Define) + false + true + + + Debug + + + Debug + + + Debug + + + + MainSource + + + + + + + + + Cfg_2 + Base + + + Base + + + Cfg_1 + Base + + + + Delphi.Personality.12 + Package + + + + BoldUMLModelEditorDebugger.dpk + + + + False + True + False + True + False + True + False + True + True + False + + + 12 + + + + diff --git a/Source/Unassigned/BoldUMLModelEditorDebugger.res b/Source/Unassigned/BoldUMLModelEditorDebugger.res new file mode 100644 index 0000000000000000000000000000000000000000..3ac2f8381d3d624fd59f762bb1277cd0c8f80acc GIT binary patch literal 748 zcmbV~Pfo&65XL`97vjpj8yD_ONKLviF)$SWvKx~(xenq-~isiGk6Ox;5poT z1Iuq-eOg#D$-Fn6Ki~U0Gm^B27DcI;E0WfIe21Kxi-l?gJ}Iq7m_6O;k+Y>PR$Di^ z=DW>#fo<{;eE&#RUt;+C#6=|o^pRheK5^8*n=4nMOk>azr5b^p=~+_}-(60qNTH6< z2oA>RLA%uY{Bvq%8akX8@Dge>_skhqswds+N*#2HJ;KxCPRN{6W7PvKcz=wQySh+Y z75tv_&nmcwYQn~=b;$VKQf)6R;4-H>eNCt|*_21*c&y^Cvsveo>)?;e7)HjT&0m@f z;WvTzh;u+B$J2K`G3L#Uc^Z0+E*PSp%KsFleYXLzW0Ntfl+5a!8o^h