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

Refactoring TTaskDialog: remove property ParentWindow (added in 61fefaa7), it's not longer needed.

Browse Source
This commit is contained in:
Bart 2023-07-22 16:03:50 +02:00
parent 85c1fff32d
commit 4442949a29
2 changed files with 0 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lcl/dialogs.pp
View File

@ -629,7 +629,6 @@ type
FFooterText: TTranslateString; FFooterText: TTranslateString;
FMainIcon: TTaskDialogIcon; FMainIcon: TTaskDialogIcon;
FModalResult: TModalResult; FModalResult: TModalResult;
FParentWindow: HWND;
FRadioButton: TTaskDialogRadioButtonItem; FRadioButton: TTaskDialogRadioButtonItem;
FRadioButtons: TTaskDialogButtons; FRadioButtons: TTaskDialogButtons;
FText: TTranslateString; FText: TTranslateString;
@ -648,9 +647,6 @@ type
public public
FWidth: Integer; //ToDo: make this a readonly property, so we can use it in the TaskDlgEmulation unit. FWidth: Integer; //ToDo: make this a readonly property, so we can use it in the TaskDlgEmulation unit.
property ParentWindow: HWND read FParentWindow;
constructor Create(AOwner: TComponent); override; constructor Create(AOwner: TComponent); override;
destructor Destroy; override; destructor Destroy; override;
function Execute: Boolean; overload; dynamic; function Execute: Boolean; overload; dynamic;

1
lcl/include/taskdialog.inc
View File

@ -228,7 +228,6 @@ const
begin begin
//Current goal of refactoring: replace all this with: //Current goal of refactoring: replace all this with:
//Result := TWSTaskDialogClass(WidgetSetClass).Execute(Self); //Result := TWSTaskDialogClass(WidgetSetClass).Execute(Self);
FParentWindow := ParentWnd;
//temporary show new, then old dialog, both in emulated mode (regardless of Flags) //temporary show new, then old dialog, both in emulated mode (regardless of Flags)