paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-09-12 10:19:15 +02:00
Code Issues Packages Projects Releases Wiki Activity

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

Browse Source 
git-svn-id: trunk@60229 -
This commit is contained in:
wp 2019-01-27 11:28:43 +00:00
parent f73562b87c
commit 23ebdb5faf
2 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
components/tachart/tacustomsource.pas
View File

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

3
components/tachart/tagraph.pas
View File

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