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

LCL, fix TPostScriptCanvas.Polyline not flushing output buffer, from Anton Kavalenka issue #14535

Browse Source 
git-svn-id: trunk@21607 -
This commit is contained in:
jesus 2009-09-08 06:15:37 +00:00
parent 30143a65dd
commit 273106521a
1 changed files with 9 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
lcl/postscriptcanvas.pas
View File

@ -1522,14 +1522,13 @@ begin
Write(Format('%f %f lineto',[pp.fx,pp.fy],FFs),Lst);
end;
if (Pen.Color<>clNone) and ((Pen.Color<>Brush.Color) or (Brush.Style<>bsSolid)) then
begin
UpdateLineColor(clNone);
UpdateLineWidth;
UpdateLineStyle;
Write(Lst);
write('stroke');
end;
UpdateLineColor(clNone);
UpdateLineWidth;
UpdateLineStyle;
write(Lst);
write('stroke');
finally
Lst.Free;
end;
@ -2186,8 +2185,10 @@ begin
Self.Write('gsave');
Self.WriteComment('This is clip path');
inc(fSaveCount);
Self.WriteB('[] 0 setdash');
psDrawRect(ARect);
Self.WriteB('clip');
Self.WriteB('stroke');
Self.Write(fBuffer);
// Self.MovetoLastpos;