mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2025-10-30 22:01:27 +01:00
TAChart: More cleanup
git-svn-id: trunk@54017 -
This commit is contained in:
parent
aec0265173
commit
20ffdb1e45
@ -486,7 +486,7 @@ var
|
|||||||
item: PChartDataItem;
|
item: PChartDataItem;
|
||||||
clipR: TRect;
|
clipR: TRect;
|
||||||
irect: TRect;
|
irect: TRect;
|
||||||
dummyR: TRect;
|
dummyR: TRect = (Left:0; Top:0; Right:0; Bottom:0);
|
||||||
ext: TDoubleRect;
|
ext: TDoubleRect;
|
||||||
begin
|
begin
|
||||||
if Source.YCount < 2 then exit;
|
if Source.YCount < 2 then exit;
|
||||||
@ -504,7 +504,6 @@ begin
|
|||||||
item := Source[i];
|
item := Source[i];
|
||||||
if not GetBubbleRect(item, irect) then
|
if not GetBubbleRect(item, irect) then
|
||||||
continue;
|
continue;
|
||||||
// if not RectIntersectsRectAlt(clipR, irect) then
|
|
||||||
if not IntersectRect(dummyR, clipR, irect) then
|
if not IntersectRect(dummyR, clipR, irect) then
|
||||||
continue;
|
continue;
|
||||||
if bocPen in OverrideColor then
|
if bocPen in OverrideColor then
|
||||||
|
|||||||
Loading…
Reference in New Issue
Block a user