paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-30 21:10:36 +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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
components/tachart/tatools.pas
View File

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