| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

текст под углом [D7, WinXP]

злобная танька ©   (2005-11-12 00:22:00) 

как нарисовать сабж? была какая то апи функция я не помню. подскажите..

---

Джо   (2005-11-12 01:49:00) [1]

procedure RotateFont (AFont: TFont; Angle: Integer);
var
 LogFont : TLogFont;
begin
 GetObject(AFont.Handle, SizeOf(TLogFont), @LogFont);
 LogFont.lfEscapement := Angle*10;
 AFont.Handle := CreateFontIndirect(LogFont);
end;

---

Добрый Я   (2005-11-12 00:37:00) [2]

это надо фонт делать....

---

Наверх