|
Zdravím, používám následující kód:
Dim s = TextRenderer.MeasureText(Me.Text, Me.Font)
Dim b As New Bitmap(s.Width, s.Height)
Using g As Graphics = Graphics.FromImage(b)
g.DrawString(Me.Text, Me.Font, Brushes.Black, 0, 0)
End Using
Me.CreateGraphics.DrawImage(b, Point.Empty)
Me.CreateGraphics.DrawString(Me.Text, Me.Font, Brushes.Black, 0, s.Height)
Dopadne to následovně: http://img18.imageshack.us/img18/470/for... Nikdy dříve se mi to nestalo. Požívám Win XP SP 2 a ClearType mám zapnutý už opravdu velmi dlouho, bez potíží, až do dneška. Nemáte tušení, čím by to mohlo být? Když ClearType vypnu nebo nastavím TextRenderingHint na cokoliv jiného, vše pracuje v pořádku. Díky
|