Changeset 9 for trunk/UContact.pas

Timestamp:

Feb 1, 2018, 1:41:56 PM (7 years ago)

Author:

chronos

Message:

• Added: More editable contact fields.

File:

• trunk/UContact.pas (modified) (5 diffs)

trunk/UContact.pas

@@ -15 +15 @@
   TDataType = (dtString, dtInteger, dtDate, dtDateTime, dtImage);
 
-  TContactFieldIndex = (cfFirstName, cfMiddleName, cfLastName);
+  TContactFieldIndex = (cfFirstName, cfMiddleName, cfLastName, cfTelPrefCell,
+    cfTelCell, cfTelHome, cfTelHome2, cfTelWork, cfTitle, cfOrganization,
+    cfAddress, cfNote);
 
   TContactField = class
@@ -60 +62 @@
     Note: string;
     Role: string;
+    Title: string;
     Categories: string;
     Organization: string;
@@ -124 +127 @@
     cfMiddleName: Result := MiddleName;
     cfLastName: Result := LastName;
+    cfTelPrefCell: Result := TelPrefCell;
+    cfTelCell: Result := TelCell;
+    cfTelHome: Result := TelHome;
+    cfTelHome2: Result := TelHome2;
+    cfTelWork: Result := TelWork;
+    cfTitle: Result := Title;
+    cfOrganization: Result := Organization;
+    cfAddress: Result := AdrHome;
+    cfNote: Result := Note;
   end;
 end;
@@ -133 +145 @@
     cfMiddleName: MiddleName := AValue;
     cfLastName: LastName := AValue;
+    cfTelPrefCell: TelPrefCell := AValue;
+    cfTelCell: TelCell := AValue;
+    cfTelHome: TelHome := AValue;
+    cfTelHome2: TelHome2 := AValue;
+    cfTelWork: TelWork := AValue;
+    cfTitle: Title := AValue;
+    cfOrganization: Organization := AValue;
+    cfAddress: AdrHome := AValue;
+    cfNote: Note := AValue;
   end;
 end;
@@ -155 +176 @@
     AddNew('Middle Name', cfMiddleName, dtString);
     AddNew('Last Name', cfLastName, dtString);
+    AddNew('Preferred cell phone', cfTelPrefCell, dtString);
+    AddNew('Cell phone', cfTelCell, dtString);
+    AddNew('Home phone', cfTelHome, dtString);
+    AddNew('Home phone 2', cfTelHome2, dtString);
+    AddNew('Home work', cfTelWork, dtString);
+    AddNew('Title', cfTitle, dtString);
+    AddNew('Organization', cfOrganization, dtString);
+    AddNew('Address', cfAddress, dtString);
+    AddNew('Note', cfNote, dtString);
   end;
 end;