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

Обработка изображения   Найти похожие ветки 

← →
Lazarius   (2005-11-16 16:59) [0]

Здраствуйте всем!!!
Итак, в image1 надо загружать jpg, но не просто загрузить, а перед этим обрезать у картинки лишнее, т. е. надо чтобы картинка была по соотношению сторон 15*10
то есть если x ширина, а y высота, то ширина обрезанного изображения получается x1=y*1,5 где y высота первоначального изображения.
Так вот: как мне обрезать лишнее, что выходит за пределы нового размера????!!!!
Уже всю голову сломал! Помогите плиз!
Заранее всем спасибо.

---

← →
Jeer ©   (2005-11-16 17:06) [1]

CopyRect ?

---

← →
Lazarius   (2005-11-16 17:09) [2]

ну вот с ним всю голову и сломал

---

← →
Antonn ©   (2005-11-16 17:18) [3]

наверно потому, что в image не tbitmap?..

---

← →
Lazarius   (2005-11-16 17:43) [4]

Вот мой код:

Jpg.LoadFromFile(s);
x := jpg.Height * 1.5;
image1.picture.bitmap.Height := jpg.Height;
image1.picture.bitmap.Width := floor(x);
bitmap.Height := jpg.Height;
bitmap.Width := jpg.Width;
bitmap.Assign(jpg);
cw := (bitmap.Width mod 2) + floor(x/2);
image1.Picture.Bitmap.Canvas.CopyRect(Rect(0, 0, floor(x), jpg.Height),
     Bitmap.Canvas,
     Bounds(cw, 0, floor(x), jpg.Height));


но как то неправильно вырезается область. И не могу понять где ошибка.

---

← →
WondeRu ©   (2005-11-16 17:46) [5]

Lazarius   (16.11.05 17:43) [4]
bitmap.Assign(jpg);
тут

---

← →
Lazarius   (2005-11-16 17:52) [6]

а поточнее можно
ведь у жпг канвы нет и приходится переводить в битмап

---

← →
WondeRu ©   (2005-11-16 18:02) [7]

ошибся чуть... чуть
image1.Height := jpg.Height;
image1.Width := floor(x);
image1.Canvas.Height := jpg.Height;
image1.Canvas.Width := floor(x);
........
image1.Canvas.CopyRect(Rect(0, 0, floor(x), jpg.Height),
    Bitmap.Canvas,
    Bounds(cw, 0, floor(x), jpg.Height));

криво....

---

← →
Lazarius   (2005-11-16 18:08) [8]

image1.Canvas.Height := jpg.Height;
image1.Canvas.Width := floor(x);

вот этого делфа не воспринимает, нет у image1.canvas свойств height и width

---

← →
Lazarius   (2005-11-17 17:39) [9]

Вот так вот режет более менее


Jpg.LoadFromFile(s);
x := jpg.Height * 1.5;
nw := jpg.Height - floor(x);
image1.picture.bitmap.Height := jpg.Height;
image1.picture.bitmap.Width := floor(x);
bitmap.Height := jpg.Height;
bitmap.Width := jpg.Width;
bitmap.Assign(jpg);
cw := (bitmap.Width mod 2);
image1.Picture.Bitmap.Canvas.CopyRect(Rect(floor(nw/4), 0, floor(x), jpg.Height),
     Bitmap.Canvas,
     Bounds(0, 0, floor(x), jpg.Height));



Но отрезает только слева, а надо чтобы слева отрезал в половину меньше и справа, столько же.

---

← →
Alaman   (2005-11-19 13:27) [10]

Попробуй перед строчкой:
bitmap.Assign(jpg);

поставить
jpg.DEEBNeeded

---

← →
Separator ©   (2005-11-19 13:41) [11]

посмотри:
http://Sergey-Vilgelm.narod.ru/source/access.rar   [560Кб]

там есть методы работы с картинками, правда в основном изменение размера (увелисение, уменьшение) различными методами, но может и поможет

GraphicConvert.dpr - dll на KOL сделана, там же вложил библиотеки KOL которые использовал

---

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

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



Память: 0.47 MB
Время: 0.031 c