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.