Revision 1 of 1, by Trev on 3-2-2020. The page as it is now.
turn writing/de
Zurück zur Seite Code Beispiele.
Dieser Artikel beschäftigt sich mit der Windowsprogrammierung.
Die Prozedur dreht im übergebenen Canvas-Objekt den übergebenen Schriftzug.
uses
Graphics, Windows, ...;
...
{Übergabeparameter:
Canvas-Objekt
X-Position
Y-Position
zu verwendender Winkel}
procedure subSchriftDrehen(C: TCanvas; wrdX, wrdY: word; intWinkel: integer;
strText: WideString);
var
LogRec: TLOGFONT;
begin
try
GetObject(C.Font.Handle, SizeOf(LogRec), Addr(LogRec));
LogRec.lfEscapement := Trunc(intWinkel * 10);
C.Font.Handle := CreateFontIndirect(LogRec);
C.TextOut(wrdX, wrdY, strText);
finally;
DeleteObject(C.Font.Handle);
end;
end;
...Beispiel für einen Aufruf der Prozedur:
...
subSchriftDrehen(Form1.Canvas, 30, 90, 40, 'Test');
...From the Free Pascal wiki, page "turn writing/de", as it stood on 2020-03-02 after a change by Trev, out of the wiki's dump of 2024-05-26. Copyright stays with the author who wrote it, according to the old wiki's Licensing page. If you have concerns about this material, message the admin.