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: implement property Handle. Makes it possible to send messages to the dialog.

Browse Source 
This is needed to implement e.g. progressbar and can be used to update on-the-fly the contents of the dialog.
This commit is contained in:
Bart 2023-08-21 22:11:25 +02:00
parent dde185549b
commit cf5777a164
4 changed files with 16 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lcl/dialogs.pp
View File

@ -652,6 +652,7 @@ type
FFlags: TTaskDialogFlags;
FFooterIcon: TTaskDialogIcon;
FFooterText: TTranslateString;
FHandle: THandle;
FMainIcon: TTaskDialogIcon;
FModalResult: TModalResult;
FOnDialogConstructed: TNotifyEvent;
@ -703,6 +704,8 @@ type
//which might be implemented in a derived class, but the event handler must be in base class for Delphi compatibility.
procedure DoOnNavigated; dynamic;
procedure InternalSetDialogHandle(AHandle: THandle); //only to be called from the dialog window
procedure SetRadioButtonFromRadioIndex(AIndex: Integer);
public
constructor Create(AOwner: TComponent); override;
@ -724,6 +727,7 @@ type
property FooterIcon: TTaskDialogIcon read FFooterIcon write FFooterIcon default tdiNone;
property FooterText: TTranslateString read FFooterText write FFooterText;
property MainIcon: TTaskDialogIcon read FMainIcon write FMainIcon default tdiInformation;
property Handle: THandle read FHandle; //Handle to the dialog window
property ModalResult: TModalResult read FModalResult write FModalResult;
property QueryChoices: TStrings read FQueryChoices write SetQueryChoices;
property QueryItemIndex: Integer read FQueryItemIndex write FQueryItemIndex;

7
lcl/include/taskdialog.inc
View File

@ -98,6 +98,8 @@ begin
FCustomFooterIcon := TIcon.Create;
FCustomMainIcon := TIcon.Create;
FHandle := 0;
end;
function TCustomTaskDialog.ButtonIDToModalResult(const AButtonID: Integer
@ -244,6 +246,11 @@ begin
FOnNavigated(Self);
end;
procedure TCustomTaskDialog.InternalSetDialogHandle(AHandle: THandle);
begin
FHandle := AHandle;
end;
procedure TCustomTaskDialog.SetRadioButtonFromRadioIndex(AIndex: Integer);
begin
if (AIndex >= TaskDialogFirstRadioButtonIndex) and (AIndex-TaskDialogFirstRadioButtonIndex < RadioButtons.Count) then

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

@ -1663,6 +1663,10 @@ begin
Assert((Dlg is TCustomTaskDialog),'TaskDialogCallbackProc: dwRefData is NOT a TCustomTaskDialog');
{$PUSH}
{$ObjectChecks OFF}
//testing shows that hwnd is the same in all notifications
//and since TDN_DIALOG_CONSTRUCTED comes first, just set it here
//so any OnTaskDialogxxx event will have access to the correct handle.
TTaskDialogAccess(Dlg).InternalSetDialogHandle(hwnd);
TTaskDialogAccess(Dlg).DoOnDialogConstructed;
{$POP}
end;

1
lcl/taskdlgemulation.pp
View File

@ -960,6 +960,7 @@ procedure TLCLTaskDialog.DoDialogConstructed;
begin
{$PUSH}
{$ObjectChecks OFF}
{%H-}TTaskDialogAccess(FDlg).InternalSetDialogHandle(Handle);
{%H-}TTaskDialogAccess(FDlg).DoOnDialogConstructed;
{$POP}
end;