paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-26 23:03:48 +02:00
Code Issues Packages Projects Releases Wiki Activity

LCL: fixed copy paste error in post script commands (issue )

Browse Source 
git-svn-id: trunk@20574 -
This commit is contained in:
vincents 2009-06-10 18:42:01 +00:00
parent 27e9f727e6
commit 041e562503
1 changed files with 2 additions and 2 deletions

4
lcl/postscriptcanvas.pas
View File

@ -1474,7 +1474,7 @@ begin
SetPosition(X1,Y1);
pp:=TranslateCoord(X1,Y1);
write(Format('%f %f domoveto',[pp.fx,pp.fy],FFs));
write(Format('%f %f moveto',[pp.fx,pp.fy],FFs));
end;
//Drawe line
@ -1490,7 +1490,7 @@ begin
UpdateLineColor(clNone);
UpdateLineWidth;
UpdateLineStyle;
write(Format('%f %f Dolineto',[pp.fx,pp.fy],FFs));
write(Format('%f %f lineto',[pp.fx,pp.fy],FFs));
changed;
end;