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

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

2012.07.20 20:56

하두고 조회 수:8788

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 39583
공지 유용한 관련 사이트 관리자2 2014.03.20 79087
1032 MS-SQL DB에 smalldatetime type 일자저장시 data overflow (status = 6h) 에러 [2] delphi 2018.04.23 434
1031 쇼핑몰 결제시스템 연동 문의 지병철 2018.04.23 451
1030 C/C#으로 만들어진 SDK 델파이에서 사용방법. [3] 엔달 2018.04.25 546
1029 Tokyo 10.2 Starter Edition Component 관련 질문 [2] goinma 2018.04.30 388
1028 IdHTTP 이용시 한글 깨짐현상 file 브로아 2018.05.01 2192
1027 한글깨짐 모바일맨 2018.05.02 696
1026 iOS 11.3 개발 시 PrivateFrameworks 관련 에러 [4] 스카이 2018.05.03 644
1025 groupbox 및 checkbox 등의 font color 변경 안되는 사항 [2] goinma 2018.05.03 2293
1024 델파이 FireMonkey Sample&Help 별도 설치 관련 [2] 허준영 2018.05.04 564
1023 iblite 및 라이센스는 어떻게 다운로드 하나요? [2] netpcc26 2018.05.08 409
1022 XE 버전 사용하여 앱(APP) 개발 가능한가요?? [2] 전수정 2018.05.08 335
1021 윈도우10 PRO에서 DBGrid 한글 깨짐이 발생합니다. [1] file LSM 2018.05.09 723
1020 스피드버튼으로 한글 입력 되도록 할 때 Delphi7 은 이상이 없는데 XE10 은 한글이 쪼개집니다. [2] 막스뮐러 2018.05.09 3961
1019 iOS 에서 Bluetooth Low Energy 검색이 안되는데, 저만의 문제인가요? [1] 지병철 2018.05.11 345
1018 GCM 프로그래밍 어떻게??? [2] netpcc26 2018.05.11 363
1017 FMX REST 오류에 대해 문의 드립니다. [2] 호홍호 2018.05.12 366
1016 어플리케이션 배포시에.. [2] 미크 2018.05.14 454
1015 IBTOGO INSTALL시 에러. file 미크 2018.05.15 422
1014 TButton에 TImage를 Child로 만들었는데.. [1] 미크 2018.05.16 380
1013 uses permission으로 설정한 권한 런타임시 허용 대화상자 띄우는 방법이 궁금합니다. [1] 김태윤 2018.05.24 808
쓰기
태그