자유롭게 질의 및 응답을 할 수 있는 게시판입니다. 개발자 여러분의 답변이 큰 도움이 됩니다.
- 제품설치/등록 오류 문의: 설치/등록 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 15772
공지
유용한 관련 사이트
관리자2 2014.03.20 54590
공지
본 게시판은 개발자 여러분들의 질문과 답변을 공유하는 공간입니다.
관리자 2012.01.10 98014
6
안드로이드 ListView item background color 변경 하려면?
[1] 델마당쇠 2020.01.03 578
5
VCL 폼스타일 변경시 TrackBar의 SelEnd 색상표시가 궁금합니다.
OJTO 2020.01.14 157
4
안드로이드 calendar에 요일 밑에 text 추가 할수 있나요?
[1] 델마당쇠 2020.01.28 1718
3
[마이그레이션] 마이그레이션시 배경등 색상이 기본 흰색으로 변경되는 현상
[1] 개미 2020.11.24 151
2
refind 이용하여 변경 시 컬러적용 안되는부분
[1] 개미 2020.11.24 166
»
윈도우 키오스크에서 손가락으로 TImage 의 Canvas에 선 그리는 방법
[1] 미스터몽키 2021.04.19 575
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 | 15772 |
공지 | 유용한 관련 사이트 | 관리자2 | 2014.03.20 | 54590 |
공지 | 본 게시판은 개발자 여러분들의 질문과 답변을 공유하는 공간입니다. | 관리자 | 2012.01.10 | 98014 |
6 | 안드로이드 ListView item background color 변경 하려면? [1] | 델마당쇠 | 2020.01.03 | 578 |
5 | VCL 폼스타일 변경시 TrackBar의 SelEnd 색상표시가 궁금합니다. | OJTO | 2020.01.14 | 157 |
4 | 안드로이드 calendar에 요일 밑에 text 추가 할수 있나요? [1] | 델마당쇠 | 2020.01.28 | 1718 |
3 | [마이그레이션] 마이그레이션시 배경등 색상이 기본 흰색으로 변경되는 현상 [1] | 개미 | 2020.11.24 | 151 |
2 | refind 이용하여 변경 시 컬러적용 안되는부분 [1] | 개미 | 2020.11.24 | 166 |
» | 윈도우 키오스크에서 손가락으로 TImage 의 Canvas에 선 그리는 방법 [1] | 미스터몽키 | 2021.04.19 | 575 |
[자답]을 댓글로 올렸습니다.
if Shift = [ssLeft] then 이부분을
-> if (ssLeft in Shift) then 이렇게 하니 원할합니다.