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

fpspreadsheet: Fix position of right TChartAxis read from xlsx file.

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@9273 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz 2024-03-06 16:48:36 +00:00
parent 05d6ec914a
commit c0659755d3
1 changed files with 8 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -2233,12 +2233,18 @@ begin
case AWorkbookAxis.Position of case AWorkbookAxis.Position of
capStart: capStart:
begin begin
axis.Position := 0; if (axis.Alignment = calLeft) or (axis.Alignment = calBottom) then
axis.Position := 0
else
axis.Position := 100;
axis.PositionUnits := cuPercent; axis.PositionUnits := cuPercent;
end; end;
capEnd: capEnd:
begin begin
axis.Position := 100; if (axis.Alignment = calLeft) or (axis.Alignment = calBottom) then
axis.Position := 100
else
axis.Position := 0;
axis.PositionUnits := cuPercent; axis.PositionUnits := cuPercent;
// To do: Move TAChart axis labels and title to the other side // To do: Move TAChart axis labels and title to the other side
end; end;