Форум: "Media";
Текущий архив: 2004.04.18;
Скачать: [xml.tar.bz2];
Вниз
Как на канву вывести текст вертикально? Найти похожие ветки
← →
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 вся ветка
Форум: "Media";
Текущий архив: 2004.04.18;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.035 c
