paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-21 03:59:12 +02:00
Code Issues Packages Projects Releases Wiki Activity

TAChart: Add TPanDragTool to the built-in toolset

Browse Source 
git-svn-id: trunk@38888 -
This commit is contained in:
ask 2012-09-28 17:47:32 +00:00
parent 3ea4ede96d
commit 5380fecc6f
1 changed files with 4 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
components/tachart/tatools.pas
View File

@ -570,6 +570,10 @@ begin
Shift := [ssLeft]; Shift := [ssLeft];
Toolset := ts; Toolset := ts;
end; end;
with TPanDragTool.Create(AChart) do begin
Shift := [ssRight];
Toolset := ts;
end;
TReticuleTool.Create(AChart).Toolset := ts; TReticuleTool.Create(AChart).Toolset := ts;
end; end;