Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Media";
Текущий архив: 2005.09.11;
Скачать: [xml.tar.bz2];

Вниз

Помогите плизз с картинками !   Найти похожие ветки 

 
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 вся ветка

Форум: "Media";
Текущий архив: 2005.09.11;
Скачать: [xml.tar.bz2];

Наверх




Память: 0.45 MB
Время: 0.012 c
6-1116554906
Baz
2005-05-20 06:08
2005.09.11
Клиент для SOAP


1-1124352482
cvg
2005-08-18 12:08
2005.09.11
Ошибка при вызове DivMod


1-1124634052
OldNaum
2005-08-21 18:20
2005.09.11
Менеджмент сервиса


4-1122030040
Layner
2005-07-22 15:00
2005.09.11
Как закрыть приложение из батника


2-1123500160
Storm
2005-08-08 15:22
2005.09.11
SQL Server





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский