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: Femi F. <fad...@us...> - 2005-02-19 04:10:05
|
Update of /cvsroot/instantobjects/Source/Brokers/ADS/D7 In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv4478/D7 Log Message: Directory /cvsroot/instantobjects/Source/Brokers/ADS/D7 added to the repository |
|
From: Femi F. <fad...@us...> - 2005-02-19 04:09:42
|
Update of /cvsroot/instantobjects/Source/Brokers/ADS/D6 In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv4399/D6 Log Message: Directory /cvsroot/instantobjects/Source/Brokers/ADS/D6 added to the repository |
|
From: Femi F. <fad...@us...> - 2005-02-19 04:09:17
|
Update of /cvsroot/instantobjects/Source/Brokers/ADS/D5 In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv4318/D5 Log Message: Directory /cvsroot/instantobjects/Source/Brokers/ADS/D5 added to the repository |
Update of /cvsroot/instantobjects/Source/Brokers/NexusDbSQL/D5 In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv3091 Added Files: Dclionxsql.dof Dclionxsql.res Dclionxsql.dpk ionxsql50.cfg ionxsql50.dof ionxsql50.res ionxsql50.dpk Log Message: D5 root file version for IO V2 --- NEW FILE: ionxsql50.dof --- [Compiler] A=1 B=0 C=1 D=1 E=0 F=0 G=1 H=1 I=1 J=0 K=0 L=1 M=0 N=1 O=1 P=1 Q=0 R=0 S=0 T=0 U=0 V=1 W=0 X=1 Y=1 Z=1 ShowHints=1 ShowWarnings=1 UnitAliases=WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE; [Linker] MapFile=0 OutputObjs=0 ConsoleApp=1 DebugInfo=0 RemoteSymbols=0 MinStackSize=16384 MaxStackSize=1048576 ImageBase=4194304 ExeDescription=InstantObjects NexusDbSQL support (Delphi 5) [Directories] OutputDir= UnitOutputDir= PackageDLLOutputDir= PackageDCPOutputDir= SearchPath= Packages=Vcl50;Vclx50;VclSmp50;Qrpt50;Vcldb50;Vclbde50;ibevnt50;vcldbx50;VCLIB50;vclie50;Inetdb50;Inet50;NMFast50;dclocx50;dclaxserver50;CS30Logging50;Rz30Ctls50;Rz30DBCtls50;ip4000v5;RPRV40D5;RPRT40D5;madBasic_;madDisAsm_;NexusDB108si50;NexusDB1081x50;NexusDB108sr50;NexusDB108pv50;NexusDB108sq50;NexusDB108re50;NexusDB108ts50;NexusDB108tc50;NexusDB108tn50;NexusDB108tw50;NexusDB108db50;NexusDB108ch50 Conditionals= DebugSourceDirs= UsePackages=0 [Parameters] RunParams= HostApplication= [Language] ActiveLang= ProjectLang=$00000C09 RootDir= [Version Info] IncludeVerInfo=1 AutoIncBuild=0 MajorVer=1 MinorVer=0 Release=0 Build=0 Debug=0 PreRelease=0 Special=0 Private=0 DLL=0 Locale=3081 CodePage=1252 [Version Info Keys] CompanyName= FileDescription= FileVersion=1.0.0.0 InternalName= LegalCopyright= LegalTrademarks= OriginalFilename= ProductName= ProductVersion=1.0.0.0 Comments= [Excluded Packages] $(DELPHI)\Bin\dcltee50.bpl=TeeChart 5.0 Components $(DELPHI)\Bin\dcltqr50.bpl=TeeChart 5.0 for QuickReport Components Design Package C:\Program Files\Helpman3\Delphi\HelpmanRCI_D5.bpl=Help & Manual Project Wizard --- NEW FILE: Dclionxsql.dpk --- package Dclionxsql; {$R *.res} {$R '..\InstantNexusDbSQL.dcr'} {$ALIGN ON} {$ASSERTIONS ON} {$BOOLEVAL OFF} {$DEBUGINFO ON} {$EXTENDEDSYNTAX ON} {$IMPORTEDDATA ON} {$IOCHECKS ON} {$LOCALSYMBOLS ON} {$LONGSTRINGS ON} {$OPENSTRINGS ON} {$OPTIMIZATION ON} {$OVERFLOWCHECKS OFF} {$RANGECHECKS OFF} {$REFERENCEINFO ON} {$SAFEDIVIDE OFF} {$STACKFRAMES OFF} {$TYPEDADDRESS OFF} {$VARSTRINGCHECKS ON} {$WRITEABLECONST ON} {$MINENUMSIZE 1} {$IMAGEBASE $400000} {$DESCRIPTION 'InstantObjects NexusDbSQL Design-Time Support (Delphi 5)'} {$DESIGNONLY} {$IMPLICITBUILD OFF} requires vcl50, IOCore, ionxsql50; contains InstantNexusDbSQLReg in '..\InstantNexusDbSQLReg.pas'; end. --- NEW FILE: ionxsql50.dpk --- package ionxsql50; {$R *.res} {$ALIGN ON} {$ASSERTIONS ON} {$BOOLEVAL OFF} {$DEBUGINFO ON} {$EXTENDEDSYNTAX ON} {$IMPORTEDDATA ON} {$IOCHECKS ON} {$LOCALSYMBOLS ON} {$LONGSTRINGS ON} {$OPENSTRINGS ON} {$OPTIMIZATION ON} {$OVERFLOWCHECKS OFF} {$RANGECHECKS OFF} {$REFERENCEINFO ON} {$SAFEDIVIDE OFF} {$STACKFRAMES OFF} {$TYPEDADDRESS OFF} {$VARSTRINGCHECKS ON} {$WRITEABLECONST OFF} {$MINENUMSIZE 1} {$IMAGEBASE $400000} {$DESCRIPTION 'InstantObjects NexusDbSQL support (Delphi 5)'} {$RUNONLY} {$IMPLICITBUILD OFF} requires vcl50, vclx50, IOCore, NexusDB108ll50, NexusDB108sd50, NexusDB108re50, NexusDB108st50, NexusDB108pt50, NexusDB108tw50, NexusDB108db50; contains InstantNexusDbSQLConnectionDefEdit in '..\InstantNexusDbSQLConnectionDefEdit.pas' {InstantNexusDbSQLConnectionDefEditForm}, InstantNexusDbSQL in '..\InstantNexusDbSQL.pas'; end. --- NEW FILE: Dclionxsql.res --- (This appears to be a binary file; contents omitted.) --- NEW FILE: ionxsql50.res --- (This appears to be a binary file; contents omitted.) --- NEW FILE: ionxsql50.cfg --- -$A+ -$B- -$C+ -$D+ -$E- -$F- -$G+ -$H+ -$I+ -$J- -$K- -$L+ -$M- -$N+ -$O+ -$P+ -$Q- -$R- -$S- -$T- -$U- -$V+ -$W- -$X+ -$YD -$Z1 -cg -AWinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE; -H+ -W+ -M -$M16384,1048576 -K$00400000 -LE"c:\program files\borland\delphi5\Projects\Bpl" -LN"c:\program files\borland\delphi5\Projects\Bpl" -Z --- NEW FILE: Dclionxsql.dof --- [Compiler] A=1 B=0 C=1 D=1 E=0 F=0 G=1 H=1 I=1 J=1 K=0 L=1 M=0 N=1 O=1 P=1 Q=0 R=0 S=0 T=0 U=0 V=1 W=0 X=1 Y=1 Z=1 ShowHints=1 ShowWarnings=1 UnitAliases=WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE; [Linker] MapFile=0 OutputObjs=0 ConsoleApp=1 DebugInfo=0 RemoteSymbols=0 MinStackSize=16384 MaxStackSize=1048576 ImageBase=4194304 ExeDescription=InstantObjects NexusDbSQL Design-Time Support (Delphi 5) [Directories] OutputDir= UnitOutputDir= PackageDLLOutputDir= PackageDCPOutputDir= SearchPath= Packages=Vcl50;Vclx50;VclSmp50;Qrpt50;Vcldb50;Vclbde50;ibevnt50;vcldbx50;VCLIB50;vclie50;Inetdb50;Inet50;NMFast50;dclocx50;dclaxserver50;CS30Logging50;Rz30Ctls50;Rz30DBCtls50;ip4000v5;RPRV40D5;RPRT40D5;madBasic_;madDisAsm_;NexusDB108si50;NexusDB1081x50;NexusDB108sr50;NexusDB108pv50;NexusDB108sq50;NexusDB108re50;NexusDB108ts50;NexusDB108tc50;NexusDB108tn50;NexusDB108tw50;NexusDB108db50;NexusDB108ch50 Conditionals= DebugSourceDirs= UsePackages=0 [Parameters] RunParams= HostApplication= [Language] ActiveLang= ProjectLang=$00000C09 RootDir= [Version Info] IncludeVerInfo=1 AutoIncBuild=0 MajorVer=1 MinorVer=0 Release=0 Build=0 Debug=0 PreRelease=0 Special=0 Private=0 DLL=0 Locale=3081 CodePage=1252 [Version Info Keys] CompanyName= FileDescription= FileVersion=1.0.0.0 InternalName= LegalCopyright= LegalTrademarks= OriginalFilename= ProductName= ProductVersion=1.0.0.0 Comments= [Excluded Packages] $(DELPHI)\Bin\dcltee50.bpl=TeeChart 5.0 Components $(DELPHI)\Bin\dcltqr50.bpl=TeeChart 5.0 for QuickReport Components Design Package C:\Program Files\Helpman3\Delphi\HelpmanRCI_D5.bpl=Help & Manual Project Wizard |
|
From: Steven M. <sr...@us...> - 2005-02-18 21:15:57
|
Update of /cvsroot/instantobjects/Source/Brokers/NexusDbSQL/D5 In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv2539 Added Files: Dclionxsql.cfg Log Message: D5 root file version for IO V2 --- NEW FILE: Dclionxsql.cfg --- -$A+ -$B- -$C+ -$D+ -$E- -$F- -$G+ -$H+ -$I+ -$J+ -$K- -$L+ -$M- -$N+ -$O+ -$P+ -$Q- -$R- -$S- -$T- -$U- -$V+ -$W- -$X+ -$YD -$Z1 -cg -AWinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE; -H+ -W+ -M -$M16384,1048576 -K$00400000 -LE"c:\program files\borland\delphi5\Projects\Bpl" -LN"c:\program files\borland\delphi5\Projects\Bpl" -Z |
|
From: Nando D. <na...@us...> - 2005-02-18 15:37:02
|
Update of /cvsroot/instantobjects/Demos/PrimerCross In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv29759/PrimerCross Modified Files: PrimerExternal.mdr PrimerExternal.xml Log Message: External storage unification & refactoring - updated PrimerExternal Index: PrimerExternal.xml =================================================================== RCS file: /cvsroot/instantobjects/Demos/PrimerCross/PrimerExternal.xml,v retrieving revision 1.2 retrieving revision 1.3 diff -C2 -d -r1.2 -r1.3 *** PrimerExternal.xml 10 Feb 2005 23:06:19 -0000 1.2 --- PrimerExternal.xml 18 Feb 2005 15:36:51 -0000 1.3 *************** *** 1,2 **** <TInstantConnectionDefs><TInstantIBXConnectionDef><Name>FirebirdDBExternal</Name><IsBuilt>TRUE</IsBuilt><LoginPrompt>FALSE</LoginPrompt><Path>.\FirebirdDB\PRIMERDBEXTERNAL.FDB</Path><NetType>ntLocal</NetType><Options>ibxUseDelimitedIdents</Options><Params>User_Name=SYSDBA ! Password=masterkey</Params></TInstantIBXConnectionDef></TInstantConnectionDefs> --- 1,2 ---- <TInstantConnectionDefs><TInstantIBXConnectionDef><Name>FirebirdDBExternal</Name><IsBuilt>TRUE</IsBuilt><LoginPrompt>FALSE</LoginPrompt><Path>.\FirebirdDB\PRIMERDBEXTERNAL.FDB</Path><NetType>ntLocal</NetType><Options>ibxUseDelimitedIdents</Options><Params>User_Name=SYSDBA ! Password=masterkey</Params></TInstantIBXConnectionDef></TInstantConnectionDefs> \ No newline at end of file Index: PrimerExternal.mdr =================================================================== RCS file: /cvsroot/instantobjects/Demos/PrimerCross/PrimerExternal.mdr,v retrieving revision 1.2 retrieving revision 1.3 diff -C2 -d -r1.2 -r1.3 Binary files /tmp/cvsadXTDf and /tmp/cvshR8b53 differ |
|
From: Nando D. <na...@us...> - 2005-02-18 15:35:36
|
Update of /cvsroot/instantobjects/Demos/PrimerCross/ModelExternal In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv29447/PrimerCross/ModelExternal Modified Files: Model.pas Log Message: External storage unification & refactoring - updated PrimerExternal Index: Model.pas =================================================================== RCS file: /cvsroot/instantobjects/Demos/PrimerCross/ModelExternal/Model.pas,v retrieving revision 1.2 retrieving revision 1.3 diff -C2 -d -r1.2 -r1.3 *** Model.pas 18 Feb 2005 11:04:08 -0000 1.2 --- Model.pas 18 Feb 2005 15:35:27 -0000 1.3 *************** *** 110,118 **** TContact = class(TInstantObject) { IOMETADATA stored; ! Address: Part(TAddress) externalstored 'Contact_Address'; Category: Reference(TCategory); City: String(30) index; Name: String(50) index; ! Phones: Parts(TPhone) externalstored 'Contact_Phone'; } _Address: TInstantPart; _Category: TInstantReference; --- 110,118 ---- TContact = class(TInstantObject) { IOMETADATA stored; ! Address: Part(TAddress) external; Category: Reference(TCategory); City: String(30) index; Name: String(50) index; ! Phones: Parts(TPhone) external 'Contact_Phones'; } _Address: TInstantPart; _Category: TInstantReference; *************** *** 169,173 **** {IOMETADATA stored; BirthDate: DateTime; ! Emails: Parts(TEmail) externalstored 'Person_Email'; Employer: Reference(TCompany); Picture: Graphic; --- 169,173 ---- {IOMETADATA stored; BirthDate: DateTime; ! Emails: Parts(TEmail) external 'Person_Emails'; Employer: Reference(TCompany); Picture: Graphic; *************** *** 213,217 **** TCompany = class(TContact) { IOMETADATA stored; ! Employees: References(TPerson) externalstored 'Company_Employee'; } _Employees: TInstantReferences; private --- 213,217 ---- TCompany = class(TContact) { IOMETADATA stored; ! Employees: References(TPerson) external 'Company_Employees'; } _Employees: TInstantReferences; private |
Update of /cvsroot/instantobjects/Source/Brokers/UIB/D6 In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv28840/Brokers/UIB/D6 Added Files: DclIOUIB.cfg DclIOUIB.dof DclIOUIB.dpk DclIOUIB.res IOUIB.cfg IOUIB.dof IOUIB.dpk IOUIB.res Log Message: D6 UIB broker project files --- NEW FILE: IOUIB.dpk --- package IOUIB; {$R *.res} {$ALIGN 8} {$ASSERTIONS ON} {$BOOLEVAL OFF} {$DEBUGINFO ON} {$EXTENDEDSYNTAX ON} {$IMPORTEDDATA ON} {$IOCHECKS ON} {$LOCALSYMBOLS ON} {$LONGSTRINGS ON} {$OPENSTRINGS ON} {$OPTIMIZATION ON} {$OVERFLOWCHECKS OFF} {$RANGECHECKS OFF} {$REFERENCEINFO ON} {$SAFEDIVIDE OFF} {$STACKFRAMES OFF} {$TYPEDADDRESS OFF} {$VARSTRINGCHECKS ON} {$WRITEABLECONST ON} {$MINENUMSIZE 1} {$IMAGEBASE $400000} {$DESCRIPTION 'InstantObjects UIB Run-Time Support (Delphi 6)'} {$LIBSUFFIX '_D6'} {$RUNONLY} {$IMPLICITBUILD OFF} requires vcl, vcldb, ibxpress, IOCore, JvUIBD6R; contains InstantUIBConnectionDefEdit in '..\InstantUIBConnectionDefEdit.pas' {InstantUIBConnectionDefEditForm}, InstantUIB in '..\InstantUIB.pas', InstantUIBConnection in '..\InstantUIBConnection.pas'; end. --- NEW FILE: IOUIB.res --- (This appears to be a binary file; contents omitted.) --- NEW FILE: IOUIB.dof --- [FileVersion] Version=6.0 [Compiler] A=8 B=0 C=1 D=1 E=0 F=0 G=1 H=1 I=1 J=1 K=0 L=1 M=0 N=1 O=1 P=1 Q=0 R=0 S=0 T=0 U=0 V=1 W=0 X=1 Y=1 Z=1 ShowHints=1 ShowWarnings=1 UnitAliases=WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE; [Linker] MapFile=0 OutputObjs=0 ConsoleApp=1 DebugInfo=0 RemoteSymbols=0 MinStackSize=16384 MaxStackSize=1048576 ImageBase=4194304 ExeDescription=InstantObjects UIB Run-Time Support (Delphi 6) [Directories] OutputDir= UnitOutputDir= PackageDLLOutputDir= PackageDCPOutputDir= SearchPath= Packages= Conditionals= DebugSourceDirs= UsePackages=0 [Parameters] RunParams= HostApplication= Launcher= UseLauncher=0 DebugCWD= [Language] ActiveLang= ProjectLang= RootDir=C:\Work\DelphiComps\D7\IO16\Source\Brokers\IBX\ [Version Info] IncludeVerInfo=1 AutoIncBuild=0 MajorVer=1 MinorVer=7 Release=0 Build=0 Debug=0 PreRelease=0 Special=0 Private=0 DLL=0 Locale=1040 CodePage=1252 [Version Info Keys] CompanyName=InstantObjects.org FileDescription=InstantObjects UIB Run-Time Support (Delphi 7) FileVersion=1.7.0.0 InternalName= LegalCopyright= LegalTrademarks= OriginalFilename= ProductName=InstantObjects ProductVersion=1.7 [Excluded Packages] C:\Programmi\Borland\Delphi6\Bin\dclclxstd60.bpl=Borland CLX Standard Components --- NEW FILE: IOUIB.cfg --- -$A8 -$B- -$C+ -$D+ -$E- -$F- -$G+ -$H+ -$I+ -$J+ -$K- -$L+ -$M- -$N+ -$O+ -$P+ -$Q- -$R- -$S- -$T- -$U- -$V+ -$W- -$X+ -$YD -$Z1 -cg -AWinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE; -H+ -W+ -M -$M16384,1048576 -K$00400000 -LE"C:\Programmi\Borland\Delphi6\Projects\Bpl" -LN"C:\Programmi\Borland\Delphi6\Projects\Bpl" -Z --- NEW FILE: DclIOUIB.cfg --- -$A8 -$B- -$C+ -$D+ -$E- -$F- -$G+ -$H+ -$I+ -$J+ -$K- -$L+ -$M- -$N+ -$O+ -$P+ -$Q- -$R- -$S- -$T- -$U- -$V+ -$W- -$X+ -$YD -$Z1 -cg -AWinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE; -H+ -W+ -M -$M16384,1048576 -K$00400000 -LE"C:\Programmi\Borland\Delphi6\Projects\Bpl" -LN"C:\Programmi\Borland\Delphi6\Projects\Bpl" -Z --- NEW FILE: DclIOUIB.dof --- [FileVersion] Version=6.0 [Compiler] A=8 B=0 C=1 D=1 E=0 F=0 G=1 H=1 I=1 J=1 K=0 L=1 M=0 N=1 O=1 P=1 Q=0 R=0 S=0 T=0 U=0 V=1 W=0 X=1 Y=1 Z=1 ShowHints=1 ShowWarnings=1 UnitAliases=WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE; [Linker] MapFile=0 OutputObjs=0 ConsoleApp=1 DebugInfo=0 RemoteSymbols=0 MinStackSize=16384 MaxStackSize=1048576 ImageBase=4194304 ExeDescription=InstantObjects UIB Design-Time Support (Delphi 6) [Directories] OutputDir= UnitOutputDir= PackageDLLOutputDir= PackageDCPOutputDir= SearchPath= Packages= Conditionals= DebugSourceDirs= UsePackages=0 [Parameters] RunParams= HostApplication= Launcher= UseLauncher=0 DebugCWD= [Language] ActiveLang= ProjectLang= RootDir=C:\Work\DelphiComps\D7\IO16\Source\Brokers\IBX\ [Version Info] IncludeVerInfo=1 AutoIncBuild=0 MajorVer=1 MinorVer=7 Release=0 Build=0 Debug=0 PreRelease=0 Special=0 Private=0 DLL=0 Locale=1040 CodePage=1252 [Version Info Keys] CompanyName=InstantObjects.org FileDescription=InstantObjects UIB Design-Time Support (Delphi 7) FileVersion=1.7.0.0 InternalName= LegalCopyright= LegalTrademarks= OriginalFilename= ProductName=InstantObjects ProductVersion=1.7 [Excluded Packages] C:\Programmi\Borland\Delphi6\Bin\dclclxstd60.bpl=Borland CLX Standard Components --- NEW FILE: DclIOUIB.dpk --- package DclIOUIB; {$R *.res} {$R '..\InstantUIB.dcr'} {$ALIGN 8} {$ASSERTIONS ON} {$BOOLEVAL OFF} {$DEBUGINFO ON} {$EXTENDEDSYNTAX ON} {$IMPORTEDDATA ON} {$IOCHECKS ON} {$LOCALSYMBOLS ON} {$LONGSTRINGS ON} {$OPENSTRINGS ON} {$OPTIMIZATION ON} {$OVERFLOWCHECKS OFF} {$RANGECHECKS OFF} {$REFERENCEINFO ON} {$SAFEDIVIDE OFF} {$STACKFRAMES OFF} {$TYPEDADDRESS OFF} {$VARSTRINGCHECKS ON} {$WRITEABLECONST ON} {$MINENUMSIZE 1} {$IMAGEBASE $400000} {$DESCRIPTION 'InstantObjects UIB Design-Time Support (Delphi 6)'} {$LIBSUFFIX '_D6'} {$DESIGNONLY} {$IMPLICITBUILD OFF} requires vcl, vcldb, IOCore, IOUIB; contains InstantUIBReg in '..\InstantUIBReg.pas'; end. --- NEW FILE: DclIOUIB.res --- (This appears to be a binary file; contents omitted.) |
|
From: Nando D. <na...@us...> - 2005-02-18 15:32:36
|
Update of /cvsroot/instantobjects/Source/Brokers/UIB/D6 In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv28371/D6 Log Message: Directory /cvsroot/instantobjects/Source/Brokers/UIB/D6 added to the repository |
|
From: Nando D. <na...@us...> - 2005-02-18 15:04:33
|
Update of /cvsroot/instantobjects/Source/Brokers/DBISAM/D7 In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv19702/Brokers/DBISAM/D7 Removed Files: DclDBISAM.dcu IODBISAM.dcu Log Message: removed dcu files --- DclDBISAM.dcu DELETED --- --- IODBISAM.dcu DELETED --- |
|
From: Nando D. <na...@us...> - 2005-02-18 15:04:33
|
Update of /cvsroot/instantobjects/Source/Brokers/DBISAM/D6 In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv19702/Brokers/DBISAM/D6 Removed Files: DclDBISAM.dcu IODBISAM.dcu Log Message: removed dcu files --- DclDBISAM.dcu DELETED --- --- IODBISAM.dcu DELETED --- |
|
From: Nando D. <na...@us...> - 2005-02-18 15:00:21
|
Update of /cvsroot/instantobjects/Source/Brokers/DBISAM In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv18208/Brokers/DBISAM Removed Files: iodbi60.dof iodbi60.dpk iodbi70.dof iodbi70.dpk Log Message: removed obsolete files --- iodbi70.dpk DELETED --- --- iodbi70.dof DELETED --- --- iodbi60.dpk DELETED --- --- iodbi60.dof DELETED --- |
|
From: Nando D. <na...@us...> - 2005-02-18 14:51:25
|
Update of /cvsroot/instantobjects/Source/Brokers/ADO/D6 In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv15836/Brokers/ADO/D6 Modified Files: DclIOADO.dof DclIOADO.dpk IOADO.dof Log Message: name fix Index: DclIOADO.dof =================================================================== RCS file: /cvsroot/instantobjects/Source/Brokers/ADO/D6/DclIOADO.dof,v retrieving revision 1.1 retrieving revision 1.2 diff -C2 -d -r1.1 -r1.2 *** DclIOADO.dof 20 Jul 2004 16:22:54 -0000 1.1 --- DclIOADO.dof 18 Feb 2005 14:51:17 -0000 1.2 *************** *** 40,44 **** MaxStackSize=1048576 ImageBase=4194304 ! ExeDescription=InstantObjects ADO Design-Time Support (Delphi 7) [Directories] OutputDir= --- 40,44 ---- MaxStackSize=1048576 ImageBase=4194304 ! ExeDescription=InstantObjects ADO Design-Time Support (Delphi 6) [Directories] OutputDir= *************** *** 86,93 **** ProductVersion=1.7 Comments= ! [HistoryLists\hlUnitAliases] ! Count=1 ! Item0=WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE; ! [HistoryLists\hlSearchPath] ! Count=1 ! Item0=$(DELPHI)\Lib\Debug --- 86,89 ---- ProductVersion=1.7 Comments= ! [Excluded Packages] ! C:\Programmi\Borland\Delphi6\Bin\dclclxstd60.bpl=Borland CLX Standard Components Index: IOADO.dof =================================================================== RCS file: /cvsroot/instantobjects/Source/Brokers/ADO/D6/IOADO.dof,v retrieving revision 1.1 retrieving revision 1.2 diff -C2 -d -r1.1 -r1.2 *** IOADO.dof 20 Jul 2004 16:22:54 -0000 1.1 --- IOADO.dof 18 Feb 2005 14:51:17 -0000 1.2 *************** *** 88,95 **** C:\Programmi\Borland\Delphi6\Bin\dcldbxcds60.bpl=Borland Local DBX ClientDataset Components C:\Programmi\Borland\Delphi6\Bin\dclclxstd60.bpl=Borland CLX Standard Components - [HistoryLists\hlUnitAliases] - Count=1 - Item0=WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE; - [HistoryLists\hlSearchPath] - Count=1 - Item0=$(DELPHI)\Lib\Debug --- 88,89 ---- Index: DclIOADO.dpk =================================================================== RCS file: /cvsroot/instantobjects/Source/Brokers/ADO/D6/DclIOADO.dpk,v retrieving revision 1.1 retrieving revision 1.2 diff -C2 -d -r1.1 -r1.2 *** DclIOADO.dpk 20 Jul 2004 16:22:54 -0000 1.1 --- DclIOADO.dpk 18 Feb 2005 14:51:17 -0000 1.2 *************** *** 24,29 **** {$MINENUMSIZE 1} {$IMAGEBASE $400000} ! {$DESCRIPTION 'InstantObjects ADO Design-Time Support (Delphi 7)'} ! {$LIBSUFFIX '_D7'} {$DESIGNONLY} {$IMPLICITBUILD OFF} --- 24,29 ---- {$MINENUMSIZE 1} {$IMAGEBASE $400000} ! {$DESCRIPTION 'InstantObjects ADO Design-Time Support (Delphi 6)'} ! {$LIBSUFFIX '_D6'} {$DESIGNONLY} {$IMPLICITBUILD OFF} |
|
From: Nando D. <na...@us...> - 2005-02-18 14:49:46
|
Update of /cvsroot/instantobjects/Source/Design In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv15266/Design Modified Files: InstantAttributeEditor.dfm InstantAttributeEditor.pas Log Message: External storage unification & refactoring - design time support (still something to do) Index: InstantAttributeEditor.dfm =================================================================== RCS file: /cvsroot/instantobjects/Source/Design/InstantAttributeEditor.dfm,v retrieving revision 1.4 retrieving revision 1.5 diff -C2 -d -r1.4 -r1.5 *** InstantAttributeEditor.dfm 1 Nov 2004 08:25:44 -0000 1.4 --- InstantAttributeEditor.dfm 18 Feb 2005 14:49:38 -0000 1.5 *************** *** 3,7 **** Top = 215 Width = 249 ! Height = 386 Caption = 'Attribute Editor' ParentFont = True --- 3,7 ---- Top = 215 Width = 249 ! Height = 350 Caption = 'Attribute Editor' ParentFont = True *************** *** 12,21 **** inherited EditPanel: TPanel Width = 241 ! Height = 321 object PageControl: TPageControl Left = 4 Top = 4 Width = 233 ! Height = 313 ActivePage = DefinitionSheet Align = alClient --- 12,21 ---- inherited EditPanel: TPanel Width = 241 ! Height = 292 object PageControl: TPageControl Left = 4 Top = 4 Width = 233 ! Height = 284 ActivePage = DefinitionSheet Align = alClient *************** *** 63,75 **** FocusControl = SizeEdit end ! object ExternalLinkedNameLabel: TLabel ! Left = 8 ! Top = 248 ! Width = 92 ! Height = 13 ! Caption = 'Exter&nal Link Name' ! FocusControl = ExternalLinkedNameEdit ! end ! object ExternalStoredNameLabel: TLabel Left = 8 Top = 208 --- 63,67 ---- FocusControl = SizeEdit end ! object ExternalStorageNameLabel: TLabel Left = 8 Top = 208 *************** *** 77,89 **** Height = 13 Caption = '&External Storage Name' ! FocusControl = ExternalStoredNameEdit end ! object IsExternalLabel: TLabel Left = 8 Top = 168 ! Width = 49 Height = 13 ! Caption = 'Is Exte&rnal' ! FocusControl = IsExternalEdit end object NameEdit: TDBEdit --- 69,81 ---- Height = 13 Caption = '&External Storage Name' ! FocusControl = ExternalStorageNameEdit end ! object StorageKindLabel: TLabel Left = 8 Top = 168 ! Width = 61 Height = 13 ! Caption = 'Storage &Kind' ! FocusControl = StorageKindEdit end object NameEdit: TDBEdit *************** *** 131,134 **** --- 123,127 ---- DataSource = SubjectSource TabOrder = 4 + OnChange = StorageNameEditChange end object SizeEdit: TDBEdit *************** *** 141,168 **** TabOrder = 3 end ! object ExternalLinkedNameEdit: TDBComboBox ! Left = 8 ! Top = 264 ! Width = 210 ! Height = 21 ! DataField = 'ExternalLinkedName' ! DataSource = SubjectSource ! ItemHeight = 13 ! Sorted = True ! TabOrder = 7 ! OnChange = ExternalLinkedNameEditChange ! OnEnter = ExternalLinkedNameEditEnter ! end ! object ExternalStoredNameEdit: TDBEdit Left = 8 ! Top = 224 Width = 209 Height = 21 ! DataField = 'ExternalStoredName' DataSource = SubjectSource TabOrder = 6 ! OnChange = ExternalStoredNameEditChange end ! object IsExternalEdit: TDBComboBox Left = 7 Top = 184 --- 134,148 ---- TabOrder = 3 end ! object ExternalStorageNameEdit: TDBEdit Left = 8 ! Top = 225 Width = 209 Height = 21 ! DataField = 'ExternalStorageName' DataSource = SubjectSource TabOrder = 6 ! OnChange = ExternalStorageNameEditChange end ! object StorageKindEdit: TDBComboBox Left = 7 Top = 184 *************** *** 170,179 **** Height = 21 Style = csDropDownList ! DataField = 'IsExternal' DataSource = SubjectSource ItemHeight = 13 Sorted = True TabOrder = 5 ! OnChange = IsExternalEditChange end end --- 150,159 ---- Height = 21 Style = csDropDownList ! DataField = 'StorageKind' DataSource = SubjectSource ItemHeight = 13 Sorted = True TabOrder = 5 ! OnChange = StorageKindEditChange end end *************** *** 389,393 **** end inherited BottomPanel: TPanel ! Top = 321 Width = 241 inherited ButtonPanel: TPanel --- 369,373 ---- end inherited BottomPanel: TPanel ! Top = 292 Width = 241 inherited ButtonPanel: TPanel *************** *** 398,411 **** OnInitField = SubjectExposerInitField OnTranslate = SubjectExposerTranslate ! Left = 6 ! Top = 324 end inherited SubjectSource: TDataSource ! Left = 46 ! Top = 324 end object TypeImages: TImageList ! Left = 84 ! Top = 324 end end --- 378,391 ---- OnInitField = SubjectExposerInitField OnTranslate = SubjectExposerTranslate ! Left = 14 ! Top = 284 end inherited SubjectSource: TDataSource ! Left = 54 ! Top = 284 end object TypeImages: TImageList ! Left = 92 ! Top = 284 end end Index: InstantAttributeEditor.pas =================================================================== RCS file: /cvsroot/instantobjects/Source/Design/InstantAttributeEditor.pas,v retrieving revision 1.10 retrieving revision 1.11 diff -C2 -d -r1.10 -r1.11 *** InstantAttributeEditor.pas 11 Feb 2005 16:12:16 -0000 1.10 --- InstantAttributeEditor.pas 18 Feb 2005 14:49:38 -0000 1.11 *************** *** 49,53 **** type TInstantStringsEvent = procedure(Sender: TObject; Items: TStrings) of object; ! TInstantAttrStringsEvent = procedure(Sender: TObject; const ClassName: String; Items: TStrings) of object; --- 49,53 ---- type TInstantStringsEvent = procedure(Sender: TObject; Items: TStrings) of object; ! TInstantAttrStringsEvent = procedure(Sender: TObject; const ClassName: string; Items: TStrings) of object; *************** *** 92,101 **** DefaultValueLabel: TLabel; DefaultValueEdit: TDBEdit; ! ExternalLinkedNameEdit: TDBComboBox; ! ExternalLinkedNameLabel: TLabel; ! ExternalStoredNameEdit: TDBEdit; ! ExternalStoredNameLabel: TLabel; ! IsExternalEdit: TDBComboBox; ! IsExternalLabel: TLabel; procedure FormCreate(Sender: TObject); procedure NameEditChange(Sender: TObject); --- 92,99 ---- DefaultValueLabel: TLabel; DefaultValueEdit: TDBEdit; ! ExternalStorageNameEdit: TDBEdit; ! ExternalStorageNameLabel: TLabel; ! StorageKindEdit: TDBComboBox; ! StorageKindLabel: TLabel; procedure FormCreate(Sender: TObject); procedure NameEditChange(Sender: TObject); *************** *** 109,116 **** var Value: Variant; Write: Boolean); procedure TypeEditClick(Sender: TObject); ! procedure IsExternalEditChange(Sender: TObject); ! procedure ExternalStoredNameEditChange(Sender: TObject); procedure ExternalLinkedNameEditChange(Sender: TObject); ! procedure ExternalLinkedNameEditEnter(Sender: TObject); private // True if in ModelMaker, default is False --- 107,114 ---- var Value: Variant; Write: Boolean); procedure TypeEditClick(Sender: TObject); ! procedure StorageKindEditChange(Sender: TObject); ! procedure ExternalStorageNameEditChange(Sender: TObject); procedure ExternalLinkedNameEditChange(Sender: TObject); ! procedure StorageNameEditChange(Sender: TObject); private // True if in ModelMaker, default is False *************** *** 132,141 **** procedure LoadTypes; procedure LoadVisibilities; ! procedure LoadIsExternal; procedure PopulateClasses; - procedure PopulateClassAttributes; procedure SaveData; override; procedure SubjectChanged; override; procedure UpdateControls; public property InMM: boolean read FInMM write FInMM; --- 130,139 ---- procedure LoadTypes; procedure LoadVisibilities; ! procedure LoadStorageKind; procedure PopulateClasses; procedure SaveData; override; procedure SubjectChanged; override; procedure UpdateControls; + procedure ComputeExternalStorageName; public property InMM: boolean read FInMM write FInMM; *************** *** 150,154 **** uses ! InstantRtti, InstantPersistence, InstantDesignUtils, InstantImageUtils; {$R *.dfm} --- 148,153 ---- uses ! InstantRtti, InstantPersistence, InstantDesignUtils, InstantImageUtils, ! InstantClasses; {$R *.dfm} *************** *** 251,257 **** end; ! procedure TInstantAttributeEditorForm.LoadIsExternal; begin ! with IsExternalEdit do ItemIndex := SubjectExposer.GetFieldStrings(Field, Items); end; --- 250,256 ---- end; ! procedure TInstantAttributeEditorForm.LoadStorageKind; begin ! with StorageKindEdit do ItemIndex := SubjectExposer.GetFieldStrings(Field, Items); end; *************** *** 296,299 **** --- 295,299 ---- SubjectExposer.AssignFieldValue(Field, Text); UpdateControls; + ComputeExternalStorageName; end; *************** *** 307,312 **** end; ! procedure TInstantAttributeEditorForm.ObjectClassEditChange( ! Sender: TObject); begin with ObjectClassEdit do --- 307,311 ---- end; ! procedure TInstantAttributeEditorForm.ObjectClassEditChange(Sender: TObject); begin with ObjectClassEdit do *************** *** 405,410 **** LoadTypes; LoadVisibilities; ! LoadIsExternal; UpdateControls; end; --- 404,410 ---- LoadTypes; LoadVisibilities; ! LoadStorageKind; UpdateControls; + ComputeExternalStorageName; end; *************** *** 438,443 **** else if Field.FieldName = 'Visibility' then TranslateEnum('vi') ! else if Field.FieldName = 'IsExternal' then ! TranslateEnum('ce'); end; --- 438,443 ---- else if Field.FieldName = 'Visibility' then TranslateEnum('vi') ! else if Field.FieldName = 'StorageKind' then ! TranslateEnum('sk'); end; *************** *** 450,454 **** UpdateControls; LoadVisibilities; ! LoadIsExternal; end; --- 450,455 ---- UpdateControls; LoadVisibilities; ! LoadStorageKind; ! ComputeExternalStorageName; end; *************** *** 474,487 **** var ! HasName, HasClass, HasExternalLinkedName: Boolean; ! IsComplex, IsContainer, CanBeExternal, IsExternal, IsMaskable, IsString, IsValid: Boolean; begin CanBeExternal := Subject.AttributeType in [atPart, atParts, atReferences]; if not CanBeExternal then ! Subject.IsExternal := ceNo; ! if (Subject.IsExternal = ceLinked) or (Subject.AttributeType = atPart) then ! Subject.ExternalStoredName := ''; ! if (Subject.IsExternal = ceStored) then ! Subject.ExternalLinkedName := ''; HasName := NameEdit.Text <> ''; --- 475,486 ---- var ! HasName, HasClass, IsComplex, IsContainer, CanBeExternal, IsExternal, ! IsMaskable, IsString, IsValid: Boolean; begin CanBeExternal := Subject.AttributeType in [atPart, atParts, atReferences]; if not CanBeExternal then ! Subject.StorageKind := skEmbedded; ! if Subject.AttributeType = atPart then ! Subject.ExternalStorageName := ''; HasName := NameEdit.Text <> ''; *************** *** 490,500 **** IsMaskable := Subject.AttributeType in [atString, atMemo, atFloat, atCurrency, atInteger]; IsContainer := Subject.IsContainer; - HasExternalLinkedName := ExternalLinkedNameEdit.Text <> ''; ! IsExternal := Subject.IsExternal <> ceNo; IsString := Subject.AttributeType in [atString, atMemo]; IsValid := HasName and (not IsComplex or HasClass); - if IsValid and (Subject.IsExternal = ceLinked) then - IsValid := HasExternalLinkedName; DisableSubControls(DefinitionSheet, Limited); --- 489,496 ---- IsMaskable := Subject.AttributeType in [atString, atMemo, atFloat, atCurrency, atInteger]; IsContainer := Subject.IsContainer; ! IsExternal := Subject.StorageKind = skExternal; IsString := Subject.AttributeType in [atString, atMemo]; IsValid := HasName and (not IsComplex or HasClass); DisableSubControls(DefinitionSheet, Limited); *************** *** 515,529 **** EnableCtrl(MethodRemoveCheckBox, IsContainer); ! EnableCtrl(IsExternalEdit, CanBeExternal); ! EnableCtrl(IsExternalLabel, CanBeExternal); end; EnableCtrl(StorageNameLabel, not IsExternal or (Subject.AttributeType = atPart)); EnableCtrl(StorageNameEdit, not IsExternal or (Subject.AttributeType = atPart)); ! EnableCtrl(ExternalLinkedNameLabel, IsExternal and (Subject.IsExternal = ceLinked)); ! EnableCtrl(ExternalLinkedNameEdit, IsExternal and (Subject.IsExternal = ceLinked)); ! EnableCtrl(ExternalStoredNameLabel, IsExternal and (Subject.IsExternal = ceStored) and not (Subject.AttributeType = atPart)); ! EnableCtrl(ExternalStoredNameEdit, IsExternal and (Subject.IsExternal = ceStored) and not (Subject.AttributeType = atPart)); --- 511,523 ---- EnableCtrl(MethodRemoveCheckBox, IsContainer); ! EnableCtrl(StorageKindEdit, CanBeExternal); ! EnableCtrl(StorageKindLabel, CanBeExternal); end; EnableCtrl(StorageNameLabel, not IsExternal or (Subject.AttributeType = atPart)); EnableCtrl(StorageNameEdit, not IsExternal or (Subject.AttributeType = atPart)); ! EnableCtrl(ExternalStorageNameLabel, IsExternal and (Subject.StorageKind = skExternal) and not (Subject.AttributeType = atPart)); ! EnableCtrl(ExternalStorageNameEdit, IsExternal and (Subject.StorageKind = skExternal) and not (Subject.AttributeType = atPart)); *************** *** 537,556 **** end; ! procedure TInstantAttributeEditorForm.IsExternalEditChange( ! Sender: TObject); begin ! with IsExternalEdit do SubjectExposer.AssignFieldValue(Field, Text); UpdateControls; end; ! procedure TInstantAttributeEditorForm.ExternalStoredNameEditChange( ! Sender: TObject); begin UpdateControls; end; ! procedure TInstantAttributeEditorForm.ExternalLinkedNameEditChange( ! Sender: TObject); begin UpdateControls; --- 531,547 ---- end; ! procedure TInstantAttributeEditorForm.StorageKindEditChange(Sender: TObject); begin ! with StorageKindEdit do SubjectExposer.AssignFieldValue(Field, Text); UpdateControls; end; ! procedure TInstantAttributeEditorForm.ExternalStorageNameEditChange(Sender: TObject); begin UpdateControls; end; ! procedure TInstantAttributeEditorForm.ExternalLinkedNameEditChange(Sender: TObject); begin UpdateControls; *************** *** 558,594 **** procedure TInstantAttributeEditorForm.LoadClassAttributes; - var - I:integer; begin - with ExternalLinkedNameEdit do - begin - Items.BeginUpdate; - try - Items.Clear; - if Assigned(FOnLoadClassAttributes) then begin - FOnLoadClassAttributes(Self, ObjectClassEdit.Text, Items); - end - else begin - if Assigned(FModel) then - if Assigned(FModel.FindClass(ObjectClassEdit.Text)) then - for I := 0 to Pred(FModel.FindClass(ObjectClassEdit.Text).AttributeCount) do - Items.Add(FModel.FindClass(ObjectClassEdit.Text).Attributes[i].Name); - end; - finally - Items.EndUpdate; - end; - end; end; ! procedure TInstantAttributeEditorForm.PopulateClassAttributes; begin ! if ExternalLinkedNameEdit.Items.Count = 0 then ! LoadClassAttributes; end; ! procedure TInstantAttributeEditorForm.ExternalLinkedNameEditEnter( ! Sender: TObject); begin ! PopulateClassAttributes; end; --- 549,591 ---- procedure TInstantAttributeEditorForm.LoadClassAttributes; begin end; ! procedure TInstantAttributeEditorForm.StorageNameEditChange( ! Sender: TObject); begin ! inherited; ! UpdateControls; ! ComputeExternalStorageName; end; ! procedure TInstantAttributeEditorForm.ComputeExternalStorageName; ! ! function GetClassStorageName: string; ! begin ! if Subject.Metadata.ClassMetadata.StorageName <> '' then ! Result := Subject.Metadata.ClassMetadata.StorageName ! else ! Result := Subject.Metadata.ClassMetadata.Name; ! end; ! ! function GetStorageName: string; ! begin ! if StorageNameEdit.Text <> '' then ! Result := StorageNameEdit.Text ! else ! Result := NameEdit.Text; ! end; ! begin ! { ! if ExternalStorageNameEdit.Enabled then ! begin ! ExternalStorageNameEdit.Text := Format('%s_%s', ! [GetClassStorageName(), GetStorageName()]); ! end ! else ! ExternalStorageNameEdit.Text := ''; ! } end; |
|
From: Nando D. <na...@us...> - 2005-02-18 14:44:39
|
Update of /cvsroot/instantobjects/Source/Design/D7 In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv13882/Design/D7 Modified Files: DclIOCore.cfg DclIOCore.dof Log Message: disabled unsafe warnings Index: DclIOCore.dof =================================================================== RCS file: /cvsroot/instantobjects/Source/Design/D7/DclIOCore.dof,v retrieving revision 1.5 retrieving revision 1.6 diff -C2 -d -r1.5 -r1.6 *** DclIOCore.dof 11 Feb 2005 14:38:15 -0000 1.5 --- DclIOCore.dof 18 Feb 2005 14:44:30 -0000 1.6 *************** *** 77,83 **** SuspiciousTypecast=1 PrivatePropAccessor=1 ! UnsafeType=0 ! UnsafeCode=0 ! UnsafeCast=0 [Linker] MapFile=0 --- 77,83 ---- SuspiciousTypecast=1 PrivatePropAccessor=1 ! UnsafeType=1 ! UnsafeCode=1 ! UnsafeCast=1 [Linker] MapFile=0 Index: DclIOCore.cfg =================================================================== RCS file: /cvsroot/instantobjects/Source/Design/D7/DclIOCore.cfg,v retrieving revision 1.1 retrieving revision 1.2 diff -C2 -d -r1.1 -r1.2 *** DclIOCore.cfg 20 Jul 2004 16:39:09 -0000 1.1 --- DclIOCore.cfg 18 Feb 2005 14:44:30 -0000 1.2 *************** *** 35,39 **** -LN"c:\programmi\borland\delphi7\Projects\Bpl" -Z - -w-UNSAFE_TYPE - -w-UNSAFE_CODE - -w-UNSAFE_CAST --- 35,36 ---- |
|
From: Nando D. <na...@us...> - 2005-02-18 14:40:46
|
Update of /cvsroot/instantobjects/Source/Core/D6 In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv12663/Core/D6 Removed Files: IOCore.~dpk Log Message: removed useless file --- IOCore.~dpk DELETED --- |
|
From: Nando D. <na...@us...> - 2005-02-18 14:39:56
|
Update of /cvsroot/instantobjects/Source/Core/D6 In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv12436/Core/D6 Modified Files: IOCore.cfg IOCore.dof IOCore.dpk Log Message: added InstantPump and brought package up to date Index: IOCore.dpk =================================================================== RCS file: /cvsroot/instantobjects/Source/Core/D6/IOCore.dpk,v retrieving revision 1.1 retrieving revision 1.2 diff -C2 -d -r1.1 -r1.2 *** IOCore.dpk 20 Jul 2004 16:39:09 -0000 1.1 --- IOCore.dpk 18 Feb 2005 14:39:47 -0000 1.2 *************** *** 2,5 **** --- 2,6 ---- {$R *.res} + {$R '..\InstantPump.dcr'} {$ALIGN 8} {$ASSERTIONS ON} *************** *** 47,51 **** InstantAccessors in '..\InstantAccessors.pas', InstantConnectionManager in '..\InstantConnectionManager.pas' {InstantConnectionManagerForm}, ! InstantImageUtils in '..\InstantImageUtils.pas'; end. --- 48,53 ---- InstantAccessors in '..\InstantAccessors.pas', InstantConnectionManager in '..\InstantConnectionManager.pas' {InstantConnectionManagerForm}, ! InstantImageUtils in '..\InstantImageUtils.pas', ! InstantPump in '..\InstantPump.pas'; end. Index: IOCore.cfg =================================================================== RCS file: /cvsroot/instantobjects/Source/Core/D6/IOCore.cfg,v retrieving revision 1.1 retrieving revision 1.2 diff -C2 -d -r1.1 -r1.2 *** IOCore.cfg 20 Jul 2004 16:39:09 -0000 1.1 --- IOCore.cfg 18 Feb 2005 14:39:47 -0000 1.2 *************** *** 32,36 **** -$M16384,1048576 -K$00400000 ! -LE"c:\programmi\borland\delphi6\Projects\Bpl" ! -LN"c:\programmi\borland\delphi6\Projects\Bpl" -Z --- 32,36 ---- -$M16384,1048576 -K$00400000 ! -LE"C:\Programmi\Borland\Delphi6\Projects\Bpl" ! -LN"C:\Programmi\Borland\Delphi6\Projects\Bpl" -Z Index: IOCore.dof =================================================================== RCS file: /cvsroot/instantobjects/Source/Core/D6/IOCore.dof,v retrieving revision 1.1 retrieving revision 1.2 diff -C2 -d -r1.1 -r1.2 *** IOCore.dof 20 Jul 2004 16:39:09 -0000 1.1 --- IOCore.dof 18 Feb 2005 14:39:47 -0000 1.2 *************** *** 89,90 **** --- 89,93 ---- C:\Programmi\Borland\Delphi6\Bin\dcldbxcds60.bpl=Borland Local DBX ClientDataset Components C:\Programmi\Borland\Delphi6\Bin\dclclxstd60.bpl=Borland CLX Standard Components + [HistoryLists\hlUnitAliases] + Count=1 + Item0=WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE; |
|
From: Nando D. <na...@us...> - 2005-02-18 14:27:15
|
Update of /cvsroot/instantobjects/Source/Core In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv8625/Core Modified Files: InstantCode.pas InstantPersistence.pas Log Message: External storage unification & refactoring Index: InstantCode.pas =================================================================== RCS file: /cvsroot/instantobjects/Source/Core/InstantCode.pas,v retrieving revision 1.9 retrieving revision 1.10 diff -C2 -d -r1.9 -r1.10 *** InstantCode.pas 18 Feb 2005 11:04:08 -0000 1.9 --- InstantCode.pas 18 Feb 2005 14:27:04 -0000 1.10 *************** *** 25,33 **** * * Contributor(s): ! * Carlo Barazzetta, Adrea Petrelli: porting Kylix ! * Nando Dessena, Andrea Petrelli: ! * - ExternalPart, ExternalParts and ExternalReferences support ! * Steven Mitchell: ! * - Added MetadataInfo identification tag * ***** END LICENSE BLOCK ***** *) --- 25,29 ---- * * Contributor(s): ! * Carlo Barazzetta, Adrea Petrelli, Nando Dessena, Steven Mitchell. * ***** END LICENSE BLOCK ***** *) *************** *** 624,633 **** procedure SetStorageName(const Value: string); procedure SetVisibility(Value: TInstantCodeVisibility); ! function GetExternalLinkedName: string; ! function GetExternalStoredName: string; ! function GetIsExternal: TInstantContainerIsExternal; ! procedure SetExternalLinkedName(const Value: string); ! procedure SetExternalStoredName(const Value: string); ! procedure SetIsExternal(const Value: TInstantContainerIsExternal); protected function GetIsDefault: Boolean; virtual; --- 620,627 ---- procedure SetStorageName(const Value: string); procedure SetVisibility(Value: TInstantCodeVisibility); ! function GetExternalStorageName: string; ! function GetStorageKind: TInstantStorageKind; ! procedure SetExternalStorageName(const Value: string); ! procedure SetStorageKind(const Value: TInstantStorageKind); protected function GetIsDefault: Boolean; virtual; *************** *** 675,680 **** property AttributeTypeName: string read GetAttributeTypeName write SetAttributeTypeName; property AttributeTypeText: string read GetAttributeTypeText; ! property ExternalLinkedName: string read GetExternalLinkedName write SetExternalLinkedName; ! property ExternalStoredName: string read GetExternalStoredName write SetExternalStoredName; property IncludeAddMethod: Boolean read GetIncludeAddMethod write SetIncludeAddMethod; property IncludeClearMethod: Boolean read GetIncludeClearMethod write SetIncludeClearMethod; --- 669,673 ---- property AttributeTypeName: string read GetAttributeTypeName write SetAttributeTypeName; property AttributeTypeText: string read GetAttributeTypeText; ! property ExternalStorageName: string read GetExternalStorageName write SetExternalStorageName; property IncludeAddMethod: Boolean read GetIncludeAddMethod write SetIncludeAddMethod; property IncludeClearMethod: Boolean read GetIncludeClearMethod write SetIncludeClearMethod; *************** *** 684,688 **** property IncludeRemoveMethod: Boolean read GetIncludeRemoveMethod write SetIncludeRemoveMethod; property IsDefault: Boolean read GetIsDefault write SetIsDefault; ! property IsExternal: TInstantContainerIsExternal read GetIsExternal write SetIsExternal; property IsIndexed: Boolean read GetIsIndexed write SetIsIndexed; property IsRequired: Boolean read GetIsRequired write SetIsRequired; --- 677,681 ---- property IncludeRemoveMethod: Boolean read GetIncludeRemoveMethod write SetIncludeRemoveMethod; property IsDefault: Boolean read GetIsDefault write SetIsDefault; ! property StorageKind: TInstantStorageKind read GetStorageKind write SetStorageKind; property IsIndexed: Boolean read GetIsIndexed write SetIsIndexed; property IsRequired: Boolean read GetIsRequired write SetIsRequired; *************** *** 1534,1539 **** MetadataInfoID = 'IOMETADATA'; MetaKeyDefault = 'default'; ! MetaKeyExternalStored = 'externalstored'; ! MetaKeyExternalLinked = 'externallinked'; MetaKeyFormat = 'format'; MetaKeyIndex = 'index'; --- 1527,1531 ---- MetadataInfoID = 'IOMETADATA'; MetaKeyDefault = 'default'; ! MetaKeyExternal = 'external'; MetaKeyFormat = 'format'; MetaKeyIndex = 'index'; *************** *** 1790,1802 **** if SameText(Token, MetaKeyDefault) then FMetadata.IsDefault := True; ! if SameText(Token, MetaKeyExternalStored) then ! begin ! FMetadata.IsExternal := ceStored; ! FMetadata.ExternalStoredName := ReadStringValue; ! end; ! if SameText(Token, MetaKeyExternalLinked) then begin ! FMetadata.IsExternal := ceLinked; ! FMetadata.ExternalLinkedName := ReadStringValue; end; end; --- 1782,1789 ---- if SameText(Token, MetaKeyDefault) then FMetadata.IsDefault := True; ! if SameText(Token, MetaKeyExternal) then begin ! FMetadata.StorageKind := skExternal; ! FMetadata.ExternalStorageName := ReadStringValue; end; end; *************** *** 3728,3739 **** end; ! function TInstantCodeAttribute.GetExternalLinkedName: string; ! begin ! Result := Metadata.ExternalLinkedName; ! end; ! ! function TInstantCodeAttribute.GetExternalStoredName: string; begin ! Result := Metadata.ExternalStoredName; end; --- 3715,3721 ---- end; ! function TInstantCodeAttribute.GetExternalStorageName: string; begin ! Result := Metadata.ExternalStorageName; end; *************** *** 3798,3804 **** end; ! function TInstantCodeAttribute.GetIsExternal: TInstantContainerIsExternal; begin ! Result := Metadata.IsExternal; end; --- 3780,3786 ---- end; ! function TInstantCodeAttribute.GetStorageKind: TInstantStorageKind; begin ! Result := Metadata.StorageKind; end; *************** *** 3994,4004 **** begin Writer.WriteFmt('%s: %s', [Name, AttributeTypeText]); ! if Metadata.IsExternal = ceLinked then ! WriteStr(MetaKeyExternalLinked, Metadata.ExternalLinkedName) ! else if Metadata.IsExternal = ceStored then begin if Metadata.AttributeType = atPart then WriteStr(MetaKeyStored, Metadata.StorageName); ! WriteStr(MetaKeyExternalStored, Metadata.ExternalStoredName, True); end else --- 3976,3984 ---- begin Writer.WriteFmt('%s: %s', [Name, AttributeTypeText]); ! if Metadata.StorageKind = skExternal then begin if Metadata.AttributeType = atPart then WriteStr(MetaKeyStored, Metadata.StorageName); ! WriteStr(MetaKeyExternal, Metadata.ExternalStorageName, True); end else *************** *** 4057,4068 **** end; ! procedure TInstantCodeAttribute.SetExternalLinkedName(const Value: string); ! begin ! Metadata.ExternalLinkedName := Value; ! end; ! ! procedure TInstantCodeAttribute.SetExternalStoredName(const Value: string); begin ! Metadata.ExternalStoredName := Value; end; --- 4037,4043 ---- end; ! procedure TInstantCodeAttribute.SetExternalStorageName(const Value: string); begin ! Metadata.ExternalStorageName := Value; end; *************** *** 4107,4113 **** end; ! procedure TInstantCodeAttribute.SetIsExternal(const Value: TInstantContainerIsExternal); begin ! Metadata.IsExternal := Value; end; --- 4082,4088 ---- end; ! procedure TInstantCodeAttribute.SetStorageKind(const Value: TInstantStorageKind); begin ! Metadata.StorageKind := Value; end; *************** *** 8559,8571 **** Break; Token := ReadToken; ! if SameText(Token, MetaKeyExternalStored) then ! begin ! FMetadata.IsExternal := ceStored; ! FMetadata.ExternalStoredName := ''; ! end; ! if SameText(Token, MetaKeyExternalLinked) then begin ! FMetadata.IsExternal := ceLinked; ! FMetadata.ExternalLinkedName := ReadStringValue; end; end; --- 8534,8541 ---- Break; Token := ReadToken; ! if SameText(Token, MetaKeyExternal) then begin ! FMetadata.StorageKind := skExternal; ! FMetadata.ExternalStorageName := ''; end; end; Index: InstantPersistence.pas =================================================================== RCS file: /cvsroot/instantobjects/Source/Core/InstantPersistence.pas,v retrieving revision 1.23 retrieving revision 1.24 diff -C2 -d -r1.23 -r1.24 *** InstantPersistence.pas 18 Feb 2005 11:04:09 -0000 1.23 --- InstantPersistence.pas 18 Feb 2005 14:27:04 -0000 1.24 *************** *** 25,43 **** * * Contributor(s): ! * Carlo Barazzetta, Andrea Petrelli: porting Kylix ! * Carlo Barazzetta: ! * - blob streaming in XML format (Part, Parts, References) ! * - UserPreparedQuery support ! * - Objects Assign with different connectors ! * - TInstantCurrency support ! * - TInstantGraphic support ! * - LoginPrompt support in Connections based on TCustomConnection [...1540 lines suppressed...] StatementObject: TInstantStatement; begin ! if Assigned(StatementImplementation) then ! begin Shrink; StatementObject := TInstantStatement.Create(StatementImplementation); *************** *** 15344,15348 **** begin Index := FStatements.IndexOf(StatementText); ! if Index >= 0 then begin DeleteStatement(Index); Result := True; --- 14917,14922 ---- begin Index := FStatements.IndexOf(StatementText); ! if Index >= 0 then ! begin DeleteStatement(Index); Result := True; |
|
From: Nando D. <na...@us...> - 2005-02-18 14:17:51
|
Update of /cvsroot/instantobjects/Docs In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv6019 Added Files: External_Storage.txt Log Message: External storage preliminary documentation --- NEW FILE: External_Storage.txt --- External Storage ---------------- Nando Dessena, 02/2005. Abstract -------- This document describes the goals, implementation and use of external storage in InstantObjects 2.0. What is external storage ------------------------ Historically, IO stores part, parts and references attributes of a class as binary blob fields in the source table. This has caused a number of shortcomings and issues, namely: a) inability to fully query the database from a SQL-enabled (non-IO) interface; b) inability to define foreign keys to enforce referential integrity at the database level; c) difficulty in repairing a "corrupted" (*) blob; d) poor retrieve performances due to missing implementation of load-on-demand feature for part, parts and references attributes; (*) note that to "corrupt" such a blob it suffices to delete a referenced object; the referencing objects can then no longer be loaded; if the referencing attribute is a "reference" attribute the fix is easy; if it's a "references" attribute it requires editing the binary blob. The addition of the XML option for blobs somehow relieved item c), at the cost of bigger blobs -> even poorer performances. External storage in IO means the ability to say that a particular part, parts or reference attribute should be mapped outside of the source class' table, that is in an additional ad-hoc intermediate table. In the case of part attributes, the intermediate table is not even needed because the relationship among the owner and the part is 1:1. How to use external storage --------------------------- Here is a snippet from an example class definition with external attributes: TTest2 = class(TInstantObject) {IOMETADATA stored; TestPart: Part(TTest) external; TestParts: Parts(TTest) external 'Test2_TestParts'; TestRef: Reference(TTest); TestRefs: References(TTest) external 'Test2_TestRefs'; } The TestPart attribute is an external part attribute, which means that it leads to a mapping very similar to TestRef: instead of having a blob field called TestPart, the Test2 table has a couple TestPartId/TestPartClass, and the actual object is stored in its own Test table. PLEASE NOTE that all classes involved in external storage must have the "stored" specification. "embedded" classes are only useful for "embedded" (the historical arrangement) part and parts attributes. The TestParts attribute leads to the creation of an intermediate table called Test2_TestParts which has relationships with both Test2 and Test: Test2 --1:N--> Test2_TestParts --1:1--> Test. This intermediate table has fields to hold information about the relationships and the sequence of elements in the source class' collection attribute. The mapping of the TestRefs attribute is very similar; the only difference is that the parts attribute's target object is deleted when the source object is deleted; this of course does not happen with references attributes. At design time, you can select the "external" specification in the Attribute Editor. The "Storage Kind" combo-box allows to choose between Embedded (the classic model) and External (the new model). For Part attributes, that (in addition to defining the target class "stored" and not "embedded") is enough. For Parts and References you also need to type the External Storage Name, that is the name the intermediate table will have. Personally I use the "<source table name>_<attribute name>" convention, but everyone is of course free to choose a different naming scheme. Credits ------- The initial implementation is by Andrea Petrelli, which is has written most of the code. Nando Dessena contributed some ideas, the Part implementation, refactoring and this doc. |
|
From: Carlo B. <car...@us...> - 2005-02-18 11:05:12
|
Update of /cvsroot/instantobjects/Source/Brokers/IBX In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv16024/Source/Brokers/IBX Modified Files: InstantIBXConnectionDefEdit.dfm Log Message: Removed DesignSize from dfm for D5 compatibility Index: InstantIBXConnectionDefEdit.dfm =================================================================== RCS file: /cvsroot/instantobjects/Source/Brokers/IBX/InstantIBXConnectionDefEdit.dfm,v retrieving revision 1.4 retrieving revision 1.5 diff -C2 -d -r1.4 -r1.5 *** InstantIBXConnectionDefEdit.dfm 3 Dec 2004 16:04:28 -0000 1.4 --- InstantIBXConnectionDefEdit.dfm 18 Feb 2005 11:05:01 -0000 1.5 *************** *** 203,209 **** BevelOuter = bvNone TabOrder = 1 - DesignSize = ( - 362 - 35) object OkButton: TButton Left = 204 --- 203,206 ---- |
|
From: Carlo B. <car...@us...> - 2005-02-18 11:05:12
|
Update of /cvsroot/instantobjects/Source/Brokers/UIB In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv16024/Source/Brokers/UIB Modified Files: InstantUIBConnectionDefEdit.dfm Log Message: Removed DesignSize from dfm for D5 compatibility Index: InstantUIBConnectionDefEdit.dfm =================================================================== RCS file: /cvsroot/instantobjects/Source/Brokers/UIB/InstantUIBConnectionDefEdit.dfm,v retrieving revision 1.2 retrieving revision 1.3 diff -C2 -d -r1.2 -r1.3 *** InstantUIBConnectionDefEdit.dfm 3 Dec 2004 16:04:29 -0000 1.2 --- InstantUIBConnectionDefEdit.dfm 18 Feb 2005 11:05:02 -0000 1.3 *************** *** 203,209 **** BevelOuter = bvNone TabOrder = 1 - DesignSize = ( - 362 - 35) object OkButton: TButton Left = 204 --- 203,206 ---- |
|
From: Carlo B. <car...@us...> - 2005-02-18 11:05:11
|
Update of /cvsroot/instantobjects/Source/Brokers/BDE In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv16024/Source/Brokers/BDE Modified Files: InstantBDEConnectionDefEdit.dfm Log Message: Removed DesignSize from dfm for D5 compatibility Index: InstantBDEConnectionDefEdit.dfm =================================================================== RCS file: /cvsroot/instantobjects/Source/Brokers/BDE/InstantBDEConnectionDefEdit.dfm,v retrieving revision 1.2 retrieving revision 1.3 diff -C2 -d -r1.2 -r1.3 *** InstantBDEConnectionDefEdit.dfm 29 Jul 2004 20:43:13 -0000 1.2 --- InstantBDEConnectionDefEdit.dfm 18 Feb 2005 11:05:01 -0000 1.3 *************** *** 128,134 **** BevelOuter = bvNone TabOrder = 1 - DesignSize = ( - 392 - 35) object OkButton: TButton Left = 234 --- 128,131 ---- |
|
From: Carlo B. <car...@us...> - 2005-02-18 11:04:21
|
Update of /cvsroot/instantobjects/Demos/PrimerCross In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv15667/Demos/PrimerCross Modified Files: Primer.mdr Log Message: Bug fixing for TInstantGraphic support. Index: Primer.mdr =================================================================== RCS file: /cvsroot/instantobjects/Demos/PrimerCross/Primer.mdr,v retrieving revision 1.2 retrieving revision 1.3 diff -C2 -d -r1.2 -r1.3 Binary files /tmp/cvsY6FWJH and /tmp/cvsDIaRqy differ |
|
From: Carlo B. <car...@us...> - 2005-02-18 11:04:21
|
Update of /cvsroot/instantobjects/Source/Core In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv15667/Source/Core Modified Files: InstantCode.pas InstantPersistence.pas Log Message: Bug fixing for TInstantGraphic support. Index: InstantCode.pas =================================================================== RCS file: /cvsroot/instantobjects/Source/Core/InstantCode.pas,v retrieving revision 1.8 retrieving revision 1.9 diff -C2 -d -r1.8 -r1.9 *** InstantCode.pas 11 Feb 2005 17:03:36 -0000 1.8 --- InstantCode.pas 18 Feb 2005 11:04:08 -0000 1.9 *************** *** 1562,1566 **** atBoolean: Result := 'Boolean'; ! atString, atMemo, atBlob: Result := 'string'; atDateTime: --- 1562,1566 ---- atBoolean: Result := 'Boolean'; ! atString, atMemo, atBlob, atGraphic: Result := 'string'; atDateTime: *************** *** 1584,1588 **** '', // atBlob '', // atMemo ! '', // atPicture '', // atPart '', // atReference --- 1584,1588 ---- '', // atBlob '', // atMemo ! '', // atGraphic '', // atPart '', // atReference Index: InstantPersistence.pas =================================================================== RCS file: /cvsroot/instantobjects/Source/Core/InstantPersistence.pas,v retrieving revision 1.22 retrieving revision 1.23 diff -C2 -d -r1.22 -r1.23 *** InstantPersistence.pas 18 Feb 2005 09:10:40 -0000 1.22 --- InstantPersistence.pas 18 Feb 2005 11:04:09 -0000 1.23 *************** *** 7378,7382 **** atDateTime: Writer.WriteDate(InstantStrToDateTime(Processor.ReadData)); ! atBlob: begin Hex := Processor.ReadData; --- 7378,7382 ---- atDateTime: Writer.WriteDate(InstantStrToDateTime(Processor.ReadData)); ! atBlob, atGraphic: begin Hex := Processor.ReadData; *************** *** 11492,11495 **** --- 11492,11497 ---- atBlob: ClearBlob(Attribute as TInstantBlob); + atGraphic: + ClearBlob(Attribute as TInstantGraphic); atMemo: ClearMemo(Attribute as TInstantMemo); *************** *** 11802,11805 **** --- 11804,11809 ---- atBlob: ReadBlob(Attribute as TInstantBlob); + atGraphic: + ReadBlob(Attribute as TInstantGraphic); atMemo: ReadMemo(Attribute as TInstantMemo); *************** *** 11992,11995 **** --- 11996,12001 ---- atBlob: WriteBlob(Attribute as TInstantBlob); + atGraphic: + WriteBlob(Attribute as TInstantGraphic); atMemo: WriteMemo(Attribute as TInstantMemo); *************** *** 13223,13227 **** FieldName := Attribute.Metadata.FieldName; case Attribute.Metadata.AttributeType of ! atBlob: AddBlobAttributeParam; atBoolean: --- 13229,13233 ---- FieldName := Attribute.Metadata.FieldName; case Attribute.Metadata.AttributeType of ! atBlob, atGraphic: AddBlobAttributeParam; atBoolean: *************** *** 14627,14631 **** atDateTime: ReadDateTimeAttribute; ! atBlob: ReadBlobAttribute; atMemo: --- 14633,14637 ---- atDateTime: ReadDateTimeAttribute; ! atBlob, atGraphic: ReadBlobAttribute; atMemo: |
|
From: Carlo B. <car...@us...> - 2005-02-18 11:04:21
|
Update of /cvsroot/instantobjects/Demos/PrimerCross/Model In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv15667/Demos/PrimerCross/Model Modified Files: Model.pas Log Message: Bug fixing for TInstantGraphic support. Index: Model.pas =================================================================== RCS file: /cvsroot/instantobjects/Demos/PrimerCross/Model/Model.pas,v retrieving revision 1.1 retrieving revision 1.2 diff -C2 -d -r1.1 -r1.2 *** Model.pas 7 Dec 2004 08:45:35 -0000 1.1 --- Model.pas 18 Feb 2005 11:04:08 -0000 1.2 *************** *** 164,172 **** TPerson = class(TContact) ! { IOMETADATA stored; BirthDate: DateTime; Emails: Parts(TEmail); Employer: Reference(TCompany); ! Picture: Blob; Salary: Currency; } _BirthDate: TInstantDateTime; --- 164,172 ---- TPerson = class(TContact) ! {IOMETADATA stored; BirthDate: DateTime; Emails: Parts(TEmail); Employer: Reference(TCompany); ! Picture: Graphic; Salary: Currency; } _BirthDate: TInstantDateTime; *************** *** 473,478 **** end; - { TPhone } - procedure TPerson.SetSalary(Value: Currency); begin --- 473,476 ---- *************** *** 480,483 **** --- 478,483 ---- end; + { TPhone } + function TPhone.GetName: string; begin |
