paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-22 11:49:23 +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;
b := Brush.style <> bsClear;
pb := false;
dp:=False;
db:=False;
if p and (Pen is TFPCustomDrawPen) then
begin
p := false;
@ -461,12 +463,12 @@ begin
DoEllipseAndFill (bounds)
else
begin
if p then
if not dp then
DoEllipse (bounds)
else
with bounds do
TFPCustomDrawPen(Pen).Ellipse (left,top,right,bottom);
if b then
if not db then
DoEllipseFill (bounds)
else
with bounds do