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

TAChart: Add TChart.OnExtentChanging event

Browse Source 
git-svn-id: trunk@38891 -
This commit is contained in:
ask 2012-09-29 05:34:29 +00:00
parent e75056a790
commit d102797393
1 changed files with 7 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
components/tachart/tagraph.pas
View File

@ -206,6 +206,7 @@ type
FOffset: TDoublePoint; // Coordinates transformation FOffset: TDoublePoint; // Coordinates transformation
FOnAfterPaint: TChartEvent; FOnAfterPaint: TChartEvent;
FOnExtentChanged: TChartEvent; FOnExtentChanged: TChartEvent;
FOnExtentChanging: TChartEvent;
FPrevLogicalExtent: TDoubleRect; FPrevLogicalExtent: TDoubleRect;
FReticuleMode: TReticuleMode; FReticuleMode: TReticuleMode;
FReticulePos: TPoint; FReticulePos: TPoint;
@ -388,7 +389,10 @@ type
read FOnBeforeDrawBackWall write SetOnBeforeDrawBackWall; read FOnBeforeDrawBackWall write SetOnBeforeDrawBackWall;
property OnDrawReticule: TDrawReticuleEvent property OnDrawReticule: TDrawReticuleEvent
read FOnDrawReticule write SetOnDrawReticule; read FOnDrawReticule write SetOnDrawReticule;
property OnExtentChanged: TChartEvent read FOnExtentChanged write FOnExtentChanged; property OnExtentChanged: TChartEvent
read FOnExtentChanged write FOnExtentChanged;
property OnExtentChanging: TChartEvent
read FOnExtentChanging write FOnExtentChanging;
published published
property Align; property Align;
@ -764,6 +768,8 @@ begin
ldd := PrepareLegend(ADrawer, FClipRect); ldd := PrepareLegend(ADrawer, FClipRect);
try try
PrepareAxis(ADrawer); PrepareAxis(ADrawer);
if (FPrevLogicalExtent <> FLogicalExtent) and Assigned(OnExtentChanging) then
OnExtentChanging(Self);
ADrawer.DrawingBegin(ARect); ADrawer.DrawingBegin(ARect);
ADrawer.SetAntialiasingMode(AntialiasingMode); ADrawer.SetAntialiasingMode(AntialiasingMode);