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

fpspreadsheet: Chart link supports series pointers varying with y level in multi-level series

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@9282 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz 2024-03-17 12:04:37 +00:00
parent d77952de79
commit ed4772cf18
1 changed files with 15 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -2713,12 +2713,26 @@ procedure TsWorkbookChartLink.UpdateChartStyle(AWorkbookSeries: TsChartSeries;
var
style: TChartStyle;
ch: TsChart;
ppi: Integer;
begin
ch := AWorkbookSeries.Chart;
style := TChartStyle(FChartStyles.Styles[AStyleIndex]);
UpdateChartPen(ch, AWorkbookSeries.Line, style.Pen);
if (AWorkbookSeries is TsCustomLineSeries) then
UpdateChartBrush(ch, TsOpenedCustomLineSeries(AWorkbookSeries).SymbolFill, style.Brush)
begin
{$IF LCL_FullVersion >= 3990000}
ppi := GetParentForm(FChart).PixelsPerInch;
style.UsePointer := true;
style.Pointer.Visible := true;
style.Pointer.Style := POINTER_STYLES[TsOpenedCustomLineSeries(AWorkbookSeries).Symbol];
style.Pointer.HorizSize := mmToPx(TsOpenedCustomLineSeries(AWorkbookSeries).SymbolWidth, ppi);
style.Pointer.VertSize := mmToPx(TsOpenedCustomLineSeries(AWorkbookSeries).SymbolHeight, ppi);
UpdateChartBrush(ch, TsOpenedCustomLineSeries(AWorkbookSeries).SymbolFill, style.Pointer.Brush);
UpdateChartPen(ch, TsOpenedCustomLineSeries(AWorkbookSeries).SymbolBorder, style.Pointer.Pen);
{$ELSE}
UpdateChartBrush(ch, TsOpenedCustomLineSeries(AWorkbookSeries).SymbolFill, style.Brush);
{$ENDIF}
end
else
UpdateChartBrush(ch, AWorkbookSeries.Fill, style.Brush);
end;