paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-17 01:49:25 +02:00
Code Issues Packages Projects Releases Wiki Activity

TAChart: Disable reticule on KeyUp in the tools demo

Browse Source 
git-svn-id: trunk@31142 -
This commit is contained in:
ask 2011-06-09 10:17:22 +00:00
parent 69bca78312
commit db47008d5d
2 changed files with 18 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -191,6 +191,8 @@ object Form1: TForm1
end end
object ChartToolset1ReticuleTool1: TReticuleTool object ChartToolset1ReticuleTool1: TReticuleTool
Shift = [ssCtrl] Shift = [ssCtrl]
OnAfterKeyUp = ChartToolset1ReticuleTool1AfterKeyUp
OnAfterMouseMove = ChartToolset1ReticuleTool1AfterMouseMove
end end
object ChartToolset1DataPointDragTool1: TDataPointDragTool object ChartToolset1DataPointDragTool1: TDataPointDragTool
Shift = [ssAlt, ssLeft] Shift = [ssAlt, ssLeft]

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

@ -40,6 +40,10 @@ type
procedure Chart1FuncSeries1Calculate(const AX: Double; out AY: Double); procedure Chart1FuncSeries1Calculate(const AX: Double; out AY: Double);
procedure ChartToolset1DataPointDragTool1BeforeMouseMove(ATool: TChartTool; procedure ChartToolset1DataPointDragTool1BeforeMouseMove(ATool: TChartTool;
APoint: TPoint); APoint: TPoint);
procedure ChartToolset1ReticuleTool1AfterKeyUp(ATool: TChartTool;
APoint: TPoint);
procedure ChartToolset1ReticuleTool1AfterMouseMove(ATool: TChartTool;
APoint: TPoint);
procedure rgPanClick(Sender: TObject); procedure rgPanClick(Sender: TObject);
procedure rgZoomClick(Sender: TObject); procedure rgZoomClick(Sender: TObject);
end; end;
@ -93,6 +97,18 @@ begin
end; end;
end; end;
procedure TForm1.ChartToolset1ReticuleTool1AfterKeyUp(
ATool: TChartTool; APoint: TPoint);
begin
Chart1.ReticulePos := Point(-1, -1);
end;
procedure TForm1.ChartToolset1ReticuleTool1AfterMouseMove(ATool: TChartTool;
APoint: TPoint);
begin
Chart1.SetFocus;
end;
procedure TForm1.rgPanClick(Sender: TObject); procedure TForm1.rgPanClick(Sender: TObject);
var var
i: Integer; i: Integer;