paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-14 21:39:11 +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 IsEmpty then exit;
if BarWidthStyle = bwPercentMin then if BarWidthStyle = bwPercentMin then
UpdateMinXRange; UpdateMinXRange;
if not IsEmpty and UseZeroLevel then if UseZeroLevel then
UpdateMinMax(GraphToAxisY(ZeroLevel), Result.a.Y, Result.b.Y); UpdateMinMax(GraphToAxisY(ZeroLevel), Result.a.Y, Result.b.Y);
// Show first and last bars fully. // Show first and last bars fully.
@ -1555,13 +1555,8 @@ var
else else
a.Y := b.Y; a.Y := b.Y;
end; end;
if not IsRotated then begin PushPoint(a);
PushPoint(a); PushPoint(b);
PushPoint(b);
end else begin
PushPoint(a);
PushPoint(b);
end
end; end;
end; end;