| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Как на канву вывести текст вертикально?
Mkrivun © (2003-12-28 17:20:00)Как на канву вывести слово вертикально?
В методе канвы textout параметра типа расположение текста нет.
Что посоветуете?
miek (2003-12-29 19:28:00) [1]В общих черта так:
DC:= form.canvas.handle;
hf:= CreateFont( ... );
или
hf:= GetStockObject( ANSI_VAR_FONT);
SelectObject( DC, hf);
DrawText( DC, ...)
DeleteObject( hf);
За подробностями в хелпы
tchn (2003-12-29 12:38:00) [2]
> miek © (28.12.03 23:27) [2]
> Короче, проще всего напрямую через WinAPI
а примерчик можно?
miek (2003-12-28 23:27:00) [3]Короче, проще всего напрямую через WinAPI
Otez (2003-12-28 17:44:00) [4]...var
lf: TLogFont;
begin
FillChar(lf, SizeOf(lf), 0);
lf.lfEscapement := 100; // Угол наклона в десятых градуса(поэксперементируй с этим числом!)
Form1.Canvas.Font.Handle := CreateFontIndirect(lf);
Form1.Canvas.TextOut(0, 100, 'TEXT');
end;...
| |
