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

LCL/extgraphics: Declare rotation angle parameter "a" of PaintStarN() as extended rather than integer. Related to issue #39983.

Browse Source
This commit is contained in:
wp_xyz 2022-11-02 16:19:45 +01:00
parent 54efec74f5
commit 6c8a2e750f
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/extgraphics.pas
View File

@ -76,7 +76,7 @@ procedure PaintCross(Canvas: TCanvas; XLeft,YUp,XRight,YLow,
procedure PaintHalfEllipse(Canvas: TCanvas; Const PaintRect: TRect;
AHalfEllipseDirection: TShapeDirection);
procedure PaintFivePointLineStar(Canvas: TCanvas; const PaintRect: TRect);
procedure PaintStarN(Canvas: TCanvas;cx,cy,r,n,a:Integer);
procedure PaintStarN(Canvas: TCanvas;cx,cy,r,n:Integer; a: Extended);
procedure InitPolygon(Canvas: TCanvas;PaintRect: TRect;RadAngle: Extended;
@ -791,7 +791,7 @@ begin
Canvas.Line(P[2].x,P[2].y,P[4].x,P[4].y);
end;
procedure PaintStarN(Canvas: TCanvas;cx,cy,r,n,a:Integer);
procedure PaintStarN(Canvas: TCanvas;cx,cy,r,n:Integer; a: Extended);
const MaxStarPoint=36;
var
r1,r0,alpha:double;