gedrehter Text

[schilling]

Suche Tools zur geräteunabhängigen Ausgabe von gedrehtem Text.
Ähnlich wie mit der Routine CREATEFONT(.... aus der gdi32.dll.
Aber ohne Fehler bei der Ausgabe auf diversen Konfigurationen bzw. EMF.

[MrKnogge]

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  lf : TLogFont;
  tf : TFont;
begin
  with Form1.Canvas do
  begin
    Font.Name := 'Arial';
    Font.Size := 24;
    tf := TFont.Create;
    try
      tf.Assign(Font);
      GetObject(tf.Handle, sizeof(lf), @lf);
      lf.lfEscapement := 450;
      lf.lfOrientation := 450;
      tf.Handle := CreateFontIndirect(lf);
      Font.Assign(tf);
      TextOut(20, Height div 2, 'gedrehter Text!');
    finally
      tf.free;
    end;
  end;
end;

[schilling]

Die angedeuteten Probleme treten bei mir mit allen gdi-Routinen auf.
Z.B.: Drehrichtung verändert oder Text nicht gedreht oder Texthintergrund und Text verschieden dargestellt u.a.

Danke für den Vorschlag