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

dialogs: TTaskDialog: rename OnButtonClicked params. Issue #31404

Browse Source 
git-svn-id: trunk@54169 -
This commit is contained in:
ondrej 2017-02-16 17:22:45 +00:00
parent d030686434
commit dc573dbaa0
2 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lcl/dialogs.pp
View File

@ -520,7 +520,7 @@ type
TTaskDialogCommonButton = (tcbOk, tcbYes, tcbNo, tcbCancel, tcbRetry, tcbClose);
TTaskDialogCommonButtons = set of TTaskDialogCommonButton;
TTaskDlgClickEvent = procedure(Sender: TObject; ModalResult: TModalResult; var CanClose: Boolean) of object;
TTaskDlgClickEvent = procedure(Sender: TObject; AModalResult: TModalResult; var ACanClose: Boolean) of object;
TTaskDialogIcon = (tdiNone, tdiWarning, tdiError, tdiInformation, tdiShield, tdiQuestion);
@ -610,7 +610,7 @@ type
function ButtonIDToModalResult(const AButtonID: Integer): TModalResult;
protected
function DoExecute(ParentWnd: HWND): Boolean; dynamic;
procedure DoOnButtonClicked(AModalResult: Integer; var CanClose: Boolean); dynamic;
procedure DoOnButtonClicked(AModalResult: Integer; var ACanClose: Boolean); dynamic;
public
constructor Create(AOwner: TComponent); override;
destructor Destroy; override;

4
lcl/include/taskdialog.inc
View File

@ -239,10 +239,10 @@ begin
end;
procedure TCustomTaskDialog.DoOnButtonClicked(AModalResult: Integer;
var CanClose: Boolean);
var ACanClose: Boolean);
begin
if Assigned(FOnButtonClicked) then
FOnButtonClicked(Self, AModalResult, CanClose);
FOnButtonClicked(Self, AModalResult, ACanClose);
end;
procedure TCustomTaskDialog.DoOnButtonClickedHandler(Sender: PTaskDialog;