From 731fa6ebc9fc971e1f4e5cfdcb7186f0d5505529 Mon Sep 17 00:00:00 2001
From: wp <wp.no-reply@lazarus-ide-org>
Date: Tue, 17 Feb 2015 17:28:14 +0000
Subject: [PATCH] TAChart: Less compilation hints and notes.

git-svn-id: trunk@47866 -
---
 components/tachart/tadiagram.pas   | 6 +++---
 components/tachart/tadrawersvg.pas | 2 --
 2 files changed, 3 insertions(+), 5 deletions(-)

diff --git a/components/tachart/tadiagram.pas b/components/tachart/tadiagram.pas
index f339714da8..a71e9c6250 100644
--- a/components/tachart/tadiagram.pas
+++ b/components/tachart/tadiagram.pas
@@ -349,12 +349,12 @@ end;
 
 procedure TDiaCenterElement.Changed(ASender: TDiaObject);
 var
-  tl, tr, bl, br: TDiaPoint;
+  tl, tr, bl{, br}: TDiaPoint;
 begin
   tl := DiaPoint(dbsLeft, dbsTop);
   tr := DiaPoint(dbsRight, dbsTop);
   bl := DiaPoint(dbsLeft, dbsBottom);
-  br := DiaPoint(dbsRight, dbsBottom);
+  // br := DiaPoint(dbsRight, dbsBottom);  // Commenting to silence the compilation note on unused variable...
   if Left.Defined and Top.Defined then
     FActualPos := XY(Left.Calc(tl, tr), Top.Calc(tl, bl));
   inherited;
@@ -824,7 +824,7 @@ end;
 function TDiaElement.IsPointInside(
   const APoint: TDoublePoint; AUnits: TDiaUnits): Boolean;
 begin
-  Unused(APoint);
+  Unused(APoint, AUnits);
   Result := false;
 end;
 
diff --git a/components/tachart/tadrawersvg.pas b/components/tachart/tadrawersvg.pas
index 41ff19d895..d0c9112137 100644
--- a/components/tachart/tadrawersvg.pas
+++ b/components/tachart/tadrawersvg.pas
@@ -401,8 +401,6 @@ begin
 end;
 
 procedure TSVGDrawer.SetFont(AFont: TFPCustomFont);
-var
-  i: Integer;
 begin
   with FFont do begin
     Name := AFont.Name;