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

TAChart: Move declaration of TDrawEvent event out of the context of TChart and rename it to TChartDrawEvent to fix event OnAfterDraw

Browse Source 
git-svn-id: trunk@47521 -
This commit is contained in:
wp 2015-01-25 22:18:48 +00:00
parent ec90d38065
commit f38736684f
1 changed files with 7 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
components/tachart/tagraph.pas
View File

@ -153,6 +153,9 @@ type
TChartPaintEvent = procedure ( TChartPaintEvent = procedure (
ASender: TChart; const ARect: TRect; ASender: TChart; const ARect: TRect;
var ADoDefaultDrawing: Boolean) of object; var ADoDefaultDrawing: Boolean) of object;
TChartDrawEvent = procedure (
ASender: TChart; ADrawer: IChartDrawer) of object;
TChartRenderingParams = record TChartRenderingParams = record
FClipRect: TRect; FClipRect: TRect;
@ -164,9 +167,6 @@ type
{ TChart } { TChart }
TChart = class(TCustomChart, ICoordTransformer) TChart = class(TCustomChart, ICoordTransformer)
public
type
TDrawEvent = procedure (ASender: TChart; ADrawer: IChartDrawer) of object;
strict private // Property fields strict private // Property fields
FAllowZoom: Boolean; FAllowZoom: Boolean;
FAntialiasingMode: TChartAntialiasingMode; FAntialiasingMode: TChartAntialiasingMode;
@ -187,7 +187,7 @@ type
FLogicalExtent: TDoubleRect; FLogicalExtent: TDoubleRect;
FMargins: TChartMargins; FMargins: TChartMargins;
FMarginsExternal: TChartMargins; FMarginsExternal: TChartMargins;
FOnAfterDraw: TDrawEvent; FOnAfterDraw: TChartDrawEvent;
FOnAfterDrawBackground: TChartAfterDrawEvent; FOnAfterDrawBackground: TChartAfterDrawEvent;
FOnAfterDrawBackWall: TChartAfterDrawEvent; FOnAfterDrawBackWall: TChartAfterDrawEvent;
FOnBeforeDrawBackground: TChartBeforeDrawEvent; FOnBeforeDrawBackground: TChartBeforeDrawEvent;
@ -248,7 +248,7 @@ type
procedure SetLogicalExtent(const AValue: TDoubleRect); procedure SetLogicalExtent(const AValue: TDoubleRect);
procedure SetMargins(AValue: TChartMargins); procedure SetMargins(AValue: TChartMargins);
procedure SetMarginsExternal(AValue: TChartMargins); procedure SetMarginsExternal(AValue: TChartMargins);
procedure SetOnAfterDraw(AValue: TDrawEvent); procedure SetOnAfterDraw(AValue: TChartDrawEvent);
procedure SetOnAfterDrawBackground(AValue: TChartAfterDrawEvent); procedure SetOnAfterDrawBackground(AValue: TChartAfterDrawEvent);
procedure SetOnAfterDrawBackWall(AValue: TChartAfterDrawEvent); procedure SetOnAfterDrawBackWall(AValue: TChartAfterDrawEvent);
procedure SetOnBeforeDrawBackground(AValue: TChartBeforeDrawEvent); procedure SetOnBeforeDrawBackground(AValue: TChartBeforeDrawEvent);
@ -391,7 +391,7 @@ type
property Toolset: TBasicChartToolset read FToolset write SetToolset; property Toolset: TBasicChartToolset read FToolset write SetToolset;
published published
property OnAfterDraw: TDrawEvent read FOnAfterDraw write SetOnAfterDraw; property OnAfterDraw: TChartDrawEvent read FOnAfterDraw write SetOnAfterDraw;
property OnAfterDrawBackground: TChartAfterDrawEvent property OnAfterDrawBackground: TChartAfterDrawEvent
read FOnAfterDrawBackground write SetOnAfterDrawBackground; read FOnAfterDrawBackground write SetOnAfterDrawBackground;
property OnAfterDrawBackWall: TChartAfterDrawEvent property OnAfterDrawBackWall: TChartAfterDrawEvent
@ -1534,7 +1534,7 @@ begin
Series.List.ChangeNamePrefix(oldName, AValue); Series.List.ChangeNamePrefix(oldName, AValue);
end; end;
procedure TChart.SetOnAfterDraw(AValue: TDrawEvent); procedure TChart.SetOnAfterDraw(AValue: TChartDrawEvent);
begin begin
if TMethod(FOnAfterDraw) = TMethod(AValue) then exit; if TMethod(FOnAfterDraw) = TMethod(AValue) then exit;
FOnAfterDraw := AValue; FOnAfterDraw := AValue;