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-02-25 15:05:27
|
Update of /cvsroot/instantobjects/Source/Brokers/Template/D7 In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv2301/Brokers/Template/D7 Removed Files: DclIOXXX.cfg DclIOXXX.dof DclIOXXX.dpk IOXXX.cfg IOXXX.dof IOXXX.dpk Log Message: removed unmaintained Template broker --- IOXXX.dpk DELETED --- --- DclIOXXX.dpk DELETED --- --- IOXXX.dof DELETED --- --- IOXXX.cfg DELETED --- --- DclIOXXX.cfg DELETED --- --- DclIOXXX.dof DELETED --- |
|
From: Nando D. <na...@us...> - 2005-02-25 14:48:37
|
Update of /cvsroot/instantobjects/Source/Core In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv30279/Core Modified Files: InstantConsts.pas InstantPersistence.pas Log Message: removed the AttributeName field from external storage intermediate table mappings Index: InstantConsts.pas =================================================================== RCS file: /cvsroot/instantobjects/Source/Core/InstantConsts.pas,v retrieving revision 1.8 retrieving revision 1.9 diff -C2 -d -r1.8 -r1.9 *** InstantConsts.pas 23 Feb 2005 11:03:01 -0000 1.8 --- InstantConsts.pas 25 Feb 2005 14:48:26 -0000 1.9 *************** *** 59,63 **** InstantParentIdFieldName = 'ParentId'; InstantParentClassFieldName = 'ParentClass'; - InstantParentAttributeFieldName = 'ParentAttribute'; InstantChildIdFieldName = 'ChildId'; InstantSequenceNoFieldName = 'SequenceNo'; --- 59,62 ---- Index: InstantPersistence.pas =================================================================== RCS file: /cvsroot/instantobjects/Source/Core/InstantPersistence.pas,v retrieving revision 1.28 retrieving revision 1.29 diff -C2 -d -r1.28 -r1.29 *** InstantPersistence.pas 25 Feb 2005 14:03:17 -0000 1.28 --- InstantPersistence.pas 25 Feb 2005 14:48:26 -0000 1.29 *************** *** 12632,12637 **** Columns := Columns + ', ' + EmbraceField(InstantParentIdFieldName) + ' ' + Broker.DataTypeToColumnType(Broker.Connector.IdDataType, Broker.Connector.IdSize); - Columns := Columns + ', ' + EmbraceField(InstantParentAttributeFieldName) + ' ' + - Broker.DataTypeToColumnType(dtString, InstantDefaultFieldSize); Columns := Columns + ', ' + EmbraceField(InstantChildClassFieldName) + ' ' + Broker.DataTypeToColumnType(dtString, InstantDefaultFieldSize); --- 12632,12635 ---- *************** *** 12711,12715 **** begin WhereStr := BuildWhereStr([InstantParentClassFieldName, ! InstantParentIdFieldName, InstantParentAttributeFieldName]); Result := Format('DELETE FROM %s WHERE %s', [EmbraceTable('%s'), WhereStr]); --- 12709,12713 ---- begin WhereStr := BuildWhereStr([InstantParentClassFieldName, ! InstantParentIdFieldName]); Result := Format('DELETE FROM %s WHERE %s', [EmbraceTable('%s'), WhereStr]); *************** *** 12743,12758 **** FieldStr, ParamStr: string; begin ! FieldStr := Format('%s, %s, %s, %s, %s, %s, %s', [EmbraceField(InstantIdFieldName), EmbraceField(InstantParentClassFieldName), EmbraceField(InstantParentIdFieldName), - EmbraceField(InstantParentAttributeFieldName), EmbraceField(InstantChildClassFieldName), EmbraceField(InstantChildIdFieldName), EmbraceField(InstantSequenceNoFieldName)]); ! ParamStr := Format(':%s, :%s, :%s, :%s, :%s, :%s, :%s', [InstantIdFieldName, InstantParentClassFieldName, InstantParentIdFieldName, - InstantParentAttributeFieldName, InstantChildClassFieldName, InstantChildIdFieldName, InstantSequenceNoFieldName]); --- 12741,12754 ---- FieldStr, ParamStr: string; begin ! FieldStr := Format('%s, %s, %s, %s, %s, %s', [EmbraceField(InstantIdFieldName), EmbraceField(InstantParentClassFieldName), EmbraceField(InstantParentIdFieldName), EmbraceField(InstantChildClassFieldName), EmbraceField(InstantChildIdFieldName), EmbraceField(InstantSequenceNoFieldName)]); ! ParamStr := Format(':%s, :%s, :%s, :%s, :%s, :%s', [InstantIdFieldName, InstantParentClassFieldName, InstantParentIdFieldName, InstantChildClassFieldName, InstantChildIdFieldName, InstantSequenceNoFieldName]); *************** *** 12795,12802 **** FieldStr := Format('%s, %s, %s', [EmbraceField(InstantChildClassFieldName), EmbraceField(InstantChildIdFieldName), EmbraceField(InstantSequenceNoFieldName)]); ! WhereStr := Format('%s = :%s AND %s = :%s AND %s = :%s AND %s = :%s', [EmbraceField(InstantParentClassFieldName), InstantParentClassFieldName, EmbraceField(InstantParentIdFieldName), InstantParentIdFieldName, - EmbraceField(InstantParentAttributeFieldName), InstantParentAttributeFieldName, EmbraceField(InstantChildClassFieldName), InstantChildClassFieldName]); Result := Format('SELECT %s FROM %s WHERE %s ORDER BY %s', --- 12791,12797 ---- FieldStr := Format('%s, %s, %s', [EmbraceField(InstantChildClassFieldName), EmbraceField(InstantChildIdFieldName), EmbraceField(InstantSequenceNoFieldName)]); ! WhereStr := Format('%s = :%s AND %s = :%s AND %s = :%s', [EmbraceField(InstantParentClassFieldName), InstantParentClassFieldName, EmbraceField(InstantParentIdFieldName), InstantParentIdFieldName, EmbraceField(InstantChildClassFieldName), InstantChildClassFieldName]); Result := Format('SELECT %s FROM %s WHERE %s ORDER BY %s', *************** *** 13442,13446 **** AddIdParam(SelectParams, InstantParentIdFieldName, AObject.Id); AddStringParam(SelectParams, InstantParentClassFieldName, AObject.ClassName); - AddStringParam(SelectParams, InstantParentAttributeFieldName, AttributeMetadata.Name); AddStringParam(SelectParams, InstantChildClassFieldName, AttributeMetadata.ObjectClassName); DataSet := Broker.AcquireDataSet(SelectStatement, SelectParams); --- 13437,13440 ---- *************** *** 13476,13484 **** [AttributeMetadata.ExternalStorageName, InstantParentClassFieldName, ! InstantParentIdFieldName, ! InstantParentAttributeFieldName]); AddStringParam(DeleteParams, InstantParentClassFieldName, AObject.ClassName); AddIdParam(DeleteParams, InstantParentIdFieldName, AObject.Id); - AddStringParam(DeleteParams, InstantParentAttributeFieldName, AttributeMetadata.Name); Broker.Execute(DeleteStatement, DeleteParams); finally --- 13470,13476 ---- [AttributeMetadata.ExternalStorageName, InstantParentClassFieldName, ! InstantParentIdFieldName]); AddStringParam(DeleteParams, InstantParentClassFieldName, AObject.ClassName); AddIdParam(DeleteParams, InstantParentIdFieldName, AObject.Id); Broker.Execute(DeleteStatement, DeleteParams); finally *************** *** 13509,13517 **** DeleteStatement := Format(DeleteExternalSQL, [AttributeMetadata.ExternalStorageName, ! InstantParentClassFieldName, ! InstantParentAttributeFieldName]); AddStringParam(DeleteParams, InstantParentClassFieldName, AObject.ClassName); AddIdParam(DeleteParams, InstantParentIdFieldName, AObject.Id); - AddStringParam(DeleteParams, InstantParentAttributeFieldName, AttributeMetadata.Name); Broker.Execute(DeleteStatement, DeleteParams); finally --- 13501,13507 ---- DeleteStatement := Format(DeleteExternalSQL, [AttributeMetadata.ExternalStorageName, ! InstantParentClassFieldName]); AddStringParam(DeleteParams, InstantParentClassFieldName, AObject.ClassName); AddIdParam(DeleteParams, InstantParentIdFieldName, AObject.Id); Broker.Execute(DeleteStatement, DeleteParams); finally *************** *** 13719,13723 **** AddIdParam(SelectParams, InstantParentIdFieldName, AObject.Id); AddStringParam(SelectParams, InstantParentClassFieldName, AObject.ClassName); - AddStringParam(SelectParams, InstantParentAttributeFieldName, AttributeMetadata.Name); AddStringParam(SelectParams, InstantChildClassFieldName, AttributeMetadata.ObjectClassName); DataSet := Broker.AcquireDataSet(SelectStatement, SelectParams); --- 13709,13712 ---- *************** *** 13752,13760 **** DeleteStatement := Format(DeleteExternalSQL, [AttributeMetadata.ExternalStorageName, ! InstantParentClassFieldName, ! InstantParentAttributeFieldName]); AddStringParam(DeleteParams, InstantParentClassFieldName, AObject.ClassName); AddIdParam(DeleteParams, InstantParentIdFieldName, AObject.Id); - AddStringParam(DeleteParams, InstantParentAttributeFieldName, AttributeMetadata.Name); Broker.Execute(DeleteStatement, DeleteParams); finally --- 13741,13747 ---- DeleteStatement := Format(DeleteExternalSQL, [AttributeMetadata.ExternalStorageName, ! InstantParentClassFieldName]); AddStringParam(DeleteParams, InstantParentClassFieldName, AObject.ClassName); AddIdParam(DeleteParams, InstantParentIdFieldName, AObject.Id); Broker.Execute(DeleteStatement, DeleteParams); finally *************** *** 13778,13782 **** AddStringParam(InsertParams, InstantParentClassFieldName, AObject.ClassName); AddIdParam(InsertParams, InstantParentIdFieldName, AObject.Id); - AddStringParam(InsertParams, InstantParentAttributeFieldName, AttributeMetadata.Name); AddStringParam(InsertParams, InstantChildClassFieldName, PartsAttribute.Items[ii].ClassName); --- 13765,13768 ---- *************** *** 13820,13828 **** [AttributeMetadata.ExternalStorageName, InstantParentClassFieldName, ! InstantParentIdFieldName, ! InstantParentAttributeFieldName]); AddStringParam(DeleteParams, InstantParentClassFieldName, AObject.ClassName); AddIdParam(DeleteParams, InstantParentIdFieldName, AObject.Id); - AddStringParam(DeleteParams, InstantParentAttributeFieldName, AttributeMetadata.Name); Broker.Execute(DeleteStatement, DeleteParams); finally --- 13806,13812 ---- [AttributeMetadata.ExternalStorageName, InstantParentClassFieldName, ! InstantParentIdFieldName]); AddStringParam(DeleteParams, InstantParentClassFieldName, AObject.ClassName); AddIdParam(DeleteParams, InstantParentIdFieldName, AObject.Id); Broker.Execute(DeleteStatement, DeleteParams); finally *************** *** 13843,13847 **** AddStringParam(InsertParams, InstantParentClassFieldName, AObject.ClassName); AddIdParam(InsertParams, InstantParentIdFieldName, AObject.Id); - AddStringParam(InsertParams, InstantParentAttributeFieldName, AttributeMetadata.Name); AddStringParam(InsertParams, InstantChildClassFieldName, ReferencesAttribute.Items[ii].ClassName); --- 13827,13830 ---- *************** *** 13980,13984 **** AddIdParam(Params, InstantParentIdFieldName, AObjectId); AddStringParam(Params, InstantParentClassFieldName, AObject.ClassName); - AddStringParam(Params, InstantParentAttributeFieldName, Attribute.Name); AddStringParam(Params, InstantChildClassFieldName, AttributeMetadata.ObjectClassName); DataSet := Broker.AcquireDataSet(Statement, Params); --- 13963,13966 ---- *************** *** 14048,14052 **** AddIdParam(Params, InstantParentIdFieldName, AObjectId); AddStringParam(Params, InstantParentClassFieldName, AObject.ClassName); - AddStringParam(Params, InstantParentAttributeFieldName, Attribute.Name); AddStringParam(Params, InstantChildClassFieldName, AttributeMetadata.ObjectClassName); DataSet := Broker.AcquireDataSet(Statement, Params); --- 14030,14033 ---- |
|
From: Nando D. <na...@us...> - 2005-02-25 14:03:28
|
Update of /cvsroot/instantobjects/Source/Core In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv16067/Core Modified Files: InstantPersistence.pas Log Message: fixed #880713 - for real Index: InstantPersistence.pas =================================================================== RCS file: /cvsroot/instantobjects/Source/Core/InstantPersistence.pas,v retrieving revision 1.27 retrieving revision 1.28 diff -C2 -d -r1.27 -r1.28 *** InstantPersistence.pas 24 Feb 2005 19:24:42 -0000 1.27 --- InstantPersistence.pas 25 Feb 2005 14:03:17 -0000 1.28 *************** *** 11096,11107 **** begin {MustStore := MustStoreMap;} ! if {MustStore or }AObject.IsPersistent then ! begin Resolver := EnsureResolver(Map); {if MustStore then} Resolver.StoreMap(AObject, Map, ConflictAction, Info) {else if AObject.IsPersistent then ! Resolver.DisposeMap(AObject, Map, ConflictAction, Info);} ! end; end; --- 11096,11107 ---- begin {MustStore := MustStoreMap;} ! {if MustStore or AObject.IsPersistent then ! begin} Resolver := EnsureResolver(Map); {if MustStore then} Resolver.StoreMap(AObject, Map, ConflictAction, Info) {else if AObject.IsPersistent then ! Resolver.DisposeMap(AObject, Map, ConflictAction, Info); ! end;} end; |
|
From: Femi F. <fad...@us...> - 2005-02-25 05:54:20
|
Update of /cvsroot/instantobjects/Source/Brokers/FlashFiler/D5 In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv27606/Brokers/FlashFiler/D5 Modified Files: DclIOff_D5.dpk Log Message: Index: DclIOff_D5.dpk =================================================================== RCS file: /cvsroot/instantobjects/Source/Brokers/FlashFiler/D5/DclIOff_D5.dpk,v retrieving revision 1.1 retrieving revision 1.2 diff -C2 -d -r1.1 -r1.2 *** DclIOff_D5.dpk 24 Feb 2005 02:09:51 -0000 1.1 --- DclIOff_D5.dpk 25 Feb 2005 05:53:54 -0000 1.2 *************** *** 30,34 **** requires IOCore, ! ioff50; contains --- 30,34 ---- requires IOCore, ! ioff_D5; contains |
|
From: Femi F. <fad...@us...> - 2005-02-25 05:53:31
|
Update of /cvsroot/instantobjects/Source/Brokers/ADS/D5 In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv27504/Brokers/ADS/D5 Modified Files: DclIOADS_D5.dpk Log Message: Package Restructure with _D5 Suffix Index: DclIOADS_D5.dpk =================================================================== RCS file: /cvsroot/instantobjects/Source/Brokers/ADS/D5/DclIOADS_D5.dpk,v retrieving revision 1.1 retrieving revision 1.2 diff -C2 -d -r1.1 -r1.2 *** DclIOADS_D5.dpk 24 Feb 2005 02:10:47 -0000 1.1 --- DclIOADS_D5.dpk 25 Feb 2005 05:53:06 -0000 1.2 *************** *** 30,34 **** requires IOCore, ! ioads50; contains --- 30,34 ---- requires IOCore, ! ioads_D5; contains |
|
From: Femi F. <fad...@us...> - 2005-02-25 05:51:31
|
Update of /cvsroot/instantobjects/Source/Brokers/UIB/D5 In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv27123/Brokers/UIB/D5 Modified Files: DclIOUIB_D5.dpk Log Message: Package Restructure with _D5 Suffix Index: DclIOUIB_D5.dpk =================================================================== RCS file: /cvsroot/instantobjects/Source/Brokers/UIB/D5/DclIOUIB_D5.dpk,v retrieving revision 1.1 retrieving revision 1.2 diff -C2 -d -r1.1 -r1.2 *** DclIOUIB_D5.dpk 21 Feb 2005 11:15:09 -0000 1.1 --- DclIOUIB_D5.dpk 25 Feb 2005 05:51:05 -0000 1.2 *************** *** 32,36 **** vcldb50, IOCore, ! IOUIB; contains --- 32,36 ---- vcldb50, IOCore, ! IOUIB_D5; contains |
|
From: Nando D. <na...@us...> - 2005-02-24 19:24:52
|
Update of /cvsroot/instantobjects/Source/Core In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv24586/Core Modified Files: InstantPersistence.pas Log Message: fixed #880713 Index: InstantPersistence.pas =================================================================== RCS file: /cvsroot/instantobjects/Source/Core/InstantPersistence.pas,v retrieving revision 1.26 retrieving revision 1.27 diff -C2 -d -r1.26 -r1.27 *** InstantPersistence.pas 22 Feb 2005 10:51:01 -0000 1.26 --- InstantPersistence.pas 24 Feb 2005 19:24:42 -0000 1.27 *************** *** 11072,11076 **** ConflictAction: TInstantConflictAction; Info: PInstantOperationInfo); ! function MustStoreMap: Boolean; var I: Integer; --- 11072,11077 ---- ConflictAction: TInstantConflictAction; Info: PInstantOperationInfo); ! // Always storing fixes #880713 ! {function MustStoreMap: Boolean; var I: Integer; *************** *** 11088,11105 **** end; Result := False; ! end; var Resolver: TInstantCustomResolver; ! MustStore: Boolean; begin ! MustStore := MustStoreMap; ! if MustStore or AObject.IsPersistent then begin Resolver := EnsureResolver(Map); ! if MustStore then Resolver.StoreMap(AObject, Map, ConflictAction, Info) ! else if AObject.IsPersistent then ! Resolver.DisposeMap(AObject, Map, ConflictAction, Info); end; end; --- 11089,11106 ---- end; Result := False; ! end;} var Resolver: TInstantCustomResolver; ! {MustStore: Boolean;} begin ! {MustStore := MustStoreMap;} ! if {MustStore or }AObject.IsPersistent then begin Resolver := EnsureResolver(Map); ! {if MustStore then} Resolver.StoreMap(AObject, Map, ConflictAction, Info) ! {else if AObject.IsPersistent then ! Resolver.DisposeMap(AObject, Map, ConflictAction, Info);} end; end; |
Update of /cvsroot/instantobjects/Source/Brokers/ADS/D5 In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv20042/Brokers/ADS/D5 Added Files: DclIOADS_D5.cfg DclIOADS_D5.dof DclIOADS_D5.dpk DclIOADS_D5.res ioads_D5.cfg ioads_D5.dof ioads_D5.dpk ioads_D5.res Log Message: Package Restructure with _D5 Suffix --- NEW FILE: DclIOADS_D5.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=0 ShowWarnings=0 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 ADS Design-Time Support (Delphi 5) [Directories] OutputDir= UnitOutputDir= PackageDLLOutputDir= PackageDCPOutputDir= SearchPath= Packages=atsJCL1220rp50;atsJCL1220rp50;DsnIDE50;Vcl50;Vclx50;VclSmp50;Vcldb50;Vclbde50;ibevnt50;vcldbx50;VCLIB50;vclie50;ADSD50;dxEdtrD5;dxcomnD5;EQTLD5;ECQDBCD5;EQDBTLD5;EQGridD5;dxGrEdD5;dxExELD5;dxELibD5;Indy50;SqlDir50;atsSPI2100rp50;PivotCube;Qrpt50;ats3RD100;ABC50;ABCDB50;ABCDBD50;JzNavPanePckD5;JzDesktopAlertPckD5;dcctd5 Conditionals= DebugSourceDirs= UsePackages=0 [Parameters] RunParams= HostApplication= [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=1046 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)\Projects\Bpl\dclOQBkbmMW50.bpl=Open QBuilder IBX Engine $(DELPHI)\Projects\Bpl\dcoutbar_d5.bpl=Dream Outbar $(DELPHI)\Bin\dclite50.bpl=Borland Integrated Translation Environment $(DELPHI)\Projects\Bpl\kbmMWBOQuery.bpl=Business Query for kbmMW $(DELPHI)\Projects\Bpl\dclIndy50.bpl=Internet Direct (Indy) for D5 Property and Component Editors $(DELPHI)\3rdparty\FastReport\fr\Source\frado5.bpl=FastReport 2.5 ADO Components --- NEW FILE: ioads_D5.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=0 ShowWarnings=0 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 ADS Support [Directories] OutputDir= UnitOutputDir= PackageDLLOutputDir= PackageDCPOutputDir= SearchPath= Packages=atsJCL1220rp50;atsJCL1220rp50;DsnIDE50;Vcl50;Vclx50;VclSmp50;Vcldb50;Vclbde50;ibevnt50;vcldbx50;VCLIB50;vclie50;ADSD50;dxEdtrD5;dxcomnD5;EQTLD5;ECQDBCD5;EQDBTLD5;EQGridD5;dxGrEdD5;dxExELD5;dxELibD5;Indy50;SqlDir50;atsSPI2100rp50;PivotCube;Qrpt50;ats3RD100;ABC50;ABCDB50;ABCDBD50;JzNavPanePckD5;JzDesktopAlertPckD5;dcctd5 Conditionals= DebugSourceDirs= UsePackages=0 [Parameters] RunParams= HostApplication= [Version Info] IncludeVerInfo=0 AutoIncBuild=0 MajorVer=1 MinorVer=0 Release=0 Build=0 Debug=0 PreRelease=0 Special=0 Private=0 DLL=0 Locale=1046 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)\Projects\Bpl\dcoutbar_d5.bpl=Dream Outbar $(DELPHI)\Bin\dclite50.bpl=Borland Integrated Translation Environment $(DELPHI)\Projects\Bpl\dclOQBkbmMW50.bpl=Open QBuilder IBX Engine $(DELPHI)\Projects\Bpl\kbmMWBOQuery.bpl=Business Query for kbmMW $(DELPHI)\Projects\Bpl\dclIndy50.bpl=Internet Direct (Indy) for D5 Property and Component Editors $(DELPHI)\3rdparty\FastReport\fr\Source\frado5.bpl=FastReport 2.5 ADO Components --- NEW FILE: DclIOADS_D5.dpk --- package DclIOADS_D5; {$R *.RES} {$R '..\InstantADS.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 ADS Design-Time Support (Delphi 5)'} {$DESIGNONLY} {$IMPLICITBUILD ON} requires IOCore, ioads50; contains InstantADSReg in '..\InstantADSReg.pas'; end. --- NEW FILE: ioads_D5.res --- (This appears to be a binary file; contents omitted.) --- NEW FILE: ioads_D5.dpk --- package ioads_D5; {$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 ON} {$MINENUMSIZE 1} {$IMAGEBASE $400000} {$DESCRIPTION 'InstantObjects ADS Support'} {$IMPLICITBUILD ON} requires Vcl50, Vclx50, Vcldb50, ADSD50, IOCore; contains InstantADS in '..\InstantADS.pas', InstantADSConnectionDefEdit in '..\InstantADSConnectionDefEdit.pas' {InstantADSConnectionDefEditForm}; end. --- NEW FILE: DclIOADS_D5.res --- (This appears to be a binary file; contents omitted.) --- NEW FILE: ioads_D5.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:\borland\delphi5\Projects\Bpl" -LN"c:\borland\delphi5\Projects\Bpl" --- NEW FILE: DclIOADS_D5.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:\borland\delphi5\Projects\Bpl" -LN"c:\borland\delphi5\Projects\Bpl" |
Update of /cvsroot/instantobjects/Source/Brokers/FlashFiler/D5 In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv19703/Brokers/FlashFiler/D5 Added Files: DclIOff_D5.cfg DclIOff_D5.dof DclIOff_D5.dpk DclIOff_D5.res ioff_D5.cfg ioff_D5.dof ioff_D5.dpk ioff_D5.res Log Message: Package Restructure with _D5 Suffix --- NEW FILE: ioff_D5.dpk --- package ioff_D5; {$R *.RES} {$R '..\InstantFlashFiler.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 FlashFiler Support'} {$IMPLICITBUILD OFF} requires Vcl50, Vcldb50, Vclx50, ff2_r50, IOCore; contains InstantFlashFilerConnectionDefEdit in '..\InstantFlashFilerConnectionDefEdit.pas' {InstantFlashFilerConnectionDefEditForm}, ffdb_enh in '..\ffdb_enh.pas', InstantFlashFiler in '..\InstantFlashFiler.pas'; end. --- NEW FILE: ioff_D5.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 FlashFiler Support [Directories] OutputDir= UnitOutputDir= PackageDLLOutputDir= PackageDCPOutputDir= SearchPath=$(DELPHI)\3rdparty\TurboPower\Flashfiler\source Packages= Conditionals= DebugSourceDirs= UsePackages=0 [Parameters] RunParams= HostApplication= [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=1033 CodePage=1252 [Excluded Packages] $(DELPHI)\Projects\Bpl\dcoutbar_d5.bpl=Dream Outbar $(DELPHI)\Bin\dclite50.bpl=Borland Integrated Translation Environment $(DELPHI)\Projects\Bpl\dclOQBkbmMW50.bpl=Open QBuilder IBX Engine $(DELPHI)\Projects\Bpl\kbmMWBOQuery.bpl=Business Query for kbmMW $(DELPHI)\Projects\Bpl\dclIndy50.bpl=Internet Direct (Indy) for D5 Property and Component Editors $(DELPHI)\3rdparty\FastReport\fr\Source\frado5.bpl=FastReport 2.5 ADO Components [HistoryLists\hlUnitAliases] Count=1 Item0=WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE; [HistoryLists\hlSearchPath] Count=1 Item0=C:\Borland\Delphi5\3rdparty\TurboPower\Flashfiler\source --- NEW FILE: DclIOff_D5.dpk --- package DclIOff_D5; {$R *.RES} {$R 'InstantFlashFiler.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 Flash Filer Design-Time Support (Delphi 5)'} {$DESIGNONLY} {$IMPLICITBUILD ON} requires IOCore, ioff50; contains InstantFFReg in '..\InstantFFReg.pas'; end. --- NEW FILE: DclIOff_D5.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:\borland\delphi5\Projects\Bpl" -LN"c:\borland\delphi5\Projects\Bpl" --- NEW FILE: ioff_D5.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:\borland\delphi5\Projects\Bpl" -LN"c:\borland\delphi5\Projects\Bpl" -U"c:\borland\delphi5\3rdparty\TurboPower\Flashfiler\source" -O"c:\borland\delphi5\3rdparty\TurboPower\Flashfiler\source" -I"c:\borland\delphi5\3rdparty\TurboPower\Flashfiler\source" -R"c:\borland\delphi5\3rdparty\TurboPower\Flashfiler\source" -Z --- NEW FILE: DclIOff_D5.res --- (This appears to be a binary file; contents omitted.) --- NEW FILE: ioff_D5.res --- (This appears to be a binary file; contents omitted.) --- NEW FILE: DclIOff_D5.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=0 ShowWarnings=0 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 Flash Filer Design-Time Support (Delphi 5) [Directories] OutputDir= UnitOutputDir= PackageDLLOutputDir= PackageDCPOutputDir= SearchPath= Packages=atsJCL1220rp50;atsJCL1220rp50;DsnIDE50;Vcl50;Vclx50;VclSmp50;Vcldb50;Vclbde50;ibevnt50;vcldbx50;VCLIB50;vclie50;ADSD50;dxEdtrD5;dxcomnD5;EQTLD5;ECQDBCD5;EQDBTLD5;EQGridD5;dxGrEdD5;dxExELD5;dxELibD5;Indy50;SqlDir50;atsSPI2100rp50;PivotCube;Qrpt50;ats3RD100;ABC50;ABCDB50;ABCDBD50;JzNavPanePckD5;JzDesktopAlertPckD5;dcctd5 Conditionals= DebugSourceDirs= UsePackages=0 [Parameters] RunParams= HostApplication= [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=1046 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)\Projects\Bpl\dclOQBkbmMW50.bpl=Open QBuilder IBX Engine $(DELPHI)\Projects\Bpl\dcoutbar_d5.bpl=Dream Outbar $(DELPHI)\Bin\dclite50.bpl=Borland Integrated Translation Environment $(DELPHI)\Projects\Bpl\kbmMWBOQuery.bpl=Business Query for kbmMW $(DELPHI)\Projects\Bpl\dclIndy50.bpl=Internet Direct (Indy) for D5 Property and Component Editors $(DELPHI)\3rdparty\FastReport\fr\Source\frado5.bpl=FastReport 2.5 ADO Components |
|
From: Steven M. <sr...@us...> - 2005-02-24 00:27:33
|
Update of /cvsroot/instantobjects/Source/ObjectFoundry In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv24498 Modified Files: OFExpert.pas Log Message: Updates to EditAttribute method to support changes to Attribute Editor. Index: OFExpert.pas =================================================================== RCS file: /cvsroot/instantobjects/Source/ObjectFoundry/OFExpert.pas,v retrieving revision 1.2 retrieving revision 1.3 diff -C2 -d -r1.2 -r1.3 *** OFExpert.pas 17 Nov 2004 20:59:50 -0000 1.2 --- OFExpert.pas 24 Feb 2005 00:27:21 -0000 1.3 *************** *** 11,16 **** FOptions: TOFOptions; procedure AttributeEditorLoadClasses(Sender: TObject; Items: TStrings); ! procedure AttributeEditorLoadClassAttrs(Sender: TObject; ! const ClassName: String; Items: TStrings); function GetOptions: TOFOptions; function IsInstantObjectClass(AClass: IMMClassBase): Boolean; --- 11,16 ---- FOptions: TOFOptions; procedure AttributeEditorLoadClasses(Sender: TObject; Items: TStrings); ! //procedure AttributeEditorLoadClassAttrs(Sender: TObject; ! // const ClassName: String; Items: TStrings); function GetOptions: TOFOptions; function IsInstantObjectClass(AClass: IMMClassBase): Boolean; *************** *** 57,61 **** Contnrs, Windows, OFClasses, OFUtils, OFCritic, InstantAttributeEditor, InstantPersistence, InstantCode, Forms, Controls, Menus, MMEngineDefs, ! OFClassRegWizard; const --- 57,61 ---- Contnrs, Windows, OFClasses, OFUtils, OFCritic, InstantAttributeEditor, InstantPersistence, InstantCode, Forms, Controls, Menus, MMEngineDefs, ! OFClassRegWizard, InstantDesignUtils; const *************** *** 71,75 **** end; ! procedure TObjectFoundryExpert.AttributeEditorLoadClassAttrs( Sender: TObject; const ClassName: String; Items: TStrings); var --- 71,75 ---- end; ! (*procedure TObjectFoundryExpert.AttributeEditorLoadClassAttrs( Sender: TObject; const ClassName: String; Items: TStrings); var *************** *** 99,103 **** end; end; { if } ! end; procedure TObjectFoundryExpert.AttributeEditorLoadClasses(Sender: TObject; --- 99,103 ---- end; end; { if } ! end; *) procedure TObjectFoundryExpert.AttributeEditorLoadClasses(Sender: TObject; *************** *** 127,140 **** var Attribute: TMMCodeAttribute; begin if Assigned(P) and P.Valid then begin Attribute := TMMCodeAttribute.Create(P); try with TInstantAttributeEditorForm.Create(nil) do try ! InMM := True; // SRM - 14 Oct 2004 OnLoadClasses := AttributeEditorLoadClasses; - OnLoadClassAttributes := AttributeEditorLoadClassAttrs; // SRM - 01 Oct 2004 Subject := Attribute; Result := ShowModal = mrOK; --- 127,153 ---- var Attribute: TMMCodeAttribute; + lClass: IMMClassifier; + + function GetBaseClassStorageName: String; + begin + Assert(Assigned(lClass), 'lClass is not assigned!'); + if lClass.TaggedValues[IOClassStorageName] <> '' then + Result := lClass.TaggedValues[IOClassStorageName] + else + Result := lClass.Name; + + Result := Remove_T_FromClassName(Result); + end; + begin if Assigned(P) and P.Valid then begin + lClass := P.ClassBase; Attribute := TMMCodeAttribute.Create(P); try with TInstantAttributeEditorForm.Create(nil) do try ! BaseClassStorageName := GetBaseClassStorageName; OnLoadClasses := AttributeEditorLoadClasses; Subject := Attribute; Result := ShowModal = mrOK; |
|
From: Steven M. <sr...@us...> - 2005-02-24 00:23:15
|
Update of /cvsroot/instantobjects/Source/ObjectFoundry In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv23336 Modified Files: OFClasses.pas Log Message: Fixed bug: Incorrect StorageName string was used for TaggedValue name in the Load and Save methods of TMMCodeAttribute. Index: OFClasses.pas =================================================================== RCS file: /cvsroot/instantobjects/Source/ObjectFoundry/OFClasses.pas,v retrieving revision 1.4 retrieving revision 1.5 diff -C2 -d -r1.4 -r1.5 *** OFClasses.pas 21 Feb 2005 06:40:17 -0000 1.4 --- OFClasses.pas 24 Feb 2005 00:23:03 -0000 1.5 *************** *** 260,264 **** Prop.DataName := PropTypeName; Prop.V9Visibility := TV9Visibility(Visibility); // SRM - 18 Sep 2004 ! TaggedStrings['StorageName'] := StorageName; // External part(s) options TaggedStrings['ExternalStorageName'] := ExternalStorageName; --- 260,264 ---- Prop.DataName := PropTypeName; Prop.V9Visibility := TV9Visibility(Visibility); // SRM - 18 Sep 2004 ! TaggedStrings[IOClassStorageName] := StorageName; // External part(s) options TaggedStrings['ExternalStorageName'] := ExternalStorageName; *************** *** 441,445 **** Tailor.IsArray := Prop.Options[PropArray]; ReadOnly := Prop.WriteAccess = rwNone; ! StorageName := TaggedStrings['StorageName']; // External part(s) options --- 441,445 ---- Tailor.IsArray := Prop.Options[PropArray]; ReadOnly := Prop.WriteAccess = rwNone; ! StorageName := TaggedStrings[IOClassStorageName]; // External part(s) options |
|
From: Steven M. <sr...@us...> - 2005-02-24 00:17:55
|
Update of /cvsroot/instantobjects/Source/Design In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv21182 Modified Files: InstantDesignUtils.pas Log Message: Added 'Remove_T_FromClassName' support function. Index: InstantDesignUtils.pas =================================================================== RCS file: /cvsroot/instantobjects/Source/Design/InstantDesignUtils.pas,v retrieving revision 1.5 retrieving revision 1.6 diff -C2 -d -r1.5 -r1.6 *** InstantDesignUtils.pas 11 Feb 2005 16:06:43 -0000 1.5 --- InstantDesignUtils.pas 24 Feb 2005 00:17:06 -0000 1.6 *************** *** 25,29 **** * * Contributor(s): ! * Carlo Barazzetta, Adrea Petrelli, Nando Dessena * * ***** END LICENSE BLOCK ***** *) --- 25,29 ---- * * Contributor(s): ! * Carlo Barazzetta, Adrea Petrelli, Steven Mitchell * * ***** END LICENSE BLOCK ***** *) *************** *** 48,51 **** --- 48,52 ---- procedure EnableControl(Control: TControl; Enable: Boolean; Source: TDataSource); function ShortenPath(const Path: string; Canvas: TCanvas; MaxLen: Integer): string; + function Remove_T_FromClassName(const AClassName: string): string; implementation *************** *** 167,169 **** --- 168,178 ---- end; + function Remove_T_FromClassName(const AClassName: string): string; + begin + Result := AClassName; + // Remove the 'T' from classname + if (Length(Result) > 1) and (Result[1] = 'T') then + Delete(Result, 1, 1); + end; + end. |
|
From: Steven M. <sr...@us...> - 2005-02-24 00:14:46
|
Update of /cvsroot/instantobjects/Source/Design In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv20183 Modified Files: InstantClassEditor.pas Log Message: Updates to EditAttribute method to support changes to Attribute Editor. Index: InstantClassEditor.pas =================================================================== RCS file: /cvsroot/instantobjects/Source/Design/InstantClassEditor.pas,v retrieving revision 1.5 retrieving revision 1.6 diff -C2 -d -r1.5 -r1.6 *** InstantClassEditor.pas 11 Feb 2005 16:06:43 -0000 1.5 --- InstantClassEditor.pas 24 Feb 2005 00:14:37 -0000 1.6 *************** *** 25,29 **** * * Contributor(s): ! * Carlo Barazzetta, Adrea Petrelli, Nando Dessena * * ***** END LICENSE BLOCK ***** *) --- 25,29 ---- * * Contributor(s): ! * Carlo Barazzetta, Adrea Petrelli, Steven Mitchell * * ***** END LICENSE BLOCK ***** *) *************** *** 295,298 **** --- 295,309 ---- Attribute: TInstantCodeAttribute; Exists: Boolean; const Title: string): Boolean; + + function GetClassStorageName: String; + begin + if Attribute.Metadata.ClassMetadata.StorageName <> '' then + Result := Attribute.Metadata.ClassMetadata.StorageName + else + Result := Attribute.Metadata.ClassMetadata.Name; + + Result := Remove_T_FromClassName(Result); + end; + begin with TInstantAttributeEditorForm.Create(nil) do *************** *** 301,304 **** --- 312,316 ---- Caption := Title; Model := Self.Model; + BaseClassStorageName := GetClassStorageName; Subject := Attribute; Limited := Exists; *************** *** 642,643 **** --- 654,657 ---- end. + + |
|
From: Steven M. <sr...@us...> - 2005-02-24 00:08:43
|
Update of /cvsroot/instantobjects/Source/Design In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv17875 Modified Files: InstantAttributeEditor.pas InstantAttributeEditor.dfm Log Message: Further updates for Attribute Editor when called from either the IO Class Editor in Delphi's Model Viewer or Object Foundry in ModelMaker. 1. Tidied up code and added Auto check box to Attribute Editor form for ExternalStoragename so that user changes are not automatically overwritten by other changes. The Auto check box setting is not persistent and defaults to Unchecked each time the editor is launched. 2. Removed redundant code now that ExternalLinkedStorage is not required. 3. The InMM flag was no longer needed and has been removed. This was achieved after a bug fix in OFClasses.pas. Index: InstantAttributeEditor.dfm =================================================================== RCS file: /cvsroot/instantobjects/Source/Design/InstantAttributeEditor.dfm,v retrieving revision 1.5 retrieving revision 1.6 diff -C2 -d -r1.5 -r1.6 *** InstantAttributeEditor.dfm 18 Feb 2005 14:49:38 -0000 1.5 --- InstantAttributeEditor.dfm 24 Feb 2005 00:08:33 -0000 1.6 *************** *** 1,7 **** inherited InstantAttributeEditorForm: TInstantAttributeEditorForm ! Left = 229 ! Top = 215 Width = 249 ! Height = 350 Caption = 'Attribute Editor' ParentFont = True --- 1,7 ---- inherited InstantAttributeEditorForm: TInstantAttributeEditorForm ! Left = 78 ! Top = 485 Width = 249 ! Height = 358 Caption = 'Attribute Editor' ParentFont = True *************** *** 12,21 **** inherited EditPanel: TPanel Width = 241 ! Height = 292 object PageControl: TPageControl Left = 4 Top = 4 Width = 233 ! Height = 284 ActivePage = DefinitionSheet Align = alClient --- 12,21 ---- inherited EditPanel: TPanel Width = 241 ! Height = 293 object PageControl: TPageControl Left = 4 Top = 4 Width = 233 ! Height = 285 ActivePage = DefinitionSheet Align = alClient *************** *** 65,69 **** object ExternalStorageNameLabel: TLabel Left = 8 ! Top = 208 Width = 109 Height = 13 --- 65,69 ---- object ExternalStorageNameLabel: TLabel Left = 8 ! Top = 214 Width = 109 Height = 13 *************** *** 80,86 **** end object NameEdit: TDBEdit ! Left = 8 Top = 24 ! Width = 209 Height = 21 DataField = 'Name' --- 80,86 ---- end object NameEdit: TDBEdit ! Left = 7 Top = 24 ! Width = 210 Height = 21 DataField = 'Name' *************** *** 90,94 **** end object TypeEdit: TDBComboBox ! Left = 8 Top = 64 Width = 137 --- 90,94 ---- end object TypeEdit: TDBComboBox ! Left = 7 Top = 64 Width = 137 *************** *** 103,109 **** end object ObjectClassEdit: TDBComboBox ! Left = 8 Top = 104 ! Width = 209 Height = 21 DataField = 'Metadata.ObjectClassName' --- 103,109 ---- end object ObjectClassEdit: TDBComboBox ! Left = 7 Top = 104 ! Width = 210 Height = 21 DataField = 'Metadata.ObjectClassName' *************** *** 116,122 **** end object StorageNameEdit: TDBEdit ! Left = 8 Top = 144 ! Width = 209 Height = 21 DataField = 'StorageName' --- 116,122 ---- end object StorageNameEdit: TDBEdit ! Left = 7 Top = 144 ! Width = 210 Height = 21 DataField = 'StorageName' *************** *** 135,141 **** end object ExternalStorageNameEdit: TDBEdit ! Left = 8 ! Top = 225 ! Width = 209 Height = 21 DataField = 'ExternalStorageName' --- 135,141 ---- end object ExternalStorageNameEdit: TDBEdit ! Left = 7 ! Top = 231 ! Width = 210 Height = 21 DataField = 'ExternalStorageName' *************** *** 157,160 **** --- 157,170 ---- OnChange = StorageKindEditChange end + object AutoCheckBox: TCheckBox + Left = 172 + Top = 212 + Width = 45 + Height = 17 + Alignment = taLeftJustify + Caption = 'Auto' + TabOrder = 7 + OnClick = AutoCheckBoxClick + end end object AccessSheet: TTabSheet *************** *** 369,376 **** end inherited BottomPanel: TPanel ! Top = 292 Width = 241 inherited ButtonPanel: TPanel Left = 81 end end --- 379,394 ---- end inherited BottomPanel: TPanel ! Top = 293 Width = 241 inherited ButtonPanel: TPanel Left = 81 + inherited OkButton: TButton + Left = 1 + Top = 2 + end + inherited CancelButton: TButton + Left = 81 + Top = 2 + end end end Index: InstantAttributeEditor.pas =================================================================== RCS file: /cvsroot/instantobjects/Source/Design/InstantAttributeEditor.pas,v retrieving revision 1.12 retrieving revision 1.13 diff -C2 -d -r1.12 -r1.13 *** InstantAttributeEditor.pas 21 Feb 2005 06:37:31 -0000 1.12 --- InstantAttributeEditor.pas 24 Feb 2005 00:08:33 -0000 1.13 *************** *** 49,54 **** type TInstantStringsEvent = procedure(Sender: TObject; Items: TStrings) of object; - TInstantAttrStringsEvent = procedure(Sender: TObject; const ClassName: string; - Items: TStrings) of object; TInstantAttributeEditorForm = class(TInstantEditForm) --- 49,52 ---- *************** *** 96,99 **** --- 94,98 ---- StorageKindEdit: TDBComboBox; StorageKindLabel: TLabel; + AutoCheckBox: TCheckBox; procedure FormCreate(Sender: TObject); procedure NameEditChange(Sender: TObject); *************** *** 109,121 **** procedure StorageKindEditChange(Sender: TObject); procedure ExternalStorageNameEditChange(Sender: TObject); - procedure ExternalLinkedNameEditChange(Sender: TObject); procedure StorageNameEditChange(Sender: TObject); private ! // True if in ModelMaker, default is False ! FInMM: Boolean; FLimited: Boolean; FModel: TInstantCodeModel; FOnLoadClasses: TInstantStringsEvent; - FOnLoadClassAttributes: TInstantAttrStringsEvent; function GetSubject: TInstantCodeAttribute; procedure SetSubject(const Value: TInstantCodeAttribute); --- 108,118 ---- procedure StorageKindEditChange(Sender: TObject); procedure ExternalStorageNameEditChange(Sender: TObject); procedure StorageNameEditChange(Sender: TObject); + procedure AutoCheckBoxClick(Sender: TObject); private ! FBaseClassStorageName: string; FLimited: Boolean; FModel: TInstantCodeModel; FOnLoadClasses: TInstantStringsEvent; function GetSubject: TInstantCodeAttribute; procedure SetSubject(const Value: TInstantCodeAttribute); *************** *** 124,128 **** protected procedure LoadClasses; - procedure LoadClassAttributes; procedure LoadData; override; procedure LoadEnums(TypeInfo: PTypeInfo; Items: TStrings; --- 121,124 ---- *************** *** 137,145 **** procedure ComputeExternalStorageName; public ! property InMM: boolean read FInMM write FInMM; property Limited: Boolean read FLimited write SetLimited; property Model: TInstantCodeModel read FModel write SetModel; ! property OnLoadClasses: TInstantStringsEvent read FOnLoadClasses write FOnLoadClasses; ! property OnLoadClassAttributes: TInstantAttrStringsEvent read FOnLoadClassAttributes write FOnLoadClassAttributes; property Subject: TInstantCodeAttribute read GetSubject write SetSubject; end; --- 133,142 ---- procedure ComputeExternalStorageName; public ! property BaseClassStorageName: string read FBaseClassStorageName write ! FBaseClassStorageName; property Limited: Boolean read FLimited write SetLimited; property Model: TInstantCodeModel read FModel write SetModel; ! property OnLoadClasses: TInstantStringsEvent read FOnLoadClasses ! write FOnLoadClasses; property Subject: TInstantCodeAttribute read GetSubject write SetSubject; end; *************** *** 160,164 **** PageControl.ActivePage := DefinitionSheet; ActiveControl := NameEdit; - FInMM := False; end; --- 157,160 ---- *************** *** 312,316 **** SubjectExposer.AssignFieldValue(Field, Text); UpdateControls; - LoadClassAttributes; end; --- 308,311 ---- *************** *** 337,344 **** end; end; ! if InMM then ! SaveData ! else ! inherited; end; --- 332,337 ---- end; end; ! ! inherited; end; *************** *** 519,523 **** EnableCtrl(ExternalStorageNameLabel, IsExternal and not (Subject.AttributeType = atPart)); ! EnableCtrl(ExternalStorageNameEdit, IsExternal and not (Subject.AttributeType = atPart)); --- 512,518 ---- EnableCtrl(ExternalStorageNameLabel, IsExternal and not (Subject.AttributeType = atPart)); ! EnableCtrl(ExternalStorageNameEdit, IsExternal ! and not (Subject.AttributeType = atPart)); ! EnableCtrl(AutoCheckBox, IsExternal and not (Subject.AttributeType = atPart)); *************** *** 544,558 **** with ExternalStorageNameEdit do if Text <> '' then ! SubjectExposer.AssignFieldValue(Field, Text); ! UpdateControls; ! end; ! ! procedure TInstantAttributeEditorForm.ExternalLinkedNameEditChange(Sender: TObject); ! begin UpdateControls; end; ! procedure TInstantAttributeEditorForm.LoadClassAttributes; begin end; --- 539,550 ---- with ExternalStorageNameEdit do if Text <> '' then ! SubjectExposer.AssignFieldValue(Field, Text); UpdateControls; end; ! procedure TInstantAttributeEditorForm.AutoCheckBoxClick(Sender: TObject); begin + if AutoCheckBox.Checked then + ComputeExternalStorageName; end; *************** *** 560,564 **** Sender: TObject); begin - inherited; UpdateControls; end; --- 552,555 ---- *************** *** 566,588 **** procedure TInstantAttributeEditorForm.ComputeExternalStorageName; - function GetClassStorageName: string; - begin - if Assigned(FModel) then - begin - if Subject.Metadata.ClassMetadata.StorageName <> '' then - Result := Subject.Metadata.ClassMetadata.StorageName - else begin - Result := Subject.Metadata.ClassMetadata.Name; - // Remove the 'T' from classname - if (Length(Result) > 1) and (Result[1] = 'T') then - Delete(Result, 1, 1); - end; - end - else begin - // ToDo: Fix this up for ObjectFoundry. - Result := ''; - end; - end; - function GetStorageName: string; begin --- 557,560 ---- *************** *** 594,602 **** begin ! if ExternalStorageNameEdit.Enabled then ! ExternalStorageNameEdit.Text := Format('%s_%s', ! [GetClassStorageName(), GetStorageName()]) ! else ! ExternalStorageNameEdit.Text := ''; end; --- 566,580 ---- begin ! with ExternalStorageNameEdit do ! if Enabled then ! begin ! if (Subject.ExternalStorageName <> '') and not AutoCheckBox.Checked then ! Text := Subject.ExternalStorageName ! else ! if (Text = '') or AutoCheckBox.Checked then ! Text := Format('%s_%s', [BaseClassStorageName, GetStorageName()]); ! end ! else ! Text := ''; end; *************** *** 614,615 **** --- 592,595 ---- + + |
|
From: Nando D. <na...@us...> - 2005-02-23 11:03:14
|
Update of /cvsroot/instantobjects/Source/Core In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv18137/Core Modified Files: InstantConnectionManager.pas InstantConnectionManagerForm.pas InstantConsts.pas Log Message: formatting changes to the connection manager & form Index: InstantConsts.pas =================================================================== RCS file: /cvsroot/instantobjects/Source/Core/InstantConsts.pas,v retrieving revision 1.7 retrieving revision 1.8 diff -C2 -d -r1.7 -r1.8 *** InstantConsts.pas 22 Feb 2005 14:25:18 -0000 1.7 --- InstantConsts.pas 23 Feb 2005 11:03:01 -0000 1.8 *************** *** 25,29 **** * * Contributor(s): Nando Dessena ! * - Added explicit ordering to externalstored collections. * ***** END LICENSE BLOCK ***** *) --- 25,29 ---- * * Contributor(s): Nando Dessena ! * * ***** END LICENSE BLOCK ***** *) *************** *** 157,161 **** SMissingImplementation = 'Method %s is not implemented in class %s'; SConnectionManagerCaption = 'Connection Manager'; ! SConnectionManExecNotAssigned = 'Error: connection manager execution procedure non available'; SConnectionDefError = 'Error: connection definitions %s not found in file %s'; SConnectionDefFilter = 'Connection files|*.con;*.xml'; --- 157,161 ---- SMissingImplementation = 'Method %s is not implemented in class %s'; SConnectionManagerCaption = 'Connection Manager'; ! SConnectionManagerExecutorNotAssigned = 'Connection manager execution procedure not assigned'; SConnectionDefError = 'Error: connection definitions %s not found in file %s'; SConnectionDefFilter = 'Connection files|*.con;*.xml'; Index: InstantConnectionManagerForm.pas =================================================================== RCS file: /cvsroot/instantobjects/Source/Core/InstantConnectionManagerForm.pas,v retrieving revision 1.2 retrieving revision 1.3 diff -C2 -d -r1.2 -r1.3 *** InstantConnectionManagerForm.pas 22 Feb 2005 17:36:48 -0000 1.2 --- InstantConnectionManagerForm.pas 23 Feb 2005 11:03:01 -0000 1.3 *************** *** 24,29 **** * the Initial Developer. All Rights Reserved. * ! * Contributor(s): ! * Carlo Barazzetta * * ***** END LICENSE BLOCK ***** *) --- 24,28 ---- * the Initial Developer. All Rights Reserved. * ! * Contributor(s): Carlo Barazzetta * * ***** END LICENSE BLOCK ***** *) *************** *** 44,52 **** SysUtils, Classes, {$IFDEF MSWINDOWS} ! Windows, Messages, Graphics, Controls, Forms, Dialogs, StdCtrls, ComCtrls, ImgList, Menus, ActnList, ExtCtrls, ! StdActns, {$ENDIF} {$IFDEF LINUX} ! QGraphics, QControls, QForms, QDialogs, QActnList, QMenus, QTypes, QImgList, QStdCtrls, QComCtrls, QExtCtrls, {$ENDIF} InstantConnectionManager, InstantClasses, InstantPersistence; --- 43,52 ---- SysUtils, Classes, {$IFDEF MSWINDOWS} ! Windows, Messages, Graphics, Controls, Forms, Dialogs, StdCtrls, ComCtrls, ! ImgList, Menus, ActnList, ExtCtrls, StdActns, {$ENDIF} {$IFDEF LINUX} ! QGraphics, QControls, QForms, QDialogs, QActnList, QMenus, QTypes, QImgList, ! QStdCtrls, QComCtrls, QExtCtrls, {$ENDIF} InstantConnectionManager, InstantClasses, InstantPersistence; *************** *** 89,96 **** procedure FormShow(Sender: TObject); procedure FormCreate(Sender: TObject); ! procedure RenameActionExecute(Sender: TObject); //CB {$IFDEF MSWINDOWS} procedure ConnectionViewEditedVCL(Sender: TObject; Item: TListItem; ! var S: String); {$ENDIF} {$IFDEF LINUX} --- 89,96 ---- procedure FormShow(Sender: TObject); procedure FormCreate(Sender: TObject); ! procedure RenameActionExecute(Sender: TObject); {$IFDEF MSWINDOWS} procedure ConnectionViewEditedVCL(Sender: TObject; Item: TListItem; ! var S: string); {$ENDIF} {$IFDEF LINUX} *************** *** 145,149 **** property FileOpenDialog: TOpenDialog read GetOpenDialog; public ! function isManagerConnected : boolean; function DoBuild(ConnectionDef: TInstantConnectionDef): Boolean; virtual; property CurrentConnectionDef: TInstantConnectionDef read GetCurrentConnectionDef write SetCurrentConnectionDef; --- 145,149 ---- property FileOpenDialog: TOpenDialog read GetOpenDialog; public ! function IsManagerConnected: Boolean; function DoBuild(ConnectionDef: TInstantConnectionDef): Boolean; virtual; property CurrentConnectionDef: TInstantConnectionDef read GetCurrentConnectionDef write SetCurrentConnectionDef; *************** *** 700,706 **** end; ! function TInstantConnectionManagerForm.IsManagerConnected: boolean; begin ! Result := ConnectionManager.isConnected; end; --- 700,706 ---- end; ! function TInstantConnectionManagerForm.IsManagerConnected: Boolean; begin ! Result := ConnectionManager.IsConnected; end; *************** *** 708,710 **** --- 708,713 ---- RegisterConnectionManagerExecutor(DefaultConnectionManagerExecutor); + finalization + RegisterConnectionManagerExecutor(nil); + end. Index: InstantConnectionManager.pas =================================================================== RCS file: /cvsroot/instantobjects/Source/Core/InstantConnectionManager.pas,v retrieving revision 1.11 retrieving revision 1.12 diff -C2 -d -r1.11 -r1.12 *** InstantConnectionManager.pas 22 Feb 2005 17:36:47 -0000 1.11 --- InstantConnectionManager.pas 23 Feb 2005 11:03:01 -0000 1.12 *************** *** 24,29 **** * the Initial Developer. All Rights Reserved. * ! * Contributor(s): ! * Carlo Barazzetta * ***** END LICENSE BLOCK ***** *) --- 24,29 ---- * the Initial Developer. All Rights Reserved. * ! * Contributor(s): Carlo Barazzetta ! * * ***** END LICENSE BLOCK ***** *) *************** *** 63,67 **** TInstantConnectionManager = class; ! TInstantConnectionManagerExecutor = procedure (ConnectionManager : TInstantConnectionManager); TInstantConnectionManager = class(TComponent) --- 63,67 ---- TInstantConnectionManager = class; ! TInstantConnectionManagerExecutor = procedure (ConnectionManager: TInstantConnectionManager); TInstantConnectionManager = class(TComponent) *************** *** 102,108 **** procedure LoadConnectionDefs; procedure SaveConnectionDefs; ! procedure ConnectByName(const ConnectionDefName : string); procedure Execute; ! function isConnected : boolean; property Model: TInstantModel read GetModel write SetModel; property ConnectionDefs: TInstantConnectionDefs read GetConnectionDefs; --- 102,108 ---- procedure LoadConnectionDefs; procedure SaveConnectionDefs; ! procedure ConnectByName(const ConnectionDefName: string); procedure Execute; ! function IsConnected: Boolean; property Model: TInstantModel read GetModel write SetModel; property ConnectionDefs: TInstantConnectionDefs read GetConnectionDefs; *************** *** 110,126 **** property Caption: string read FCaption write SetCaption; property FileName: string read FFileName write SetFileName; ! property FileFormat : TInstantStreamFormat read FFileFormat write SetFileFormat default sfBinary; ! property VisibleActions: TInstantConnectionManagerActionTypes read FVisibleActions write SetVisibleActions default [atNew, atEdit, atDelete, atRename, atConnect, atDisconnect, atBuild, atOpen]; property OnBuild: TInstantConnectionDefEvent read FOnBuild write SetOnBuild; property OnConnect: TInstantConnectionDefEvent read FOnConnect write SetOnConnect; ! property OnDisconnect: TInstantConnectionDefEvent read FOnDisconnect write SetOnDisconnect; property OnEdit: TInstantConnectionDefEvent read FOnEdit write SetOnEdit; ! property OnIsConnected: TInstantConnectionDefEvent read FOnIsConnected write SetOnIsConnected; property OnPrepare: TInstantConnectorEvent read FOnPrepare write SetOnPrepare; ! property OnSupportConnector: TInstantConnectorClassEvent read FOnSupportConnector write SetOnSupportConnector; end; ! procedure RegisterConnectionManagerExecutor(ConnectionManagerExecutor : TInstantConnectionManagerExecutor); implementation --- 110,131 ---- property Caption: string read FCaption write SetCaption; property FileName: string read FFileName write SetFileName; ! property FileFormat : TInstantStreamFormat ! read FFileFormat write SetFileFormat default sfBinary; ! property VisibleActions: TInstantConnectionManagerActionTypes ! read FVisibleActions write SetVisibleActions default [atNew, atEdit, atDelete, atRename, atConnect, atDisconnect, atBuild, atOpen]; property OnBuild: TInstantConnectionDefEvent read FOnBuild write SetOnBuild; property OnConnect: TInstantConnectionDefEvent read FOnConnect write SetOnConnect; ! property OnDisconnect: TInstantConnectionDefEvent ! read FOnDisconnect write SetOnDisconnect; property OnEdit: TInstantConnectionDefEvent read FOnEdit write SetOnEdit; ! property OnIsConnected: TInstantConnectionDefEvent ! read FOnIsConnected write SetOnIsConnected; property OnPrepare: TInstantConnectorEvent read FOnPrepare write SetOnPrepare; ! property OnSupportConnector: TInstantConnectorClassEvent ! read FOnSupportConnector write SetOnSupportConnector; end; ! procedure RegisterConnectionManagerExecutor(ConnectionManagerExecutor: TInstantConnectionManagerExecutor); implementation *************** *** 130,138 **** var ! ConnManagerExecutor : TInstantConnectionManagerExecutor; ! procedure RegisterConnectionManagerExecutor(ConnectionManagerExecutor : TInstantConnectionManagerExecutor); begin ! ConnManagerExecutor := ConnectionManagerExecutor; end; --- 135,143 ---- var ! _ConnectionManagerExecutor: TInstantConnectionManagerExecutor; ! procedure RegisterConnectionManagerExecutor(ConnectionManagerExecutor: TInstantConnectionManagerExecutor); begin ! _ConnectionManagerExecutor := ConnectionManagerExecutor; end; *************** *** 158,162 **** if Value <> FFileName then begin ! if SameText(ExtractFileExt(Value),'.xml') then FFileFormat := sfXML else --- 163,167 ---- if Value <> FFileName then begin ! if SameText(ExtractFileExt(Value), '.xml') then FFileFormat := sfXML else *************** *** 170,183 **** const Value: TInstantStreamFormat); begin ! if Value <> FFileFormat then ! FFileFormat := Value; end; procedure TInstantConnectionManager.SetModel(Value: TInstantModel); begin ! if Value <> Model then ! begin ! FModel := Value; ! end; end; --- 175,184 ---- const Value: TInstantStreamFormat); begin ! FFileFormat := Value; end; procedure TInstantConnectionManager.SetModel(Value: TInstantModel); begin ! FModel := Value; end; *************** *** 185,192 **** Value: TInstantConnectionDefEvent); begin ! if @Value <> @FOnBuild then ! begin ! FOnBuild := Value; ! end; end; --- 186,190 ---- Value: TInstantConnectionDefEvent); begin ! FOnBuild := Value; end; *************** *** 194,201 **** Value: TInstantConnectionDefEvent); begin ! if @Value <> @FOnConnect then ! begin ! FOnConnect := Value; ! end; end; --- 192,196 ---- Value: TInstantConnectionDefEvent); begin ! FOnConnect := Value; end; *************** *** 203,210 **** Value: TInstantConnectionDefEvent); begin ! if @Value <> @FOnDisconnect then ! begin ! FOnDisconnect := Value; ! end; end; --- 198,202 ---- Value: TInstantConnectionDefEvent); begin ! FOnDisconnect := Value; end; *************** *** 212,219 **** Value: TInstantConnectionDefEvent); begin ! if @Value <> @FOnEdit then ! begin ! FOnEdit := Value; ! end; end; --- 204,208 ---- Value: TInstantConnectionDefEvent); begin ! FOnEdit := Value; end; *************** *** 221,228 **** Value: TInstantConnectionDefEvent); begin ! if @Value <> @FOnIsConnected then ! begin ! FOnIsConnected := Value; ! end; end; --- 210,214 ---- Value: TInstantConnectionDefEvent); begin ! FOnIsConnected := Value; end; *************** *** 230,237 **** Value: TInstantConnectorEvent); begin ! if @Value <> @FOnPrepare then ! begin ! FOnPrepare := Value; ! end; end; --- 216,220 ---- Value: TInstantConnectorEvent); begin ! FOnPrepare := Value; end; *************** *** 239,246 **** Value: TInstantConnectorClassEvent); begin ! if @Value <> @FOnSupportConnector then ! begin ! FOnSupportConnector := Value; ! end; end; --- 222,226 ---- Value: TInstantConnectorClassEvent); begin ! FOnSupportConnector := Value; end; *************** *** 248,260 **** Value: TInstantConnectionManagerActionTypes); begin ! if Value <> FVisibleActions then ! begin ! FVisibleActions := Value; ! end; end; procedure TInstantConnectionManager.ConnectByName(const ConnectionDefName: string); var ! Result : boolean; ConnectionDef : TInstantConnectionDef; begin --- 228,237 ---- Value: TInstantConnectionManagerActionTypes); begin ! FVisibleActions := Value; end; procedure TInstantConnectionManager.ConnectByName(const ConnectionDefName: string); var ! Result: Boolean; ConnectionDef : TInstantConnectionDef; begin *************** *** 264,269 **** OnConnect(Self, ConnectionDef, Result) else ! raise EInstantError.CreateFmt(SConnectionDefError, ! [ConnectionDefName,FileName]); end; --- 241,245 ---- OnConnect(Self, ConnectionDef, Result) else ! raise EInstantError.CreateFmt(SConnectionDefError, [ConnectionDefName, FileName]); end; *************** *** 311,316 **** on E: Exception do raise EInstantError.CreateFmt( ! 'Error loading connection definitions from %s: %s', [DefsFileName, ! E.Message]); end; end; --- 287,292 ---- on E: Exception do raise EInstantError.CreateFmt( ! 'Error loading connection definitions from %s: %s', ! [DefsFileName, E.Message]); end; end; *************** *** 355,359 **** else Result := FileName; ! end else Result := ''; end; --- 331,336 ---- else Result := FileName; ! end ! else Result := ''; end; *************** *** 361,395 **** procedure TInstantConnectionManager.Execute; begin ! if Assigned(ConnManagerExecutor) then ! ConnManagerExecutor(self) else ! //WARNING: ! //If you want to use the default ConnectionmanagerForm (as in a previous version of IO) ! //simply add InstantConnectionManagerForm in uses section of your application ! raise EInstantError.Create(SConnectionManExecNotAssigned); end; procedure TInstantConnectionManager.SetCaption(const Value: string); begin ! if FCaption <> Value then ! begin ! FCaption := Value; ! end; end; function TInstantConnectionManager.isConnected: boolean; var ! i : integer; ! ConnectionDef : TInstantConnectionDef; begin Result := False; if not Assigned(OnIsConnected) then Exit; ! for i := 0 to ConnectionDefs.Count -1 do begin ! ConnectionDef := ConnectionDefs.items[i]; ! OnIsConnected(self, ConnectionDef, Result); if Result then ! break; end; end; --- 338,369 ---- procedure TInstantConnectionManager.Execute; begin ! if Assigned(_ConnectionManagerExecutor) then ! _ConnectionManagerExecutor(Self) else ! // WARNING: ! // If you want to use the default ConnectionManagerForm (as in previous versions of IO) ! // simply add InstantConnectionManagerForm in an uses section of your application. ! raise EInstantError.Create(SConnectionManagerExecutorNotAssigned); end; procedure TInstantConnectionManager.SetCaption(const Value: string); begin ! FCaption := Value; end; function TInstantConnectionManager.isConnected: boolean; var ! i: Integer; ! ConnectionDef: TInstantConnectionDef; begin Result := False; if not Assigned(OnIsConnected) then Exit; ! for i := 0 to ConnectionDefs.Count - 1 do begin ! ConnectionDef := ConnectionDefs.Items[i]; ! OnIsConnected(Self, ConnectionDef, Result); if Result then ! Break; end; end; |
|
From: Carlo B. <car...@us...> - 2005-02-22 17:37:06
|
Update of /cvsroot/instantobjects/Source/Core In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv30388/Source/Core Modified Files: InstantConnectionManager.pas InstantConnectionManagerForm.pas Log Message: InstantConnectionManagerForm and InstantConnectionManager bug fixing. Index: InstantConnectionManagerForm.pas =================================================================== RCS file: /cvsroot/instantobjects/Source/Core/InstantConnectionManagerForm.pas,v retrieving revision 1.1 retrieving revision 1.2 diff -C2 -d -r1.1 -r1.2 *** InstantConnectionManagerForm.pas 22 Feb 2005 14:25:18 -0000 1.1 --- InstantConnectionManagerForm.pas 22 Feb 2005 17:36:48 -0000 1.2 *************** *** 145,149 **** property FileOpenDialog: TOpenDialog read GetOpenDialog; public ! constructor Create(AOwner : TComponent); override; function DoBuild(ConnectionDef: TInstantConnectionDef): Boolean; virtual; property CurrentConnectionDef: TInstantConnectionDef read GetCurrentConnectionDef write SetCurrentConnectionDef; --- 145,149 ---- property FileOpenDialog: TOpenDialog read GetOpenDialog; public ! function isManagerConnected : boolean; function DoBuild(ConnectionDef: TInstantConnectionDef): Boolean; virtual; property CurrentConnectionDef: TInstantConnectionDef read GetCurrentConnectionDef write SetCurrentConnectionDef; *************** *** 173,178 **** ConnManagerForm : TInstantConnectionManagerForm; begin ! ConnManagerForm := TInstantConnectionManagerForm.Create(ConnectionManager); Try ConnManagerForm.ShowModal; Finally --- 173,179 ---- ConnManagerForm : TInstantConnectionManagerForm; begin ! ConnManagerForm := TInstantConnectionManagerForm.Create(nil); Try + ConnManagerForm.ConnectionManager := ConnectionManager; ConnManagerForm.ShowModal; Finally *************** *** 197,201 **** ConnectionDef := CurrentConnectionDef; HasItem := Assigned(ConnectionDef); ! Connected := HasItem and IsConnected(ConnectionDef); EnableAction(EditAction, HasItem and not Connected); EnableAction(RenameAction, HasItem); --- 198,202 ---- ConnectionDef := CurrentConnectionDef; HasItem := Assigned(ConnectionDef); ! Connected := IsManagerConnected; EnableAction(EditAction, HasItem and not Connected); EnableAction(RenameAction, HasItem); *************** *** 467,471 **** Result := False; if Assigned(FOnIsConnected) then ! FOnIsConnected(Self, ConnectionDef, Result); end; --- 468,474 ---- Result := False; if Assigned(FOnIsConnected) then ! FOnIsConnected(Self, ConnectionDef, Result) ! else if Assigned(ConnectionManager.OnIsConnected) then ! ConnectionManager.OnIsConnected(ConnectionManager,ConnectionDef,Result); end; *************** *** 655,667 **** end; - constructor TInstantConnectionManagerForm.Create(AOwner: TComponent); - begin - inherited; - if AOwner is TInstantConnectionManager then - ConnectionManager := TInstantConnectionManager(AOwner) - else - ConnectionManager := TInstantConnectionManager.Create(self); - end; - procedure TInstantConnectionManagerForm.SetConnectionManager( const Value: TInstantConnectionManager); --- 658,661 ---- *************** *** 706,709 **** --- 700,708 ---- end; + function TInstantConnectionManagerForm.IsManagerConnected: boolean; + begin + Result := ConnectionManager.isConnected; + end; + initialization RegisterConnectionManagerExecutor(DefaultConnectionManagerExecutor); Index: InstantConnectionManager.pas =================================================================== RCS file: /cvsroot/instantobjects/Source/Core/InstantConnectionManager.pas,v retrieving revision 1.10 retrieving revision 1.11 diff -C2 -d -r1.10 -r1.11 *** InstantConnectionManager.pas 22 Feb 2005 14:25:18 -0000 1.10 --- InstantConnectionManager.pas 22 Feb 2005 17:36:47 -0000 1.11 *************** *** 104,107 **** --- 104,108 ---- procedure ConnectByName(const ConnectionDefName : string); procedure Execute; + function isConnected : boolean; property Model: TInstantModel read GetModel write SetModel; property ConnectionDefs: TInstantConnectionDefs read GetConnectionDefs; *************** *** 126,130 **** uses ! InstantImageUtils, InstantConsts; var --- 127,131 ---- uses ! InstantConsts; var *************** *** 377,379 **** --- 378,397 ---- end; + function TInstantConnectionManager.isConnected: boolean; + var + i : integer; + ConnectionDef : TInstantConnectionDef; + begin + Result := False; + if not Assigned(OnIsConnected) then + Exit; + for i := 0 to ConnectionDefs.Count -1 do + begin + ConnectionDef := ConnectionDefs.items[i]; + OnIsConnected(self, ConnectionDef, Result); + if Result then + break; + end; + end; + end. |
|
From: uberto b. <ub...@us...> - 2005-02-22 16:56:58
|
Update of /cvsroot/instantobjects/Source/Tests In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv19668 Modified Files: TestMockBroker.pas Log Message: Added Phones parts to TContact test Index: TestMockBroker.pas =================================================================== RCS file: /cvsroot/instantobjects/Source/Tests/TestMockBroker.pas,v retrieving revision 1.3 retrieving revision 1.4 diff -C2 -d -r1.3 -r1.4 *** TestMockBroker.pas 22 Feb 2005 16:47:48 -0000 1.3 --- TestMockBroker.pas 22 Feb 2005 16:56:49 -0000 1.4 *************** *** 101,104 **** --- 101,105 ---- old_id: string; brok: TInstantMockBroker; + t: TPhone; begin InstantModel.LoadFromFile(ChangeFileExt(ParamStr(0),'.mdx')); *************** *** 110,113 **** --- 111,123 ---- c.Name := 'Mike'; c.Address.City := 'Milan'; + t := TPhone.Create; + t.Name := 'Home'; + t.Number := '012 12345678'; + c.AddPhone(t); + t := TPhone.Create; + t.Name := 'Office'; + t.Number := '012 23456781'; + c.AddPhone(t); + AssertEquals(2, c.PhoneCount); c.Store(); old_id := c.id; *************** *** 124,127 **** --- 134,138 ---- AssertEquals(old_id, c.Id); AssertNotNull(c.Address); + AssertEquals(0, c.PhoneCount); //mock brocker cannot collect part and parts finally c.Free; *************** *** 147,149 **** RegisterTests([TTestMockBroker]); ! end. \ No newline at end of file --- 158,160 ---- RegisterTests([TTestMockBroker]); ! end. \ No newline at end of file |
|
From: uberto b. <ub...@us...> - 2005-02-22 16:48:04
|
Update of /cvsroot/instantobjects/Source/Tests In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv17630 Modified Files: TestMockBroker.pas Log Message: Changed test broker using Retrieve constructor Index: TestMockBroker.pas =================================================================== RCS file: /cvsroot/instantobjects/Source/Tests/TestMockBroker.pas,v retrieving revision 1.2 retrieving revision 1.3 diff -C2 -d -r1.2 -r1.3 *** TestMockBroker.pas 22 Feb 2005 11:31:15 -0000 1.2 --- TestMockBroker.pas 22 Feb 2005 16:47:48 -0000 1.3 *************** *** 77,82 **** old_id := a.id; finally ! a.Free; end; brok.MockManager.EndSetUp; brok.MockManager.AddExpectation('InternalStoreObject ' + old_id); --- 77,83 ---- old_id := a.id; finally ! FreeAndNil(a); end; + AssertNull(a); brok.MockManager.EndSetUp; brok.MockManager.AddExpectation('InternalStoreObject ' + old_id); *************** *** 84,90 **** Fconn.CommitTransaction; brok.MockManager.StartSetUp; ! a := TAddress.Create; try ! a.Retrieve(old_id); finally a.Free; --- 85,91 ---- Fconn.CommitTransaction; brok.MockManager.StartSetUp; ! a := TAddress.Retrieve(old_id); try ! AssertEquals(old_id, a.Id); finally a.Free; *************** *** 112,124 **** old_id := c.id; finally ! c.Free; end; brok.MockManager.EndSetUp; brok.MockManager.AddExpectation('InternalStoreObject ' + old_id); brok.MockManager.Verify; brok.MockManager.StartSetUp; ! c := TContact.Create; try ! c.Retrieve(old_id); finally c.Free; --- 113,127 ---- old_id := c.id; finally ! FreeAndNil(c); end; + AssertNull(c); brok.MockManager.EndSetUp; brok.MockManager.AddExpectation('InternalStoreObject ' + old_id); brok.MockManager.Verify; brok.MockManager.StartSetUp; ! c := TContact.Retrieve(old_id); try ! AssertEquals(old_id, c.Id); ! AssertNotNull(c.Address); finally c.Free; |
|
From: Carlo B. <car...@us...> - 2005-02-22 14:56:35
|
Update of /cvsroot/instantobjects/Demos/PrimerCross In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv18410/Demos/PrimerCross Modified Files: Main.pas Log Message: InstantConnectionManagerForm added to uses clause. Index: Main.pas =================================================================== RCS file: /cvsroot/instantobjects/Demos/PrimerCross/Main.pas,v retrieving revision 1.8 retrieving revision 1.9 diff -C2 -d -r1.8 -r1.9 *** Main.pas 10 Feb 2005 23:06:18 -0000 1.8 --- Main.pas 22 Feb 2005 14:56:26 -0000 1.9 *************** *** 19,23 **** QMenus, QExtCtrls, QComCtrls, QGrids, QDBGrids, QImgList, QActnList, {$ENDIF} ! InstantPersistence, BasicView, Stopwatch, InstantConnectionManager; type --- 19,24 ---- QMenus, QExtCtrls, QComCtrls, QGrids, QDBGrids, QImgList, QActnList, {$ENDIF} ! InstantPersistence, BasicView, Stopwatch, ! InstantConnectionManagerForm, InstantConnectionManager; type *************** *** 333,337 **** end; if Confirm('Create random data?') then ! RandomDataActionExecute(nil); //CB finally if Assigned(DefaultConnector) then --- 334,338 ---- end; if Confirm('Create random data?') then ! RandomDataActionExecute(nil); finally if Assigned(DefaultConnector) then *************** *** 357,361 **** Result := CreateRandomPerson(Company, Gender); if LoadPictures then ! AssignRandomPicture(Gender=gnMale, TPerson(Result)._Picture); //CB end else begin --- 358,362 ---- Result := CreateRandomPerson(Company, Gender); if LoadPictures then ! AssignRandomPicture(Gender=gnMale, TPerson(Result)._Picture); end else begin *************** *** 592,596 **** procedure TMainForm.InitSideBar; ! procedure AddShortcut(Form: TBasicViewForm; Index: Integer); //CB was TForm begin with SideBar.Items.Add do --- 593,597 ---- procedure TMainForm.InitSideBar; ! procedure AddShortcut(Form: TBasicViewForm; Index: Integer); begin with SideBar.Items.Add do |
|
From: Carlo B. <car...@us...> - 2005-02-22 14:52:55
|
Update of /cvsroot/instantobjects/Source/Core In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv17557/Source/Core Removed Files: InstantConnectionManager.dfm Log Message: InstantConnectionManager.dfm was renamed as InstantConnectionManagerForm.dfm --- InstantConnectionManager.dfm DELETED --- |
|
From: Carlo B. <car...@us...> - 2005-02-22 14:25:57
|
Update of /cvsroot/instantobjects/Source/Core/D6 In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv10742/Source/Core/D6 Modified Files: IOCore.dpk Log Message: Extracted InstantConnectionManagerForm from InstantConnectionManager unit. See txt files for details Index: IOCore.dpk =================================================================== RCS file: /cvsroot/instantobjects/Source/Core/D6/IOCore.dpk,v retrieving revision 1.3 retrieving revision 1.4 diff -C2 -d -r1.3 -r1.4 *** IOCore.dpk 22 Feb 2005 07:55:17 -0000 1.3 --- IOCore.dpk 22 Feb 2005 14:25:17 -0000 1.4 *************** *** 47,51 **** InstantPresentation in '..\InstantPresentation.pas', InstantAccessors in '..\InstantAccessors.pas', ! InstantConnectionManager in '..\InstantConnectionManager.pas' {InstantConnectionManagerForm}, InstantImageUtils in '..\InstantImageUtils.pas', InstantPump in '..\InstantPump.pas'; --- 47,52 ---- InstantPresentation in '..\InstantPresentation.pas', InstantAccessors in '..\InstantAccessors.pas', ! InstantConnectionManagerForm in '..\InstantConnectionManagerForm.pas' {InstantConnectionManagerForm}, ! InstantConnectionManager in '..\InstantConnectionManager.pas', InstantImageUtils in '..\InstantImageUtils.pas', InstantPump in '..\InstantPump.pas'; |
|
From: Carlo B. <car...@us...> - 2005-02-22 14:25:57
|
Update of /cvsroot/instantobjects/Source/Core/D7 In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv10742/Source/Core/D7 Modified Files: IOCore.dpk Log Message: Extracted InstantConnectionManagerForm from InstantConnectionManager unit. See txt files for details Index: IOCore.dpk =================================================================== RCS file: /cvsroot/instantobjects/Source/Core/D7/IOCore.dpk,v retrieving revision 1.3 retrieving revision 1.4 diff -C2 -d -r1.3 -r1.4 *** IOCore.dpk 22 Feb 2005 07:58:18 -0000 1.3 --- IOCore.dpk 22 Feb 2005 14:25:18 -0000 1.4 *************** *** 46,50 **** InstantPresentation in '..\InstantPresentation.pas', InstantAccessors in '..\InstantAccessors.pas', ! InstantConnectionManager in '..\InstantConnectionManager.pas' {InstantConnectionManagerForm}, InstantImageUtils in '..\InstantImageUtils.pas', InstantPump in '..\InstantPump.pas'; --- 46,51 ---- InstantPresentation in '..\InstantPresentation.pas', InstantAccessors in '..\InstantAccessors.pas', ! InstantConnectionManagerForm in '..\InstantConnectionManagerForm.pas' {InstantConnectionManagerForm}, ! InstantConnectionManager in '..\InstantConnectionManager.pas', InstantImageUtils in '..\InstantImageUtils.pas', InstantPump in '..\InstantPump.pas'; |
|
From: Carlo B. <car...@us...> - 2005-02-22 14:25:56
|
Update of /cvsroot/instantobjects/Source/Core/D5 In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv10742/Source/Core/D5 Modified Files: IOCore.dpk Log Message: Extracted InstantConnectionManagerForm from InstantConnectionManager unit. See txt files for details Index: IOCore.dpk =================================================================== RCS file: /cvsroot/instantobjects/Source/Core/D5/IOCore.dpk,v retrieving revision 1.1 retrieving revision 1.2 diff -C2 -d -r1.1 -r1.2 *** IOCore.dpk 10 Feb 2005 22:57:34 -0000 1.1 --- IOCore.dpk 22 Feb 2005 14:25:17 -0000 1.2 *************** *** 45,49 **** InstantPresentation in '..\InstantPresentation.pas', InstantAccessors in '..\InstantAccessors.pas', ! InstantConnectionManager in '..\InstantConnectionManager.pas' {InstantConnectionManagerForm}, InstantImageUtils in '..\InstantImageUtils.pas', InstantPump in '..\InstantPump.pas'; --- 45,50 ---- InstantPresentation in '..\InstantPresentation.pas', InstantAccessors in '..\InstantAccessors.pas', ! InstantConnectionManagerForm in '..\InstantConnectionManagerForm.pas' {InstantConnectionManagerForm}, ! InstantConnectionManager in '..\InstantConnectionManager.pas', InstantImageUtils in '..\InstantImageUtils.pas', InstantPump in '..\InstantPump.pas'; |
|
From: Carlo B. <car...@us...> - 2005-02-22 14:25:28
|
Update of /cvsroot/instantobjects/Docs In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv10742/Docs Added Files: InstantConnectionManagerForm.txt Log Message: Extracted InstantConnectionManagerForm from InstantConnectionManager unit. See txt files for details --- NEW FILE: InstantConnectionManagerForm.txt --- New InstantConnectionManager and InstantConnectionManagerForm ------------------------------------------------------------- TInstantConnectionManagerForm was extracted from InstantConnectionManager.pas unit so the TInstantConnectionManager component is Forms independent. Now the InstantConnectionManager.Execute method launch a procedure registered by a calling to RegisterConnectionManagerExecutor. In the initialization section of InstantConnectionManagerForm.pas unit this procedure is called automatically. Know problems and backward compatibility ---------------------------------------- for applications that uses the default manager (like the Primer demo) you must add InstantConnectionManagerForm in a uses section. More flexibility ---------------- Now is possible to use a different form for a ConnectionManager component. Build a new form and register it by RegisterConnectionManagerExecutor. |
|
From: Carlo B. <car...@us...> - 2005-02-22 14:25:28
|
Update of /cvsroot/instantobjects/Source/Core/K3 In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv10742/Source/Core/K3 Modified Files: IOCore.dpk Log Message: Extracted InstantConnectionManagerForm from InstantConnectionManager unit. See txt files for details Index: IOCore.dpk =================================================================== RCS file: /cvsroot/instantobjects/Source/Core/K3/IOCore.dpk,v retrieving revision 1.2 retrieving revision 1.3 diff -C2 -d -r1.2 -r1.3 *** IOCore.dpk 22 Feb 2005 07:59:58 -0000 1.2 --- IOCore.dpk 22 Feb 2005 14:25:19 -0000 1.3 *************** *** 47,51 **** InstantPresentation in '../InstantPresentation.pas', InstantAccessors in '../InstantAccessors.pas', ! InstantConnectionManager in '../InstantConnectionManager.pas' {InstantConnectionManagerForm}, InstantImageUtils in '../InstantImageUtils.pas', InstantPump in '../InstantPump.pas'; --- 47,52 ---- InstantPresentation in '../InstantPresentation.pas', InstantAccessors in '../InstantAccessors.pas', ! InstantConnectionManagerForm in '..\InstantConnectionManagerForm.pas' {InstantConnectionManagerForm}, ! InstantConnectionManager in '..\InstantConnectionManager.pas', InstantImageUtils in '../InstantImageUtils.pas', InstantPump in '../InstantPump.pas'; |
