Главная страница
    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.01 c
14-1124281539
oldman
2005-08-17 16:25
2005.09.11
Вчера умер Гомельский.


5-1098135317
Михель
2004-10-19 01:35
2005.09.11
Подскажите, как правильно переопределить свойство компонента!


1-1124346306
Mishenka
2005-08-18 10:25
2005.09.11
Как отловить событие открытия PopupMenu у компонента?


8-1115127908
Артём
2005-05-03 17:45
2005.09.11
Мультимедиа


1-1124343139
kblc
2005-08-18 09:32
2005.09.11
Ссылка на * of object в виде строки





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
Английский Французский Немецкий Итальянский Португальский Русский Испанский