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

QT implement TColorDialog.AlphaChannel and associated option cdShowAlphaChannel.

Browse Source
This commit is contained in:
Bart 2024-12-14 16:20:28 +01:00
parent 633cb5bbc0
commit 2753fed6e8
1 changed files with 24 additions and 19 deletions

43
lcl/interfaces/qt/qtwsdialogs.pp
View File

@ -857,11 +857,11 @@ end;
class procedure TQtWSColorDialog.ShowModal(const ACommonDialog: TCommonDialog);
var
AColor: TColorRef;
AQColor: TQColor;
AQtColor: QColorH;
ARgb: QRgb;
AQColor, AQColorRet: TQColor;
ReturnBool: Boolean;
ATitle: WideString;
ColorDialog: TColorDialog absolute ACommonDialog;
AOptions: QColorDialogColorDialogOptions;
{$IFDEF HASX11}
AWND: HWND;
{$ENDIF}
@ -881,30 +881,35 @@ var
begin
AColor := ColorToRgb(ColorDialog.Color);
AQColor.Alpha := $FFFF;
AQColor.Alpha := Word(ColorDialog.AlphaChannel) * $0101;
AQColor.ColorSpec := 1;
AQColor.Pad := 0;
ColorRefToTQColor(AColor, AQColor);
AQtColor := QColor_create(PQColor(@AQColor));
ARgb := QColor_rgba(AQtColor);
FillCustomColors;
ARgb := QColorDialog_getRgba(ARgb, @ReturnBool,
TQtWSCommonDialog.GetDialogParent(ACommonDialog));
{$IFDEF HASX11}
Clipboard.BeginX11SelectionLock;
{$ENDIF}
QColor_fromRgba(PQColor(AQtColor), ARgb);
try
QColor_toRgb(AQtColor, @AQColor);
TQColorToColorRef(AQColor, AColor);
ColorDialog.Color := TColor(AColor);
finally
QColor_destroy(AQtColor);
end;
ATitle := UTF8ToUTF16(ACommonDialog.Title);
AQColorRet := Default(TQColor);
AOptions := 0; // here we add possible options from ColorDialog.Options, see QColorDialogColorDialogOptions for possible options.
if (cdShowAlphaChannel in ColorDialog.Options) then
AOptions := AOptions or QColorDialogShowAlphaChannel;
QColorDialog_getColor(PQColor(@AQColorRet), PQColor(@AQColor), TQtWSCommonDialog.GetDialogParent(ACommonDialog), @ATitle, AOptions);
ReturnBool := AQColorRet.ColorSpec <> 0;
if ReturnBool then
ACommonDialog.UserChoice := mrOk
else
ACommonDialog.UserChoice := mrCancel;
begin
TQColorToColorRef(AQColorRet, AColor);
ColorDialog.Color := AColor;
ColorDialog.AlphaChannel := AQColorRet.Alpha and $FF;
ColorDialog.UserChoice := mrOk
end else
ColorDialog.UserChoice := mrCancel;
{$IFDEF HASX11}
if (QtWidgetSet.WindowManagerName = 'xfwm4') and (QApplication_activeModalWidget() <> nil) then
begin