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