TAChart: Combine {$hints on} and {$warnings on} with {$push} and {$pop}

git-svn-id: trunk@60229 -

components/tachart/tacustomsource.pas

@@ -1206,9 +1206,10 @@ begin
       while true do begin
         p := PChartValueText(lst[j - AStart]);
         lst[j - AStart] := nil;
+        {$PUSH}
         {$HINTS OFF} // Work around the fpc bug #19582.
         next := (PtrUInt(p) - PtrUInt(@AValues[0])) div SizeOf(p^);
-        {$HINTS ON}
+        {$POP}
         if next = i then break;
         AValues[j] := p^;
         j := next;

components/tachart/tagraph.pas

@@ -1421,10 +1421,11 @@ var
   defaultDrawing: Boolean = true;
 begin
   FConnectorData.FBounds := GetClientRect;
+  {$PUSH}
   {$WARNINGS OFF}
   if Assigned(OnChartPaint) then
     OnChartPaint(Self, FConnectorData.FBounds, defaultDrawing);
-  {$WARNINGS ON}
+  {$POP}
   if defaultDrawing then
     with EffectiveGUIConnector do begin
       SetBounds(FConnectorData);