Косое написание текста

[tsar_]

Всем привет! Вот интересуюсь: можно ли вывести надпись на форме под любым углом к горизонтали?

[Johnson]

Разрешаю.
(каков вопрос - таков ответ)

PS: только если использовать отрисовку на канве. Стандартными способами - никак.

[MyLastHit]

Так же есть вариант перейти по этой ссылке, и найти вот это

[Johnson]

а это не рисование на канве?..

[GreyScall]

Про LOGFONT уже написали, а ещё можно SetWorldTransform() посмотреть (хотя оно больше для рисования на мой взгляд)...

Пример:

Procedure TForm1.Button1Click(Sender: TObject);
Var GM: Integer; Ang: Double; XF: tagXFORM;
Begin
Form1.Font.Style:=[fsBold];
Form1.Refresh;
GM:=SetGraphicsMode(Form1.Canvas.Handle, GM_ADVANCED); // Установили улучшенный графический режим (нужно для работы SetWorldTransform); Функция возвращает "старый" графический режим;
Ang:=-45/180*Pi; // Перевели из градусов в радианы (45 градусов);
XF.eM11:=Cos(Ang);
XF.eM12:=Sin(Ang);
XF.eM21:=-Sin(Ang);
XF.eM22:=Cos(Ang);
XF.eDx:=40;
XF.eDy:=90; // Установили элементы матрицы преобразований (поворот);
SetWorldTransform(Form1.Canvas.Handle, XF); // Установили матрицу преобразований;
Form1.Canvas.Rectangle(5, 15, 45, 100); // Вывод прямоугольника;
Form1.Canvas.TextOut(10, 20, 'Text0'); // Вывод текста;
Form1.Canvas.TextOut(10, 40, 'Text1'); // Вывод текста;
Form1.Canvas.TextOut(10, 75, 'Text2'); // Вывод текста;
ModifyWorldTransform(Form1.Canvas.Handle, XF, MWT_IDENTITY); // Сбросили матрицу преобразований (установили единичную матрицу);
SetGraphicsMode(Form1.Canvas.Handle, GM); // Вернули обратно "старый" графический режим;
Form1.Canvas.Rectangle(5, 90, 50, 140); // Вывод прямоугольника;
Form1.Canvas.TextOut(10, 100, 'Text3'); // Вывод текста;
Form1.Canvas.TextOut(10, 120, 'Text4'); // Вывод текста;
End;