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

fpspreadsheet: Add missing fpspreadsheet_chart.inc

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@8974 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2023-10-23 15:24:11 +00:00
parent 240c6065b8
commit 6beb21eab9
1 changed files with 45 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

45
components/fpspreadsheet/source/common/fpspreadsheet_chart.inc Normal file
View File

@ -0,0 +1,45 @@
{ Included by fpspreadsheet.pas }
{ Chart support }
{@@ ----------------------------------------------------------------------------
Creates a chart object with its top/left corner in the specified row/colum and
having the specified width (in workbook units).
Inserts the chart in the FCharts list of the workbook and returns the chart
instance.
-------------------------------------------------------------------------------}
function TsWorkbook.AddChart(ASheet: TsBasicWorksheet; ARow, ACol: Cardinal;
AWidth, AHeight: Double; AOffsetX: Double = 0.0; AOffsetY: Double = 0.0): TsChart;
begin
Result := TsChart.Create;
if (ASheet = nil) then
raise Exception.Create('To do: Insert chart as new ChartSheet');
Result.SheetIndex := GetWorksheetIndex(ASheet);
Result.Row := ARow;
Result.Col := ACol;
Result.OffsetX := AOffsetX;
Result.OffsetY := AOffsetY;
Result.Width := AWidth;
Result.Height := AHeight;
Result.Index := FCharts.Add(Result);
end;
{@@ ----------------------------------------------------------------------------
Returns the chart having the given index in the worksheet's chart list
-------------------------------------------------------------------------------}
function TsWorkbook.GetChartByIndex(AIndex: Integer): TsChart;
begin
if (AIndex >= 0) and (AIndex < FCharts.Count) then
Result := FCharts[AIndex]
else
Result := nil;
end;
{@@ ----------------------------------------------------------------------------
Returns the number of charts embedded on this sheet
-------------------------------------------------------------------------------}
function TsWorkbook.GetChartCount: Integer;
begin
Result := FCharts.Count;
end;