간단한 이미지뷰어(bmp, jpeg)를 만들고 있습니다.

TImage를 사용해 이미지를 로드 한 후 확대/축소 버튼을 이용해 이미지사이즈를 재 조정 하려고 합니다.

확대/축소 버튼에 대한 코드는 다음과 같습니다.
Graphics::TBitmap *pBmp = Image1->Picture->Bitmap;

TRect Dest_Rect, Src_Rect;
Src_Rect = Rect(1, 1, pBmp->Width, pBmp->Height);
Dest_Rect = Rect(1, 1, pBmp->Width - 20, pBmp->Height - 20);


pBmp->Canvas->CopyRect(Dest_Rect, pBmp->Canvas, Src_Rect);
Image1->Picture->Bitmap->Canvas->CopyMode = cmSrcCopy;
Image1->Picture->Bitmap->Assign(pBmp);

Image1->Repaint();

그런데 문제는 위와 같이 한경우 사이즈가 줄면서 이미지가 많이 망가지네요.. ^^;

또한 기존에 이미지 잔상이 남네요...
다들 즐거운 저녁 보내시구요. ^^