paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-09-06 11:20:36 +02:00
Code Issues Packages Projects Releases Wiki Activity

TAChart: Fix TListChartSource.DataPoints to accept item text with spaces. Update tests.

Browse Source 
git-svn-id: trunk@28363 -
This commit is contained in:
ask 2010-11-20 08:29:48 +00:00
parent efaee5815a
commit 88afd5541d
3 changed files with 9 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
components/tachart/tasources.pas
View File

@ -654,6 +654,7 @@ begin
parts := TStringList.Create;
try
parts.Delimiter := '|';
parts.StrictDelimiter := true;
parts.DelimitedText := AString;
if FSource.YCount + 3 < Cardinal(parts.Count) then
FSource.YCount := parts.Count - 3;

2
components/tachart/test/SourcesTest.pas
View File

@ -78,6 +78,8 @@ begin
AssertEquals($FF0000, FSource[1]^.Color);
FSource[0]^.Color := 0;
AssertEquals('3|4|$000000|text1', FSource.DataPoints[0]);
FSource.DataPoints.Add('7|8|0|two words');
AssertEquals('two words', FSource[2]^.Text);
end;
procedure TListSourceTest.SetUp;

11
components/tachart/test/test.lpi
View File

@ -1,16 +1,14 @@
<?xml version="1.0"?>
<CONFIG>
<ProjectOptions>
<Version Value="9"/>
<PathDelim Value="\"/>
<Version Value="8"/>
<General>
<Flags>
<MainUnitHasCreateFormStatements Value="False"/>
<UseDefaultCompilerOptions Value="True"/>
</Flags>
<SessionStorage Value="InProjectDir"/>
<MainUnit Value="0"/>
<TargetFileExt Value=".exe"/>
<Title Value="TAChart tests"/>
<ResourceType Value="res"/>
<UseXPManifest Value="True"/>
@ -21,8 +19,11 @@
<VersionInfo>
<Language Value=""/>
<CharSet Value=""/>
<StringTable Comments="" CompanyName="" FileDescription="" FileVersion="" InternalName="" LegalCopyright="" LegalTrademarks="" OriginalFilename="" ProductName="" ProductVersion=""/>
<StringTable ProductVersion=""/>
</VersionInfo>
<BuildModes Count="1">
<Item1 Name="default" Default="True"/>
</BuildModes>
<PublishOptions>
<Version Value="2"/>
<IgnoreBinaries Value="False"/>
@ -64,7 +65,7 @@
<Filename Value="test"/>
</Target>
<SearchPaths>
<IncludeFiles Value="$(ProjOutDir)\"/>
<IncludeFiles Value="$(ProjOutDir)"/>
<UnitOutputDirectory Value="lib\$(TargetCPU)-$(TargetOS)"/>
</SearchPaths>
<CodeGeneration>