| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Компонент текста под углом 90 гр. [D7, WinXP]
kyn66 © (2005-10-21 16:56:00)МАстера, не видал-ли кто сабж. Или можно как-то сделать самому?
PZ (2005-10-23 16:37:00) [1]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;
Prohodil Mimo (2005-10-22 23:58:00) [2]если хочешь сам написать, смотри на LOGFONT + F1.
clickmaker (2005-10-21 17:11:00) [3]посмотри на torry.net
можно и самому написать наследника от TLabel, например
| |
