Label um 90° drehen

[mbamler]

Zitat von made in Germany:

Hallo!

Kann mir jemand sagen, wie ich eine TLabel-Komponente um 90° drehen kann?

DANKE!

Delphi-Quellcode:

procedure TextOutRotated(ACanvas: TCanvas; x, y, Angel10 : integer; atext : string);
var
  hFont, Orgfont : THandle;
  DC : hDC;
begin
  if length(atext) > 0 then begin
    DC := ACanvas.Handle;
    SetBkMode(DC, transparent);
    hFont := CreateFont(-ACanvas.Font.Size, 0, Angel10, 0, fw_normal, 0,
                        0, 0, 1, 4, $10, 2, 4, PChar(ACanvas.Font.Name));
    Orgfont := SelectObject(DC, hFont);
    TextOut(DC, x, y, PChar(atext), length(atext));
    SelectObject(DC, OrgFont);
    DeleteObject(hFont);
  end;
end;

Gruß
Matthias