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

TAChart: Move clTAColor to TAChartUtils. Fix error message.

Browse Source 
git-svn-id: trunk@20151 -
This commit is contained in:
ask 2009-05-24 01:38:30 +00:00
parent 608612c9e0
commit e93779cdaa
3 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
components/tachart/tachartutils.pas
View File

@ -36,6 +36,7 @@ const
Colors: array [1..MaxColor] of TColor = ( Colors: array [1..MaxColor] of TColor = (
clRed, clGreen, clYellow, clBlue, clWhite, clGray, clFuchsia, clRed, clGreen, clYellow, clBlue, clWhite, clGray, clFuchsia,
clTeal, clNavy, clMaroon, clLime, clOlive, clPurple, clSilver, clAqua); clTeal, clNavy, clMaroon, clLime, clOlive, clPurple, clSilver, clAqua);
clTAColor = clScrollBar;
CHART_COMPONENT_IDE_PAGE = 'Chart'; CHART_COMPONENT_IDE_PAGE = 'Chart';
type type

1
components/tachart/tagraph.pas
View File

@ -33,7 +33,6 @@ uses
TAChartUtils, TATypes; TAChartUtils, TATypes;
const const
clTAColor = clScrollBar;
LEGEND_SPACING = 5; LEGEND_SPACING = 5;
type type

2
components/tachart/taseries.pas
View File

@ -481,7 +481,7 @@ end;
function TChartSeries.ListSource: TListChartSource; function TChartSeries.ListSource: TListChartSource;
begin begin
if not (Source is TListChartSource) then if not (Source is TListChartSource) then
raise EFixedSourceRequired.Create('Fixed chart source required'); raise EFixedSourceRequired.Create('Editable chart source required');
Result := Source as TListChartSource; Result := Source as TListChartSource;
end; end;