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

LCL/TShape: Replace new type TShapePoints by already existing TPointArray

Browse Source
This commit is contained in:
wp_xyz 2023-09-12 18:20:49 +02:00
parent 815e9b0f56
commit 727b27b9bf
1 changed files with 1 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lcl/extctrls.pp
View File

@ -268,9 +268,7 @@ type
stTriangle, stTriangleLeft, stTriangleRight, stTriangleDown, stTriangle, stTriangleLeft, stTriangleRight, stTriangleDown,
stStar, stStarDown, stPolygon); stStar, stStarDown, stPolygon);
TShapePoints = array of TPoint; TShapePointsEvent = procedure (Sender: TObject; var Points: TPointArray;
TShapePointsEvent = procedure (Sender: TObject; var Points: TShapePoints;
var Winding: Boolean) of object; var Winding: Boolean) of object;
TCustomShape = class(TGraphicControl) TCustomShape = class(TGraphicControl)