-
Notifications
You must be signed in to change notification settings - Fork 24
Closed as not planned
Closed as not planned
Copy link
Labels
invalidThis doesn't seem rightThis doesn't seem right
Description
Delphi IDE version: Delphi 12.1
DelphiLint version: 1.1.0
SonarDelphi version: 1.6.0
unit Unit1;
interface
uses
GR32,
GR32_Polygons,
GR32_VectorUtils;
procedure DrawThickLine(ABitmap: TBitmap32; const AStart, AEnd: TFloatPoint; const AColor: TColor32;
const AWidth: Integer); inline;
procedure DrawThickPolyLine(ABitmap: TBitmap32; const APoints: TArrayOfFloatPoint; const AColor: TColor32;
const AWidth: Integer);
implementation
procedure DrawThickLine(ABitmap: TBitmap32; const AStart, AEnd: TFloatPoint; const AColor: TColor32;
const AWidth: Integer);
var
VLine: TArrayOfFloatPoint;
begin
SetLength(VLine, 2);
VLine[0] := AStart;
VLine[1] := AEnd;
DrawThickPolyLine(ABitmap, VLine, AColor, AWidth);
end;
procedure DrawThickPolyLine(ABitmap: TBitmap32; const APoints: TArrayOfFloatPoint;
const AColor: TColor32; const AWidth: Integer);
var
VPoly: TArrayOfFloatPoint;
begin
VPoly := BuildPolyLine(APoints, AWidth);
if not ABitmap.MeasuringMode then begin
PolygonFS(ABitmap, VPoly, AColor);
end;
ABitmap.Changed(MakeRect(PolygonBounds(VPoly), rrOutside));
end;
end.
Metadata
Metadata
Assignees
Labels
invalidThis doesn't seem rightThis doesn't seem right