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

Firemonkey TImage3D를 마우스로 드레그하여 이동하고 싶은데요.

2012.07.20 20:56

하두고 조회 수:8594

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 15769
공지 유용한 관련 사이트 관리자2 2014.03.20 54588
공지 본 게시판은 개발자 여러분들의 질문과 답변을 공유하는 공간입니다. 관리자 2012.01.10 98010
3179 빌더가 설치되지 않은 피시에서 메모리에러 발생 file lamp 2019.12.10 88
3178 출력이 보이지 않습니다. [1] yawayo 2020.06.29 88
3177 실행되지만 레퍼런스에 없는 system.default [1] 임병기 2017.03.26 88
3176 [시애틀 출시세미나] FireDAC의 기능을 자세히 살펴보고 싶어요. Humphery 2015.09.11 90
3175 [10.2.2 세미나] 리눅스 app 언제 지원되나요? 험프리 2018.01.18 90
3174 [시작하는 사람들을 위한 델파이 프로그래밍] 모듈 22 - Exercise 3 [2] 관리자 2016.05.27 91
3173 [10.2 도쿄 출시세미나] 델파이 리눅스앱은 기본 공유(동적)라이브러리 방식으로 빌드되나요? 험프리 2017.04.06 92
3172 문의드려요 [1] 중국어사전 2018.02.06 92
3171 TSaveEvent로 jpg저장하는 기능관련 문의의 글 [1] file 영우CnI 2019.11.28 92
3170 안녕하세요 datasnap 관련 질문드려요 :) [1] vast 2017.07.03 92
3169 10.3 TADOStoreProc.Parameters.FindParam('MEMBER_ID').Value 시 오류 [1] 파란김치 2018.12.14 93
3168 시애틀 TBeacon컴포넌트가 같은 기종의 모바일에서 작동 유무가 다릅니다. 김태윤 2016.10.19 94
3167 IOS Device 컴파일 관련 문의 mskim 2018.12.10 94
3166 [IoT 세미나] 비콘에 대해 알고 싶습니다. Humphery 2015.09.04 94
3165 ArcGIS - Delphi Component 문의 연일하 2016.10.13 95
3164 xe10 시애틀 컴파일시 에러메세지 확인 부탁드립니다. kerry 2016.07.13 96
3163 초대합니다! 새로운 RAD Studio : 윈도우 10 혜택을 누리세요! file 관리자 2015.08.28 96
3162 [시작하는 사람들을 위한 델파이 프로그래밍] 모듈 24 - Exercise 3 [2] 관리자 2016.05.27 96
3161 [10.2 도쿄 출시세미나] 리눅스에서 pascal로 코딩시, c++로 개발된 리눅스용 라이브러리 사용하는법 험프리 2017.04.06 96
3160 디자인타임시 그림파일이 로딩되지 않습니다. 바다를향해 2018.12.26 96
쓰기
태그