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

Refactoring TTaskDialog: remove hack of exposing TCustomTaskDialog.FWidth. It was unneccessary to begin with...

Browse Source
This commit is contained in:
Bart 2023-07-24 11:12:55 +02:00
parent b7cc27d3a5
commit e1d2db658f
3 changed files with 3 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
lcl/dialogs.pp
View File

@ -634,6 +634,7 @@ type
FText: TTranslateString;
FTitle: TTranslateString;
FVerificationText: TTranslateString;
FWidth: Integer;
FOnButtonClicked: TTaskDlgClickEvent;
//procedure DoOnButtonClickedHandler(Sender: PTaskDialog; AButtonID: Integer;
// var ACanClose: Boolean);
@ -644,8 +645,6 @@ type
function DoExecute(ParentWnd: HWND): Boolean; dynamic;
procedure DoOnButtonClicked(AModalResult: Integer; var ACanClose: Boolean); dynamic;
public
FWidth: Integer; //ToDo: make this a readonly property, so we can use it in the TaskDlgEmulation unit.
constructor Create(AOwner: TComponent); override;
destructor Destroy; override;
function ButtonIDToModalResult(const AButtonID: Integer): TModalResult;

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

@ -1856,7 +1856,7 @@ var
Config.nDefaultRadioButton := DefRB + TaskDialogFirstRadioButtonIndex;
//writeln('PrepareTaskDialogConfig O');
Config.cxWidth := MulDiv(ADlg.FWidth, 4, DialogBaseUnits); // cxWidth needed in "dialog units"
Config.cxWidth := MulDiv(ADlg.Width, 4, DialogBaseUnits); // cxWidth needed in "dialog units"
//writeln('PrepareTaskDialogConfig P');
Config.pfCallback := @TaskDialogCallbackProc;

2
lcl/taskdlgemulation.pp
View File

@ -695,7 +695,7 @@ begin
if (FontHeight = 0) then
FontHeight := Screen.SystemFont.Height;
aWidth := FDlg.FWidth;
aWidth := FDlg.Width;
if (aWidth <= 0) then
begin
aWidth := Canvas.TextWidth(DlgTitle);