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

LCL/Graphics: Fix win32 WS not drawing incomplete continuous Bezier segments in PolyBezier. Do not copy points in overloaded procedure.

Browse Source
This commit is contained in:
wp_xyz 2025-07-09 18:07:18 +02:00
parent 2c3a903d59
commit 9509e5aa8c
2 changed files with 7 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
lcl/include/canvas.inc
View File

@ -840,19 +840,11 @@ end;
procedure TCanvas.PolyBezier(const Points: array of TPoint;
Filled: boolean = False;
Continuous: boolean = True);
var NPoints, i: integer;
PointArray: ^TPoint;
var NPoints: integer;
begin
NPoints:=High(Points)-Low(Points)+1;
if NPoints<4 then exit; // Curve must have at least 4 points
GetMem(PointArray,SizeOf(TPoint)*NPoints);
try
for i:=0 to NPoints-1 do
PointArray[i]:=Points[i+Low(Points)];
PolyBezier(PointArray, NPoints, Filled, Continuous);
finally
FreeMem(PointArray);
end;
PolyBezier(@Points[0], NPoints, Filled, Continuous);
end;
procedure TCanvas.PolyBezier(Points: PPoint; NumPts: Integer;

5
lcl/interfaces/win32/win32winapi.inc
View File

@ -2852,7 +2852,12 @@ begin
If Filled or (not Continuous) then
Result := Inherited PolyBezier(DC,Points,NumPts, Filled, Continuous)
else
begin
// Make sure that only complete bezier segments are included in this mode.
// Otherwise, Windows will not draw anything at all.
NumPts := (NumPts - 1) div 3 * 3 + 1;
Result := Boolean(Windows.PolyBezier(DC, LPPOINT(Points)^, NumPts));
end;
end;
{------------------------------------------------------------------------------