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

TAChart: Add TChart.OnAfterDraw event

Browse Source 
git-svn-id: trunk@40093 -
This commit is contained in:
ask 2013-01-31 10:03:15 +00:00
parent 1052482348
commit 8ac53ca5f8
1 changed files with 16 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
components/tachart/tagraph.pas
View File

@ -165,6 +165,9 @@ type
{ TChart }
TChart = class(TCustomChart, ICoordTransformer)
public
type
TDrawEvent = procedure (ASender: TChart; ADrawer: IChartDrawer) of object;
strict private // Property fields
FAllowZoom: Boolean;
FAntialiasingMode: TChartAntialiasingMode;
@ -181,6 +184,7 @@ type
FLogicalExtent: TDoubleRect;
FMargins: TChartMargins;
FMarginsExternal: TChartMargins;
FOnAfterDraw: TDrawEvent;
FOnAfterDrawBackground: TChartAfterDrawEvent;
FOnAfterDrawBackWall: TChartAfterDrawEvent;
FOnBeforeDrawBackground: TChartBeforeDrawEvent;
@ -239,6 +243,7 @@ type
procedure SetLogicalExtent(const AValue: TDoubleRect);
procedure SetMargins(AValue: TChartMargins);
procedure SetMarginsExternal(AValue: TChartMargins);
procedure SetOnAfterDraw(AValue: TDrawEvent);
procedure SetOnAfterDrawBackground(AValue: TChartAfterDrawEvent);
procedure SetOnAfterDrawBackWall(AValue: TChartAfterDrawEvent);
procedure SetOnBeforeDrawBackground(AValue: TChartBeforeDrawEvent);
@ -377,6 +382,7 @@ type
property Toolset: TBasicChartToolset read FToolset write SetToolset;
published
property OnAfterDraw: TDrawEvent read FOnAfterDraw write SetOnAfterDraw;
property OnAfterDrawBackground: TChartAfterDrawEvent
read FOnAfterDrawBackground write SetOnAfterDrawBackground;
property OnAfterDrawBackWall: TChartAfterDrawEvent
@ -816,6 +822,9 @@ begin
for s in Series do
s.AfterDraw;
if Assigned(OnAfterDraw) then
OnAfterDraw(Self, ADrawer);
ADrawer.DrawingEnd;
if FPrevLogicalExtent <> FLogicalExtent then begin
@ -1434,6 +1443,13 @@ begin
Series.List.ChangeNamePrefix(oldName, AValue);
end;
procedure TChart.SetOnAfterDraw(AValue: TDrawEvent);
begin
if TMethod(FOnAfterDraw) = TMethod(AValue) then exit;
FOnAfterDraw := AValue;
StyleChanged(Self);
end;
procedure TChart.SetOnAfterDrawBackground(AValue: TChartAfterDrawEvent);
begin
if TMethod(FOnAfterDrawBackground) = TMEthod(AValue) then exit;