Changeset 103 for trunk/Forms/UFormTestCase.pas

Timestamp:

Feb 9, 2022, 3:51:26 PM (2 years ago)

Author:

chronos

Message:

• Added: Support for profile photo as URL.
• Added: New UContactImage form to show profile photo in bigger size and with URL.
• Modified: Profile photo image load/save handling moved to separate unit UContactImage.
• Fixed: Some dynamically created forms were not translated.
• Added: Remember last used file name for image open/save dialog.

File:

• trunk/Forms/UFormTestCase.pas (modified) (2 diffs)

trunk/Forms/UFormTestCase.pas

@@ -15 +15 @@
     MemoLog: TMemo;
     procedure FormClose(Sender: TObject; var CloseAction: TCloseAction);
+    procedure FormCreate(Sender: TObject);
     procedure FormShow(Sender: TObject);
   private
@@ -40 +41 @@
 end;
 
+procedure TFormTestCase.FormCreate(Sender: TObject);
+begin
+  Core.Translator.TranslateComponentRecursive(Self);
+  Core.ThemeManager1.UseTheme(Self);
+end;
+
 procedure TFormTestCase.FormShow(Sender: TObject);
 begin