From 6eb542a6f72eb42fa1ac7a50aa7eb5a95c203cb5 Mon Sep 17 00:00:00 2001
From: paul <paul@lazarus-ide.org>
Date: Thu, 16 Jul 2009 01:21:29 +0000
Subject: [PATCH] lcl: add Orientation to the TFontData structure (fixes issue
 #0009754)

git-svn-id: trunk@20868 -
---
 lcl/graphics.pp      | 4 +++-
 lcl/include/font.inc | 3 +++
 2 files changed, 6 insertions(+), 1 deletion(-)

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;