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

TAChart: Extract public TChartLegend.MeasureItem function

Browse Source 
git-svn-id: trunk@31332 -
This commit is contained in:
ask 2011-06-22 13:18:12 +00:00
parent 1ad62b1229
commit 9595273e55
1 changed files with 21 additions and 13 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

34
components/tachart/talegend.pas
View File

@ -143,6 +143,8 @@ type
ADrawer: IChartDrawer; AItems: TObjectList; const ABounds: TRect); ADrawer: IChartDrawer; AItems: TObjectList; const ABounds: TRect);
function Prepare( function Prepare(
ADrawer: IChartDrawer; AItems: TObjectList; var AClipRect: TRect): TRect; ADrawer: IChartDrawer; AItems: TObjectList; var AClipRect: TRect): TRect;
// Not includes the margins around item.
function MeasureItem(ADrawer: IChartDrawer; AItems: TObjectList): TPoint;
published published
property Alignment: TLegendAlignment property Alignment: TLegendAlignment
read FAlignment write SetAlignment default laTopRight; read FAlignment write SetAlignment default laTopRight;
@ -381,30 +383,36 @@ begin
end; end;
end; end;
function TChartLegend.MeasureItem(
ADrawer: IChartDrawer; AItems: TObjectList): TPoint;
var
i: Integer;
begin
ADrawer.Font := Font;
Result := Point(0, 0);
for i := 0 to AItems.Count - 1 do
with ADrawer.TextExtent((AItems[i] as TLegendItem).FText) do begin
Result.X := Max(X, Result.X);
Result.Y := Max(Y, Result.Y);
end;
Result.X += SYMBOL_TEXT_SPACING + SymbolWidth;
end;
function TChartLegend.Prepare( function TChartLegend.Prepare(
ADrawer: IChartDrawer; AItems: TObjectList; var AClipRect: TRect): TRect; ADrawer: IChartDrawer; AItems: TObjectList; var AClipRect: TRect): TRect;
var var
x, y, i, textHeight: Integer; x, y: Integer;
sidebar, legendSize: TPoint; sidebar, legendSize: TPoint;
begin begin
ADrawer.Font := Font; with MeasureItem(ADrawer, AItems) do
legendSize := Point(X + 2 * Spacing, Spacing + AItems.Count * (Y + Spacing));
// Measure the legend.
legendSize.X := 0;
textHeight := 0;
for i := 0 to AItems.Count - 1 do
with ADrawer.TextExtent((AItems[i] as TLegendItem).FText) do begin
legendSize.X := Max(X, legendSize.X);
textHeight := Max(Y, textHeight);
end;
legendSize.X += 2 * Spacing + SYMBOL_TEXT_SPACING + SymbolWidth;
sidebar.X := 2 * MarginX; sidebar.X := 2 * MarginX;
with AClipRect do with AClipRect do
legendSize.X := EnsureRange(legendSize.X, 0, Right - Left - sidebar.X); legendSize.X := EnsureRange(legendSize.X, 0, Right - Left - sidebar.X);
sidebar.X += legendSize.X; sidebar.X += legendSize.X;
legendSize.Y := Spacing + AItems.Count * (textHeight + Spacing);
sidebar.Y := 2 * MarginX; sidebar.Y := 2 * MarginX;
with AClipRect do with AClipRect do
legendSize.Y := EnsureRange(legendSize.Y, 0, Bottom - Top - sidebar.Y); legendSize.Y := EnsureRange(legendSize.Y, 0, Bottom - Top - sidebar.Y);