paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-08 09:38:12 +02:00
Code Issues Packages Projects Releases Wiki Activity

TAChart: Update calculated source upon change of the Origin.YCount

Browse Source 
git-svn-id: trunk@28779 -
This commit is contained in:
ask 2010-12-20 07:19:59 +00:00
parent 340d1e1ca4
commit d16b7539c1
1 changed files with 8 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
components/tachart/tasources.pas
View File

@ -267,13 +267,14 @@ type
private
FAccumulationMethod: TChartAccumulationMethod;
FAccumulationRange: Integer;
FHistory: array of TChartDataItem;
FIndex: Integer;
FItem: TChartDataItem;
FListener: TListener;
FOrigin: TCustomChartSource;
FOriginYCount: Cardinal;
FPercentage: Boolean;
FReorderYList: String;
FHistory: array of TChartDataItem;
FYOrder: array of Integer;
procedure CalcAccumulation(AIndex: Integer);
@ -1331,7 +1332,10 @@ end;
procedure TCalculatedChartSource.Changed(ASender: TObject);
begin
Unused(ASender);
if (ASender = FOrigin) and (FOrigin.YCount <> FOriginYCount) then begin
UpdateYOrder;
exit;
end;
FIndex := -1;
InvalidateCaches;
Notify;
@ -1447,6 +1451,7 @@ var
i: Integer;
begin
if FOrigin = nil then begin
FOriginYCount := 0;
FYCount := 0;
FYOrder := nil;
FItem.YList := nil;
@ -1454,6 +1459,7 @@ begin
exit;
end;
FOriginYCount := FOrigin.YCount;
if ReorderYList = '' then begin
FYCount := FOrigin.YCount;
SetLength(FYOrder, Max(FYCount - 1, 0));