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

FPSpreadsheet: Fix duplicate legend items (after tabcontrol support)

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@9476 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz 2024-10-01 18:09:58 +00:00
parent 6599aeba51
commit d3516c739b
1 changed files with 7 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -19,7 +19,9 @@ interface
{$ifdef FPS_CHARTS}
uses lazloggerbase,
uses
lazloggerbase,
// RTL/FCL
Classes, Contnrs, SysUtils, Types, FPCanvas,
// LCL
@ -1976,10 +1978,7 @@ begin
// Workbook has been successfully loaded, all sheets are ready
if (lniWorkbook in AChangedItems) then
begin
ClearChart;
UpdateChart;
end;
// Another worksheet is selected --> Select the first chart of the worksheet
if (lniWorksheet in AChangedItems) and (WorkbookSource <> nil) then
@ -1989,8 +1988,6 @@ begin
WorkbookChartIndex := WorkbookSource.Workbook.GetChartIndex(charts[0])
else
WorkbookChartIndex := -1;
ClearChart;
UpdateChart;
FChart.Visible := WorkbookChartIndex > -1;
end;
end;
@ -2128,13 +2125,11 @@ var
ch: TsChart;
i: Integer;
begin
if (FChart = nil) then
ClearChart;
if (FChart = nil) or (FWorkbookSource = nil) or (FWorkbookChartIndex < 0) then
exit;
if (FWorkbookSource = nil) or (FWorkbookChartIndex < 0) then
begin
ClearChart;
exit;
end;
FChart.Proportional := false;
FChart.ExpandPercentage := 0;