From ee6572eea6d2a5098474688e0f4adb45a8676cfe Mon Sep 17 00:00:00 2001
From: vincents <vincents@lazarus-ide.org>
Date: Thu, 4 Jun 2009 13:05:44 +0000
Subject: [PATCH] LCL: fixed TFont.Assign, also assign Orientation from
 Alexander (issue #13907)

git-svn-id: trunk@20402 -
---
 lcl/include/font.inc | 1 +
 1 file changed, 1 insertion(+)

diff --git a/lcl/include/font.inc b/lcl/include/font.inc
index 4b99573dd9..fa63c2edec 100644
--- a/lcl/include/font.inc
+++ b/lcl/include/font.inc
@@ -635,6 +635,7 @@ begin
             // use height which users could have changed directly
             Height := TFont(Source).Height;
           Name := TFont(Source).Name;
+          Orientation := TFont(Source).Orientation;
           Pitch := TFont(Source).Pitch;
           Style := TFont(Source).Style;
           Quality := TFont(Source).Quality;