Vista Fuchsia Bug

git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@693 8e941d3f-bd1b-0410-a28a-d453659cc2b4
2009-02-02 20:58:42 +00:00 · 2009-02-02 20:58:42 +00:00 · 99043817ca
commit 99043817ca
parent 933d8a5b44
1 changed files with 4 additions and 0 deletions
--- 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);