10.01.2010, 13:57
|
|
Постоянный
Регистрация: 26.01.2008
Сообщений: 796
С нами:
9626394
Репутация:
357
|
|
Сообщение от patcher
вот начиркал процедурку для наложения копирайтов на картинку (минус - работает только с bmp-файлами):
Код:
procedure CopyrightsToImage(Copyrights, Image, NewImage:string; x,y:integer; Transparent:boolean);
var Image1, Image2:TImage;
begin
Image1:=TImage.Create(Application.Owner);
Image2:=TImage.Create(Application.Owner);
Image1.Picture.LoadFromFile(copyrights);
Image1.Transparent:=Transparent;
Image2.Picture.LoadFromFile(Image);
Image2.Canvas.Draw(x, y, Image1.Picture.Graphic);
Image2.Picture.SaveToFile(NewImage);
Image1.Free;
Image2.Free;
end;
Пример использования:
Код:
CopyrightsToImage('c:\copyrights.bmp', 'c:\Картинка.bmp', 'c:\Новая Картинка.bmp', 50, 50, true);
Что значит каждый параметр:
Copyrights - путь к картинке-копирайтам.
Image - путь к рисунку, на который будут накладыватся копирайты.
NewImage - путь к рисунку, куда сохраняется новый рисунок (с копирайтами).
x, y - координаты копирайта.
Transparent - прозрачность\непрозрачнос ь копирайта. а для jpg ничего нету, а то просто вход jpg и выход jpg надо
А текст нельзя положить на картинку?
Последний раз редактировалось НTL; 10.01.2010 в 14:02..
|
|
|