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

TAChart: Add event OnDrawLegend to TChart

Browse Source 
git-svn-id: trunk@44583 -
This commit is contained in:
wp 2014-04-01 22:06:06 +00:00
parent d1fb54fc98
commit e21111e2bf
1 changed files with 24 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

26
components/tachart/tagraph.pas
View File

@ -35,6 +35,11 @@ type
ASender: TChart; ASeriesIndex, AIndex: Integer;
const AData: TDoublePoint) of object;
TChartDrawLegendEvent = procedure(
ASender: TChart; ADrawer: IChartDrawer; ALegendItems: TChartLegendItems;
ALegendItemSize: TPoint; const ALegendRect: TRect;
AColCount, ARowCount: Integer) of object;
{ TBasicChartSeries }
TBasicChartSeries = class(TIndexedComponent)
@ -189,6 +194,7 @@ type
FOnBeforeDrawBackWall: TChartBeforeDrawEvent;
FOnChartPaint: TChartPaintEvent;
FOnDrawReticule: TDrawReticuleEvent;
FOnDrawLegend: TChartDrawLegendEvent;
FProportional: Boolean;
FSeries: TChartSeriesList;
FTitle: TChartTitle;
@ -248,6 +254,7 @@ type
procedure SetOnBeforeDrawBackground(AValue: TChartBeforeDrawEvent);
procedure SetOnBeforeDrawBackWall(AValue: TChartBeforeDrawEvent);
procedure SetOnChartPaint(AValue: TChartPaintEvent);
procedure SetOnDrawLegend(AValue: TChartDrawLegendEvent);
procedure SetOnDrawReticule(AValue: TDrawReticuleEvent);
procedure SetProportional(AValue: Boolean);
procedure SetRenderingParams(AValue: TChartRenderingParams);
@ -394,6 +401,8 @@ type
read FOnBeforeDrawBackground write SetOnBeforeDrawBackground;
property OnBeforeDrawBackWall: TChartBeforeDrawEvent
read FOnBeforeDrawBackWall write SetOnBeforeDrawBackWall;
property OnDrawLegend: TChartDrawLegendEvent
read FOnDrawLegend write SetOnDrawLegend;
property OnDrawReticule: TDrawReticuleEvent
read FOnDrawReticule write SetOnDrawReticule;
property OnExtentChanged: TChartEvent
@ -814,6 +823,7 @@ begin
ldd.FItems := nil;
if Legend.Visible then
ldd := PrepareLegend(ADrawer, FClipRect);
try
PrepareAxis(ADrawer);
if (FPrevLogicalExtent <> FLogicalExtent) and Assigned(OnExtentChanging) then
@ -826,8 +836,13 @@ begin
FFoot.Draw(ADrawer);
DrawBackWall(ADrawer);
DisplaySeries(ADrawer);
if Legend.Visible then
Legend.Draw(ldd);
if Legend.Visible then begin
if Assigned(FOnDrawLegend) then
FOnDrawlegend(Self, ldd.FDrawer, ldd.FItems, ldd.FItemSize, ldd.FBounds,
ldd.FColCount, ldd.FRowCount)
else
Legend.Draw(ldd);
end;
finally
ldd.FItems.Free;
end;
@ -1541,6 +1556,13 @@ begin
StyleChanged(Self);
end;
procedure TChart.SetOnDrawLegend(AValue: TChartDrawLegendEvent);
begin
if TMethod(FOnDrawLegend) = TMethod(AValue) then exit;
FOnDrawLegend := AValue;
StyleChanged(self);
end;
procedure TChart.SetOnDrawReticule(AValue: TDrawReticuleEvent);
begin
if TMethod(FOnDrawReticule) = TMethod(AValue) then exit;