paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-11-19 22:29:37 +01:00
Code Issues Packages Projects Releases Wiki Activity

TAChart: Use operator= instead of EqualPoints function.

Browse Source 
git-svn-id: trunk@19024 -
This commit is contained in:
ask 2009-03-18 11:57:52 +00:00
parent 5c9f7efdf3
commit c3693ef736
2 changed files with 2 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
components/tachart/tachartutils.pas
View File

@ -109,7 +109,6 @@ procedure CalculateIntervals(
AMin, AMax: Double; AxisScale: TAxisScale; out AStart, AStep: Double);
function DoublePoint(const ACoord: TChartCoord): TDoublePoint;
function EqualPoints(const A, B: TPoint): Boolean; inline;
procedure Exchange(var A, B: Integer); overload;
procedure Exchange(var A, B: Double); overload;
@ -206,11 +205,6 @@ begin
Result.Y := ACoord.y;
end;
function EqualPoints(const A, B: TPoint): Boolean;
begin
Result := (A.X = B.X) and (A.Y = B.Y);
end;
procedure Exchange(var A, B: Integer); overload;
var
t: Integer;

4
components/tachart/tagraph.pas
View File

@ -312,7 +312,7 @@ var
implementation
uses
Clipbrd, LCLProc, Math;
Clipbrd, LCLProc, GraphMath, Math;
const
MinDouble = -1.7e308;
@ -1280,7 +1280,7 @@ begin
if
FShowReticule and
Series[i].GetNearestPoint(@PointDistX, pt, pointIndex, newRetPos, value) and
not EqualPoints(newRetPos, FReticulePos) and PtInRect(r, newRetPos)
(newRetPos <> FReticulePos) and PtInRect(r, newRetPos)
then begin
DoDrawReticule(i, pointIndex, newRetPos, value.X, value.Y);
DrawReticule(Canvas, FReticulePos);