[Instantobjects-cvscommit] Demos/PrimerCross/ModelExternal Model.pas,1.1,1.2

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

Update of /cvsroot/instantobjects/Demos/PrimerCross/ModelExternal
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv15667/Demos/PrimerCross/ModelExternal

Modified Files:
	Model.pas 
Log Message:
Bug fixing for TInstantGraphic support.

Index: Model.pas
===================================================================
RCS file: /cvsroot/instantobjects/Demos/PrimerCross/ModelExternal/Model.pas,v
retrieving revision 1.1
retrieving revision 1.2
diff -C2 -d -r1.1 -r1.2
*** Model.pas	7 Dec 2004 08:45:34 -0000	1.1
--- Model.pas	18 Feb 2005 11:04:08 -0000	1.2
***************
*** 167,175 ****
  
    TPerson = class(TContact)
!   { IOMETADATA stored;
      BirthDate: DateTime;
      Emails: Parts(TEmail) externalstored 'Person_Email';
      Employer: Reference(TCompany);
!     Picture: Blob;
      Salary: Currency; }
      _BirthDate: TInstantDateTime;
--- 167,175 ----
  
    TPerson = class(TContact)
!   {IOMETADATA stored;
      BirthDate: DateTime;
      Emails: Parts(TEmail) externalstored 'Person_Email';
      Employer: Reference(TCompany);
!     Picture: Graphic;
      Salary: Currency; }
      _BirthDate: TInstantDateTime;
***************
*** 476,481 ****
  end;
  
- { TPhone }
- 
  procedure TPerson.SetSalary(Value: Currency);
  begin
--- 476,479 ----
***************
*** 483,486 ****
--- 481,486 ----
  end;
  
+ { TPhone }
+ 
  function TPhone.GetName: string;
  begin