자유롭게 질의 및 응답을 할 수 있는 게시판입니다. 개발자 여러분의 답변이 큰 도움이 됩니다.
- 제품설치/등록 오류 문의: 설치/등록 Q&A 이용 (제품 구매 고객 한정)
Firemonkey [질문] FMX화면에서 싸인이 가능한가요?
2021.07.22 15:28
본 게시판은 개발자들이 자유롭게 질문과 답변을 공유하는 게시판입니다.
* 따라서 최대한 정중하게 질문을 올려 주세요.
* 질문을 상세히 작성해 주실 수록 좋은 답변이 올라 옵니다.
* 다른 분들도 참고할 수 있도록 결과 댓글 필수(또는 감사 댓글)
(결과 댓글을 달지 않는 경우 다음 질문에 대한 답변이 달리지 않는 불이익이 있을 수 있습니다.)
-----------------------------------------------------------------------------------------------
FMX화면에서 싸인이 가능한가요?
노트가 아닌 일반 안드로이드 모바일에서
메모장이나 또는 어떤 컴퍼넌트를 이용해서
손톱으로 싸인할 수 있는 방법이 있나요?
마치 노트에서 펜으로 싸인하듯이요
있으면 참조사이트나 자료 부탁드립니다.
번호 제목 글쓴이 날짜 조회 수
공지
[프로그래밍 강의] 2021.6~2021.12
관리자 2015.01.22 19725
공지
유용한 관련 사이트
관리자2 2014.03.20 58661
공지
본 게시판은 개발자 여러분들의 질문과 답변을 공유하는 공간입니다.
관리자 2012.01.10 102210
14
로그출력 기능 문의
[2] 공수래 2021.03.17 166
13
파이어몽키로 안드로이드 시스템상에서 터치 이벤트 발생이 가능한가요?
[2] 유성 2021.03.24 233
12
[문의]프로그램 메모리릭 오류 체크
[1] 공수래 2021.03.25 235
11
안드로이드 APK확장파일 생성 방법 문의 드립니다.
그니 2021.03.30 285
10
TGridPanelLayout 아이템 삭제
[3] 공수래 2021.04.01 270
9
10.4.2 코드인사이트 기능에 대해
[1] delphiman 2021.04.16 406
8
IOS 새로고침 드래그시 이슈
delphiman 2021.05.06 253
7
애플 인증서 오류 관련하여 문의드립니다.
[3] delphiman 2021.05.11 4259
6
통화목록 관련
[1] 100jk 2021.05.14 7777
5
ApeSuite 사용법
SSI 2021.06.08 332
4
Apple healthkit 사용법에 대해 도움 요청 드립니다.
[2] 지병철 2021.06.18 552
3
ScrollBox안에 Edit 가상키보드 문제..
[4] 운직 2021.07.14 704
»
[질문] FMX화면에서 싸인이 가능한가요?
[2] 화현 2021.07.22 324
1
IOS 화면 가로 고정으로 배포 오류 문의
[4] 2an 2021.08.04 374
Firemonkey [질문] FMX화면에서 싸인이 가능한가요?
2021.07.22 15:28
본 게시판은 개발자들이 자유롭게 질문과 답변을 공유하는 게시판입니다.
* 따라서 최대한 정중하게 질문을 올려 주세요.
* 질문을 상세히 작성해 주실 수록 좋은 답변이 올라 옵니다.
* 다른 분들도 참고할 수 있도록 결과 댓글 필수(또는 감사 댓글)
(결과 댓글을 달지 않는 경우 다음 질문에 대한 답변이 달리지 않는 불이익이 있을 수 있습니다.)
-----------------------------------------------------------------------------------------------
FMX화면에서 싸인이 가능한가요?
노트가 아닌 일반 안드로이드 모바일에서
메모장이나 또는 어떤 컴퍼넌트를 이용해서
손톱으로 싸인할 수 있는 방법이 있나요?
마치 노트에서 펜으로 싸인하듯이요
있으면 참조사이트나 자료 부탁드립니다.
번호 | 제목 | 글쓴이 | 날짜 | 조회 수 |
---|---|---|---|---|
공지 | [프로그래밍 강의] 2021.6~2021.12 | 관리자 | 2015.01.22 | 19725 |
공지 | 유용한 관련 사이트 | 관리자2 | 2014.03.20 | 58661 |
공지 | 본 게시판은 개발자 여러분들의 질문과 답변을 공유하는 공간입니다. | 관리자 | 2012.01.10 | 102210 |
14 | 로그출력 기능 문의 [2] | 공수래 | 2021.03.17 | 166 |
13 | 파이어몽키로 안드로이드 시스템상에서 터치 이벤트 발생이 가능한가요? [2] | 유성 | 2021.03.24 | 233 |
12 | [문의]프로그램 메모리릭 오류 체크 [1] | 공수래 | 2021.03.25 | 235 |
11 | 안드로이드 APK확장파일 생성 방법 문의 드립니다. | 그니 | 2021.03.30 | 285 |
10 | TGridPanelLayout 아이템 삭제 [3] | 공수래 | 2021.04.01 | 270 |
9 | 10.4.2 코드인사이트 기능에 대해 [1] | delphiman | 2021.04.16 | 406 |
8 | IOS 새로고침 드래그시 이슈 | delphiman | 2021.05.06 | 253 |
7 | 애플 인증서 오류 관련하여 문의드립니다. [3] | delphiman | 2021.05.11 | 4259 |
6 | 통화목록 관련 [1] | 100jk | 2021.05.14 | 7777 |
5 | ApeSuite 사용법 | SSI | 2021.06.08 | 332 |
4 | Apple healthkit 사용법에 대해 도움 요청 드립니다. [2] | 지병철 | 2021.06.18 | 552 |
3 | ScrollBox안에 Edit 가상키보드 문제.. [4] | 운직 | 2021.07.14 | 704 |
» | [질문] FMX화면에서 싸인이 가능한가요? [2] | 화현 | 2021.07.22 | 324 |
1 | IOS 화면 가로 고정으로 배포 오류 문의 [4] | 2an | 2021.08.04 | 374 |
참고할만한 소스 올려 드립니다.
unit Unit14;
interface
uses
System.SysUtils, System.Types, System.UITypes, System.Classes, System.Variants,
FMX.Types, FMX.Controls, FMX.Forms, FMX.Graphics, FMX.Dialogs, FMX.Objects,
FMX.Controls.Presentation, FMX.StdCtrls;
type
TForm14 = class(TForm)
PaintBox1: TPaintBox;
btnClear: TButton;
procedure PaintBox1Paint(Sender: TObject; Canvas: TCanvas);
procedure FormCreate(Sender: TObject);
procedure btnClearClick(Sender: TObject);
procedure PaintBox1MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Single);
procedure PaintBox1MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Single);
procedure PaintBox1MouseUp(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Single);
private
{ Private declarations }
FPath: TPathData;
FMouseDown: Boolean;
public
{ Public declarations }
end;
var
Form14: TForm14;
implementation
{$R *.fmx}
procedure TForm14.btnClearClick(Sender: TObject);
begin
FPath.clear;
PaintBox1.Repaint;
end;
procedure TForm14.FormCreate(Sender: TObject);
begin
FPath := TPathData.Create;
FMouseDown := False;
end;
procedure TForm14.PaintBox1MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Single);
begin
FPath.MoveTo(PointF(X,Y));
FMouseDown := True;
end;
procedure TForm14.PaintBox1MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Single);
begin
if FMouseDown then
begin
FPath.LineTo(PointF(X,Y));
PaintBox1.Repaint;
end;
end;
procedure TForm14.PaintBox1MouseUp(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Single);
begin
FMouseDown := False;
end;
procedure TForm14.PaintBox1Paint(Sender: TObject; Canvas: TCanvas);
begin
PaintBox1.BeginUpdate;
Canvas.Fill.Color := TAlphaColorRec.White;
Canvas.FillRect(RectF(0,0,PaintBox1.Width, PaintBox1.Height), 1);
Canvas.Stroke.Color := TAlphaColorRec.Black;
Canvas.Stroke.Kind := TBrushKind.Solid;
Canvas.DrawPath(FPath, 1);
PaintBox1.EndUpdate;
end;
end.