장성호 님이 쓰신 글 :
: TImage에서 Stretch =true로 하면
:     실세 Image가 가지고 있는 bitmap데이타가   TImage의 크기에 맞게 커지는것이 아닙니다.
:
:     그냥 Bitmap데이타는 그 크기 그대로 있구..
:
:     단지 화면에 보여줄때   확대 또는 축소해서 보여줍니다.
:
:
: 님께서 TImage위에서 마우스로 Drag해서 사각형을 그릴때
: Stretch = false인경우에는 문제가 없지만
:
: Stretch = true인경우에는
: 원본이미지 Bitmap의 크기에 많게 scale변환을 해줘야 합니다.
:
: Image->Width 대 Image->Picture->Bitmap->Width
:
: 다음은 간단히 Form위에 TImage하나 올리고
: TImage에다가 Bitmap파일 Designtime에 load한후에
: MouseDown/Move/Up이벤트에   사각형을 그려봤습니다.
: 문론 Image의 Stretch는 true로 하구요
:
: 다음과 같이 Scale에 맞춰 좌표를 수정해서 그려주면
: 제대로 사각형이 그려집니다.
:

: TPoint ptSt;
: TPoint ptCur;
: 
: TPoint __fastcall TForm1::GetImageScalePoint(TPoint pt)
: {
:     int iOrgBmpW,iOrgBmpH;
:     int iCurImgW,iCurImgH;
: 
:     iOrgBmpW=Image1->Picture->Bitmap->Width;
:     iOrgBmpH=Image1->Picture->Bitmap->Height;
: 
:     iCurImgW=Image1->Width;
:     iCurImgH=Image1->Height;
: 
:     int x,y;
:     x= (iOrgBmpW*pt.x)/iCurImgW;
:     y= (iOrgBmpH*pt.y)/iCurImgH;
: 
:     return Point(x,y);
: 
: }
: 
: void __fastcall TForm1::Image1MouseDown(TObject *Sender,
:       TMouseButton Button, TShiftState Shift, int X, int Y)
: {
:     //
:     Image1->Canvas->Brush->Style=bsClear;
:     Image1->Canvas->Pen->Mode=pmNotXor;
:     ptSt=GetImageScalePoint(Point(X,Y));
:     ptCur=ptSt;
: }
: //---------------------------------------------------------------------------
: 
: void __fastcall TForm1::Image1MouseMove(TObject *Sender, TShiftState Shift,
:       int X, int Y)
: {
:     if(Shift.Contains(ssLeft))
:     {
:         Image1->Canvas->Rectangle(ptSt.x,ptSt.y,ptCur.x,ptCur.y);
:         ptCur=GetImageScalePoint(Point(X,Y));
:         Image1->Canvas->Rectangle(ptSt.x,ptSt.y,ptCur.x,ptCur.y);
:     }
: }
: //---------------------------------------------------------------------------
: 
: void __fastcall TForm1::Image1MouseUp(TObject *Sender, TMouseButton Button,
:       TShiftState Shift, int X, int Y)
: {
:     if(Button==mbLeft)
:     {
:         Image1->Canvas->Rectangle(ptSt.x,ptSt.y,ptCur.x,ptCur.y);
:         ptCur=GetImageScalePoint(Point(X,Y));
:         Image1->Canvas->Pen->Mode=pmCopy;
:         Image1->Canvas->Rectangle(ptSt.x,ptSt.y,ptCur.x,ptCur.y);
:     }
: }
: //---------------------------------------------------------------------------
: 
: 

:
: 그럼..
:   
: 초보자 님이 쓰신 글 :
: : 패널 위에 TImage 로  bitmap 파일을 로딩해서
: :
: : 올려놓고
: : 1) Stretch = true;
: :
: : 2) 확대된 이미지에  마우스로 드래그 하여 사각형을 그리면
: :     마우스와 사각형 위치가 다릅니다.
: :
: : 아래 이미지스케일이라고 해서 사용해 보았지만  AScale 100 이상의 값을 넣으면  같은 현상 나타납니다.
: :
: : void __fastcall TForm::SetImageScale(int AScale)
: : {
: :     Image1->Width
: :             =(Image1->Picture->Width  * AScale)/100;
: :     Image1->Height
: :             =(Image1->Picture->Height * AScale)/100;
: :
: :
: : }
: :
: :
: : 스케일 방법을 몰라서 문의 합니다.