Changeset 49 for trunk/Forms/UFormContact.pas

Timestamp:

Dec 3, 2021, 6:52:12 PM (3 years ago)

Author:

chronos

Message:

• Added: Context menu action to clear profile image.
• Fixed: Correctly show contact profile image.
• Added: Remember last selected tab index in contact form.

File:

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

trunk/Forms/UFormContact.pas

@@ -14 +14 @@
 
   TFormContact = class(TForm)
+    APhotoClear: TAction;
     APhotoSave: TAction;
     APhotoLoad: TAction;
@@ -116 +117 @@
     MenuItem1: TMenuItem;
     MenuItem2: TMenuItem;
+    MenuItem3: TMenuItem;
     OpenPictureDialog1: TOpenPictureDialog;
     PageControlContact: TPageControl;
@@ -125 +127 @@
     TabSheetGeneral: TTabSheet;
     TabSheetAll: TTabSheet;
+    procedure APhotoClearExecute(Sender: TObject);
     procedure APhotoLoadExecute(Sender: TObject);
     procedure APhotoSaveExecute(Sender: TObject);
@@ -143 +146 @@
     procedure TabSheetWorkShow(Sender: TObject);
   private
+    FProfilePhotoActive: Boolean;
+    procedure SetProfilePhotoActive(AValue: Boolean);
+  private
     FContact: TContact;
     FOnNext: TNotifyEvent;
     FOnPrevious: TNotifyEvent;
     FormProperties: TFormProperties;
-    ProfilePhotoActive: Boolean;
-    procedure DefaultPhoto;
     procedure SetContact(AValue: TContact);
     procedure ReloadAllPropertiesTab;
+    property ProfilePhotoActive: Boolean read FProfilePhotoActive
+      write SetProfilePhotoActive;
   public
     procedure UpdateInterface;
@@ -178 +184 @@
   FormProperties.Align := alClient;
   FormProperties.Show;
+
+  // Force to load default profile image
+  ProfilePhotoActive := True;
+  ProfilePhotoActive := False;
+
+  PageControlContact.TabIndex := Core.LastContactTabIndex;
   UpdateInterface;
 end;
@@ -249 +261 @@
       Stream.Free;
     end;
+  end else begin
+    PhotoProperty := Contact.GetProperty(cfPhoto);
+    if Assigned(PhotoProperty) then
+       Contact.Properties.Remove(PhotoProperty);
   end;
 
@@ -278 +294 @@
 
   // Photo
-  ImagePhoto.Picture.Bitmap.Clear;
   PhotoProperty := Contact.GetProperty(cfPhoto);
   if Assigned(PhotoProperty) then begin
@@ -292 +307 @@
             try
               JpegImage.LoadFromStream(Stream);
+              ImagePhoto.Picture.Bitmap.Clear;
               ImagePhoto.Picture.Bitmap.SetSize(JpegImage.Width, JpegImage.Height);
               ImagePhoto.Picture.Bitmap.Canvas.Draw(0, 0, JpegImage);
               ProfilePhotoActive := True;
             except
-              DefaultPhoto;
+              ProfilePhotoActive := False;
             end;
           finally
@@ -306 +322 @@
             ProfilePhotoActive := True;
           except
-            DefaultPhoto;
+            ProfilePhotoActive := False;
           end;
         end;
@@ -312 +328 @@
         Stream.Free;
       end;
-    end else DefaultPhoto;
-  end else DefaultPhoto;
+    end else ProfilePhotoActive := False;
+  end else ProfilePhotoActive := False;
 end;
 
@@ -406 +422 @@
 end;
 
-procedure TFormContact.DefaultPhoto;
-begin
-  ProfilePhotoActive := False;
-  ImagePhoto.Picture.Assign(Core.GetProfileImage.Picture);
+procedure TFormContact.SetProfilePhotoActive(AValue: Boolean);
+begin
+  if FProfilePhotoActive = AValue then Exit;
+  FProfilePhotoActive := AValue;
+  if not FProfilePhotoActive then begin
+    ImagePhoto.Picture.Assign(Core.GetProfileImage.Picture);
+  end;
+  UpdateInterface;
 end;
 
@@ -428 +448 @@
   );
 begin
+  // Hide PageControl to fire TabSheet OnHide event on form close
+  PageControlContact.ActivePage.Hide;
+
+  Core.LastContactTabIndex := PageControlContact.TabIndex;
   Core.PersistentForm1.Save(Self);
 end;
@@ -440 +464 @@
   if OpenPictureDialog1.Execute then begin
     ImagePhoto.Picture.LoadFromFile(OpenPictureDialog1.FileName);
+    ProfilePhotoActive := True;
   end;
+end;
+
+procedure TFormContact.APhotoClearExecute(Sender: TObject);
+begin
+  ProfilePhotoActive := False;
 end;
 
@@ -471 +501 @@
 begin
   APhotoSave.Enabled := ProfilePhotoActive;
+  APhotoClear.Enabled := ProfilePhotoActive;
 end;