Форум: "Основная";
Текущий архив: 2005.11.13;
Скачать: [xml.tar.bz2];

Вниз

Компонент текста под углом 90 гр.   Найти похожие ветки 

← →
kyn66 ©   (2005-10-21 16:56) [0]

МАстера, не видал-ли кто сабж. Или можно как-то сделать самому?

---

← →
clickmaker ©   (2005-10-21 17:11) [1]

посмотри на torry.net
можно и самому написать наследника от TLabel, например

---

← →
Prohodil Mimo ©   (2005-10-22 23:58) [2]

если хочешь сам написать, смотри на LOGFONT + F1.

---

← →
PZ   (2005-10-23 16:37) [3]

http://forum.sources.ru
Не проверял

{ Эта процедура устанавливает угол вывода текста для указанного 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;

---

Страницы: 1 вся ветка

Форум: "Основная";
Текущий архив: 2005.11.13;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.44 MB
Время: 0.047 c