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

GTK3: implements TColorDialog.AlphaChannel and TColorDialogOption.cdPreventFullOpen. Patch by Anton Kavalenka. Part of Issue #22717.

Browse Source
This commit is contained in:
Bart 2025-01-23 18:40:14 +01:00
parent 38292ecb71
commit 80b7b1fa95
1 changed files with 8 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
lcl/interfaces/gtk3/gtk3widgets.pas
View File

@ -9398,10 +9398,14 @@ end;
procedure TGtk3newColorSelectionDialog.InitializeWidget;
var
rgba:TGdkRGBA;
dlg:TColorDialog;
begin
dlg:=TColorDialog(CommonDialog);
fWidget:= TGtkColorChooserDialog.new(PChar(Self.CommonDialog.Title),nil);
self.color_to_rgba(TColorDialog(Self.CommonDialog).Color,rgba);
PGtkColorChooser(fWidget)^.use_alpha:=false;
self.color_to_rgba(dlg.Color,rgba);
PGtkColorChooser(fWidget)^.use_alpha:=(cdShowAlphaChannel in dlg.Options);
if (cdPreventFullOpen in dlg.Options) then // drop basic palette that way
PGtkColorChooser(fWidget)^.add_palette(GTK_ORIENTATION_HORIZONTAL,9,10,nil);
PGtkColorChooser(fWidget)^.set_rgba(@rgba);
inherited;
end;
@ -9415,6 +9419,8 @@ begin
begin
PGtkColorChooser(fWidget)^.get_rgba(@rgba);
clr:=self.rgba_to_color(rgba);
if not PGtkColorChooser(fWidget)^.use_alpha then
clr:=clr and $00ffffff;
TColorDialog(Self.CommonDialog).Color:=clr;
end;
Result:=inherited response_handler(resp_id);