Difference between revisions of "turn writing/de"
From Lazarus wiki
Jump to navigationJump to search (Created page with "{{turn writing}} <br> __TOC__ <br> Dieser Artikel beschäftigt sich mit der Windowsprogrammierung.<br> Die Prozedur dreht im übergebenen Canvas-Objekt den übergebenen Schrif...") |
m (Fixed syntax highlighting; deleted category included in page template) |
||
(7 intermediate revisions by 2 users not shown) | |||
Line 1: | Line 1: | ||
{{turn writing}} | {{turn writing}} | ||
− | + | ||
− | + | ||
− | + | Zurück zur Seite [[code examples/de|Code Beispiele]]. | |
− | Dieser Artikel beschäftigt sich mit der Windowsprogrammierung. | + | |
− | Die Prozedur dreht im übergebenen Canvas-Objekt den übergebenen Schriftzug. | + | |
− | + | Dieser Artikel beschäftigt sich mit der Windowsprogrammierung. | |
− | <syntaxhighlight> | + | |
+ | Die Prozedur dreht im übergebenen Canvas-Objekt den übergebenen Schriftzug. | ||
+ | |||
+ | <syntaxhighlight lang=pascal> | ||
uses | uses | ||
Graphics, Windows, ...; | Graphics, Windows, ...; | ||
Line 38: | Line 41: | ||
</syntaxhighlight> | </syntaxhighlight> | ||
− | + | ||
− | Beispiel für einen Aufruf der Prozedur: | + | Beispiel für einen Aufruf der Prozedur: |
− | <syntaxhighlight> | + | |
+ | <syntaxhighlight lang=pascal> | ||
... | ... | ||
subSchriftDrehen(Form1.Canvas, 30, 90, 40, 'Test'); | subSchriftDrehen(Form1.Canvas, 30, 90, 40, 'Test'); | ||
... | ... | ||
</syntaxhighlight> | </syntaxhighlight> | ||
− | |||
− | |||
− | |||
− |
Latest revision as of 03:12, 2 March 2020
│
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');
...