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

TAChart: (hopefully) fix compilation with FPC 3.3.1. Issue #40780.

Browse Source
This commit is contained in:
wp_xyz 2024-02-17 17:12:43 +01:00
parent 0642c65d04
commit ca58c47ab7
2 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
components/tachart/tadatatools.pas
View File

@ -279,14 +279,14 @@ begin
FSeries := nil;
if AMode in [dpmSnap, dpmLock] then begin
FindNearestPoint(APoint);
ADest.FGraphPos := FNearestGraphPoint;
ADest.GraphPos := FNearestGraphPoint;
ADest.FIndex := PointIndex;
if not SameTransformations(FSeries, AOtherEndSeries) then
FSeries := nil;
end;
ADest.FSeries := FSeries;
if FSeries = nil then
ADest.SetGraphPos(FChart.ImageToGraph(APoint));
ADest.GraphPos := FChart.ImageToGraph(APoint);
Result := (FSeries <> nil) or (AMode <> dpmLock);
end;

2
components/tachart/tatools.pas
View File

@ -408,7 +408,7 @@ type
public
procedure Assign(ASource: TPointRef);
function AxisPos(ADefaultSeries: TBasicChartSeries = nil): TDoublePoint;
property GraphPos: TDoublePoint read FGraphPos;
property GraphPos: TDoublePoint read FGraphPos write SetGraphPos;
property Index: Integer read FIndex;
property Series: TBasicChartSeries read FSeries;
end;