Скачать: CL | DM;

JPG   Найти похожие ветки 

← →
Uncle Archi ©   (2005-07-21 08:52) [0]

Есть задача:
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;


---

← →
Kerk ©   (2005-07-21 09:13) [1]

А для 1) Brush.Style := bsClear + TextOut не прокатывает?

---

← →
Uncle Archi ©   (2005-07-21 09:23) [2]

Я не пробывал, обычный TextOut в белом прямоуголнике выводит, но это не главное, мне главное:

> 2. при этом, чтобы качество и EXIF информация не
> потерялись.

---

← →
Uncle Archi ©   (2005-07-21 09:26) [3]

Kerk ©   (21.07.05 9:13) [1]
Первая задача решена, кто знает ответ на 2-ю ?

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.063 c