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: Andrea P. <and...@us...> - 2004-10-11 08:00:03
|
Update of /cvsroot/instantobjects/Source/Brokers/UIB/D7 In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv13975/D7 Log Message: Directory /cvsroot/instantobjects/Source/Brokers/UIB/D7 added to the repository |
|
From: Andrea P. <and...@us...> - 2004-10-11 07:59:47
|
Update of /cvsroot/instantobjects/Source/Brokers/UIB In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv13929/UIB Log Message: Directory /cvsroot/instantobjects/Source/Brokers/UIB added to the repository |
|
From: Andrea P. <and...@us...> - 2004-10-11 07:47:51
|
Update of /cvsroot/instantobjects/Source/Core In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv11729/Core Modified Files: InstantPersistence.pas Log Message: Bug on TInstantSQLResolver.AddAttributeParams Index: InstantPersistence.pas =================================================================== RCS file: /cvsroot/instantobjects/Source/Core/InstantPersistence.pas,v retrieving revision 1.12 retrieving revision 1.13 diff -C2 -d -r1.12 -r1.13 *** InstantPersistence.pas 30 Sep 2004 17:49:56 -0000 1.12 --- InstantPersistence.pas 11 Oct 2004 07:47:32 -0000 1.13 *************** *** 12938,12945 **** var I: Integer; begin if Assigned(Params) and Assigned(AObject) and Assigned(Map) then for I := 0 to Pred(Map.Count) do ! AddAttributeParam(AObject.AttributeByName(Map[I].Name), Params); end; --- 12938,12950 ---- var I: Integer; + Attribute: TInstantAttribute; begin if Assigned(Params) and Assigned(AObject) and Assigned(Map) then for I := 0 to Pred(Map.Count) do ! begin ! Attribute := AObject.AttributeByName(Map[I].Name); ! if Attribute.Metadata.IsExternal = ceNo then ! AddAttributeParam(Attribute, Params); ! end; end; |
|
From: Carlo B. <car...@us...> - 2004-10-01 16:09:23
|
Update of /cvsroot/instantobjects/Source/Core In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv5431/Source/Core Modified Files: InstantConnectionManager.pas InstantPresentation.pas Log Message: TInstantCustomExposer.writeproperty now is virtual - DoBuild method of ConnectionManager now is public Index: InstantPresentation.pas =================================================================== RCS file: /cvsroot/instantobjects/Source/Core/InstantPresentation.pas,v retrieving revision 1.6 retrieving revision 1.7 diff -C2 -d -r1.6 -r1.7 *** InstantPresentation.pas 16 Sep 2004 11:47:51 -0000 1.6 --- InstantPresentation.pas 1 Oct 2004 16:09:13 -0000 1.7 *************** *** 374,378 **** procedure Undo; virtual; procedure UpdateCalcFields; ! procedure WriteProperty(Field: TField; Instance: TObject; Value: Variant); function BreakThorough( const FieldName : string ) : boolean; virtual; property Accessor: TInstantAccessor read GetAccessor; --- 374,378 ---- procedure Undo; virtual; procedure UpdateCalcFields; ! procedure WriteProperty(Field: TField; Instance: TObject; Value: Variant); virtual; function BreakThorough( const FieldName : string ) : boolean; virtual; property Accessor: TInstantAccessor read GetAccessor; Index: InstantConnectionManager.pas =================================================================== RCS file: /cvsroot/instantobjects/Source/Core/InstantConnectionManager.pas,v retrieving revision 1.5 retrieving revision 1.6 diff -C2 -d -r1.5 -r1.6 *** InstantConnectionManager.pas 4 Aug 2004 22:43:39 -0000 1.5 --- InstantConnectionManager.pas 1 Oct 2004 16:09:13 -0000 1.6 *************** *** 148,152 **** procedure Disconnect(ConnectionDef: TInstantConnectionDef); function Edit(ConnectionDef: TInstantConnectionDef): Boolean; - function DoBuild(ConnectionDef: TInstantConnectionDef): Boolean; virtual; function DoConnect(ConnectionDef: TInstantConnectionDef): Boolean; virtual; function DoDisconnect(ConnectionDef: TInstantConnectionDef): Boolean; virtual; --- 148,151 ---- *************** *** 158,161 **** --- 157,161 ---- property ConnectionDefs: TInstantConnectionDefs read GetConnectionDefs; public + function DoBuild(ConnectionDef: TInstantConnectionDef): Boolean; virtual; property CurrentConnectionDef: TInstantConnectionDef read GetCurrentConnectionDef write SetCurrentConnectionDef; property FileName: string read GetFileName write SetFileName; |
|
From: Carlo B. <car...@us...> - 2004-10-01 16:09:23
|
Update of /cvsroot/instantobjects/Demos/PrimerCross/Pictures In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv5431/Demos/PrimerCross/Pictures Added Files: Thumbs.db Log Message: TInstantCustomExposer.writeproperty now is virtual - DoBuild method of ConnectionManager now is public --- NEW FILE: Thumbs.db --- (This appears to be a binary file; contents omitted.) |
|
From: Carlo B. <car...@us...> - 2004-10-01 16:09:22
|
Update of /cvsroot/instantobjects/Source/Brokers/XML In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv5431/Source/Brokers/XML Modified Files: InstantXML.pas Log Message: TInstantCustomExposer.writeproperty now is virtual - DoBuild method of ConnectionManager now is public Index: InstantXML.pas =================================================================== RCS file: /cvsroot/instantobjects/Source/Brokers/XML/InstantXML.pas,v retrieving revision 1.1 retrieving revision 1.2 diff -C2 -d -r1.1 -r1.2 *** InstantXML.pas 20 Jul 2004 16:39:09 -0000 1.1 --- InstantXML.pas 1 Oct 2004 16:09:13 -0000 1.2 *************** *** 827,830 **** --- 827,831 ---- FFileListAccessor := TStringList.Create; try + Connector.Connection.Open; Connector.Connection.LoadFileList (FFileListAccessor, StorageName); InitObjectReferences(FFileListAccessor); |
|
From: Carlo B. <car...@us...> - 2004-10-01 16:09:22
|
Update of /cvsroot/instantobjects/Source/Brokers/IBX In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv5431/Source/Brokers/IBX Modified Files: InstantIBXConnectionDefEdit.pas Log Message: TInstantCustomExposer.writeproperty now is virtual - DoBuild method of ConnectionManager now is public Index: InstantIBXConnectionDefEdit.pas =================================================================== RCS file: /cvsroot/instantobjects/Source/Brokers/IBX/InstantIBXConnectionDefEdit.pas,v retrieving revision 1.3 retrieving revision 1.4 diff -C2 -d -r1.3 -r1.4 *** InstantIBXConnectionDefEdit.pas 16 Sep 2004 11:37:33 -0000 1.3 --- InstantIBXConnectionDefEdit.pas 1 Oct 2004 16:09:11 -0000 1.4 *************** *** 157,161 **** Options := []; if UseDelimitedIdentsCheckBox.Checked then ! Options := Options + [ibxUseDelimitedIdents]; LoginPrompt := LoginPromptCheckBox.Checked; ConnectionDef.Params := ParamsEditor.Lines.Text; --- 157,163 ---- Options := []; if UseDelimitedIdentsCheckBox.Checked then ! Options := Options + [ibxUseDelimitedIdents] ! else ! Options := Options - [ibxUseDelimitedIdents]; LoginPrompt := LoginPromptCheckBox.Checked; ConnectionDef.Params := ParamsEditor.Lines.Text; |
|
From: Nando D. <na...@us...> - 2004-09-30 17:50:06
|
Update of /cvsroot/instantobjects/Source/Core In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv16322/Core Modified Files: InstantPersistence.pas Log Message: Fixed dangling reference count when reading external Part objects Index: InstantPersistence.pas =================================================================== RCS file: /cvsroot/instantobjects/Source/Core/InstantPersistence.pas,v retrieving revision 1.11 retrieving revision 1.12 diff -C2 -d -r1.11 -r1.12 *** InstantPersistence.pas 30 Sep 2004 15:26:39 -0000 1.11 --- InstantPersistence.pas 30 Sep 2004 17:49:56 -0000 1.12 *************** *** 14077,14084 **** Open; try if not IsEmpty then ! Value := AttributeMetadata.ObjectClass.Retrieve(Fields[1].AsString, False, False, AObject.Connector) ! else ! Value := nil; finally Close; --- 14077,14083 ---- Open; try + Value := nil; if not IsEmpty then ! Value := AttributeMetadata.ObjectClass.Retrieve(Fields[1].AsString, False, False, AObject.Connector); finally Close; *************** *** 14108,14115 **** Open; try if not IsEmpty then ! Value := AttributeMetadata.ObjectClass.Retrieve(Fields[1].AsString, False, False, AObject.Connector) ! else ! Value := nil; finally Close; --- 14107,14113 ---- Open; try + Value := nil; if not IsEmpty then ! Value := AttributeMetadata.ObjectClass.Retrieve(Fields[1].AsString, False, False, AObject.Connector); finally Close; |
|
From: Nando D. <na...@us...> - 2004-09-30 15:28:11
|
Update of /cvsroot/instantobjects/Source/Core In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv20710/Core Modified Files: InstantCode.pas Log Message: Added support for externalstored and externallinked to TPart; mixed reformatting and cosmetic changes Index: InstantCode.pas =================================================================== RCS file: /cvsroot/instantobjects/Source/Core/InstantCode.pas,v retrieving revision 1.4 retrieving revision 1.5 diff -C2 -d -r1.4 -r1.5 *** InstantCode.pas 10 Sep 2004 10:16:59 -0000 1.4 --- InstantCode.pas 30 Sep 2004 15:27:54 -0000 1.5 *************** *** 26,30 **** * Contributor(s): * Carlo Barazzetta, Adrea Petrelli: porting Kylix ! * * ***** END LICENSE BLOCK ***** *) --- 26,31 ---- * Contributor(s): * Carlo Barazzetta, Adrea Petrelli: porting Kylix ! * Nando Dessena, Andrea Petrelli: ! * - ExternalPart, ExternalParts and ExternalReferences support * ***** END LICENSE BLOCK ***** *) *************** *** 1516,1519 **** --- 1517,1525 ---- end; + TPartTypeProcessor = class(TObjectTypeProcessor) + protected + procedure InternalRead; override; + end; + const {$IFDEF MSWINDOWS} *************** *** 1602,1606 **** AddObject('Memo', TStringTypeProcessor.Create); AddObject('DateTime', TDateTimeTypeProcessor.Create); ! AddObject('Part', TObjectTypeProcessor.Create); AddObject('Reference', TObjectTypeProcessor.Create); AddObject('Parts', TContainerTypeProcessor.Create); --- 1608,1612 ---- AddObject('Memo', TStringTypeProcessor.Create); AddObject('DateTime', TDateTimeTypeProcessor.Create); ! AddObject('Part', TPartTypeProcessor.Create); AddObject('Reference', TObjectTypeProcessor.Create); AddObject('Parts', TContainerTypeProcessor.Create); *************** *** 1768,1775 **** procedure TContainerTypeProcessor.InternalRead; var ! Token:String; begin inherited; with FReader do while not Finished do begin --- 1774,1782 ---- procedure TContainerTypeProcessor.InternalRead; var ! Token: string; begin inherited; with FReader do + begin while not Finished do begin *************** *** 1777,1794 **** if NextChar = ';' then Break; ! Token:=ReadToken; ! if SameText(Token, 'default') 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; end; --- 1784,1802 ---- if NextChar = ';' then Break; ! Token := ReadToken; ! 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; + end; end; *************** *** 3163,3167 **** begin Token := LowerCase(Reader.ReadToken); ! if Token = 'index' then Reader.ReadToken else if Token = 'read' then --- 3171,3175 ---- begin Token := LowerCase(Reader.ReadToken); ! if Token = MetaKeyIndex then Reader.ReadToken else if Token = 'read' then *************** *** 3169,3175 **** else if Token = 'write' then SetterName := Reader.ReadToken ! else if Token = 'default' then DefaultValue := Reader.ReadRestOfStatement ! else if Token = 'stored' then Stored := Reader.ReadToken else if Token = ';' then --- 3177,3183 ---- else if Token = 'write' then SetterName := Reader.ReadToken ! else if Token = MetaKeyDefault then DefaultValue := Reader.ReadRestOfStatement ! else if Token = MetaKeyStored then Stored := Reader.ReadToken else if Token = ';' then *************** *** 3177,3181 **** end; SavePos := Reader.Position; ! IsDefault := SameText(Reader.ReadToken, 'default'); if IsDefault then Reader.ReadEndOfStatement(True) --- 3185,3189 ---- end; SavePos := Reader.Position; ! IsDefault := SameText(Reader.ReadToken, MetaKeyDefault); if IsDefault then Reader.ReadEndOfStatement(True) *************** *** 8505,8508 **** --- 8513,8545 ---- end; + { TPartTypeProcessor } + + procedure TPartTypeProcessor.InternalRead; + var + Token: string; + begin + inherited; + with FReader do + begin + while not Finished do + begin + SkipSpace; + if NextChar = ';' then + Break; + Token := ReadToken; + 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; + end; + end; + initialization CreateTypeProcessors; |
|
From: Nando D. <na...@us...> - 2004-09-30 15:26:49
|
Update of /cvsroot/instantobjects/Source/Core In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv20390/Core Modified Files: InstantPersistence.pas Log Message: Added support for externalstored and externallinked to TPart; fixed bug in TInstantReferences.Assign which caused the Value of the *source* object to be cleared, changed TInstantObject.Clone in order to allow cloning external parts objects; mixed reformatting Index: InstantPersistence.pas =================================================================== RCS file: /cvsroot/instantobjects/Source/Core/InstantPersistence.pas,v retrieving revision 1.10 retrieving revision 1.11 diff -C2 -d -r1.10 -r1.11 *** InstantPersistence.pas 16 Sep 2004 11:47:03 -0000 1.10 --- InstantPersistence.pas 30 Sep 2004 15:26:39 -0000 1.11 *************** *** 34,38 **** * - LoginPrompt support in Connections based on TCustomConnection * Nando Dessena, Andrea Petrelli: ! * - ExternalParts and ExternalReferences support * Nando Dessena: * - Added OnGenerateId event as a primitive form of ID Factory. --- 34,38 ---- * - LoginPrompt support in Connections based on TCustomConnection * Nando Dessena, Andrea Petrelli: ! * - ExternalPart, ExternalParts and ExternalReferences support * Nando Dessena: [...1233 lines suppressed...] --- 14302,14306 ---- while not Eof do begin ! RefObject := TInstantObjectReference.Create(nil, True); RefObject.ReferenceObject(Metadata.ObjectClass, Fields[1].AsString); (Attribute as TInstantReferences).ObjectReferenceList.Add(RefObject); *************** *** 14022,14025 **** --- 14455,14465 ---- end; + function TInstantSQLResolver.GetInsertExternalPartSQL: string; + begin + if FInsertExternalPartSQL = '' then + FInsertExternalPartSQL := Broker.Generator.GenerateInsertExternalPartSQL(Map); + Result := FInsertExternalPartSQL; + end; + { TInstantSQLQuery } |
|
From: Nando D. <na...@us...> - 2004-09-30 14:45:20
|
Update of /cvsroot/instantobjects/Source/Design In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv11771/Design Modified Files: InstantAttributeEditor.pas Log Message: Added support for externalstored and externallinked for TPart Index: InstantAttributeEditor.pas =================================================================== RCS file: /cvsroot/instantobjects/Source/Design/InstantAttributeEditor.pas,v retrieving revision 1.5 retrieving revision 1.6 diff -C2 -d -r1.5 -r1.6 *** InstantAttributeEditor.pas 10 Sep 2004 10:27:39 -0000 1.5 --- InstantAttributeEditor.pas 30 Sep 2004 14:45:09 -0000 1.6 *************** *** 460,469 **** var HasName, HasClass, HasExternalStoredName, HasExternalLinkedName: Boolean; ! IsComplex, IsContainer, IsExternal, IsMaskable, IsString, IsValid: Boolean; begin ! if (Subject.AttributeType<>atParts) and (Subject.AttributeType<>atReferences) then Subject.IsExternal := ceNo; ! if Subject.IsExternal = ceLinked then Subject.ExternalStoredName := ''; ! if Subject.IsExternal = ceStored then Subject.ExternalLinkedName := ''; HasName := NameEdit.Text <> ''; --- 460,472 ---- var HasName, HasClass, HasExternalStoredName, 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 then ! Subject.ExternalStoredName := ''; ! if Subject.IsExternal = ceStored then ! Subject.ExternalLinkedName := ''; HasName := NameEdit.Text <> ''; *************** *** 478,482 **** IsString := Subject.AttributeType in [atString, atMemo]; IsValid := HasName and (not IsComplex or HasClass) and ! (not IsExternal or (HasExternalStoredName or HasExternalLinkedName) ); DisableSubControls(DefinitionSheet, Limited); --- 481,485 ---- IsString := Subject.AttributeType in [atString, atMemo]; IsValid := HasName and (not IsComplex or HasClass) and ! (not IsExternal or (HasExternalStoredName or HasExternalLinkedName)); DisableSubControls(DefinitionSheet, Limited); *************** *** 496,510 **** EnableCtrl(MethodInsertCheckBox, IsContainer); EnableCtrl(MethodRemoveCheckBox, IsContainer); ! ! EnableCtrl(IsExternalEdit, IsContainer); ! EnableCtrl(IsExternalLabel, IsContainer); end; ! EnableCtrl(StorageNameLabel, not (IsContainer and IsExternal) ); ! EnableCtrl(StorageNameEdit, not (IsContainer and IsExternal) ); ! EnableCtrl(ExternalLinkedNameLabel, IsContainer and (Subject.IsExternal=ceLinked) ); ! EnableCtrl(ExternalLinkedNameEdit, IsContainer and (Subject.IsExternal=ceLinked) ); ! EnableCtrl(ExternalStoredNameLabel, IsContainer and (Subject.IsExternal=ceStored) ); ! EnableCtrl(ExternalStoredNameEdit, IsContainer and (Subject.IsExternal=ceStored) ); EnableCtrl(SizeLabel, IsString); --- 499,512 ---- EnableCtrl(MethodInsertCheckBox, IsContainer); EnableCtrl(MethodRemoveCheckBox, IsContainer); ! EnableCtrl(IsExternalEdit, CanBeExternal); ! EnableCtrl(IsExternalLabel, CanBeExternal); end; ! EnableCtrl(StorageNameLabel, not IsExternal); ! EnableCtrl(StorageNameEdit, not IsExternal); ! EnableCtrl(ExternalLinkedNameLabel, IsExternal and (Subject.IsExternal = ceLinked)); ! EnableCtrl(ExternalLinkedNameEdit, IsExternal and (Subject.IsExternal = ceLinked)); ! EnableCtrl(ExternalStoredNameLabel, IsExternal and (Subject.IsExternal = ceStored)); ! EnableCtrl(ExternalStoredNameEdit, IsExternal and (Subject.IsExternal = ceStored)); EnableCtrl(SizeLabel, IsString); |
|
From: Nando D. <na...@us...> - 2004-09-16 11:48:00
|
Update of /cvsroot/instantobjects/Source/Core In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv7512/Core Modified Files: InstantPresentation.pas Log Message: Fixed Range Check Error in TInstantCustomExposer.LoadFieldValue Index: InstantPresentation.pas =================================================================== RCS file: /cvsroot/instantobjects/Source/Core/InstantPresentation.pas,v retrieving revision 1.5 retrieving revision 1.6 diff -C2 -d -r1.5 -r1.6 *** InstantPresentation.pas 10 Sep 2004 10:13:04 -0000 1.5 --- InstantPresentation.pas 16 Sep 2004 11:47:51 -0000 1.6 *************** *** 32,35 **** --- 32,37 ---- * Andrea Petrelli: * - Added OnProgress event on TInstantSelector + * Nando Dessena: + * - Fixed Range Check Error in TInstantCustomExposer.LoadFieldValue * ***** END LICENSE BLOCK ***** *) *************** *** 2954,2958 **** if Len >= Field.DataSize then Len := Pred(Field.DataSize); ! Move(S[1], Buffer^, Len); end; end; --- 2956,2961 ---- if Len >= Field.DataSize then Len := Pred(Field.DataSize); ! if Len > 0 then ! Move(S[1], Buffer^, Len); end; end; |
|
From: Nando D. <na...@us...> - 2004-09-16 11:47:13
|
Update of /cvsroot/instantobjects/Source/Core In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv7362/Core Modified Files: InstantPersistence.pas Log Message: Support for changing the data type used for ID fields; fixed Range Check Error in TInstantAttribute.GetIsDefault; added explicit ordering to externalstored collections; assorted fixes and a bit of reformatting. Index: InstantPersistence.pas =================================================================== RCS file: /cvsroot/instantobjects/Source/Core/InstantPersistence.pas,v retrieving revision 1.9 retrieving revision 1.10 diff -C2 -d -r1.9 -r1.10 *** InstantPersistence.pas 12 Sep 2004 11:17:33 -0000 1.9 --- InstantPersistence.pas 16 Sep 2004 11:47:03 -0000 1.10 *************** *** 35,38 **** --- 35,43 ---- * Nando Dessena, Andrea Petrelli: * - ExternalParts and ExternalReferences support + * Nando Dessena: + * - Added OnGenerateId event as a primitive form of ID Factory. + * - Support for changing the data type used for ID fields. + * - Fixed Range Check Error in TInstantAttribute.GetIsDefault. + * - Added explicit ordering to externalstored collections. * ***** END LICENSE BLOCK ***** *) [...1311 lines suppressed...] ! Params := TParams.Create; try Statement:=Format(SelectExternalStoredSQL, [AttributeMetadata.ExternalStoredName]); ! AddIdParam(Params, InstantParentIdFieldName, AObjectId); AddStringParam(Params, InstantParentClassFieldName, AObject.ClassName); AddStringParam(Params, InstantParentAttributeFieldName, Attribute.Name); *************** *** 13791,13795 **** Changed; end; ! end else begin Stream := TInstantStringStream.Create(ReadBlobField(DataSet, AFieldName)); --- 13885,13890 ---- Changed; end; ! end ! else begin Stream := TInstantStringStream.Create(ReadBlobField(DataSet, AFieldName)); |
|
From: Nando D. <na...@us...> - 2004-09-16 11:42:12
|
Update of /cvsroot/instantobjects/Source/Core In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv6520/Core Modified Files: InstantConsts.pas Log Message: Added explicit ordering to externalstored collections; support for changing the data type and size used for ID fields Index: InstantConsts.pas =================================================================== RCS file: /cvsroot/instantobjects/Source/Core/InstantConsts.pas,v retrieving revision 1.4 retrieving revision 1.5 diff -C2 -d -r1.4 -r1.5 *** InstantConsts.pas 10 Sep 2004 10:16:59 -0000 1.4 --- InstantConsts.pas 16 Sep 2004 11:42:01 -0000 1.5 *************** *** 25,29 **** * * Contributor(s): Nando Dessena ! * * ***** END LICENSE BLOCK ***** *) --- 25,29 ---- * * Contributor(s): Nando Dessena ! * - Added explicit ordering to externalstored collections. * ***** END LICENSE BLOCK ***** *) *************** *** 61,64 **** --- 61,65 ---- InstantParentAttributeFieldName = 'ParentAttribute'; InstantChildIdFieldName = 'ChildId'; + InstantSequenceNoFieldName = 'SequenceNo'; InstantChildClassFieldName = 'ChildClass'; *************** *** 149,152 **** --- 150,154 ---- SUnknownAttributeClass = 'Unknown attribute class for attribute %s(''%s'')'; SUnspecifiedCommand = 'Command is not specified'; + SUnsupportedDataType = 'Unsupported datatype: %s'; SUnsupportedType = 'Unsupported type: %s'; SUpdateConflict = 'Object %s(''%s'') was updated by another session'; |
|
From: Nando D. <na...@us...> - 2004-09-16 11:38:49
|
Update of /cvsroot/instantobjects/Source/Brokers/Template In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv5875/Brokers/Template Modified Files: InstantXXX.pas Log Message: Fixed inherited call chain in InternalBuildDatabase Index: InstantXXX.pas =================================================================== RCS file: /cvsroot/instantobjects/Source/Brokers/Template/InstantXXX.pas,v retrieving revision 1.2 retrieving revision 1.3 diff -C2 -d -r1.2 -r1.3 *** InstantXXX.pas 29 Jul 2004 20:43:14 -0000 1.2 --- InstantXXX.pas 16 Sep 2004 11:38:36 -0000 1.3 *************** *** 163,167 **** procedure TInstantXXXConnector.InternalBuildDatabase(Scheme: TInstantScheme); begin ! Scheme.BlobStreamFormat := BlobStreamFormat; //CB { TODO: Build database from Scheme } end; --- 163,167 ---- procedure TInstantXXXConnector.InternalBuildDatabase(Scheme: TInstantScheme); begin ! inherited; { TODO: Build database from Scheme } end; |
|
From: Nando D. <na...@us...> - 2004-09-16 11:38:18
|
Update of /cvsroot/instantobjects/Source/Brokers/NexusDb In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv5797/Brokers/NexusDb Modified Files: InstantNexusDb.pas Log Message: Fixed inherited call chain in InternalBuildDatabase Index: InstantNexusDb.pas =================================================================== RCS file: /cvsroot/instantobjects/Source/Brokers/NexusDb/InstantNexusDb.pas,v retrieving revision 1.3 retrieving revision 1.4 diff -C2 -d -r1.3 -r1.4 *** InstantNexusDb.pas 6 Aug 2004 14:47:47 -0000 1.3 --- InstantNexusDb.pas 16 Sep 2004 11:38:08 -0000 1.4 *************** *** 355,362 **** I: Integer; begin /// CodeSite.SendMsg('internal build db'); if not Assigned(Scheme) then Exit; - Scheme.BlobStreamFormat := BlobStreamFormat; //CB with Scheme do for I := 0 to Pred(TableMetadataCount) do --- 355,362 ---- I: Integer; begin + inherited; /// CodeSite.SendMsg('internal build db'); if not Assigned(Scheme) then Exit; with Scheme do for I := 0 to Pred(TableMetadataCount) do |
|
From: Nando D. <na...@us...> - 2004-09-16 11:37:43
|
Update of /cvsroot/instantobjects/Source/Brokers/IBX In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv5636/Brokers/IBX Modified Files: InstantIBXConnectionDefEdit.dfm InstantIBXConnectionDefEdit.pas Log Message: Support for changing the data type and size used for ID fields. Index: InstantIBXConnectionDefEdit.dfm =================================================================== RCS file: /cvsroot/instantobjects/Source/Brokers/IBX/InstantIBXConnectionDefEdit.dfm,v retrieving revision 1.2 retrieving revision 1.3 diff -C2 -d -r1.2 -r1.3 *** InstantIBXConnectionDefEdit.dfm 29 Jul 2004 20:43:14 -0000 1.2 --- InstantIBXConnectionDefEdit.dfm 16 Sep 2004 11:37:33 -0000 1.3 *************** *** 4,8 **** BorderStyle = bsDialog Caption = 'InterBase Connection' ! ClientHeight = 393 ClientWidth = 362 Color = clBtnFace --- 4,8 ---- BorderStyle = bsDialog Caption = 'InterBase Connection' ! ClientHeight = 399 ClientWidth = 362 Color = clBtnFace *************** *** 19,23 **** object BottomBevel: TBevel Left = 0 ! Top = 356 Width = 362 Height = 2 --- 19,23 ---- object BottomBevel: TBevel Left = 0 ! Top = 362 Width = 362 Height = 2 *************** *** 29,33 **** Top = 0 Width = 362 ! Height = 356 Align = alClient BevelOuter = bvNone --- 29,33 ---- Top = 0 Width = 362 ! Height = 362 Align = alClient BevelOuter = bvNone *************** *** 59,63 **** object StreamFormatLabel: TLabel Left = 16 ! Top = 310 Width = 53 Height = 13 --- 59,63 ---- object StreamFormatLabel: TLabel Left = 16 ! Top = 312 Width = 53 Height = 13 *************** *** 73,76 **** --- 73,92 ---- FocusControl = ParamsEditor end + object Label1: TLabel + Left = 136 + Top = 312 + Width = 62 + Height = 13 + Caption = 'Id Data Type' + FocusControl = IdDataTypeComboBox + end + object Label2: TLabel + Left = 256 + Top = 312 + Width = 32 + Height = 13 + Caption = 'Id Size' + FocusControl = IdDataTypeComboBox + end object LocalRadioButton: TRadioButton Left = 16 *************** *** 131,136 **** object StreamFormatComboBox: TComboBox Left = 16 ! Top = 326 ! Width = 150 Height = 21 Style = csDropDownList --- 147,152 ---- object StreamFormatComboBox: TComboBox Left = 16 ! Top = 328 ! Width = 113 Height = 21 Style = csDropDownList *************** *** 162,169 **** TabOrder = 8 end end object BottomPanel: TPanel Left = 0 ! Top = 358 Width = 362 Height = 35 --- 178,201 ---- TabOrder = 8 end + object IdDataTypeComboBox: TComboBox + Left = 136 + Top = 328 + Width = 113 + Height = 21 + Style = csDropDownList + ItemHeight = 13 + TabOrder = 10 + end + object IdSizeEdit: TEdit + Left = 256 + Top = 328 + Width = 89 + Height = 21 + TabOrder = 11 + end end object BottomPanel: TPanel Left = 0 ! Top = 364 Width = 362 Height = 35 *************** *** 171,174 **** --- 203,209 ---- BevelOuter = bvNone TabOrder = 1 + DesignSize = ( + 362 + 35) object OkButton: TButton Left = 204 Index: InstantIBXConnectionDefEdit.pas =================================================================== RCS file: /cvsroot/instantobjects/Source/Brokers/IBX/InstantIBXConnectionDefEdit.pas,v retrieving revision 1.2 retrieving revision 1.3 diff -C2 -d -r1.2 -r1.3 *** InstantIBXConnectionDefEdit.pas 29 Jul 2004 20:43:14 -0000 1.2 --- InstantIBXConnectionDefEdit.pas 16 Sep 2004 11:37:33 -0000 1.3 *************** *** 26,30 **** * Contributor(s): * Carlo Barazzetta: blob streaming in XML format (Part, Parts, References) ! * * ***** END LICENSE BLOCK ***** *) --- 26,31 ---- * Contributor(s): * Carlo Barazzetta: blob streaming in XML format (Part, Parts, References) ! * Nando Dessena: ! * - Support for changing the data type used for ID fields. * ***** END LICENSE BLOCK ***** *) *************** *** 59,62 **** --- 60,67 ---- ParamsLabel: TLabel; ParamsEditor: TMemo; + IdDataTypeComboBox: TComboBox; + Label1: TLabel; + IdSizeEdit: TEdit; + Label2: TLabel; procedure LocalRemoteChange(Sender: TObject); procedure DatabaseButtonClick(Sender: TObject); *************** *** 76,80 **** uses ! IB, InstantPersistence, InstantClasses; { TInstantIBXConnectionDefEditForm } --- 81,85 ---- uses ! IB, InstantPersistence, InstantClasses, InstantConsts; { TInstantIBXConnectionDefEditForm } *************** *** 98,102 **** procedure TInstantIBXConnectionDefEditForm.FormCreate(Sender: TObject); begin ! AssignInstantStreamFormat(StreamFormatComboBox.Items); //CB UpdateControls; end; --- 103,110 ---- procedure TInstantIBXConnectionDefEditForm.FormCreate(Sender: TObject); begin ! AssignInstantStreamFormat(StreamFormatComboBox.Items); ! AssignInstantDataTypeStrings(IdDataTypeComboBox.Items); ! IdDataTypeComboBox.ItemIndex := Ord(dtString); ! IdSizeEdit.Text := IntToStr(InstantDefaultFieldSize); UpdateControls; end; *************** *** 119,127 **** ServerEdit.Text := ServerName; DatabaseEdit.Text := Path; - //CB StreamFormatComboBox.ItemIndex := Ord(BlobStreamFormat); UseDelimitedIdentsCheckBox.Checked := ibxUseDelimitedIdents in Options; LoginPromptCheckBox.Checked := LoginPrompt; ParamsEditor.Lines.Text := ConnectionDef.Params; end; UpdateControls; --- 127,136 ---- ServerEdit.Text := ServerName; DatabaseEdit.Text := Path; StreamFormatComboBox.ItemIndex := Ord(BlobStreamFormat); UseDelimitedIdentsCheckBox.Checked := ibxUseDelimitedIdents in Options; LoginPromptCheckBox.Checked := LoginPrompt; ParamsEditor.Lines.Text := ConnectionDef.Params; + IdDataTypeComboBox.ItemIndex := Ord(IdDataType); + IdSizeEdit.Text := IntToStr(IdSize); end; UpdateControls; *************** *** 145,149 **** ServerName := ServerEdit.Text; Path := DatabaseEdit.Text; - //CB BlobStreamFormat := TInstantStreamFormat(StreamFormatComboBox.ItemIndex); Options := []; --- 154,157 ---- *************** *** 152,155 **** --- 160,165 ---- LoginPrompt := LoginPromptCheckBox.Checked; ConnectionDef.Params := ParamsEditor.Lines.Text; + IdDataType := TInstantDataType(IdDataTypeComboBox.ItemIndex); + IdSize := StrToInt(IdSizeEdit.Text); end; end; |
|
From: Nando D. <na...@us...> - 2004-09-16 11:36:20
|
Update of /cvsroot/instantobjects/Source/Brokers/IBX In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv5358/Brokers/IBX Modified Files: InstantIBX.pas Log Message: Fixed inherited call chain in InternalBuildDatabase; small cosmetic changes Index: InstantIBX.pas =================================================================== RCS file: /cvsroot/instantobjects/Source/Brokers/IBX/InstantIBX.pas,v retrieving revision 1.4 retrieving revision 1.5 diff -C2 -d -r1.4 -r1.5 *** InstantIBX.pas 15 Sep 2004 07:05:02 -0000 1.4 --- InstantIBX.pas 16 Sep 2004 11:36:06 -0000 1.5 *************** *** 113,117 **** property Options: TInstantIBXOptions read FOptions write FOptions default DefaultInstantIBXOptions; property OnLogin: TIBDatabaseLoginEvent read FOnLogin write FOnLogin; - property LoginPrompt; end; --- 113,116 ---- *************** *** 305,309 **** Scheme: TInstantScheme); begin - Scheme.BlobStreamFormat := BlobStreamFormat; StartTransaction; try --- 304,307 ---- *************** *** 345,358 **** // IBX's TIBDatabase.CreateDatabase is fatally flawed and so we have to // bypass it for the time being. ! with Connection do ! begin ! CheckInactive; ! db_handle := nil; ! tr_handle := nil; ! Call( GetGDSLibrary().isc_dsql_execute_immediate(StatusVector, @db_handle, @tr_handle, 0, ! PChar('create database ''' + DatabaseName + ''' user ''' + Params.Values['user_name'] + ''' password ''' + ! Params.Values['password'] + ''''), SQLDialect, nil), True); Disconnect; end; --- 343,357 ---- // IBX's TIBDatabase.CreateDatabase is fatally flawed and so we have to // bypass it for the time being. ! Connection.CheckInactive; ! db_handle := nil; ! tr_handle := nil; ! try ! Connection.Call( GetGDSLibrary().isc_dsql_execute_immediate(StatusVector, @db_handle, @tr_handle, 0, ! PChar('create database ''' + Connection.DatabaseName + ''' user ''' + ! Connection.Params.Values['user_name'] + ''' password ''' + ! Connection.Params.Values['password'] + ''''), Connection.SQLDialect, nil), True); + finally Disconnect; end; *************** *** 415,419 **** SQL.Text := AStatement; if Assigned(AParams) then ! AssignDataSetParams(Query,AParams); end; Result := Query; --- 414,418 ---- SQL.Text := AStatement; if Assigned(AParams) then ! AssignDataSetParams(Query, AParams); end; Result := Query; |
|
From: Nando D. <na...@us...> - 2004-09-16 11:33:46
|
Update of /cvsroot/instantobjects/Source/Brokers/FlashFiler In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv4822/Brokers/FlashFiler Modified Files: InstantFlashFiler.pas Log Message: Fixed inherited call chain in InternalBuildDatabase Index: InstantFlashFiler.pas =================================================================== RCS file: /cvsroot/instantobjects/Source/Brokers/FlashFiler/InstantFlashFiler.pas,v retrieving revision 1.2 retrieving revision 1.3 diff -C2 -d -r1.2 -r1.3 *** InstantFlashFiler.pas 29 Jul 2004 20:43:13 -0000 1.2 --- InstantFlashFiler.pas 16 Sep 2004 11:33:37 -0000 1.3 *************** *** 249,255 **** I: Integer; begin if not Assigned(Scheme) then Exit; - Scheme.BlobStreamFormat := BlobStreamFormat; //CB with Scheme do for I := 0 to Pred(TableMetadataCount) do --- 249,255 ---- I: Integer; begin + inherited; if not Assigned(Scheme) then Exit; with Scheme do for I := 0 to Pred(TableMetadataCount) do |
|
From: Nando D. <na...@us...> - 2004-09-16 11:33:06
|
Update of /cvsroot/instantobjects/Source/Brokers/DBX In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv4611/Brokers/DBX Modified Files: InstantDBX.pas Log Message: Fixed inherited call chain in InternalBuildDatabase Index: InstantDBX.pas =================================================================== RCS file: /cvsroot/instantobjects/Source/Brokers/DBX/InstantDBX.pas,v retrieving revision 1.2 retrieving revision 1.3 diff -C2 -d -r1.2 -r1.3 *** InstantDBX.pas 29 Jul 2004 20:43:13 -0000 1.2 --- InstantDBX.pas 16 Sep 2004 11:32:56 -0000 1.3 *************** *** 84,88 **** procedure InternalStartTransaction; override; function ParamByName(const AName: string): string; ! procedure InternalBuildDatabase(Scheme: TInstantScheme); override; //CB public class function ConnectionDefClass: TInstantConnectionDefClass; override; --- 84,88 ---- procedure InternalStartTransaction; override; function ParamByName(const AName: string): string; ! procedure InternalBuildDatabase(Scheme: TInstantScheme); override; public class function ConnectionDefClass: TInstantConnectionDefClass; override; *************** *** 255,262 **** end; ! procedure TInstantDBXConnector.InternalBuildDatabase( ! Scheme: TInstantScheme); begin - Scheme.BlobStreamFormat := BlobStreamFormat; //CB inherited; end; --- 255,260 ---- end; ! procedure TInstantDBXConnector.InternalBuildDatabase(Scheme: TInstantScheme); begin inherited; end; |
|
From: Nando D. <na...@us...> - 2004-09-16 11:32:01
|
Update of /cvsroot/instantobjects/Source/Brokers/DBISAM In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv4307/Brokers/DBISAM Modified Files: InstantDBISAM.pas Log Message: Fixed inherited call chain in InternalBuildDatabase Index: InstantDBISAM.pas =================================================================== RCS file: /cvsroot/instantobjects/Source/Brokers/DBISAM/InstantDBISAM.pas,v retrieving revision 1.2 retrieving revision 1.3 diff -C2 -d -r1.2 -r1.3 *** InstantDBISAM.pas 29 Jul 2004 20:43:13 -0000 1.2 --- InstantDBISAM.pas 16 Sep 2004 11:31:51 -0000 1.3 *************** *** 348,354 **** I: Integer; begin if not Assigned(Scheme) then Exit; - Scheme.BlobStreamFormat := BlobStreamFormat; //CB with Scheme do for I := 0 to Pred(TableMetadataCount) do --- 348,354 ---- I: Integer; begin + inherited; if not Assigned(Scheme) then Exit; with Scheme do for I := 0 to Pred(TableMetadataCount) do |
|
From: Nando D. <na...@us...> - 2004-09-16 11:30:58
|
Update of /cvsroot/instantobjects/Source/Brokers/BDE In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv4135/Brokers/BDE Modified Files: InstantBDE.pas Log Message: Fixed inherited call chain in InternalBuildDatabase Index: InstantBDE.pas =================================================================== RCS file: /cvsroot/instantobjects/Source/Brokers/BDE/InstantBDE.pas,v retrieving revision 1.2 retrieving revision 1.3 diff -C2 -d -r1.2 -r1.3 *** InstantBDE.pas 29 Jul 2004 20:43:13 -0000 1.2 --- InstantBDE.pas 16 Sep 2004 11:30:48 -0000 1.3 *************** *** 343,349 **** I: Integer; begin if not Assigned(Scheme) then Exit; - Scheme.BlobStreamFormat := BlobStreamFormat; //CB with Scheme do for I := 0 to Pred(TableMetadataCount) do --- 343,349 ---- I: Integer; begin + inherited; if not Assigned(Scheme) then Exit; with Scheme do for I := 0 to Pred(TableMetadataCount) do |
|
From: Nando D. <na...@us...> - 2004-09-16 11:30:15
|
Update of /cvsroot/instantobjects/Source/Brokers/ADS In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv3910/Brokers/ADS Modified Files: InstantADS.pas Log Message: Fixed inherited call chain in InternalBuildDatabase Index: InstantADS.pas =================================================================== RCS file: /cvsroot/instantobjects/Source/Brokers/ADS/InstantADS.pas,v retrieving revision 1.2 retrieving revision 1.3 diff -C2 -d -r1.2 -r1.3 *** InstantADS.pas 29 Jul 2004 20:43:12 -0000 1.2 --- InstantADS.pas 16 Sep 2004 11:30:01 -0000 1.3 *************** *** 332,338 **** I: Integer; begin if not Assigned(Scheme) then Exit; - Scheme.BlobStreamFormat := BlobStreamFormat; //CB with Scheme do for I := 0 to Pred(TableMetadataCount) do --- 332,338 ---- I: Integer; begin + inherited; if not Assigned(Scheme) then Exit; with Scheme do for I := 0 to Pred(TableMetadataCount) do |
|
From: Nando D. <na...@us...> - 2004-09-16 11:29:31
|
Update of /cvsroot/instantobjects/Source/Brokers/ADO In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv3802/Brokers/ADO Modified Files: InstantADO.pas Log Message: Fixed inherited call chain in InternalBuildDatabase Index: InstantADO.pas =================================================================== RCS file: /cvsroot/instantobjects/Source/Brokers/ADO/InstantADO.pas,v retrieving revision 1.4 retrieving revision 1.5 diff -C2 -d -r1.4 -r1.5 *** InstantADO.pas 23 Aug 2004 09:55:20 -0000 1.4 --- InstantADO.pas 16 Sep 2004 11:29:22 -0000 1.5 *************** *** 79,83 **** function GetDatabaseName: string; override; function GetDBMSName: string; override; ! procedure InternalBuildDatabase(Scheme: TInstantScheme); overload; override; procedure InternalCommitTransaction; override; procedure InternalCreateDatabase; override; --- 79,83 ---- function GetDatabaseName: string; override; function GetDBMSName: string; override; ! procedure InternalBuildDatabase(Scheme: TInstantScheme); override; procedure InternalCommitTransaction; override; procedure InternalCreateDatabase; override; *************** *** 621,626 **** BuildMethod: TInstantADOBuildMethod); begin - if Assigned(Scheme) then - Scheme.BlobStreamFormat := BlobStreamFormat; case BuildMethod of bmDefault: --- 621,624 ---- *************** *** 716,720 **** Scheme: TInstantScheme); begin ! Scheme.BlobStreamFormat := BlobStreamFormat; DoBuildDatabase(Scheme, bmDefault); end; --- 714,718 ---- Scheme: TInstantScheme); begin ! inherited; DoBuildDatabase(Scheme, bmDefault); end; |
|
From: Nando D. <na...@us...> - 2004-09-15 07:05:10
|
Update of /cvsroot/instantobjects/Source/Brokers/IBX In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv30423/Brokers/IBX Modified Files: InstantIBX.pas Log Message: TInstantIBXConnector.LoginPrompt was unpublished by mistake Index: InstantIBX.pas =================================================================== RCS file: /cvsroot/instantobjects/Source/Brokers/IBX/InstantIBX.pas,v retrieving revision 1.3 retrieving revision 1.4 diff -C2 -d -r1.3 -r1.4 *** InstantIBX.pas 5 Aug 2004 12:37:26 -0000 1.3 --- InstantIBX.pas 15 Sep 2004 07:05:02 -0000 1.4 *************** *** 113,116 **** --- 113,117 ---- property Options: TInstantIBXOptions read FOptions write FOptions default DefaultInstantIBXOptions; property OnLogin: TIBDatabaseLoginEvent read FOnLogin write FOnLogin; + property LoginPrompt; end; |
