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

TAChart: Add TRandomChartSource.YNanPercent property

Browse Source 
git-svn-id: trunk@41770 -
This commit is contained in:
ask 2013-06-20 00:39:58 +00:00
parent 26622f6def
commit f0b282dbd0
2 changed files with 17 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
components/tachart/tachartutils.pas
View File

@ -57,6 +57,8 @@ type
TChartDistance = 0..MaxInt;
TPercent = 0..100;
TPointDistFunc = function (const A, B: TPoint): Integer;
TTransformFunc = function (A: Double): Double of object;

17
components/tachart/tasources.pas
View File

@ -96,6 +96,7 @@ type
FXMin: Double;
FYMax: Double;
FYMin: Double;
FYNanPercent: TPercent;
strict private
FCurIndex: Integer;
FCurItem: TChartDataItem;
@ -108,6 +109,7 @@ type
procedure SetXMin(AValue: Double);
procedure SetYMax(AValue: Double);
procedure SetYMin(AValue: Double);
procedure SetYNanPercent(AValue: TPercent);
protected
function GetCount: Integer; override;
function GetItem(AIndex: Integer): PChartDataItem; override;
@ -127,6 +129,7 @@ type
property YCount;
property YMax: Double read FYMax write SetYMax;
property YMin: Double read FYMin write SetYMin;
property YNanPercent: TPercent read FYNanPercent write SetYNanPercent default 0;
end;
TUserDefinedChartSource = class;
@ -740,7 +743,9 @@ function TRandomChartSource.GetItem(AIndex: Integer): PChartDataItem;
function GetRandomY: Double;
begin
if YMax <= YMin then
if (YNanPercent > 0) and (FRNG.GetInRange(0, 100) <= YNanPercent) then
Result := SafeNan
else if YMax <= YMin then
Result := YMin
else
Result := FRNG.Get / High(LongWord) * (YMax - YMin) + YMin;
@ -754,7 +759,7 @@ begin
FCurIndex := -1;
end;
while FCurIndex < AIndex do begin
Inc(FCurIndex);
FCurIndex += 1;
if XMax <= XMin then
FCurItem.X := XMin
else begin
@ -845,6 +850,14 @@ begin
Notify;
end;
procedure TRandomChartSource.SetYNanPercent(AValue: TPercent);
begin
if FYNanPercent = AValue then exit;
FYNanPercent := AValue;
InvalidateCaches;
Notify;
end;
{ TUserDefinedChartSource }
procedure TUserDefinedChartSource.EndUpdate;