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 |
||
Line 47: | Line 47: | ||
<br> | <br> | ||
<br> | <br> | ||
− | + | --[[User:Olaf|Olaf]] 06:23, 18 May 2013 (UTC) | |
[[Category:Code Parts/de]] | [[Category:Code Parts/de]] |
Revision as of 08:23, 18 May 2013
│
Deutsch (de) │
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');
...
--Olaf 06:23, 18 May 2013 (UTC)