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

+ Fixed ellipse drawing

Browse Source
This commit is contained in:
michael 2005-01-24 21:50:08 +00:00
parent bb7b812beb
commit 5966644f25
1 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
fcl/image/fpcanvas.inc
View File

@ -441,6 +441,8 @@ begin
p := Pen.style <> psClear; p := Pen.style <> psClear;
b := Brush.style <> bsClear; b := Brush.style <> bsClear;
pb := false; pb := false;
dp:=False;
db:=False;
if p and (Pen is TFPCustomDrawPen) then if p and (Pen is TFPCustomDrawPen) then
begin begin
p := false; p := false;
@ -461,12 +463,12 @@ begin
DoEllipseAndFill (bounds) DoEllipseAndFill (bounds)
else else
begin begin
if p then if not dp then
DoEllipse (bounds) DoEllipse (bounds)
else else
with bounds do with bounds do
TFPCustomDrawPen(Pen).Ellipse (left,top,right,bottom); TFPCustomDrawPen(Pen).Ellipse (left,top,right,bottom);
if b then if not db then
DoEllipseFill (bounds) DoEllipseFill (bounds)
else else
with bounds do with bounds do