turn writing/de

From Free Pascal wiki

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');
  ...



--Olaf 06:23, 18 May 2013 (UTC)