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

TAChart: Make default legend entry of TColorMapSeries globally available.

Browse Source 
git-svn-id: trunk@56500 -
This commit is contained in:
wp 2017-11-26 21:25:32 +00:00
parent 45fc658a8d
commit fcf86240a0
1 changed files with 2 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
components/tachart/tafuncseries.pas
View File

@ -28,6 +28,7 @@ const
DEF_FIT_STEP = 4; DEF_FIT_STEP = 4;
DEF_FIT_PARAM_COUNT = 3; DEF_FIT_PARAM_COUNT = 3;
DEF_COLORMAP_STEP = 4; DEF_COLORMAP_STEP = 4;
DEF_COLORMAP_LEGENDFORMAT = 'z ≤ %1:g|%g < z ≤ %g|%g < z';
type type
TFuncCalculateEvent = procedure (const AX: Double; out AY: Double) of object; TFuncCalculateEvent = procedure (const AX: Double; out AY: Double) of object;
@ -2046,10 +2047,8 @@ end;
procedure TCustomColorMapSeries.GetLegendItems(AItems: TChartLegendItems); procedure TCustomColorMapSeries.GetLegendItems(AItems: TChartLegendItems);
function PrepareFormats: TStrings; function PrepareFormats: TStrings;
const
FORMAT_DEF = 'z ≤ %1:g|%g < z ≤ %g|%g < z';
begin begin
Result := Split(IfThen(Legend.Format = '', FORMAT_DEF, Legend.Format)); Result := Split(IfThen(Legend.Format = '', DEF_COLORMAP_LEGENDFORMAT, Legend.Format));
with Result do with Result do
try try
while Count < 3 do while Count < 3 do