Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2002.01.31;
Скачать: CL | DM;

Вниз

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

 
Belov ©   (2002-01-14 14:52) [0]

Привет всем ! не подскажите как программно можно изменить размер картинки
Только, плиз, если не сложно, приведите пример


 
belobadgo ©   (2002-01-14 15:16) [1]

TJPEGImage.Scale - может принимать значения:
jsFullSize - размер картинки 1:1
jsHalf - 1:2
jsQuarter - 1:4
jsEighth - 1:8

Следовательно: берем картинку, меняем ее размер, кол-во цветов и сохраняем в новом виде. В принципе и растянуть можно...



 
Belov ©   (2002-01-14 15:59) [2]

ОК. А как задать картинке какой-то определенный размер например с 320х200 привести к размеру скажем 120х50


 
belobadgo ©   (2002-01-14 16:32) [3]

Я делал так (примитивно конечно, но до большего не додумался...): у исходной картинки берешь длину и ширину, считаешь коэффициентик - длина/ширина. Далее в TImage задашь один нужный тебе параметр, а второй высчтитываешь по коэффициенту. Грузишь туда свою picture. Значение Image.strach=true и получаешь уменьшенный вариант своей картинки. Переводишь в JPEG, и работаешь дальше...
ВАЖНО: нарушение пропорции длина/ширина приведет не только к уменьшению размера картинки, но и к ее искажению...


 
Yuraz ©   (2002-01-14 18:26) [4]

Перегоняешь в BMP, с ним делаешь что хочешь, далее опять преобразуешь в JPEG. (Почаще делай поиск в FAQ, там это есть, сам искал 3 нед назад)


 
DK ©   (2002-01-15 01:57) [5]

Можешь через BitBlt рисовать. Только у него некоторые глюки при уменьшении (или это только у на моём компе ?)



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

Текущий архив: 2002.01.31;
Скачать: CL | DM;

Наверх




Память: 0.48 MB
Время: 0.01 c
4-100113
vic_774N
2001-12-03 14:47
2002.01.31
Delphi IDE - а попробуйте-ка послать текст в редактор !!!


3-99879
Filat
2001-12-27 10:52
2002.01.31
Как можно сделать следующее: база данных Access -> IIS -> WEB страница


1-99941
Yakudza
2002-01-12 16:22
2002.01.31
Как добавить символ табуляции в строку ?


3-99835
Андрей К.
2001-12-25 09:38
2002.01.31
FreeReport для Delphi 6


3-99873
EternalWonderer
2001-12-26 15:21
2002.01.31
Вставка данных в поле LONG в ORACLE