summaryrefslogtreecommitdiff
path: root/examples/corelib
diff options
context:
space:
mode:
authorGraeme Geldenhuys <graemeg@gmail.com>2015-04-10 08:44:37 +0100
committerGraeme Geldenhuys <graemeg@gmail.com>2015-04-10 11:38:10 +0100
commitc13554940e1c334056abad25b61562173e6c8d31 (patch)
treedeb6e274fbf16524249bfa54f360c04bbdd371ae /examples/corelib
parente258bd62fcf137d1783fa82164d72a0a7821ff49 (diff)
downloadfpGUI-c13554940e1c334056abad25b61562173e6c8d31.tar.xz
Fix compilation error for 'canvastest' demo
Diffstat (limited to 'examples/corelib')
-rw-r--r--examples/corelib/canvastest/fpgcanvas.lpr6
1 files changed, 3 insertions, 3 deletions
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