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

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

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

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

Index: Model.pas
===================================================================
RCS file: /cvsroot/instantobjects/Demos/PrimerCross/Model/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:35 -0000	1.1
--- Model.pas	18 Feb 2005 11:04:08 -0000	1.2
***************
*** 164,172 ****
  
    TPerson = class(TContact)
!   { IOMETADATA stored;
      BirthDate: DateTime;
      Emails: Parts(TEmail);
      Employer: Reference(TCompany);
!     Picture: Blob;
      Salary: Currency; }
      _BirthDate: TInstantDateTime;
--- 164,172 ----
  
    TPerson = class(TContact)
!   {IOMETADATA stored;
      BirthDate: DateTime;
      Emails: Parts(TEmail);
      Employer: Reference(TCompany);
!     Picture: Graphic;
      Salary: Currency; }
      _BirthDate: TInstantDateTime;
***************
*** 473,478 ****
  end;
  
- { TPhone }
- 
  procedure TPerson.SetSalary(Value: Currency);
  begin
--- 473,476 ----
***************
*** 480,483 ****
--- 478,483 ----
  end;
  
+ { TPhone }
+ 
  function TPhone.GetName: string;
  begin