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

TAChart: Add ReticulePos property.

Browse Source 
* Do not pass reticule position to OnDrawReticule event,
  since it is now available as Chart.ReticulePos

git-svn-id: trunk@23832 -
This commit is contained in:
ask 2010-03-04 00:00:29 +00:00
parent f436eae76d
commit 9724ea6767
1 changed files with 4 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
components/tachart/tagraph.pas
View File

@ -39,7 +39,7 @@ type
TDrawReticuleEvent = procedure(
ASender: TChart; ASeriesIndex, AIndex: Integer;
const AImg: TPoint; const AData: TDoublePoint) of object;
const AData: TDoublePoint) of object;
{ TBasicChartSeries }
@ -55,6 +55,7 @@ type
procedure AfterAdd; virtual;
procedure AfterDraw; virtual;
procedure BeforeDraw; virtual;
procedure GetBounds(out ABounds: TDoubleRect); virtual; abstract;
procedure GetLegendItems(AItems: TChartLegendItems); virtual; abstract;
function GetNearestPoint(
ADistFunc: TPointDistFunc; const APoint: TPoint;
@ -64,7 +65,6 @@ type
procedure SetDepth(AValue: TChartDistance); virtual; abstract;
procedure SetShowInLegend(AValue: Boolean); virtual; abstract;
procedure SetZPosition(AValue: TChartDistance); virtual; abstract;
procedure GetBounds(out ABounds: TDoubleRect); virtual; abstract;
procedure UpdateMargins(ACanvas: TCanvas; var AMargins: TRect); virtual;
protected
@ -229,6 +229,7 @@ type
property ChartWidth: Integer read GetChartWidth;
property ClipRect: TRect read FClipRect;
property CurrentExtent: TDoubleRect read FCurrentExtent;
property ReticulePos: TPoint read FReticulePos;
property SeriesCount: Integer read GetSeriesCount;
property XGraphMax: Double read FCurrentExtent.b.X;
property XGraphMin: Double read FCurrentExtent.a.X;
@ -892,7 +893,7 @@ procedure TChart.MouseMove(Shift: TShiftState; X, Y: Integer);
FReticulePos := bestRetPos;
DrawReticule(Canvas);
if Assigned(FOnDrawReticule) then
FOnDrawReticule(Self, bestSeries, pointIndex, bestRetPos, value);
FOnDrawReticule(Self, bestSeries, pointIndex, value);
end;
end;