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

TAChart: Add AllowDragNavigation, DragCursor and Shift properties to TChartNavPanel

Browse Source 
git-svn-id: trunk@29934 -
This commit is contained in:
ask 2011-03-20 17:08:02 +00:00
parent f8bd19af4e
commit 5a6afb9cb6
1 changed files with 34 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

44
components/tachart/tanavigation.pas
View File

@ -100,10 +100,16 @@ type
procedure SetLogicalExtentPen(AValue: TPen);
procedure SetProportional(AValue: Boolean);
private
FAllowDragNavigation: Boolean;
FDragCursor: TCursor;
FIsDragging: Boolean;
FLogicalExtentRect: TRect;
FOffset: TDoublePoint;
FOldCursor: TCursor;
FPrevPoint: TDoublePoint;
FScale: TDoublePoint;
FShift: TShiftState;
procedure SetDragCursor(AValue: TCursor);
protected
procedure MouseDown(
AButton: TMouseButton; AShift: TShiftState; AX, AY: Integer); override;
@ -115,10 +121,14 @@ type
destructor Destroy; override;
procedure Paint; override;
published
property AllowDragNavigation: Boolean
read FAllowDragNavigation write FAllowDragNavigation default true;
property Chart: TChart read FChart write SetChart;
property DragCursor: TCursor read FDragCursor write SetDragCursor default crSizeAll;
property FullExtentPen: TPen read FFullExtentPen write SetFullExtentPen;
property LogicalExtentPen: TPen read FLogicalExtentPen write SetLogicalExtentPen;
property Proportional: Boolean read FProportional write SetProportional default false;
property Shift: TShiftState read FShift write FShift default [ssLeft];
published
property Align;
end;
@ -249,6 +259,9 @@ begin
FLogicalExtentRect := Rect(0, 0, 0, 0);
Width := DEF_WIDTH;
Height := DEF_HEIGHT;
FAllowDragNavigation := true;
FDragCursor := crSizeAll;
FShift := [ssLeft];
end;
destructor TChartNavPanel.Destroy;
@ -262,12 +275,15 @@ end;
procedure TChartNavPanel.MouseDown(
AButton: TMouseButton; AShift: TShiftState; AX, AY: Integer);
begin
if Chart = nil then exit;
FPrevPoint := (DoublePoint(AX, Height - AY) - FOffset) / FScale;
MouseCapture :=
(AShift = [ssLeft]) and IsPointInRect(Point(AX, AY), FLogicalExtentRect);
if MouseCapture then
Cursor := crSizeAll;
if (Chart <> nil) and AllowDragNavigation then begin
FPrevPoint := (DoublePoint(AX, Height - AY) - FOffset) / FScale;
FIsDragging :=
(AShift = Shift) and IsPointInRect(Point(AX, AY), FLogicalExtentRect);
if FIsDragging then begin
FOldCursor := Cursor;
Cursor := DragCursor;
end;
end;
inherited MouseDown(AButton, AShift, AX, AY);
end;
@ -276,8 +292,7 @@ var
p: TDoublePoint;
le: TDoubleRect;
begin
if Chart = nil then exit;
if MouseCapture then begin
if (Chart <> nil) and FIsDragging then begin
p := (DoublePoint(AX, Height - AY) - FOffset) / FScale;
le := Chart.LogicalExtent;
le.a += p - FPrevPoint;
@ -291,8 +306,9 @@ end;
procedure TChartNavPanel.MouseUp(
AButton: TMouseButton; AShift: TShiftState; AX, AY: Integer);
begin
MouseCapture := false;
Cursor := crDefault;
if FIsDragging then
Cursor := FOldCursor;
FIsDragging := false;
inherited MouseUp(AButton, AShift, AX, AY);
end;
@ -357,6 +373,14 @@ begin
ChartExtentChanged(Self);
end;
procedure TChartNavPanel.SetDragCursor(AValue: TCursor);
begin
if FDragCursor = AValue then exit;
FDragCursor := AValue;
if MouseCapture then
Cursor := FDragCursor;
end;
procedure TChartNavPanel.SetFullExtentPen(AValue: TPen);
begin
if FFullExtentPen = AValue then exit;