자유롭게 질의 및 응답을 할 수 있는 게시판입니다. 개발자 여러분의 답변이 큰 도움이 됩니다.
- 제품설치/등록 오류 문의: 설치/등록 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 이렇게 하니 원할합니다.
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 이렇게 하니 원할합니다.
[자답]을 댓글로 올렸습니다.
if Shift = [ssLeft] then 이부분을
-> if (ssLeft in Shift) then 이렇게 하니 원할합니다.