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

TAChart: Add TChartAxis.IsPointInside function

Browse Source 
git-svn-id: trunk@38349 -
This commit is contained in:
ask 2012-08-23 13:55:15 +00:00
parent 25d16d33d5
commit fcf47b570b
1 changed files with 6 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
components/tachart/tachartaxis.pas
View File

@ -149,6 +149,7 @@ type
function GetChart: TCustomChart; inline; function GetChart: TCustomChart; inline;
function GetTransform: TChartAxisTransformations; function GetTransform: TChartAxisTransformations;
function IsDefaultPosition: Boolean; function IsDefaultPosition: Boolean;
function IsPointInside(const APoint: TPoint): Boolean;
function IsVertical: Boolean; inline; function IsVertical: Boolean; inline;
procedure Measure( procedure Measure(
const AExtent: TDoubleRect; var AMeasureData: TChartAxisGroup); const AExtent: TDoubleRect; var AMeasureData: TChartAxisGroup);
@ -600,6 +601,11 @@ begin
Result := (PositionUnits = cuPercent) and (Position = 0); Result := (PositionUnits = cuPercent) and (Position = 0);
end; end;
function TChartAxis.IsPointInside(const APoint: TPoint): Boolean;
begin
Result := PtInRect(FTitleRect, APoint) and not PtInRect(FAxisRect, APoint);
end;
function TChartAxis.IsVertical: Boolean; inline; function TChartAxis.IsVertical: Boolean; inline;
begin begin
Result := Alignment in [calLeft, calRight]; Result := Alignment in [calLeft, calRight];