fpspreadsheet: In the WorksheetGrid, adapt default HorAlignment to right-to-left mode.

git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@4457 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2016-01-22 21:38:04 +00:00
parent 74d6314155
commit 9dc3304375

View File

@ -2411,13 +2411,21 @@ begin
if (horAlign = haDefault) then
begin
if (lCell^.ContentType in [cctNumber, cctDateTime]) then
horAlign := haRight
begin
if IsRightToLeft then
horAlign := haLeft
else
horAlign := haRight;
end else
if (lCell^.ContentType in [cctBool]) then
horAlign := haCenter
else begin
if IsRightToLeft then
horAlign := haRight
else
horAlign := haLeft;
end;
end;
// Font index
if (uffFont in fmt^.UsedFormattingFields)