| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
JPG
Uncle Archi © (2005-07-21 08:52:00)Есть задача:
1. дорисовать к JPG-у строчку(число к фотографии)
2. при этом, чтобы качество и EXIF информация не потерялись.
Первое я сделал, но очень извращенно. Может кто знает, как сделать по-нормальному(1е и 2е) ?
PS Моё решение:
BMP:=TBitmap.Create;
JPG:=TJPEGImage.Create;
JPG1:=TJPEGImage.Create;
JPG.LoadFromFile(FileListBox1.Items.Strings[k]);
BMP.Assign(JPG);
x:=BMP.Width-Label1.Width-100;
y:=BMP.Height-Label1.Height-100;
For i:=0 to Label1.Width do
For j:=0 to Label1.Height do
If Label1.Canvas.Pixels[i,j]=Label1.Font.Color then
BMP.Canvas.Pixels[x+i,y+j]:=Label1.Font.Color;
Uncle Archi (2005-07-21 09:26:00) [1]Kerk © (21.07.05 9:13) [1]
Первая задача решена, кто знает ответ на 2-ю ?
Uncle Archi (2005-07-21 09:23:00) [2]Я не пробывал, обычный TextOut в белом прямоуголнике выводит, но это не главное, мне главное:
> 2. при этом, чтобы качество и EXIF информация не
> потерялись.
Kerk (2005-07-21 09:13:00) [3]А для 1)
Brush.Style := bsClear+TextOutне прокатывает?
| |
