paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-11-04 15:49:32 +01:00
Code Issues Packages Projects Releases Wiki Activity

TAChart: Re-start random source sequence after any property change

Browse Source 
git-svn-id: trunk@41797 -
This commit is contained in:
ask 2013-06-22 13:08:27 +00:00
parent da9bdae897
commit 5429593781
1 changed files with 16 additions and 17 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

33
components/tachart/tasources.pas
View File

@ -102,6 +102,7 @@ type
FCurItem: TChartDataItem;
FRNG: TMWCRandomGenerator;
procedure Reset;
procedure SetPointsNumber(AValue: Integer);
procedure SetRandomX(AValue: Boolean);
procedure SetRandSeed(AValue: Integer);
@ -784,20 +785,25 @@ begin
Result := not RandomX;
end;
procedure TRandomChartSource.Reset;
begin
FCurIndex := -1;
InvalidateCaches;
Notify;
end;
procedure TRandomChartSource.SetPointsNumber(AValue: Integer);
begin
if FPointsNumber = AValue then exit;
FPointsNumber := AValue;
InvalidateCaches;
Notify;
Reset;
end;
procedure TRandomChartSource.SetRandomX(AValue: Boolean);
begin
if FRandomX = AValue then exit;
FRandomX := AValue;
InvalidateCaches;
Notify;
Reset;
end;
procedure TRandomChartSource.SetRandSeed(AValue: Integer);
@ -805,33 +811,28 @@ begin
if FRandSeed = AValue then exit;
FRandSeed := AValue;
FRNG.Seed := AValue;
FCurIndex := -1;
InvalidateCaches;
Notify;
Reset;
end;
procedure TRandomChartSource.SetXMax(AValue: Double);
begin
if FXMax = AValue then exit;
FXMax := AValue;
InvalidateCaches;
Notify;
Reset;
end;
procedure TRandomChartSource.SetXMin(AValue: Double);
begin
if FXMin = AValue then exit;
FXMin := AValue;
InvalidateCaches;
Notify;
Reset;
end;
procedure TRandomChartSource.SetYCount(AValue: Cardinal);
begin
if YCount = AValue then exit;
FYCount := AValue;
InvalidateCaches;
Notify;
Reset;
end;
procedure TRandomChartSource.SetYMax(AValue: Double);
@ -846,16 +847,14 @@ procedure TRandomChartSource.SetYMin(AValue: Double);
begin
if FYMin = AValue then exit;
FYMin := AValue;
InvalidateCaches;
Notify;
Reset;
end;
procedure TRandomChartSource.SetYNanPercent(AValue: TPercent);
begin
if FYNanPercent = AValue then exit;
FYNanPercent := AValue;
InvalidateCaches;
Notify;
Reset;
end;
{ TUserDefinedChartSource }