Update of /cvsroot/instantobjects/Source/Core
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv15667/Source/Core
Modified Files:
InstantCode.pas InstantPersistence.pas
Log Message:
Bug fixing for TInstantGraphic support.
Index: InstantCode.pas
===================================================================
RCS file: /cvsroot/instantobjects/Source/Core/InstantCode.pas,v
retrieving revision 1.8
retrieving revision 1.9
diff -C2 -d -r1.8 -r1.9
*** InstantCode.pas 11 Feb 2005 17:03:36 -0000 1.8
--- InstantCode.pas 18 Feb 2005 11:04:08 -0000 1.9
***************
*** 1562,1566 ****
atBoolean:
Result := 'Boolean';
! atString, atMemo, atBlob:
Result := 'string';
atDateTime:
--- 1562,1566 ----
atBoolean:
Result := 'Boolean';
! atString, atMemo, atBlob, atGraphic:
Result := 'string';
atDateTime:
***************
*** 1584,1588 ****
'', // atBlob
'', // atMemo
! '', // atPicture
'', // atPart
'', // atReference
--- 1584,1588 ----
'', // atBlob
'', // atMemo
! '', // atGraphic
'', // atPart
'', // atReference
Index: InstantPersistence.pas
===================================================================
RCS file: /cvsroot/instantobjects/Source/Core/InstantPersistence.pas,v
retrieving revision 1.22
retrieving revision 1.23
diff -C2 -d -r1.22 -r1.23
*** InstantPersistence.pas 18 Feb 2005 09:10:40 -0000 1.22
--- InstantPersistence.pas 18 Feb 2005 11:04:09 -0000 1.23
***************
*** 7378,7382 ****
atDateTime:
Writer.WriteDate(InstantStrToDateTime(Processor.ReadData));
! atBlob:
begin
Hex := Processor.ReadData;
--- 7378,7382 ----
atDateTime:
Writer.WriteDate(InstantStrToDateTime(Processor.ReadData));
! atBlob, atGraphic:
begin
Hex := Processor.ReadData;
***************
*** 11492,11495 ****
--- 11492,11497 ----
atBlob:
ClearBlob(Attribute as TInstantBlob);
+ atGraphic:
+ ClearBlob(Attribute as TInstantGraphic);
atMemo:
ClearMemo(Attribute as TInstantMemo);
***************
*** 11802,11805 ****
--- 11804,11809 ----
atBlob:
ReadBlob(Attribute as TInstantBlob);
+ atGraphic:
+ ReadBlob(Attribute as TInstantGraphic);
atMemo:
ReadMemo(Attribute as TInstantMemo);
***************
*** 11992,11995 ****
--- 11996,12001 ----
atBlob:
WriteBlob(Attribute as TInstantBlob);
+ atGraphic:
+ WriteBlob(Attribute as TInstantGraphic);
atMemo:
WriteMemo(Attribute as TInstantMemo);
***************
*** 13223,13227 ****
FieldName := Attribute.Metadata.FieldName;
case Attribute.Metadata.AttributeType of
! atBlob:
AddBlobAttributeParam;
atBoolean:
--- 13229,13233 ----
FieldName := Attribute.Metadata.FieldName;
case Attribute.Metadata.AttributeType of
! atBlob, atGraphic:
AddBlobAttributeParam;
atBoolean:
***************
*** 14627,14631 ****
atDateTime:
ReadDateTimeAttribute;
! atBlob:
ReadBlobAttribute;
atMemo:
--- 14633,14637 ----
atDateTime:
ReadDateTimeAttribute;
! atBlob, atGraphic:
ReadBlobAttribute;
atMemo:
|
