Explorar o código

remove unnecessary code

git-svn-id: https://svn.inf.ethz.ch/svn/lecturers/a2/trunk@6672 8c9fc860-2736-0410-a75d-ab315db34111
eth.metacore %!s(int64=9) %!d(string=hai) anos
pai
achega
b6ffe589a4
Modificáronse 1 ficheiros con 1 adicións e 2 borrados
  1. 1 2
      source/WMGraphicUtilities.Mod

+ 1 - 2
source/WMGraphicUtilities.Mod

@@ -320,8 +320,7 @@ BEGIN
 
 	EllipseBresenham(canvas, innerRect, rx, ry, FillCornerPoints, color, mode);
 
-	INC(innerRect.l, 1); INC(innerRect.t, 1); DEC(innerRect.r, 1); DEC(innerRect.b, 1);
-	canvas.Fill(WMRectangles.MakeRect(rect.l, innerRect.t, rect.r, innerRect.b), color, mode);
+	canvas.Fill(WMRectangles.MakeRect(rect.l, innerRect.t + 1, rect.r, innerRect.b - 1), color, mode);
 END FillRoundRect;
 
 PROCEDURE DrawRoundedCorners*(CONST canvas : WMGraphics.Canvas; innerRect : WMRectangles.Rectangle; rx, ry : LONGINT; color : WMGraphics.Color; mode : LONGINT);