--- iphtml.pas	Mon Feb 22 17:25:05 2021
+++ iphtml.pas	Mon Feb 22 17:42:53 2021
@@ -355,6 +355,7 @@
     property Props : TIpHtmlProps read FProps;
   end;
 
+  TIpHtmlDirection = (hdLTR, hdRTL);
   { TIpHtmlNodeCore }
 
   TIpHtmlNodeCore = class(TIpHtmlNodeMulti)
@@ -369,6 +370,7 @@
     FTitle: string;
     FId: string;
     FAreaList: TFPList;
+    FDir: TIpHtmlDirection;
   protected
     procedure AddArea(const R: TRect);
     procedure BuildAreaList; virtual;
@@ -392,6 +394,7 @@
     property Id : string read FId write SetId;
     property Style : string read FStyle write FStyle;
     property Title : string read FTitle write FTitle;
+    property Dir : TIpHtmlDirection read FDir write FDir;
   end;
 
   TIpHtmlNodeInline = class(TIpHtmlNodeCore)
@@ -502,17 +505,14 @@
     property TextColor : TColor read FTextColor write SetTextColor;
   end;
 
-  TIpHtmlDirection = (hdLTR, hdRTL);
   TIpHtmlNodeHEAD = class(TIpHtmlNodeMulti)
   private
     FProfile: string;
     FLang: string;
-    FDir: TIpHtmlDirection;
   public
   {$IFDEF HTML_RTTI}
   published
   {$ENDIF}
-    property Dir : TIpHtmlDirection read FDir write FDir;
     property Lang : string read FLang write FLang;
     property Profile : string read FProfile write FProfile;
   end;
@@ -2031,7 +2031,7 @@
     function NewElement(EType : TElementType; Own: TIpHtmlNode) : PIpHtmlElement;
     function BuildStandardEntry(EType: TElementType): PIpHtmlElement;
     function BuildLinefeedEntry(EType: TElementType; AHeight: Integer): PIpHtmlElement;
-    function ParseDir: TIpHtmlDirection;
+    function ParseDir(ADefault: TIpHtmlDirection = hdLTR): TIpHtmlDirection;
     procedure ParseSPAN(Parent: TIpHtmlNode; const EndTokens: TIpHtmlTokenSet);
     procedure ParseQ(Parent: TIpHtmlNode; const EndTokens: TIpHtmlTokenSet);
     procedure ParseINS(Parent: TIpHtmlNode; const EndTokens: TIpHtmlTokenSet);
@@ -7365,13 +7365,16 @@
   end;
 end;
 
-function TIpHtml.ParseDir : TIpHtmlDirection;
+function TIpHtml.ParseDir(ADefault: TIpHtmlDirection): TIpHtmlDirection;
 var
   S : string;
 begin
-  Result := hdLTR;
+  Result := ADefault;
   S := UpperCase(FindAttribute(htmlAttrDIR));
-  if (length(S) = 0) or (S = 'LTR') then
+  if (length(S) = 0) then
+  else
+  if (S = 'LTR') then
+    Result := hdLTR
   else
   if (S = 'RTL') then
     Result := hdRTL
@@ -12388,6 +12391,10 @@
     ClassId := FindAttribute(htmlAttrCLASS);
     Title := FindAttribute(htmlAttrTITLE);
     Style := FindAttribute(htmlAttrSTYLE);
+    if ParentNode is TIpHtmlNodeCore then
+      Dir := ParseDir((ParentNode as TIpHtmlNodeCore).Dir)
+    else
+      Dir := ParseDir();
   end;
   if Style <> '' then
   begin
--- iphtmlblocklayout.pas	Tue Jan 26 16:07:05 2021
+++ iphtmlblocklayout.pas	Mon Feb 22 17:37:28 2021
@@ -445,6 +445,11 @@
         Dec(WMod);
       end else
         OffsetRect(R, dx + WDelta, 0);
+      { mirroring for RTL reading }
+      if FOwner.Dir = hdRTL then
+      begin
+        R.SetLocation(FPageRect.Right - R.Right + FPageRect.Left, R.Top);
+      end;
       SetWordRect(CurElem, R);
     end else
       SetWordRect(CurElem, NullRect);
--- iphtmltablelayout.pas	Tue Dec  8 09:58:22 2020
+++ iphtmltablelayout.pas	Mon Feb 22 17:37:45 2021
@@ -588,6 +588,17 @@
                     FRowSp[CurCol] := CellNode.RowSpan - 1;
                     Inc(CurCol);
                   end;
+
+                  { mirroring for RTL reading }
+                  if FOwner.Dir = hdRTL then
+                  begin
+                    CellNode.Dir := hdRTL;
+                    CellRect1 := CellNode.PadRect;
+                    CellRect1.SetLocation(FTableWidth - CellRect1.Right, CellRect1.Top);
+                    CellNode.PadRect := CellRect1;
+                    CellNode.Layouter.Layout(RenderProps, CellRect1);
+                  end;
+
                 end;
 
               maxYY := 0;