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

TAChart: Improvements in TChartAxis.EnsureGuaranteedSpace(). Issue #34896. Patch by Marcin Wiazowski.

Browse Source 
git-svn-id: trunk@60309 -
This commit is contained in:
wp 2019-02-02 22:42:31 +00:00
parent ba29464f49
commit 7787d285fd
1 changed files with 9 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

21
components/tachart/tachartaxis.pas
View File

@ -1220,18 +1220,15 @@ procedure EnsureGuaranteedSpace(var AValue1, AValue2: Integer;
var
delta1, delta2: Integer;
begin
delta1 := AImage1 - AValue1;
delta2 := AImage2 - AValue2;
if (AValue2 = AImage2 - AMargin2) then begin
AValue2 := AImage2 - AMargin2;
AValue1 := AValue2 - AGuaranteed;
end else
if (AValue1 = AImage1 + AMargin1) then begin
AValue1 := AImage1 + AMargin1;
AValue2 := AValue1 + AGuaranteed;
end else
begin
AValue1 := (AImage1 + AImage2 + AGuaranteed) div 2;
if (AValue2 = AImage2 - AMargin2) then
AValue1 := AValue2 - AGuaranteed
else
if (AValue1 = AImage1 + AMargin1) then
AValue2 := AValue1 + AGuaranteed
else begin
delta1 := AImage1 - AValue1;
delta2 := AImage2 - AValue2;
AValue1 := (AImage1 + AImage2 - AGuaranteed) div 2;
AValue2 := AValue1 + AGuaranteed;
if AValue1 + delta1 >= AImage1 then begin
AValue1 := AImage1 - delta1;