paweld/lazarus-ccr
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

FPSpreadsheet: Fix display of runtime created series in TChart.

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@9432 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz 2024-09-11 21:18:21 +00:00
parent 5609399247
commit e7338413f2
1 changed files with 5 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -937,6 +937,8 @@ end;
-------------------------------------------------------------------------------}
procedure TsWorkbookChartSource.SetRangeFromChart(ARangeIndex: TsXYLRange;
AListIndex: Integer; const ARange: TsChartRange);
var
sheet: TsWorksheet;
begin
if ARange.Sheet1 <> ARange.Sheet2 then
raise Exception.Create('A chart cell range can only be from a single worksheet.');
@ -957,7 +959,9 @@ begin
FRanges[ARangeIndex, AListIndex, 0].Col1 := ARange.Col1;
FRanges[ARangeIndex, AListIndex, 0].Row2 := ARange.Row2;
FRanges[ARangeIndex, AListIndex, 0].Col2 := ARange.Col2;
FWorksheets[ARangeIndex, AListIndex] := FworkbookSource.Workbook.GetWorksheetByName(ARange.Sheet1);
sheet := FWorkbookSource.Workbook.GetWorksheetByName(ARange.Sheet1);
if sheet = nil then sheet := FWorkbookSource.Workbook.ActiveWorksheet;
FWorksheets[ARangeIndex, AListIndex] := sheet;
case ARangeIndex of
rngX, rngY:
FPointsNumber := Max(CountValues(rngX), CountValues(rngY));