| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Цвета при масштабировании Bitmap в TImage [D2005]
Alex_Y © (2008-10-21 08:14:00)Привет Всем.
Пишу что-то типа просмотра изображений и столкнулся с такой проблемой. Загружаю оригинальную картинку в bmpSrc : TBitmap. Вычисляю область отображения от масштабного коэффициента Kscale. Копирую в imgEdit : Timage область просмотра с помощью CopyRect. Возникает проблема, когда область копирования из источника меньше области imgEdit, происходит нормальное масштабирование с сохранением оригинальных цветов палитры. Если же наоборот, то происходит уменьшение изображения, но идет искажение цветов.
вот собственно код:
RectEdit := imgEdit.ClientRect;
CenterImgX := bmpSrc.Width shr 1; CenterImgY := bmpSrc.Height shr 1;
CenterX := imgEdit.Width shr 1; CenterY := imgEdit.Height shr 1;
RectSrc.Left := CenterImgX - Round(CenterX * Kscale);
RectSrc.Right := CenterImgX + Round(CenterX * Kscale);
RectSrc.Top := CenterImgY - Round(CenterY * Kscale);
RectSrc.Bottom := CenterImgY + Round(CenterY * Kscale);
imgEdit.Picture.Bitmap.Canvas.CopyRect(RectEdit, bmpSrc.Canvas, RectSrc);
Вопрос собственно где я накосячил, или может есть другой способ реализации данной задачи.
Заранее спасибо.
Alex_Y (2008-10-21 11:01:00) [1]2 MBo, огромное спасибо, то что надо :)
MBo (2008-10-21 10:08:00) [2]SetStretchBltMode
Alex_Y (2008-10-21 09:26:00) [3]не поможет, я делаю инструмент типа лупы в графических редакторах, поэтому может быть отображено как часть изображения на сесь image, так и все полностью в какой то части image, а все остальное залито белым
brother (2008-10-21 09:21:00) [4]кто мешает воспользоваться image1.stretch:=true ?
| |
