gedrehter Text
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. :wall: |
Re: gedrehter Text
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; |
Re: gedrehter Text
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. :wall: Danke für den Vorschlag :-D |
DP-Maintenance
Dieses Thema wurde von "Daniel" von "Neuen Beitrag zur Code-Library hinzufügen" nach "Windows API" verschoben.
|
Alle Zeitangaben in WEZ +1. Es ist jetzt 18:20 Uhr. |
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz