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

LCL-GTK3: Prevent all-black background in controls. Issue #38709, patch from Anton Kavalenka.

Browse Source 
git-svn-id: trunk@64949 -
This commit is contained in:
juha 2021-04-10 10:01:07 +00:00
parent a8969e516a
commit 74d9e094a0
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -2338,7 +2338,7 @@ var
begin
if IsWidgetOK then
begin
AColor := TColortoTGdkRGBA(AValue);
AColor := TColortoTGdkRGBA(ColorToRgb(AValue));
if FWidget <> GetContainerWidget then
begin
with FWidget^ do
@ -2427,7 +2427,7 @@ begin
if IsWidgetOK then
begin
AColor := TColortoTGdkRGBA(AValue);
AColor := TColortoTGdkRGBA(ColorToRgb(AValue));
if FWidget <> GetContainerWidget then
begin
with FWidget^ do