Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2013.03.22;
Скачать: CL | DM;

Вниз

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

 
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]

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


 
Дмитрий С ©   (2012-09-07 15:59) [8]


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


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

TFont.Orientation


 
antonn ©   (2012-09-07 21:26) [9]


> Дмитрий С ©   (07.09.12 15:59) [8]

зачем так много информации, достаточно было ответить "TFont"


 
alexdn ©   (2012-09-08 06:25) [10]

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



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

Текущий архив: 2013.03.22;
Скачать: CL | DM;

Наверх




Память: 0.48 MB
Время: 0.058 c
15-1352647406
Аббат Пиккола
2012-11-11 19:23
2013.03.22
Вот кто решает, что вкус ароматизатора идентичен натуральному


2-1336248923
rodionov-uv
2012-05-06 00:15
2013.03.22
Документ Word и Delphi


2-1333617342
gadget
2012-04-05 13:15
2013.03.22
Сервер WordApplication


2-1336838970
АлексеЕей
2012-05-12 20:09
2013.03.22
Задача по информатике


2-1345929626
Wadimka
2012-08-26 01:20
2013.03.22
Подскажите компонент для delphi для работы с SSH