paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-28 21:41:01 +02:00
Code Issues Packages Projects Releases Wiki Activity

TAChart: Fix TCalculatedChartSource crashes, update line demo

Browse Source 
git-svn-id: trunk@28804 -
This commit is contained in:
ask 2010-12-22 12:24:31 +00:00
parent 1e97fa9ad8
commit 7f4cc4b2f4
4 changed files with 9 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
components/tachart/demo/line/Main.lfm
View File

@ -233,7 +233,7 @@ object Form1: TForm1
end end
object ccsSum: TCalculatedChartSource object ccsSum: TCalculatedChartSource
AccumulationMethod = camSum AccumulationMethod = camSum
AccumulationRange = 100 AccumulationRange = 0
Origin = RandomChartSource1 Origin = RandomChartSource1
left = 464 left = 464
top = 96 top = 96

3
components/tachart/demo/line/linedemo.lpi
View File

@ -14,6 +14,9 @@
<CharSet Value=""/> <CharSet Value=""/>
<StringTable ProductVersion=""/> <StringTable ProductVersion=""/>
</VersionInfo> </VersionInfo>
<BuildModes Count="1">
<Item1 Name="default" Default="True"/>
</BuildModes>
<PublishOptions> <PublishOptions>
<Version Value="2"/> <Version Value="2"/>
<IgnoreBinaries Value="False"/> <IgnoreBinaries Value="False"/>

2
components/tachart/tacustomsource.pas
View File

@ -151,7 +151,7 @@ begin
if FCount = Capacity then begin if FCount = Capacity then begin
RemoveValue(FBuf[FStart]); RemoveValue(FBuf[FStart]);
FBuf[FStart] := AItem; FBuf[FStart] := AItem;
FStart += 1; FStart := (FStart + 1) mod Capacity;
end end
else begin else begin
FCount += 1; FCount += 1;

5
components/tachart/tasources.pas
View File

@ -1053,7 +1053,10 @@ end;
procedure TCalculatedChartSource.Changed(ASender: TObject); procedure TCalculatedChartSource.Changed(ASender: TObject);
begin begin
if (ASender = FOrigin) and (FOrigin.YCount <> FOriginYCount) then begin if
(FOrigin <> nil) and (ASender = FOrigin) and
(FOrigin.YCount <> FOriginYCount)
then begin
UpdateYOrder; UpdateYOrder;
exit; exit;
end; end;