Commit 4f36287d authored by Martin Schreiber's avatar Martin Schreiber

* tcanvas.drawlines() removes last segment with zero length, fixes not drawing...

* tcanvas.drawlines() removes last segment with zero length, fixes not drawing endpoint (sideffect of X11 0-with linends workaround).
parent bee0acd4
......@@ -4956,6 +4956,12 @@ begin
end;
count:= acount;
end;
int1:= count - 2;
if (int1 > 0) and (apoints[int1].x = apoints[int1+1].x) and
(apoints[int1].y = apoints[int1+1].y) then begin
//coincident endpoints are not drawn on x11
dec(count);
end;
closed:= aclosed;
points:= @apoints[first];
end;
......
......@@ -1356,6 +1356,7 @@ begin
xmask:= xmask or gctile;
end;
end;
if needslinecheck then begin
if (gclinewidth_ = 0) and not (xfts_smooth in xftstate) then begin
xvalues.line_width:= 1;
......@@ -1372,6 +1373,7 @@ begin
end;
xmask:= xmask or (gclinewidth or gccapstyle);
end;
if xmask <> 0 then begin
xchangegc(appdisp,agc,xmask,@xvalues);
end;
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment