paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-05-15 15:22:52 +02:00
Code Issues Packages Projects Releases Wiki Activity

Merged revision(s) 47521 #f38736684f from trunk:

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

git-svn-id: branches/fixes_1_4@47551 -
This commit is contained in:
maxim 2015-01-27 23:11:59 +00:00
parent 61d8798b10
commit 0636e27226
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 (
ASender: TChart; const ARect: TRect;
var ADoDefaultDrawing: Boolean) of object;
TChartDrawEvent = procedure (
ASender: TChart; ADrawer: IChartDrawer) of object;
TChartRenderingParams = record
FClipRect: TRect;
@ -164,9 +167,6 @@ type
{ TChart }
TChart = class(TCustomChart, ICoordTransformer)
public
type
TDrawEvent = procedure (ASender: TChart; ADrawer: IChartDrawer) of object;
strict private // Property fields
FAllowZoom: Boolean;
FAntialiasingMode: TChartAntialiasingMode;
@ -187,7 +187,7 @@ type
FLogicalExtent: TDoubleRect;
FMargins: TChartMargins;
FMarginsExternal: TChartMargins;
FOnAfterDraw: TDrawEvent;
FOnAfterDraw: TChartDrawEvent;
FOnAfterDrawBackground: TChartAfterDrawEvent;
FOnAfterDrawBackWall: TChartAfterDrawEvent;
FOnBeforeDrawBackground: TChartBeforeDrawEvent;
@ -248,7 +248,7 @@ type
procedure SetLogicalExtent(const AValue: TDoubleRect);
procedure SetMargins(AValue: TChartMargins);
procedure SetMarginsExternal(AValue: TChartMargins);
procedure SetOnAfterDraw(AValue: TDrawEvent);
procedure SetOnAfterDraw(AValue: TChartDrawEvent);
procedure SetOnAfterDrawBackground(AValue: TChartAfterDrawEvent);
procedure SetOnAfterDrawBackWall(AValue: TChartAfterDrawEvent);
procedure SetOnBeforeDrawBackground(AValue: TChartBeforeDrawEvent);
@ -391,7 +391,7 @@ type
property Toolset: TBasicChartToolset read FToolset write SetToolset;
published
property OnAfterDraw: TDrawEvent read FOnAfterDraw write SetOnAfterDraw;
property OnAfterDraw: TChartDrawEvent read FOnAfterDraw write SetOnAfterDraw;
property OnAfterDrawBackground: TChartAfterDrawEvent
read FOnAfterDrawBackground write SetOnAfterDrawBackground;
property OnAfterDrawBackWall: TChartAfterDrawEvent
@ -1534,7 +1534,7 @@ begin
Series.List.ChangeNamePrefix(oldName, AValue);
end;
procedure TChart.SetOnAfterDraw(AValue: TDrawEvent);
procedure TChart.SetOnAfterDraw(AValue: TChartDrawEvent);
begin
if TMethod(FOnAfterDraw) = TMethod(AValue) then exit;
FOnAfterDraw := AValue;