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

TAChart: Cleanup

Browse Source 
git-svn-id: trunk@54016 -
This commit is contained in:
wp 2017-01-27 22:48:09 +00:00
parent df344043fb
commit aec0265173
1 changed files with 6 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
components/tachart/tamultiseries.pas
View File

@ -251,7 +251,7 @@ type
implementation
uses
FPCanvas, Math, SysUtils,
FPCanvas, Math, SysUtils, Types,
TAChartStrConsts, TAGeometry, TAGraph, TAMath;
type
@ -486,6 +486,7 @@ var
item: PChartDataItem;
clipR: TRect;
irect: TRect;
dummyR: TRect;
ext: TDoubleRect;
begin
if Source.YCount < 2 then exit;
@ -503,7 +504,8 @@ begin
item := Source[i];
if not GetBubbleRect(item, irect) then
continue;
if not RectIntersectsRectAlt(clipR, irect) then
// if not RectIntersectsRectAlt(clipR, irect) then
if not IntersectRect(dummyR, clipR, irect) then
continue;
if bocPen in OverrideColor then
ADrawer.SetPenParams(BubblePen.Style, ColorDef(item^.Color, BubblePen.Color));
@ -671,6 +673,8 @@ var
inp: TPoint; // NewPos in image units
rvec: TDoublePoint; // Rotated radius vector
begin
Unused(AXIndex);
ParentChart.DisableRedrawing;
ListSource.BeginUpdate;
try