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

TAChart: Add Legend.SymbolFrame property

Browse Source 
git-svn-id: trunk@31342 -
This commit is contained in:
ask 2011-06-23 07:33:53 +00:00
parent 0bbf6f4c42
commit 6cc9d3da78
3 changed files with 19 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
components/tachart/demo/legend/main.lfm
View File

@ -198,7 +198,7 @@ object Form1: TForm1
end
object cbSeries: TComboBox
Left = 102
Height = 19
Height = 22
Top = 60
Width = 148
ItemHeight = 16

2
components/tachart/demo/legend/main.pas
View File

@ -71,7 +71,7 @@ begin
id := TCanvasDrawer.Create(cbSeries.Canvas);
r := Bounds(
ARect.Left, ARect.Top, Chart1.Legend.SymbolWidth, cbSeries.ItemHeight);
id.Pen := Chart1.Legend.Frame;
id.Pen := Chart1.Legend.SymbolFrame;
(FItems[Index] as TLegendItem).Draw(id, r);
end;

19
components/tachart/talegend.pas
View File

@ -120,6 +120,7 @@ type
FMarginX: TChartDistance;
FMarginY: TChartDistance;
FSpacing: TChartDistance;
FSymbolFrame: TChartPen;
FSymbolWidth: TChartDistance;
FUseSidebar: Boolean;
@ -131,6 +132,7 @@ type
procedure SetMarginX(AValue: TChartDistance);
procedure SetMarginY(AValue: TChartDistance);
procedure SetSpacing(AValue: TChartDistance);
procedure SetSymbolFrame(AValue: TChartPen);
procedure SetSymbolWidth(AValue: TChartDistance);
procedure SetUseSidebar(AValue: Boolean);
public
@ -141,10 +143,10 @@ type
procedure Assign(Source: TPersistent); override;
procedure Draw(
ADrawer: IChartDrawer; AItems: TObjectList; const ABounds: TRect);
function MeasureItem(ADrawer: IChartDrawer; AItems: TObjectList): TPoint;
function Prepare(
ADrawer: IChartDrawer; AItems: TObjectList; var AClipRect: TRect): TRect;
// Not includes the margins around item.
function MeasureItem(ADrawer: IChartDrawer; AItems: TObjectList): TPoint;
published
property Alignment: TLegendAlignment
read FAlignment write SetAlignment default laTopRight;
@ -160,6 +162,7 @@ type
read FMarginY write SetMarginY default DEF_LEGEND_MARGIN;
property Spacing: TChartDistance
read FSpacing write SetSpacing default DEF_LEGEND_SPACING;
property SymbolFrame: TChartPen read FSymbolFrame write SetSymbolFrame;
property SymbolWidth: TChartDistance
read FSymbolWidth write SetSymbolWidth default DEF_LEGEND_SYMBOL_WIDTH;
property UseSidebar: Boolean read FUseSidebar write SetUseSidebar default true;
@ -338,6 +341,7 @@ begin
InitHelper(FBackgroundBrush, TChartLegendBrush);
InitHelper(FFont, TFont);
InitHelper(FFrame, TChartPen);
InitHelper(FSymbolFrame, TChartPen);
end;
destructor TChartLegend.Destroy;
@ -345,6 +349,7 @@ begin
FreeAndNil(FBackgroundBrush);
FreeAndNil(FFont);
FreeAndNil(FFrame);
FreeAndNil(FSymbolFrame);
inherited;
end;
@ -376,7 +381,10 @@ begin
for i := 0 to AItems.Count - 1 do begin
ADrawer.Font := Font;
ADrawer.Brush := BackgroundBrush;
ADrawer.Pen := Frame;
if SymbolFrame.Visible then
ADrawer.Pen := SymbolFrame
else
ADrawer.SetPenParams(psClear, clTAColor);
(AItems[i] as TLegendItem).Draw(ADrawer, r);
OffsetRect(r, 0, itemHeight + Spacing);
end;
@ -503,6 +511,13 @@ begin
StyleChanged(Self);
end;
procedure TChartLegend.SetSymbolFrame(AValue: TChartPen);
begin
if FSymbolFrame = AValue then exit;
FSymbolFrame := AValue;
StyleChanged(Self);
end;
procedure TChartLegend.SetSymbolWidth(AValue: TChartDistance);
begin
if FSymbolWidth = AValue then exit;