Текст на картинку (канву)

← →
alexdn © (2012-09-07 13:50) [0]

Вот есть в php совершенно замечательная функция -
imagettftext($image,10,90,$dl+70,($h+50)/2+25,0x000000,"stat/univers.ttf", $text);
есть ли в делфи что то подобное?

← →
Дмитрий С © (2012-09-07 14:01) [1]

Есть. Глупый вопрос.

← →
antonn © (2012-09-07 14:06) [2]

Нормальный вопрос, рисование текста под углом и в дельфи не двумя строками делается

← →
alexdn © (2012-09-07 14:10) [3]

> antonn © (07.09.12 14:06) [2]
да, вот особенно на 90 градусов нужно..

← →
alexdn © (2012-09-07 14:19) [4]

Это Textout рыть?..

← →
antonn © (2012-09-07 14:26) [5]

ну почти, глянь тут http://desksoft.ru/index.php?drkb=70&id=535&str_path=0|55|69|70&drkb_search=%F2%E5%EA%F1%F2%20%EF%EE%E4%20%F3%E3%EB%EE%EC

← →
alexdn © (2012-09-07 14:44) [6]

сделал просто
procedure TForm4.CanvasSetAngle(C: TCanvas; A: Single);
var
LogRec: TLOGFONT; {Font informationen}
begin
GetObject(C.Font.Handle,SizeOf(LogRec),Addr(LogRec));
LogRec.lfEscapement := Trunc(A*10);
C.Font.Handle := CreateFontIndirect(LogRec);
end;

Image1.Canvas.Font.Name := "Times New Roman";
Image1.Canvas.Font.Size := 10;
CanvasSetAngle(Image1.Canvas,0);
Image1.Canvas.TextOut(round((dl+50)/2-5),10,str);

← →
Dimka Maslov © (2012-09-07 15:29) [7]

> alexdn © (07.09.12 14:44) [6]

Всё правильно сделал

> antonn © (07.09.12 14:06) [2]
>
> Нормальный вопрос, рисование текста под углом и в дельфи
> не двумя строками делается

> есть ли в делфи что то подобное?

TFont.Orientation

> antonn © (07.09.12 21:26) [9]
>
> > Дмитрий С © (07.09.12 15:59) [8]
>
> зачем так много информации, достаточно было ответить "TFont"
Object->TFont

Текст на картинку (канву) Найти похожие ветки