paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-22 10:59:29 +02:00
Code Issues Packages Projects Releases Wiki Activity

TAChart: Use mouse wheel panning in the tools demo

Browse Source 
git-svn-id: trunk@32659 -
This commit is contained in:
ask 2011-10-03 16:33:52 +00:00
parent d5499f7343
commit df2ca2ee43
2 changed files with 22 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

19
components/tachart/demo/tools/main.lfm
View File

@ -145,6 +145,8 @@ object Form1: TForm1
'Right-drag left/right, Shift+right-drag up/down'
'Right-click near the margin'
'Right-click near the margin and hold'
'Shift+mousewheel up/down'
'Shift+mousewheel right/left'
)
OnClick = rgPanClick
TabOrder = 1
@ -156,7 +158,7 @@ object Form1: TForm1
Top = 500
Width = 554
Align = alBottom
Caption = 'Press Ctrl to activate reticlue, Alt-drag to move vertical lines'
Caption = 'Press Ctrl to display crosshairs, Alt-drag to move vertical lines'
TabOrder = 2
end
object ChartToolset1: TChartToolset
@ -198,11 +200,6 @@ object Form1: TForm1
ActiveCursor = crSizeNS
Directions = [pdUp, pdDown]
end
object ChartToolset1DataPointDragTool1: TDataPointDragTool
Shift = [ssAlt, ssLeft]
OnBeforeMouseMove = ChartToolset1DataPointDragTool1BeforeMouseMove
AffectedSeries = '2,3'
end
object ChartToolset1PanClickTool1: TPanClickTool
Enabled = False
Shift = [ssRight]
@ -211,6 +208,16 @@ object Form1: TForm1
Margins.Right = 30
Margins.Bottom = 30
end
object ChartToolset1PanMouseWheelTool1: TPanMouseWheelTool
Enabled = False
Shift = [ssShift]
Step = 20
end
object ChartToolset1DataPointDragTool1: TDataPointDragTool
Shift = [ssAlt, ssLeft]
OnBeforeMouseMove = ChartToolset1DataPointDragTool1BeforeMouseMove
AffectedSeries = '2,3'
end
object ChartToolset1DataPointCrosshairTool1: TDataPointCrosshairTool
Shift = [ssCtrl]
OnAfterKeyUp = ChartToolset1DataPointCrosshairTool1AfterKeyUp

10
components/tachart/demo/tools/main.pas
View File

@ -24,6 +24,7 @@ type
ChartToolset1PanAny: TPanDragTool;
ChartToolset1PanClickTool1: TPanClickTool;
ChartToolset1PanHor: TPanDragTool;
ChartToolset1PanMouseWheelTool1: TPanMouseWheelTool;
ChartToolset1PanVert: TPanDragTool;
ChartToolset1ZoomDragTool1: TZoomDragTool;
ChartToolset1ZoomMouseWheelTool1: TZoomMouseWheelTool;
@ -52,7 +53,7 @@ type
end;
var
Form1: TForm1;
Form1: TForm1;
implementation
@ -135,6 +136,13 @@ begin
ChartToolset1PanVert.Enabled := i = 1;
ChartToolset1PanClickTool1.Enabled := i in [2, 3];
ChartToolset1PanClickTool1.Interval := IfThen(i = 2, 0, 200);
with ChartToolset1PanMouseWheelTool1 do begin
Enabled := i in [4, 5];
if i = 4 then
WheelUpDirection := pdUp
else
WheelUpDirection := pdRight;
end;
end;
procedure TForm1.rgZoomClick(Sender: TObject);