paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-13 16:49:07 +02:00
Code Issues Packages Projects Releases Wiki Activity

TAChart: Allow TUserDefinedChartSource to declare itself sorted.

Browse Source 
git-svn-id: trunk@25927 -
This commit is contained in:
ask 2010-06-05 17:02:07 +00:00
parent 6e4ce19314
commit 3bd2cdda8e
1 changed files with 8 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
components/tachart/tasources.pas
View File

@ -194,18 +194,21 @@ type
FItem: TChartDataItem; FItem: TChartDataItem;
FOnGetChartDataItem: TGetChartDataItemEvent; FOnGetChartDataItem: TGetChartDataItemEvent;
FPointsNumber: Integer; FPointsNumber: Integer;
FSorted: Boolean;
procedure SetOnGetChartDataItem(const AValue: TGetChartDataItemEvent); procedure SetOnGetChartDataItem(const AValue: TGetChartDataItemEvent);
procedure SetPointsNumber(const AValue: Integer); procedure SetPointsNumber(const AValue: Integer);
protected protected
function GetCount: Integer; override; function GetCount: Integer; override;
function GetItem(AIndex: Integer): PChartDataItem; override; function GetItem(AIndex: Integer): PChartDataItem; override;
public public
function IsSorted: Boolean; override;
procedure Reset; inline; procedure Reset; inline;
published published
property OnGetChartDataItem: TGetChartDataItemEvent property OnGetChartDataItem: TGetChartDataItemEvent
read FOnGetChartDataItem write SetOnGetChartDataItem; read FOnGetChartDataItem write SetOnGetChartDataItem;
property PointsNumber: Integer property PointsNumber: Integer
read FPointsNumber write SetPointsNumber default 0; read FPointsNumber write SetPointsNumber default 0;
property Sorted: Boolean read FSorted write FSorted;
end; end;
procedure Register; procedure Register;
@ -922,6 +925,11 @@ begin
Result := @FItem; Result := @FItem;
end; end;
function TUserDefinedChartSource.IsSorted: Boolean;
begin
Result := Sorted;
end;
procedure TUserDefinedChartSource.Reset; procedure TUserDefinedChartSource.Reset;
begin begin
InvalidateCaches; InvalidateCaches;