pascal/lazarus-ccr
1
0
Fork 0
Code Issues Releases Activity

fpspreadsheet: Remove requirement to call chart.AddSeries.

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@9056 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2023-11-29 00:09:59 +00:00
parent 29ec3f9436
commit f14558000b
4 changed files with 3 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

1
components/fpspreadsheet/examples/other/chart/bubblechart_write_demo.lpr
View File

@ -68,7 +68,6 @@ begin
ser.Fill.Color := $c47244; //72c4 scBlue; ser.Fill.Color := $c47244; //72c4 scBlue;
ser.Fill.Transparency := 0.25; ser.Fill.Transparency := 0.25;
ser.DataLabels := [cdlCategory]; ser.DataLabels := [cdlCategory];
ch.AddSeries(ser);
{ {
book.WriteToFile(FILE_NAME + '.xlsx', true); // Excel fails to open the file book.WriteToFile(FILE_NAME + '.xlsx', true); // Excel fails to open the file

4
components/fpspreadsheet/source/common/fpschart.pas
View File

@ -565,12 +565,14 @@ type
FImages: TsChartImageList; FImages: TsChartImageList;
function GetCategoryLabelRange: TsChartRange; function GetCategoryLabelRange: TsChartRange;
protected
function AddSeries(ASeries: TsChartSeries): Integer; virtual;
public public
constructor Create; constructor Create;
destructor Destroy; override; destructor Destroy; override;
function GetWorksheet: TsBasicWorksheet; function GetWorksheet: TsBasicWorksheet;
function AddSeries(ASeries: TsChartSeries): Integer;
procedure DeleteSeries(AIndex: Integer); procedure DeleteSeries(AIndex: Integer);
function GetChartType: TsChartType; function GetChartType: TsChartType;

1
components/fpspreadsheet/source/common/fpsopendocumentchart.pas
View File

@ -1222,7 +1222,6 @@ begin
'chart:scatter': series := TsScatterSeries.Create(AChart); 'chart:scatter': series := TsScatterSeries.Create(AChart);
else raise Exception.Create('Unknown/unsupported series type.'); else raise Exception.Create('Unknown/unsupported series type.');
end; end;
AChart.AddSeries(series);
ReadChartCellAddr(ANode, 'chart:label-cell-address', series.TitleAddr); ReadChartCellAddr(ANode, 'chart:label-cell-address', series.TitleAddr);
if (series is TsBubbleSeries) then if (series is TsBubbleSeries) then

1
components/fpspreadsheet/source/visual/fpspreadsheetchart.pas
View File

@ -1479,7 +1479,6 @@ begin
FChart.Prepare; FChart.Prepare;
UpdateChartAxisLabels(ch); UpdateChartAxisLabels(ch);
// UpdateBarSeries(ch);
FixAreaSeries(ch); FixAreaSeries(ch);
end; end;