From bb4616fa1af67de6012a714fe7158b61fa1b0c1a Mon Sep 17 00:00:00 2001 From: graemeg Date: Tue, 7 Aug 2007 15:24:30 +0000 Subject: * Changed the parameters of DrawRectangle, FillRectangle to rather use Width and Height. * DrawLine and DrawRectangle now use the same coordinate system as Windows does. * I need to fixed corrupted painting in widgets due to this. --- examples/corelib/canvastest/fpgcanvas.lpr | 11 +++++++++-- 1 file changed, 9 insertions(+), 2 deletions(-) (limited to 'examples/corelib') diff --git a/examples/corelib/canvastest/fpgcanvas.lpr b/examples/corelib/canvastest/fpgcanvas.lpr index 1ed2c1c0..54ef8bc7 100644 --- a/examples/corelib/canvastest/fpgcanvas.lpr +++ b/examples/corelib/canvastest/fpgcanvas.lpr @@ -43,6 +43,13 @@ begin inherited HandlePaint; // Testing Rectangles + Canvas.SetColor(clBlack); + r.Top := 0; + r.Left := 0; + r.Right := 1; + r.Bottom := 1; + Canvas.DrawRectangle(r); + Canvas.SetColor(clBlack); r.Top := 5; r.Left := 60; @@ -161,11 +168,11 @@ begin // Arc drawing tests Canvas.SetColor(clBlack); - Canvas.DrawRectangle(5, 235, 55, 285); + Canvas.DrawRectangle(5, 235, 50, 50); Canvas.SetColor(clRed); Canvas.DrawArc(5, 235, 50, 50, 0, 270); // should overlap rectangle pixels Canvas.SetColor(clBlack); - Canvas.DrawRectangle(5, 290, 55, 340); + Canvas.DrawRectangle(5, 290, 50, 50); Canvas.SetColor(clRed); Canvas.FillArc(5, 290, 50, 50, 0, 270); // should overlap rectangle pixels -- cgit v1.2.3-70-g09d2