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

Refactoring TTaskDialog:

Browse Source 
- TWSTaskDialog.Execute: Don't cast ADlg to TTaskDialog.
- Adapt signature of function ExecuteLCLTaskDialog accordingly.
- Less debug output
This commit is contained in:
Bart 2023-07-24 11:06:22 +02:00
parent c343cfe0d3
commit b7cc27d3a5
3 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -1867,7 +1867,7 @@ var
begin
if IsConsole then writeln('TWin32WSTaskDialog.Execute A');
//if IsConsole then writeln('TWin32WSTaskDialog.Execute A');
//if not Assigned(TaskDialogIndirect) or
if not TaskDialogIndirectAvailable or
(tfForceNonNative in ADlg.Flags)

4
lcl/taskdlgemulation.pp
View File

@ -72,7 +72,7 @@ var
TaskDialog_Translate: TTaskDialogTranslate;
function ExecuteLCLTaskDialog(const ADlg: TTaskDialog; AParentWnd: HWND; out ARadioRes: Integer): Integer;
function ExecuteLCLTaskDialog(const ADlg: TCustomTaskDialog; AParentWnd: HWND; out ARadioRes: Integer): Integer;
type
@ -236,7 +236,7 @@ end;
{ -------------- }
function ExecuteLCLTaskDialog(const ADlg: TTaskDialog; AParentWnd: HWND; out ARadioRes: Integer): Integer;
function ExecuteLCLTaskDialog(const ADlg: TCustomTaskDialog; AParentWnd: HWND; out ARadioRes: Integer): Integer;
var
DlgForm: TLCLTaskDialog;
begin

2
lcl/widgetset/wsdialogs.pp
View File

@ -201,7 +201,7 @@ end;
class function TWSTaskDialog.Execute(const ADlg: TCustomTaskDialog; AParentWnd: HWND; out ARadioRes: Integer): Integer;
begin
//writeln('TWSTaskDialog.Execute: Assigned(ADlg)=',Assigned(ADlg));
Result := ExecuteLCLTaskDialog(TTaskDialog(ADlg), AParentWnd, ARadiores);
Result := ExecuteLCLTaskDialog(ADlg, AParentWnd, ARadiores);
end;
{ WidgetSetRegistration }