paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-11-01 22:19:39 +01:00
Code Issues Packages Projects Releases Wiki Activity

TAChart: Minor refactoring of TChartAxisList.Prepare

Browse Source 
git-svn-id: trunk@36157 -
This commit is contained in:
ask 2012-03-19 05:30:40 +00:00
parent 7e37bace92
commit 215e6b2bd7
1 changed files with 9 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

20
components/tachart/tachartaxis.pas
View File

@ -930,25 +930,23 @@ end;
procedure TChartAxisList.Prepare(ARect: TRect);
var
i, j, ai: Integer;
i, ai: Integer;
axis: TChartAxis;
g: ^TChartAxisGroup;
g: TChartAxisGroup;
axisRect: TRect;
begin
FCenterPoint := CenterPoint(ARect);
ai := 0;
for i := 0 to High(FGroups) do begin
g := @FGroups[i];
for j := 0 to g^.FCount - 1 do begin
axis := TChartAxis(FGroupOrder[ai + j]);
axis.FAxisRect := ARect;
end;
SideByAlignment(ARect, axis.Alignment, g^.FSize);
for j := 0 to g^.FCount - 1 do begin
for g in FGroups do begin
axisRect := ARect;
SideByAlignment(ARect, TChartAxis(FGroupOrder[ai]).Alignment, g.FSize);
for i := 0 to g.FCount - 1 do begin
axis := TChartAxis(FGroupOrder[ai]);
axis.FAxisRect := axisRect;
axis.FTitleRect := ARect;
ai += 1;
end;
SideByAlignment(ARect, axis.Alignment, g^.FTitleSize);
SideByAlignment(ARect, axis.Alignment, g.FTitleSize);
end;
InitAndSort(FZOrder, @AxisZCompare);
end;