From c13554940e1c334056abad25b61562173e6c8d31 Mon Sep 17 00:00:00 2001 From: Graeme Geldenhuys Date: Fri, 10 Apr 2015 08:44:37 +0100 Subject: Fix compilation error for 'canvastest' demo --- examples/corelib/canvastest/fpgcanvas.lpr | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) (limited to 'examples/corelib') diff --git a/examples/corelib/canvastest/fpgcanvas.lpr b/examples/corelib/canvastest/fpgcanvas.lpr index 9d0656e4..14c87a82 100644 --- a/examples/corelib/canvastest/fpgcanvas.lpr +++ b/examples/corelib/canvastest/fpgcanvas.lpr @@ -96,7 +96,7 @@ begin // Testing Text and Fonts y := 60; Canvas.SetTextColor(clBlack); - Canvas.DrawString(5, y, 'This text must be black and default font (' + fpgApplication.DefaultFont.FontDesc + ')'); + Canvas.DrawString(5, y, 'This text must be black and default font (' + fpgStyle.DefaultFont.FontDesc + ')'); // red dot indicates top/left corner of where previous text was started Canvas.Pixels[5,y] := clRed; @@ -117,7 +117,7 @@ begin // Testing basic style drawings - Canvas.Font := fpgApplication.DefaultFont; + Canvas.Font := fpgStyle.DefaultFont; Canvas.DrawString(320, 3, 'DrawButtonFace():'); r.SetRect(300, 20, 75, 25); @@ -138,7 +138,7 @@ begin Canvas.DrawString(45, y, 'DrawControlFrame():'); y := y + Canvas.Font.Height; - Canvas.DrawControlFrame(5, y, 200, 23); + fpgStyle.DrawControlFrame(Canvas, 5, y, 200, 23); // Testing Bitmap painting -- cgit v1.2.3-70-g09d2 From 4b609c2b20df0f2980f407366c0bf16c4aeadfac Mon Sep 17 00:00:00 2001 From: Graeme Geldenhuys Date: Mon, 25 May 2015 23:35:04 +0100 Subject: example: Fixes compiler error - fpgApplication.DefaultFont was removed a while ago --- examples/corelib/aggcanvas/agg_canvas_test.lpr | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'examples/corelib') diff --git a/examples/corelib/aggcanvas/agg_canvas_test.lpr b/examples/corelib/aggcanvas/agg_canvas_test.lpr index 3b3a75ef..a3bde27f 100644 --- a/examples/corelib/aggcanvas/agg_canvas_test.lpr +++ b/examples/corelib/aggcanvas/agg_canvas_test.lpr @@ -245,7 +245,7 @@ begin // Testing basic style drawings - Canvas.Font := fpgApplication.DefaultFont; + Canvas.Font := fpgStyle.DefaultFont; Canvas.DrawString(320, 3, 'DrawButtonFace():'); r.SetRect(300, 20, 75, 25); -- cgit v1.2.3-70-g09d2