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

LCL: task dialog: add tfForceNonNative Flag

Browse Source
This commit is contained in:
Ondrej Pokorny 2022-10-02 11:40:37 +02:00
parent ff3965e8bc
commit 62cb85cb4b
2 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
lcl/dialogs.pp
View File

@ -541,7 +541,8 @@ type
tfVerificationFlagChecked, tfShowProgressBar,
tfShowMarqueeProgressBar, tfCallbackTimer,
tfPositionRelativeToWindow, tfRtlLayout,
tfNoDefaultRadioButton, tfCanBeMinimized);
tfNoDefaultRadioButton, tfCanBeMinimized,
tfForceNonNative);
TTaskDialogFlags = set of TTaskDialogFlag;
TTaskDialogCommonButton = (tcbOk, tcbYes, tcbNo, tcbCancel, tcbRetry, tcbClose);

2
lcl/include/taskdialog.inc
View File

@ -240,7 +240,7 @@ begin
TaskDlg.Verify := VerificationText;
ButtonID := TaskDlg.Execute(TD_COMMONBUTTONS(CommonButtons), DefBtn, TD_FLAGS(Flags), TF_DIALOGICON(MainIcon), TF_FOOTERICON(FooterIcon),
DefRB, 0, ParentWnd, False, False, @DoOnButtonClickedHandler);
DefRB, 0, ParentWnd, tfForceNonNative in Flags, False, @DoOnButtonClickedHandler);
Result := ButtonID>=0;
FModalResult := ButtonIDToModalResult(ButtonID);