Текущий архив: 2005.09.11;
Скачать: CL | DM;
Вниз
Помогите плизз с картинками ! Найти похожие ветки
← →
Alpine (2005-04-29 01:09) [0]У меня есть много картинок и мне надо к ним всем добавить надпись (чтобы надпись не касалась самого рисунка, типа корешок). Как лучше это реализовать ? Сделать картинку с надписью и сводить их или что то вроде TEXTOUT-а делать ? Подскажите плизз .. И если можно примером ...
← →
XProger © (2005-04-29 17:52) [1]Нарисуй в фотошопе картинку с тем что тебе надо нарисовать поверх остальных картинок. Затем в проге грузишь эту картинку.
var
bmp : TBitmap;
img : TBitmap;
i : integer;
begin
bmp := TBitmap.Create;
bmp.LoadFromFile("logo.bmp");
// прозрачный цвет - ярко зелёный (0, 255, 0)
bmp.TransparentColor := clLime;
bmp.Transparent := true;
Затем циклом пройдись по всем картинкам для которые нуна таким образом "искаверкать".
img := TBitmap.Create;
for i := 0 to ListBox1.Count - 1 do
begin
// Грузим картинку имя которой в листбоксе
img.LoadFromFile(ListBox1.Items[i]);
// рисуем лого на рисунок
img.Canvas.Draw(0, 0, bmp);
// сохраняем наше художество
img.SaveToFile(ListBox1.Items[i]);
end;
img.Free;
bmp.Free;
Ну собсна писал прямо тут, так что гарантии на работоспособность не даю. Но сам принцип должен быть понятен :)
← →
Alpine (2005-04-30 01:38) [2]Спасибо большое ! Вот тока одна загвоздка ... У меня картинки в JPG формате ... Как быть ??
← →
XProger © (2005-04-30 01:56) [3]
uses
JPEG;
...
var
jpg : TJPEGImage;
begin
jpg := TJPEGImage.Create;
...
jpg.LoadFromFile(ListBox1.Items[i]);
img.Assign(jpg);
img.Canvas.Draw(0, 0, bmp);
jpg.Assign(img);
jpg.SaveToFile(ListBox1.Items[i]);
...
jpg.Free;
end;
← →
Alpine (2005-04-30 02:41) [4]Огромное программистическое спасибо !
Страницы: 1 вся ветка
Текущий архив: 2005.09.11;
Скачать: CL | DM;
Память: 0.45 MB
Время: 0.01 c
