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..e8dc73be 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} @@ -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 9e641511..451b30a5 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 @@ -215,7 +217,7 @@ - + @@ -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 a64cea33..348af5e9 100644 Binary files a/Bold.res and b/Bold.res differ 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/BoldAdo.res b/BoldAdo.res new file mode 100644 index 00000000..800ca8b6 Binary files /dev/null and b/BoldAdo.res differ diff --git a/BoldAdvantage.res b/BoldAdvantage.res new file mode 100644 index 00000000..a59b5069 Binary files /dev/null and b/BoldAdvantage.res differ 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 00000000..a1b23a82 Binary files /dev/null and b/BoldBDE.res differ 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/BoldCom.res b/BoldCom.res new file mode 100644 index 00000000..ea559daa Binary files /dev/null and b/BoldCom.res differ 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 00000000..42e41efe Binary files /dev/null and b/BoldComGUI.res differ diff --git a/BoldDBExpress.res b/BoldDBExpress.res new file mode 100644 index 00000000..8182af91 Binary files /dev/null and b/BoldDBExpress.res differ diff --git a/BoldDOA.res b/BoldDOA.res new file mode 100644 index 00000000..d7963959 Binary files /dev/null and b/BoldDOA.res differ 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 00000000..36c6894c Binary files /dev/null and b/BoldExPe.res differ diff --git a/BoldForDelphi.groupproj b/BoldForDelphi.groupproj new file mode 100644 index 00000000..725adb4d --- /dev/null +++ b/BoldForDelphi.groupproj @@ -0,0 +1,264 @@ + + + {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 00000000..b9f9acf2 Binary files /dev/null and b/BoldIB.res differ 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 00000000..a70827e2 Binary files /dev/null and b/BoldMMLink.res differ diff --git a/BoldOLLE.res b/BoldOLLE.res new file mode 100644 index 00000000..c753ee02 Binary files /dev/null and b/BoldOLLE.res differ diff --git a/BoldSQLDirect.res b/BoldSQLDirect.res new file mode 100644 index 00000000..4b1a68d0 Binary files /dev/null and b/BoldSQLDirect.res differ diff --git a/BoldUDPProp.res b/BoldUDPProp.res new file mode 100644 index 00000000..e15e0ec9 Binary files /dev/null and b/BoldUDPProp.res differ 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 00000000..4fba3de8 Binary files /dev/null and b/BoldUml.res differ 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 00000000..aea73fb4 Binary files /dev/null and b/BoldUtility.res differ 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 00000000..d122be74 Binary files /dev/null and b/BoldVCLGUI.res differ diff --git a/BoldXMILink.dproj b/BoldXMILink.dproj index 6874e1c9..ce35d4c8 100644 --- a/BoldXMILink.dproj +++ b/BoldXMILink.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/BoldXMILink.res b/BoldXMILink.res new file mode 100644 index 00000000..381f7841 Binary files /dev/null and b/BoldXMILink.res differ 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 00000000..98825a08 Binary files /dev/null and b/Source/ClientGuiCom/BoldControls/BoldAwareGuiComReg.res differ 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 00000000..98825a08 Binary files /dev/null and b/Source/ClientGuiCom/IDE/BoldAwareGuiComReg.res differ diff --git a/Source/ClientHandlesCom/IDE/BoldHandleComReg.RES b/Source/ClientHandlesCom/IDE/BoldHandleComReg.RES new file mode 100644 index 00000000..c9a49673 Binary files /dev/null and b/Source/ClientHandlesCom/IDE/BoldHandleComReg.RES differ 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/Common/IDE/BoldReg.RES b/Source/Common/IDE/BoldReg.RES new file mode 100644 index 00000000..8e7ed242 Binary files /dev/null and b/Source/Common/IDE/BoldReg.RES differ diff --git a/Source/Common/IDE/BoldReg.pas b/Source/Common/IDE/BoldReg.pas index 6f9b35e9..a51ec34a 100644 --- a/Source/Common/IDE/BoldReg.pas +++ b/Source/Common/IDE/BoldReg.pas @@ -16,7 +16,7 @@ implementation BoldTemplateExpander, BoldIDEConsts; -{.$R *.res} +{$R *.res} procedure Register; begin diff --git a/Source/Common/IDE/BoldReg.rc b/Source/Common/IDE/BoldReg.rc index f6be2b20..0e1d8af1 100644 --- a/Source/Common/IDE/BoldReg.rc +++ b/Source/Common/IDE/BoldReg.rc @@ -1,4 +1,4 @@ -TBOLDTEMPLATEHOLDER BITMAP LOADONCALL TBoldTemplateHolder.bmp +TBOLDTEMPLATEHOLDER BITMAP LOADONCALL ..\..\..\Images\Components\TBoldTemplateHolder.bmp diff --git a/Source/Common/IDE/BoldWebConnectionReg.RES b/Source/Common/IDE/BoldWebConnectionReg.RES new file mode 100644 index 00000000..a91fd506 Binary files /dev/null and b/Source/Common/IDE/BoldWebConnectionReg.RES differ diff --git a/Source/Common/IDE/BoldWebConnectionReg.pas b/Source/Common/IDE/BoldWebConnectionReg.pas index 3a7b5fba..8ce2a104 100644 --- a/Source/Common/IDE/BoldWebConnectionReg.pas +++ b/Source/Common/IDE/BoldWebConnectionReg.pas @@ -9,7 +9,7 @@ procedure Register; implementation -{.$R *.res} +{$R *.res} uses BoldWebConnection, BoldIDEConsts, diff --git a/Source/Common/IDE/BoldWebConnectionReg.rc b/Source/Common/IDE/BoldWebConnectionReg.rc index eb1a6c80..2a068993 100644 --- a/Source/Common/IDE/BoldWebConnectionReg.rc +++ b/Source/Common/IDE/BoldWebConnectionReg.rc @@ -1 +1 @@ -TBOLDWEBCONNECTION BITMAP LOADONCALL TBoldWebConnection.bmp \ No newline at end of file +TBOLDWEBCONNECTION BITMAP LOADONCALL ..\..\..\Images\Components\TBoldWebConnection.bmp \ No newline at end of file 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/BoldCommonBitmaps.RES b/Source/Common/Support/BoldCommonBitmaps.RES new file mode 100644 index 00000000..fde30574 Binary files /dev/null and b/Source/Common/Support/BoldCommonBitmaps.RES differ 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/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/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/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/IDE/BoldExternalObjectSpaceEventHandlerReg.RES b/Source/ObjectSpace/IDE/BoldExternalObjectSpaceEventHandlerReg.RES new file mode 100644 index 00000000..3311a7b0 Binary files /dev/null and b/Source/ObjectSpace/IDE/BoldExternalObjectSpaceEventHandlerReg.RES differ 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 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/BDE/BoldPersistenceHandleBde.RES b/Source/Persistence/BDE/BoldPersistenceHandleBde.RES new file mode 100644 index 00000000..3263cc29 Binary files /dev/null and b/Source/Persistence/BDE/BoldPersistenceHandleBde.RES differ 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/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/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 00000000..89beac0b Binary files /dev/null and b/Source/Unassigned/Asta/AstaforBfD.res differ 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 00000000..c29ccf6f Binary files /dev/null and b/Source/Unassigned/BoldDataSetIPD4.res differ 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 00000000..3ac2f838 Binary files /dev/null and b/Source/Unassigned/BoldUMLModelEditorDebugger.res differ diff --git a/Source/Unassigned/__history/BoldUMLModelEditorDebugger.dpk.~3~ b/Source/Unassigned/__history/BoldUMLModelEditorDebugger.dpk.~3~ new file mode 100644 index 00000000..e870625f --- /dev/null +++ b/Source/Unassigned/__history/BoldUMLModelEditorDebugger.dpk.~3~ @@ -0,0 +1,37 @@ +package BoldUMLModelEditorDebugger; + +{$R *.RES} +{$ALIGN ON} +{$ASSERTIONS ON} +{$BOOLEVAL OFF} +{$DEBUGINFO ON} +{$EXTENDEDSYNTAX ON} +{$IMPORTEDDATA ON} +{$IOCHECKS ON} +{$LOCALSYMBOLS ON} +{$LONGSTRINGS ON} +{$OPENSTRINGS ON} +{$OPTIMIZATION OFF} +{$OVERFLOWCHECKS OFF} +{$RANGECHECKS OFF} +{$REFERENCEINFO ON} +{$SAFEDIVIDE OFF} +{$STACKFRAMES OFF} +{$TYPEDADDRESS OFF} +{$VARSTRINGCHECKS ON} +{$WRITEABLECONST ON} +{$MINENUMSIZE 1} +{$IMAGEBASE $400000} +{$IMPLICITBUILD OFF} + +requires + vcl270, + Vcldb270, + Bold30D5, + Bold30D5Uml, + Bold30D5Utils; + +contains + BoldUMLModelEditorDebuggerPlugin in 'BoldUMLModelEditorDebuggerPlugin.pas'; + +end. diff --git a/Source/Unassigned/__history/BoldUMLModelEditorDebugger.dpk.~4~ b/Source/Unassigned/__history/BoldUMLModelEditorDebugger.dpk.~4~ new file mode 100644 index 00000000..ea342666 --- /dev/null +++ b/Source/Unassigned/__history/BoldUMLModelEditorDebugger.dpk.~4~ @@ -0,0 +1,37 @@ +package BoldUMLModelEditorDebugger; + +{$R *.RES} +{$ALIGN ON} +{$ASSERTIONS ON} +{$BOOLEVAL OFF} +{$DEBUGINFO ON} +{$EXTENDEDSYNTAX ON} +{$IMPORTEDDATA ON} +{$IOCHECKS ON} +{$LOCALSYMBOLS ON} +{$LONGSTRINGS ON} +{$OPENSTRINGS ON} +{$OPTIMIZATION OFF} +{$OVERFLOWCHECKS OFF} +{$RANGECHECKS OFF} +{$REFERENCEINFO ON} +{$SAFEDIVIDE OFF} +{$STACKFRAMES OFF} +{$TYPEDADDRESS OFF} +{$VARSTRINGCHECKS ON} +{$WRITEABLECONST ON} +{$MINENUMSIZE 1} +{$IMAGEBASE $400000} +{$IMPLICITBUILD OFF} + +requires + vcl, + Vcldb270, + Bold30D5, + Bold30D5Uml, + Bold30D5Utils; + +contains + BoldUMLModelEditorDebuggerPlugin in 'BoldUMLModelEditorDebuggerPlugin.pas'; + +end. diff --git a/Source/Unassigned/__history/BoldUMLModelEditorDebugger.dpk.~5~ b/Source/Unassigned/__history/BoldUMLModelEditorDebugger.dpk.~5~ new file mode 100644 index 00000000..ce190005 --- /dev/null +++ b/Source/Unassigned/__history/BoldUMLModelEditorDebugger.dpk.~5~ @@ -0,0 +1,37 @@ +package BoldUMLModelEditorDebugger; + +{$R *.RES} +{$ALIGN ON} +{$ASSERTIONS ON} +{$BOOLEVAL OFF} +{$DEBUGINFO ON} +{$EXTENDEDSYNTAX ON} +{$IMPORTEDDATA ON} +{$IOCHECKS ON} +{$LOCALSYMBOLS ON} +{$LONGSTRINGS ON} +{$OPENSTRINGS ON} +{$OPTIMIZATION OFF} +{$OVERFLOWCHECKS OFF} +{$RANGECHECKS OFF} +{$REFERENCEINFO ON} +{$SAFEDIVIDE OFF} +{$STACKFRAMES OFF} +{$TYPEDADDRESS OFF} +{$VARSTRINGCHECKS ON} +{$WRITEABLECONST ON} +{$MINENUMSIZE 1} +{$IMAGEBASE $400000} +{$IMPLICITBUILD OFF} + +requires + vcl, + Vcldb, + Bold30D5, + Bold30D5Uml, + Bold30D5Utils; + +contains + BoldUMLModelEditorDebuggerPlugin in 'BoldUMLModelEditorDebuggerPlugin.pas'; + +end. diff --git a/Source/Unassigned/__history/BoldUMLModelEditorDebugger.dpk.~6~ b/Source/Unassigned/__history/BoldUMLModelEditorDebugger.dpk.~6~ new file mode 100644 index 00000000..a194f26c --- /dev/null +++ b/Source/Unassigned/__history/BoldUMLModelEditorDebugger.dpk.~6~ @@ -0,0 +1,37 @@ +package BoldUMLModelEditorDebugger; + +{$R *.RES} +{$ALIGN ON} +{$ASSERTIONS ON} +{$BOOLEVAL OFF} +{$DEBUGINFO ON} +{$EXTENDEDSYNTAX ON} +{$IMPORTEDDATA ON} +{$IOCHECKS ON} +{$LOCALSYMBOLS ON} +{$LONGSTRINGS ON} +{$OPENSTRINGS ON} +{$OPTIMIZATION OFF} +{$OVERFLOWCHECKS OFF} +{$RANGECHECKS OFF} +{$REFERENCEINFO ON} +{$SAFEDIVIDE OFF} +{$STACKFRAMES OFF} +{$TYPEDADDRESS OFF} +{$VARSTRINGCHECKS ON} +{$WRITEABLECONST ON} +{$MINENUMSIZE 1} +{$IMAGEBASE $400000} +{$IMPLICITBUILD OFF} + +requires + vcl, + Vcldb, + Bold90, + Bold90Uml, + Bold90Utils; + +contains + BoldUMLModelEditorDebuggerPlugin in 'BoldUMLModelEditorDebuggerPlugin.pas'; + +end. diff --git a/Source/Unassigned/__history/BoldUMLModelEditorDebugger.dpk.~7~ b/Source/Unassigned/__history/BoldUMLModelEditorDebugger.dpk.~7~ new file mode 100644 index 00000000..347ef18a --- /dev/null +++ b/Source/Unassigned/__history/BoldUMLModelEditorDebugger.dpk.~7~ @@ -0,0 +1,37 @@ +package BoldUMLModelEditorDebugger; + +{$R *.RES} +{$ALIGN ON} +{$ASSERTIONS ON} +{$BOOLEVAL OFF} +{$DEBUGINFO ON} +{$EXTENDEDSYNTAX ON} +{$IMPORTEDDATA ON} +{$IOCHECKS ON} +{$LOCALSYMBOLS ON} +{$LONGSTRINGS ON} +{$OPENSTRINGS ON} +{$OPTIMIZATION OFF} +{$OVERFLOWCHECKS OFF} +{$RANGECHECKS OFF} +{$REFERENCEINFO ON} +{$SAFEDIVIDE OFF} +{$STACKFRAMES OFF} +{$TYPEDADDRESS OFF} +{$VARSTRINGCHECKS ON} +{$WRITEABLECONST ON} +{$MINENUMSIZE 1} +{$IMAGEBASE $400000} +{$IMPLICITBUILD OFF} + +requires + vcl, + Vcldb, + Bold90, + Bold30D5Uml, + Bold30D5Utils; + +contains + BoldUMLModelEditorDebuggerPlugin in 'BoldUMLModelEditorDebuggerPlugin.pas'; + +end. 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.