paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-07-20 17:46:19 +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; FVerificationText: TTranslateString;
FWidth: Integer; FWidth: Integer;
FOnButtonClicked: TTaskDlgClickEvent; FOnButtonClicked: TTaskDlgClickEvent;
function IsCustomFooterIconStored: Boolean;
function IsCustomMainIconStored: Boolean;
procedure SetButtons(const Value: TTaskDialogButtons); procedure SetButtons(const Value: TTaskDialogButtons);
procedure SetCustomFooterIcon(AValue: TIcon); procedure SetCustomFooterIcon(AValue: TIcon);
procedure SetCustomMainIcon(AValue: TIcon); procedure SetCustomMainIcon(AValue: TIcon);
@ -711,8 +713,8 @@ type
property Button: TTaskDialogButtonItem read FButton write FButton; property Button: TTaskDialogButtonItem read FButton write FButton;
property Buttons: TTaskDialogButtons read FButtons write SetButtons; property Buttons: TTaskDialogButtons read FButtons write SetButtons;
property Caption: TTranslateString read FCaption write FCaption; property Caption: TTranslateString read FCaption write FCaption;
property CustomFooterIcon: TIcon read FCustomFooterIcon write SetCustomFooterIcon; property CustomFooterIcon: TIcon read FCustomFooterIcon write SetCustomFooterIcon stored IsCustomFooterIconStored;
property CustomMainIcon: TIcon read FCustomMainIcon write SetCustomMainIcon; property CustomMainIcon: TIcon read FCustomMainIcon write SetCustomMainIcon stored IsCustomMainIconStored;
property CommonButtons: TTaskDialogCommonButtons read FCommonButtons write FCommonButtons default [tcbOk, tcbCancel]; property CommonButtons: TTaskDialogCommonButtons read FCommonButtons write FCommonButtons default [tcbOk, tcbCancel];
property CollapseButtonCaption: TTranslateString read FCollapseButtonCaption write FCollapseButtonCaption; property CollapseButtonCaption: TTranslateString read FCollapseButtonCaption write FCollapseButtonCaption;
property DefaultButton: TTaskDialogCommonButton read FDefaultButton write FDefaultButton default tcbOk; property DefaultButton: TTaskDialogCommonButton read FDefaultButton write FDefaultButton default tcbOk;
@ -755,6 +757,8 @@ type
property Caption; property Caption;
property CommonButtons; property CommonButtons;
property CollapseButtonCaption; property CollapseButtonCaption;
property CustomFooterIcon;
property CustomMainIcon;
property DefaultButton; property DefaultButton;
property ExpandButtonCaption; property ExpandButtonCaption;
property ExpandedText; property ExpandedText;

10
lcl/include/taskdialog.inc
View File

@ -280,6 +280,16 @@ begin
FButtons.Assign(Value); FButtons.Assign(Value);
end; 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); procedure TCustomTaskDialog.SetCustomFooterIcon(AValue: TIcon);
begin begin
FCustomFooterIcon.Assign(AValue); FCustomFooterIcon.Assign(AValue);