1. 개발/실행 플랫폼

(1) OS : win7

(2) 개발툴 : delphi7

(3) 사용 Database :

2. 개발 중인 프로그램 : 이미지뷰어

3. 질문 내용

여기저기 검색해서 아래처럼 이리저리 하나씩 주석 해가면서 작업을 진행해보었습니다.

제가 하고자 하는 글이 있었는데 해결 하셨다는데 그 이후 글이 없어서

조언을 얻고자 글을 남김니다.

이미지를 보여주는것을 하다보니 TImgView32 컴포넌트가 존재 하여 사용해보게 되었습니다.

 

질문. 화면보다 큰 이미지 인경우 마우스를 클릭해서 이미지를 이동하고자 합니다.

   예를들어 화면상 오른쪽 끝에 마우스 클릭하여 왼쪽으로 드레그 하면 이미지가 따라오는것이지요

   이리저리 해보는데 움직이는거 같다 싶었더니 깜박임이 계속 발생이 되고

   되었다 싶었더니 위치가 맞지를 않아서 이렇게 글을 남겨 봅니다.

 

procedure TForm1.ImgVwMouseMove(Sender: TObject;
  Shift: TShiftState; X, Y: Integer; Layer: TCustomLayer);

Begin

      ReleaseCapture;
      ImgVwD.Perform(WM_SYSCOMMAND, $F012, SC_MOVE);

      ImgVwD.ScrollToCenter(X, Y);
      ImgVwD.ScrollToCenter(Trunc((X - ImgVwD.OffsetHorz) / ImgVwD.Scale), Trunc((Y - ImgVwD.OffsetVert) / ImgVwD.Scale));

      ImgVwD.ScrollToCenter(Trunc(ImgVwD.OffsetHorz - X), Trunc(ImgVwD.OffsetVert - Y));
      ImgVwD.ScrollToCenter(Trunc(X - ImgVwD.OffsetHorz), Trunc(Y - ImgVwD.OffsetVert));
      ImgVwD.ScrollToCenter(Trunc((ImgVwD.Bitmap.Width -(X - ImgVwD.OffsetHorz))), Trunc(ImgVwD.Bitmap.Height - (Y - ImgVwD.OffsetVert)));
      ImgVwD.ScrollToCenter(Trunc((X - ImgVwD.OffsetHorz) ), Trunc((Y - ImgVwD.OffsetVert) ));
      ImgVwD.ScrollToCenter( Trunc((ImgVwD.Bitmap.Width - X) + ImgVwD.OffsetHorz), Trunc((ImgVwD.Bitmap.Height - Y) + ImgVwD.OffsetVert));
      ImgVwD.ScrollToCenter( Trunc((ImgVwD.Bitmap.Canvas.ClipRect.Left + X)), Trunc((ImgVwD.Bitmap.Canvas.ClipRect.Top + Y)));

{//GetScrollPos

      if MiScrPX > X then
        begin
          iNewX := iNewX - (MiScrPX - X);
        end
      else if MiScrPX <= X then
        begin
          iNewX := iNewX + (X - MiScrPX);
        end;

      if MiScrPY > Y then
        begin
          iNewY := iNewY - (MiScrPY - Y);
        end
      else if MiScrPY <= Y then
        begin
          iNewY := iNewY + (Y - MiScrPY);
        end;

      if iNewX < 0 then iNewX := 0;
      if iNewY < 0 then iNewY := 0;

      if (iNewX > (ImgVwD.Bitmap.Width - ImgVwD.Width)) then iNewX := ImgVwD.Bitmap.Width - ImgVwD.Width;
      if (iNewY > (ImgVwD.Bitmap.Height - ImgVwD.Height)) then iNewY := ImgVwD.Bitmap.Height; // - ImgVwD.Height;

      ImgVwD.ScrollToCenter(iNewX, iNewY);

}

End;