Hi,
Habe festegestellt, dass wenn die Grösse der Schrift unter 14 ist,
eine Unschärfe entsteht. Ab 14 und mehr sieht's dann wieder gut aus:
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
var
lf : TLogFont;
tf : TFont;
begin
with Form1.Canvas do
begin
Font.Name := 'Arial';
Font.Size := 14;
tf := TFont.Create;
tf.Assign(Font);
GetObject(tf.Handle, SizeOf(lf), @lf);
lf.lfEscapement := -450;
lf.lfOrientation := lf.lfEscapement;
lf.lfQuality := ANTIALIASED_QUALITY;
tf.Handle := CreateFontIndirect(lf);
Font.Assign(tf);
tf.Free;
TextOut(100, Height div 2, 'Rotated Text!');
end;
end;