[Instantobjects-cvscommit] Source/Core InstantCode.pas,1.8,1.9 InstantPersistence.pas,1.22,1.23

[Carlo B. <car...@us...>]

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: