paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-09-10 11:39:50 +02:00
Code Issues Packages Projects Releases Wiki Activity

TAChart: Minor cleanups and fixes

Browse Source 
git-svn-id: trunk@20157 -
This commit is contained in:
ask 2009-05-24 06:47:06 +00:00
parent 1245e6e6ed
commit 39ae87f65f
2 changed files with 8 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
components/tachart/taseries.pas
View File

@ -507,7 +507,7 @@ end;
function TChartSeries.ListSource: TListChartSource;
begin
if not (Source is TListChartSource) then
raise EFixedSourceRequired.Create('Editable chart source required');
raise EEditableSourceRequired.Create('Editable chart source required');
Result := Source as TListChartSource;
end;

14
components/tachart/tasources.pas
View File

@ -8,7 +8,7 @@ uses
Classes, Graphics, SysUtils, TAChartUtils;
type
EFixedSourceRequired = class(EChartError);
EEditableSourceRequired = class(EChartError);
EListenerError = class(EChartError);
TChartDataItem = record
@ -98,26 +98,26 @@ type
FHistory: array [0..4] of LongWord;
procedure SetSeed(const AValue: Integer);
public
property Seed: Integer write SetSeed;
function Get: LongWord;
function GetInRange(AMin, AMax: Integer): Integer;
property Seed: Integer write SetSeed;
end;
{ TRandomChartSource }
TRandomChartSource = class(TCustomChartSource)
private
FRandomX: Boolean;
FPointsNumber: Integer;
FRandomX: Boolean;
FRandSeed: Integer;
FXMax: Double;
FXMin: Double;
FYMax: Double;
FYMin: Double;
private
FRNG: TMWCRandomGenerator;
FCurIndex: Integer;
FCurItem: TChartDataItem;
FRNG: TMWCRandomGenerator;
procedure SetPointsNumber(const AValue: Integer);
procedure SetRandomX(const AValue: Boolean);
@ -565,7 +565,7 @@ var
begin
FHistory[0] := AValue;
// Use trivial LCG for seeding
for i := 0 to High(FHistory) do
for i := 1 to High(FHistory) do
FHistory[i] := Lo(Int64(FHistory[i - 1]) * 29943829 - 1);
// Skip some initial values to increase randomness.
for i := 1 to 20 do
@ -577,10 +577,9 @@ end;
constructor TRandomChartSource.Create(AOwner: TComponent);
begin
inherited Create(AOwner);
FCurItem.Color := clTAColor;
FRNG := TMWCRandomGenerator.Create;
RandSeed := GetTickCount;
FCurItem.Color := clTAColor;
FCurIndex := -1;
end;
destructor TRandomChartSource.Destroy;
@ -640,6 +639,7 @@ begin
if FRandSeed = AValue then exit;
FRandSeed := AValue;
FRNG.Seed := AValue;
FCurIndex := -1;
InvalidateCaches;
Notify;
end;