diff --git a/examples/canvas_test/canvastest.lpi b/examples/canvas_test/canvastest.lpi index 021961988a..e94008d12a 100644 --- a/examples/canvas_test/canvastest.lpi +++ b/examples/canvas_test/canvastest.lpi @@ -40,6 +40,7 @@ + @@ -70,6 +71,7 @@ + diff --git a/examples/canvas_test/ellipseunit.lfm b/examples/canvas_test/ellipseunit.lfm index 2f1a0a9232..64e837e7b2 100644 --- a/examples/canvas_test/ellipseunit.lfm +++ b/examples/canvas_test/ellipseunit.lfm @@ -1,9 +1,9 @@ object frmEllipse: TfrmEllipse Left = 290 - Height = 240 + Height = 307 Top = 197 Width = 433 Caption = 'frmEllipse' OnPaint = FormPaint - LCLVersion = '0.9.31' + LCLVersion = '1.1' end diff --git a/examples/canvas_test/ellipseunit.pas b/examples/canvas_test/ellipseunit.pas index 02790f1316..51bb48d89a 100644 --- a/examples/canvas_test/ellipseunit.pas +++ b/examples/canvas_test/ellipseunit.pas @@ -42,6 +42,10 @@ begin Canvas.TextOut(150, 130, 'Arc S=-25 L=45'); Canvas.TextOut(250, 130, 'Arc S=30 L=-45'); + Canvas.TextOut(50, 215, 'Arc SX=0 SY=0 EX=300 EY=300'); + Canvas.TextOut(150, 230, 'Arc SX=300 SY=300 EX=0 EY=0'); + //Canvas.TextOut(250, 230, 'Arc S=30 L=-45'); + Canvas.Brush.Style := bsSolid; Canvas.Ellipse(50, 50, 100, 100); @@ -51,6 +55,10 @@ begin Canvas.Arc(50, 150, 100, 200, 0, 90*16); Canvas.Arc(150, 150, 200, 200, -25*16, 45*16); Canvas.Arc(250, 150, 300, 200, 30*16, -45*16); + + Canvas.Arc(50, 250, 100, 300, 0, 0, 300, 300); + Canvas.Arc(150, 250, 200, 300, 300, 300, 0, 0); + //Canvas.Arc(250, 150, 300, 200, 30*16, -45*16); end; end.