Menu
▾
▴
instantobjects-cvscommit — Generates a message for every commit made on CVS
You can subscribe to this list here.
| 2004 |
Jan
|
Feb
|
Mar
|
Apr
|
May
|
Jun
|
Jul
|
Aug
(13) |
Sep
(25) |
Oct
(10) |
Nov
(19) |
Dec
(20) |
|---|---|---|---|---|---|---|---|---|---|---|---|---|
| 2005 |
Jan
|
Feb
(206) |
Mar
(43) |
Apr
(25) |
May
(20) |
Jun
(69) |
Jul
(121) |
Aug
(95) |
Sep
(122) |
Oct
(213) |
Nov
(46) |
Dec
(39) |
| 2006 |
Jan
(28) |
Feb
(57) |
Mar
(21) |
Apr
(7) |
May
(11) |
Jun
(2) |
Jul
(8) |
Aug
(13) |
Sep
(2) |
Oct
(2) |
Nov
(20) |
Dec
(16) |
| 2007 |
Jan
(9) |
Feb
(15) |
Mar
|
Apr
(4) |
May
(1) |
Jun
|
Jul
|
Aug
|
Sep
(1) |
Oct
|
Nov
|
Dec
|
| 2008 |
Jan
|
Feb
(2) |
Mar
|
Apr
|
May
|
Jun
|
Jul
(3) |
Aug
(1) |
Sep
(9) |
Oct
|
Nov
(1) |
Dec
|
| 2009 |
Jan
|
Feb
|
Mar
(8) |
Apr
(1) |
May
|
Jun
|
Jul
(11) |
Aug
(57) |
Sep
(2) |
Oct
(6) |
Nov
|
Dec
(7) |
| 2010 |
Jan
(11) |
Feb
(1) |
Mar
|
Apr
(1) |
May
|
Jun
|
Jul
(1) |
Aug
(2) |
Sep
(27) |
Oct
(3) |
Nov
(7) |
Dec
(1) |
| 2011 |
Jan
|
Feb
|
Mar
|
Apr
|
May
|
Jun
|
Jul
|
Aug
|
Sep
(10) |
Oct
|
Nov
|
Dec
|
| 2012 |
Jan
(8) |
Feb
(1) |
Mar
|
Apr
|
May
|
Jun
|
Jul
(1) |
Aug
|
Sep
|
Oct
(3) |
Nov
(1) |
Dec
(1) |
| 2013 |
Jan
|
Feb
|
Mar
(1) |
Apr
|
May
|
Jun
|
Jul
|
Aug
|
Sep
|
Oct
|
Nov
|
Dec
|
| 2014 |
Jan
|
Feb
|
Mar
|
Apr
|
May
(3) |
Jun
|
Jul
|
Aug
|
Sep
(1) |
Oct
|
Nov
(4) |
Dec
|
| 2015 |
Jan
|
Feb
|
Mar
(1) |
Apr
|
May
|
Jun
(1) |
Jul
|
Aug
(1) |
Sep
(1) |
Oct
|
Nov
|
Dec
|
| 2016 |
Jan
|
Feb
|
Mar
|
Apr
|
May
(3) |
Jun
|
Jul
|
Aug
|
Sep
|
Oct
|
Nov
|
Dec
|
| 2017 |
Jan
|
Feb
|
Mar
(1) |
Apr
(4) |
May
|
Jun
|
Jul
|
Aug
|
Sep
|
Oct
|
Nov
|
Dec
|
| 2018 |
Jan
|
Feb
|
Mar
|
Apr
|
May
|
Jun
|
Jul
|
Aug
(1) |
Sep
(3) |
Oct
|
Nov
(4) |
Dec
|
| 2022 |
Jan
|
Feb
|
Mar
|
Apr
|
May
|
Jun
|
Jul
|
Aug
|
Sep
|
Oct
|
Nov
|
Dec
(1) |
|
From: Nando D. <na...@us...> - 2005-10-20 08:04:09
|
Update of /cvsroot/instantobjects/Source/Brokers/XML In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv23882/Brokers/XML Added Files: InstantXMLCatalog.pas Log Message: Integrated the XML catalog into the XML broker --- NEW FILE: InstantXMLCatalog.pas --- (* * InstantObjects DBEvolver Support * XML Catalog *) (* ***** BEGIN LICENSE BLOCK ***** * Version: MPL 1.1 * * The contents of this file are subject to the Mozilla Public License Version * 1.1 (the "License"); you may not use this file except in compliance with * the License. You may obtain a copy of the License at * http://www.mozilla.org/MPL/ * * Software distributed under the License is distributed on an "AS IS" basis, * WITHOUT WARRANTY OF ANY KIND, either express or implied. See the License * for the specific language governing rights and limitations under the * License. * * The Original Code is: InstantObjects DBEvolver Support/XML Catalog * * The Initial Developer of the Original Code is: Steven Mitchell * * Portions created by the Initial Developer are Copyright (C) 2005 * the Initial Developer. All Rights Reserved. * * Contributor(s): * * ***** END LICENSE BLOCK ***** *) unit InstantXMLCatalog; {$IFDEF LINUX} {$I '../../InstantDefines.inc'} {$ELSE} {$I '..\..\InstantDefines.inc'} {$ENDIF} interface uses InstantPersistence; type // A TInstantCatalog that reads catalog information from a XML // database. Can be used with a XML broker. TInstantXMLCatalog = class(TInstantBrokerCatalog) private procedure AddTableMetadatas(TableMetadatas: TInstantTableMetadatas); protected function GetFeatures: TInstantCatalogFeatures; override; public procedure InitTableMetadatas(ATableMetadatas: TInstantTableMetadatas); override; end; implementation uses SysUtils, Classes, TypInfo, InstantConsts; procedure TInstantXMLCatalog.AddTableMetadatas( TableMetadatas: TInstantTableMetadatas); var vDatabaseName: String; i: integer; TableMetadata: TInstantTableMetadata; vTables: TStringList; procedure GetTablesList(const ADatabaseName: string; ATables: TStrings); var sr: TSearchRec; begin if FindFirst(ADatabaseName + '*', faDirectory, sr) = 0 then repeat if ((sr.Attr and faDirectory) <> 0) and (sr.Name <> '.') and (sr.Name <> '..') then ATables.Add(sr.Name); until FindNext(sr) <> 0; FindClose(sr); end; begin vTables := TStringList.Create; try vDatabaseName := Broker.Connector.DatabaseName; if DirectoryExists(vDatabaseName) then GetTablesList(vDatabaseName, vTables); if vTables.Count > 0 then for i := 0 to Pred(vTables.Count) do begin TableMetadata := TableMetadatas.Add; TableMetadata.Name := vTables[i]; end; finally vTables.Free; end; end; function TInstantXMLCatalog.GetFeatures: TInstantCatalogFeatures; begin Result := [cfReadTableInfo]; end; procedure TInstantXMLCatalog.InitTableMetadatas( ATableMetadatas: TInstantTableMetadatas); begin ATableMetadatas.Clear; AddTableMetadatas(ATableMetadatas); end; end. |
|
From: Nando D. <na...@us...> - 2005-10-20 08:04:09
|
Update of /cvsroot/instantobjects/Source/Brokers/XML/k3 In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv23882/Brokers/XML/k3 Modified Files: IOXML.dpk Log Message: Integrated the XML catalog into the XML broker Index: IOXML.dpk =================================================================== RCS file: /cvsroot/instantobjects/Source/Brokers/XML/k3/IOXML.dpk,v retrieving revision 1.4 retrieving revision 1.5 diff -C2 -d -r1.4 -r1.5 *** IOXML.dpk 18 Oct 2005 09:17:51 -0000 1.4 --- IOXML.dpk 20 Oct 2005 08:04:00 -0000 1.5 *************** *** 30,37 **** requires ! IOCore, ! IOXMLCatalog; contains InstantXMLConnectionDefEdit in '../InstantXMLConnectionDefEdit.pas' {InstantXMLConnectionDefEditForm}, InstantXML in '../InstantXML.pas'; --- 30,37 ---- requires ! IOCore; contains + InstantXMLCatalog in '../InstantXMLCatalog.pas', InstantXMLConnectionDefEdit in '../InstantXMLConnectionDefEdit.pas' {InstantXMLConnectionDefEditForm}, InstantXML in '../InstantXML.pas'; |
|
From: Nando D. <na...@us...> - 2005-10-20 08:04:09
|
Update of /cvsroot/instantobjects/Source/Catalogs/XML/D2005 In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv23882/Catalogs/XML/D2005 Removed Files: IOXMLCatalog.dpk Log Message: Integrated the XML catalog into the XML broker --- IOXMLCatalog.dpk DELETED --- |
|
From: Nando D. <na...@us...> - 2005-10-20 08:04:09
|
Update of /cvsroot/instantobjects/Source/Catalogs/XML/D5 In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv23882/Catalogs/XML/D5 Removed Files: IOXMLCatalog_D5.dpk Log Message: Integrated the XML catalog into the XML broker --- IOXMLCatalog_D5.dpk DELETED --- |
|
From: Nando D. <na...@us...> - 2005-10-20 08:04:08
|
Update of /cvsroot/instantobjects/Source/Brokers/XML/D5 In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv23882/Brokers/XML/D5 Modified Files: Ioxml_D5.dpk Log Message: Integrated the XML catalog into the XML broker Index: Ioxml_D5.dpk =================================================================== RCS file: /cvsroot/instantobjects/Source/Brokers/XML/D5/Ioxml_D5.dpk,v retrieving revision 1.5 retrieving revision 1.6 diff -C2 -d -r1.5 -r1.6 *** Ioxml_D5.dpk 8 Sep 2005 07:35:31 -0000 1.5 --- Ioxml_D5.dpk 20 Oct 2005 08:04:00 -0000 1.6 *************** *** 30,37 **** requires IOCore, ! VCLX50, ! IOXMLCatalog; contains InstantXMLConnectionDefEdit in '..\InstantXMLConnectionDefEdit.pas' {InstantXMLConnectionDefEditForm}, InstantXML in '..\InstantXML.pas'; --- 30,37 ---- requires IOCore, ! VCLX50; contains + InstantXMLCatalog in '..\InstantXMLCatalog.pas', InstantXMLConnectionDefEdit in '..\InstantXMLConnectionDefEdit.pas' {InstantXMLConnectionDefEditForm}, InstantXML in '..\InstantXML.pas'; |
|
From: Nando D. <na...@us...> - 2005-10-20 08:04:08
|
Update of /cvsroot/instantobjects/Source/Brokers/XML/D7 In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv23882/Brokers/XML/D7 Modified Files: IOXML.dpk Log Message: Integrated the XML catalog into the XML broker Index: IOXML.dpk =================================================================== RCS file: /cvsroot/instantobjects/Source/Brokers/XML/D7/IOXML.dpk,v retrieving revision 1.5 retrieving revision 1.6 diff -C2 -d -r1.5 -r1.6 *** IOXML.dpk 8 Sep 2005 07:35:32 -0000 1.5 --- IOXML.dpk 20 Oct 2005 08:04:00 -0000 1.6 *************** *** 34,41 **** dbrtl, IOCore, ! vclx, ! IOXMLCatalog; contains InstantXMLConnectionDefEdit in '..\InstantXMLConnectionDefEdit.pas' {InstantXMLConnectionDefEditForm}, InstantXML in '..\InstantXML.pas'; --- 34,41 ---- dbrtl, IOCore, ! vclx; contains + InstantXMLCatalog in '..\InstantXMLCatalog.pas', InstantXMLConnectionDefEdit in '..\InstantXMLConnectionDefEdit.pas' {InstantXMLConnectionDefEditForm}, InstantXML in '..\InstantXML.pas'; |
|
From: Nando D. <na...@us...> - 2005-10-20 08:04:08
|
Update of /cvsroot/instantobjects/Source/Brokers/XML/D6 In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv23882/Brokers/XML/D6 Modified Files: IOXML.dpk Log Message: Integrated the XML catalog into the XML broker Index: IOXML.dpk =================================================================== RCS file: /cvsroot/instantobjects/Source/Brokers/XML/D6/IOXML.dpk,v retrieving revision 1.4 retrieving revision 1.5 diff -C2 -d -r1.4 -r1.5 *** IOXML.dpk 8 Sep 2005 07:35:32 -0000 1.4 --- IOXML.dpk 20 Oct 2005 08:04:00 -0000 1.5 *************** *** 34,41 **** dbrtl, IOCore, ! vclx, ! IOXMLCatalog; contains InstantXMLConnectionDefEdit in '..\InstantXMLConnectionDefEdit.pas' {InstantXMLConnectionDefEditForm}, InstantXML in '..\InstantXML.pas'; --- 34,41 ---- dbrtl, IOCore, ! vclx; contains + InstantXMLCatalog in '..\InstantXMLCatalog.pas', InstantXMLConnectionDefEdit in '..\InstantXMLConnectionDefEdit.pas' {InstantXMLConnectionDefEditForm}, InstantXML in '..\InstantXML.pas'; |
|
From: Nando D. <na...@us...> - 2005-10-20 08:03:37
|
Update of /cvsroot/instantobjects/Demos/PrimerCross In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv23709/PrimerCross Modified Files: Primer.cfg Primer.dof PrimerExternal.cfg PrimerExternal.dof Log Message: Integrated the XML catalog into the XML broker Index: Primer.dof =================================================================== RCS file: /cvsroot/instantobjects/Demos/PrimerCross/Primer.dof,v retrieving revision 1.7 retrieving revision 1.8 diff -C2 -d -r1.7 -r1.8 *** Primer.dof 20 Oct 2005 07:49:40 -0000 1.7 --- Primer.dof 20 Oct 2005 08:03:28 -0000 1.8 *************** *** 95,99 **** PackageDLLOutputDir= PackageDCPOutputDir= ! SearchPath=$(DELPHI)\Lib\Debug;..\..\Source\Core;..\..\Source\Brokers\DBX;..\..\Source\Brokers\ADO;..\..\Source\Brokers\BDE;..\..\Source\Brokers\IBX;..\..\Source\Brokers\XML;..\..\Source\Brokers\UIB;..\..\Source\Brokers\ZeosDBO;..\..\Source\Catalogs\MsSql;..\..\Source\Catalogs\IbFb;..\..\Source\Catalogs\XML Packages= Conditionals= --- 95,99 ---- PackageDLLOutputDir= PackageDCPOutputDir= ! SearchPath=$(DELPHI)\Lib\Debug;..\..\Source\Core;..\..\Source\Brokers\DBX;..\..\Source\Brokers\ADO;..\..\Source\Brokers\BDE;..\..\Source\Brokers\IBX;..\..\Source\Brokers\XML;..\..\Source\Brokers\UIB;..\..\Source\Brokers\ZeosDBO;..\..\Source\Catalogs\BDE;..\..\Source\Catalogs\MsSql;..\..\Source\Catalogs\IbFb;..\..\Source\Catalogs\XML Packages= Conditionals= Index: Primer.cfg =================================================================== RCS file: /cvsroot/instantobjects/Demos/PrimerCross/Primer.cfg,v retrieving revision 1.6 retrieving revision 1.7 diff -C2 -d -r1.6 -r1.7 *** Primer.cfg 20 Oct 2005 07:49:40 -0000 1.6 --- Primer.cfg 20 Oct 2005 08:03:28 -0000 1.7 *************** *** 25,29 **** --- 25,31 ---- -$YD -$Z1 + -GD -cg + -vn -AWinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE; -H+ *************** *** 34,41 **** -LE"c:\programmi\borland\delphi7\Projects\Bpl" -LN"c:\programmi\borland\delphi7\Projects\Bpl" ! -U"c:\programmi\borland\delphi7\Lib\Debug;..\..\Source\Core;..\..\Source\Brokers\DBX;..\..\Source\Brokers\ADO;..\..\Source\Brokers\BDE;..\..\Source\Brokers\IBX;..\..\Source\Brokers\XML;..\..\Source\Brokers\UIB;..\..\Source\Brokers\ZeosDBO;..\..\Source\Catalogs\MsSql;..\..\Source\Catalogs\IbFb;..\..\Source\Catalogs\XML" ! -O"c:\programmi\borland\delphi7\Lib\Debug;..\..\Source\Core;..\..\Source\Brokers\DBX;..\..\Source\Brokers\ADO;..\..\Source\Brokers\BDE;..\..\Source\Brokers\IBX;..\..\Source\Brokers\XML;..\..\Source\Brokers\UIB;..\..\Source\Brokers\ZeosDBO;..\..\Source\Catalogs\MsSql;..\..\Source\Catalogs\IbFb;..\..\Source\Catalogs\XML" ! -I"c:\programmi\borland\delphi7\Lib\Debug;..\..\Source\Core;..\..\Source\Brokers\DBX;..\..\Source\Brokers\ADO;..\..\Source\Brokers\BDE;..\..\Source\Brokers\IBX;..\..\Source\Brokers\XML;..\..\Source\Brokers\UIB;..\..\Source\Brokers\ZeosDBO;..\..\Source\Catalogs\MsSql;..\..\Source\Catalogs\IbFb;..\..\Source\Catalogs\XML" ! -R"c:\programmi\borland\delphi7\Lib\Debug;..\..\Source\Core;..\..\Source\Brokers\DBX;..\..\Source\Brokers\ADO;..\..\Source\Brokers\BDE;..\..\Source\Brokers\IBX;..\..\Source\Brokers\XML;..\..\Source\Brokers\UIB;..\..\Source\Brokers\ZeosDBO;..\..\Source\Catalogs\MsSql;..\..\Source\Catalogs\IbFb;..\..\Source\Catalogs\XML" -w-UNIT_PLATFORM -w-UNSAFE_TYPE --- 36,43 ---- -LE"c:\programmi\borland\delphi7\Projects\Bpl" -LN"c:\programmi\borland\delphi7\Projects\Bpl" ! -U"c:\programmi\borland\delphi7\Lib\Debug;..\..\Source\Core;..\..\Source\Brokers\DBX;..\..\Source\Brokers\ADO;..\..\Source\Brokers\BDE;..\..\Source\Brokers\IBX;..\..\Source\Brokers\XML;..\..\Source\Brokers\UIB;..\..\Source\Brokers\ZeosDBO;..\..\Source\Catalogs\BDE;..\..\Source\Catalogs\MsSql;..\..\Source\Catalogs\IbFb;..\..\Source\Catalogs\XML" ! -O"c:\programmi\borland\delphi7\Lib\Debug;..\..\Source\Core;..\..\Source\Brokers\DBX;..\..\Source\Brokers\ADO;..\..\Source\Brokers\BDE;..\..\Source\Brokers\IBX;..\..\Source\Brokers\XML;..\..\Source\Brokers\UIB;..\..\Source\Brokers\ZeosDBO;..\..\Source\Catalogs\BDE;..\..\Source\Catalogs\MsSql;..\..\Source\Catalogs\IbFb;..\..\Source\Catalogs\XML" ! -I"c:\programmi\borland\delphi7\Lib\Debug;..\..\Source\Core;..\..\Source\Brokers\DBX;..\..\Source\Brokers\ADO;..\..\Source\Brokers\BDE;..\..\Source\Brokers\IBX;..\..\Source\Brokers\XML;..\..\Source\Brokers\UIB;..\..\Source\Brokers\ZeosDBO;..\..\Source\Catalogs\BDE;..\..\Source\Catalogs\MsSql;..\..\Source\Catalogs\IbFb;..\..\Source\Catalogs\XML" ! -R"c:\programmi\borland\delphi7\Lib\Debug;..\..\Source\Core;..\..\Source\Brokers\DBX;..\..\Source\Brokers\ADO;..\..\Source\Brokers\BDE;..\..\Source\Brokers\IBX;..\..\Source\Brokers\XML;..\..\Source\Brokers\UIB;..\..\Source\Brokers\ZeosDBO;..\..\Source\Catalogs\BDE;..\..\Source\Catalogs\MsSql;..\..\Source\Catalogs\IbFb;..\..\Source\Catalogs\XML" -w-UNIT_PLATFORM -w-UNSAFE_TYPE Index: PrimerExternal.cfg =================================================================== RCS file: /cvsroot/instantobjects/Demos/PrimerCross/PrimerExternal.cfg,v retrieving revision 1.4 retrieving revision 1.5 diff -C2 -d -r1.4 -r1.5 *** PrimerExternal.cfg 20 Oct 2005 07:49:40 -0000 1.4 --- PrimerExternal.cfg 20 Oct 2005 08:03:28 -0000 1.5 *************** *** 34,41 **** -LE"c:\programmi\borland\delphi7\Projects\Bpl" -LN"c:\programmi\borland\delphi7\Projects\Bpl" ! -U"c:\programmi\borland\delphi7\Lib\Debug;..\..\Source\Core;..\..\Source\Brokers\DBX;..\..\Source\Brokers\ADO;..\..\Source\Brokers\BDE;..\..\Source\Brokers\IBX;..\..\Source\Brokers\XML;..\..\Source\Brokers\UIB;..\..\Source\Brokers\ZeosDBO;..\..\Source\Catalogs\MsSql;..\..\Source\Catalogs\IbFb;..\..\Source\Catalogs\XML" ! -O"c:\programmi\borland\delphi7\Lib\Debug;..\..\Source\Core;..\..\Source\Brokers\DBX;..\..\Source\Brokers\ADO;..\..\Source\Brokers\BDE;..\..\Source\Brokers\IBX;..\..\Source\Brokers\XML;..\..\Source\Brokers\UIB;..\..\Source\Brokers\ZeosDBO;..\..\Source\Catalogs\MsSql;..\..\Source\Catalogs\IbFb;..\..\Source\Catalogs\XML" ! -I"c:\programmi\borland\delphi7\Lib\Debug;..\..\Source\Core;..\..\Source\Brokers\DBX;..\..\Source\Brokers\ADO;..\..\Source\Brokers\BDE;..\..\Source\Brokers\IBX;..\..\Source\Brokers\XML;..\..\Source\Brokers\UIB;..\..\Source\Brokers\ZeosDBO;..\..\Source\Catalogs\MsSql;..\..\Source\Catalogs\IbFb;..\..\Source\Catalogs\XML" ! -R"c:\programmi\borland\delphi7\Lib\Debug;..\..\Source\Core;..\..\Source\Brokers\DBX;..\..\Source\Brokers\ADO;..\..\Source\Brokers\BDE;..\..\Source\Brokers\IBX;..\..\Source\Brokers\XML;..\..\Source\Brokers\UIB;..\..\Source\Brokers\ZeosDBO;..\..\Source\Catalogs\MsSql;..\..\Source\Catalogs\IbFb;..\..\Source\Catalogs\XML" -w-UNIT_PLATFORM -w-UNSAFE_TYPE --- 34,41 ---- -LE"c:\programmi\borland\delphi7\Projects\Bpl" -LN"c:\programmi\borland\delphi7\Projects\Bpl" ! -U"c:\programmi\borland\delphi7\Lib\Debug;..\..\Source\Core;..\..\Source\Brokers\DBX;..\..\Source\Brokers\ADO;..\..\Source\Brokers\BDE;..\..\Source\Brokers\IBX;..\..\Source\Brokers\XML;..\..\Source\Brokers\UIB;..\..\Source\Brokers\ZeosDBO;..\..\Source\Catalogs\BDE;..\..\Source\Catalogs\MsSql;..\..\Source\Catalogs\IbFb;..\..\Source\Catalogs\XML" ! -O"c:\programmi\borland\delphi7\Lib\Debug;..\..\Source\Core;..\..\Source\Brokers\DBX;..\..\Source\Brokers\ADO;..\..\Source\Brokers\BDE;..\..\Source\Brokers\IBX;..\..\Source\Brokers\XML;..\..\Source\Brokers\UIB;..\..\Source\Brokers\ZeosDBO;..\..\Source\Catalogs\BDE;..\..\Source\Catalogs\MsSql;..\..\Source\Catalogs\IbFb;..\..\Source\Catalogs\XML" ! -I"c:\programmi\borland\delphi7\Lib\Debug;..\..\Source\Core;..\..\Source\Brokers\DBX;..\..\Source\Brokers\ADO;..\..\Source\Brokers\BDE;..\..\Source\Brokers\IBX;..\..\Source\Brokers\XML;..\..\Source\Brokers\UIB;..\..\Source\Brokers\ZeosDBO;..\..\Source\Catalogs\BDE;..\..\Source\Catalogs\MsSql;..\..\Source\Catalogs\IbFb;..\..\Source\Catalogs\XML" ! -R"c:\programmi\borland\delphi7\Lib\Debug;..\..\Source\Core;..\..\Source\Brokers\DBX;..\..\Source\Brokers\ADO;..\..\Source\Brokers\BDE;..\..\Source\Brokers\IBX;..\..\Source\Brokers\XML;..\..\Source\Brokers\UIB;..\..\Source\Brokers\ZeosDBO;..\..\Source\Catalogs\BDE;..\..\Source\Catalogs\MsSql;..\..\Source\Catalogs\IbFb;..\..\Source\Catalogs\XML" -w-UNIT_PLATFORM -w-UNSAFE_TYPE Index: PrimerExternal.dof =================================================================== RCS file: /cvsroot/instantobjects/Demos/PrimerCross/PrimerExternal.dof,v retrieving revision 1.3 retrieving revision 1.4 diff -C2 -d -r1.3 -r1.4 *** PrimerExternal.dof 20 Oct 2005 07:49:40 -0000 1.3 --- PrimerExternal.dof 20 Oct 2005 08:03:28 -0000 1.4 *************** *** 95,99 **** PackageDLLOutputDir= PackageDCPOutputDir= ! SearchPath=$(DELPHI)\Lib\Debug;..\..\Source\Core;..\..\Source\Brokers\DBX;..\..\Source\Brokers\ADO;..\..\Source\Brokers\BDE;..\..\Source\Brokers\IBX;..\..\Source\Brokers\XML;..\..\Source\Brokers\UIB;..\..\Source\Brokers\ZeosDBO;..\..\Source\Catalogs\MsSql;..\..\Source\Catalogs\IbFb;..\..\Source\Catalogs\XML Packages= Conditionals= --- 95,99 ---- PackageDLLOutputDir= PackageDCPOutputDir= ! SearchPath=$(DELPHI)\Lib\Debug;..\..\Source\Core;..\..\Source\Brokers\DBX;..\..\Source\Brokers\ADO;..\..\Source\Brokers\BDE;..\..\Source\Brokers\IBX;..\..\Source\Brokers\XML;..\..\Source\Brokers\UIB;..\..\Source\Brokers\ZeosDBO;..\..\Source\Catalogs\BDE;..\..\Source\Catalogs\MsSql;..\..\Source\Catalogs\IbFb;..\..\Source\Catalogs\XML Packages= Conditionals= |
|
From: Nando D. <na...@us...> - 2005-10-20 07:51:30
|
Update of /cvsroot/instantobjects/Source/Catalogs/BDE/D6 In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv21511/Catalogs/BDE/D6 Removed Files: IOBDECatalog.dpk Log Message: Integrated the BDE catalog into the BDE broker --- IOBDECatalog.dpk DELETED --- |
|
From: Nando D. <na...@us...> - 2005-10-20 07:51:30
|
Update of /cvsroot/instantobjects/Source/Catalogs/BDE In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv21511/Catalogs/BDE Removed Files: InstantBDECatalog.pas Log Message: Integrated the BDE catalog into the BDE broker --- InstantBDECatalog.pas DELETED --- |
|
From: Nando D. <na...@us...> - 2005-10-20 07:51:30
|
Update of /cvsroot/instantobjects/Source/Catalogs/BDE/D5 In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv21511/Catalogs/BDE/D5 Removed Files: IOBDECatalog_D5.dpk Log Message: Integrated the BDE catalog into the BDE broker --- IOBDECatalog_D5.dpk DELETED --- |
|
From: Nando D. <na...@us...> - 2005-10-20 07:51:30
|
Update of /cvsroot/instantobjects/Source/Catalogs/BDE/D7 In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv21511/Catalogs/BDE/D7 Removed Files: IOBDECatalog.dpk Log Message: Integrated the BDE catalog into the BDE broker --- IOBDECatalog.dpk DELETED --- |
|
From: Nando D. <na...@us...> - 2005-10-20 07:51:30
|
Update of /cvsroot/instantobjects/Source/Catalogs/BDE/D2005 In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv21511/Catalogs/BDE/D2005 Removed Files: IOBDECatalog.dpk Log Message: Integrated the BDE catalog into the BDE broker --- IOBDECatalog.dpk DELETED --- |
|
From: Nando D. <na...@us...> - 2005-10-20 07:49:52
|
Update of /cvsroot/instantobjects/Demos/PrimerCross In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv21148/PrimerCross Modified Files: Primer.cfg Primer.dof PrimerExternal.cfg PrimerExternal.dof Log Message: Integrated the BDE catalog into the BDE broker Index: Primer.dof =================================================================== RCS file: /cvsroot/instantobjects/Demos/PrimerCross/Primer.dof,v retrieving revision 1.6 retrieving revision 1.7 diff -C2 -d -r1.6 -r1.7 *** Primer.dof 17 Oct 2005 19:43:08 -0000 1.6 --- Primer.dof 20 Oct 2005 07:49:40 -0000 1.7 *************** *** 81,88 **** UnsafeCast=0 [Linker] ! MapFile=0 OutputObjs=0 ConsoleApp=1 ! DebugInfo=0 RemoteSymbols=0 MinStackSize=16384 --- 81,88 ---- UnsafeCast=0 [Linker] ! MapFile=3 OutputObjs=0 ConsoleApp=1 ! DebugInfo=1 RemoteSymbols=0 MinStackSize=16384 *************** *** 95,99 **** PackageDLLOutputDir= PackageDCPOutputDir= ! SearchPath=$(DELPHI)\Lib\Debug;..\..\Source\Core;..\..\Source\Brokers\DBX;..\..\Source\Brokers\ADO;..\..\Source\Brokers\BDE;..\..\Source\Brokers\IBX;..\..\Source\Brokers\XML;..\..\Source\Brokers\UIB;..\..\Source\Brokers\ZeosDBO;..\..\Source\Catalogs\BDE;..\..\Source\Catalogs\MsSql;..\..\Source\Catalogs\IbFb;..\..\Source\Catalogs\XML Packages= Conditionals= --- 95,99 ---- PackageDLLOutputDir= PackageDCPOutputDir= ! SearchPath=$(DELPHI)\Lib\Debug;..\..\Source\Core;..\..\Source\Brokers\DBX;..\..\Source\Brokers\ADO;..\..\Source\Brokers\BDE;..\..\Source\Brokers\IBX;..\..\Source\Brokers\XML;..\..\Source\Brokers\UIB;..\..\Source\Brokers\ZeosDBO;..\..\Source\Catalogs\MsSql;..\..\Source\Catalogs\IbFb;..\..\Source\Catalogs\XML Packages= Conditionals= *************** *** 135,136 **** --- 135,139 ---- ProductVersion=2.0 Comments= + [Excluded Packages] + c:\programmi\borland\delphi7\Projects\Bpl\CBCLX70.bpl=** CBCLX Package Delphi 7: CLX components ** + c:\programmi\borland\delphi7\Projects\Bpl\CBDesign70.bpl=*** Design-time property-editors Delphi 7 per CBVCL *** Index: Primer.cfg =================================================================== RCS file: /cvsroot/instantobjects/Demos/PrimerCross/Primer.cfg,v retrieving revision 1.5 retrieving revision 1.6 diff -C2 -d -r1.5 -r1.6 *** Primer.cfg 17 Oct 2005 19:43:08 -0000 1.5 --- Primer.cfg 20 Oct 2005 07:49:40 -0000 1.6 *************** *** 34,41 **** -LE"c:\programmi\borland\delphi7\Projects\Bpl" -LN"c:\programmi\borland\delphi7\Projects\Bpl" ! -U"c:\programmi\borland\delphi7\Lib\Debug;..\..\Source\Core;..\..\Source\Brokers\DBX;..\..\Source\Brokers\ADO;..\..\Source\Brokers\BDE;..\..\Source\Brokers\IBX;..\..\Source\Brokers\XML;..\..\Source\Brokers\UIB;..\..\Source\Brokers\ZeosDBO;..\..\Source\Catalogs\BDE;..\..\Source\Catalogs\MsSql;..\..\Source\Catalogs\IbFb;..\..\Source\Catalogs\XML" ! -O"c:\programmi\borland\delphi7\Lib\Debug;..\..\Source\Core;..\..\Source\Brokers\DBX;..\..\Source\Brokers\ADO;..\..\Source\Brokers\BDE;..\..\Source\Brokers\IBX;..\..\Source\Brokers\XML;..\..\Source\Brokers\UIB;..\..\Source\Brokers\ZeosDBO;..\..\Source\Catalogs\BDE;..\..\Source\Catalogs\MsSql;..\..\Source\Catalogs\IbFb;..\..\Source\Catalogs\XML" ! -I"c:\programmi\borland\delphi7\Lib\Debug;..\..\Source\Core;..\..\Source\Brokers\DBX;..\..\Source\Brokers\ADO;..\..\Source\Brokers\BDE;..\..\Source\Brokers\IBX;..\..\Source\Brokers\XML;..\..\Source\Brokers\UIB;..\..\Source\Brokers\ZeosDBO;..\..\Source\Catalogs\BDE;..\..\Source\Catalogs\MsSql;..\..\Source\Catalogs\IbFb;..\..\Source\Catalogs\XML" ! -R"c:\programmi\borland\delphi7\Lib\Debug;..\..\Source\Core;..\..\Source\Brokers\DBX;..\..\Source\Brokers\ADO;..\..\Source\Brokers\BDE;..\..\Source\Brokers\IBX;..\..\Source\Brokers\XML;..\..\Source\Brokers\UIB;..\..\Source\Brokers\ZeosDBO;..\..\Source\Catalogs\BDE;..\..\Source\Catalogs\MsSql;..\..\Source\Catalogs\IbFb;..\..\Source\Catalogs\XML" -w-UNIT_PLATFORM -w-UNSAFE_TYPE --- 34,41 ---- -LE"c:\programmi\borland\delphi7\Projects\Bpl" -LN"c:\programmi\borland\delphi7\Projects\Bpl" ! -U"c:\programmi\borland\delphi7\Lib\Debug;..\..\Source\Core;..\..\Source\Brokers\DBX;..\..\Source\Brokers\ADO;..\..\Source\Brokers\BDE;..\..\Source\Brokers\IBX;..\..\Source\Brokers\XML;..\..\Source\Brokers\UIB;..\..\Source\Brokers\ZeosDBO;..\..\Source\Catalogs\MsSql;..\..\Source\Catalogs\IbFb;..\..\Source\Catalogs\XML" ! -O"c:\programmi\borland\delphi7\Lib\Debug;..\..\Source\Core;..\..\Source\Brokers\DBX;..\..\Source\Brokers\ADO;..\..\Source\Brokers\BDE;..\..\Source\Brokers\IBX;..\..\Source\Brokers\XML;..\..\Source\Brokers\UIB;..\..\Source\Brokers\ZeosDBO;..\..\Source\Catalogs\MsSql;..\..\Source\Catalogs\IbFb;..\..\Source\Catalogs\XML" ! -I"c:\programmi\borland\delphi7\Lib\Debug;..\..\Source\Core;..\..\Source\Brokers\DBX;..\..\Source\Brokers\ADO;..\..\Source\Brokers\BDE;..\..\Source\Brokers\IBX;..\..\Source\Brokers\XML;..\..\Source\Brokers\UIB;..\..\Source\Brokers\ZeosDBO;..\..\Source\Catalogs\MsSql;..\..\Source\Catalogs\IbFb;..\..\Source\Catalogs\XML" ! -R"c:\programmi\borland\delphi7\Lib\Debug;..\..\Source\Core;..\..\Source\Brokers\DBX;..\..\Source\Brokers\ADO;..\..\Source\Brokers\BDE;..\..\Source\Brokers\IBX;..\..\Source\Brokers\XML;..\..\Source\Brokers\UIB;..\..\Source\Brokers\ZeosDBO;..\..\Source\Catalogs\MsSql;..\..\Source\Catalogs\IbFb;..\..\Source\Catalogs\XML" -w-UNIT_PLATFORM -w-UNSAFE_TYPE Index: PrimerExternal.cfg =================================================================== RCS file: /cvsroot/instantobjects/Demos/PrimerCross/PrimerExternal.cfg,v retrieving revision 1.3 retrieving revision 1.4 diff -C2 -d -r1.3 -r1.4 *** PrimerExternal.cfg 17 Oct 2005 19:43:08 -0000 1.3 --- PrimerExternal.cfg 20 Oct 2005 07:49:40 -0000 1.4 *************** *** 34,41 **** -LE"c:\programmi\borland\delphi7\Projects\Bpl" -LN"c:\programmi\borland\delphi7\Projects\Bpl" ! -U"c:\programmi\borland\delphi7\Lib\Debug;..\..\Source\Core;..\..\Source\Brokers\DBX;..\..\Source\Brokers\ADO;..\..\Source\Brokers\BDE;..\..\Source\Brokers\IBX;..\..\Source\Brokers\XML;..\..\Source\Brokers\UIB;..\..\Source\Brokers\ZeosDBO;..\..\Source\Catalogs\BDE;..\..\Source\Catalogs\MsSql;..\..\Source\Catalogs\IbFb;..\..\Source\Catalogs\XML" ! -O"c:\programmi\borland\delphi7\Lib\Debug;..\..\Source\Core;..\..\Source\Brokers\DBX;..\..\Source\Brokers\ADO;..\..\Source\Brokers\BDE;..\..\Source\Brokers\IBX;..\..\Source\Brokers\XML;..\..\Source\Brokers\UIB;..\..\Source\Brokers\ZeosDBO;..\..\Source\Catalogs\BDE;..\..\Source\Catalogs\MsSql;..\..\Source\Catalogs\IbFb;..\..\Source\Catalogs\XML" ! -I"c:\programmi\borland\delphi7\Lib\Debug;..\..\Source\Core;..\..\Source\Brokers\DBX;..\..\Source\Brokers\ADO;..\..\Source\Brokers\BDE;..\..\Source\Brokers\IBX;..\..\Source\Brokers\XML;..\..\Source\Brokers\UIB;..\..\Source\Brokers\ZeosDBO;..\..\Source\Catalogs\BDE;..\..\Source\Catalogs\MsSql;..\..\Source\Catalogs\IbFb;..\..\Source\Catalogs\XML" ! -R"c:\programmi\borland\delphi7\Lib\Debug;..\..\Source\Core;..\..\Source\Brokers\DBX;..\..\Source\Brokers\ADO;..\..\Source\Brokers\BDE;..\..\Source\Brokers\IBX;..\..\Source\Brokers\XML;..\..\Source\Brokers\UIB;..\..\Source\Brokers\ZeosDBO;..\..\Source\Catalogs\BDE;..\..\Source\Catalogs\MsSql;..\..\Source\Catalogs\IbFb;..\..\Source\Catalogs\XML" -w-UNIT_PLATFORM -w-UNSAFE_TYPE --- 34,41 ---- -LE"c:\programmi\borland\delphi7\Projects\Bpl" -LN"c:\programmi\borland\delphi7\Projects\Bpl" ! -U"c:\programmi\borland\delphi7\Lib\Debug;..\..\Source\Core;..\..\Source\Brokers\DBX;..\..\Source\Brokers\ADO;..\..\Source\Brokers\BDE;..\..\Source\Brokers\IBX;..\..\Source\Brokers\XML;..\..\Source\Brokers\UIB;..\..\Source\Brokers\ZeosDBO;..\..\Source\Catalogs\MsSql;..\..\Source\Catalogs\IbFb;..\..\Source\Catalogs\XML" ! -O"c:\programmi\borland\delphi7\Lib\Debug;..\..\Source\Core;..\..\Source\Brokers\DBX;..\..\Source\Brokers\ADO;..\..\Source\Brokers\BDE;..\..\Source\Brokers\IBX;..\..\Source\Brokers\XML;..\..\Source\Brokers\UIB;..\..\Source\Brokers\ZeosDBO;..\..\Source\Catalogs\MsSql;..\..\Source\Catalogs\IbFb;..\..\Source\Catalogs\XML" ! -I"c:\programmi\borland\delphi7\Lib\Debug;..\..\Source\Core;..\..\Source\Brokers\DBX;..\..\Source\Brokers\ADO;..\..\Source\Brokers\BDE;..\..\Source\Brokers\IBX;..\..\Source\Brokers\XML;..\..\Source\Brokers\UIB;..\..\Source\Brokers\ZeosDBO;..\..\Source\Catalogs\MsSql;..\..\Source\Catalogs\IbFb;..\..\Source\Catalogs\XML" ! -R"c:\programmi\borland\delphi7\Lib\Debug;..\..\Source\Core;..\..\Source\Brokers\DBX;..\..\Source\Brokers\ADO;..\..\Source\Brokers\BDE;..\..\Source\Brokers\IBX;..\..\Source\Brokers\XML;..\..\Source\Brokers\UIB;..\..\Source\Brokers\ZeosDBO;..\..\Source\Catalogs\MsSql;..\..\Source\Catalogs\IbFb;..\..\Source\Catalogs\XML" -w-UNIT_PLATFORM -w-UNSAFE_TYPE Index: PrimerExternal.dof =================================================================== RCS file: /cvsroot/instantobjects/Demos/PrimerCross/PrimerExternal.dof,v retrieving revision 1.2 retrieving revision 1.3 diff -C2 -d -r1.2 -r1.3 *** PrimerExternal.dof 17 Oct 2005 19:43:08 -0000 1.2 --- PrimerExternal.dof 20 Oct 2005 07:49:40 -0000 1.3 *************** *** 95,99 **** PackageDLLOutputDir= PackageDCPOutputDir= ! SearchPath=$(DELPHI)\Lib\Debug;..\..\Source\Core;..\..\Source\Brokers\DBX;..\..\Source\Brokers\ADO;..\..\Source\Brokers\BDE;..\..\Source\Brokers\IBX;..\..\Source\Brokers\XML;..\..\Source\Brokers\UIB;..\..\Source\Brokers\ZeosDBO;..\..\Source\Catalogs\BDE;..\..\Source\Catalogs\MsSql;..\..\Source\Catalogs\IbFb;..\..\Source\Catalogs\XML Packages= Conditionals= --- 95,99 ---- PackageDLLOutputDir= PackageDCPOutputDir= ! SearchPath=$(DELPHI)\Lib\Debug;..\..\Source\Core;..\..\Source\Brokers\DBX;..\..\Source\Brokers\ADO;..\..\Source\Brokers\BDE;..\..\Source\Brokers\IBX;..\..\Source\Brokers\XML;..\..\Source\Brokers\UIB;..\..\Source\Brokers\ZeosDBO;..\..\Source\Catalogs\MsSql;..\..\Source\Catalogs\IbFb;..\..\Source\Catalogs\XML Packages= Conditionals= *************** *** 135,137 **** ProductVersion=2.0 Comments= - [Excluded Packages] --- 135,136 ---- |
|
From: Nando D. <na...@us...> - 2005-10-20 07:49:52
|
Update of /cvsroot/instantobjects/Demos/Intro In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv21148/Intro Modified Files: Intro.cfg Intro.dof Log Message: Integrated the BDE catalog into the BDE broker Index: Intro.dof =================================================================== RCS file: /cvsroot/instantobjects/Demos/Intro/Intro.dof,v retrieving revision 1.3 retrieving revision 1.4 diff -C2 -d -r1.3 -r1.4 *** Intro.dof 18 Oct 2005 13:17:21 -0000 1.3 --- Intro.dof 20 Oct 2005 07:49:40 -0000 1.4 *************** *** 95,99 **** PackageDLLOutputDir= PackageDCPOutputDir= ! SearchPath=..\..\Source\Core;..\..\Source\Brokers\BDE;..\..\Source\Catalogs\BDE Packages=VCL50;VCLX50;VCLSMP50;VCLDB50;VCLADO50;ibevnt50;VCLBDE50;VCLDBX50;QRPT50;TEEUI50;TEEDB50;TEE50;DSS50;TEEQR50;VCLIB50;VCLIE50;INETDB50;INET50;VCLMID50;NMFAST50;WEBMID50;dclocx50;dclaxserver50;Orbit50;Bgo23;Bgo22;RBTDBC51;RBRCL45;RBCIDE45;RBIDE45;RBBDE45;RBUSER45;RBDB45;dclRBA45;RBDAD45;dclRBI45;TSDG5201;TSG5201 Conditionals= --- 95,99 ---- PackageDLLOutputDir= PackageDCPOutputDir= ! SearchPath=..\..\Source\Core;..\..\Source\Brokers\BDE Packages=VCL50;VCLX50;VCLSMP50;VCLDB50;VCLADO50;ibevnt50;VCLBDE50;VCLDBX50;QRPT50;TEEUI50;TEEDB50;TEE50;DSS50;TEEQR50;VCLIB50;VCLIE50;INETDB50;INET50;VCLMID50;NMFAST50;WEBMID50;dclocx50;dclaxserver50;Orbit50;Bgo23;Bgo22;RBTDBC51;RBRCL45;RBCIDE45;RBIDE45;RBBDE45;RBUSER45;RBDB45;dclRBA45;RBDAD45;dclRBI45;TSDG5201;TSG5201 Conditionals= Index: Intro.cfg =================================================================== RCS file: /cvsroot/instantobjects/Demos/Intro/Intro.cfg,v retrieving revision 1.2 retrieving revision 1.3 diff -C2 -d -r1.2 -r1.3 *** Intro.cfg 18 Oct 2005 13:17:20 -0000 1.2 --- Intro.cfg 20 Oct 2005 07:49:40 -0000 1.3 *************** *** 35,40 **** -LE"c:\programmi\borland\delphi7\Projects\Bpl" -LN"c:\programmi\borland\delphi7\Projects\Bpl" ! -U"..\..\Source\Core;..\..\Source\Brokers\BDE;..\..\Source\Catalogs\BDE" ! -O"..\..\Source\Core;..\..\Source\Brokers\BDE;..\..\Source\Catalogs\BDE" ! -I"..\..\Source\Core;..\..\Source\Brokers\BDE;..\..\Source\Catalogs\BDE" ! -R"..\..\Source\Core;..\..\Source\Brokers\BDE;..\..\Source\Catalogs\BDE" --- 35,40 ---- -LE"c:\programmi\borland\delphi7\Projects\Bpl" -LN"c:\programmi\borland\delphi7\Projects\Bpl" ! -U"..\..\Source\Core;..\..\Source\Brokers\BDE" ! -O"..\..\Source\Core;..\..\Source\Brokers\BDE" ! -I"..\..\Source\Core;..\..\Source\Brokers\BDE" ! -R"..\..\Source\Core;..\..\Source\Brokers\BDE" |
|
From: Nando D. <na...@us...> - 2005-10-20 07:42:48
|
Update of /cvsroot/instantobjects/Source/Brokers/BDE In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv20097/Brokers/BDE Added Files: InstantBDECatalog.pas Log Message: Integrated the BDE catalog into the BDE broker --- NEW FILE: InstantBDECatalog.pas --- (* * InstantObjects DBEvolver Support * BDE Catalog *) (* ***** BEGIN LICENSE BLOCK ***** * Version: MPL 1.1 * * The contents of this file are subject to the Mozilla Public License Version * 1.1 (the "License"); you may not use this file except in compliance with * the License. You may obtain a copy of the License at * http://www.mozilla.org/MPL/ * * Software distributed under the License is distributed on an "AS IS" basis, * WITHOUT WARRANTY OF ANY KIND, either express or implied. See the License * for the specific language governing rights and limitations under the * License. * * The Original Code is: InstantObjects DBEvolver Support/BDE Catalog * * The Initial Developer of the Original Code is: Steven Mitchell * * Portions created by the Initial Developer are Copyright (C) 2005 * the Initial Developer. All Rights Reserved. * * Contributor(s): * * ***** END LICENSE BLOCK ***** *) unit InstantBDECatalog; {$IFDEF LINUX} {$I '../../InstantDefines.inc'} {$ELSE} {$I '..\..\InstantDefines.inc'} {$ENDIF} interface uses InstantPersistence, DB, DBTables; type // A TInstantCatalog that reads catalog information from a BDE // database. Can be used with a BDE broker. TInstantBDECatalog = class(TInstantBrokerCatalog) private procedure AddFieldMetadatas(TableMetadata: TInstantTableMetadata); procedure AddIndexMetadatas(TableMetadata: TInstantTableMetadata); procedure AddTableMetadatas(TableMetadatas: TInstantTableMetadatas); function ColumnTypeToDataType(const ColumnType: TFieldType): TInstantDataType; public procedure InitTableMetadatas(ATableMetadatas: TInstantTableMetadatas); override; end; implementation uses SysUtils, Classes, TypInfo, Dialogs, InstantConsts; procedure TInstantBDECatalog.AddFieldMetadatas( TableMetadata: TInstantTableMetadata); var vTable: TTable; FieldMetadata: TInstantFieldMetadata; i: Integer; begin vTable := TTable.Create(nil); try vTable.DatabaseName := Broker.Connector.DatabaseName; vTable.TableName := TableMetadata.Name; vTable.FieldDefs.Update; for i := 0 to Pred(vTable.FieldDefs.Count) do begin FieldMetadata := TableMetadata.FieldMetadatas.Add; FieldMetadata.Name := Trim(vTable.FieldDefs[i].Name); FieldMetadata.DataType := ColumnTypeToDataType(vTable.FieldDefs[i].DataType); FieldMetadata.Options := []; if vTable.FieldDefs[i].Required then FieldMetadata.Options := FieldMetadata.Options + [foRequired]; if TableMetadata.IndexMetadatas.IsFieldIndexed(FieldMetadata) then FieldMetadata.Options := FieldMetadata.Options + [foIndexed]; { TODO : support ExternalTableName? } if FieldMetadata.DataType in [dtString, dtMemo] then FieldMetadata.Size := vTable.FieldDefs[i].Size; end; finally vTable.Free; end; end; { TInstantBDECatalog } procedure TInstantBDECatalog.AddIndexMetadatas( TableMetadata: TInstantTableMetadata); var vTable: TTable; IndexMetadata: TInstantIndexMetadata; i: Integer; begin vTable := TTable.Create(nil); try vTable.DatabaseName := Broker.Connector.DatabaseName; vTable.TableName := TableMetadata.Name; vTable.IndexDefs.Update; for i := 0 to Pred(vTable.IndexDefs.Count) do begin IndexMetadata := TableMetadata.IndexMetadatas.Add; if ixPrimary in vTable.IndexDefs[i].Options then IndexMetadata.Name := Trim(vTable.IndexDefs[i].Name) else IndexMetadata.Name := ChangeFileExt(vTable.TableName, '') + Trim(vTable.IndexDefs[i].Name); IndexMetadata.Fields := vTable.IndexDefs[i].Fields; IndexMetadata.Options := vTable.IndexDefs[i].Options; end; finally vTable.Free; end; end; procedure TInstantBDECatalog.AddTableMetadatas( TableMetadatas: TInstantTableMetadatas); var vDatabaseName: String; vTableName: String; i: integer; TableMetadata: TInstantTableMetadata; vTables: TStringList; begin vTables := TStringList.Create; try vDatabaseName := Broker.Connector.DatabaseName; Session.GetTableNames(vDatabaseName, '*.*', true, false, vTables); for i := 0 to Pred(vTables.Count) do begin vTableName := ExtractFileName(Trim(vTables.Strings[i])); TableMetadata := TableMetadatas.Add; TableMetadata.Name := vTableName; // Call AddIndexMetadatas first, so that AddFieldMetadatas can see what // indexes are defined to correctly set the foIndexed option. AddIndexMetadatas(TableMetadata); AddFieldMetadatas(TableMetadata); TableMetadata.Name := ChangeFileExt(vTableName, ''); end; finally vTables.Free; end; end; function TInstantBDECatalog.ColumnTypeToDataType(const ColumnType: TFieldType): TInstantDataType; begin case ColumnType of ftString: Result := dtString; ftSmallint, ftInteger: Result := dtInteger; ftBoolean: Result := dtBoolean; ftFloat: Result := dtFloat; ftCurrency: Result := dtCurrency; ftDate, ftTime, ftDateTime: Result := dtDateTime; ftAutoInc: Result := dtInteger; ftBlob, ftGraphic: Result := dtBlob; ftMemo: Result := dtMemo; else raise Exception.CreateFmt(SUnsupportedColumnType, [GetEnumName(TypeInfo(TFieldType), Ord(ColumnType))]); end; end; procedure TInstantBDECatalog.InitTableMetadatas( ATableMetadatas: TInstantTableMetadatas); begin ATableMetadatas.Clear; AddTableMetadatas(ATableMetadatas); end; end. |
|
From: Nando D. <na...@us...> - 2005-10-20 07:42:48
|
Update of /cvsroot/instantobjects/Source/Brokers/BDE/D6 In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv20097/Brokers/BDE/D6 Modified Files: IOBDE.dpk Log Message: Integrated the BDE catalog into the BDE broker Index: IOBDE.dpk =================================================================== RCS file: /cvsroot/instantobjects/Source/Brokers/BDE/D6/IOBDE.dpk,v retrieving revision 1.4 retrieving revision 1.5 diff -C2 -d -r1.4 -r1.5 *** IOBDE.dpk 3 Sep 2005 08:03:10 -0000 1.4 --- IOBDE.dpk 20 Oct 2005 07:42:40 -0000 1.5 *************** *** 33,40 **** vcldb, bdertl, - IOBDECatalog, IOCore; contains InstantBDEConnectionDefEdit in '..\InstantBDEConnectionDefEdit.pas' {InstantBDEConnectionDefEditForm}, InstantBDE in '..\InstantBDE.pas'; --- 33,40 ---- vcldb, bdertl, IOCore; contains + InstantBDECatalog in '..\InstantBDECatalog.pas', InstantBDEConnectionDefEdit in '..\InstantBDEConnectionDefEdit.pas' {InstantBDEConnectionDefEditForm}, InstantBDE in '..\InstantBDE.pas'; |
|
From: Nando D. <na...@us...> - 2005-10-20 07:42:48
|
Update of /cvsroot/instantobjects/Source/Brokers/BDE/D7 In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv20097/Brokers/BDE/D7 Modified Files: IOBDE.dpk Log Message: Integrated the BDE catalog into the BDE broker Index: IOBDE.dpk =================================================================== RCS file: /cvsroot/instantobjects/Source/Brokers/BDE/D7/IOBDE.dpk,v retrieving revision 1.6 retrieving revision 1.7 diff -C2 -d -r1.6 -r1.7 *** IOBDE.dpk 3 Sep 2005 08:03:10 -0000 1.6 --- IOBDE.dpk 20 Oct 2005 07:42:40 -0000 1.7 *************** *** 33,40 **** vcldb, bdertl, - IOBDECatalog, IOCore; contains InstantBDEConnectionDefEdit in '..\InstantBDEConnectionDefEdit.pas' {InstantBDEConnectionDefEditForm}, InstantBDE in '..\InstantBDE.pas'; --- 33,40 ---- vcldb, bdertl, IOCore; contains + InstantBDECatalog in '..\InstantBDECatalog.pas', InstantBDEConnectionDefEdit in '..\InstantBDEConnectionDefEdit.pas' {InstantBDEConnectionDefEditForm}, InstantBDE in '..\InstantBDE.pas'; |
|
From: Nando D. <na...@us...> - 2005-10-20 07:42:48
|
Update of /cvsroot/instantobjects/Source/Brokers/BDE/D2005 In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv20097/Brokers/BDE/D2005 Modified Files: IOBDE.dpk Log Message: Integrated the BDE catalog into the BDE broker Index: IOBDE.dpk =================================================================== RCS file: /cvsroot/instantobjects/Source/Brokers/BDE/D2005/IOBDE.dpk,v retrieving revision 1.4 retrieving revision 1.5 diff -C2 -d -r1.4 -r1.5 *** IOBDE.dpk 3 Sep 2005 08:03:10 -0000 1.4 --- IOBDE.dpk 20 Oct 2005 07:42:40 -0000 1.5 *************** *** 33,40 **** vcldb, bdertl, ! IOCore, ! IOBDECatalog; contains InstantBDEConnectionDefEdit in '..\InstantBDEConnectionDefEdit.pas' {InstantBDEConnectionDefEditForm}, InstantBDE in '..\InstantBDE.pas'; --- 33,40 ---- vcldb, bdertl, ! IOCore; contains + InstantBDECatalog in '..\InstantBDECatalog.pas', InstantBDEConnectionDefEdit in '..\InstantBDEConnectionDefEdit.pas' {InstantBDEConnectionDefEditForm}, InstantBDE in '..\InstantBDE.pas'; |
|
From: Nando D. <na...@us...> - 2005-10-20 07:42:48
|
Update of /cvsroot/instantobjects/Source/Brokers/BDE/D5 In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv20097/Brokers/BDE/D5 Modified Files: Iobde_D5.dpk Log Message: Integrated the BDE catalog into the BDE broker Index: Iobde_D5.dpk =================================================================== RCS file: /cvsroot/instantobjects/Source/Brokers/BDE/D5/Iobde_D5.dpk,v retrieving revision 1.5 retrieving revision 1.6 diff -C2 -d -r1.5 -r1.6 *** Iobde_D5.dpk 3 Sep 2005 08:03:10 -0000 1.5 --- Iobde_D5.dpk 20 Oct 2005 07:42:40 -0000 1.6 *************** *** 29,37 **** requires - IOBDECatalog, IOCore, VCLBDE50; contains InstantBDEConnectionDefEdit in '..\InstantBDEConnectionDefEdit.pas' {InstantBDEConnectionDefEditForm}, InstantBDE in '..\InstantBDE.pas'; --- 29,37 ---- requires IOCore, VCLBDE50; contains + InstantBDECatalog in '..\InstantBDECatalog.pas', InstantBDEConnectionDefEdit in '..\InstantBDEConnectionDefEdit.pas' {InstantBDEConnectionDefEditForm}, InstantBDE in '..\InstantBDE.pas'; |
|
From: Steven M. <sr...@us...> - 2005-10-20 04:14:10
|
Update of /cvsroot/instantobjects/Source/Core In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv18412 Modified Files: InstantPersistence.pas Log Message: Bug fixes in the InternalRefreshObjects for TInstantNavigationalQuery and TInstantSQLQuery. The BusyObjects list was freeing object references it did not originally add. This was causing AVs when the actual object reference owners tried to free them. Index: InstantPersistence.pas =================================================================== RCS file: /cvsroot/instantobjects/Source/Core/InstantPersistence.pas,v retrieving revision 1.62 retrieving revision 1.63 diff -C2 -d -r1.62 -r1.63 *** InstantPersistence.pas 19 Oct 2005 01:25:10 -0000 1.62 --- InstantPersistence.pas 20 Oct 2005 04:14:00 -0000 1.63 *************** *** 12514,12518 **** --- 12514,12521 ---- if (Instance is TInstantObject) and (TInstantObject(Instance).RefCount > 1) then + begin BusyObjects.Add(Instance); + TInstantObject(Instance).AddRef; + end; Close; Open; *************** *** 14612,14616 **** --- 14615,14622 ---- with ObjectReferences[I] do if HasInstance and (Instance.RefCount > 1) then + begin BusyObjects.Add(Instance); + TInstantObject(Instance).AddRef; + end; end; Close; |
|
From: Steven M. <sr...@us...> - 2005-10-19 23:52:29
|
Update of /cvsroot/instantobjects/Source/Core In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv1323 Modified Files: InstantPresentation.pas Log Message: Update to provide enhanced Remember/Revert functionality for TInstantCustomExposer. Also includes Remember/Revert functionality for IO Memo attributes (assumes text only data). Index: InstantPresentation.pas =================================================================== RCS file: /cvsroot/instantobjects/Source/Core/InstantPresentation.pas,v retrieving revision 1.21 retrieving revision 1.22 diff -C2 -d -r1.21 -r1.22 *** InstantPresentation.pas 4 Sep 2005 23:15:54 -0000 1.21 --- InstantPresentation.pas 19 Oct 2005 23:52:22 -0000 1.22 *************** *** 25,29 **** * * Contributor(s): ! * Carlo Barazzetta, Andrea Petrelli, Nando Dessena, Joao Morais * * ***** END LICENSE BLOCK ***** *) --- 25,30 ---- * * Contributor(s): ! * Carlo Barazzetta, Andrea Petrelli, Nando Dessena, Joao Morais, ! * Steven Mitchell * * ***** END LICENSE BLOCK ***** *) *************** *** 211,214 **** --- 212,217 ---- FAfterPostField: TInstantFieldEvent; FBeforePostField: TInstantFieldEvent; + FContentModifiedList: TList; + FMemoList: TStrings; FOnCompare: TInstantCompareObjectsEvent; FOnCreateObject: TInstantCreateObjectEvent; *************** *** 223,229 **** --- 226,234 ---- procedure AccessorChanged(Sender: TObject; ChangeType: TInstantChangeType); procedure CheckClass(AObject: TObject); + procedure ClearContentModifiedList(FreeObjInstances: Boolean); procedure ClearData(Buffer: PChar); procedure ClearRecord(Buffer: PChar); function DataFieldsSize: Integer; + procedure FreeContentModifiedList; function GetCurrentBuffer: PChar; function GetDesignClass: TInstantCodeClass; *************** *** 232,235 **** --- 237,241 ---- function GetInContent: Boolean; function GetLimited: Boolean; + function GetMemoList: TStrings; function GetMode: TInstantAccessMode; function GetObjectClass: TClass; *************** *** 263,266 **** --- 269,273 ---- procedure SetOnProgress(const Value: TInstantProgressEvent); procedure SetSorted(Value: Boolean); + property MemoList: TStrings read GetMemoList; protected { IProviderSupport } *************** *** 367,370 **** --- 374,383 ---- procedure WriteProperty(Field: TField; Instance: TObject; Value: Variant); virtual; function BreakThorough( const FieldName : string ) : boolean; virtual; + procedure DoAfterInsert; override; + procedure DoBeforeDelete; override; + function FindContentModifiedObjectBuffer(AObject: TObject): PChar; virtual; + function GetRecInfoUpdateStatus(ARecBuffer: PChar): TUpdateStatus; virtual; + procedure SetRecInfoUpdateStatus(ARecBuffer: PChar; AUpdateStatus: + TUpdateStatus); virtual; property Accessor: TInstantAccessor read GetAccessor; property ContainerName: string read FContainerName write SetContainerName; *************** *** 651,654 **** --- 664,670 ---- DbConsts; + resourcestring + SUnsupportedUpdateStatus = 'Unsupported UpdateStatus: %s'; + const SelfFieldName = 'Self'; *************** *** 1990,1993 **** --- 2006,2011 ---- destructor TInstantCustomExposer.Destroy; begin + FMemoList.Free; + FreeContentModifiedList; inherited; FNotifier.Free; *************** *** 1997,2000 **** --- 2015,2042 ---- end; + procedure TInstantCustomExposer.ClearContentModifiedList(FreeObjInstances: + Boolean); + var + i: Integer; + vRecBuffer: PChar; + vBM: TInstantBookmark; + begin + if Assigned(FContentModifiedList) and (FContentModifiedList.Count > 0) then + begin + for i := Pred(FContentModifiedList.Count) downto 0 do + begin + vRecBuffer := FContentModifiedList[i]; + if FreeObjInstances and + (GetRecInfoUpdateStatus(vRecBuffer) in [usDeleted]) then + begin + GetBookmarkData(vRecBuffer, @vBM); + FreeAndNil(vBM.Instance); + end; + StrDispose(vRecBuffer); + FContentModifiedList.Delete(i); + end; + end; + end; + procedure TInstantCustomExposer.DestroyAccessor; begin *************** *** 2014,2017 **** --- 2056,2073 ---- end; + procedure TInstantCustomExposer.DoAfterInsert; + var + vRecBuffer: PChar; + begin + inherited; + if InContent and Assigned(FContentModifiedList) then + begin + vRecBuffer := AllocRecordBuffer; + SaveCurrentObject(vRecBuffer); + SetRecInfoUpdateStatus(vRecBuffer, usInserted); + FContentModifiedList.Add(vRecBuffer); + end; + end; + procedure TInstantCustomExposer.DoAfterPostField(Field: TField); begin *************** *** 2026,2032 **** --- 2082,2150 ---- end; + procedure TInstantCustomExposer.DoBeforeDelete; + var + vRecBuffer: PChar; + vBM1: TInstantBookmark; + + procedure SetRecBookmarkToObjectClone(ARecBuffer: PChar; + AObject: TObject); + var + vObject: TInstantObject; + vBM2: TInstantBookmark; + begin + vObject := TInstantObject(AObject).Clone; + GetBookmarkData(ARecBuffer, @vBM2); + vBM2.Instance := vObject; + vBM2.RecNo := Succ(IndexOfObject(AObject)); + SetBookmarkData(ARecBuffer, @vBM2); + end; + + begin + if InContent and Assigned(FContentModifiedList) and + (CurrentObject is TInstantObject) then + begin + vRecBuffer := FindContentModifiedObjectBuffer(CurrentObject); + if Assigned(vRecBuffer) then + begin + if GetRecInfoUpdateStatus(vRecBuffer) = usInserted then + begin + StrDispose(FContentModifiedList[FContentModifiedList.IndexOf(vRecBuffer)]); + FContentModifiedList.Delete(FContentModifiedList.IndexOf(vRecBuffer)); + end + else + begin + GetBookmarkData(vRecBuffer, @vBM1); + SetRecBookmarkToObjectClone(vRecBuffer, vBM1.Instance); + SetRecInfoUpdateStatus(vRecBuffer, usDeleted); + end; + end + else + begin + vRecBuffer := AllocRecordBuffer; + SaveCurrentObject(vRecBuffer); + SetRecBookmarkToObjectClone(vRecBuffer, CurrentObject); + SetRecInfoUpdateStatus(vRecBuffer, usDeleted); + FContentModifiedList.Add(vRecBuffer); + end; + end; + inherited; + end; + procedure TInstantCustomExposer.DoBeforeEdit; + var + vRecBuffer: PChar; begin SaveCurrentObject(FUndoBuffer); + if InContent and Assigned(FContentModifiedList) then + begin + vRecBuffer := FindContentModifiedObjectBuffer(CurrentObject); + if not Assigned(vRecBuffer) then + begin + vRecBuffer := AllocRecordBuffer; + SaveCurrentObject(vRecBuffer); + SetRecInfoUpdateStatus(vRecBuffer, usModified); + FContentModifiedList.Add(vRecBuffer); + end; + end; inherited; end; *************** *** 2103,2106 **** --- 2221,2240 ---- end; + function TInstantCustomExposer.FindContentModifiedObjectBuffer(AObject: + TObject): PChar; + var + I: Integer; + BM: TInstantBookmark; + begin + for I := 0 to Pred(FContentModifiedList.Count) do + begin + Result := FContentModifiedList[I]; + GetBookmarkData(Result, @BM); + if BM.Instance = AObject then + Exit; + end; + Result := nil; + end; + function TInstantCustomExposer.FindObjectBuffer(AObject: TObject): PChar; var *************** *** 2118,2121 **** --- 2252,2265 ---- end; + procedure TInstantCustomExposer.FreeContentModifiedList; + begin + if Assigned(FContentModifiedList) then + begin + ClearContentModifiedList(True); + FContentModifiedList.Free; + FContentModifiedList := nil; + end; + end; + procedure TInstantCustomExposer.FreeRecordBuffer(var Buffer: PChar); begin *************** *** 2268,2271 **** --- 2412,2422 ---- end; + function TInstantCustomExposer.GetMemoList: TStrings; + begin + if not Assigned(FMemoList) then + FMemoList := TStringList.Create; + Result := FMemoList; + end; + function TInstantCustomExposer.GetMode: TInstantAccessMode; begin *************** *** 2325,2328 **** --- 2476,2488 ---- end; + function TInstantCustomExposer.GetRecInfoUpdateStatus(ARecBuffer: PChar): + TUpdateStatus; + var + vRecInfo: PRecInfo; + begin + vRecInfo := GetRecInfo(ARecBuffer); + Result := vRecInfo^.UpdateStatus; + end; + function TInstantCustomExposer.GetRecNo: Integer; begin *************** *** 3233,3238 **** procedure TInstantCustomExposer.Remember; begin ! SaveCurrentObject(FRevertBuffer); end; --- 3393,3447 ---- procedure TInstantCustomExposer.Remember; + + procedure RememberDetailDatasets; + var + vList: TList; + i: Integer; + begin + vList := TList.Create; + try + GetDetailDataSets(vList); + for i := 0 to Pred(vList.Count) do + if TDataSet(vList[i]) is TInstantCustomExposer then + TInstantCustomExposer(vList[i]).Remember; + finally + vList.Free; + end; + end; + + procedure SaveMemoData; + var + vAttributeMetadata: TInstantAttributeMetadata; + vInstantMemo: TInstantMemo; + i: Integer; + begin + with CurrentObject as TInstantObject do + begin + for i := 0 to Pred(Metadata.MemberMap.Count) do + begin + vAttributeMetadata := Metadata.MemberMap.Items[i]; + if vAttributeMetadata.AttributeType = atMemo then + begin + vInstantMemo := + TInstantMemo(AttributeByName(vAttributeMetadata.Name)); + MemoList.Add(vInstantMemo.Value); + end; + end; + end; + end; + begin ! RememberDetailDatasets; ! ! if InContent then ! begin ! if not Assigned(FContentModifiedList) then ! FContentModifiedList := TList.Create; ! end ! else ! begin ! SaveCurrentObject(FRevertBuffer); ! SaveMemoData; ! end; end; *************** *** 3255,3260 **** procedure TInstantCustomExposer.Revert; begin ! LoadCurrentObject(FRevertBuffer); end; --- 3464,3569 ---- procedure TInstantCustomExposer.Revert; + var + i: Integer; + vBM: TInstantBookmark; + vBuffer, vObjectBuffer: PChar; + vUpdateStatus: TUpdateStatus; + vNeedSubjectStore: Boolean; + + procedure RevertDetailDatasets; + var + vList: TList; + i: Integer; + begin + vList := TList.Create; + try + GetDetailDataSets(vList); + for i := 0 to Pred(vList.Count) do + if TDataSet(vList[i]) is TInstantCustomExposer then + TInstantCustomExposer(vList[i]).Revert; + finally + vList.Free; + end; + end; + + procedure RestoreMemoData; + var + vAttributeMetadata: TInstantAttributeMetadata; + vInstantMemo: TInstantMemo; + i: Integer; + begin + if Assigned(FMemoList) and (FMemoList.Count > 0) then + with CurrentObject as TInstantObject do + begin + for i := 0 to Pred(Metadata.MemberMap.Count) do + begin + vAttributeMetadata := Metadata.MemberMap.Items[i]; + if vAttributeMetadata.AttributeType = atMemo then + begin + vInstantMemo := + TInstantMemo(AttributeByName(vAttributeMetadata.Name)); + vInstantMemo.Value := MemoList[0]; + MemoList.Delete(0); + if MemoList.Count = 0 then + Break; + end; + end; + end; + end; + begin ! if InContent then ! begin ! if Assigned(FContentModifiedList) and (FContentModifiedList.Count > 0) then ! begin ! vNeedSubjectStore := False; ! try ! for i := Pred(FContentModifiedList.Count) downto 0 do ! begin ! vBuffer := FContentModifiedList[i]; ! vUpdateStatus := GetRecInfoUpdateStatus(vBuffer); ! GetBookmarkData(vBuffer, @vBM); ! case vUpdateStatus of ! usDeleted: ! begin ! CopyBufferToObject(vBuffer, vBM.Instance); ! if vBM.RecNo > ObjectCount then ! InternalAddObject(vBM.Instance) ! else ! InternalInsertObject(vBM.RecNo, vBM.Instance); ! vNeedSubjectStore := True; ! end; ! usInserted: ! begin ! InternalRemoveObject(vBM.Instance); ! end; ! usModified: ! begin ! vObjectBuffer := FindObjectBuffer(vBM.Instance); ! if Assigned(vObjectBuffer) then ! begin ! CopyBufferToObject(vBuffer, vBM.Instance); ! CopyObjectToBuffer(vBM.Instance, vObjectBuffer); ! end; ! end; ! else ! raise EInstantError.CreateFmt(SUnsupportedUpdateStatus, ! [GetEnumName(TypeInfo(TUpdateStatus), Ord(vUpdateStatus))]); ! end; ! end; ! if vNeedSubjectStore then ! TInstantObject(Subject).Store; ! finally ! ClearContentModifiedList(False); ! end; ! end; ! end ! else ! begin ! LoadCurrentObject(FRevertBuffer); ! RestoreMemoData; ! end; ! ! RevertDetailDatasets; end; *************** *** 3488,3491 **** --- 3797,3809 ---- end; + procedure TInstantCustomExposer.SetRecInfoUpdateStatus(ARecBuffer: PChar; + AUpdateStatus: TUpdateStatus); + var + vRecInfo: PRecInfo; + begin + vRecInfo := GetRecInfo(ARecBuffer); + vRecInfo^.UpdateStatus := AUpdateStatus; + end; + procedure TInstantCustomExposer.SetRecNo(Value: Integer); begin |
|
From: Carlo B. <car...@us...> - 2005-10-19 16:18:24
|
Update of /cvsroot/instantobjects/Demos/PrimerCross In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv23748/Demos/PrimerCross Modified Files: BROWSEACTIONIMAGES.BMP BasicBrowse.dfm BasicBrowse.pas Primer.xml PrimerImages.res Log Message: Updated BasicBrowse Window of Primer with a new toolbutton to launch searching. (because I've lost many times to remember that searching starts when you press Enter). Index: Primer.xml =================================================================== RCS file: /cvsroot/instantobjects/Demos/PrimerCross/Primer.xml,v retrieving revision 1.2 retrieving revision 1.3 diff -C2 -d -r1.2 -r1.3 *** Primer.xml 10 Feb 2005 23:06:19 -0000 1.2 --- Primer.xml 19 Oct 2005 16:18:15 -0000 1.3 *************** *** 3,5 **** ENABLE BCD=TRUE </Parameters></TInstantBDEConnectionDef><TInstantIBXConnectionDef><Name>FirebirdDB</Name><IsBuilt>TRUE</IsBuilt><BlobStreamFormat>sfXML</BlobStreamFormat><LoginPrompt>FALSE</LoginPrompt><Path>.\FirebirdDB\PRIMERDB.FDB</Path><NetType>ntLocal</NetType><Options>ibxUseDelimitedIdents</Options><Params>User_Name=SYSDBA ! Password=masterkey</Params></TInstantIBXConnectionDef></TInstantConnectionDefs> --- 3,5 ---- ENABLE BCD=TRUE </Parameters></TInstantBDEConnectionDef><TInstantIBXConnectionDef><Name>FirebirdDB</Name><IsBuilt>TRUE</IsBuilt><BlobStreamFormat>sfXML</BlobStreamFormat><LoginPrompt>FALSE</LoginPrompt><Path>.\FirebirdDB\PRIMERDB.FDB</Path><NetType>ntLocal</NetType><Options>ibxUseDelimitedIdents</Options><Params>User_Name=SYSDBA ! Password=masterkey</Params></TInstantIBXConnectionDef></TInstantConnectionDefs> \ No newline at end of file Index: BROWSEACTIONIMAGES.BMP =================================================================== RCS file: /cvsroot/instantobjects/Demos/PrimerCross/BROWSEACTIONIMAGES.BMP,v retrieving revision 1.1 retrieving revision 1.2 diff -C2 -d -r1.1 -r1.2 Binary files /tmp/cvsPhkaeW and /tmp/cvsNjQrxr differ Index: BasicBrowse.dfm =================================================================== RCS file: /cvsroot/instantobjects/Demos/PrimerCross/BasicBrowse.dfm,v retrieving revision 1.1 retrieving revision 1.2 diff -C2 -d -r1.1 -r1.2 *** BasicBrowse.dfm 20 Jul 2004 11:05:15 -0000 1.1 --- BasicBrowse.dfm 19 Oct 2005 16:18:15 -0000 1.2 *************** *** 67,74 **** Style = tbsSeparator end ! object SearchEdit: TEdit Left = 100 Top = 0 ! Width = 69 Height = 22 TabOrder = 0 --- 67,86 ---- Style = tbsSeparator end ! object SearchButton: TToolButton Left = 100 Top = 0 ! Action = SearchAction ! end ! object ToolSep2: TToolButton ! Left = 123 ! Top = 0 ! Width = 8 ! ImageIndex = 4 ! Style = tbsSeparator ! end ! object SearchEdit: TEdit ! Left = 131 ! Top = 0 ! Width = 111 Height = 22 TabOrder = 0 *************** *** 134,137 **** --- 146,154 ---- OnExecute = SelectActionExecute end + object SearchAction: TAction + Caption = '&Search' + ImageIndex = 4 + OnExecute = SearchActionExecute + end end object GridMenu: TPopupMenu Index: BasicBrowse.pas =================================================================== RCS file: /cvsroot/instantobjects/Demos/PrimerCross/BasicBrowse.pas,v retrieving revision 1.4 retrieving revision 1.5 diff -C2 -d -r1.4 -r1.5 *** BasicBrowse.pas 10 Feb 2005 23:06:16 -0000 1.4 --- BasicBrowse.pas 19 Oct 2005 16:18:15 -0000 1.5 *************** *** 49,52 **** --- 49,55 ---- ToolBar: TToolBar; ToolSep1: TToolButton; + ToolSep2: TToolButton; + SearchButton: TToolButton; + SearchAction: TAction; procedure ActionListUpdate(Action: TBasicAction; var Handled: Boolean); procedure NewActionExecute(Sender: TObject); *************** *** 58,61 **** --- 61,65 ---- procedure FormCreate(Sender: TObject); procedure ToolBarResize(Sender: TObject); + procedure SearchActionExecute(Sender: TObject); private FLookupMode: Boolean; *************** *** 97,100 **** --- 101,105 ---- DeleteAction.Enabled := HasItem; SelectAction.Enabled := HasItem; + SearchAction.Enabled := SearchEdit.Text <> ''; end; *************** *** 252,255 **** --- 257,261 ---- ToolSep1.Visible := LookupMode; SelectAction.Visible := LookupMode; + SearchAction.Visible := LookupMode; with BrowseGrid do if LookupMode then *************** *** 262,266 **** procedure TBasicBrowseForm.ToolBarResize(Sender: TObject); begin ! SearchEdit.Width := ToolBar.Width - 180; end; --- 268,277 ---- procedure TBasicBrowseForm.ToolBarResize(Sender: TObject); begin ! SearchEdit.Width := ToolBar.Width - 140; ! end; ! ! procedure TBasicBrowseForm.SearchActionExecute(Sender: TObject); ! begin ! Search; end; Index: PrimerImages.res =================================================================== RCS file: /cvsroot/instantobjects/Demos/PrimerCross/PrimerImages.res,v retrieving revision 1.1 retrieving revision 1.2 diff -C2 -d -r1.1 -r1.2 Binary files /tmp/cvsMLHuX0 and /tmp/cvscpDTsw differ |
|
From: Nando D. <na...@us...> - 2005-10-19 10:46:04
|
Update of /cvsroot/instantobjects/Source/Core In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv2499/Core Modified Files: InstantCustomDBEvolverFormUnit.dfm InstantCustomDBEvolverFormUnit.pas InstantDBBuilderFormUnit.dfm Log Message: small fixes to labels and component names Index: InstantCustomDBEvolverFormUnit.pas =================================================================== RCS file: /cvsroot/instantobjects/Source/Core/InstantCustomDBEvolverFormUnit.pas,v retrieving revision 1.6 retrieving revision 1.7 diff -C2 -d -r1.6 -r1.7 *** InstantCustomDBEvolverFormUnit.pas 13 Oct 2005 10:55:33 -0000 1.6 --- InstantCustomDBEvolverFormUnit.pas 19 Oct 2005 10:45:56 -0000 1.7 *************** *** 58,62 **** MoveCommandDownButton: TButton; EvolutionLogMemo: TMemo; ! Label1: TLabel; EnableAllButton: TButton; DisableAllButton: TButton; --- 58,62 ---- MoveCommandDownButton: TButton; EvolutionLogMemo: TMemo; ! EvolutionLogLabel: TLabel; EnableAllButton: TButton; DisableAllButton: TButton; Index: InstantCustomDBEvolverFormUnit.dfm =================================================================== RCS file: /cvsroot/instantobjects/Source/Core/InstantCustomDBEvolverFormUnit.dfm,v retrieving revision 1.4 retrieving revision 1.5 diff -C2 -d -r1.4 -r1.5 *** InstantCustomDBEvolverFormUnit.dfm 16 Sep 2005 17:22:18 -0000 1.4 --- InstantCustomDBEvolverFormUnit.dfm 19 Oct 2005 10:45:56 -0000 1.5 *************** *** 28,32 **** PixelsPerInch = 96 TextHeight = 13 ! object Label1: TLabel Left = 8 Top = 176 --- 28,32 ---- PixelsPerInch = 96 TextHeight = 13 ! object EvolutionLogLabel: TLabel Left = 8 Top = 176 Index: InstantDBBuilderFormUnit.dfm =================================================================== RCS file: /cvsroot/instantobjects/Source/Core/InstantDBBuilderFormUnit.dfm,v retrieving revision 1.1 retrieving revision 1.2 diff -C2 -d -r1.1 -r1.2 *** InstantDBBuilderFormUnit.dfm 4 Jul 2005 11:39:52 -0000 1.1 --- InstantDBBuilderFormUnit.dfm 19 Oct 2005 10:45:56 -0000 1.2 *************** *** 4,7 **** --- 4,18 ---- PixelsPerInch = 96 TextHeight = 13 + inherited EvolutionLogLabel: TLabel + Width = 40 + Caption = 'Build log' + end + inherited SequenceListView: TListView + Columns = < + item + Caption = 'Build sequence' + Width = 400 + end> + end inherited ActionList: TActionList inherited ShowSequenceAction: TAction |
|
From: Steven M. <sr...@us...> - 2005-10-19 01:25:21
|
Update of /cvsroot/instantobjects/Source/Core In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv1537 Modified Files: InstantPersistence.pas Log Message: Updated to change object ownership behaviour of TInstantNavigationalResolver, which was made consistent with TInstantSQLResolver. Adding or inserting objects to an InstantSelector now behaves consistently for Navigational and SQL based brokers. Index: InstantPersistence.pas =================================================================== RCS file: /cvsroot/instantobjects/Source/Core/InstantPersistence.pas,v retrieving revision 1.61 retrieving revision 1.62 diff -C2 -d -r1.61 -r1.62 *** InstantPersistence.pas 18 Oct 2005 09:14:49 -0000 1.61 --- InstantPersistence.pas 19 Oct 2005 01:25:10 -0000 1.62 *************** *** 12429,12432 **** --- 12429,12434 ---- ObjectRow.Row := -1; ObjectRow.Instance := AObject; + if AObject is TInstantObject then + TInstantObject(AObject).AddRef; Result := ObjectRowList.Add(ObjectRow); except *************** *** 12483,12486 **** --- 12485,12490 ---- ObjectRow.Row := -1; ObjectRow.Instance := AObject; + if AObject is TInstantObject then + TInstantObject(AObject).AddRef; ObjectRowList.Insert(Index, ObjectRow); except |
