Как на канву вывести текст вертикально?

← →
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]

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

DC:= form.canvas.handle;

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

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

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

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