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

TAChart: Fix data-point cross-hair cursor, used by two charts, being drawn in the other chart.

Browse Source
This commit is contained in:
wp_xyz 2023-07-07 14:27:00 +02:00
parent 95d6c4d698
commit a1bf47ed7d
1 changed files with 2 additions and 1 deletions

3
components/tachart/tatools.pas
View File

@ -2277,7 +2277,6 @@ end;
procedure TDataPointCrosshairTool.MouseDown(APoint: TPoint);
begin
FCurrentDrawer := nil;
MouseMove(APoint);
end;
@ -2288,7 +2287,9 @@ var
lastIndex: Integer;
xorMode: Boolean;
begin
FCurrentDrawer := nil;
id := GetCurrentDrawer;
lastSeries := FSeries;
lastIndex := FPointIndex;
xorMode := EffectiveDrawingMode = tdmXOR;