paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-12-16 02:40:36 +01:00
Code Issues Packages Projects Releases Wiki Activity

TAChart: Support TUserDefinedChartSource.YCount

Browse Source 
git-svn-id: trunk@27138 -
This commit is contained in:
ask 2010-08-18 12:55:28 +00:00
parent 61cf75f456
commit 277dda4e82
1 changed files with 9 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
components/tachart/tasources.pas
View File

@ -245,6 +245,7 @@ type
protected
function GetCount: Integer; override;
function GetItem(AIndex: Integer): PChartDataItem; override;
procedure SetYCount(AValue: Cardinal); override;
public
function IsSorted: Boolean; override;
procedure Reset; inline;
@ -1217,5 +1218,13 @@ begin
Reset;
end;
procedure TUserDefinedChartSource.SetYCount(AValue: Cardinal);
begin
if FYCount = AValue then exit;
FYCount := AValue;
SetLength(FItem.YList, Max(YCount - 1, 0));
Reset;
end;
end.