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

TAChart: Add TChartToolset.DispatchedShiftState property

Browse Source 
git-svn-id: trunk@38500 -
This commit is contained in:
ask 2012-09-03 13:54:12 +00:00
parent b33c818ce3
commit e11de6d9cd
1 changed files with 3 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
components/tachart/tatools.pas
View File

@ -143,6 +143,7 @@ type
TChartToolset = class(TBasicChartToolset)
strict private
FDispatchedShiftState: TShiftState;
FTools: TChartTools;
function GetItem(AIndex: Integer): TChartTool;
private
@ -160,6 +161,7 @@ type
AChart: TChart; AEventId: TChartToolEventId;
AShift: TShiftState; APoint: TPoint): Boolean; override;
procedure Draw(AChart: TChart; ADrawer: IChartDrawer); override;
property DispatchedShiftState: TShiftState read FDispatchedShiftState;
property Item[AIndex: Integer]: TChartTool read GetItem; default;
published
property Tools: TChartTools read FTools;
@ -875,6 +877,7 @@ begin
if (i <> ai) and (Item[i].Shift = AShift) then
AddCandidate(i);
FDispatchedShiftState := AShift;
FIsHandled := false;
for i := 0 to candidateCount - 1 do begin
candidates[i].Dispatch(AChart, AEventId, APoint);