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

TAChart: Add ZeroDoublePoint constant

Browse Source 
git-svn-id: trunk@21851 -
This commit is contained in:
ask 2009-09-25 01:01:13 +00:00
parent 0c54c5658c
commit 0cf1c8c60c
2 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
components/tachart/tachartutils.pas
View File

@ -112,6 +112,7 @@ const
'%1:.2f%% of %3:g', // smsLabelPercentTotal '%1:.2f%% of %3:g', // smsLabelPercentTotal
'%4:g' // smsXValue '%4:g' // smsXValue
); );
ZeroDoublePoint: TDoublePoint = (X: 0; Y: 0);
EmptyDoubleRect: TDoubleRect = (coords: (0, 0, 0, 0)); EmptyDoubleRect: TDoubleRect = (coords: (0, 0, 0, 0));
EmptyExtent: TDoubleRect = EmptyExtent: TDoubleRect =
(coords: (Infinity, Infinity, NegInfinity, NegInfinity)); (coords: (Infinity, Infinity, NegInfinity, NegInfinity));

3
components/tachart/tagraph.pas
View File

@ -1182,8 +1182,7 @@ begin
Unused(ADistFunc, APoint); Unused(ADistFunc, APoint);
AIndex := 0; AIndex := 0;
AImg := Point(0, 0); AImg := Point(0, 0);
AValue.X := 0; Avalue := ZeroDoublePoint;
AValue.Y := 0;
Result := false; Result := false;
end; end;