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: 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
object ccsSum: TCalculatedChartSource
AccumulationMethod = camSum
AccumulationRange = 100
AccumulationRange = 0
Origin = RandomChartSource1
left = 464
top = 96

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

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

2
components/tachart/tacustomsource.pas
View File

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

5
components/tachart/tasources.pas
View File

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