From f1e669cc3b204280a9e45f1c54d1f0ac9f7e3e70 Mon Sep 17 00:00:00 2001
From: sekelsenmat <sekelsenmat@8e941d3f-bd1b-0410-a28a-d453659cc2b4>
Date: Sat, 12 Feb 2011 21:12:12 +0000
Subject: [PATCH] Small fix for the dimension text rendering

git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@1500 8e941d3f-bd1b-0410-a28a-d453659cc2b4
---
 applications/fpvviewer/fpvectorialsrc/fpvtocanvas.pas | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/applications/fpvviewer/fpvectorialsrc/fpvtocanvas.pas b/applications/fpvviewer/fpvectorialsrc/fpvtocanvas.pas
index 321682ffb..84b9394a5 100644
--- a/applications/fpvviewer/fpvectorialsrc/fpvtocanvas.pas
+++ b/applications/fpvviewer/fpvectorialsrc/fpvtocanvas.pas
@@ -284,6 +284,7 @@ begin
         Points[0].X := CoordToCanvasX((CurDim.DimensionLeft.X+CurDim.DimensionRight.X)/2);
         Points[0].Y := CoordToCanvasY(CurDim.DimensionLeft.Y);
         LowerDim.X := CurDim.DimensionRight.X-CurDim.DimensionLeft.X;
+        ADest.Font.Size := 10;
         ADest.TextOut(Points[0].X, Points[0].Y, Format('%.1f', [LowerDim.X]));
       end
       else
@@ -317,6 +318,7 @@ begin
         Points[0].Y := CoordToCanvasY((CurDim.DimensionLeft.Y+CurDim.DimensionRight.Y)/2);
         LowerDim.Y := CurDim.DimensionRight.Y-CurDim.DimensionLeft.Y;
         if LowerDim.Y < 0 then LowerDim.Y := -1 * LowerDim.Y;
+        ADest.Font.Size := 10;
         ADest.TextOut(Points[0].X, Points[0].Y, Format('%.1f', [LowerDim.Y]));
       end;
       SetLength(Points, 0);