mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2025-04-20 08:29:32 +02:00
Refactoring TTaskDialog: remove property ParentWindow (added in 61fefaa7
), it's not longer needed.
This commit is contained in:
parent
85c1fff32d
commit
4442949a29
lcl
@ -629,7 +629,6 @@ type
|
||||
FFooterText: TTranslateString;
|
||||
FMainIcon: TTaskDialogIcon;
|
||||
FModalResult: TModalResult;
|
||||
FParentWindow: HWND;
|
||||
FRadioButton: TTaskDialogRadioButtonItem;
|
||||
FRadioButtons: TTaskDialogButtons;
|
||||
FText: TTranslateString;
|
||||
@ -648,9 +647,6 @@ type
|
||||
public
|
||||
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;
|
||||
destructor Destroy; override;
|
||||
function Execute: Boolean; overload; dynamic;
|
||||
|
@ -228,7 +228,6 @@ const
|
||||
begin
|
||||
//Current goal of refactoring: replace all this with:
|
||||
//Result := TWSTaskDialogClass(WidgetSetClass).Execute(Self);
|
||||
FParentWindow := ParentWnd;
|
||||
|
||||
|
||||
//temporary show new, then old dialog, both in emulated mode (regardless of Flags)
|
||||
|
Loading…
Reference in New Issue
Block a user