![]() |
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Текст на картинку (канву)
alexdn © (2012-09-07 13:50:00)Вот есть в php совершенно замечательная функция -
imagettftext($image,10,90,$dl+70,($h+50)/2+25,0x000000,"stat/univers.ttf", $text);
есть ли в делфи что то подобное?
alexdn (2012-09-08 06:25:00) [1]> antonn © (07.09.12 21:26) [9]
>
> > Дмитрий С © (07.09.12 15:59) [8]
>
> зачем так много информации, достаточно было ответить "TFont"
Object->TFont
antonn (2012-09-07 21:26:00) [2]
> Дмитрий С © (07.09.12 15:59) [8]
зачем так много информации, достаточно было ответить "TFont"
Дмитрий С (2012-09-07 15:59:00) [3]
> antonn © (07.09.12 14:06) [2]
>
> Нормальный вопрос, рисование текста под углом и в дельфи
> не двумя строками делается
> есть ли в делфи что то подобное?
TFont.Orientation
Dimka Maslov (2012-09-07 15:29:00) [4]
> alexdn © (07.09.12 14:44) [6]
Всё правильно сделал
alexdn (2012-09-07 14:44:00) [5]сделал просто
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);
antonn (2012-09-07 14:26:00) [6]ну почти, глянь тут 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:19:00) [7]Это Textout рыть?..
alexdn (2012-09-07 14:10:00) [8]> antonn © (07.09.12 14:06) [2]
да, вот особенно на 90 градусов нужно..
antonn (2012-09-07 14:06:00) [9]Нормальный вопрос, рисование текста под углом и в дельфи не двумя строками делается
Дмитрий С (2012-09-07 14:01:00) [10]Есть. Глупый вопрос.