paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-06 15:37:51 +02:00
Code Issues Packages Projects Releases Wiki Activity

TTaskDialog: publish properties CustomFooterIcon and CustomMainIcon.

Browse Source
This commit is contained in:
Bart 2023-08-20 14:54:50 +02:00
parent 86c3d72d4d
commit ab5d084ade
2 changed files with 16 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
lcl/dialogs.pp
View File

@ -677,6 +677,8 @@ type
FVerificationText: TTranslateString;
FWidth: Integer;
FOnButtonClicked: TTaskDlgClickEvent;
function IsCustomFooterIconStored: Boolean;
function IsCustomMainIconStored: Boolean;
procedure SetButtons(const Value: TTaskDialogButtons);
procedure SetCustomFooterIcon(AValue: TIcon);
procedure SetCustomMainIcon(AValue: TIcon);
@ -711,8 +713,8 @@ type
property Button: TTaskDialogButtonItem read FButton write FButton;
property Buttons: TTaskDialogButtons read FButtons write SetButtons;
property Caption: TTranslateString read FCaption write FCaption;
property CustomFooterIcon: TIcon read FCustomFooterIcon write SetCustomFooterIcon;
property CustomMainIcon: TIcon read FCustomMainIcon write SetCustomMainIcon;
property CustomFooterIcon: TIcon read FCustomFooterIcon write SetCustomFooterIcon stored IsCustomFooterIconStored;
property CustomMainIcon: TIcon read FCustomMainIcon write SetCustomMainIcon stored IsCustomMainIconStored;
property CommonButtons: TTaskDialogCommonButtons read FCommonButtons write FCommonButtons default [tcbOk, tcbCancel];
property CollapseButtonCaption: TTranslateString read FCollapseButtonCaption write FCollapseButtonCaption;
property DefaultButton: TTaskDialogCommonButton read FDefaultButton write FDefaultButton default tcbOk;
@ -755,6 +757,8 @@ type
property Caption;
property CommonButtons;
property CollapseButtonCaption;
property CustomFooterIcon;
property CustomMainIcon;
property DefaultButton;
property ExpandButtonCaption;
property ExpandedText;

10
lcl/include/taskdialog.inc
View File

@ -280,6 +280,16 @@ begin
FButtons.Assign(Value);
end;
function TCustomTaskDialog.IsCustomFooterIconStored: Boolean;
begin
Result := Assigned(FCustomFooterIcon) and not FCustomFooterIcon.Empty;
end;
function TCustomTaskDialog.IsCustomMainIconStored: Boolean;
begin
Result := Assigned(FCustomMainIcon) and not FCustomMainIcon.Empty;
end;
procedure TCustomTaskDialog.SetCustomFooterIcon(AValue: TIcon);
begin
FCustomFooterIcon.Assign(AValue);