paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-08 07:21:34 +02:00
Code Issues Packages Projects Releases Wiki Activity

TaskDialog: add OnExpand event (native Windows dialog only).

Browse Source
This commit is contained in:
Bart 2023-08-01 11:06:09 +02:00
parent 13d54fc4cb
commit 213b32e0c7
2 changed files with 6 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
lcl/dialogs.pp
View File

@ -638,6 +638,7 @@ type
FOnDialogConstructed: TNotifyEvent;
FOnDialogCreated: TNotifyEvent;
FOnDialogDestroyed: TNotifyEvent;
FOnExpand: TNotifyEvent;
FOnVerificationClicked: TNotifyEvent;
FQueryChoices: TStrings;
FQueryResult: String;
@ -693,6 +694,7 @@ type
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;
end;
TTaskDialog = class(TCustomTaskDialog)
@ -721,6 +723,7 @@ type
property OnDialogCreated;
property OnDialogDestroyed;
property OnVerificationClicked;
property OnExpand;
end;
const

4
lcl/interfaces/win32/win32wsdialogs.pp
View File

@ -1709,7 +1709,9 @@ begin
end;
TDN_EXPANDO_BUTTON_CLICKED:
begin
if IsConsole then writeln('ToDo: implement OnExpanded');
Assert((Dlg is TCustomTaskDialog),'TaskDialogCallbackProc: dwRefData is NOT a TCustomTaskDialog');
if Assigned(Dlg.OnExpand) then
Dlg.OnExpand(Dlg);
end;
end;
end;