paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-06-06 18:38:23 +02:00
Code Issues Packages Projects Releases Wiki Activity

TAChart: Fix for r20095 #453a046de9.

Browse Source 
git-svn-id: trunk@20096 -
This commit is contained in:
ask 2009-05-21 08:42:25 +00:00
parent 453a046de9
commit 148f7ce9be
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
components/tachart/tagraph.pas
View File

@ -1309,8 +1309,8 @@ procedure TChart.UpdateExtent;
if ALo > AHi then Exchange(ALo, AHi); if ALo > AHi then Exchange(ALo, AHi);
// Expand view slightly to avoid puttind data points on the chart edge. // Expand view slightly to avoid puttind data points on the chart edge.
ext := ExpandPercentage * PERCENT * Max(AHi - ALo, 1); ext := ExpandPercentage * PERCENT * Max(AHi - ALo, 1);
SetLo(ALo - ext); ALo -= ext;
SetHi(AHi + ext); AHi += ext;
end; end;
1: AHi := ALo + DEFAULT_WIDTH; 1: AHi := ALo + DEFAULT_WIDTH;
2: ALo := AHi - DEFAULT_WIDTH; 2: ALo := AHi - DEFAULT_WIDTH;