paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-28 20:00:20 +02:00
Code Issues Packages Projects Releases Wiki Activity

TAChart: Less compilation hints and notes.

Browse Source 
git-svn-id: trunk@47866 -
This commit is contained in:
wp 2015-02-17 17:28:14 +00:00
parent e0796f811f
commit 731fa6ebc9
2 changed files with 3 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
components/tachart/tadiagram.pas
View File

@ -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;

2
components/tachart/tadrawersvg.pas
View File

@ -401,8 +401,6 @@ begin
end;
procedure TSVGDrawer.SetFont(AFont: TFPCustomFont);
var
i: Integer;
begin
with FFont do begin
Name := AFont.Name;