TAChart: Fix legend row count calculation

git-svn-id: trunk@33135 -
This commit is contained in:
ask 2011-10-28 12:20:10 +00:00
parent 678f40a024
commit 3761f748ea

View File

@ -558,7 +558,7 @@ var
begin
with AData do begin
FColCount := Max(Min(ColumnCount, FItems.Count), 1);
FRowCount := FItems.Count div FColCount;
FRowCount := (FItems.Count - 1) div FColCount + 1;
FItemSize := MeasureItem(FDrawer, FItems);
legendSize.X := (FItemSize.X + Spacing) * FColCount + Spacing;
legendSize.Y := (FItemSize.Y + Spacing) * FRowCount + Spacing;