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

fpspreadsheet: Fix labels of rotated axes in chart link.

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@9087 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2023-12-16 18:45:36 +00:00
parent 689b43288e
commit e10ac1b73e
2 changed files with 3 additions and 15 deletions
Download Patch File Download Diff File Expand all files Collapse all files

10
components/fpspreadsheet/examples/other/chart/write_demos.lpg
View File

@ -37,16 +37,6 @@
<Mode Name="Default"/> <Mode Name="Default"/>
</BuildModes> </BuildModes>
</Target> </Target>
<Target FileName="scatter_log_write_demo.lpi">
<BuildModes>
<Mode Name="Default"/>
</BuildModes>
</Target>
<Target FileName="scatter_loglog_write_demo.lpi">
<BuildModes>
<Mode Name="Default"/>
</BuildModes>
</Target>
<Target FileName="stock_write_demo.lpi"> <Target FileName="stock_write_demo.lpi">
<BuildModes> <BuildModes>
<Mode Name="Default"/> <Mode Name="Default"/>

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

@ -1288,10 +1288,8 @@ begin
FChart.AxisList[i].Minors.Delete(j); FChart.AxisList[i].Minors.Delete(j);
if (FChart.AxisList[i].Marks.Source is TDateTimeIntervalChartSource) then if (FChart.AxisList[i].Marks.Source is TDateTimeIntervalChartSource) then
begin
FChart.AxisList[i].Marks.Source.Free; FChart.AxisList[i].Marks.Source.Free;
FChart.AxisList[i].Marks.Style := smsValue; FChart.AxisList[i].Marks.Style := smsValue;
end;
case FChart.AxisList[i].Alignment of case FChart.AxisList[i].Alignment of
calLeft, calBottom: calLeft, calBottom:
@ -1763,12 +1761,12 @@ begin
if AWorkbookAxis = AWorkbookAxis.Chart.XAxis then if AWorkbookAxis = AWorkbookAxis.Chart.XAxis then
align := calBottom align := calBottom
else if AWorkbookAxis = AWorkbookAxis.Chart.X2Axis then
align := calTop
else if AWorkbookAxis = AWorkbookAxis.Chart.YAxis then else if AWorkbookAxis = AWorkbookAxis.Chart.YAxis then
align := calLeft align := calLeft
else if AWorkbookAxis = AWorkbookAxis.Chart.Y2Axis then else if AWorkbookAxis = AWorkbookAxis.Chart.Y2Axis then
align := calRight align := calRight
else if AWorkbookAxis = AWorkbookAxis.Chart.X2Axis then
align := calTop
else else
raise Exception.Create('Unsupported axis alignment'); raise Exception.Create('Unsupported axis alignment');