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

TAChart: More changes related to issue #40780. Patch by raspberryrabbit.

Browse Source
This commit is contained in:
wp_xyz 2024-02-18 11:34:16 +01:00
parent ac88bf7dbe
commit e5c820b1d3
2 changed files with 5 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
components/tachart/tadatatools.pas
View File

@ -280,11 +280,11 @@ begin
if AMode in [dpmSnap, dpmLock] then begin if AMode in [dpmSnap, dpmLock] then begin
FindNearestPoint(APoint); FindNearestPoint(APoint);
ADest.GraphPos := FNearestGraphPoint; ADest.GraphPos := FNearestGraphPoint;
ADest.FIndex := PointIndex; ADest.Index := PointIndex;
if not SameTransformations(FSeries, AOtherEndSeries) then if not SameTransformations(FSeries, AOtherEndSeries) then
FSeries := nil; FSeries := nil;
end; end;
ADest.FSeries := FSeries; ADest.Series := FSeries;
if FSeries = nil then if FSeries = nil then
ADest.GraphPos := FChart.ImageToGraph(APoint); ADest.GraphPos := FChart.ImageToGraph(APoint);
Result := (FSeries <> nil) or (AMode <> dpmLock); Result := (FSeries <> nil) or (AMode <> dpmLock);
@ -326,7 +326,7 @@ begin
if IsActive then exit; if IsActive then exit;
if dpdoPermanent in Options then if dpdoPermanent in Options then
DoHide(GetCurrentDrawer); DoHide(GetCurrentDrawer);
PointStart.FSeries := nil; PointStart.Series := nil;
if FindRef(APoint, DataPointModeStart, PointStart, nil) then if FindRef(APoint, DataPointModeStart, PointStart, nil) then
Activate; Activate;
PointEnd.Assign(PointStart); PointEnd.Assign(PointStart);

4
components/tachart/tatools.pas
View File

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