From ca58c47ab79451cc41c662ed4f745705ec65dd64 Mon Sep 17 00:00:00 2001
From: wp_xyz <wp_xxyyzzz@gmx.net>
Date: Sat, 17 Feb 2024 17:12:43 +0100
Subject: [PATCH] TAChart: (hopefully) fix compilation with FPC 3.3.1. Issue
 #40780.

---
 components/tachart/tadatatools.pas | 4 ++--
 components/tachart/tatools.pas     | 2 +-
 2 files changed, 3 insertions(+), 3 deletions(-)

diff --git a/components/tachart/tadatatools.pas b/components/tachart/tadatatools.pas
index fe4b322b70..51bb034611 100644
--- a/components/tachart/tadatatools.pas
+++ b/components/tachart/tadatatools.pas
@@ -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;
 
diff --git a/components/tachart/tatools.pas b/components/tachart/tatools.pas
index 012d90ef30..2f6209d5c4 100644
--- a/components/tachart/tatools.pas
+++ b/components/tachart/tatools.pas
@@ -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;