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

TAChart: Use RecNo as X value if TDbChartSource.FieldX is empty.

Browse Source 
Patch by José Mejuto

git-svn-id: trunk@27551 -
This commit is contained in:
ask 2010-10-03 03:03:53 +00:00
parent 67a5cb4020
commit 80b1644c82
2 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
components/tachart/demo/db/dbdemo.lpi
View File

@ -64,7 +64,7 @@
<Version Value="9"/>
<PathDelim Value="\"/>
<SearchPaths>
<IncludeFiles Value="$(ProjOutDir)\"/>
<IncludeFiles Value="$(ProjOutDir)"/>
<UnitOutputDirectory Value="lib\$(TargetCPU)-$(TargetOS)"/>
</SearchPaths>
<Parsing>

4
components/tachart/tadbsource.pas
View File

@ -192,7 +192,9 @@ begin
ds.Next;
if ds.RecNo <> AIndex then exit;
if FieldX <> '' then
FCurItem.X := ds.FieldByName(FieldX).AsFloat;
FCurItem.X := ds.FieldByName(FieldX).AsFloat
else
FCurItem.X := ds.RecNo;
if FYCount > 0 then begin
FCurItem.Y := ds.FieldByName(FFieldYList[0]).AsFloat;
for i := 0 to High(FCurItem.YList) do