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

TAChart: Move $HINTS OFF directive to the correct place

Browse Source 
git-svn-id: trunk@25759 -
This commit is contained in:
ask 2010-05-30 08:11:05 +00:00
parent 5aaca35cb8
commit 0106d929e9
1 changed files with 1 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
components/tachart/tachartutils.pas
View File

@ -516,8 +516,6 @@ begin
end; end;
end; end;
{$HINTS OFF}
function RectIntersectsRect( function RectIntersectsRect(
var ARect: TDoubleRect; const AFixed: TDoubleRect): Boolean; var ARect: TDoubleRect; const AFixed: TDoubleRect): Boolean;
@ -549,6 +547,7 @@ begin
Result := ACanvas.TextHeight(TYPICAL_TEXT); Result := ACanvas.TextHeight(TYPICAL_TEXT);
end; end;
{$HINTS OFF}
procedure Unused(const A1); procedure Unused(const A1);
begin begin
end; end;