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

TaskDialog: handle the paramters in DoOnExpandButtonClicked and DoOnVerificationClicked.

Browse Source 
Rename event OnExpand to OnExpanded, as it is in Delphi.
This commit is contained in:
Bart 2023-08-03 23:06:13 +02:00
parent a8b8ec1b70
commit 396b72b21a
2 changed files with 14 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
lcl/dialogs.pp
View File

@ -630,6 +630,7 @@ type
FCommonButtons: TTaskDialogCommonButtons;
FDefaultButton: TTaskDialogCommonButton;
FExpandButtonCaption: TTranslateString;
FExpanded: Boolean;
FExpandedText: TTranslateString;
FFlags: TTaskDialogFlags;
FFooterIcon: TTaskDialogIcon;
@ -639,7 +640,7 @@ type
FOnDialogConstructed: TNotifyEvent;
FOnDialogCreated: TNotifyEvent;
FOnDialogDestroyed: TNotifyEvent;
FOnExpand: TNotifyEvent;
FOnExpanded: TNotifyEvent;
FOnHyperlinkClicked: TNotifyEvent;
FOnRadioButtonClicked: TNotifyEvent;
FOnTimer: TTaskDlgTimerEvent;
@ -707,12 +708,13 @@ type
property VerificationText: TTranslateString read FVerificationText write FVerificationText;
property Width: Integer read FWidth write FWidth default 0;
property URL: String read FURL;
property Expanded: Boolean read FExpanded;
property OnButtonClicked: TTaskDlgClickEvent read FOnButtonClicked write FOnButtonClicked;
property OnDialogConstructed: TNotifyEvent read FOnDialogConstructed write FOnDialogConstructed;
property OnDialogCreated: TNotifyEvent read FOnDialogCreated write FOnDialogCreated;
property OnDialogDestroyed: TNotifyEvent read FOnDialogDestroyed write FOnDialogDestroyed;
property OnVerificationClicked: TNotifyEvent read FOnVerificationClicked write FOnVerificationClicked;
property OnExpand: TNotifyEvent read FOnExpand write FOnExpand;
property OnExpanded: TNotifyEvent read FOnExpanded write FOnExpanded;
property OnTimer: TTaskDlgTimerEvent read FOnTimer write FOnTimer;
property OnRadioButtonClicked: TNotifyEvent read FOnRadioButtonClicked write FOnRadioButtonClicked;
property OnHyperlinkClicked: TNotifyEvent read FOnHyperlinkClicked write FOnHyperlinkClicked;
@ -744,7 +746,7 @@ type
property OnDialogCreated;
property OnDialogDestroyed;
property OnVerificationClicked;
property OnExpand;
property OnExpanded;
property OnTimer;
property OnRadioButtonClicked;
property OnHyperlinkClicked;

13
lcl/include/taskdialog.inc
View File

@ -197,10 +197,11 @@ begin
FOnDialogDestroyed(Self);
end;
procedure TCustomTaskDialog.DoOnExpandButtonClicked({%H-}Expanded: Boolean);
procedure TCustomTaskDialog.DoOnExpandButtonClicked(Expanded: Boolean);
begin
if Assigned(FOnExpand) then
FOnExpand(Self)
FExpanded := Expanded;
if Assigned(FOnExpanded) then
FOnExpanded(Self)
end;
procedure TCustomTaskDialog.DoOnTimer(TickCount: Cardinal; var Reset: Boolean);
@ -209,8 +210,12 @@ begin
FOnTimer(Self, TickCount, Reset);
end;
procedure TCustomTaskDialog.DoOnVerificationClicked({%H-}Checked: Boolean);
procedure TCustomTaskDialog.DoOnVerificationClicked(Checked: Boolean);
begin
if Checked then
Include(FFlags, tfVerificationFlagChecked)
else
Exclude(FFlags, tfVerificationFlagChecked);
if Assigned(FOnVerificationClicked) then
FOnVerificationClicked(Self);
end;