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

Вниз

Картинку из файла уменьшить и поместить в tbitmap   Найти похожие ветки 

 
Rembo   (2010-05-26 10:34) [0]

Всем привет!
Делаю так:
var  pic:TPicture;bmp1,bmp2:tbitmap;
...
pic.LoadFromFile("image.jpg");
bmp1.Assign(pic.Graphic);
bmp2.Canvas.CopyRect(rect(0,0,164,164), bmp1.Canvas,rect(0,0,bmp1.Width,bmp1.Height));

В итоге получаю уменьшенную картинку в bmp2, но при этом вижу дефект цветов, то есть она имеет вид будто открыли в пейнте 32 битный бмпшник и сохранили в 8 битный. Как это можно исправить?


 
Andy BitOff ©   (2010-05-26 10:38) [1]

А зачем pic? Почему нельзя сразу загрузить в bmp1?


 
Rembo   (2010-05-26 10:44) [2]

tbitmap грузит токо *.bmp а tpicture сам определяет какую графику использовать Tjpgimage или Tgifimage и т.д


 
Омлет ©   (2010-05-26 11:41) [3]

А зачем bmp1? Можно сразу на bmp2 уменьшать из pic.

bmp2.PixelFormat := pf24bit;


 
MBo ©   (2010-05-26 11:51) [4]

SetStretchbltMode у приемного Canvas установить в HALFTONE


 
Rembo   (2010-05-26 12:03) [5]

bmp2.PixelFormat := pf24bit; - непомгло
SetStretchbltMode - искал не нашел, за то нашел:
bmp1.Canvas.StretchDraw(rect(0,0,164,164),pic.Graphic); - все получилось пасиба



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

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

Наверх




Память: 0.47 MB
Время: 0.07 c
2-1274178138
NBAH1990
2010-05-18 14:22
2010.08.27
Как запретить нажатие Alt+Tab, Ctrl+alt+del, ctrl+esc, alt+f4 ?


10-1165502198
YCH.Del
2006-12-07 17:36
2010.08.27
Excel, реализовать в Delphi VB шный оператор Set


15-1265198569
Андрей Прокопенко
2010-02-03 15:02
2010.08.27
"Немыслимое что-то..."


15-1272975151
NailMan
2010-05-04 16:12
2010.08.27
К летнему сезону киберматрицы готов!


15-1267432925
boa_kaa
2010-03-01 11:42
2010.08.27
ПМП, а?