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

TAChart: Fix axis ordering

Browse Source 
git-svn-id: trunk@31853 -
This commit is contained in:
ask 2011-08-03 14:40:58 +00:00
parent b61f745148
commit 6fc1a2fbed
1 changed files with 13 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
components/tachart/tachartaxis.pas
View File

@ -247,14 +247,23 @@ uses
var
VIdentityTransform: TChartAxisTransformations;
function AxisGroupCompare(Item1, Item2: Pointer): Integer;
function AxisZCompare(AItem1, AItem2: Pointer): Integer; forward;
function AxisGroupCompare(AItem1, AItem2: Pointer): Integer;
begin
Result := TChartAxis(Item1).Group - TChartAxis(Item2).Group;
Result := TChartAxis(AItem1).Group - TChartAxis(AItem2).Group;
if Result = 0 then
Result := AxisZCompare(AItem1, AItem2);
end;
function AxisZCompare(Item1, Item2: Pointer): Integer;
function AxisZCompare(AItem1, AItem2: Pointer): Integer;
var
a1: TChartAxis absolute AItem1;
a2: TChartAxis absolute AItem2;
begin
Result := TChartAxis(Item1).ZPosition - TChartAxis(Item2).ZPosition;
Result := a1.ZPosition - a2.ZPosition;
if Result = 0 then
Result := a2.Index - a1.Index;
end;
procedure SideByAlignment(