Есть картинка 1280х960 в image1 (да любая по сути, но большая), есть код:

Код

procedure TForm1.Button1Click(Sender: TObject); var b,b1:Tbitmap; begin     b:=tbitmap.create;     b.PixelFormat:=pf24bit;     b.Assign(image1.Picture.Graphic);     b1:=tbitmap.create;     b1.PixelFormat:=pf24bit;     b1.Width:=100;     b1.height:=100;      b1.Canvas.CopyMode:=cmSrcCopy;      b1.Canvas.CopyRect(Rect(0,0,100,100),b.Canvas,rect(0,0,1280,960));    canvas.Draw(0,0,b1);    b1.Free;    b.free; end;

По нажатию кнопки получаем на форма рисунок, НО он очёнь сильно искажён, особенно цвета. Как сделать так, чтобы не было искажений? Если копиовать с масштабом >1, то всё просто замечательно, но при уменьшении получается бяка... Или дайте кто аналог Canvas.StretchDraw, копирующий не всё изображения, а его TRect(x,y,x1,y1)...

Illusion Dolphin

Ну тут всё правильно, тоесть 100x100 должна быть бяка,
а 128х96 будет самое оно. Я хочу сказать что Высоту и ширину нужно делить на одно и тоже число если хочешь получить оптимум.

Э, нееее... 100 на 100 я выбрал так, наобум для иллюстрации факта. Не дело в том, что пропорции нарушаются, цвет сам нарушается. У меня в проекте выводится всё пропорционально, но при зуме меньше 1 получается не то... По сути stretchdraw должен аналогично работать, но он работает корректро в такой ситуайии 9вся проблема в нём то, чтог нельзя выбрать какой именно рекс он будет выводить). Мне теперь уже интересно это только из любопытства (я уже сам написал функцию для коэффициента передачи меньше единицы).\ почему же эта функция некорректно цвета выводит...

Поставь перед CopyRect такую строчку:

Код

SetStretchBltMode(b1.Canvas.Handle, STRETCH_DELETESCANS);

Добавлено @ 11:29
Или STRETCH_HALFTONE для сглаживания...

видимо уменьшение идет Nearest. При небольших уменьшениях и при уменьшении картинки с малым числом мелких деталей все должно быть нормально. Проблемы, видимо, начинаются на мелких деталях (типа мелкой клетки)? Есть разные способы избежать проблем с цветопередачей.

Самый странный способ (на первый взгляд) перед масштабированием размыть картинку (Blur). Чем сильнее уменьшение, тем сильнее Blur.

Попробуй.

А вообще - есть пакет G32 (бесплатный). Там масштабирование хорошо выполнено.

Нет, дело не в Nearest. Если бы было так, то Illusion Dolphin и жаловаться не стал бы. Строка STRETCH_DELETESCANS как-раз таки и делает масштабирование, по качеству схожее с выбором ближайшей точки (Nearest). Без этой строки цвета складываются то ли с помощью OR, то ли с помощью AND (проверить надо) - что, конечно же, в результате даёт искажения...

Цитата

Код SetStretchBltMode(b1.Canvas.Handle, STRETCH_DELETESCANS);

Точно... С этим тот код работает 8). Думал уже повсюду поставить, но нашёлся ещё один глюк 8). Теперь опять же из любопытства (всё равно я все эти функции пеерписал на свой лад) - если я использую флаг STRETCH_HALFTONE, то сглаживание (коряво, но факт) происходит, однако при зуме около 15-16 происходит переключение на вывод как при STRETCH_DELETESCANS - т.е. сглаживание отключается... Почему это может быть? Или стндартное сглаживание при больших коэффициентах просто не работает по задумке microsoft?
imageman: не, всё немного не так... Делать ещё и размытие - это уже черезчур... Я же говорю, что я знаю, как сделать всё красиво, но так получается, естественно, медленнеею Так у меня в проге есть галочка типа "использовать качественную прорисовку"
, и теперь я делаю "некачественную" (когда галочка отключена), пытаясь использовать стандартные подходы.

У меня сглаживание отключается при увеличении более чем в 4 раза...
Почему - не понял, и в MSDN не сказано нислова про какие-нибудь ограничения StretchBlt...

Для проверки кода уменьшение (увеличение - разговор отдельный) сделайте в любом редакторе шахматную доску (в мелкую клетку) и сделайте перспективное искажение.

Сделайте уменьшение средствами фотошапа (например) и вашими средствами.

У меня ни STRETCH_DELETESCANS, ни STRETCH_HALFTONE не давал даже приемлимого результата (почти наверняка nearest технология применяется). Зато, как подозреваю, быстро :-)

Цитата

Для проверки кода уменьшение

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

Цитата

У меня ни STRETCH_DELETESCANS, ни STRETCH_HALFTONE не давал даже приемлимого результата

Конечно, но это, собственно и пишется...

Кстати, через API нормально масштабируетс при любом увеличении...
Потом выложу пример...

p0s0l, так и не выложил

А вот такой вопрос (думаю будет уместен здесь).. как бы сделать так что б при открытии изображения рисунок сразу становился по размеру Timage. а потом по необходимости (например по нажатию клавиши) становился принемал истенный размер.

Дело даже не в примере а в алгоритме..

При открытии AutoSize := false; Stretch := true;
А далее наоборот - Stretch := false; AutoSize := true;

Большое Спасибо...
очь выручили.