paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-11 21:29:42 +02:00
Code Issues Packages Projects Releases Wiki Activity

* aspect ratio adjustment added to Arc and PieSlice

Browse Source 
git-svn-id: trunk@15963 -
This commit is contained in:
nickysn 2010-09-09 23:30:41 +00:00
parent 07519e8839
commit 948234c558
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
packages/graph/src/inc/graph.inc
View File

@ -1356,7 +1356,7 @@ end;
{ OldWriteMode := CurrentWriteMode; { OldWriteMode := CurrentWriteMode;
if (LineInfo.Thickness = NormWidth) then if (LineInfo.Thickness = NormWidth) then
CurrentWriteMode := NormalPut;} CurrentWriteMode := NormalPut;}
InternalEllipse(X,Y,Radius,Radius,StAngle,Endangle,{$ifdef fpc}@{$endif}DummyPatternLine); InternalEllipse(X,Y,Radius,(longint(Radius)*XAspect) div YAspect,StAngle,Endangle,{$ifdef fpc}@{$endif}DummyPatternLine);
{ CurrentWriteMode := OldWriteMode;} { CurrentWriteMode := OldWriteMode;}
end; end;
@ -1944,7 +1944,7 @@ end;
procedure PieSlice(X,Y,stangle,endAngle:smallint;Radius: Word); procedure PieSlice(X,Y,stangle,endAngle:smallint;Radius: Word);
begin begin
Sector(x,y,stangle,endangle,radius,radius); Sector(x,y,stangle,endangle,radius,(longint(Radius)*XAspect) div YAspect);
end; end;
{$i fills.inc} {$i fills.inc}