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

LCL-GTK3: Force new path on color change. Issue #40971, patch by Anton Kavalenka.

Browse Source
This commit is contained in:
Juha 2024-06-28 12:54:40 +03:00
parent 5966a227e8
commit d328064efb
1 changed files with 5 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
lcl/interfaces/gtk3/gtk3objects.pas
View File

@ -1090,7 +1090,11 @@ begin
FColor := AValue;
ColorToCairoRGB(FColor, ARed, AGreen, ABlue);
if Assigned(FContext) and Assigned(FContext.pcr) then
begin
cairo_stroke(fContext.Pcr);
cairo_new_path(fContext.Pcr);
cairo_set_source_rgb(FContext.pcr, ARed, AGreen, ABlue);
end;
end;
constructor TGtk3Pen.Create;
@ -1114,6 +1118,7 @@ begin
if not Assigned(fContext) then exit(nil);
Result := FContext.CurrentPen;
fContext.CurrentPen := Self;
Self.SetColor(fColor); // update Cairo
end;
function TGtk3Pen.Get(szbuf: integer; pbuf: pointer): integer;