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 информация не
> потерялись.

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