Browse Source

* aspect ratio adjustment added to Arc and PieSlice

git-svn-id: trunk@15963 -
nickysn 15 years ago
parent
commit
948234c558
1 changed files with 2 additions and 2 deletions
  1. 2 2
      packages/graph/src/inc/graph.inc

+ 2 - 2
packages/graph/src/inc/graph.inc

@@ -1356,7 +1356,7 @@ end;
 {     OldWriteMode := CurrentWriteMode;
      if (LineInfo.Thickness = NormWidth) then
        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;}
    end;
 
@@ -1944,7 +1944,7 @@ end;
 
   procedure PieSlice(X,Y,stangle,endAngle:smallint;Radius: Word);
   begin
-    Sector(x,y,stangle,endangle,radius,radius);
+    Sector(x,y,stangle,endangle,radius,(longint(Radius)*XAspect) div YAspect);
   end;
 
 {$i fills.inc}