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

tachart: fix compiling for the coming TRect advanced functions in FPC 3.1.1 (see issue #29479)

Browse Source 
git-svn-id: trunk@51383 -
This commit is contained in:
ondrej 2016-01-23 00:51:53 +00:00
parent 95746a6ff5
commit 9f13b0b11a
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
components/tachart/taseries.pas
View File

@ -1018,7 +1018,7 @@ var
with imageBar do begin with imageBar do begin
TopLeft := ParentChart.GraphToImage(graphBar.a); TopLeft := ParentChart.GraphToImage(graphBar.a);
BottomRight := ParentChart.GraphToImage(graphBar.b); BottomRight := ParentChart.GraphToImage(graphBar.b);
NormalizeRect(imageBar); TAGeometry.NormalizeRect(imageBar);
// Draw a line instead of an empty rectangle. // Draw a line instead of an empty rectangle.
if Bottom = Top then Dec(Top); if Bottom = Top then Dec(Top);