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

TColorDialog: implement option cdNoEyeDropperButton(QT6.6+)

Browse Source
This commit is contained in:
Bart 2024-12-14 19:51:41 +01:00
parent 4a9ba936a8
commit 99df3f6ad4
3 changed files with 5 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
lcl/dialogs.pp
View File

@ -295,7 +295,8 @@ type
cdAnyColor, // Causes the dialog box to display all available colors in the set of basic colors.
cdShowAlphaChannel, // Shows the AlphaChannel control (GTK2, QT, QT5, QT6)
cdNoButtons, // Removes the buttons from the dialog (QT, QT5, QT6)
cdDontUseNativeDialog // Use QT dialog, not the dialog of the OS (QT, QT5, Qt6)
cdDontUseNativeDialog, // Use QT dialog, not the dialog of the OS (QT, QT5, Qt6)
cdNoEyeDropperButton // Hide the Eye Dropper button. QT6.6+
);
TColorDialogOptions = set of TColorDialogOption;

1
lcl/interfaces/qt6/qt62.pas
View File

@ -12545,6 +12545,7 @@ const
QColorDialogShowAlphaChannel = $00000001;
QColorDialogNoButtons = $00000002;
QColorDialogDontUseNativeDialog = $00000004;
QColorDialogNoEyeDropperButton = $00000008;
function QColorDialog_Create(parent: QWidgetH = nil): QColorDialogH; cdecl; external Qt6PasLib name 'QColorDialog_Create';
procedure QColorDialog_Destroy(handle: QColorDialogH); cdecl; external Qt6PasLib name 'QColorDialog_Destroy';

2
lcl/interfaces/qt6/qtwsdialogs.pp
View File

@ -923,6 +923,8 @@ begin
AOptions := AOptions or QColorDialogNoButtons;
if (cdDontUseNativeDialog in ColorDialog.Options) then
AOptions := AOptions or QColorDialogDontUseNativeDialog;
if (cdNoEyeDropperButton in ColorDialog.Options) then
AOptions := AOptions or QColorDialogNoEyeDropperButton;
ReturnBool := QColorDialog_getColor(@ARetColor, @AQColor, TQtWSCommonDialog.GetDialogParent(ACommonDialog), @ATitle, QColorDialogShowAlphaChannel);
if ReturnBool then
begin