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
|
