restructuring project

Rtrevisan20 · Jan 6, 2024 · fb284f7 · fb284f7
1 parent 8fecbb5
commit fb284f7
Show file tree

Hide file tree

Showing 10 changed files with 17,279 additions and 18,471 deletions.
diff --git a/src/FMX/HDMessageDlg.View.FMX.fmx b/src/FMX/HDMessageDlg.View.FMX.fmx
diff --git a/src/FMX/HDMessageDlg.View.FMX.pas b/src/FMX/HDMessageDlg.View.FMX.pas
@@ -128,12 +128,13 @@ procedure THDMessageDlgFMX.FormShow(Sender: TObject);
   lbl_Title.Text       := FMsgTitle;
   lbl_Question.Text    := FMsgQuestion;
   lbl_BodyMessage.Text := FMsgBody;
-  imgMenssage.Bitmap.LoadFromStream(TResourceStream.Create(HInstance, FMsgIcon ,RT_RCDATA));
 
   case FMsgType of
    tOK: TypeOk;
    tQuestion: TypeQuestion;
   end;
+
+  imgMenssage.Bitmap   := imgMenssage.MultiResBitmap.Items[FMsgIcon.ToInteger].Bitmap;
 end;
 
 procedure THDMessageDlgFMX.SetMsgIcon(const Value: string);

diff --git a/src/HDMessageDlg.Interfaces.pas b/src/HDMessageDlg.Interfaces.pas
@@ -5,40 +5,15 @@ interface
 type
   TType = (tOK, tQuestion);
   TIcon = (iAlert, iAttention, iError, iLike, iMessage, iQuestion);
-  iHDMessageFMX = Interface;
-  iHDMessageVCL = interface;
-  iHDMessagePlatform = interface;
 
-  iHDMessageOptions = interface
+  iHDMessageDlg = interface
     ['{206A0343-2168-418C-9AB6-8A6412F91916}']
-    function MsgTitle: String; overload;
-    function MsgTitle(aValue: String): iHDMessageOptions; overload;
-    function MsgQuestion: String; overload;
-    function MsgQuestion(aValue: String): iHDMessageOptions; overload;
-    function MsgBody: String; overload;
-    function MsgBody(aValue: String): iHDMessageOptions; overload;
-    function MsgIcon: string; overload;
-    function MsgIcon(aValue: TIcon): iHDMessageOptions; overload;
-    function MsgType: TType; overload;
-    function MsgType(aValue: TType): iHDMessageOptions; overload;
-    function MessagePlatform : iHDMessagePlatform;
-  end;
-
-  iHDMessagePlatform = interface
-    ['{2F2A5504-8628-4703-8509-1CA5B4260C2D}']
-    function VCL : iHDMessageVCL;
-    function FMX : iHDMessageFMX;
-  end;
-
-  iHDMessageFMX = interface
-    ['{97759AB7-067B-47E9-992F-0624B74CAB0A}']
-    function DisplayMessage: iHDMessageFMX;
-    function DisplayQuestion: Boolean;
-  end;
-
-  iHDMessageVCL = interface
-    ['{4BD7D5DF-2250-4335-8D87-6E2DDA39A9E6}']
-    function DisplayMessage: iHDMessageVCL;
+    function MsgTitle(aValue: String): iHDMessageDlg;
+    function MsgQuestion(aValue: String): iHDMessageDlg;
+    function MsgBody(aValue: String): iHDMessageDlg;
+    function MsgIcon(aValue: TIcon): iHDMessageDlg;
+    function MsgType(aValue: TType): iHDMessageDlg;
+    function DisplayMessage: iHDMessageDlg;
     function DisplayQuestion: Boolean;
   end;
 

diff --git a/src/HDMessageDlg.Options.pas b/src/HDMessageDlg.Options.pas
diff --git a/src/HDMessageDlg.Platform.FMX.pas b/src/HDMessageDlg.Platform.FMX.pas
diff --git a/src/HDMessageDlg.Platform.VCL.pas b/src/HDMessageDlg.Platform.VCL.pas