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
|
