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

TAChart: Add TChart.AutoFocus property

Browse Source 
git-svn-id: trunk@38867 -
This commit is contained in:
ask 2012-09-27 16:00:51 +00:00
parent 6020e3b6da
commit 35e042eb08
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/tagraph.pas
View File

@ -194,6 +194,7 @@ type
private
FActiveToolIndex: Integer;
FAutoFocus: Boolean;
FBroadcaster: TBroadcaster;
FBuiltinToolset: TBasicChartToolset;
FClipRect: TRect;
@ -346,6 +347,7 @@ type
property YGraphMin: Double read FCurrentExtent.a.Y;
published
property AutoFocus: Boolean read FAutoFocus write FAutoFocus default false;
property AllowZoom: Boolean read FAllowZoom write FAllowZoom default true;
property AntialiasingMode: TChartAntialiasingMode
read FAntialiasingMode write SetAntialiasingMode default amDontCare;
@ -1099,6 +1101,8 @@ end;
procedure TChart.MouseMove(Shift: TShiftState; X, Y: Integer);
begin
if AutoFocus then
SetFocus;
if GetToolset.Dispatch(Self, evidMouseMove, Shift, Point(X, Y)) then exit;
inherited;
end;