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

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

2012.07.20 20:56

하두고 조회 수:8600

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 17278
공지 유용한 관련 사이트 관리자2 2014.03.20 56171
공지 본 게시판은 개발자 여러분들의 질문과 답변을 공유하는 공간입니다. 관리자 2012.01.10 99591
3179 [10.2.2 세미나] 리눅스 app 언제 지원되나요? 험프리 2018.01.18 95
3178 TSaveEvent로 jpg저장하는 기능관련 문의의 글 [1] file 영우CnI 2019.11.28 95
3177 10.2 starter 언인스톨 문제 [3] 바람 2017.05.31 97
3176 문의드려요 [1] 중국어사전 2018.02.06 97
3175 RIO 10.3 폼 Transparency 활성시 검정색 문제 돌팅 2018.12.07 97
3174 문자열 관련 [1] 구뚜루 2018.12.25 97
3173 안녕하세요 datasnap 관련 질문드려요 :) [1] vast 2017.07.03 98
3172 [10.2 도쿄 출시세미나] 델파이 리눅스앱은 기본 공유(동적)라이브러리 방식으로 빌드되나요? 험프리 2017.04.06 99
3171 [100%활용 세미나] 리눅스 지원 계획을 알고 싶습니다. 험프리 2017.11.10 99
3170 [IoT 세미나] 비콘에 대해 알고 싶습니다. Humphery 2015.09.04 99
3169 [시작하는 사람들을 위한 델파이 프로그래밍] 모듈 24 - Exercise 3 [2] 관리자 2016.05.27 101
3168 [마이그레이션 세미나] 파이어 몽키 버전으로 마이그레이션 시 고려해야될 사항들이 궁금합니다. 험프리 2018.03.16 101
3167 디자인타임시 그림파일이 로딩되지 않습니다. 바다를향해 2018.12.26 101
3166 [무료 온라인 세미나] 사물인터넷 실제 구현하기 DeepDive! 관리자 2015.09.15 101
3165 초대합니다! 새로운 RAD Studio : 윈도우 10 혜택을 누리세요! file 관리자 2015.08.28 102
3164 styleelements [1] timerobb 2016.10.25 102
3163 IOS Device 컴파일 관련 문의 mskim 2018.12.10 102
3162 10.3 TADOStoreProc.Parameters.FindParam('MEMBER_ID').Value 시 오류 [1] 파란김치 2018.12.14 102
3161 XE2 -> XE10 으로 컴파일만 다시했는데...오류가 납니다. 파란하늘 2016.01.13 103
3160 xe10 시애틀 컴파일시 에러메세지 확인 부탁드립니다. kerry 2016.07.13 104
쓰기
태그