Changeset 48 for trunk/UCore.pas

Timestamp:

Dec 3, 2021, 2:07:27 PM (3 years ago)

Author:

chronos

Message:

• Added: Show default profile photo if contact image is not specified.

File:

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

trunk/UCore.pas

@@ -6 +6 @@
 
 uses
-  Classes, SysUtils, FileUtil, Controls, ActnList, Forms, Dialogs,
+  Classes, SysUtils, FileUtil, Controls, ActnList, Forms, Dialogs, ExtCtrls,
   ULastOpenedList, UApplicationInfo, UPersistentForm, UScaleDPI, UCommon,
   UTranslator, UDataFile, Menus, URegistry, UTheme, UAboutDialog, Registry;
@@ -69 +69 @@
     InitializeFinished: Boolean;
     LoadErrors: string;
+    ProfileImage: TImage;
     procedure FileModified(Sender: TObject);
     function FindFirstNonOption: string;
@@ -81 +82 @@
     ReopenLastFileOnStart: Boolean;
     ToolbarVisible: Boolean;
+    function GetProfileImage: TImage;
     procedure FileNew;
     procedure FileOpen(FileName: string);
@@ -294 +296 @@
   FileClose;
   SaveConfig;
+  if Assigned(ProfileImage) then
+    FreeAndNil(ProfileImage);
 end;
 
@@ -454 +458 @@
 end;
 
+function TCore.GetProfileImage: TImage;
+const
+  ProfilePhotoFileName = 'Images/Profile.png';
+begin
+  if not Assigned(ProfileImage) then begin
+    ProfileImage := TImage.Create(nil);
+    ProfileImage.Picture.LoadFromFile(ProfilePhotoFileName);
+    if FileExists(ProfilePhotoFileName) then
+      ProfileImage.Picture.LoadFromFile(ProfilePhotoFileName);
+  end;
+  Result := ProfileImage;
+end;
+
 procedure TCore.UpdateInterface;
 begin