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

TAChart: Add OnExtentChanged event

Browse Source 
git-svn-id: trunk@29922 -
This commit is contained in:
ask 2011-03-20 09:41:26 +00:00
parent a49bc815d2
commit e6711904f0
2 changed files with 29 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
components/tachart/tageometry.pas
View File

@ -65,6 +65,7 @@ operator *(const A: TPoint; AMultiplier: Integer): TPoint; inline;
operator *(const A, B: TPoint): TPoint; inline;
operator *(const A, B: TDoublePoint): TDoublePoint; overload; inline;
operator /(const A, B: TDoublePoint): TDoublePoint; overload; inline;
operator = (const A, B: TDoublePoint): Boolean; overload; inline;
operator <= (const A, B: TDoublePoint): Boolean; overload; inline;
operator :=(const APoint: TPoint): TSize; inline;
operator :=(const ASize: TSize): TPoint; inline;
@ -429,6 +430,11 @@ begin
Result.Y := A.Y / B.Y;
end;
operator = (const A, B: TDoublePoint): Boolean;
begin
Result := (A.X = B.X) and (A.Y = B.Y);
end;
operator <= (const A, B: TDoublePoint): Boolean;
begin
Result := (A.X <= B.X) and (A.Y <= B.Y);

24
components/tachart/tagraph.pas
View File

@ -136,6 +136,7 @@ type
TChartBeforeDrawEvent = procedure (
ASender: TChart; ACanvas: TCanvas; const ARect: TRect;
var ADoDefaultDrawing: Boolean) of object;
TChartEvent = procedure (ASender: TChart) of object;
TChartPaintEvent = procedure (
ASender: TChart; const ARect: TRect;
var ADoDefaultDrawing: Boolean) of object;
@ -176,6 +177,8 @@ type
FDrawer: IChartDrawer;
FIsZoomed: Boolean;
FOffset: TDoublePoint; // Coordinates transformation
FOnExtentChanged: TChartEvent;
FPrevLogicalExtent: TDoubleRect;
FProportional: Boolean;
FReticuleMode: TReticuleMode;
FReticulePos: TPoint;
@ -212,6 +215,7 @@ type
procedure SetOnBeforeDrawBackWall(AValue: TChartBeforeDrawEvent);
procedure SetOnChartPaint(AValue: TChartPaintEvent);
procedure SetOnDrawReticule(AValue: TDrawReticuleEvent);
procedure SetOnExtentChanged(AValue: TChartEvent);
procedure SetProportional(AValue: Boolean);
procedure SetReticuleMode(const AValue: TReticuleMode);
procedure SetReticulePos(const AValue: TPoint);
@ -324,6 +328,7 @@ type
read FOnBeforeDrawBackWall write SetOnBeforeDrawBackWall;
property OnDrawReticule: TDrawReticuleEvent
read FOnDrawReticule write SetOnDrawReticule;
property OnExtentChanged: TChartEvent read FOnExtentChanged write SetOnExtentChanged;
published
property Align;
@ -362,7 +367,7 @@ var
implementation
uses
Clipbrd, Dialogs, GraphMath, LCLProc, LResources, Math, Types;
Clipbrd, Dialogs, GraphMath, LCLProc, LResources, Math, TAGeometry, Types;
function CompareZPosition(AItem1, AItem2: Pointer): Integer;
begin
@ -543,6 +548,8 @@ begin
FBuiltinToolset := OnInitBuiltinTools(Self);
FActiveToolIndex := -1;
FPrevLogicalExtent := EmptyExtent;
end;
procedure TChart.DeleteSeries(ASeries: TBasicChartSeries);
@ -674,6 +681,15 @@ begin
for i := 0 to SeriesCount - 1 do
Series[i].AfterDraw;
if
(FPrevLogicalExtent.a <> FLogicalExtent.a) or
(FPrevLogicalExtent.b <> FLogicalExtent.b)
then begin
if Assigned(OnExtentChanged) then
OnExtentChanged(Self);
FPrevLogicalExtent := FLogicalExtent;
end;
end;
procedure TChart.DrawBackWall(ADrawer: IChartDrawer);
@ -1163,6 +1179,12 @@ begin
Invalidate;
end;
procedure TChart.SetOnExtentChanged(AValue: TChartEvent);
begin
if FOnExtentChanged = AValue then exit;
FOnExtentChanged := AValue;
end;
procedure TChart.SetProportional(AValue: Boolean);
begin
if FProportional = AValue then exit;