paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-09-11 10:19:13 +02:00
Code Issues Packages Projects Releases Wiki Activity

TAChart: Add FullExtentBroadcaster.

Browse Source 
git-svn-id: trunk@63736 -
This commit is contained in:
wp 2020-08-14 21:25:53 +00:00
parent 52a2cdbb1b
commit d578ab9494
1 changed files with 19 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

20
components/tachart/tagraph.pas
View File

@ -230,6 +230,7 @@ type
FCurrentExtent: TDoubleRect;
FDisableRedrawingCounter: Integer;
FExtentBroadcaster: TBroadcaster;
FFullExtentBroadcaster: TBroadcaster;
FIsZoomed: Boolean;
FOffset: TDoublePoint; // Coordinates transformation
FOffsetInt: TPoint; // Coordinates transformation
@ -237,6 +238,8 @@ type
FOnExtentChanged: TChartEvent;
FOnExtentChanging: TChartEvent;
FOnExtentValidate: TChartExtentValidateEvent;
FOnFullExtentChanged: TChartEvent;
FPrevFullExtent: TDoubleRect;
FPrevLogicalExtent: TDoubleRect;
FScale: TDoublePoint; // Coordinates transformation
FScalingValid: Boolean;
@ -382,6 +385,7 @@ type
property ClipRect: TRect read FClipRect;
property CurrentExtent: TDoubleRect read FCurrentExtent;
property ExtentBroadcaster: TBroadcaster read FExtentBroadcaster;
property FullExtentBroadcaster: TBroadcaster read FFullExtentBroadcaster;
property HorAxis: TChartAxis read GetHorAxis;
property IsZoomed: Boolean read FIsZoomed;
property LogicalExtent: TDoubleRect read FLogicalExtent write SetLogicalExtent;
@ -458,9 +462,12 @@ type
property OnExtentChanged: TChartEvent
read FOnExtentChanged write FOnExtentChanged;
property OnExtentChanging: TChartEvent
read FOnExtentChanging write FOnExtentChanging; deprecated 'Used OnExtentValidate instead';
read FOnExtentChanging write FOnExtentChanging;
deprecated 'Used OnExtentValidate instead';
property OnExtentValidate: TChartExtentValidateEvent
read FOnExtentValidate write FOnExtentValidate;
property OnFullExtentChanged: TChartEvent
read FOnFullExtentChanged write FOnFullExtentChanged;
published
property Align;
@ -696,6 +703,7 @@ begin
FBroadcaster := TBroadcaster.Create;
FExtentBroadcaster := TBroadcaster.Create;
FFullExtentBroadcaster := TBroadcaster.Create;
FAllowZoom := true;
FAllowPanning := true;
FAntialiasingMode := amDontCare;
@ -747,6 +755,7 @@ begin
FLogicalExtent := EmptyExtent;
FPrevLogicalExtent := EmptyExtent;
FPrevFullExtent := EmptyExtent;
end;
procedure TChart.DeleteSeries(ASeries: TBasicChartSeries);
@ -777,6 +786,7 @@ begin
FreeAndNil(FBuiltinToolset);
FreeAndNil(FBroadcaster);
FreeAndNil(FExtentBroadcaster);
FreeAndNil(FFullExtentBroadcaster);
FreeAndNil(FDefaultGUIConnector);
DrawData.DeleteByChart(Self);
@ -983,6 +993,14 @@ begin
OnAfterDraw(Self, ADrawer);
ADrawer.DrawingEnd;
tmpExtent := GetFullExtent;
if FPrevFullExtent <> tmpExtent then begin
FFullExtentBroadcaster.Broadcast(Self);
if Assigned(OnFullExtentChanged) then
OnFullExtentChanged(Self);
FPrevFullExtent := tmpExtent;
end;
if FPrevLogicalExtent <> FLogicalExtent then begin
FExtentBroadcaster.Broadcast(Self);
if Assigned(OnExtentChanged) then