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

TAChart: Default color for list source data points should be clTAColor, not 0.

Browse Source 
git-svn-id: trunk@20156 -
This commit is contained in:
ask 2009-05-24 06:35:53 +00:00
parent 029339a761
commit 1245e6e6ed
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
components/tachart/tasources.pas
View File

@ -319,7 +319,8 @@ end;
function TListChartSourceStrings.Get(Index: Integer): string; function TListChartSourceStrings.Get(Index: Integer): string;
begin begin
with FSource[Index]^ do with FSource[Index]^ do
Result := Format('%g|%g|%d|%s', [X, Y, Color, Text]); Result := Format('%g|%g|%s|%s',
[X, Y, IfThen(Color = clTAColor, '', '$' + IntToHex(Color, 6)), Text]);
end; end;
function TListChartSourceStrings.GetCount: Integer; function TListChartSourceStrings.GetCount: Integer;
@ -352,7 +353,7 @@ begin
with ADataItem^ do begin with ADataItem^ do begin
X := StrToFloatDef(NextPart, 0.0); X := StrToFloatDef(NextPart, 0.0);
Y := StrToFloatDef(NextPart, 0.0); Y := StrToFloatDef(NextPart, 0.0);
Color := StrToIntDef(NextPart, 0); Color := StrToIntDef(NextPart, clTAColor);
Text := NextPart; Text := NextPart;
end; end;
end; end;