Как избежать сужения (уменьшение размера) пикселей изображения, при включенном свойстве Stretch?

[Лукманов Александр]

Как я понял, что при использование stretch:=true, пиксели уменьшаются, и не соответствуют значению Height и Width.

Например при копирование изображения с одного Image, в другой - конечное изображение получается намного меньше "оригинала".

Как быть? Помогите плиз.

[Alex2009]

Здесь экстросенсов нет.Код нужен.

[Лукманов Александр]

image1.Stretch:=true;
image1.PictureLoadFromFile('1.bmp');
//image2 пустой.
for i:=0 to width do
for j:=0 to height do 
image2.Canvas.Pixels[i,j]:=image1.Canvas.Pixels[i,j];
end;

[Terran]

Procedure TForm1.Button1Click(Sender: TObject);
Begin
Image1.Stretch:=True;
Image1.Picture.LoadFromFile('1.bmp');
Image2.Picture:=Image1.Picture;
End;

[Лукманов Александр]

спасибо. копирование картинок помогло. но всё же это не главный вопрос.

Как избежать сужения (уменьшение размера) пикселей изображения, при включенном свойстве Stretch?

к примеру.. тут искажение пикселей заметно.

[-HunteR-]

Лукманов Александр
Если я тебя правильно понял, то никак. Потому что мень пикселя на экране ничего нет, а значит при сжатии несколько пикселей разного цвета объеденятся в один со средним цветом.

[Лукманов Александр]

Если я тебя правильно понял, то никак. Потому что мень пикселя на экране ничего нет, а значит при сжатии несколько пикселей разного цвета объеденятся в один со средним цветом.

Жаль. У меня были мысли чтобы перед считыванием пикселей увеличить картинку до реальных размеров, а потом вернуть в исходное положение. Или как нибудь реальную ширину-длину разделить на отображаемую, а потом при в суженом изображение перебирать например по 1/3 пикселя.

[HellMercenariess]

Пол года теме ... ну что никто не знает как избежать жуткого искажения ?

[Garacio_cain]

Вариант первый. Загрузить изображение в переменную

var
  jpeg: TJpegImage;
--------
jpeg.LoadFromFile('1.bmp');
image1.Stretch:=true;
image1.Proportional:=true;
image1.Picture.Graphic := jpeg;
image2.Stretch:=false;
image2.Proportional:=false;
image2.Picture.Graphic := jpeg;

Вариант второй. Перегружать изображение из первого Image во второй Image

image1.Picture.LoadFromFile('1.bmp');
image2.Picture.Graphic := image1.Picture.Graphic;

В обоих вариантах искажения пикселей не наблюдается.