paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-19 14:49:29 +02:00
Code Issues Packages Projects Releases Wiki Activity

TAChart: Small improvements in series code.

Browse Source 
git-svn-id: trunk@60366 -
This commit is contained in:
wp 2019-02-08 21:30:54 +00:00
parent 6ec5e93dea
commit f186bca54a
1 changed files with 3 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
components/tachart/taseries.pas
View File

@ -1227,7 +1227,7 @@ begin
if IsEmpty then exit;
if BarWidthStyle = bwPercentMin then
UpdateMinXRange;
if not IsEmpty and UseZeroLevel then
if UseZeroLevel then
UpdateMinMax(GraphToAxisY(ZeroLevel), Result.a.Y, Result.b.Y);
// Show first and last bars fully.
@ -1555,13 +1555,8 @@ var
else
a.Y := b.Y;
end;
if not IsRotated then begin
PushPoint(a);
PushPoint(b);
end else begin
PushPoint(a);
PushPoint(b);
end
PushPoint(a);
PushPoint(b);
end;
end;