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

fpvectorial: Automatically close subpolygons of a polypolygon read from wmf. Don't close polylines.

Browse Source 
git-svn-id: trunk@52826 -
This commit is contained in:
wp 2016-08-18 05:45:38 +00:00
parent 9b89d6e007
commit efd1f9eca5
1 changed files with 10 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
components/fpvectorial/wmfvectorialreader.pas
View File

@ -675,8 +675,8 @@ begin
pts[i] := Make3DPoint(ScaleX(SmallInt(AParams[j])), ScaleY(SmallInt(AParams[j+1])));
inc(j, 2);
end;
// Automatically close polygon
if not SamePoint(pts[0], pts[n-1], EPS) then begin
// Automatically close polygon (but not polyline)
if AFilled and not SamePoint(pts[0], pts[n-1], EPS) then begin
SetLength(pts, n+1);
pts[n] := pts[0];
end;
@ -700,6 +700,8 @@ end;
procedure TvWMFVectorialReader.ReadPolyPolygon(APage: TvVectorialPage;
const AParams: TParamArray);
const
EPS = 1E-6;
var
nPoly: Integer;
nPts: array of Integer;
@ -707,6 +709,7 @@ var
i, j, k: Integer;
path: TPath;
P: T3DPoint;
Pstart: T3DPoint;
begin
k := 0;
nPoly := AParams[k];
@ -719,14 +722,17 @@ begin
APage.StartPath;
for j := 0 to nPoly-1 do begin
P := Make3DPoint(ScaleX(SmallInt(AParams[k])), ScaleY(SmallInt(AParams[k+1])));
PStart := Make3DPoint(ScaleX(SmallInt(AParams[k])), ScaleY(SmallInt(AParams[k+1])));
inc(k, 2);
APage.AddMoveToPath(P.X, P.Y);
APage.AddMoveToPath(PStart.X, PStart.Y);
for i := 1 to nPts[j]-1 do begin
P := Make3DPoint(ScaleX(SmallInt(AParams[k])), ScaleY(SmallInt(AParams[k+1])));
inc(k, 2);
APage.AddLineToPath(P.X, P.Y);
end;
// Close polygon
if not SamePoint(P, PStart, EPS) then
APage.AddLineToPath(PStart.X, PStart.Y);
end;
path := APage.EndPath;
path.Pen := FCurrPen;