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

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

Browse Source 
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
1 changed files with 12 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

16
components/fpspreadsheet/fpspreadsheetgrid.pas
View File

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