자유롭게 질의 및 응답을 할 수 있는 게시판입니다. 개발자 여러분의 답변이 큰 도움이 됩니다.
- 제품설치/등록 오류 문의: 설치/등록 Q&A 이용 (제품 구매 고객 한정)
Delphi 윈도우 키오스크에서 손가락으로 TImage 의 Canvas에 선 그리는 방법
2021.04.19 17:43
본 게시판은 개발자들이 자유롭게 질문과 답변을 공유하는 게시판입니다.
* 따라서 최대한 정중하게 질문을 올려 주세요.
* 질문을 상세히 작성해 주실 수록 좋은 답변이 올라 옵니다.
* 다른 분들도 참고할 수 있도록 결과 댓글 필수(또는 감사 댓글)
(결과 댓글을 달지 않는 경우 다음 질문에 대한 답변이 달리지 않는 불이익이 있을 수 있습니다.)
-----------------------------------------------------------------------------------------------
델파이 10.3 VCL로 키오스크 고객 서명 이미지 저장 개발중입니다.
키오스크는 윈도우10 입니다.
TImage 를 이용하여 다음과 같이 코드를 작성했습니다.
...
procedure TForm1.Image1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
Image1.Picture.Bitmap.Canvas.MoveTo(X, Y);
end;
procedure TForm1.Image1MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
begin
if Shift = [ssLeft] then
begin
Image1.Picture.Bitmap.Canvas.Pen.Color := clBlack; // 색상
Image1.Picture.Bitmap.Canvas.Pen.Width := 3; // Line 두께
Image1.Picture.Bitmap.Canvas.LineTo(X, Y); // 이미지 패널에 Line 그리기
end;
end;
...
마우스를 이용하여 그릴 때는 잘 그려지는데 손가락으로 그리면 그려지지가 않네요
손가락을 이용할 경우는 Image1MouseMove 이벤트가 작동하지 않네요
키오스크 윈도우에 설치된 기본 "그림판"은 손가락으로 선이 잘 그려집니다.
해결방법이 있을까요?
(자답)
if Shift = [ssLeft] then 이부분을
-> if (ssLeft in Shift) then 이렇게 하니 원할합니다.
번호 제목 글쓴이 날짜 조회 수
공지
[프로그래밍 강의] 2021.6~2021.12
관리자 2015.01.22 17241
공지
유용한 관련 사이트
관리자2 2014.03.20 56125
공지
본 게시판은 개발자 여러분들의 질문과 답변을 공유하는 공간입니다.
관리자 2012.01.10 99560
6
RAD studio XE7에서 색상변경하는 방법요...초보적인질문입니다.
[2] 준식 2015.01.06 1531
5
안드로이드 calendar에 요일 밑에 text 추가 할수 있나요?
[1] 델마당쇠 2020.01.28 1730
4
XE6 Label 폰트컬러 변경 문의
[2] 가을이다 2014.06.23 2012
3
XE5 FireMonkey 버튼 컴포넌트 만들기..
[1] 가을이다 2014.06.16 2425
2
Rectangle 컬러값 변경 문의
[2] 가을이다 2014.06.13 2652
1
델파이 스크롤바 색상 변경 문의 드립니다.
[1] memc 2012.09.24 8823
Delphi 윈도우 키오스크에서 손가락으로 TImage 의 Canvas에 선 그리는 방법
2021.04.19 17:43
본 게시판은 개발자들이 자유롭게 질문과 답변을 공유하는 게시판입니다.
* 따라서 최대한 정중하게 질문을 올려 주세요.
* 질문을 상세히 작성해 주실 수록 좋은 답변이 올라 옵니다.
* 다른 분들도 참고할 수 있도록 결과 댓글 필수(또는 감사 댓글)
(결과 댓글을 달지 않는 경우 다음 질문에 대한 답변이 달리지 않는 불이익이 있을 수 있습니다.)
-----------------------------------------------------------------------------------------------
델파이 10.3 VCL로 키오스크 고객 서명 이미지 저장 개발중입니다.
키오스크는 윈도우10 입니다.
TImage 를 이용하여 다음과 같이 코드를 작성했습니다.
...
procedure TForm1.Image1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
Image1.Picture.Bitmap.Canvas.MoveTo(X, Y);
end;
procedure TForm1.Image1MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
begin
if Shift = [ssLeft] then
begin
Image1.Picture.Bitmap.Canvas.Pen.Color := clBlack; // 색상
Image1.Picture.Bitmap.Canvas.Pen.Width := 3; // Line 두께
Image1.Picture.Bitmap.Canvas.LineTo(X, Y); // 이미지 패널에 Line 그리기
end;
end;
...
마우스를 이용하여 그릴 때는 잘 그려지는데 손가락으로 그리면 그려지지가 않네요
손가락을 이용할 경우는 Image1MouseMove 이벤트가 작동하지 않네요
키오스크 윈도우에 설치된 기본 "그림판"은 손가락으로 선이 잘 그려집니다.
해결방법이 있을까요?
(자답)
if Shift = [ssLeft] then 이부분을
-> if (ssLeft in Shift) then 이렇게 하니 원할합니다.
번호 | 제목 | 글쓴이 | 날짜 | 조회 수 |
---|---|---|---|---|
공지 | [프로그래밍 강의] 2021.6~2021.12 | 관리자 | 2015.01.22 | 17241 |
공지 | 유용한 관련 사이트 | 관리자2 | 2014.03.20 | 56125 |
공지 | 본 게시판은 개발자 여러분들의 질문과 답변을 공유하는 공간입니다. | 관리자 | 2012.01.10 | 99560 |
6 | RAD studio XE7에서 색상변경하는 방법요...초보적인질문입니다. [2] | 준식 | 2015.01.06 | 1531 |
5 | 안드로이드 calendar에 요일 밑에 text 추가 할수 있나요? [1] | 델마당쇠 | 2020.01.28 | 1730 |
4 | XE6 Label 폰트컬러 변경 문의 [2] | 가을이다 | 2014.06.23 | 2012 |
3 | XE5 FireMonkey 버튼 컴포넌트 만들기.. [1] | 가을이다 | 2014.06.16 | 2425 |
2 | Rectangle 컬러값 변경 문의 [2] | 가을이다 | 2014.06.13 | 2652 |
1 | 델파이 스크롤바 색상 변경 문의 드립니다. [1] | memc | 2012.09.24 | 8823 |
[자답]을 댓글로 올렸습니다.
if Shift = [ssLeft] then 이부분을
-> if (ssLeft in Shift) then 이렇게 하니 원할합니다.