Форум: "Основная";
Текущий архив: 2002.10.03;
Скачать: [xml.tar.bz2];
ВнизКак преобразовать простой шрифт в BitMap со спец. эффектами? Найти похожие ветки
← →
Yr2 (2002-09-13 19:02) [0]Кто-нибудь знает компонент для преобразования строки текста с заданным шрифтом в изображение BitMap со спец. эффектами, типа тень, объемность, текстура, прозрачность и т.д. чтобы не рисовать все эти надписи в графическом редакторе?
← →
Алексей Ким (2002-09-13 19:27) [1]хм... а ты подумал о том что ты спросил?
как насчет нажать ф1 на TBitmap и посмотреть методы и пропертисы?
← →
Yr2 (2002-09-13 21:01) [2]TO Алексей Ким ©
Зачем подкалывать? Возможно, я не очень понятно сформулировал вопрос. Попробую на примере. Я имею строку текста (string)
"С Новым годом!". Необходимо получить файл NewYear.bmp, который будет содержать ИЗОБРАЖЕНИЕ этой надписи в "очень красивом виде" (с "навороченными" спецэффектами). Так как таких надписей достаточно много и формироваться они должны в runtime, Delphi program, а не с помощью, например, ФотоШопа, то я и спросил о таком компоненте (или библиотеке функций).
Может, все-таки кто-нибудь подскажет? Заранее благодарен.
← →
Алексей Ким (2002-09-14 10:10) [3]var i: TBitmap;
i := TBitmap.Create;
i.width := 100;
i.height := 50;
i.canvas.textout(0,0,"newyear");
i.savetofile("newyear.bmp");
i.free
тень - накладываешь 2 текста друг на друга и чуть сместив нижний,
фонт - практически тоже самое что битмап
var f: TFont;
f := TFont.Create;
f.Size := 16;
f.Style := [ fsBold ];
i.canvas.font := f;
f.free;
ну и читаешь пропертисы
← →
Yr2 (2002-09-14 17:11) [4]Алексей,
спасибо, конечно,... но это мне известно. Боюсь, что уже начинаю вас раздражать, но я ведь неоднократно подчеркивал, что это должно быть "очень красиво и со спец. эффектами". А что нам дает, например, такая процедура:
----------------------------
procedure TForm1.Test;
var i: TBitmap;
begin
i:=TBitmap.Create;
i.width :=200;
i.height :=50;
i.Transparent := True;
i.TransparentMode := tmAuto;
i.canvas.Font.Name :="Monotype Corsiva" {"MS Sans Serif" "Palatino Linotype" "Times New Roman"};
i.canvas.Font.Size :=20;
i.canvas.Font.Style :=[fsBold];
i.canvas.Font.Color :=clSilver;
i.canvas.textout(0,0,"New Year!");
Form1.Canvas.Draw(53,53, i);
i.canvas.Font.Color :=clRed;
i.canvas.textout(0,0,"New Year!");
Form1.Canvas.Draw(50,50, i);
i.Free;
end;
----------------------------
Все возможности ограничены пропертями TBitMap и TFont!!!
Как нарисовать надпись, у которой, например, "выпуклая" поверхность, то есть типа "пластмассовых" букв?
А больше всего раздражает "зубчатось" рисования линий. В мощных графических редакторах есть функции сглаживания (размытия) этих вот линий.
Или как, например, задать градиент цвета самого текста слева направо? Такого рода эффекты позволяют делать программы с мощными математическими пересчетами изображений. Вот это я и ищу.
Думаю, что могут помочь ребята, которые когда-либо сами разрабатывали графические редакторы.
← →
Yr2 (2002-09-16 19:32) [5]Ребята, может все-таки кто-нибудь знает библиотеку функций работы со шрифтами, которая позволяет создавать разные рекламные спецэффекты?
← →
Yr2 (2002-09-20 22:07) [6]уже сам нашел... может еще кому-нибудь понадобится.
SmoothText3D 1.03 делает многие такие вещи:
http://home.t-online.de/home/herbert.haas/
и статья есть еще полезная:
http://delphi.mastak.ru/articles/dib/index.html
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2002.10.03;
Скачать: [xml.tar.bz2];
Память: 0.46 MB
Время: 0.006 c