turn writing/de
From Lazarus wiki
Jump to navigationJump to search
│
Deutsch (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');
...