From 26611f46f064c3a0c5eb29348192b4e77dc8a7ae Mon Sep 17 00:00:00 2001
From: bart <9132501-flyingsheep@users.noreply.gitlab.com>
Date: Tue, 31 Dec 2013 14:47:40 +0000
Subject: [PATCH] Dialogs: Do not show an icon in MessageDlg is DialogType =
 mtCustom. Reason: Delphi compatibility. Resolves issue #0025475.

git-svn-id: trunk@43621 -
---
 lcl/include/promptdialog.inc | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/lcl/include/promptdialog.inc b/lcl/include/promptdialog.inc
index 37bd1f7745..f15b2e2d0e 100644
--- a/lcl/include/promptdialog.inc
+++ b/lcl/include/promptdialog.inc
@@ -159,7 +159,7 @@ begin
       end;
     else
       begin
-        FBitmap := GetDialogIcon(idDialogInfo);
+        //FBitmap := GetDialogIcon(idDialogInfo); //Delphi does not display an Icon in this case
         if ACaption <> '' then
           Caption := ACaption
         else
@@ -303,7 +303,7 @@ begin
   if FBitmap <> nil then
     cMinLeft := cBitmapX + max(32, FBitmap.Width) + cLabelSpacing
   else
-    cMinLeft := 0;
+    cMinLeft := cLabelSpacing;
 
   // calculate required width for the text
   reqWidth := cMinLeft + TextBox.Right;