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

QT5: implement TColorDialog.Options cdNoButtons and cdDontUseNativeDialog

Browse Source
This commit is contained in:
Bart 2024-12-14 16:56:59 +01:00
parent 8fd7e96fa5
commit 47d9468d12
1 changed files with 4 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lcl/interfaces/qt5/qtwsdialogs.pp
View File

@ -917,6 +917,10 @@ begin
AOptions := 0; // here we add possible options from ColorDialog.Options, see QColorDialogColorDialogOptions for possible options. AOptions := 0; // here we add possible options from ColorDialog.Options, see QColorDialogColorDialogOptions for possible options.
if (cdShowAlphaChannel in ColorDialog.Options) then if (cdShowAlphaChannel in ColorDialog.Options) then
AOptions := AOptions or QColorDialogShowAlphaChannel; AOptions := AOptions or QColorDialogShowAlphaChannel;
if (cdNoButtons in ColorDialog.Options) then
AOptions := AOptions or QColorDialogNoButtons;
if (cdDontUseNativeDialog in ColorDialog.Options) then
AOptions := AOptions or QColorDialogDontUseNativeDialog;
QColorDialog_getColor(PQColor(@AQColorRet), PQColor(@AQColor), TQtWSCommonDialog.GetDialogParent(ACommonDialog), @ATitle, AOptions); QColorDialog_getColor(PQColor(@AQColorRet), PQColor(@AQColor), TQtWSCommonDialog.GetDialogParent(ACommonDialog), @ATitle, AOptions);
ReturnBool := AQColorRet.ColorSpec <> 0; ReturnBool := AQColorRet.ColorSpec <> 0;