diff --git a/lcl/include/canvas.inc b/lcl/include/canvas.inc
index f0e9a8fcf0..3d5cf4754b 100644
--- a/lcl/include/canvas.inc
+++ b/lcl/include/canvas.inc
@@ -1357,6 +1357,8 @@ begin
   Flags := 0;
   if TextStyle.Opaque then
     Flags := ETO_Opaque;
+  if TextStyle.RightToLeft then
+    Flags := Flags or ETO_RTLREADING;
   ExtUTF8Out(FHandle, X, Y, Flags, nil, PChar(Text), Length(Text), nil);
   MoveTo(X + TextWidth(Text), Y);
   Changed;
diff --git a/lcl/lcltype.pp b/lcl/lcltype.pp
index 6e3a8b5efd..c630fd7c85 100644
--- a/lcl/lcltype.pp
+++ b/lcl/lcltype.pp
@@ -224,6 +224,7 @@ type
 const
   ETO_OPAQUE = 2;
   ETO_CLIPPED = 4;
+  ETO_RTLREADING = 128;
 
   CS_VREDRAW = dword(1);
   CS_HREDRAW = dword(2);