diff --git a/lcl/graphics.pp b/lcl/graphics.pp
index bb942616ec..79f87ff7d3 100644
--- a/lcl/graphics.pp
+++ b/lcl/graphics.pp
@@ -69,6 +69,7 @@ type
     CharSet: TFontCharSet;
     Quality: TFontQuality;
     Name: TFontDataName;
+    Orientation: Integer;
   end;
 
 const
@@ -83,7 +84,8 @@ const
     Style: [];
     Charset: DEFAULT_CHARSET;
     Quality: fqDefault;
-    Name: 'default'
+    Name: 'default';
+    Orientation: 0;
     );
 
 type
diff --git a/lcl/include/font.inc b/lcl/include/font.inc
index fa63c2edec..ef7670878a 100644
--- a/lcl/include/font.inc
+++ b/lcl/include/font.inc
@@ -165,6 +165,7 @@ begin
         else
           Pitch := fpDefault;
         end;
+        Orientation := lfOrientation;
         Handle := Font;
       end;
   end;
@@ -1214,6 +1215,7 @@ begin
   Result.CharSet := CharSet;
   Result.Quality := Quality;
   Result.Name := LeftStr(Name, SizeOf(Result.Name) - 1);
+  Result.Orientation := Orientation;
 end;
 
 function TFont.GetIsMonoSpace: boolean;
@@ -1267,6 +1269,7 @@ begin
       inherited SetFlags(7, fsUnderline in FStyle);
     if (fsStrikeOut in OldStyle)<>(fsStrikeOut in FStyle) then
       inherited SetFlags(8, fsStrikeOut in FStyle);
+    FOrientation := FontData.Orientation;
     Changed;
   end;
 end;