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

components/fpspreadsheet/fpspreadsheetgrid.pas

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