paweld/lazarus-ccr
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Vista Fuchsia Bug

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@693 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
eugene1 2009-02-02 20:58:42 +00:00
parent 933d8a5b44
commit 99043817ca
1 changed files with 4 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
components/gradcontrols/src/urotatebitmap.pas
View File

@ -293,6 +293,8 @@ end;
procedure TRotatedText.SetFont(const AValue: TFont); procedure TRotatedText.SetFont(const AValue: TFont);
begin begin
FNormalBitmap.Canvas.Font := AValue; FNormalBitmap.Canvas.Font := AValue;
FNormalBitmap.Canvas.Font.Quality := fqNonAntialiased;
UpdateText; UpdateText;
end; end;
@ -301,6 +303,8 @@ var
TextSize : TSize; TextSize : TSize;
TransColor: TColor; TransColor: TColor;
begin begin
FNormalBitmap.Canvas.Font.Quality := fqNonAntialiased;
with FNormalBitmap, Canvas do with FNormalBitmap, Canvas do
begin begin
TextSize := TextExtent(FText); TextSize := TextExtent(FText);