자유롭게 질의 및 응답을 할 수 있는 게시판입니다. 개발자 여러분의 답변이 큰 도움이 됩니다. 
  • 제품설치/등록 오류 문의: 설치/등록 Q&A 이용 (제품 구매 고객 한정)

TForm

    |-TViewport3D1

                 |-TLayout3D

                                |-TImage3D

위와 같은 구조인데요.

 

TImage3D를 마우스로 드레그하여 위치를 이동하고 싶습니다. 


Uses FMX.Platform;

...

... 

VAR
  MousePosition1,  MousePosition2: TPointF;

...

...

Procedure MouseDown(.......);

Begin

  // Image3D1을 마우스로 클릭했을때 마우스위치

  MousePosition1:= Platform.GetMousePos;

.....

.....

End;

 

Procedure MouseMove(.........)

VAR

  ImagePositionX1, ImagePositionY1 : Single; 

  ImagePositionX2, ImagePositionY2 : Single;

Begin

 

// 드레그하여 이동한 새로운 마우스 위치 

MousePosition2:= Platform.GetMousePos;

 

// 현제 이미지의 위치

  ImagePositionX1 := Image3D1.Position.X; 

  ImagePositionY1 := Image3D1.Position.Y;

  ......

//  Image3D1의 새로운 좌요인 ImagePositionX2와 ImagePositionY2를 계산.

  ImagePositionX2 := .....

  ImagePositionY2 :=

  .....

// 이미지 위치이동

  Image3D1.Position.X := ImagePositionX2; 

  Image3D1.Position.Y := ImagePositionY2;

End

 

대충 이런식으로 코딩해야 할 것 같은데

문제는 TPointF형에 담겨있는 마우스 포지션과 T3Image3D의 좌표계가 달라

마우스를 이동했을때 이미지의 새로운 위치를 어떻게 계산해야 하는가 입니다.

 

도움을 주시면 감사하겠습니다.

번호 제목 글쓴이 날짜 조회 수
공지 [프로그래밍 강의] 2021.6~2021.12 관리자 2015.01.22 22715
공지 유용한 관련 사이트 관리자2 2014.03.20 61621
공지 본 게시판은 개발자 여러분들의 질문과 답변을 공유하는 공간입니다. 관리자 2012.01.10 105682
119 Windows7 Pro BDS2006 설치 실행시 오류 [1] secret 푸른숲속 2012.08.17 4
118 Socket 에러 secret dreamingguy 2012.08.17 4
117 모니터 2화면에서 프로그램 열리는 위치 지정가능하다면 방법은? [3] 양현숙 2012.08.16 32199
116 델파이 XE2 디버깅 에러 재 질문 드립니다. [1] file 쮸니 2012.08.10 10678
115 델파이 XE 한영전환 문제 확인 해 주세요 [1] memc 2012.08.09 9925
114 DBExpress의 버그 문제 [1] file 땅주인 2012.08.09 7525
113 이유를 알수 없는 디버깅 에러 확인 부탁드립니다. [1] file 쮸니 2012.08.09 7543
112 RAD Studio (델파이, C++빌더) 에서 원격 디버깅 (Remote debugging) 이 안되나요? 관리자 2012.03.07 13568
111 TabControl 컴포넌트 Tab Position 문의 file 양현숙 2012.08.09 8262
110 요즘 델파이에서 코드 품질이나 감사(audit) 할 수 있는 기능이 있나요? 관리자 2012.08.07 7294
109 컴파일관련 에러 질문입니다. [1] dk2 2012.08.02 7855
108 Windows7 에서 관리자 권한 토마토 2012.07.25 10752
107 iOS 개발을 위한 Free Pascal 설치 재 질문 합니다. 김동환 2012.07.24 9273
106 radphp를 공부해 보려고 하는데요.. [1] 태랑 2012.07.12 7511
105 RadPHP 평가판에서 정품으로 바꾸려는데 어떻게 하나요? 관리자 2012.07.20 7155
» TImage3D를 마우스로 드레그하여 이동하고 싶은데요. 하두고 2012.07.20 8660
103 iOS 개발 관련 Free Pascal 설치 오류 file 김동환 2012.07.20 9427
102 RAD, 델파이, C++빌더의 에디션별 업그레이드 적용 범위를 알고 싶습니다. 관리자 2012.07.19 7754
101 Translation Manager [3] file 정준 2012.07.12 7920
100 C++빌더 6 사용자입니다. C++빌더 XE2에서 더 좋아진 점이 무엇이고, 업그레이드가 꼭 필요한 이유를 알고 싶습니다 file 관리자 2012.07.12 12145