Changeset 31 for trunk/Forms/UFormContact.pas

Timestamp:

Nov 25, 2021, 1:18:44 AM (3 years ago)

Author:

chronos

Message:

• Modified: Store contact properties in general way to support also user defined properties and unknown attributes.
• Added: Show contact image in contact edit window.

File:

• trunk/Forms/UFormContact.pas (modified) (7 diffs)

trunk/Forms/UFormContact.pas

@@ -7 +7 @@
 uses
   Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls,
-  ComCtrls, ActnList, Menus, UContact;
+  ComCtrls, ActnList, Menus, ExtCtrls, UContact, base64;
 
 type
@@ -40 +40 @@
     EditName: TEdit;
     EditCellPhone: TEdit;
+    ImagePhoto: TImage;
     Label1: TLabel;
     Label10: TLabel;
@@ -55 +56 @@
     Label21: TLabel;
     Label22: TLabel;
+    Label23: TLabel;
     LabelOrganization: TLabel;
     Label3: TLabel;
@@ -110 +112 @@
 procedure TFormContact.ListView1Data(Sender: TObject; Item: TListItem);
 begin
-  if Item.Index < Contact.Parent.Fields.Count then
-  with TContactField(Contact.Parent.Fields[Item.Index]) do begin
-    Item.Caption := Name;
-    Item.SubItems.Add(Contact.Fields[Index]);
+  if Item.Index < Contact.Properties.Count then
+  with Contact.Properties[Item.Index] do begin
+    Item.Caption := Contact.Properties[Item.Index].Name;
+    Item.SubItems.Add(Attributes.DelimitedText);
+    Item.SubItems.Add(Contact.Properties[Item.Index].Values.DelimitedText);
+    Item.Data := Contact.Properties[Item.Index];
   end;
 end;
@@ -125 +129 @@
 begin
   if Assigned(Contact) then begin
-    ListView1.Items.Count := Contact.Parent.Fields.Count;
+    ListView1.Items.Count := Contact.Properties.Count;
   end else ListView1.Items.Count := 0;
   ListView1.Refresh;
@@ -139 +143 @@
 begin
   if Assigned(ListView1.Selected) then begin
-    Contact.Fields[TContactFieldIndex(ListView1.Selected.Index)] :=
-      InputBox(SFieldEdit, SEditFieldValue, Contact.Fields[TContactFieldIndex(ListView1.Selected.Index)]);
+    TContactProperty(ListView1.Selected.Data).Values.DelimitedText :=
+      InputBox(SFieldEdit, SEditFieldValue, TContactProperty(ListView1.Selected.Data).Values.DelimitedText);
   end;
 end;
@@ -152 +156 @@
 
 procedure TFormContact.LoadData(Contact: TContact);
+var
+  Photo: string;
+  JpegImage: TJpegImage;
+  Stream: TMemoryStream;
+  PhotoProperty: TContactProperty;
 begin
   Self.Contact := Contact;
-  EditName.Text := Contact.FirstName;
-  EditSurname.Text := Contact.LastName;
-  EditCellPhone.Text := Contact.TelCell;
-  EditPhoneHome.Text := Contact.TelHome;
-  EditPhoneWork.Text := Contact.TelWork;
-  EditEmail.Text := Contact.EmailHome;
-  MemoNotes.Lines.Text := Contact.Note;
-  EditTitle.Text := Contact.Title;
-  EditOrganization.Text := Contact.Organization;
-  EditAddress.Text := Contact.AdrHome;
-  EditEmailHome.Text := Contact.EmailHome;
+  EditName.Text := Contact.Fields[cfFirstName];
+  EditSurname.Text := Contact.Fields[cfLastName];
+  EditCellPhone.Text := Contact.Fields[cfTelCell];
+  EditPhoneHome.Text := Contact.Fields[cfTelHome];
+  EditPhoneWork.Text := Contact.Fields[cfTelWork];
+  EditEmail.Text := Contact.Fields[cfEmail];
+  MemoNotes.Lines.Text := Contact.Fields[cfNote];
+  EditTitle.Text := Contact.Fields[cfTitle];
+  EditOrganization.Text := Contact.Fields[cfOrganization];
+  EditAddress.Text := Contact.Fields[cfAdrHome];
+  EditEmailHome.Text := Contact.Fields[cfEmailHome];
+
+  ImagePhoto.Picture.Bitmap.Clear;
+  PhotoProperty := Contact.GetProperty(cfPhoto);
+  if Assigned(PhotoProperty) then begin
+    Photo := Contact.Fields[cfPhoto];
+    if (Photo <> '') and (PhotoProperty.Encoding <> '') then begin
+      Photo := PhotoProperty.GetDecodedValue;
+      Stream := TMemoryStream.Create;
+      Stream.Write(Photo[1], Length(Photo));
+      Stream.Position := 0;
+      JpegImage := TJPEGImage.Create;
+      JpegImage.LoadFromStream(Stream);
+      ImagePhoto.Picture.Bitmap.SetSize(JpegImage.Width, JpegImage.Height);
+      ImagePhoto.Picture.Bitmap.Canvas.Draw(0, 0, JpegImage);
+      JpegImage.Free;
+      Stream.Free;
+    end;
+  end;
 end;
 
 procedure TFormContact.SaveData(Contact: TContact);
 begin
-  Contact.FirstName := EditName.Text;
-  Contact.LastName := EditSurname.Text;
-  Contact.TelCell := EditCellPhone.Text;
-  Contact.TelHome := EditPhoneHome.Text;
-  Contact.TelWork := EditPhoneWork.Text;
-  Contact.EmailHome := EditEmail.Text;
-  Contact.Note := MemoNotes.Lines.Text;
-  Contact.Title := EditTitle.Text;
-  Contact.Organization := EditOrganization.Text;
-  Contact.AdrHome := EditAddress.Text;
-  Contact.EmailHome := EditEmailHome.Text;
+  Contact.Fields[cfFirstName] := EditName.Text;
+  Contact.Fields[cfLastName] := EditSurname.Text;
+  Contact.Fields[cfTelCell] := EditCellPhone.Text;
+  Contact.Fields[cfTelHome] := EditPhoneHome.Text;
+  Contact.Fields[cfTelWork] := EditPhoneWork.Text;
+  Contact.Fields[cfEmail] := EditEmail.Text;
+  Contact.Fields[cfNote] := MemoNotes.Lines.Text;
+  Contact.Fields[cfTitle] := EditTitle.Text;
+  Contact.Fields[cfOrganization] := EditOrganization.Text;
+  Contact.Fields[cfAdrHome] := EditAddress.Text;
+  Contact.Fields[cfEmailHome] := EditEmailHome.Text;
 end;