развернуть label на 90 градусов вертикально

[Inbox]

Хочу вот так вот, как вот это мне сделать?
Lable отображается в качестве размера (цифры),
размерные линии со стрелками и сама цифра, а может это не так делается?

[VVM]

Я знаю только 2 способа.
1. Сложный. Переписать код самого компонента Label, добавив возможность поворота.
2. Простой. Использовать OvcLabel или RzLabel. Где - то в нете должны быть.
3. Может быть есть еще способ, например через WinApi...

[InternetStranger]

И заправду - существует третий способ (и четвертый тоже). Только предлагаю вращать не label, а использовать графический вывод на форму (Канвас короче):

procedure CanvasSetAngle(C: TCanvas; A: Single);
var
  LogRec: TLOGFONT;     {Font informationen}
begin
  GetObject(C.Font.Handle,SizeOf(LogRec),Addr(LogRec));
  LogRec.lfEscapement := Trunc(A*10);
  C.Font.Handle := CreateFontIndirect(LogRec);
end;

procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
Var A: Integer;
begin
   A := Random(3600);
   CanvasSetAngle(Canvas, A / 10);
   Canvas.RectAngle(X-1,Y-1,X+1,Y+1);
   Canvas.TextOut(x, Y, FormatFloat('##0.0', A/10)+'°');
end;

вот и четвертый:

(*procedure CanvasTextOutAngle(C: TCanvas; x,y: Integer; A: Word; S: string);
var
  LogRec: TLOGFONT;
  FHandleOld, FHandleNew: HFONT;
begin
  GetObject(C.Font.Handle, SizeOf(LogRec), Addr(LogRec));
  LogRec.lfEscapement := d;

  {* Create a new font handle using the modified old font handle *}
  NewFontHandle := CreateFontIndirect(LogRec);

  {* Save the old font handle! We have to put it back when we are done! *}
  OldFontHandle := SelectObject(c.Handle,NewFontHandle);

  {* Finally. Output the text! *}
  c.TextOut(x,y,s);

  {* Put the font back the way we found it! *}
  NewFontHandle := SelectObject(c.Handle,OldFontHandle);

  {* Delete the temporary (NewFontHandle) that we created *}
  DeleteObject(NewFontHandle);

end; {* CanvasTextOutAngle *}
*)

Скачать !!!исходник!!!