Changeset 45 for trunk/Forms/UFormContact.pas

Timestamp:

Dec 2, 2021, 3:19:57 PM (3 years ago)

Author:

chronos

Message:

• Added: Allow to load photo from file or save it to file.

File:

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

trunk/Forms/UFormContact.pas

@@ -7 +7 @@
 uses
   Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls,
-  ComCtrls, ActnList, Menus, ExtCtrls, UContact, UFormProperties;
+  ComCtrls, ActnList, Menus, ExtCtrls, ExtDlgs, UContact, UFormProperties;
 
 type
@@ -14 +14 @@
 
   TFormContact = class(TForm)
-    AEditField: TAction;
+    APhotoSave: TAction;
+    APhotoLoad: TAction;
     ActionList1: TActionList;
     ButtonCancel: TButton;
@@ -114 +115 @@
     MemoNotes: TMemo;
     MenuItem1: TMenuItem;
+    MenuItem2: TMenuItem;
+    OpenPictureDialog1: TOpenPictureDialog;
     PageControlContact: TPageControl;
-    PopupMenu1: TPopupMenu;
+    PopupMenuPhoto: TPopupMenu;
+    SavePictureDialog1: TSavePictureDialog;
     TabSheetOthers: TTabSheet;
     TabSheetHome: TTabSheet;
@@ -121 +125 @@
     TabSheetGeneral: TTabSheet;
     TabSheetAll: TTabSheet;
+    procedure APhotoLoadExecute(Sender: TObject);
+    procedure APhotoSaveExecute(Sender: TObject);
     procedure ButtonNextClick(Sender: TObject);
     procedure ButtonOkClick(Sender: TObject);
@@ -140 +146 @@
     procedure LoadData;
     procedure SaveData;
+    procedure UpdateInterface;
     property Contact: TContact read FContact write SetContact;
     property OnPrevious: TNotifyEvent read FOnPrevious write FOnPrevious;
@@ -166 +173 @@
   FormProperties.Align := alClient;
   FormProperties.Show;
+  UpdateInterface;
 end;
 
@@ -195 +203 @@
   if FContact = AValue then Exit;
   FContact := AValue;
-  LoadData;
+  if Visible then LoadData;
 end;
 
@@ -212 +220 @@
 begin
   if Assigned(FOnNext) then FOnNext(Self);
+end;
+
+procedure TFormContact.APhotoLoadExecute(Sender: TObject);
+begin
+  if OpenPictureDialog1.Execute then begin
+    ImagePhoto.Picture.LoadFromFile(OpenPictureDialog1.FileName);
+  end;
+end;
+
+procedure TFormContact.APhotoSaveExecute(Sender: TObject);
+begin
+  if SavePictureDialog1.Execute then begin
+    ImagePhoto.Picture.SaveToFile(SavePictureDialog1.FileName);
+  end;
 end;
 
@@ -294 +316 @@
   MemoNotes.Lines.Text := Contact.Fields[cfNote];
 
+  // Photo
   ImagePhoto.Picture.Bitmap.Clear;
   PhotoProperty := Contact.GetProperty(cfPhoto);
@@ -326 +349 @@
     end;
   end;
+  UpdateInterface;
 end;
 
 procedure TFormContact.SaveData;
+var
+  Photo: string;
+  PhotoProperty: TContactProperty;
+  Stream: TMemoryStream;
+  JpegImage: TJpegImage;
 begin
   // General
@@ -382 +411 @@
   // Others
   Contact.Fields[cfNote] := MemoNotes.Lines.Text;
+
+  // Photo
+  if (ImagePhoto.Picture.Bitmap.Width <> 0) and (ImagePhoto.Picture.Bitmap.Height <> 0) then begin
+    PhotoProperty := Contact.GetProperty(cfPhoto);
+    if not Assigned(PhotoProperty) then begin
+      PhotoProperty := TContactProperty.Create;
+      PhotoProperty.Name := 'PHOTO';
+      PhotoProperty.Attributes.DelimitedText := 'JPEG';
+      Contact.Properties.Add(PhotoProperty);
+    end;
+    PhotoProperty.Encoding := 'BASE64';
+    Stream := TMemoryStream.Create;
+    try
+      if PhotoProperty.Attributes.IndexOf('JPEG') <> -1 then begin
+        JpegImage := TJPEGImage.Create;
+        try
+          try
+            JpegImage.SetSize(ImagePhoto.Picture.Bitmap.Width, ImagePhoto.Picture.Bitmap.Height);
+            JpegImage.Canvas.Draw(0, 0, ImagePhoto.Picture.Bitmap);
+            JpegImage.SaveToStream(Stream);
+          except
+          end;
+        finally
+          JpegImage.Free;
+        end;
+      end else begin
+        try
+          ImagePhoto.Picture.SaveToStream(Stream);
+        except
+        end;
+      end;
+
+      SetLength(Photo, Stream.Size);
+      Stream.Position := 0;
+      Stream.Read(Photo[1], Length(Photo));
+      Contact.Fields[cfPhoto] := Photo;
+    finally
+      Stream.Free;
+    end;
+  end;
+end;
+
+procedure TFormContact.UpdateInterface;
+begin
+  APhotoSave.Enabled := (ImagePhoto.Picture.Bitmap.Width <> 0) and
+    (ImagePhoto.Picture.Bitmap.Height <> 0);
 end;