Скачать: CL | DM;

Как на канву вывести текст вертикально?   Найти похожие ветки 

← →
Mkrivun ©   (2003-12-28 17:20) [0]

Как на канву вывести слово вертикально?
В методе канвы textout параметра типа расположение текста нет.
Что посоветуете?

---

← →
Otez   (2003-12-28 17:44) [1]

...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;...

---

← →
miek ©   (2003-12-28 23:27) [2]

Короче, проще всего напрямую через WinAPI

---

← →
tchn ©   (2003-12-29 12:38) [3]

> miek ©   (28.12.03 23:27) [2]
> Короче, проще всего напрямую через WinAPI

а примерчик можно?

---

← →
miek ©   (2003-12-29 19:28) [4]

В общих черта так:

DC:= form.canvas.handle;

hf:= CreateFont( ... );
или
hf:= GetStockObject( ANSI_VAR_FONT);

SelectObject( DC, hf);
DrawText( DC, ...)
DeleteObject( hf);

За подробностями в хелпы

---

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

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.021 c