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-09-12 11:17:43
|
Update of /cvsroot/instantobjects/Source/Core In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv8543 Modified Files: InstantPersistence.pas Log Message: Bugs fixing : External TParts and External TReferences Index: InstantPersistence.pas =================================================================== RCS file: /cvsroot/instantobjects/Source/Core/InstantPersistence.pas,v retrieving revision 1.8 retrieving revision 1.9 diff -C2 -d -r1.8 -r1.9 *** InstantPersistence.pas 10 Sep 2004 10:16:59 -0000 1.8 --- InstantPersistence.pas 12 Sep 2004 11:17:33 -0000 1.9 *************** *** 56,60 **** QGraphics, {$ENDIF} ! Dialogs, Classes, Contnrs, SysUtils, DB, InstantClasses, InstantCommand; type --- 56,60 ---- QGraphics, {$ENDIF} ! Classes, Contnrs, SysUtils, DB, InstantClasses, InstantCommand; type *************** *** 6303,6308 **** begin Result := ObjectList.Add(AObject); - if Metadata.IsExternal=ceLinked then - AObject.FindAttribute(Metadata.ExternalLinkedName).AsObject:=Self.Owner; SetOwnerContext(AObject); end; --- 6303,6306 ---- *************** *** 6349,6354 **** begin ObjectList.Insert(Index, AObject); - if Metadata.IsExternal=ceLinked then - AObject.FindAttribute(Metadata.ExternalLinkedName).AsObject:=Self.Owner; SetOwnerContext(AObject); end; --- 6347,6350 ---- *************** *** 6505,6510 **** Ref: TInstantObjectReference; begin - if Metadata.IsExternal=ceLinked then - AObject.FindAttribute(Metadata.ExternalLinkedName).AsObject:=Self.Owner; Ref := CreateObjectReference(AObject); try --- 6501,6504 ---- *************** *** 6517,6525 **** procedure TInstantReferences.InternalClear; - var - i: integer; begin - for i:=0 to Pred(Self.Count) do - Self.Items[i].FindAttribute(Metadata.ExternalLinkedName).AsObject:=Nil; ObjectReferenceList.Clear; end; --- 6511,6515 ---- *************** *** 6527,6531 **** procedure TInstantReferences.InternalDelete(Index: Integer); begin - Self.Items[Index].FindAttribute(Metadata.ExternalLinkedName).AsObject:=Nil; ObjectReferenceList.Delete(Index); end; --- 6517,6520 ---- *************** *** 6580,6585 **** Ref: TInstantObjectReference; begin - if Metadata.IsExternal=ceLinked then - AObject.FindAttribute(Metadata.ExternalLinkedName).AsObject:=Self.Owner; Ref := CreateObjectReference(AObject); try --- 6569,6572 ---- *************** *** 7288,7295 **** procedure TInstantObject.Dispose(ConflictAction: TInstantConflictAction); begin - {if IsOwned then - Owner.DisposeOwnedObject(Self, ConflictAction) - else - PerformUpdate(DoDispose, otDispose, ConflictAction);} PerformUpdate(DoDispose, otDispose, ConflictAction); end; --- 7275,7278 ---- *************** *** 13004,13020 **** SelectParams, DeleteParams: TParams; SelectStatement, DeleteStatement: string; begin for i := 0 to Pred(Map.Count) do if Map[i].AttributeType = atParts then begin ! if Map[i].IsExternal = ceLinked then begin ! //select and delete all SelectParams:=TParams.Create; try SelectStatement:=Format(SelectExternalLinkedSQL, ! [ Map[i].ObjectClassMetadata.TableName, ! Map[i].ExternalLinkedName + InstantClassFieldName, ! Map[i].ExternalLinkedName + InstantIdFieldName ]); AddStringParam(SelectParams, InstantIdFieldName, AObject.Id); AddStringParam(SelectParams, InstantClassFieldName, AObject.ClassName); --- 12987,13006 ---- SelectParams, DeleteParams: TParams; SelectStatement, DeleteStatement: string; + AttributeMetadata: TInstantAttributeMetadata; begin for i := 0 to Pred(Map.Count) do + begin + AttributeMetadata := Map[i]; if Map[i].AttributeType = atParts then begin ! if AttributeMetadata.IsExternal = ceLinked then begin ! //select and dispose all SelectParams:=TParams.Create; try SelectStatement:=Format(SelectExternalLinkedSQL, ! [ AttributeMetadata.ObjectClassMetadata.TableName, ! AttributeMetadata.ExternalLinkedName + InstantClassFieldName, ! AttributeMetadata.ExternalLinkedName + InstantIdFieldName ]); AddStringParam(SelectParams, InstantIdFieldName, AObject.Id); AddStringParam(SelectParams, InstantClassFieldName, AObject.ClassName); *************** *** 13025,13033 **** while not Eof do begin ! PartObject := Map[i].ObjectClass.Retrieve(Fields[1].AsString, False, False, AObject.Connector); if Assigned(PartObject) then try ! PartObject.SetPersistentId(Fields[1].AsString); ! Broker.DisposeObject(PartObject, caIgnore); finally PartObject.Free; --- 13011,13019 ---- while not Eof do begin ! PartObject := AttributeMetadata.ObjectClass.Retrieve( ! Fields[1].AsString, False, False, AObject.Connector); if Assigned(PartObject) then try ! PartObject.ObjectStore.DisposeObject(PartObject, caIgnore); finally PartObject.Free; *************** *** 13048,13059 **** if Map[i].IsExternal = ceStored then begin ! //Delete all objects SelectParams:=TParams.Create; try ! SelectStatement:=Format(SelectExternalStoredSQL, [Map.Items[i].ExternalStoredName]); AddStringParam(SelectParams, InstantParentIdFieldName, AObject.Id); AddStringParam(SelectParams, InstantParentClassFieldName, AObject.ClassName); ! AddStringParam(SelectParams, InstantParentAttributeFieldName, Map[i].Name); ! AddStringParam(SelectParams, InstantChildClassFieldName, Map[i].ObjectClassName); with Broker.CreateDataSet(SelectStatement, SelectParams) do try --- 13034,13045 ---- if Map[i].IsExternal = ceStored then begin ! // dispose all objects SelectParams:=TParams.Create; try ! SelectStatement:=Format(SelectExternalStoredSQL, [AttributeMetadata.ExternalStoredName]); AddStringParam(SelectParams, InstantParentIdFieldName, AObject.Id); AddStringParam(SelectParams, InstantParentClassFieldName, AObject.ClassName); ! AddStringParam(SelectParams, InstantParentAttributeFieldName, AttributeMetadata.Name); ! AddStringParam(SelectParams, InstantChildClassFieldName, AttributeMetadata.ObjectClassName); with Broker.CreateDataSet(SelectStatement, SelectParams) do try *************** *** 13062,13070 **** while not Eof do begin ! PartObject := Map[i].ObjectClass.Retrieve(Fields[1].AsString, False, False, AObject.Connector); if Assigned(PartObject) then try ! PartObject.SetPersistentId(Fields[1].AsString); ! Broker.DisposeObject(PartObject, caIgnore); finally PartObject.Free; --- 13048,13056 ---- while not Eof do begin ! PartObject := AttributeMetadata.ObjectClass.Retrieve( ! Fields[1].AsString, False, False, AObject.Connector); if Assigned(PartObject) then try ! PartObject.ObjectStore.DisposeObject(PartObject, caIgnore); finally PartObject.Free; *************** *** 13086,13090 **** try DeleteStatement := Format(DeleteExternalSQL, ! [ Map.Items[i].ExternalStoredName, InstantParentClassFieldName, InstantParentIdFieldName, --- 13072,13076 ---- try DeleteStatement := Format(DeleteExternalSQL, ! [ AttributeMetadata.ExternalStoredName, InstantParentClassFieldName, InstantParentIdFieldName, *************** *** 13092,13096 **** AddStringParam(DeleteParams, InstantParentClassFieldName, AObject.ClassName); AddStringParam(DeleteParams, InstantParentIdFieldName, AObject.id); ! AddStringParam(DeleteParams, InstantParentAttributeFieldName, Map[i].Name); Broker.Execute(DeleteStatement, DeleteParams); finally --- 13078,13082 ---- AddStringParam(DeleteParams, InstantParentClassFieldName, AObject.ClassName); AddStringParam(DeleteParams, InstantParentIdFieldName, AObject.id); ! AddStringParam(DeleteParams, InstantParentAttributeFieldName, AttributeMetadata.Name); Broker.Execute(DeleteStatement, DeleteParams); finally *************** *** 13099,13124 **** end; end; end; procedure DeleteExternalReferencesMap; var ! i, ii: integer; ! DeleteParams: TParams; ! DeleteStatement: string; begin for i := 0 to Pred(Map.Count) do ! if Map[i].AttributeType = atReferences then begin ! if Map[i].IsExternal = ceLinked then begin ! //Store all ! for ii:=0 to Pred((AObject.AttributeByName(Map.Items[i].Name) as TInstantReferences).Count) do ! begin ! (AObject.AttributeByName(Map.Items[i].Name) as TInstantReferences).Items[ii].CheckId; ! (AObject.AttributeByName(Map.Items[i].Name) as TInstantReferences).Items[ii].FindAttribute(Map[i].ExternalLinkedName).AsObject := Nil; ! Broker.StoreObject((AObject.AttributeByName(Map.Items[i].Name) as TInstantReferences).Items[ii], caIgnore); end; end; ! if Map[i].IsExternal = ceStored then begin //Delete all links --- 13085,13143 ---- end; end; + end; end; procedure DeleteExternalReferencesMap; var ! i: integer; ! ReferenceObject: TInstantObject; ! SelectParams, DeleteParams: TParams; ! SelectStatement, DeleteStatement: string; ! AttributeMetadata: TInstantAttributeMetadata; begin for i := 0 to Pred(Map.Count) do ! begin ! AttributeMetadata := Map[i]; ! if AttributeMetadata.AttributeType = atReferences then begin ! if AttributeMetadata.IsExternal = ceLinked then begin ! //set all to nil ! SelectParams:=TParams.Create; ! try ! SelectStatement:=Format(SelectExternalLinkedSQL, ! [ AttributeMetadata.ObjectClassMetadata.TableName, ! AttributeMetadata.ExternalLinkedName + InstantClassFieldName, ! AttributeMetadata.ExternalLinkedName + InstantIdFieldName ]); ! AddStringParam(SelectParams, InstantIdFieldName, AObject.Id); ! AddStringParam(SelectParams, InstantClassFieldName, AObject.ClassName); ! with Self.Broker.CreateDataSet(SelectStatement, SelectParams) do ! try ! Open; ! try ! while not Eof do ! begin ! ReferenceObject := AttributeMetadata.ObjectClass.Retrieve( ! Fields[1].AsString, False, False, AObject.Connector); ! if Assigned(ReferenceObject) then ! try ! ReferenceObject.AttributeByName(AttributeMetadata.ExternalLinkedName).AsObject := Nil; ! ReferenceObject.ObjectStore.StoreObject(ReferenceObject, caIgnore); ! finally ! ReferenceObject.Free; ! end; ! Next; ! end; ! finally ! Close; ! end; ! finally ! Free; ! end; ! finally ! SelectParams.Free; end; end; ! if AttributeMetadata.IsExternal = ceStored then begin //Delete all links *************** *** 13126,13135 **** try DeleteStatement := Format(DeleteExternalSQL, ! [ Map.Items[i].ExternalStoredName, InstantParentClassFieldName, InstantParentAttributeFieldName ]); AddStringParam(DeleteParams, InstantParentClassFieldName, AObject.ClassName); AddStringParam(DeleteParams, InstantParentIdFieldName, AObject.id); ! AddStringParam(DeleteParams, InstantParentAttributeFieldName, Map[i].Name); Broker.Execute(DeleteStatement, DeleteParams); finally --- 13145,13154 ---- try DeleteStatement := Format(DeleteExternalSQL, ! [ AttributeMetadata.ExternalStoredName, InstantParentClassFieldName, InstantParentAttributeFieldName ]); AddStringParam(DeleteParams, InstantParentClassFieldName, AObject.ClassName); AddStringParam(DeleteParams, InstantParentIdFieldName, AObject.id); ! AddStringParam(DeleteParams, InstantParentAttributeFieldName, AttributeMetadata.Name); Broker.Execute(DeleteStatement, DeleteParams); finally *************** *** 13138,13141 **** --- 13157,13161 ---- end; end; + end; end; *************** *** 13253,13263 **** i, ii: integer; PartObject: TInstantObject; SelectParams, DeleteParams, InsertParams: TParams; SelectStatement, DeleteStatement, InsertStatement: string; begin for i := 0 to Pred(Map.Count) do ! if Map[i].AttributeType = atParts then begin ! if Map[i].IsExternal = ceLinked then begin //select and delete all --- 13273,13288 ---- i, ii: integer; PartObject: TInstantObject; + PartsAttribute: TInstantParts; + AttributeMetadata: TInstantAttributeMetadata; SelectParams, DeleteParams, InsertParams: TParams; SelectStatement, DeleteStatement, InsertStatement: string; begin for i := 0 to Pred(Map.Count) do ! begin ! AttributeMetadata := Map[i]; ! if AttributeMetadata.AttributeType = atParts then begin ! PartsAttribute := TInstantParts(AObject.AttributeByName(AttributeMetadata.Name)); ! if AttributeMetadata.IsExternal = ceLinked then begin //select and delete all *************** *** 13265,13271 **** try SelectStatement:=Format(SelectExternalLinkedSQL, ! [ Map[i].ObjectClassMetadata.TableName, ! Map[i].ExternalLinkedName + InstantClassFieldName, ! Map[i].ExternalLinkedName + InstantIdFieldName ]); AddStringParam(SelectParams, InstantIdFieldName, AObject.Id); AddStringParam(SelectParams, InstantClassFieldName, AObject.ClassName); --- 13290,13296 ---- try SelectStatement:=Format(SelectExternalLinkedSQL, ! [ AttributeMetadata.ObjectClassMetadata.TableName, ! AttributeMetadata.ExternalLinkedName + InstantClassFieldName, ! AttributeMetadata.ExternalLinkedName + InstantIdFieldName ]); AddStringParam(SelectParams, InstantIdFieldName, AObject.Id); AddStringParam(SelectParams, InstantClassFieldName, AObject.ClassName); *************** *** 13276,13284 **** while not Eof do begin ! PartObject := Map[i].ObjectClass.Retrieve(Fields[1].AsString, False, False, AObject.Connector); if Assigned(PartObject) then try ! PartObject.SetPersistentId(Fields[1].AsString); ! Broker.DisposeObject(PartObject, caIgnore); finally PartObject.Free; --- 13301,13309 ---- while not Eof do begin ! PartObject := AttributeMetadata.ObjectClass.Retrieve( ! Fields[1].AsString, False, False, AObject.Connector); if Assigned(PartObject) then try ! PartObject.ObjectStore.DisposeObject(PartObject, caIgnore); finally PartObject.Free; *************** *** 13297,13304 **** //Store all ! for ii:=0 to Pred((AObject.AttributeByName(Map.Items[i].Name) as TInstantParts).Count) do begin ! (AObject.AttributeByName(Map.Items[i].Name) as TInstantParts).Items[ii].CheckId; ! Broker.StoreObject((AObject.AttributeByName(Map.Items[i].Name) as TInstantParts).Items[ii], caIgnore); end; end; --- 13322,13331 ---- //Store all ! for ii:=0 to Pred(PartsAttribute.Count) do begin ! PartObject := PartsAttribute.Items[ii]; ! PartObject.CheckId; ! PartObject.FindAttribute(AttributeMetadata.ExternalLinkedName).AsObject := AObject; ! PartObject.ObjectStore.StoreObject(PartObject, caIgnore); end; end; *************** *** 13309,13317 **** SelectParams:=TParams.Create; try ! SelectStatement:=Format(SelectExternalStoredSQL, [Map.Items[i].ExternalStoredName]); AddStringParam(SelectParams, InstantParentIdFieldName, AObject.Id); AddStringParam(SelectParams, InstantParentClassFieldName, AObject.ClassName); ! AddStringParam(SelectParams, InstantParentAttributeFieldName, Map[i].Name); ! AddStringParam(SelectParams, InstantChildClassFieldName, Map[i].ObjectClassName); with Broker.CreateDataSet(SelectStatement, SelectParams) do try --- 13336,13344 ---- SelectParams:=TParams.Create; try ! SelectStatement:=Format(SelectExternalStoredSQL, [AttributeMetadata.ExternalStoredName]); AddStringParam(SelectParams, InstantParentIdFieldName, AObject.Id); AddStringParam(SelectParams, InstantParentClassFieldName, AObject.ClassName); ! AddStringParam(SelectParams, InstantParentAttributeFieldName, AttributeMetadata.Name); ! AddStringParam(SelectParams, InstantChildClassFieldName, AttributeMetadata.ObjectClassName); with Broker.CreateDataSet(SelectStatement, SelectParams) do try *************** *** 13320,13328 **** while not Eof do begin ! PartObject := Map[i].ObjectClass.Retrieve(Fields[1].AsString, False, False, AObject.Connector); if Assigned(PartObject) then try ! PartObject.SetPersistentId(Fields[1].AsString); ! Broker.DisposeObject(PartObject, caIgnore); finally PartObject.Free; --- 13347,13355 ---- while not Eof do begin ! PartObject := AttributeMetadata.ObjectClass.Retrieve( ! Fields[1].AsString, False, False, AObject.Connector); if Assigned(PartObject) then try ! PartObject.ObjectStore.DisposeObject(PartObject, caIgnore); finally PartObject.Free; *************** *** 13344,13353 **** try DeleteStatement := Format(DeleteExternalSQL, ! [ Map.Items[i].ExternalStoredName, InstantParentClassFieldName, InstantParentAttributeFieldName ]); AddStringParam(DeleteParams, InstantParentClassFieldName, AObject.ClassName); AddStringParam(DeleteParams, InstantParentIdFieldName, AObject.id); ! AddStringParam(DeleteParams, InstantParentAttributeFieldName, Map[i].Name); Broker.Execute(DeleteStatement, DeleteParams); finally --- 13371,13380 ---- try DeleteStatement := Format(DeleteExternalSQL, ! [ AttributeMetadata.ExternalStoredName, InstantParentClassFieldName, InstantParentAttributeFieldName ]); AddStringParam(DeleteParams, InstantParentClassFieldName, AObject.ClassName); AddStringParam(DeleteParams, InstantParentIdFieldName, AObject.id); ! AddStringParam(DeleteParams, InstantParentAttributeFieldName, AttributeMetadata.Name); Broker.Execute(DeleteStatement, DeleteParams); finally *************** *** 13356,13375 **** //Store all objects and links ! for ii:=0 to Pred((AObject.AttributeByName(Map.Items[i].Name) as TInstantParts).Count) do begin ! (AObject.AttributeByName(Map.Items[i].Name) as TInstantParts).Items[ii].CheckId; ! Broker.StoreObject((AObject.AttributeByName(Map.Items[i].Name) as TInstantParts).Items[ii], caIgnore); InsertParams:=TParams.Create; try InsertStatement := Format( InsertExternalSQL, ! [ Map.Items[i].ExternalStoredName ] ); AddStringParam(InsertParams, InstantIdFieldName, InstantGenerateId); AddStringParam(InsertParams, InstantParentClassFieldName, AObject.ClassName); AddStringParam(InsertParams, InstantParentIdFieldName, AObject.Id); ! AddStringParam(InsertParams, InstantParentAttributeFieldName, Map[i].Name); AddStringParam(InsertParams, InstantChildClassFieldName, ! (AObject.AttributeByName(Map.Items[i].Name) as TInstantParts).Items[ii].ClassName); AddStringParam(InsertParams, InstantChildIdFieldName, ! (AObject.AttributeByName(Map.Items[i].Name) as TInstantParts).Items[ii].Id); Broker.Execute(InsertStatement, InsertParams); finally --- 13383,13406 ---- //Store all objects and links ! for ii:=0 to Pred(PartsAttribute.Count) do begin ! // store the object ! PartObject := PartsAttribute.Items[ii]; ! PartObject.CheckId; ! PartObject.ObjectStore.StoreObject(PartObject, caIgnore); ! ! // insert the link InsertParams:=TParams.Create; try InsertStatement := Format( InsertExternalSQL, ! [ AttributeMetadata.ExternalStoredName ] ); AddStringParam(InsertParams, InstantIdFieldName, InstantGenerateId); AddStringParam(InsertParams, InstantParentClassFieldName, AObject.ClassName); AddStringParam(InsertParams, InstantParentIdFieldName, AObject.Id); ! AddStringParam(InsertParams, InstantParentAttributeFieldName, AttributeMetadata.Name); AddStringParam(InsertParams, InstantChildClassFieldName, ! PartsAttribute.Items[ii].ClassName); AddStringParam(InsertParams, InstantChildIdFieldName, ! PartsAttribute.Items[ii].Id); Broker.Execute(InsertStatement, InsertParams); finally *************** *** 13379,13382 **** --- 13410,13414 ---- end; end; + end; end; *************** *** 13384,13403 **** var i, ii: integer; ! DeleteParams, InsertParams: TParams; ! DeleteStatement, InsertStatement: string; begin for i := 0 to Pred(Map.Count) do ! if Map[i].AttributeType = atReferences then begin ! if Map[i].IsExternal = ceLinked then begin //Store all ! for ii:=0 to Pred((AObject.AttributeByName(Map.Items[i].Name) as TInstantReferences).Count) do begin ! (AObject.AttributeByName(Map.Items[i].Name) as TInstantReferences).Items[ii].CheckId; ! Broker.StoreObject((AObject.AttributeByName(Map.Items[i].Name) as TInstantReferences).Items[ii], caIgnore); end; end; ! if Map[i].IsExternal = ceStored then begin //Delete all links --- 13416,13480 ---- var i, ii: integer; ! AttributeMetadata: TInstantAttributeMetadata; ! ReferenceObject: TInstantObject; ! ReferencesAttribute: TInstantReferences; ! SelectParams, DeleteParams, InsertParams: TParams; ! SelectStatement, DeleteStatement, InsertStatement: string; begin for i := 0 to Pred(Map.Count) do ! begin ! AttributeMetadata := Map[i]; ! if AttributeMetadata.AttributeType = atReferences then begin ! ReferencesAttribute := TInstantReferences(AObject.AttributeByName(AttributeMetadata.Name)); ! ! if AttributeMetadata.IsExternal = ceLinked then begin + //set all to nil + SelectParams:=TParams.Create; + try + SelectStatement:=Format(SelectExternalLinkedSQL, + [ AttributeMetadata.ObjectClassMetadata.TableName, + AttributeMetadata.ExternalLinkedName + InstantClassFieldName, + AttributeMetadata.ExternalLinkedName + InstantIdFieldName ]); + AddStringParam(SelectParams, InstantIdFieldName, AObject.Id); + AddStringParam(SelectParams, InstantClassFieldName, AObject.ClassName); + with Self.Broker.CreateDataSet(SelectStatement, SelectParams) do + try + Open; + try + while not Eof do + begin + ReferenceObject := AttributeMetadata.ObjectClass.Retrieve( + Fields[1].AsString, False, False, AObject.Connector); + if Assigned(ReferenceObject) then + try + ReferenceObject.AttributeByName(AttributeMetadata.ExternalLinkedName).AsObject := Nil; + ReferenceObject.ObjectStore.StoreObject(ReferenceObject, caIgnore); + finally + ReferenceObject.Free; + end; + Next; + end; + finally + Close; + end; + finally + Free; + end; + finally + SelectParams.Free; + end; //Store all ! for ii:=0 to Pred(ReferencesAttribute.Count) do begin ! ReferenceObject := ReferencesAttribute.Items[ii]; ! ReferenceObject.CheckId; ! ReferenceObject.FindAttribute(AttributeMetadata.ExternalLinkedName).AsObject := AObject; ! ReferenceObject.ObjectStore.StoreObject(ReferenceObject, caIgnore); end; end; ! ! if AttributeMetadata.IsExternal = ceStored then begin //Delete all links *************** *** 13405,13409 **** try DeleteStatement := Format(DeleteExternalSQL, ! [ Map.Items[i].ExternalStoredName, InstantParentClassFieldName, InstantParentIdFieldName, --- 13482,13486 ---- try DeleteStatement := Format(DeleteExternalSQL, ! [ AttributeMetadata.ExternalStoredName, InstantParentClassFieldName, InstantParentIdFieldName, *************** *** 13411,13436 **** AddStringParam(DeleteParams, InstantParentClassFieldName, AObject.ClassName); AddStringParam(DeleteParams, InstantParentIdFieldName, AObject.id); ! AddStringParam(DeleteParams, InstantParentAttributeFieldName, Map[i].Name); Broker.Execute(DeleteStatement, DeleteParams); finally DeleteParams.Free; end; - //Store all links ! for ii:=0 to Pred((AObject.AttributeByName(Map.Items[i].Name) as TInstantReferences).Count) do begin InsertParams:=TParams.Create; try InsertStatement := Format( InsertExternalSQL, ! [ Map.Items[i].ExternalStoredName ] ); ! AddStringParam(InsertParams, InstantIdFieldName, InstantGenerateId); AddStringParam(InsertParams, InstantParentClassFieldName, AObject.ClassName); AddStringParam(InsertParams, InstantParentIdFieldName, AObject.Id); ! AddStringParam(InsertParams, InstantParentAttributeFieldName, Map[i].Name); AddStringParam(InsertParams, InstantChildClassFieldName, ! (AObject.AttributeByName(Map.Items[i].Name) as TInstantReferences).Items[ii].ClassName); AddStringParam(InsertParams, InstantChildIdFieldName, ! (AObject.AttributeByName(Map.Items[i].Name) as TInstantReferences).Items[ii].Id); Broker.Execute(InsertStatement, InsertParams); finally --- 13488,13515 ---- AddStringParam(DeleteParams, InstantParentClassFieldName, AObject.ClassName); AddStringParam(DeleteParams, InstantParentIdFieldName, AObject.id); ! AddStringParam(DeleteParams, InstantParentAttributeFieldName, AttributeMetadata.Name); Broker.Execute(DeleteStatement, DeleteParams); finally DeleteParams.Free; end; //Store all links ! for ii:=0 to Pred(ReferencesAttribute.Count) do begin + ReferenceObject := ReferencesAttribute.Items[ii]; + ReferenceObject.CheckId; + ReferenceObject.ObjectStore.StoreObject(ReferenceObject, caIgnore); + InsertParams:=TParams.Create; try InsertStatement := Format( InsertExternalSQL, ! [ AttributeMetadata.ExternalStoredName ] ); AddStringParam(InsertParams, InstantIdFieldName, InstantGenerateId); AddStringParam(InsertParams, InstantParentClassFieldName, AObject.ClassName); AddStringParam(InsertParams, InstantParentIdFieldName, AObject.Id); ! AddStringParam(InsertParams, InstantParentAttributeFieldName, AttributeMetadata.Name); AddStringParam(InsertParams, InstantChildClassFieldName, ! ReferencesAttribute.Items[ii].ClassName); AddStringParam(InsertParams, InstantChildIdFieldName, ! ReferencesAttribute.Items[ii].Id); Broker.Execute(InsertStatement, InsertParams); finally *************** *** 13440,13443 **** --- 13519,13523 ---- end; end; + end; end; *************** *** 13646,13651 **** with (Attribute as TInstantReferences) do begin ! (Attribute as TInstantReferences).ObjectReferenceList.Clear; ! //Clear; Params:=TParams.Create; try --- 13726,13730 ---- with (Attribute as TInstantReferences) do begin ! Clear; Params:=TParams.Create; try *************** *** 13682,13687 **** with (Attribute as TInstantReferences) do begin ! //Clear; ! (Attribute as TInstantReferences).ObjectReferenceList.Clear; Params:=TParams.Create; try --- 13761,13765 ---- with (Attribute as TInstantReferences) do begin ! Clear; Params:=TParams.Create; try |
From: Andrea P. <and...@us...> - 2004-09-10 10:28:13
|
Update of /cvsroot/instantobjects/Source/Design In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv31902 Modified Files: InstantAttributeEditor.dfm InstantAttributeEditor.pas Log Message: External TParts and External TReferences support Index: InstantAttributeEditor.dfm =================================================================== RCS file: /cvsroot/instantobjects/Source/Design/InstantAttributeEditor.dfm,v retrieving revision 1.2 retrieving revision 1.3 diff -C2 -d -r1.2 -r1.3 *** InstantAttributeEditor.dfm 20 Jul 2004 11:07:49 -0000 1.2 --- InstantAttributeEditor.dfm 10 Sep 2004 10:27:39 -0000 1.3 *************** *** 1,7 **** inherited InstantAttributeEditorForm: TInstantAttributeEditorForm ! Left = 388 ! Top = 255 Width = 249 ! Height = 280 Caption = 'Attribute Editor' ParentFont = True --- 1,7 ---- inherited InstantAttributeEditorForm: TInstantAttributeEditorForm ! Left = 795 ! Top = 191 Width = 249 ! Height = 386 Caption = 'Attribute Editor' ParentFont = True *************** *** 12,21 **** inherited EditPanel: TPanel Width = 241 ! Height = 215 object PageControl: TPageControl Left = 4 Top = 4 Width = 233 ! Height = 207 ActivePage = DefinitionSheet Align = alClient --- 12,21 ---- inherited EditPanel: TPanel Width = 241 ! Height = 328 object PageControl: TPageControl Left = 4 Top = 4 Width = 233 ! Height = 320 ActivePage = DefinitionSheet Align = alClient *************** *** 63,66 **** --- 63,90 ---- FocusControl = SizeEdit end + object ExternalLinkedNameLabel: TLabel + Left = 8 + Top = 248 + Width = 92 + Height = 13 + Caption = 'Exter&nal Link Name' + FocusControl = ExternalLinkedNameEdit + end + object ExternalStoredNameLabel: TLabel + Left = 8 + Top = 208 + Width = 109 + Height = 13 + Caption = '&External Storage Name' + FocusControl = ExternalStoredNameEdit + end + object IsExternalLabel: TLabel + Left = 8 + Top = 168 + Width = 49 + Height = 13 + Caption = 'Is Exte&rnal' + FocusControl = IsExternalEdit + end object NameEdit: TDBEdit Left = 8 *************** *** 117,120 **** --- 141,180 ---- TabOrder = 3 end + object ExternalLinkedNameEdit: TDBComboBox + Left = 8 + Top = 264 + Width = 210 + Height = 21 + DataField = 'ExternalLinkedName' + DataSource = SubjectSource + ItemHeight = 13 + Sorted = True + TabOrder = 7 + OnChange = ExternalLinkedNameEditChange + OnEnter = ExternalLinkedNameEditEnter + end + object ExternalStoredNameEdit: TDBEdit + Left = 8 + Top = 224 + Width = 209 + Height = 21 + DataField = 'ExternalStoredName' + DataSource = SubjectSource + TabOrder = 6 + OnChange = ExternalStoredNameEditChange + end + object IsExternalEdit: TDBComboBox + Left = 7 + Top = 184 + Width = 210 + Height = 21 + Style = csDropDownList + DataField = 'IsExternal' + DataSource = SubjectSource + ItemHeight = 13 + Sorted = True + TabOrder = 5 + OnChange = IsExternalEditChange + end end object AccessSheet: TTabSheet *************** *** 329,333 **** end inherited BottomPanel: TPanel ! Top = 215 Width = 241 inherited ButtonPanel: TPanel --- 389,393 ---- end inherited BottomPanel: TPanel ! Top = 328 Width = 241 inherited ButtonPanel: TPanel *************** *** 338,349 **** OnInitField = SubjectExposerInitField OnTranslate = SubjectExposerTranslate ! Top = 222 end inherited SubjectSource: TDataSource ! Top = 222 end object TypeImages: TImageList ! Left = 197 ! Top = 6 end end --- 398,411 ---- OnInitField = SubjectExposerInitField OnTranslate = SubjectExposerTranslate ! Left = 6 ! Top = 324 end inherited SubjectSource: TDataSource ! Left = 46 ! Top = 324 end object TypeImages: TImageList ! Left = 84 ! Top = 324 end end Index: InstantAttributeEditor.pas =================================================================== RCS file: /cvsroot/instantobjects/Source/Design/InstantAttributeEditor.pas,v retrieving revision 1.4 retrieving revision 1.5 diff -C2 -d -r1.4 -r1.5 *** InstantAttributeEditor.pas 29 Jul 2004 20:43:15 -0000 1.4 --- InstantAttributeEditor.pas 10 Sep 2004 10:27:39 -0000 1.5 *************** *** 88,91 **** --- 88,97 ---- DefaultValueLabel: TLabel; DefaultValueEdit: TDBEdit; + ExternalLinkedNameEdit: TDBComboBox; + ExternalLinkedNameLabel: TLabel; + ExternalStoredNameEdit: TDBEdit; + ExternalStoredNameLabel: TLabel; + IsExternalEdit: TDBComboBox; + IsExternalLabel: TLabel; procedure FormCreate(Sender: TObject); procedure NameEditChange(Sender: TObject); *************** *** 99,102 **** --- 105,112 ---- var Value: Variant; Write: Boolean); procedure TypeEditClick(Sender: TObject); + procedure IsExternalEditChange(Sender: TObject); + procedure ExternalStoredNameEditChange(Sender: TObject); + procedure ExternalLinkedNameEditChange(Sender: TObject); + procedure ExternalLinkedNameEditEnter(Sender: TObject); private FLimited: Boolean; *************** *** 109,112 **** --- 119,123 ---- protected procedure LoadClasses; + procedure LoadClassAttributes; procedure LoadData; override; procedure LoadEnums(TypeInfo: PTypeInfo; Items: TStrings; *************** *** 114,118 **** --- 125,131 ---- procedure LoadTypes; procedure LoadVisibilities; + procedure LoadIsExternal; procedure PopulateClasses; + procedure PopulateClassAttributes; procedure SaveData; override; procedure SubjectChanged; override; *************** *** 228,231 **** --- 241,250 ---- end; + procedure TInstantAttributeEditorForm.LoadIsExternal; + begin + with IsExternalEdit do + ItemIndex := SubjectExposer.GetFieldStrings(Field, Items); + end; + procedure TInstantAttributeEditorForm.LoadTypes; var *************** *** 284,287 **** --- 303,307 ---- SubjectExposer.AssignFieldValue(Field, Text); UpdateControls; + LoadClassAttributes; end; *************** *** 372,375 **** --- 392,396 ---- LoadTypes; LoadVisibilities; + LoadIsExternal; UpdateControls; end; *************** *** 403,407 **** TranslateEnum('at') else if Field.FieldName = 'Visibility' then ! TranslateEnum('vi'); end; --- 424,430 ---- TranslateEnum('at') else if Field.FieldName = 'Visibility' then ! TranslateEnum('vi') ! else if Field.FieldName = 'IsExternal' then ! TranslateEnum('ce'); end; *************** *** 411,414 **** --- 434,438 ---- SubjectExposer.AssignFieldValue(Field, Text); LoadVisibilities; + LoadIsExternal; UpdateControls; end; *************** *** 435,441 **** var ! HasName, HasClass: Boolean; ! IsComplex, IsContainer, IsMaskable, IsString, IsValid: Boolean; begin HasName := NameEdit.Text <> ''; HasClass := ObjectClassEdit.Text <> ''; --- 459,470 ---- 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 <> ''; HasClass := ObjectClassEdit.Text <> ''; *************** *** 443,448 **** IsMaskable := Subject.AttributeType in [atString, atMemo, atFloat, atCurrency, atInteger]; IsContainer := Subject.IsContainer; IsString := Subject.AttributeType in [atString, atMemo]; ! IsValid := HasName and (not IsComplex or HasClass); DisableSubControls(DefinitionSheet, Limited); --- 472,482 ---- IsMaskable := Subject.AttributeType in [atString, atMemo, atFloat, atCurrency, atInteger]; IsContainer := Subject.IsContainer; + HasExternalStoredName := ExternalStoredNameEdit.Text <> ''; + HasExternalLinkedName := ExternalLinkedNameEdit.Text <> ''; + + IsExternal := Subject.IsExternal <> ceNo; IsString := Subject.AttributeType in [atString, atMemo]; ! IsValid := HasName and (not IsComplex or HasClass) and ! (not IsExternal or (HasExternalStoredName or HasExternalLinkedName) ); DisableSubControls(DefinitionSheet, Limited); *************** *** 462,468 **** EnableCtrl(MethodInsertCheckBox, IsContainer); EnableCtrl(MethodRemoveCheckBox, IsContainer); end; ! EnableCtrl(StorageNameLabel, True); ! EnableCtrl(StorageNameEdit, True); EnableCtrl(SizeLabel, IsString); EnableCtrl(SizeEdit, IsString); --- 496,511 ---- 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); EnableCtrl(SizeEdit, IsString); *************** *** 474,476 **** --- 517,570 ---- end; + procedure TInstantAttributeEditorForm.IsExternalEditChange( + Sender: TObject); + begin + with IsExternalEdit do + SubjectExposer.AssignFieldValue(Field, Text); + UpdateControls; + end; + + procedure TInstantAttributeEditorForm.ExternalStoredNameEditChange( + Sender: TObject); + begin + UpdateControls; + end; + + procedure TInstantAttributeEditorForm.ExternalLinkedNameEditChange( + Sender: TObject); + begin + UpdateControls; + end; + + procedure TInstantAttributeEditorForm.LoadClassAttributes; + var + I:integer; + begin + with ExternalLinkedNameEdit do + begin + Items.BeginUpdate; + try + Items.Clear; + if Assigned(FModel) then + if Assigned(FModel.FindClass(ObjectClassEdit.Text)) then + for I := 0 to Pred(FModel.FindClass(ObjectClassEdit.Text).AttributeCount) do + Items.Add(FModel.FindClass(ObjectClassEdit.Text).Attributes[i].Name); + finally + Items.EndUpdate; + end; + end; + end; + + procedure TInstantAttributeEditorForm.PopulateClassAttributes; + begin + if ExternalLinkedNameEdit.Items.Count = 0 then + LoadClassAttributes; + end; + + procedure TInstantAttributeEditorForm.ExternalLinkedNameEditEnter( + Sender: TObject); + begin + PopulateClassAttributes; + end; + end. |
From: Andrea P. <and...@us...> - 2004-09-10 10:17:52
|
Update of /cvsroot/instantobjects/Source/Core In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv30063 Modified Files: InstantCode.pas InstantConsts.pas InstantPersistence.pas Log Message: External TParts and External TReferences support Index: InstantConsts.pas =================================================================== RCS file: /cvsroot/instantobjects/Source/Core/InstantConsts.pas,v retrieving revision 1.3 retrieving revision 1.4 diff -C2 -d -r1.3 -r1.4 *** InstantConsts.pas 5 Aug 2004 12:29:02 -0000 1.3 --- InstantConsts.pas 10 Sep 2004 10:16:59 -0000 1.4 *************** *** 56,59 **** --- 56,65 ---- InstantStartTagFormat= InstantTagStart + '%s' + InstantTagEnd; InstantUpdateCountFieldName = 'UpdateCount'; + + InstantParentIdFieldName = 'ParentId'; + InstantParentClassFieldName = 'ParentClass'; + InstantParentAttributeFieldName = 'ParentAttribute'; + InstantChildIdFieldName = 'ChildId'; + InstantChildClassFieldName = 'ChildClass'; resourcestring Index: InstantCode.pas =================================================================== RCS file: /cvsroot/instantobjects/Source/Core/InstantCode.pas,v retrieving revision 1.3 retrieving revision 1.4 diff -C2 -d -r1.3 -r1.4 *** InstantCode.pas 29 Jul 2004 20:43:15 -0000 1.3 --- InstantCode.pas 10 Sep 2004 10:16:59 -0000 1.4 *************** *** 621,624 **** --- 621,630 ---- procedure SetStorageName(const Value: string); procedure SetVisibility(Value: TInstantCodeVisibility); + function GetExternalLinkedName: string; + function GetExternalStoredName: string; + function GetIsExternal: TInstantContainerIsExternal; + procedure SetExternalLinkedName(const Value: string); + procedure SetExternalStoredName(const Value: string); + procedure SetIsExternal(const Value: TInstantContainerIsExternal); protected function GetIsDefault: Boolean; virtual; *************** *** 666,669 **** --- 672,677 ---- property AttributeTypeName: string read GetAttributeTypeName write SetAttributeTypeName; property AttributeTypeText: string read GetAttributeTypeText; + property ExternalLinkedName: string read GetExternalLinkedName write SetExternalLinkedName; + property ExternalStoredName: string read GetExternalStoredName write SetExternalStoredName; property IncludeAddMethod: Boolean read GetIncludeAddMethod write SetIncludeAddMethod; property IncludeClearMethod: Boolean read GetIncludeClearMethod write SetIncludeClearMethod; *************** *** 673,676 **** --- 681,685 ---- property IncludeRemoveMethod: Boolean read GetIncludeRemoveMethod write SetIncludeRemoveMethod; property IsDefault: Boolean read GetIsDefault write SetIsDefault; + property IsExternal: TInstantContainerIsExternal read GetIsExternal write SetIsExternal; property IsIndexed: Boolean read GetIsIndexed write SetIsIndexed; property IsRequired: Boolean read GetIsRequired write SetIsRequired; *************** *** 1516,1519 **** --- 1525,1530 ---- MetaKeyDefault = 'default'; + MetaKeyExternalStored = 'externalstored'; + MetaKeyExternalLinked = 'externallinked'; MetaKeyFormat = 'format'; MetaKeyIndex = 'index'; *************** *** 1756,1759 **** --- 1767,1772 ---- procedure TContainerTypeProcessor.InternalRead; + var + Token:String; begin inherited; *************** *** 1764,1769 **** if NextChar = ';' then Break; ! if SameText(ReadToken, 'default') then FMetadata.IsDefault := True; end; end; --- 1777,1793 ---- 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; *************** *** 3693,3696 **** --- 3717,3730 ---- end; + function TInstantCodeAttribute.GetExternalLinkedName: string; + begin + Result := Metadata.ExternalLinkedName; + end; + + function TInstantCodeAttribute.GetExternalStoredName: string; + begin + Result := Metadata.ExternalStoredName; + end; + function TInstantCodeAttribute.GetFieldName: string; begin *************** *** 3753,3756 **** --- 3787,3795 ---- end; + function TInstantCodeAttribute.GetIsExternal: TInstantContainerIsExternal; + begin + Result := Metadata.IsExternal; + end; + function TInstantCodeAttribute.GetIsIndexed: Boolean; begin *************** *** 3939,3943 **** begin Writer.WriteFmt('%s: %s', [Name, AttributeTypeText]); ! WriteStr(MetaKeyStored, Metadata.StorageName); WriteStr(MetaKeyDefault, Metadata.DefaultValue); WriteStr(MetaKeyMask, Metadata.EditMask); --- 3978,3987 ---- begin Writer.WriteFmt('%s: %s', [Name, AttributeTypeText]); ! if Metadata.IsExternal = ceLinked then ! WriteStr(MetaKeyExternalLinked, Metadata.ExternalLinkedName) ! else if Metadata.IsExternal = ceStored then ! WriteStr(MetaKeyExternalStored, Metadata.ExternalStoredName) ! else ! WriteStr(MetaKeyStored, Metadata.StorageName); WriteStr(MetaKeyDefault, Metadata.DefaultValue); WriteStr(MetaKeyMask, Metadata.EditMask); *************** *** 3993,3996 **** --- 4037,4050 ---- end; + procedure TInstantCodeAttribute.SetExternalLinkedName(const Value: string); + begin + Metadata.ExternalLinkedName := Value; + end; + + procedure TInstantCodeAttribute.SetExternalStoredName(const Value: string); + begin + Metadata.ExternalStoredName := Value; + end; + procedure TInstantCodeAttribute.SetIncludeAddMethod(const Value: Boolean); begin *************** *** 4033,4036 **** --- 4087,4095 ---- end; + procedure TInstantCodeAttribute.SetIsExternal(const Value: TInstantContainerIsExternal); + begin + Metadata.IsExternal := Value; + end; + procedure TInstantCodeAttribute.SetIsIndexed(const Value: Boolean); begin Index: InstantPersistence.pas =================================================================== RCS file: /cvsroot/instantobjects/Source/Core/InstantPersistence.pas,v retrieving revision 1.7 retrieving revision 1.8 diff -C2 -d -r1.7 -r1.8 *** InstantPersistence.pas 8 Sep 2004 21:59:52 -0000 1.7 --- InstantPersistence.pas 10 Sep 2004 10:16:59 -0000 1.8 *************** *** 25,29 **** * * Contributor(s): ! * Carlo Barazzetta, Adrea Petrelli: porting Kylix * Carlo Barazzetta: * - blob streaming in XML format (Part, Parts, References) --- 25,29 ---- * * Contributor(s): ! * Carlo Barazzetta, Andrea Petrelli: porting Kylix * Carlo Barazzetta: [...1727 lines suppressed...] I: Integer; --- 13768,13772 ---- procedure TInstantSQLResolver.ReadAttributes(AObject: TInstantObject; ! const AObjectId: string; Map: TInstantAttributeMap; DataSet: TDataSet); var I: Integer; *************** *** 13025,13029 **** if Assigned(AObject) and Assigned(Map) and Assigned(DataSet) then for I := 0 to Pred(Map.Count) do ! ReadAttribute(AObject, Map[I], DataSet); end; --- 13774,13778 ---- if Assigned(AObject) and Assigned(Map) and Assigned(DataSet) then for I := 0 to Pred(Map.Count) do ! ReadAttribute(AObject, AObjectId, Map[I], DataSet); end; |
From: Andrea P. <and...@us...> - 2004-09-10 10:14:03
|
Update of /cvsroot/instantobjects/Source/Core In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv29550 Modified Files: InstantPresentation.pas Log Message: Added OnProgress event on TInstantSelector Index: InstantPresentation.pas =================================================================== RCS file: /cvsroot/instantobjects/Source/Core/InstantPresentation.pas,v retrieving revision 1.4 retrieving revision 1.5 diff -C2 -d -r1.4 -r1.5 *** InstantPresentation.pas 8 Sep 2004 21:59:52 -0000 1.4 --- InstantPresentation.pas 10 Sep 2004 10:13:04 -0000 1.5 *************** *** 25,33 **** * * Contributor(s): ! * Carlo Barazzetta, Adrea Petrelli: porting Kylix * Carlo Barazzetta: * - Exposer Undo virtual and access to UndoBuffer * - Exposer OnAddClassFieldDef event * - Added Currency and Graphic support to exposer * ***** END LICENSE BLOCK ***** *) --- 25,35 ---- * * Contributor(s): ! * Carlo Barazzetta, Andrea Petrelli: porting Kylix * Carlo Barazzetta: * - Exposer Undo virtual and access to UndoBuffer * - Exposer OnAddClassFieldDef event * - Added Currency and Graphic support to exposer + * Andrea Petrelli: + * - Added OnProgress event on TInstantSelector * ***** END LICENSE BLOCK ***** *) *************** *** 48,52 **** type ! TInstantAddClassFieldDefEvent = procedure (const FieldName : string; var BreakProcess : boolean) of object; TInstantChangeType = (ctAppearance, ctData); TInstantAccessMode = (amObject, amContent); --- 50,54 ---- type ! TInstantAddClassFieldDefEvent = procedure (const FieldName : string; var BreakProcess : boolean) of object; TInstantChangeType = (ctAppearance, ctData); TInstantAccessMode = (amObject, amContent); *************** *** 73,76 **** --- 75,79 ---- FOnCompare: TInstantCompareObjectsEvent; FOnLimit: TInstantLimitObjectsEvent; + FOnProgress: TInstantProgressEvent; procedure DestroyView; function GetAltered: Boolean; *************** *** 91,94 **** --- 94,98 ---- procedure SetOnCompare(Value: TInstantCompareObjectsEvent); procedure SetOnLimit(Value: TInstantLimitObjectsEvent); + procedure SetOnProgress(const Value: TInstantProgressEvent); procedure SetSorted(Value: Boolean); property View: TList read GetView; *************** *** 99,102 **** --- 103,107 ---- procedure Changed(ChangeType: TInstantChangeType); virtual; procedure DoLimit(AObject: TObject; var Accept: Boolean); + procedure DoProgress(Sender: TObject; Count: Integer; var Continue: Boolean); function GetConnector: TInstantConnector; virtual; function GetMode: TInstantAccessMode; virtual; *************** *** 114,118 **** function InternalInsertObject(Index: Integer; AObject: TObject): Integer; virtual; procedure InternalRefreshObjects; virtual; ! procedure InternalReleaseObject(AObject: TObject); virtual; function InternalRemoveObject(AObject: TObject): Integer; virtual; property HasSubject: Boolean read GetHasSubject; --- 119,123 ---- function InternalInsertObject(Index: Integer; AObject: TObject): Integer; virtual; procedure InternalRefreshObjects; virtual; ! procedure InternalReleaseObject(AObject: TObject); virtual; function InternalRemoveObject(AObject: TObject): Integer; virtual; property HasSubject: Boolean read GetHasSubject; *************** *** 161,164 **** --- 166,170 ---- property OnCompare: TInstantCompareObjectsEvent read FOnCompare write SetOnCompare; property OnLimit: TInstantLimitObjectsEvent read FOnLimit write SetOnLimit; + property OnProgress: TInstantProgressEvent read FOnProgress write SetOnProgress; end; *************** *** 220,225 **** FOnInitFieldDef: TInstantFieldDefEvent; FOnLimit: TInstantLimitObjectsEvent; FOnTranslate: TInstantFieldTranslateEvent; ! FOnAddClassFieldDef: TInstantAddClassFieldDefEvent; procedure AccessorChanged(Sender: TObject; ChangeType: TInstantChangeType); procedure CheckClass(AObject: TObject); --- 226,232 ---- FOnInitFieldDef: TInstantFieldDefEvent; FOnLimit: TInstantLimitObjectsEvent; + FOnProgress: TInstantProgressEvent; FOnTranslate: TInstantFieldTranslateEvent; ! FOnAddClassFieldDef: TInstantAddClassFieldDefEvent; procedure AccessorChanged(Sender: TObject; ChangeType: TInstantChangeType); procedure CheckClass(AObject: TObject); *************** *** 243,246 **** --- 250,254 ---- function GetOnCompare: TInstantCompareObjectsEvent; function GetOnLimit: TInstantLimitObjectsEvent; + function GetOnProgress: TInstantProgressEvent; procedure GotoActiveRecord; procedure GotoRecord(ARecNo: Integer); *************** *** 261,266 **** procedure SetOnCompare(Value: TInstantCompareObjectsEvent); procedure SetOnLimit(Value: TInstantLimitObjectsEvent); procedure SetSorted(Value: Boolean); ! function GetUndoBuffer: PChar; protected { IProviderSupport } --- 269,275 ---- procedure SetOnCompare(Value: TInstantCompareObjectsEvent); procedure SetOnLimit(Value: TInstantLimitObjectsEvent); + procedure SetOnProgress(const Value: TInstantProgressEvent); procedure SetSorted(Value: Boolean); ! function GetUndoBuffer: PChar; protected { IProviderSupport } *************** *** 361,368 **** procedure SetFiltered(Value: Boolean); override; procedure SetRecNo(Value: Integer); override; ! 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; property ContainerName: string read FContainerName write SetContainerName; --- 370,377 ---- procedure SetFiltered(Value: Boolean); override; procedure SetRecNo(Value: Integer); override; ! 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; property ContainerName: string read FContainerName write SetContainerName; *************** *** 415,419 **** property Objects[Index: Integer]: TObject read GetObjects; property TotalCount: Integer read GetTotalCount; ! property UndoBuffer: PChar read GetUndoBuffer; published property FieldOptions: TInstantFieldOptions read FFieldOptions write SetFieldOptions default [foThorough]; --- 424,428 ---- property Objects[Index: Integer]: TObject read GetObjects; property TotalCount: Integer read GetTotalCount; ! property UndoBuffer: PChar read GetUndoBuffer; published property FieldOptions: TInstantFieldOptions read FFieldOptions write SetFieldOptions default [foThorough]; *************** *** 448,453 **** property OnInitFieldDef: TInstantFieldDefEvent read FOnInitFieldDef write FOnInitFieldDef; property OnLimit: TInstantLimitObjectsEvent read GetOnLimit write SetOnLimit; property OnTranslate: TInstantFieldTranslateEvent read FOnTranslate write FOnTranslate; ! property OnAddClassFieldDef : TInstantAddClassFieldDefEvent read FOnAddClassFieldDef write FOnAddClassFieldDef; end; --- 457,463 ---- property OnInitFieldDef: TInstantFieldDefEvent read FOnInitFieldDef write FOnInitFieldDef; property OnLimit: TInstantLimitObjectsEvent read GetOnLimit write SetOnLimit; + property OnProgress: TInstantProgressEvent read GetOnProgress write SetOnProgress; property OnTranslate: TInstantFieldTranslateEvent read FOnTranslate write FOnTranslate; ! property OnAddClassFieldDef : TInstantAddClassFieldDefEvent read FOnAddClassFieldDef write FOnAddClassFieldDef; end; *************** *** 628,632 **** procedure InstantRegisterAccessorClass(AClass: TInstantAccessorClass); procedure InstantUnregisterAccessorClass(AClass: TInstantAccessorClass); ! function ExposerGetUndoBuffer(Exposer : TInstantCustomExposer) : PChar; implementation --- 638,642 ---- procedure InstantRegisterAccessorClass(AClass: TInstantAccessorClass); procedure InstantUnregisterAccessorClass(AClass: TInstantAccessorClass); ! function ExposerGetUndoBuffer(Exposer : TInstantCustomExposer) : PChar; implementation *************** *** 981,984 **** --- 991,1001 ---- end; + procedure TInstantAccessor.DoProgress(Sender: TObject; Count: Integer; + var Continue: Boolean); + begin + if Assigned(FOnProgress) then + FOnProgress(Self, Count, Continue); + end; + procedure TInstantAccessor.EnableChanges; begin *************** *** 1021,1025 **** function TInstantAccessor.GetAltered: Boolean; begin ! Result := Limited or Sorted; end; --- 1038,1042 ---- function TInstantAccessor.GetAltered: Boolean; begin ! Result := Limited or Sorted or Assigned(FOnProgress); end; *************** *** 1107,1117 **** --- 1124,1140 ---- var I: Integer; + Continue:Boolean; begin if not Assigned(FView) then begin + Continue:=True; FView := TList.Create; FView.Capacity := InternalObjectCount; for I := 0 to Pred(InternalObjectCount) do + begin + DoProgress(InternalObjects[I], I+1, Continue); + if not Continue then Break; AddToView(InternalObjects[I]); + end; end; Result := FView; *************** *** 1379,1382 **** --- 1402,1415 ---- end; + procedure TInstantAccessor.SetOnProgress( + const Value: TInstantProgressEvent); + begin + if @Value <> @FOnProgress then + begin + FOnProgress := Value; + RefreshView; + end; + end; + procedure TInstantAccessor.SetSorted(Value: Boolean); begin *************** *** 2261,2264 **** --- 2294,2305 ---- end; + function TInstantCustomExposer.GetOnProgress: TInstantProgressEvent; + begin + if HasAccessor then + Result := Accessor.OnProgress + else + Result := FOnProgress; + end; + function TInstantCustomExposer.GetRecInfo(Buffer: PChar): PRecInfo; begin *************** *** 2426,2429 **** --- 2467,2471 ---- OnCompare := Self.FOnCompare; OnLimit := Self.FOnLimit; + OnProgress := Self.FOnProgress; ObjectClass := Self.FObjectClass; ObjectClassName := Self.FObjectClassName; *************** *** 3429,3432 **** --- 3471,3485 ---- end; + procedure TInstantCustomExposer.SetOnProgress( + const Value: TInstantProgressEvent); + begin + if @Value <> @OnProgress then + begin + FOnProgress := Value; + if HasAccessor then + Accessor.OnProgress := FOnProgress; + end; + end; + procedure TInstantCustomExposer.SetRecNo(Value: Integer); begin |
From: Carlo B. <car...@us...> - 2004-09-08 22:00:50
|
Update of /cvsroot/instantobjects/Source/Core In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv26771/Source/Core Modified Files: InstantPersistence.pas InstantPresentation.pas Log Message: Removed some //CB comments. Index: InstantPresentation.pas =================================================================== RCS file: /cvsroot/instantobjects/Source/Core/InstantPresentation.pas,v retrieving revision 1.3 retrieving revision 1.4 diff -C2 -d -r1.3 -r1.4 *** InstantPresentation.pas 29 Jul 2004 20:43:15 -0000 1.3 --- InstantPresentation.pas 8 Sep 2004 21:59:52 -0000 1.4 *************** *** 48,52 **** type ! TInstantAddClassFieldDefEvent = procedure (const FieldName : string; var BreakProcess : boolean) of object; //CB TInstantChangeType = (ctAppearance, ctData); TInstantAccessMode = (amObject, amContent); --- 48,52 ---- type ! TInstantAddClassFieldDefEvent = procedure (const FieldName : string; var BreakProcess : boolean) of object; TInstantChangeType = (ctAppearance, ctData); TInstantAccessMode = (amObject, amContent); *************** *** 221,225 **** FOnLimit: TInstantLimitObjectsEvent; FOnTranslate: TInstantFieldTranslateEvent; ! FOnAddClassFieldDef: TInstantAddClassFieldDefEvent; //CB procedure AccessorChanged(Sender: TObject; ChangeType: TInstantChangeType); procedure CheckClass(AObject: TObject); --- 221,225 ---- FOnLimit: TInstantLimitObjectsEvent; FOnTranslate: TInstantFieldTranslateEvent; ! FOnAddClassFieldDef: TInstantAddClassFieldDefEvent; procedure AccessorChanged(Sender: TObject; ChangeType: TInstantChangeType); procedure CheckClass(AObject: TObject); *************** *** 262,266 **** procedure SetOnLimit(Value: TInstantLimitObjectsEvent); procedure SetSorted(Value: Boolean); ! function GetUndoBuffer: PChar; //CB protected { IProviderSupport } --- 262,266 ---- procedure SetOnLimit(Value: TInstantLimitObjectsEvent); procedure SetSorted(Value: Boolean); ! function GetUndoBuffer: PChar; protected { IProviderSupport } *************** *** 361,368 **** procedure SetFiltered(Value: Boolean); override; procedure SetRecNo(Value: Integer); override; ! procedure Undo; virtual; //CB procedure UpdateCalcFields; procedure WriteProperty(Field: TField; Instance: TObject; Value: Variant); ! function BreakThorough( const FieldName : string ) : boolean; virtual; //CB property Accessor: TInstantAccessor read GetAccessor; property ContainerName: string read FContainerName write SetContainerName; --- 361,368 ---- procedure SetFiltered(Value: Boolean); override; procedure SetRecNo(Value: Integer); override; ! 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; property ContainerName: string read FContainerName write SetContainerName; *************** *** 415,419 **** property Objects[Index: Integer]: TObject read GetObjects; property TotalCount: Integer read GetTotalCount; ! property UndoBuffer: PChar read GetUndoBuffer; //CB published property FieldOptions: TInstantFieldOptions read FFieldOptions write SetFieldOptions default [foThorough]; --- 415,419 ---- property Objects[Index: Integer]: TObject read GetObjects; property TotalCount: Integer read GetTotalCount; ! property UndoBuffer: PChar read GetUndoBuffer; published property FieldOptions: TInstantFieldOptions read FFieldOptions write SetFieldOptions default [foThorough]; *************** *** 449,453 **** property OnLimit: TInstantLimitObjectsEvent read GetOnLimit write SetOnLimit; property OnTranslate: TInstantFieldTranslateEvent read FOnTranslate write FOnTranslate; ! property OnAddClassFieldDef : TInstantAddClassFieldDefEvent read FOnAddClassFieldDef write FOnAddClassFieldDef; //CB end; --- 449,453 ---- property OnLimit: TInstantLimitObjectsEvent read GetOnLimit write SetOnLimit; property OnTranslate: TInstantFieldTranslateEvent read FOnTranslate write FOnTranslate; ! property OnAddClassFieldDef : TInstantAddClassFieldDefEvent read FOnAddClassFieldDef write FOnAddClassFieldDef; end; *************** *** 628,632 **** procedure InstantRegisterAccessorClass(AClass: TInstantAccessorClass); procedure InstantUnregisterAccessorClass(AClass: TInstantAccessorClass); ! function ExposerGetUndoBuffer(Exposer : TInstantCustomExposer) : PChar; //CB implementation --- 628,632 ---- procedure InstantRegisterAccessorClass(AClass: TInstantAccessorClass); procedure InstantUnregisterAccessorClass(AClass: TInstantAccessorClass); ! function ExposerGetUndoBuffer(Exposer : TInstantCustomExposer) : PChar; implementation Index: InstantPersistence.pas =================================================================== RCS file: /cvsroot/instantobjects/Source/Core/InstantPersistence.pas,v retrieving revision 1.6 retrieving revision 1.7 diff -C2 -d -r1.6 -r1.7 *** InstantPersistence.pas 23 Aug 2004 09:55:20 -0000 1.6 --- InstantPersistence.pas 8 Sep 2004 21:59:52 -0000 1.7 *************** *** 12662,12666 **** DataSet : TDataSet; begin - Result := 0; try if not UsePreparedQuery then --- 12662,12665 ---- |
From: Carlo W. <cw...@us...> - 2004-09-06 18:12:52
|
Update of /cvsroot/instantobjects/Source/ObjectFoundry In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv18119/Source/ObjectFoundry Added Files: MMIOAPI.PAS OFExpt.res OF_readme.txt Log Message: Update Object Foundry --- NEW FILE: MMIOAPI.PAS --- { ModelMaker 7 ObjectFoundry integration services. Copyright (c) 2003 ModelMaker Tools BV Netherlands http://www.modelmakertools.com This unit defines the interfaces that allow the ObjectFoundry expert to access the native code model thus enabling InstantObjects integration. ObjectFoundry was (previously) created and maintained by Seleqt software. The only reason for using this unit is to be able to recompile the Object Foundry expert. This unit is provided for free and as-is, no responsibility on it's functioning and maintenance is taken whatsoever. Using these interfaces it at your OWN RISK, and if used in any other way than designed (as in MM7.07 status), using these interfaces can cause serious and unrecoverable model integratity problems. 19 Nov 2003 Gerrit Beuze ModelMaker Tools } unit MMIOAPI; interface uses SysUtils, Classes, MMToolsAPI, MMEngineDefs; { This could be the transport structure in case we need a IMMIOAttribute.GetAssociatedMembers type PMemberIDArray = ^TMemberIDArray; TMemberIDArray = array[0..8191] of Integer; TMemberIDList = record Size: Integer; MemberIDs: PMemberIDArray; end; } const { // bits defining locked member attributes, can be combined by or-ing lmaNone = 0; // no locked attributes lmaName = 1; lmaReserved1 = 2; lmaReserved2 = 4; lmaDataType = 8; lmaVisibility = $10; lmaOptions = $20; // class method, call inheritd etc. lmaReserved4 = $40; lmaReserved5 = $80; lmaMethodKind = $100; lmaBindingKind = $200; lmaParameters = $400; lmaPropIndex = $1000; // property only lmaPropLinks = $2000; // disables read/write access lmaEventDispatch = $4000; // event only // Set of locked attributes for IO access method. Use in LinkMember() IOAccessMethodAttrMask = lmaName or lmaDataType or lmaOptions or lmaMethodKind or lmaParameters; } // tagged value names required in MM IOClassStorageName = 'IO.StorageName'; // updated by class editor IOAttrGetterEmpty = 'IO.GetterEmpty'; // updated (set to IOBoolTVTrue) if no matching locked code was found. Never reset by MM IOAttrSetterEmpty = 'IO.SetterEmpty'; // updated (set to IOBoolTVTrue) if no matching locked code was found. Never reset by MM IOBoolTVFalse = 'False'; IOBoolTVTrue = 'True'; type // used in GetAttributeAccessCode to specify getter/setter. // Current implementation assumes SINGLE LINE code only. TIOAccessMethodType = (ioamGetter, ioamSetter); // used in Auto attribute Visualization TIOAttributeType = (ioaNoAttribute, ioaSimple, ioaPart, ioaParts, ioaReference, ioaReferences); IInstantObjectsExpert = interface (IUnknown) ['{2D20DBE7-82D0-4C00-903D-ECAEF910DC12}'] {: When the user creates a new or edits an existing attribute MM will call this method. Return True is dialog accepted, False is cancelled. This is used only to know whether a new attribute should be marked alive or deleted. A new attribute already exists and is linked to a IOStateField plus all the other relevant attributes are set to their correct values. The dialog should simply change the IMMProperty attributes if the changes are accepted. } function EditAttribute(const P: IMMProperty): Boolean; stdcall; {: If the importer does not find meta data for a class inheriting from TInstantObject EraseMetaData is called to make sure all meta data is removed. } procedure EraseMetaData(const C: IMMClass); stdcall; {: Return the attribute getter or setter access code for the Function results: 0 = success; -1 = no access code available >0 = buffer too small, the actual value is the size of the buffer required. MM allocates the memory for the buffer and passes the BufLen including the space for terminating zero. The space for the terminating zero is included in BufLen NOTE: single line code ONLY. } function GetAttributeAccessCode(const P: IMMProperty; MethodType: TIOAccessMethodType; Buf: PChar; BufLen: Integer): Integer; stdcall; {: Return type of attribute for visualization. Fast evaluation required. } function GetAttributeType(const P: IMMProperty): TIOAttributeType; stdcall; function GetAvailable: Boolean; stdcall; {: Called by the uses clause wizard if any class in the unit is descending from PersistencyRoot Return values: 0 = success; Buf contains a #0 terminated string containing a comma separated list of module names to be included in the unit uses clause (at this time: 'InstantPersistency'). -1 = do not insert unit names; >0 = buffer too small, the actual value is the size of the buffer required. MM allocates the memry for the buffer and passes the BufLen including the space for terminating zero. The space for the terminating zero is included in BufLen Initial value for BufLen is 256. } function GetIOUsesClause(Buf: PChar; BufLen: Integer): Integer; stdcall; {: Called when generating a class that inherits from TInstantObject. Function results: 0 = success; -1 = do not insert meta data; >0 = buffer too small, the actual value is the size of the buffer required. MM allocates the memry for the buffer and passes the BufLen including the space for terminating zero. The space for the terminating zero is included in BufLen } function GetMetaData(const C: IMMClass; Buf: PChar; BufLen: Integer): Integer; stdcall; {: Called after all members of a class have been imported. After importing members the expert is responsible for updating the IOAttribute properties and storing the meta data. With respect to the interaction with MM the main responsibility is to link / unlink the IOStateFields to the properties making them attributes. } procedure SetMetaData(const C: IMMClass; const MetaData: PChar); stdcall; {: A property has changed (name, data type etc.) IE should now update the IOStateField and the read/write access code through IMMIOAttribute. Note that this method can be called very often and that the IOStateField or the ReadMethod/WriteMethod can be nil ( temporarily) because this method is also called during constrution of a property. } procedure UpdateAttributeMembers(const P: IMMProperty); stdcall; {: Gives the opportunity to disable InstantObjects integration. } property Available: Boolean read GetAvailable; end; IMMIOAttribute = interface (IUnknown) ['{496694D4-B26F-4649-8B09-91A3470CDC04}'] function GetIOStateField: IMMField; stdcall; function GetIsIOAttribute: Boolean; stdcall; {: Links field F to the property, this turns the property into a IOAttribute. Any exsiting IOStateField is unlinked and reduced to user owned. If linking fails (for example because already owned by another entity) False is returned. True is returned if the field was linked to the property. } function LinkIOStateField(const F: IMMField): Boolean; stdcall; {: Links member with MemberID to the property. Typically used to associate IOAccessMethods to the property. Linked members will be included in cut/copy/delete/move operations No other updates. User can edit all settings for the member. Do not pass IOStateField and MM property read/write method. Member must be in the same class as the property. Also, members owned by other entities cannot be linked. Returns True if member was linked successfully, else False LockedAttr is a bit set that defines what attributes should be disabled in the MM member dialog. Unlinking a member will auto reset the locked attributes to lmaNone } function LinkMember(MemberID: Integer): Boolean; stdcall; {: Unlinks the current IOStateField. This reduces the field to user owned (it can be deleted now through the MMToolsAPI or by the user). If no state field was linked nothing happens. } procedure UnlinkIOStateField; stdcall; {: Unlinks member with ID from the property. Reducing it to a user owned member. Call UnlinkMember before deleting a member! Do not pass IOStateField and MM property read/write method. } procedure UnlinkMember(MemberID: Integer); stdcall; {: All attributes of a IOStateField are blocked for editing. The only way of changing them is through this method. This method is usually called as a response on the IInstantObjectsExpert.UpdateAttributeMembers. } procedure UpdateIOStateField(const NewName, NewDataName: PChar); stdcall; {: The read/write access code in the Attribute's read and write method is blocked for editing. The only way of changing it is through this method. This method is usually called as a response on the IInstantObjectsExpert.UpdateAttributeMembers. } procedure UpdateMethodAccessCode(const ReadCode, WriteCode: PChar); stdcall; {: Retruns the currently linked IO state field. } property IOStateField: IMMField read GetIOStateField; {: Returns True if the property is linked to a state field. } property IsIOAttribute: Boolean read GetIsIOAttribute; end; implementation end. --- NEW FILE: OFExpt.res --- (This appears to be a binary file; contents omitted.) --- NEW FILE: OF_readme.txt --- ObjectFoundry Readme by Carlo Wolter - 06/09/2004 This file contains compilation instructions for the Object Foundry integration between IO and ModelMaker(c) ModelMaker is an UML designer integrated with Delphi. It can be used also for InstantObject design, provided you place in the $(ProgramFiles)\ModelMakerTools\ModelMaker\6.2\Experts directory the OFExpt.dll expert. This DLL can be compiled using the project in this directory. Please take note that the project needs to know where the MM Expert files are. This requires to put in Project/Directories-Conditionals/SearchPath the subdir $(ProgramFiles)\ModelMakerTools\ModelMaker\x.x\Experts or the like. In this directory there is a single file needed: MMToolsApi.PAS This file being protected by copyright of ModelMakerTools cannot be put on CVS. Every rightful owner of a MM license, though, should have no problems to find it. Currently there are a few glitches, namely some missing glyph. I thought it would be better to allow starting the test in advance. Please make us know (email, forum) abouty any finding and problem. Thanks Carlo Wolter |
From: Andrea P. <and...@us...> - 2004-09-01 16:59:37
|
Update of /cvsroot/instantobjects/Source/Design In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv22445 Modified Files: iodesimages.res Log Message: Bug fixing : images in InstantAttributeEditor are wrong Index: iodesimages.res =================================================================== RCS file: /cvsroot/instantobjects/Source/Design/iodesimages.res,v retrieving revision 1.2 retrieving revision 1.3 diff -C2 -d -r1.2 -r1.3 Binary files /tmp/cvs0hZUPb and /tmp/cvsiUhy63 differ |
From: Andrea P. <and...@us...> - 2004-08-27 14:33:19
|
Update of /cvsroot/instantobjects/Source/Design In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv22122 Modified Files: InstantModelExplorer.pas Log Message: Bug fixing : some time the model explorer window does not appear Index: InstantModelExplorer.pas =================================================================== RCS file: /cvsroot/instantobjects/Source/Design/InstantModelExplorer.pas,v retrieving revision 1.3 retrieving revision 1.4 diff -C2 -d -r1.3 -r1.4 *** InstantModelExplorer.pas 20 Jul 2004 16:39:08 -0000 1.3 --- InstantModelExplorer.pas 27 Aug 2004 14:33:10 -0000 1.4 *************** *** 133,137 **** procedure ViewRelationsActionExecute(Sender: TObject); procedure ViewSourceActionExecute(Sender: TObject); - procedure FormCreate(Sender: TObject); private FError: TInstantModelError; --- 133,136 ---- *************** *** 284,287 **** --- 283,290 ---- begin inherited; + LoadMultipleImages(ActionImages, 'IO_MODELEXPLORERACTIONIMAGES', HInstance); + LoadMultipleImages(ModelImages, 'IO_MODELEXPLORERMODELIMAGES', HInstance); + LoadMultipleImages(AttributeImages, 'IO_MODELEXPLORERATTRIBUTEIMAGES', HInstance); + FModelView := TModelTreeView.Create(Self); with FModelView do *************** *** 296,300 **** {$ENDIF} OnChange := ModelViewChange; ! OnNodeDblClick := ModelViewNodeDblClick; OnGetImageIndex := ModelViewGetImageIndex; end; --- 299,303 ---- {$ENDIF} OnChange := ModelViewChange; ! OnNodeDblClick := ModelViewNodeDblClick; OnGetImageIndex := ModelViewGetImageIndex; end; *************** *** 761,771 **** end; - procedure TInstantModelExplorerForm.FormCreate(Sender: TObject); - begin - LoadMultipleImages(ActionImages, 'IO_MODELEXPLORERACTIONIMAGES', HInstance); - LoadMultipleImages(ModelImages, 'IO_MODELEXPLORERMODELIMAGES', HInstance); - LoadMultipleImages(AttributeImages, 'IO_MODELEXPLORERATTRIBUTEIMAGES', HInstance); - end; - initialization ModelExplorer := nil; --- 764,767 ---- |
From: Carlo B. <car...@us...> - 2004-08-23 09:55:36
|
Update of /cvsroot/instantobjects/Source/Core In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv22153/Source/Core Modified Files: InstantPersistence.pas InstantRtti.pas Log Message: InstantRTTI bug fixing, InstantADO bug-fixing, PerformanceView changed Index: InstantRtti.pas =================================================================== RCS file: /cvsroot/instantobjects/Source/Core/InstantRtti.pas,v retrieving revision 1.3 retrieving revision 1.4 diff -C2 -d -r1.3 -r1.4 *** InstantRtti.pas 29 Jul 2004 20:43:15 -0000 1.3 --- InstantRtti.pas 23 Aug 2004 09:55:20 -0000 1.4 *************** *** 401,418 **** end; PropInfo := PropInfos[Index]; - if GetTypeData(PropInfo^.PropType^).FloatType = ftCurr then - begin - CurrencyValue := GetFloatProp(FInstance, PropInfo); - Result := CurrencyValue; - end else if PropInfo^.PropType^^.Kind = tkFloat then begin ! Value := GetFloatProp(FInstance, PropInfo); ! if (PropInfo.PropType^ = TypeInfo(TDateTime)) ! or (PropInfo.PropType^ = TypeInfo(TDate)) ! or (PropInfo.PropType^ = TypeInfo(TTime)) then ! Result := VarFromDateTime(Value) ! else ! Result := Value; end else Result := GetPropValue(FInstance, Names[Index]); --- 401,420 ---- end; PropInfo := PropInfos[Index]; if PropInfo^.PropType^^.Kind = tkFloat then begin ! if GetTypeData(PropInfo^.PropType^).FloatType = ftCurr then ! begin ! CurrencyValue := GetFloatProp(FInstance, PropInfo); ! Result := CurrencyValue; ! end else ! begin ! Value := GetFloatProp(FInstance, PropInfo); ! if (PropInfo.PropType^ = TypeInfo(TDateTime)) ! or (PropInfo.PropType^ = TypeInfo(TDate)) ! or (PropInfo.PropType^ = TypeInfo(TTime)) then ! Result := VarFromDateTime(Value) ! else ! Result := Value; ! end end else Result := GetPropValue(FInstance, Names[Index]); Index: InstantPersistence.pas =================================================================== RCS file: /cvsroot/instantobjects/Source/Core/InstantPersistence.pas,v retrieving revision 1.5 retrieving revision 1.6 diff -C2 -d -r1.5 -r1.6 *** InstantPersistence.pas 5 Aug 2004 12:34:12 -0000 1.5 --- InstantPersistence.pas 23 Aug 2004 09:55:20 -0000 1.6 *************** *** 358,362 **** FModel: TInstantModel; FTableMetadataCollection: TInstantTableMetadatas; ! FBlobStreamFormat: TInstantStreamFormat; //CB function GetTableMetadataCollection: TInstantTableMetadatas; function GetTableMetadatas(Index: Integer): TInstantTableMetadata; --- 358,362 ---- FModel: TInstantModel; FTableMetadataCollection: TInstantTableMetadatas; ! FBlobStreamFormat: TInstantStreamFormat; function GetTableMetadataCollection: TInstantTableMetadatas; function GetTableMetadatas(Index: Integer): TInstantTableMetadata; *************** *** 375,379 **** property TableMetadataCount: Integer read GetTableMetadataCount; property TableMetadatas[Index: Integer]: TInstantTableMetadata read GetTableMetadatas; ! property BlobStreamFormat: TInstantStreamFormat read FBlobStreamFormat write FBlobStreamFormat default sfBinary; //CB end; --- 375,379 ---- property TableMetadataCount: Integer read GetTableMetadataCount; property TableMetadatas[Index: Integer]: TInstantTableMetadata read GetTableMetadatas; ! property BlobStreamFormat: TInstantStreamFormat read FBlobStreamFormat write FBlobStreamFormat default sfBinary; end; *************** *** 748,753 **** destructor Destroy; override; procedure Assign(Source: TPersistent); override; ! procedure AssignPicture(Source: TPicture); //CB ! procedure AssignToPicture(Dest: TPicture); //CB procedure Clear; procedure LoadDataFromStream(AStream: TStream); --- 748,753 ---- destructor Destroy; override; procedure Assign(Source: TPersistent); override; ! procedure AssignPicture(Source: TPicture); ! procedure AssignToPicture(Dest: TPicture); procedure Clear; procedure LoadDataFromStream(AStream: TStream); *************** *** 768,772 **** end; - //CB TInstantGraphic = class(TInstantBlob) protected --- 768,771 ---- *************** *** 1244,1248 **** private FIsBuilt: Boolean; ! FBlobStreamFormat: TInstantStreamFormat; //CB protected function GetCaption: string; virtual; --- 1243,1247 ---- private FIsBuilt: Boolean; ! FBlobStreamFormat: TInstantStreamFormat; protected function GetCaption: string; virtual; *************** *** 1256,1260 **** published property IsBuilt: Boolean read FIsBuilt write FIsBuilt; ! property BlobStreamFormat: TInstantStreamFormat read FBlobStreamFormat write FBlobStreamFormat default sfBinary; //CB end; --- 1255,1259 ---- published property IsBuilt: Boolean read FIsBuilt write FIsBuilt; ! property BlobStreamFormat: TInstantStreamFormat read FBlobStreamFormat write FBlobStreamFormat default sfBinary; end; *************** *** 1289,1293 **** FBeforeBuildDatabase: TInstantSchemeEvent; FBeforeDisconnect: TNotifyEvent; ! FBlobStreamFormat: TInstantStreamFormat; //CB FOnGenerateId: TInstantGenerateIdEvent; procedure AbandonObjects; --- 1288,1292 ---- FBeforeBuildDatabase: TInstantSchemeEvent; FBeforeDisconnect: TNotifyEvent; ! FBlobStreamFormat: TInstantStreamFormat; FOnGenerateId: TInstantGenerateIdEvent; procedure AbandonObjects; *************** *** 1375,1379 **** property BeforeConnect: TNotifyEvent read FBeforeConnect write FBeforeConnect; property BeforeDisconnect: TNotifyEvent read FBeforeDisconnect write FBeforeDisconnect; ! property BlobStreamFormat: TInstantStreamFormat read FBlobStreamFormat write FBlobStreamFormat default sfBinary; //CB property OnGenerateId: TInstantGenerateIdEvent read FOnGenerateId write FOnGenerateId; end; --- 1374,1378 ---- property BeforeConnect: TNotifyEvent read FBeforeConnect write FBeforeConnect; property BeforeDisconnect: TNotifyEvent read FBeforeDisconnect write FBeforeDisconnect; ! property BlobStreamFormat: TInstantStreamFormat read FBlobStreamFormat write FBlobStreamFormat default sfBinary; property OnGenerateId: TInstantGenerateIdEvent read FOnGenerateId write FOnGenerateId; end; *************** *** 1531,1535 **** public constructor Create(AConnector: TInstantConnector); virtual; ! destructor destroy; override; procedure BuildDatabase(Scheme: TInstantScheme); function CreateQuery: TInstantQuery; --- 1530,1534 ---- public constructor Create(AConnector: TInstantConnector); virtual; ! destructor destroy; override; procedure BuildDatabase(Scheme: TInstantScheme); function CreateQuery: TInstantQuery; *************** *** 1813,1817 **** procedure SetLoginPrompt(const Value: boolean); protected ! procedure AssignLoginOptions; virtual;//CB procedure AfterConnectionChange; virtual; procedure BeforeConnectionChange; virtual; --- 1812,1816 ---- procedure SetLoginPrompt(const Value: boolean); protected ! procedure AssignLoginOptions; virtual; procedure AfterConnectionChange; virtual; procedure BeforeConnectionChange; virtual; *************** *** 1821,1829 **** procedure InternalDisconnect; override; procedure Notification(AComponent: TComponent; Operation: TOperation); override; - property Connection: TCustomConnection read GetConnection write SetConnection; public function HasConnection: Boolean; constructor Create(AOwner : TComponent); override; ! property LoginPrompt: boolean read FLoginPrompt write SetLoginPrompt default True; //CB end; --- 1820,1828 ---- procedure InternalDisconnect; override; procedure Notification(AComponent: TComponent; Operation: TOperation); override; public + property Connection: TCustomConnection read GetConnection write SetConnection; function HasConnection: Boolean; constructor Create(AOwner : TComponent); override; ! property LoginPrompt: boolean read FLoginPrompt write SetLoginPrompt default True; end; *************** *** 1837,1841 **** constructor Create(Collection: TCollection); override; published ! property LoginPrompt: boolean read FLoginPrompt write FLoginPrompt default True; //CB end; --- 1836,1840 ---- constructor Create(Collection: TCollection); override; published ! property LoginPrompt: boolean read FLoginPrompt write FLoginPrompt default True; end; *************** *** 2062,2066 **** FGenerator: TInstantSQLGenerator; FResolverList: TObjectList; ! FUsePreparedQuery : boolean; //CB function GetResolverList: TObjectList; function GetResolverCount: Integer; --- 2061,2065 ---- FGenerator: TInstantSQLGenerator; FResolverList: TObjectList; ! FUsePreparedQuery : boolean; function GetResolverList: TObjectList; function GetResolverCount: Integer; *************** *** 2072,2079 **** procedure InternalBuildDatabase(Scheme: TInstantScheme); override; property ResolverList: TObjectList read GetResolverList; ! procedure PrepareQuery(DataSet : TDataSet); virtual; //CB ! function ExecuteQuery(DataSet : TDataSet) : integer; virtual; //CB ! procedure UnprepareQuery(DataSet : TDataSet); virtual; //CB ! procedure AssignDataSetParams(DataSet : TDataSet; AParams: TParams); virtual; //CB public destructor Destroy; override; --- 2071,2078 ---- procedure InternalBuildDatabase(Scheme: TInstantScheme); override; property ResolverList: TObjectList read GetResolverList; ! procedure PrepareQuery(DataSet : TDataSet); virtual; ! function ExecuteQuery(DataSet : TDataSet) : integer; virtual; ! procedure UnprepareQuery(DataSet : TDataSet); virtual; ! procedure AssignDataSetParams(DataSet : TDataSet; AParams: TParams); virtual; public destructor Destroy; override; *************** *** 2086,2090 **** property ResolverCount: Integer read GetResolverCount; property Resolvers[Index: Integer]: TInstantSQLResolver read GetResolvers; ! property UsePreparedQuery : boolean read FUsePreparedQuery write FUsePreparedQuery; //CB end; --- 2085,2089 ---- property ResolverCount: Integer read GetResolverCount; property Resolvers[Index: Integer]: TInstantSQLResolver read GetResolvers; ! property UsePreparedQuery : boolean read FUsePreparedQuery write FUsePreparedQuery; end; *************** *** 2099,2107 **** FUpdateConcurrentSQL: string; - //CB FPreparedDataSet : TDataSet; LastStatement : string; LastConnector : TObject; ! function CreatePreparedQuery(const AStatement: string; AParams: TParams = nil): TDataSet; //CB procedure AddIntegerParam(Params: TParams; const ParamName: string; Value: Integer); --- 2098,2105 ---- FUpdateConcurrentSQL: string; FPreparedDataSet : TDataSet; LastStatement : string; LastConnector : TObject; ! function CreatePreparedQuery(const AStatement: string; AParams: TParams = nil): TDataSet; procedure AddIntegerParam(Params: TParams; const ParamName: string; Value: Integer); *************** *** 2154,2158 **** public constructor Create(ABroker: TInstantSQLBroker; AMap: TInstantAttributeMap); ! destructor Destroy; override; //CB property Broker: TInstantSQLBroker read GetBroker; property DeleteConcurrentSQL: string read GetDeleteConcurrentSQL write FDeleteConcurrentSQL; --- 2152,2156 ---- public constructor Create(ABroker: TInstantSQLBroker; AMap: TInstantAttributeMap); ! destructor Destroy; override; property Broker: TInstantSQLBroker read GetBroker; property DeleteConcurrentSQL: string read GetDeleteConcurrentSQL write FDeleteConcurrentSQL; *************** *** 2163,2167 **** property UpdateConcurrentSQL: string read GetUpdateConcurrentSQL write FUpdateConcurrentSQL; property UpdateSQL: string read GetUpdateSQL write FUpdateSQL; ! property UsePreparedQuery : boolean read GetUsePreparedQuery; //CB end; --- 2161,2165 ---- property UpdateConcurrentSQL: string read GetUpdateConcurrentSQL write FUpdateConcurrentSQL; property UpdateSQL: string read GetUpdateSQL write FUpdateSQL; ! property UsePreparedQuery : boolean read GetUsePreparedQuery; end; *************** *** 2306,2312 **** end; ! procedure AssignInstantStreamFormat(StringList : TStrings); //CB function InstantAttributeTypeToDataType(AttributeType: TInstantAttributeType; ! BlobStreamFormat: TInstantStreamFormat = sfBinary): TInstantDataType; //CB function InstantConnectorClasses: TList; procedure InstantCheckConnection(Connection: TCustomConnection); --- 2304,2310 ---- end; ! procedure AssignInstantStreamFormat(StringList : TStrings); function InstantAttributeTypeToDataType(AttributeType: TInstantAttributeType; ! BlobStreamFormat: TInstantStreamFormat = sfBinary): TInstantDataType; function InstantConnectorClasses: TList; procedure InstantCheckConnection(Connection: TCustomConnection); *************** *** 2333,2337 **** procedure InstantUnregisterClasses(AClasses: array of TInstantObjectClass); ! function InstantResolveGraphicFileType(AStream: TStream ): TInstantGraphicFileFormat; //CB procedure InstantRegisterGraphicClass(InstantGraphicFileFormat : TInstantGraphicFileFormat; AGraphicClass: TGraphicClass); --- 2331,2335 ---- procedure InstantUnregisterClasses(AClasses: array of TInstantObjectClass); ! function InstantResolveGraphicFileType(AStream: TStream ): TInstantGraphicFileFormat; procedure InstantRegisterGraphicClass(InstantGraphicFileFormat : TInstantGraphicFileFormat; AGraphicClass: TGraphicClass); *************** *** 2365,2369 **** ConnectorClasses: TList; ClassList: TList; ! GraphicClassList: array[TInstantGraphicFileFormat] OF TGraphicClass; //CB RuntimeModel: TInstantModel; ObjectNotifiers: TInstantObjectNotifiers; --- 2363,2367 ---- ConnectorClasses: TList; ClassList: TList; ! GraphicClassList: array[TInstantGraphicFileFormat] OF TGraphicClass; RuntimeModel: TInstantModel; ObjectNotifiers: TInstantObjectNotifiers; *************** *** 2408,2412 **** { Global routines } ! procedure AssignInstantStreamFormat(StringList : TStrings); //CB var i : TInstantStreamFormat; --- 2406,2410 ---- { Global routines } ! procedure AssignInstantStreamFormat(StringList : TStrings); var i : TInstantStreamFormat; *************** *** 8038,8042 **** procedure TInstantObject.SaveState; begin - //CB: bug fixing if State.PersistentId = '' then Exit; --- 8036,8039 ---- *************** *** 8205,8209 **** procedure TInstantConnectionDef.InitConnector(Connector: TInstantConnector); begin ! Connector.BlobStreamFormat := BlobStreamFormat; //CB end; --- 8202,8206 ---- procedure TInstantConnectionDef.InitConnector(Connector: TInstantConnector); begin ! Connector.BlobStreamFormat := BlobStreamFormat; end; *************** *** 10916,10921 **** try (Connector as TInstantConnectionBasedConnector).Connection := Connection; ! (Connector as TInstantConnectionBasedConnector).BlobStreamFormat := BlobStreamFormat; //CB ! (Connector as TInstantConnectionBasedConnector).LoginPrompt := LoginPrompt; //CB except Connection.Free; --- 10913,10918 ---- try (Connector as TInstantConnectionBasedConnector).Connection := Connection; ! (Connector as TInstantConnectionBasedConnector).BlobStreamFormat := BlobStreamFormat; ! (Connector as TInstantConnectionBasedConnector).LoginPrompt := LoginPrompt; except Connection.Free; *************** *** 12454,12458 **** try (Attribute as TInstantPart).SaveObjectToStream(Stream); - //CB if Broker.Connector.BlobStreamFormat = sfBinary then AddBlobParam(FieldName, Stream.DataString) --- 12451,12454 ---- *************** *** 12471,12475 **** try (Attribute as TInstantParts).SaveObjectsToStream(Stream); - //CB if Broker.Connector.BlobStreamFormat = sfBinary then AddBlobParam(FieldName, Stream.DataString) --- 12467,12470 ---- *************** *** 12498,12502 **** try (Attribute as TInstantReferences).SaveReferencesToStream(Stream); - //CB if Broker.Connector.BlobStreamFormat = sfBinary then AddBlobParam(FieldName, Stream.DataString) --- 12493,12496 ---- *************** *** 12668,12671 **** --- 12662,12666 ---- DataSet : TDataSet; begin + Result := 0; try if not UsePreparedQuery then *************** *** 12796,12800 **** try AddBaseParams(Params, AObject.ClassName, AObjectId); - //CB if not UsePreparedQuery then DataSet := Broker.CreateDataSet(SelectSQL, Params) --- 12791,12794 ---- *************** *** 12837,12841 **** RemovePersistentIdParam(Params); end; ! RowsAffected := ExecuteStatement(InsertSQL, Params, Info, ConflictAction, AObject); //CB end; --- 12831,12835 ---- RemovePersistentIdParam(Params); end; ! RowsAffected := ExecuteStatement(InsertSQL, Params, Info, ConflictAction, AObject); end; |
From: Carlo B. <car...@us...> - 2004-08-23 09:55:34
|
Update of /cvsroot/instantobjects/Demos/PrimerCross In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv22153/Demos/PrimerCross Modified Files: PerformanceView.dfm PerformanceView.pas Log Message: InstantRTTI bug fixing, InstantADO bug-fixing, PerformanceView changed Index: PerformanceView.pas =================================================================== RCS file: /cvsroot/instantobjects/Demos/PrimerCross/PerformanceView.pas,v retrieving revision 1.2 retrieving revision 1.3 diff -C2 -d -r1.2 -r1.3 *** PerformanceView.pas 29 Jul 2004 20:43:09 -0000 1.2 --- PerformanceView.pas 23 Aug 2004 09:55:19 -0000 1.3 *************** *** 72,81 **** procedure BeginMeasure; procedure EndMeasure(MeasureType: TMeasureType; Count: Integer); ! procedure Run(Store, Retrieve, Dispose : boolean); virtual; abstract; property Stopwatch: TStopwatch read GetStopwatch; property TestResult: TTestResult read GetTestResult; public destructor Destroy; override; ! procedure Execute(Store, Retrieve, Dispose : boolean); function ExtractResult: TTestResult; property OnShowStatus: TShowStatusEvent read FOnShowStatus write FOnShowStatus; --- 72,81 ---- procedure BeginMeasure; procedure EndMeasure(MeasureType: TMeasureType; Count: Integer); ! procedure Run(Retrieve, Dispose : boolean); virtual; abstract; property Stopwatch: TStopwatch read GetStopwatch; property TestResult: TTestResult read GetTestResult; public destructor Destroy; override; ! procedure Execute(Retrieve, Dispose : boolean); function ExtractResult: TTestResult; property OnShowStatus: TShowStatusEvent read FOnShowStatus write FOnShowStatus; *************** *** 94,98 **** procedure Operation(Method: TMethod); protected ! procedure Run(Store, Retrieve, Dispose : boolean); override; property ObjectList: TStringList read GetObjectList; public --- 94,98 ---- procedure Operation(Method: TMethod); protected ! procedure Run(Retrieve, Dispose : boolean); override; property ObjectList: TStringList read GetObjectList; public *************** *** 125,129 **** NumberLabel: TLabel; ObjectsEdit: TMaskEdit; - TestStoreCheckBox: TCheckBox; TestRetrieveCheckBox: TCheckBox; TestDisposeCheckBox: TCheckBox; --- 125,128 ---- *************** *** 143,146 **** --- 142,147 ---- procedure TransactionsCheckBoxClick(Sender: TObject); procedure PreparedQueryCheckBoxClick(Sender: TObject); + procedure TestDisposeCheckBoxClick(Sender: TObject); + procedure TestRetrieveCheckBoxClick(Sender: TObject); private FTestResults: TTestResults; *************** *** 263,269 **** end; ! procedure TTest.Execute(Store, Retrieve, Dispose : boolean); begin ! Run(Store,Retrieve,Dispose); end; --- 264,270 ---- end; ! procedure TTest.Execute(Retrieve, Dispose : boolean); begin ! Run(Retrieve,Dispose); end; *************** *** 336,345 **** end; ! procedure TPersistenceTest.Run(Store, Retrieve, Dispose : boolean); begin ! Stopwatch.Start((Ord(Store)+Ord(Retrieve)+Ord(Dispose)) * Count); try ! if Store then ! Operation(TestStore); if Retrieve then Operation(TestRetrieve); --- 337,346 ---- end; ! procedure TPersistenceTest.Run(Retrieve, Dispose : boolean); begin ! Stopwatch.Start((1+Ord(Retrieve)+Ord(Dispose)) * Count); try ! //Test always store operations (necessary to test retrieve and dispose) ! Operation(TestStore); if Retrieve then Operation(TestRetrieve); *************** *** 484,488 **** OnShowStatus := TestShowStatus; Count := StrToInt(Trim(ObjectsEdit.text)); ! Execute(TestStoreCheckBox.Checked, TestRetrieveCheckBox.Checked, TestDisposeCheckBox.Checked); AResult := ExtractResult; AResult.Name := ConnectionName; --- 485,489 ---- OnShowStatus := TestShowStatus; Count := StrToInt(Trim(ObjectsEdit.text)); ! Execute(TestRetrieveCheckBox.Checked, TestDisposeCheckBox.Checked); AResult := ExtractResult; AResult.Name := ConnectionName; *************** *** 637,641 **** TransactionsCheckBox.Checked := IsConnected and Connector.UseTransactions; ObjectsEdit.Enabled := IsConnected; - TestStoreCheckBox.Enabled := IsConnected; TestRetrieveCheckBox.Enabled := IsConnected; TestDisposeCheckBox.Enabled := IsConnected; --- 638,641 ---- *************** *** 676,679 **** --- 676,693 ---- end; + procedure TPerformanceViewForm.TestDisposeCheckBoxClick(Sender: TObject); + begin + inherited; + if TestDisposeCheckBox.Checked then + TestRetrieveCheckBox.Checked := True; + end; + + procedure TPerformanceViewForm.TestRetrieveCheckBoxClick(Sender: TObject); + begin + inherited; + if not TestRetrieveCheckBox.Checked then + TestDisposeCheckBox.Checked := False; + end; + initialization RegisterClasses([TTestResults, TTestResult]); Index: PerformanceView.dfm =================================================================== RCS file: /cvsroot/instantobjects/Demos/PrimerCross/PerformanceView.dfm,v retrieving revision 1.2 retrieving revision 1.3 diff -C2 -d -r1.2 -r1.3 *** PerformanceView.dfm 29 Jul 2004 20:43:09 -0000 1.2 --- PerformanceView.dfm 23 Aug 2004 09:55:19 -0000 1.3 *************** *** 1,10 **** inherited PerformanceViewForm: TPerformanceViewForm ! Width = 655 ! Height = 455 object ClientPanel: TPanel Left = 0 Top = 0 ! Width = 655 ! Height = 455 Align = alClient BevelOuter = bvNone --- 1,10 ---- inherited PerformanceViewForm: TPerformanceViewForm ! Width = 749 ! Height = 564 object ClientPanel: TPanel Left = 0 Top = 0 ! Width = 749 ! Height = 564 Align = alClient BevelOuter = bvNone *************** *** 15,20 **** Left = 0 Top = 0 ! Width = 651 ! Height = 121 Align = alTop BevelOuter = bvNone --- 15,20 ---- Left = 0 Top = 0 ! Width = 745 ! Height = 113 Align = alTop BevelOuter = bvNone *************** *** 30,35 **** object InfoBevel: TBevel Left = 0 ! Top = 112 ! Width = 651 Height = 9 Align = alBottom --- 30,35 ---- object InfoBevel: TBevel Left = 0 ! Top = 104 ! Width = 745 Height = 9 Align = alBottom *************** *** 37,41 **** end object ConnectionLabel: TLabel ! Left = 292 Top = 4 Width = 132 --- 37,41 ---- end object ConnectionLabel: TLabel ! Left = 188 Top = 4 Width = 132 *************** *** 86,104 **** end object NumberLabel: TLabel ! Left = 55 ! Top = 96 ! Width = 74 Height = 13 ! Alignment = taRightJustify ! Caption = '&Objects for test:' FocusControl = ObjectsEdit end object RunButton: TButton ! Left = 192 ! Top = 92 Width = 73 Height = 25 Caption = '&Run Now' ! TabOrder = 7 OnClick = RunButtonClick end --- 86,103 ---- end object NumberLabel: TLabel ! Left = 4 ! Top = 68 ! Width = 77 Height = 13 ! Caption = '&Objects to store:' FocusControl = ObjectsEdit end object RunButton: TButton ! Left = 404 ! Top = 68 Width = 73 Height = 25 Caption = '&Run Now' ! TabOrder = 6 OnClick = RunButtonClick end *************** *** 106,111 **** Left = 40 Top = 20 ! Width = 401 ! Height = 69 TabStop = False Enabled = False --- 105,110 ---- Left = 40 Top = 20 ! Width = 697 ! Height = 45 TabStop = False Enabled = False *************** *** 113,131 **** 'This page allows you to run a performance test on the current co' + ! 'nnection.' ! ! 'The performance test will measure the speed of store, retrieve a' + ! 'nd dispose ' ! 'operations.' ! 'Test results can be compared to other connections in the chart b' + ! 'elow.') ReadOnly = True TabOrder = 0 end object TransactionsCheckBox: TCheckBox ! Left = 445 ! Top = 24 ! Width = 129 Height = 17 Caption = 'Use &Transactions' --- 112,127 ---- 'This page allows you to run a performance test on the current co' + ! 'nnection. The performance test will measure the speed of store, ' + ! 'retrieve and ' ! 'dispose operations. Test results can be compared to other connec' + ! 'tions in the chart below.') ReadOnly = True TabOrder = 0 end object TransactionsCheckBox: TCheckBox ! Left = 233 ! Top = 68 ! Width = 140 Height = 17 Caption = 'Use &Transactions' *************** *** 134,140 **** end object PreparedQueryCheckBox: TCheckBox ! Left = 445 ! Top = 40 ! Width = 152 Height = 17 Caption = 'Use &Prepared Queries' --- 130,136 ---- end object PreparedQueryCheckBox: TCheckBox ! Left = 233 ! Top = 84 ! Width = 140 Height = 17 Caption = 'Use &Prepared Queries' *************** *** 143,149 **** end object ObjectsEdit: TMaskEdit ! Left = 132 ! Top = 94 ! Width = 53 Height = 21 EditMask = '#########;1; ' --- 139,145 ---- end object ObjectsEdit: TMaskEdit ! Left = 4 ! Top = 82 ! Width = 73 Height = 21 EditMask = '#########;1; ' *************** *** 152,168 **** Text = '500 ' end - object TestStoreCheckBox: TCheckBox - Left = 445 - Top = 64 - Width = 100 - Height = 17 - Caption = 'Test Store' - Checked = True - State = cbChecked - TabOrder = 4 - end object TestRetrieveCheckBox: TCheckBox ! Left = 445 ! Top = 80 Width = 100 Height = 17 --- 148,154 ---- Text = '500 ' end object TestRetrieveCheckBox: TCheckBox ! Left = 101 ! Top = 68 Width = 100 Height = 17 *************** *** 170,178 **** Checked = True State = cbChecked ! TabOrder = 5 end object TestDisposeCheckBox: TCheckBox ! Left = 445 ! Top = 96 Width = 100 Height = 17 --- 156,165 ---- Checked = True State = cbChecked ! TabOrder = 4 ! OnClick = TestRetrieveCheckBoxClick end object TestDisposeCheckBox: TCheckBox ! Left = 101 ! Top = 84 Width = 100 Height = 17 *************** *** 180,191 **** Checked = True State = cbChecked ! TabOrder = 6 end end object ResultPanel: TPanel Left = 0 ! Top = 121 ! Width = 651 ! Height = 330 Align = alClient BevelOuter = bvNone --- 167,179 ---- Checked = True State = cbChecked ! TabOrder = 5 ! OnClick = TestDisposeCheckBoxClick end end object ResultPanel: TPanel Left = 0 ! Top = 113 ! Width = 745 ! Height = 447 Align = alClient BevelOuter = bvNone *************** *** 195,199 **** Top = 0 Width = 209 ! Height = 330 Align = alLeft BevelOuter = bvNone --- 183,187 ---- Top = 0 Width = 209 ! Height = 447 Align = alLeft BevelOuter = bvNone *************** *** 204,208 **** Top = 4 Width = 201 ! Height = 322 Align = alClient Checkboxes = True --- 192,196 ---- Top = 4 Width = 201 ! Height = 439 Align = alClient Checkboxes = True *************** *** 222,227 **** Left = 209 Top = 0 ! Width = 442 ! Height = 330 Align = alClient BevelOuter = bvNone --- 210,215 ---- Left = 209 Top = 0 ! Width = 536 ! Height = 447 Align = alClient BevelOuter = bvNone *************** *** 230,235 **** Left = 0 Top = 0 ! Width = 442 ! Height = 330 BackWall.Brush.Color = clWhite LeftWall.Color = clWhite --- 218,223 ---- Left = 0 Top = 0 ! Width = 536 ! Height = 447 BackWall.Brush.Color = clWhite LeftWall.Color = clWhite |
From: Carlo B. <car...@us...> - 2004-08-23 09:55:33
|
Update of /cvsroot/instantobjects/Source/Brokers/ADO In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv22153/Source/Brokers/ADO Modified Files: InstantADO.pas Log Message: InstantRTTI bug fixing, InstantADO bug-fixing, PerformanceView changed Index: InstantADO.pas =================================================================== RCS file: /cvsroot/instantobjects/Source/Brokers/ADO/InstantADO.pas,v retrieving revision 1.3 retrieving revision 1.4 diff -C2 -d -r1.3 -r1.4 *** InstantADO.pas 4 Aug 2004 22:43:39 -0000 1.3 --- InstantADO.pas 23 Aug 2004 09:55:20 -0000 1.4 *************** *** 172,179 **** function GetSQLQuote: Char; override; function InternalCreateQuery: TInstantQuery; override; ! procedure PrepareQuery(DataSet : TDataSet); override; //CB ! procedure UnprepareQuery(DataSet : TDataSet); override; //CB ! function ExecuteQuery(DataSet : TDataSet) : integer; override; //CB ! procedure AssignDataSetParams(DataSet : TDataSet; AParams: TParams); override; //CB public function CreateDataSet(const Statement: string; Params: TParams): TDataSet; override; --- 172,179 ---- function GetSQLQuote: Char; override; function InternalCreateQuery: TInstantQuery; override; ! procedure PrepareQuery(DataSet : TDataSet); override; ! procedure UnprepareQuery(DataSet : TDataSet); override; ! function ExecuteQuery(DataSet : TDataSet) : integer; override; ! procedure AssignDataSetParams(DataSet : TDataSet; AParams: TParams); override; public function CreateDataSet(const Statement: string; Params: TParams): TDataSet; override; *************** *** 622,626 **** begin if Assigned(Scheme) then ! Scheme.BlobStreamFormat := BlobStreamFormat; //CB case BuildMethod of bmDefault: --- 622,626 ---- begin if Assigned(Scheme) then ! Scheme.BlobStreamFormat := BlobStreamFormat; case BuildMethod of bmDefault: *************** *** 716,720 **** Scheme: TInstantScheme); begin ! Scheme.BlobStreamFormat := BlobStreamFormat; //CB DoBuildDatabase(Scheme, bmDefault); end; --- 716,720 ---- Scheme: TInstantScheme); begin ! Scheme.BlobStreamFormat := BlobStreamFormat; DoBuildDatabase(Scheme, bmDefault); end; *************** *** 801,805 **** begin LocateSet := RecordSet.Clone(adLockReadOnly); ! Criteria := Format('%s=''%s''', [InstantIdFieldName, AObjectId]); SkipCount := 0; Result := False; --- 801,805 ---- begin LocateSet := RecordSet.Clone(adLockReadOnly); ! Criteria := Format('%s=%s', [InstantIdFieldName, InstantQuote(AObjectId,'''')]); SkipCount := 0; Result := False; *************** *** 1121,1126 **** Query := TADOQuery.Create(nil); try ! Query.SQL.Text := Statement; ! AssignParameters(Params, Query.Parameters); Query.CursorType := ctOpenForwardOnly; Query.LockType := ltReadOnly; --- 1121,1126 ---- Query := TADOQuery.Create(nil); try ! Query.SQL.Text := AStatement; ! AssignParameters(AParams, Query.Parameters); Query.CursorType := ctOpenForwardOnly; Query.LockType := ltReadOnly; |
From: Nando D. <na...@us...> - 2004-08-07 09:54:31
|
Update of /cvsroot/instantobjects/Docs In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv24630 Added Files: Maintainers.txt Log Message: Current list of maintainers for the modules of InstantObjects --- NEW FILE: Maintainers.txt --- This document lists the maintainers for the different parts of the InstantObject projects. A maintainer is someone that makes sure his module compiles and works after changes made by him and other developers to other modules it depends upon. It is particularly important to find maintainers for seldom-used brokers and/or Delphi versions, since the development on the core modules mainly happens on Delphi 7. So, if you have the equipment and the will to take on one or more currently orphaned modules, feel free to add your name to one of the empty cells in the following table. People whose name is marked with a '?' are encouraged to delete the '?' in case they accept the role or take out their name in case they don't. -- Nando Dessena ---------------------------------------------------------------------- List of maintainers ---------------------------------------------------------------------- Component Maintainer ---------------------------------------------------------------------- IOCore (D7) Nando Dessena IOCore (D6) Nando Dessena (help wanted!) IOCore (D5) Femi Fadayomi? IOCore (K3) Carlo Barazzetta? Andrea Petrelli? DclIOCore (D7) Nando Dessena DclIOCore (D6) Nando Dessena (help wanted!) DclIOCore (D5) Femi Fadayomi? DclIOCore (K3) Carlo Barazzetta? Andrea Petrelli? ObjectFoundry Ron Grove ADO Broker (D7) Carlo Barazzetta ADO Broker (D6) Carlo Barazzetta ADO Broker (D5) ADS Broker (D7) ADS Broker (D6) ADS Broker (D5) BDE Broker (D7) BDE Broker (D6) BDE Broker (D5) DBISAM Broker (D7) Ron Grove DBISAM Broker (D6) Ron Grove DBISAM Broker (D5) DBX Broker (D7) Carlo Barazzetta? DBX Broker (D6) Carlo Barazzetta? DBX Broker (K3) Carlo Barazzetta? Andrea Petrelli? FlashFiler Broker (D7) FlashFiler Broker (D6) FlashFiler Broker (D5) IBX Broker (D7) Nando Dessena IBX Broker (D6) Nando Dessena (help wanted!) IBX Broker (D5) NexusDB Broker (D7) Carlo Wolter NexusDB Broker (D6) Carlo Wolter XML Broker (D7) Carlo Barazzetta XML Broker (D6) Carlo Barazzetta XML Broker (K3) Carlo Barazzetta ---------------------------------------------------------------------- |
From: Ron G. <rg...@us...> - 2004-08-06 21:24:13
|
Update of /cvsroot/instantobjects/Source/Brokers/DBISAM/D7 In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv17868 Added Files: DclDBISAM.cfg DclDBISAM.dcu DclDBISAM.dof DclDBISAM.dpk DclDBISAM.res IODBISAM.cfg IODBISAM.dcu IODBISAM.dof IODBISAM.dpk IODBISAM.res Log Message: These work with DBISAM v3.29 at least. I don't have v4 to test --- NEW FILE: IODBISAM.cfg --- -$A8 -$B- -$C+ -$D+ -$E- -$F- -$G+ -$H+ -$I+ -$J+ -$K- -$L+ -$M- -$N+ -$O+ -$P+ -$Q- -$R- -$S- -$T- -$U- -$V+ -$W- -$X+ -$YD -$Z1 -cg -AWinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE; -H+ -W+ -M -$M16384,1048576 -K$00400000 -LE"c:\d7\Projects\Bpl" -LN"c:\d7\Projects\Bpl" -Z --- NEW FILE: IODBISAM.dof --- [FileVersion] Version=7.0 [Compiler] A=8 B=0 C=1 D=1 E=0 F=0 G=1 H=1 I=1 J=1 K=0 L=1 M=0 N=1 O=1 P=1 Q=0 R=0 S=0 T=0 U=0 V=1 W=0 X=1 Y=1 Z=1 ShowHints=1 ShowWarnings=1 UnitAliases=WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE; NamespacePrefix= SymbolDeprecated=1 SymbolLibrary=1 SymbolPlatform=1 UnitLibrary=1 UnitPlatform=1 UnitDeprecated=1 HResultCompat=1 HidingMember=1 HiddenVirtual=1 Garbage=1 BoundsError=1 ZeroNilCompat=1 StringConstTruncated=1 ForLoopVarVarPar=1 TypedConstVarPar=1 AsgToTypedConst=1 CaseLabelRange=1 ForVariable=1 ConstructingAbstract=1 ComparisonFalse=1 ComparisonTrue=1 ComparingSignedUnsigned=1 CombiningSignedUnsigned=1 UnsupportedConstruct=1 FileOpen=1 FileOpenUnitSrc=1 BadGlobalSymbol=1 DuplicateConstructorDestructor=1 InvalidDirective=1 PackageNoLink=1 PackageThreadVar=1 ImplicitImport=1 HPPEMITIgnored=1 NoRetVal=1 UseBeforeDef=1 ForLoopVarUndef=1 UnitNameMismatch=1 NoCFGFileFound=1 MessageDirective=1 ImplicitVariants=1 UnicodeToLocale=1 LocaleToUnicode=1 ImagebaseMultiple=1 SuspiciousTypecast=1 PrivatePropAccessor=1 UnsafeType=1 UnsafeCode=1 UnsafeCast=1 [Linker] MapFile=0 OutputObjs=0 ConsoleApp=1 DebugInfo=0 RemoteSymbols=0 MinStackSize=16384 MaxStackSize=1048576 ImageBase=4194304 ExeDescription=InstantObjects DBISAM Run-Time Support (Delphi 7) [Directories] OutputDir= UnitOutputDir= PackageDLLOutputDir= PackageDCPOutputDir= SearchPath= Packages=vcl;rtl;vclx;VclSmp;vclshlctrls;dbrtl;adortl;vcldb;qrpt60;bdertl;vcldbx;dsnap;cds;bdecds;teeui;teedb;tee;teeqr;ibxpress;visualclx;visualdbclx;vclie;xmlrtl;inet;inetdbbde;inetdbxpress;inetdb;dbexpress;dbxcds;indy;LadderStat6;soaprtl;RemObjects_WebBroker_D6;RemObjects_Indy_D6;RemObjects_RODX_D6;RemObjects_BPDX_D6;DSUtil;DSVDB;kbmMWRunD6;CalWidgets30_D6;CalWidgets30_DBD6;CalWidgets30_Rpt_QR_D6 Conditionals= DebugSourceDirs= UsePackages=0 [Parameters] RunParams= HostApplication= Launcher= UseLauncher=0 DebugCWD= [Language] ActiveLang= ProjectLang= RootDir=C:\D6\Bin\ [Version Info] IncludeVerInfo=1 AutoIncBuild=0 MajorVer=1 MinorVer=7 Release=0 Build=0 Debug=0 PreRelease=0 Special=0 Private=0 DLL=0 Locale=1033 CodePage=1252 [Version Info Keys] CompanyName=InstantObjects.org FileDescription=InstantObjects DBISAM Run-Time Support (Delphi 6) FileVersion=1.7.0.0 InternalName= LegalCopyright= LegalTrademarks= OriginalFilename= ProductName=InstantObjects ProductVersion=1.7 Comments= [Excluded Packages] C:\Components\DA3\Dcu\D6\DataAbstract_IBXDriver_D6.bpl=RemObjects Data Abstract - InterBase Express Driver [HistoryLists\hlUnitAliases] Count=1 Item0=WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE; --- NEW FILE: DclDBISAM.dcu --- (This appears to be a binary file; contents omitted.) --- NEW FILE: IODBISAM.res --- (This appears to be a binary file; contents omitted.) --- NEW FILE: IODBISAM.dpk --- package IODBISAM; {$R *.res} {$ALIGN 8} {$ASSERTIONS ON} {$BOOLEVAL OFF} {$DEBUGINFO ON} {$EXTENDEDSYNTAX ON} {$IMPORTEDDATA ON} {$IOCHECKS ON} {$LOCALSYMBOLS ON} {$LONGSTRINGS ON} {$OPENSTRINGS ON} {$OPTIMIZATION ON} {$OVERFLOWCHECKS OFF} {$RANGECHECKS OFF} {$REFERENCEINFO ON} {$SAFEDIVIDE OFF} {$STACKFRAMES OFF} {$TYPEDADDRESS OFF} {$VARSTRINGCHECKS ON} {$WRITEABLECONST ON} {$MINENUMSIZE 1} {$IMAGEBASE $400000} {$DESCRIPTION 'InstantObjects DBISAM Run-Time Support (Delphi 7)'} {$LIBSUFFIX '_D7'} {$RUNONLY} {$IMPLICITBUILD OFF} requires vcl, vcldb, dbrtl, IOCore, db329d7r, vclx; contains InstantDBISAM in '..\InstantDBISAM.pas', InstantDBISAMConnectionDefEdit in '..\InstantDBISAMConnectionDefEdit.pas' {InstantDBISAMConnectionDefEditForm}; end. --- NEW FILE: IODBISAM.dcu --- (This appears to be a binary file; contents omitted.) --- NEW FILE: DclDBISAM.dof --- [FileVersion] Version=7.0 [Compiler] A=8 B=0 C=1 D=1 E=0 F=0 G=1 H=1 I=1 J=1 K=0 L=1 M=0 N=1 O=1 P=1 Q=0 R=0 S=0 T=0 U=0 V=1 W=0 X=1 Y=1 Z=1 ShowHints=1 ShowWarnings=1 UnitAliases=WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE; NamespacePrefix= SymbolDeprecated=1 SymbolLibrary=1 SymbolPlatform=1 UnitLibrary=1 UnitPlatform=1 UnitDeprecated=1 HResultCompat=1 HidingMember=1 HiddenVirtual=1 Garbage=1 BoundsError=1 ZeroNilCompat=1 StringConstTruncated=1 ForLoopVarVarPar=1 TypedConstVarPar=1 AsgToTypedConst=1 CaseLabelRange=1 ForVariable=1 ConstructingAbstract=1 ComparisonFalse=1 ComparisonTrue=1 ComparingSignedUnsigned=1 CombiningSignedUnsigned=1 UnsupportedConstruct=1 FileOpen=1 FileOpenUnitSrc=1 BadGlobalSymbol=1 DuplicateConstructorDestructor=1 InvalidDirective=1 PackageNoLink=1 PackageThreadVar=1 ImplicitImport=1 HPPEMITIgnored=1 NoRetVal=1 UseBeforeDef=1 ForLoopVarUndef=1 UnitNameMismatch=1 NoCFGFileFound=1 MessageDirective=1 ImplicitVariants=1 UnicodeToLocale=1 LocaleToUnicode=1 ImagebaseMultiple=1 SuspiciousTypecast=1 PrivatePropAccessor=1 UnsafeType=1 UnsafeCode=1 UnsafeCast=1 [Linker] MapFile=0 OutputObjs=0 ConsoleApp=1 DebugInfo=0 RemoteSymbols=0 MinStackSize=16384 MaxStackSize=1048576 ImageBase=4194304 ExeDescription=InstantObjects DBISAM Design-Time Support (Delphi 7) [Directories] OutputDir= UnitOutputDir= PackageDLLOutputDir= PackageDCPOutputDir= SearchPath= Packages=vcl;rtl;vclx;VclSmp;vclshlctrls;dbrtl;adortl;vcldb;qrpt60;bdertl;vcldbx;dsnap;cds;bdecds;teeui;teedb;tee;teeqr;ibxpress;visualclx;visualdbclx;vclie;xmlrtl;inet;inetdbbde;inetdbxpress;inetdb;dbexpress;dbxcds;indy;LadderStat6;soaprtl;RemObjects_WebBroker_D6;RemObjects_Indy_D6;RemObjects_RODX_D6;RemObjects_BPDX_D6;DSUtil;DSVDB;kbmMWRunD6;CalWidgets30_D6;CalWidgets30_DBD6;CalWidgets30_Rpt_QR_D6 Conditionals= DebugSourceDirs= UsePackages=0 [Parameters] RunParams= HostApplication= Launcher= UseLauncher=0 DebugCWD= [Language] ActiveLang= ProjectLang= RootDir=C:\D6\Bin\ [Version Info] IncludeVerInfo=1 AutoIncBuild=0 MajorVer=1 MinorVer=7 Release=0 Build=0 Debug=0 PreRelease=0 Special=0 Private=0 DLL=0 Locale=1033 CodePage=1252 [Version Info Keys] CompanyName=InstantObjects FileDescription=InstantObjects DBISAM Design-Time Support (Delphi 6) FileVersion=1.7.0.0 InternalName= LegalCopyright= LegalTrademarks= OriginalFilename= ProductName=InstantObjects ProductVersion=1.7 Comments= [Excluded Packages] C:\Components\DA3\Dcu\D6\DataAbstract_IBXDriver_D6.bpl=RemObjects Data Abstract - InterBase Express Driver [HistoryLists\hlUnitAliases] Count=1 Item0=WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE; --- NEW FILE: DclDBISAM.cfg --- -$A8 -$B- -$C+ -$D+ -$E- -$F- -$G+ -$H+ -$I+ -$J+ -$K- -$L+ -$M- -$N+ -$O+ -$P+ -$Q- -$R- -$S- -$T- -$U- -$V+ -$W- -$X+ -$YD -$Z1 -cg -AWinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE; -H+ -W+ -M -$M16384,1048576 -K$00400000 -LE"c:\d7\Projects\Bpl" -LN"c:\d7\Projects\Bpl" -Z --- NEW FILE: DclDBISAM.res --- (This appears to be a binary file; contents omitted.) --- NEW FILE: DclDBISAM.dpk --- package DclDBISAM; {$R *.res} {$R '..\InstantDBISAM.dcr'} {$ALIGN 8} {$ASSERTIONS ON} {$BOOLEVAL OFF} {$DEBUGINFO ON} {$EXTENDEDSYNTAX ON} {$IMPORTEDDATA ON} {$IOCHECKS ON} {$LOCALSYMBOLS ON} {$LONGSTRINGS ON} {$OPENSTRINGS ON} {$OPTIMIZATION ON} {$OVERFLOWCHECKS OFF} {$RANGECHECKS OFF} {$REFERENCEINFO ON} {$SAFEDIVIDE OFF} {$STACKFRAMES OFF} {$TYPEDADDRESS OFF} {$VARSTRINGCHECKS ON} {$WRITEABLECONST ON} {$MINENUMSIZE 1} {$IMAGEBASE $400000} {$DESCRIPTION 'InstantObjects DBISAM Design-Time Support (Delphi 7)'} {$LIBSUFFIX '_D7'} {$DESIGNONLY} {$IMPLICITBUILD OFF} requires vcl, vcldb, IOCore, IODBISAM; contains InstantDBISAMReg in '..\InstantDBISAMReg.pas'; end. |
From: Ron G. <rg...@us...> - 2004-08-06 21:23:13
|
Update of /cvsroot/instantobjects/Source/Brokers/DBISAM/D6 In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv17755 Added Files: DclDBISAM.cfg DclDBISAM.dcu DclDBISAM.dof DclDBISAM.dpk DclDBISAM.res IODBISAM.cfg IODBISAM.dcu IODBISAM.dof IODBISAM.dpk IODBISAM.res Log Message: These work with DBISAM v3.29 at least. I don't have v4 to test --- NEW FILE: IODBISAM.cfg --- -$A8 -$B- -$C+ -$D+ -$E- -$F- -$G+ -$H+ -$I+ -$J+ -$K- -$L+ -$M- -$N+ -$O+ -$P+ -$Q- -$R- -$S- -$T- -$U- -$V+ -$W- -$X+ -$YD -$Z1 -cg -AWinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE; -H+ -W+ -M -$M16384,1048576 -K$00400000 -LE"c:\d6\Projects\Bpl" -LN"c:\d6\Projects\Bpl" -Z --- NEW FILE: IODBISAM.dof --- [FileVersion] Version=6.0 [Compiler] A=8 B=0 C=1 D=1 E=0 F=0 G=1 H=1 I=1 J=1 K=0 L=1 M=0 N=1 O=1 P=1 Q=0 R=0 S=0 T=0 U=0 V=1 W=0 X=1 Y=1 Z=1 ShowHints=1 ShowWarnings=1 UnitAliases=WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE; [Linker] MapFile=0 OutputObjs=0 ConsoleApp=1 DebugInfo=0 RemoteSymbols=0 MinStackSize=16384 MaxStackSize=1048576 ImageBase=4194304 ExeDescription=InstantObjects DBISAM Run-Time Support (Delphi 6) [Directories] OutputDir= UnitOutputDir= PackageDLLOutputDir= PackageDCPOutputDir= SearchPath= Packages=vcl;rtl;vclx;VclSmp;vclshlctrls;dbrtl;adortl;vcldb;qrpt60;bdertl;vcldbx;dsnap;cds;bdecds;teeui;teedb;tee;teeqr;ibxpress;visualclx;visualdbclx;vclie;xmlrtl;inet;inetdbbde;inetdbxpress;inetdb;dbexpress;dbxcds;indy;LadderStat6;soaprtl;RemObjects_WebBroker_D6;RemObjects_Indy_D6;RemObjects_RODX_D6;RemObjects_BPDX_D6;DSUtil;DSVDB;kbmMWRunD6;CalWidgets30_D6;CalWidgets30_DBD6;CalWidgets30_Rpt_QR_D6 Conditionals= DebugSourceDirs= UsePackages=0 [Parameters] RunParams= HostApplication= Launcher= UseLauncher=0 DebugCWD= [Language] ActiveLang= ProjectLang= RootDir=C:\D6\Bin\ [Version Info] IncludeVerInfo=1 AutoIncBuild=0 MajorVer=1 MinorVer=7 Release=0 Build=0 Debug=0 PreRelease=0 Special=0 Private=0 DLL=0 Locale=1033 CodePage=1252 [Version Info Keys] CompanyName=InstantObjects.org FileDescription=InstantObjects DBISAM Run-Time Support (Delphi 6) FileVersion=1.7.0.0 InternalName= LegalCopyright= LegalTrademarks= OriginalFilename= ProductName=InstantObjects ProductVersion=1.7 Comments= [Excluded Packages] C:\Components\DA3\Dcu\D6\DataAbstract_IBXDriver_D6.bpl=RemObjects Data Abstract - InterBase Express Driver [HistoryLists\hlUnitAliases] Count=1 Item0=WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE; --- NEW FILE: DclDBISAM.dcu --- (This appears to be a binary file; contents omitted.) --- NEW FILE: IODBISAM.res --- (This appears to be a binary file; contents omitted.) --- NEW FILE: IODBISAM.dpk --- package IODBISAM; {$R *.res} {$ALIGN 8} {$ASSERTIONS ON} {$BOOLEVAL OFF} {$DEBUGINFO ON} {$EXTENDEDSYNTAX ON} {$IMPORTEDDATA ON} {$IOCHECKS ON} {$LOCALSYMBOLS ON} {$LONGSTRINGS ON} {$OPENSTRINGS ON} {$OPTIMIZATION ON} {$OVERFLOWCHECKS OFF} {$RANGECHECKS OFF} {$REFERENCEINFO ON} {$SAFEDIVIDE OFF} {$STACKFRAMES OFF} {$TYPEDADDRESS OFF} {$VARSTRINGCHECKS ON} {$WRITEABLECONST ON} {$MINENUMSIZE 1} {$IMAGEBASE $400000} {$DESCRIPTION 'InstantObjects DBISAM Run-Time Support (Delphi 6)'} {$LIBSUFFIX '_D6'} {$RUNONLY} {$IMPLICITBUILD OFF} requires vcl, vcldb, dbrtl, IOCore, db329d6r, vclx; contains InstantDBISAM in '..\InstantDBISAM.pas', InstantDBISAMConnectionDefEdit in '..\InstantDBISAMConnectionDefEdit.pas' {InstantDBISAMConnectionDefEditForm}; end. --- NEW FILE: IODBISAM.dcu --- (This appears to be a binary file; contents omitted.) --- NEW FILE: DclDBISAM.dof --- [FileVersion] Version=6.0 [Compiler] A=8 B=0 C=1 D=1 E=0 F=0 G=1 H=1 I=1 J=1 K=0 L=1 M=0 N=1 O=1 P=1 Q=0 R=0 S=0 T=0 U=0 V=1 W=0 X=1 Y=1 Z=1 ShowHints=1 ShowWarnings=1 UnitAliases=WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE; [Linker] MapFile=0 OutputObjs=0 ConsoleApp=1 DebugInfo=0 RemoteSymbols=0 MinStackSize=16384 MaxStackSize=1048576 ImageBase=4194304 ExeDescription=InstantObjects DBISAM Design-Time Support (Delphi 6) [Directories] OutputDir= UnitOutputDir= PackageDLLOutputDir= PackageDCPOutputDir= SearchPath= Packages=vcl;rtl;vclx;VclSmp;vclshlctrls;dbrtl;adortl;vcldb;qrpt60;bdertl;vcldbx;dsnap;cds;bdecds;teeui;teedb;tee;teeqr;ibxpress;visualclx;visualdbclx;vclie;xmlrtl;inet;inetdbbde;inetdbxpress;inetdb;dbexpress;dbxcds;indy;LadderStat6;soaprtl;RemObjects_WebBroker_D6;RemObjects_Indy_D6;RemObjects_RODX_D6;RemObjects_BPDX_D6;DSUtil;DSVDB;kbmMWRunD6;CalWidgets30_D6;CalWidgets30_DBD6;CalWidgets30_Rpt_QR_D6 Conditionals= DebugSourceDirs= UsePackages=0 [Parameters] RunParams= HostApplication= Launcher= UseLauncher=0 DebugCWD= [Language] ActiveLang= ProjectLang= RootDir=C:\D6\Bin\ [Version Info] IncludeVerInfo=1 AutoIncBuild=0 MajorVer=1 MinorVer=7 Release=0 Build=0 Debug=0 PreRelease=0 Special=0 Private=0 DLL=0 Locale=1033 CodePage=1252 [Version Info Keys] CompanyName=InstantObjects FileDescription=InstantObjects DBISAM Design-Time Support (Delphi 6) FileVersion=1.7.0.0 InternalName= LegalCopyright= LegalTrademarks= OriginalFilename= ProductName=InstantObjects ProductVersion=1.7 Comments= [Excluded Packages] C:\Components\DA3\Dcu\D6\DataAbstract_IBXDriver_D6.bpl=RemObjects Data Abstract - InterBase Express Driver [HistoryLists\hlUnitAliases] Count=1 Item0=WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE; --- NEW FILE: DclDBISAM.cfg --- -$A8 -$B- -$C+ -$D+ -$E- -$F- -$G+ -$H+ -$I+ -$J+ -$K- -$L+ -$M- -$N+ -$O+ -$P+ -$Q- -$R- -$S- -$T- -$U- -$V+ -$W- -$X+ -$YD -$Z1 -cg -AWinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE; -H+ -W+ -M -$M16384,1048576 -K$00400000 -LE"c:\d6\Projects\Bpl" -LN"c:\d6\Projects\Bpl" -Z --- NEW FILE: DclDBISAM.res --- (This appears to be a binary file; contents omitted.) --- NEW FILE: DclDBISAM.dpk --- package DclDBISAM; {$R *.res} {$R '..\InstantDBISAM.dcr'} {$ALIGN 8} {$ASSERTIONS ON} {$BOOLEVAL OFF} {$DEBUGINFO ON} {$EXTENDEDSYNTAX ON} {$IMPORTEDDATA ON} {$IOCHECKS ON} {$LOCALSYMBOLS ON} {$LONGSTRINGS ON} {$OPENSTRINGS ON} {$OPTIMIZATION ON} {$OVERFLOWCHECKS OFF} {$RANGECHECKS OFF} {$REFERENCEINFO ON} {$SAFEDIVIDE OFF} {$STACKFRAMES OFF} {$TYPEDADDRESS OFF} {$VARSTRINGCHECKS ON} {$WRITEABLECONST ON} {$MINENUMSIZE 1} {$IMAGEBASE $400000} {$DESCRIPTION 'InstantObjects DBISAM Design-Time Support (Delphi 6)'} {$LIBSUFFIX '_D6'} {$DESIGNONLY} {$IMPLICITBUILD OFF} requires vcl, vcldb, IOCore, IODBISAM; contains InstantDBISAMReg in '..\InstantDBISAMReg.pas'; end. |
From: Ron G. <rg...@us...> - 2004-08-06 20:55:34
|
Update of /cvsroot/instantobjects/Source/Brokers/DBISAM/D7 In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv12293/D7 Log Message: Directory /cvsroot/instantobjects/Source/Brokers/DBISAM/D7 added to the repository |
From: Ron G. <rg...@us...> - 2004-08-06 20:55:00
|
Update of /cvsroot/instantobjects/Source/Brokers/DBISAM/D6 In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv12178/D6 Log Message: Directory /cvsroot/instantobjects/Source/Brokers/DBISAM/D6 added to the repository |
From: Carlo W. <cw...@us...> - 2004-08-06 14:47:56
|
Update of /cvsroot/instantobjects/Source/Brokers/NexusDb/D7 In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv9758/Source/Brokers/NexusDb/D7 Added Files: ionx70.cfg ionx70.dof ionx70.dpk ionx70.res Log Message: Updated NexusDb Broker for D7 with "new" directory structure Added doc for CVS commit mailing list --- NEW FILE: ionx70.dof --- [FileVersion] Version=7.0 [Compiler] A=8 B=0 C=1 D=1 E=0 F=0 G=1 H=1 I=1 J=0 K=0 L=1 M=0 N=1 O=1 P=1 Q=0 R=0 S=0 T=0 U=0 V=1 W=0 X=1 Y=1 Z=1 ShowHints=1 ShowWarnings=1 UnitAliases=WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE; NamespacePrefix= SymbolDeprecated=1 SymbolLibrary=1 SymbolPlatform=1 UnitLibrary=1 UnitPlatform=1 UnitDeprecated=1 HResultCompat=1 HidingMember=1 HiddenVirtual=1 Garbage=1 BoundsError=1 ZeroNilCompat=1 StringConstTruncated=1 ForLoopVarVarPar=1 TypedConstVarPar=1 AsgToTypedConst=1 CaseLabelRange=1 ForVariable=1 ConstructingAbstract=1 ComparisonFalse=1 ComparisonTrue=1 ComparingSignedUnsigned=1 CombiningSignedUnsigned=1 UnsupportedConstruct=1 FileOpen=1 FileOpenUnitSrc=1 BadGlobalSymbol=1 DuplicateConstructorDestructor=1 InvalidDirective=1 PackageNoLink=1 PackageThreadVar=1 ImplicitImport=1 HPPEMITIgnored=1 NoRetVal=1 UseBeforeDef=1 ForLoopVarUndef=1 UnitNameMismatch=1 NoCFGFileFound=1 MessageDirective=1 ImplicitVariants=1 UnicodeToLocale=1 LocaleToUnicode=1 ImagebaseMultiple=1 SuspiciousTypecast=1 PrivatePropAccessor=1 UnsafeType=0 UnsafeCode=0 UnsafeCast=0 [Linker] MapFile=0 OutputObjs=0 ConsoleApp=1 DebugInfo=0 RemoteSymbols=0 MinStackSize=16384 MaxStackSize=1048576 ImageBase=4194304 ExeDescription=InstantObjects NexusDb support [Directories] OutputDir= UnitOutputDir= PackageDLLOutputDir= PackageDCPOutputDir= SearchPath=..\core Packages=vcl;rtl;vclx;indy;inet;xmlrtl;vclie;inetdbbde;inetdbxpress;dbrtl;dsnap;dsnapcon;vcldb;soaprtl;VclSmp;dbexpress;dbxcds;inetdb;bdertl;vcldbx;webdsnap;websnap;adortl;ibxpress;teeui;teedb;tee;dss;visualclx;visualdbclx;vclactnband;vclshlctrls;IntrawebDB_50_70;Intraweb_50_70;Rave50CLX;Rave50VCL;dclOffice2k;DJCL70;JVCL200_R70;qrpt;CS20Comps70;CSP20I70;iobde70;ioado70;iodbx70;Nexus100si70;Nexus1001x70;Nexus100sr70;Nexus100pv70;Nexus100sq70;Nexus100re70;Nexus100ts70;Nexus100tc70;Nexus100tn70;Nexus100tw70;Nexus100db70;Nexus100ch70;rbTDBC77;rbDIDE77;rbDAD77;rbUSER77;rbRCL77;rbDBDE77;rbBDE77;rbDB77;rbADO77;rbDBE77;rbIBE77;rbIDE77;rbCIDE77;rbRIDE77;rbRAP77;Rz252D70;Rz252N70;Nexus100ll70;Nexus100sd70;Nexus100st70;Nexus100pt70;ionx70 Conditionals= DebugSourceDirs= UsePackages=0 [Parameters] RunParams= HostApplication= Launcher= UseLauncher=0 DebugCWD= [Language] ActiveLang= ProjectLang= RootDir=C:\D7\Borland\Delphi7\Bin\ [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=1040 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] C:\Programmi\Borland\Delphi7\Projects\Bpl\CBVCL70.bpl=*** CBVCL Package Delphi 7: VCL components *** c:\programmi\borland\delphi7\Projects\Bpl\CBDesign70.bpl=*** Design-time property-editors Delphi 7 per CBVCL *** c:\programmi\borland\delphi7\Bin\DBXLISCOR70DCL.bpl=**** DBX Corelab design-time property-editors (FORWARD) for Delphi 7 ***** C:\Programmi\Borland\Delphi7\Bin\DBXLISCOR70CL.bpl=**** DBX Corelab Components (FORWARD) for Delphi 7 ***** c:\programmi\borland\delphi7\Bin\LISCOR70.bpl=**** Liscor Components (FORWARD) for Delphi 7 ***** c:\programmi\borland\delphi7\Bin\LISCOR70D.bpl=**** Liscor design-time property-editors (FORWARD) for Delphi 7 ***** c:\programmi\borland\delphi7\Bin\LSFORMS70.bpl=**** Liscor Forms Repository (FORWARD) for Delphi 7 ***** c:\programmi\borland\delphi7\Bin\DBXLSFORMS70CL.bpl=**** DBX Corelab Forms Repository (FORWARD) for Delphi 7 ***** c:\programmi\borland\delphi7\Projects\Bpl\CBRBuilderVCL.bpl=*** CBRBuilderVCL ReportBuilder VCL Support *** c:\programmi\borland\delphi7\Projects\Bpl\CBXslFop70.bpl=*** CBXSLFOP Package Delphi 7: XSL & FOP utilities *** c:\programmi\borland\delphi7\Projects\Bpl\CBCLX70.bpl=*** CBCLX Package Delphi 7: CLX components *** c:\programmi\borland\delphi7\Bin\POSDBXLISCOR70CL.bpl=**** DBX Corelab Components (SPORTELLO) for Delphi 7 ***** c:\programmi\borland\delphi7\Projects\Bpl\isAceVCL70.bpl=*** IS Ace Reporter VCL Delphi7 Library *** c:\programmi\borland\delphi7\Projects\Bpl\OOoPackage70.bpl=* OpenOffice.org Components * C:\Programmi\IntraWeb\Delphi\Arcana\IWDialogs\LibD7\dclArcIWDialogs_d7_51.bpl=Arcana IW Dialogs (Design Time) C:\Programmi\IntraWeb\Delphi\Arcana\IWControl\LibD7\dclArcIWControlD7_51.bpl=Arcana IW Control Pack (Design Time) C:\Programmi\IntraWeb\Delphi\Arcana\IWLanguage\LibD7\dclArcIWLanguage_D7_51.bpl=Arcana IntraWeb Language Components (Design-Time) C:\Programmi\IntraWeb\Delphi\Arcana\IWOpenSource\LibD7\dclArcIWOpenSource_D7_IW51.bpl=Arcana IntraWeb Open Source Pack (Design Time) C:\WINDOWS\System32\rbIBE77.bpl=ReportBuilder Data Access for Interbase Express [HistoryLists\hlUnitAliases] Count=1 Item0=WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE; [HistoryLists\hlSearchPath] Count=1 Item0=..\core --- NEW FILE: ionx70.dpk --- package ionx70; {$R *.res} {$R '..\InstantNexusDb.dcr'} {$ALIGN 8} {$ASSERTIONS ON} {$BOOLEVAL OFF} {$DEBUGINFO ON} {$EXTENDEDSYNTAX ON} {$IMPORTEDDATA ON} {$IOCHECKS ON} {$LOCALSYMBOLS ON} {$LONGSTRINGS ON} {$OPENSTRINGS ON} {$OPTIMIZATION ON} {$OVERFLOWCHECKS OFF} {$RANGECHECKS OFF} {$REFERENCEINFO ON} {$SAFEDIVIDE OFF} {$STACKFRAMES OFF} {$TYPEDADDRESS OFF} {$VARSTRINGCHECKS ON} {$WRITEABLECONST OFF} {$MINENUMSIZE 1} {$IMAGEBASE $400000} {$DESCRIPTION 'InstantObjects NexusDb support'} {$IMPLICITBUILD OFF} requires rtl, vcl, dbrtl, vclx, vcldb, designide, vclactnband, IOCore; contains InstantNexusDb in '..\InstantNexusDb.pas', InstantNexusDbConnectionDefEdit in '..\InstantNexusDbConnectionDefEdit.pas' {InstantNexusDbConnectionDefEditForm}; end. --- NEW FILE: ionx70.res --- (This appears to be a binary file; contents omitted.) --- NEW FILE: ionx70.cfg --- -$A8 -$B- -$C+ -$D+ -$E- -$F- -$G+ -$H+ -$I+ -$J- -$K- -$L+ -$M- -$N+ -$O+ -$P+ -$Q- -$R- -$S- -$T- -$U- -$V+ -$W- -$X+ -$YD -$Z1 -cg -AWinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE; -H+ -W+ -M -$M16384,1048576 -K$00400000 -LE"c:\d7\Projects\Bpl" -LN"c:\d7\Projects\Bpl" -U"..\core" -O"..\core" -I"..\core" -R"..\core" -Z -w-UNSAFE_TYPE -w-UNSAFE_CODE -w-UNSAFE_CAST |
From: Carlo W. <cw...@us...> - 2004-08-06 14:47:56
|
Update of /cvsroot/instantobjects/Docs In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv9758/Docs Added Files: CVS_Commit_mailing_list.txt Log Message: Updated NexusDb Broker for D7 with "new" directory structure Added doc for CVS commit mailing list --- NEW FILE: CVS_Commit_mailing_list.txt --- The list ins...@li... is available fro subscription. Every subscriber will receive single / daily batched messages about every commit action made on CVS. This list is open to everybody, but is mainly aimed at IO-team programmers, so they can stay tuned with CVS development without the hassle of connecting to check for updates. Enjoy ! Carlo Wolter Project Manager |
From: Carlo W. <cw...@us...> - 2004-08-06 14:47:56
|
Update of /cvsroot/instantobjects/Source/Brokers/NexusDb In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv9758/Source/Brokers/NexusDb Modified Files: InstantNexusDb.pas InstantNexusDbConnectionDefEdit.pas Log Message: Updated NexusDb Broker for D7 with "new" directory structure Added doc for CVS commit mailing list Index: InstantNexusDb.pas =================================================================== RCS file: /cvsroot/instantobjects/Source/Brokers/NexusDb/InstantNexusDb.pas,v retrieving revision 1.2 retrieving revision 1.3 diff -C2 -d -r1.2 -r1.3 *** InstantNexusDb.pas 29 Jul 2004 20:43:14 -0000 1.2 --- InstantNexusDb.pas 6 Aug 2004 14:47:47 -0000 1.3 *************** *** 321,325 **** procedure CreateTable(TableMetadata: TInstantTableMetadata); const ! FieldTypes: array[TInstantDataType] of TFieldType = (ftInteger, ftFloat, ftBoolean, ftString, ftMemo, ftDateTime, ftBlob); var I: Integer; --- 321,325 ---- procedure CreateTable(TableMetadata: TInstantTableMetadata); const ! FieldTypes: array[TInstantDataType] of TFieldType = ( ftInteger, ftFloat, ftCurrency, ftBoolean, ftString, ftMemo, ftDateTime, ftBlob); var I: Integer; Index: InstantNexusDbConnectionDefEdit.pas =================================================================== RCS file: /cvsroot/instantobjects/Source/Brokers/NexusDb/InstantNexusDbConnectionDefEdit.pas,v retrieving revision 1.2 retrieving revision 1.3 diff -C2 -d -r1.2 -r1.3 *** InstantNexusDbConnectionDefEdit.pas 29 Jul 2004 20:43:14 -0000 1.2 --- InstantNexusDbConnectionDefEdit.pas 6 Aug 2004 14:47:47 -0000 1.3 *************** *** 97,101 **** implementation ! uses FileCtrl; {$R *.DFM} --- 97,101 ---- implementation ! uses FileCtrl, InstantClasses, InstantPersistence; {$R *.DFM} |
From: Carlo W. <cw...@us...> - 2004-08-06 14:41:46
|
Update of /cvsroot/instantobjects/Source/Brokers/NexusDb/D7 In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv8320/D7 Log Message: Directory /cvsroot/instantobjects/Source/Brokers/NexusDb/D7 added to the repository |