paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-12-05 14:37:11 +01:00
Code Issues Packages Projects Releases Wiki Activity

TAChart: Fix DatapointCrosshairTool ignoring its CrosshairPen.Visible setting.

Browse Source 
git-svn-id: trunk@57272 -
This commit is contained in:
wp 2018-02-07 18:44:58 +00:00
parent e0c0f459e7
commit 0a200582f4
1 changed files with 6 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
components/tachart/tatools.pas
View File

@ -1983,8 +1983,11 @@ end;
procedure TDataPointCrosshairTool.DoDraw;
var
p: TPoint;
ps: TFPPenStyle;
begin
FChart.Drawer.Pen := CrosshairPen;
if not CrosshairPen.Visible then
ps := CrosshairPen.Style;
PrepareDrawingModePen(FChart.Drawer, CrosshairPen);
p := FChart.GraphToImage(Position);
if Shape in [ccsVertical, ccsCross] then
if Size < 0 then
@ -1996,6 +1999,8 @@ begin
FChart.DrawLineHoriz(FChart.Drawer, p.Y)
else
FChart.Drawer.Line(p - Point(Size, 0), p + Point(Size, 0));
if not CrosshairPen.Visible then
FChart.Drawer.SetPenParams(ps, CrosshairPen.Color);
inherited;
end;