paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-16 23:49:28 +02:00
Code Issues Packages Projects Releases Wiki Activity

LCL: Give access to dialog icon idDialogShield

Browse Source
This commit is contained in:
wp_xyz 2021-11-19 23:34:09 +01:00
parent c226141ca4
commit 5438db7700
2 changed files with 6 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
lcl/dialogs.pp
View File

@ -811,12 +811,13 @@ const
bkOk, bkCancel, bkHelp, bkYes, bkNo, bkClose, bkAbort, bkRetry,
bkIgnore, bkAll, bkYesToAll, bkNoToAll);
DialogResName: array[idDialogWarning..idDialogConfirm] of String =
DialogResName: array[idDialogWarning..idDialogShield] of String =
(
{idDialogWarning} 'dialog_warning',
{idDialogError } 'dialog_error',
{idDialogInfo } 'dialog_information',
{idDialogConfirm} 'dialog_confirmation'
{idDialogConfirm} 'dialog_confirmation',
{idDialogShield } 'dialog_shield'
);
type

5
lcl/include/promptdialog.inc
View File

@ -145,7 +145,8 @@ begin
idDialogConfirm,
idDialogInfo,
idDialogWarning,
idDialogError :
idDialogError,
idDialogShield:
begin
FBitmap := GetDialogIcon(DialogType);
@ -856,7 +857,7 @@ begin
FBitmap := nil;
NewCaption := ACaption;
case DlgType of
idDialogConfirm, idDialogInfo, idDialogWarning, idDialogError:
idDialogConfirm, idDialogInfo, idDialogWarning, idDialogError, idDialogShield:
begin
FBitmap := GetDialogIcon(DlgType);
if NewCaption = '' then