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

TAChart: Do not draw pointers with Visible = false

Browse Source 
git-svn-id: trunk@31431 -
This commit is contained in:
ask 2011-06-28 16:03:36 +00:00
parent ea79d0a8d1
commit 80486ae12e
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
components/tachart/taseries.pas
View File

@ -500,12 +500,12 @@ begin
DrawLines;
DrawLabels(ADrawer);
if FShowPoints then
if ShowPoints and Pointer.Visible then
for i := FLoBound to FUpBound do begin
p := FGraphPoints[i - FLoBound];
if not ParentChart.IsPointInViewPort(p) then continue;
ai := ParentChart.GraphToImage(p);
FPointer.Draw(ADrawer, ai, Source[i]^.Color);
Pointer.Draw(ADrawer, ai, Source[i]^.Color);
if Supports(ADrawer, IChartTCanvasDrawer, ic) and Assigned(FOnDrawPointer) then
FOnDrawPointer(Self, ic.Canvas, i, ai);
end;