paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-30 15:10:16 +02:00
Code Issues Packages Projects Releases Wiki Activity

Dialogs: Do not show an icon in MessageDlg is DialogType = mtCustom.

Browse Source 
Reason: Delphi compatibility. Resolves issue #0025475.

git-svn-id: trunk@43621 -
This commit is contained in:
bart 2013-12-31 14:47:40 +00:00
parent 8db920c565
commit 26611f46f0
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lcl/include/promptdialog.inc
View File

@ -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;