From 646d7db969b94d22cfb21388677bef5ad1fdc0d6 Mon Sep 17 00:00:00 2001
From: sekelsenmat <sekelsenmat@8e941d3f-bd1b-0410-a28a-d453659cc2b4>
Date: Thu, 29 Mar 2012 09:35:16 +0000
Subject: [PATCH] Implements zoom support for the contour lines

git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@2368 8e941d3f-bd1b-0410-a28a-d453659cc2b4
---
 applications/fpvviewer/fpvv_mainform.pas | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

diff --git a/applications/fpvviewer/fpvv_mainform.pas b/applications/fpvviewer/fpvv_mainform.pas
index 94ab47275..66f37a0a3 100644
--- a/applications/fpvviewer/fpvv_mainform.pas
+++ b/applications/fpvviewer/fpvv_mainform.pas
@@ -285,7 +285,11 @@ procedure TfrmFPVViewer.MyContourLineDrawingProc(z, x1, y1, x2, y2: Double);
 begin
   Drawer.Drawing.Canvas.Pen.Style := psSolid;
   Drawer.Drawing.Canvas.Pen.Color := clBlack;
-  Drawer.Drawing.Canvas.Line(Round(x1 / 20), Round(y1 / 20), Round(x2 / 20), Round(y2 / 20));
+  Drawer.Drawing.Canvas.Line(
+    Round(x1 * spinScale.Value / 20),
+    Round(y1 * spinScale.Value / 20),
+    Round(x2 * spinScale.Value / 20),
+    Round(y2 * spinScale.Value / 20));
 end;
 
 end.