You've already forked lazarus-ccr
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:
@ -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
|
||||||
|
Reference in New Issue
Block a user