From 99043817ca61b0d728d9d7114c32d3e69035b4e6 Mon Sep 17 00:00:00 2001
From: eugene1 <eugene1@8e941d3f-bd1b-0410-a28a-d453659cc2b4>
Date: Mon, 2 Feb 2009 20:58:42 +0000
Subject: [PATCH] Vista Fuchsia Bug

git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@693 8e941d3f-bd1b-0410-a28a-d453659cc2b4
---
 components/gradcontrols/src/urotatebitmap.pas | 4 ++++
 1 file changed, 4 insertions(+)

diff --git a/components/gradcontrols/src/urotatebitmap.pas b/components/gradcontrols/src/urotatebitmap.pas
index 2a953b064..b31bf3738 100644
--- a/components/gradcontrols/src/urotatebitmap.pas
+++ b/components/gradcontrols/src/urotatebitmap.pas
@@ -293,6 +293,8 @@ end;
 procedure TRotatedText.SetFont(const AValue: TFont);
 begin
   FNormalBitmap.Canvas.Font := AValue;
+  FNormalBitmap.Canvas.Font.Quality := fqNonAntialiased;
+
   UpdateText;
 end;
 
@@ -301,6 +303,8 @@ var
   TextSize : TSize;
   TransColor: TColor;
 begin
+  FNormalBitmap.Canvas.Font.Quality := fqNonAntialiased;
+
   with FNormalBitmap, Canvas do
   begin
     TextSize := TextExtent(FText);