IMHO.WS - Поворот строк в VB6

IMHO.WS (https://www.imho.ws/index.php)

- Программирование (https://www.imho.ws/forumdisplay.php?f=40)

- - Поворот строк в VB6 (https://www.imho.ws/showthread.php?t=23546)

Поворот строк в VB6

:idontnow:
Всем, привет!

Может быть кто знает как развернуть строку в Vb на 90, 270 градусов, так чтоба надпись выводилась на экран перпендикулярно горизонтали.

И возможно ли это в принципе.

Спасибо за помощь.

Gorik

Ниже приведена процедура для делфи, используются только winapi функции, так что проблем переделать возникнуть не должно.

Цитата:

Написание текста под углом

Эта процедура устанавливает угол вывода текста для указанного Canvas, угол в градусах. Шрифт должен быть TrueType !

procedure CanvasSetTextAngle(c: TCanvas; d: single);
var LogRec: TLOGFONT; { Информация о шрифте }
begin
{Читаем текущюю инф. о шрифте }
GetObject(c.Font.Handle,SizeOf(LogRec) ,Addr(LogRec) );
{ Изменяем угол }
LogRec.lfEscapement := round(d*10);
{ Устанавливаем новые параметры }
c.Font.Handle := CreateFontIndirect(LogRec);
end;

:idea:

Thanks!

Все получилось! :)

Gorik.