1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:

procedure TForm1.Button1Click(Sender: TObject);  //Gedrehte Schrift
var  lf: LOGFONT; // Windows-eigene Schriftartstruktur
begin
  Canvas.Brush.Style := bsClear; // Pinselstil auf Transparent setzen
  FillChar(Addr(lf), SizeOf(lf), Byte(0));
  lf.lfHeight := 20;
  lf.lfEscapement := 10 * 45; // Grad der Drehung
  lf.lfOrientation := 10 * 45;
  lf.lfCharSet := DEFAULT_CHARSET;
  StrCopy(lf.lfFaceName, 'Tahoma');

  Canvas.Font.Handle := CreateFontIndirect(Addr(lf));

  Canvas.TextOut(10, 100, 'Gedrehter Text'); // Ausgabe der Schrift
end;


end.					

1:
2:
3:
4:

[...]
FillChar(lf, SizeOf(lf), Byte(0));
[...]
Canvas.Font.Handle := CreateFontIndirect(@lf);