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

Gtk3: apply scrollbars offset when painting background of control.

Browse Source
This commit is contained in:
zeljan1 2025-03-26 15:24:33 +01:00
parent 5150173131
commit 1569e7c7b1
1 changed files with 5 additions and 2 deletions

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

@ -8829,6 +8829,7 @@ procedure TGtk3CustomControl.DoBeforeLCLPaint;
var
DC: TGtk3DeviceContext;
NColor: TColor;
P: TPoint;
begin
inherited DoBeforeLCLPaint;
if not Visible then
@ -8837,16 +8838,18 @@ begin
DC := TGtk3DeviceContext(Context);
NColor := LCLObject.Color;
P.X := Round(GetScrolledWindow^.get_hadjustment^.get_value);
P.Y := Round(GetScrolledWindow^.get_vadjustment^.get_value);
if (NColor <> clNone) and (NColor <> clDefault) then
begin
DC.CurrentBrush.Color := ColorToRGB(NColor);
DC.fillRect(0, 0, LCLObject.Width, LCLObject.Height);
DC.fillRect(P.X, P.Y, LCLObject.Width, LCLObject.Height);
end;
if BorderStyle <> bsNone then
begin
DC.CurrentPen.Color := ColorToRGB(clBtnShadow); // not sure what color to use here?
DC.drawRect(0, 0, LCLObject.Width, LCLObject.Height, False, True);
DC.drawRect(P.X, P.Y, LCLObject.Width, LCLObject.Height, False, True);
end;
end;