Качество изображения!

[Obender13]

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

PS: Изображение после склеивание какоето размытое вот, такое замечал когда через паинт картинки открывал,редактировал, а потом сохранял.

[SERG1980]

можете выложить ваши картинки?

[Obender13]

да конечно, вот картинка, которая получается после склеивания из 3 в одну http://www.programmersforum.ru/attac...1&d=1250146441

Три картинки в начале имеют отличное качество, но после склеивания качество сами видите какое.
Если кто-то может предложить другой способ, как сохранить три изображения в одно буду очень рад у меня это происходит так:

procedure TForm1.Button4Click(Sender: TObject);
var S,D:TRect;
begin
Image4.Width:=Image1.Width;
Image4.Height:=Image1.Height+Image2.Height+Image3.Height;
D.Left:=0;
D.Top:=0;
S:=D;
S.BottomRight.X:=Image1.Picture.Width;
S.BottomRight.Y:=Image1.Picture.Height;
D.BottomRight.X:=Image1.Width;
D.BottomRight.Y:=Image1.Height;
Image4.Canvas.CopyRect(D,Image1.Canvas,S);
S.BottomRight.X:=Image2.Picture.Width;
S.BottomRight.Y:=Image2.Picture.Height;
D.Top:=Image1.Height;
D.BottomRight.Y:=D.BottomRight.Y+Image1.Height;
Image4.Canvas.CopyRect(D,Image2.Canvas,S);
S.BottomRight.X:=Image3.Picture.Width;
S.BottomRight.Y:=Image3.Picture.Height;
D.Top:=Image1.Height+Image2.Height;
D.BottomRight.Y:=D.BottomRight.Y+Image2.Height;
Image4.Canvas.CopyRect(D,Image3.Canvas,S);



end;

[Пепел Феникса]

в аське уже поговорил с ним(я тот самый человек)

вот испраавил свой код:

procedure TForm1.FormCreate(Sender: TObject);
var D:TRect;
begin
 Image4.Width:=Image1.Width;
 Image4.Height:=Image1.Height+Image2.Height+Image3.Height;
 D.Left:=0;
 D.Top:=0;
 D.BottomRight.X:=Image1.Width;
 D.BottomRight.Y:=Image1.Height;
 Image4.Canvas.StretchDraw(D,Image1.Picture.Bitmap);
 D.Top:=Image1.Height;
 D.BottomRight.Y:=D.BottomRight.Y+Image2.Height;
 Image4.Canvas.StretchDraw(D,Image2.Picture.Bitmap);
 D.Top:=Image1.Height+Image2.Height;
 D.BottomRight.Y:=D.BottomRight.Y+Image3.Height;
 Image4.Canvas.StretchDraw(D,Image3.Picture.Bitmap);
end;

пусть будет на форуме

[SERG1980]

Если можно выложите несклеенные исходные картинки.

[Пепел Феникса]

SERG1980, тему уже можно закрывать

[mutabor]

Функция StretchBlt (+ опция Halftone) из винАпи качественнее масштабирует чем StretchDraw. Если нужно кач-во повыше, используйте лучше ее.

[Alter]

Обнаруженно:

  SetStretchBltMode(Canvas.Handle, HALFTONE);
  StretchBlt(Canvas.Handle, 0, 0, 1024, 1024, Bmp.Canvas.Handle, 0, 0, Bmp.Width, Bmp.Height, SRCCOPY);

Переделаете под себя.

StretchBlt
SetStretchBltMode