자유롭게 질의 및 응답을 할 수 있는 게시판입니다. 개발자 여러분의 답변이 큰 도움이 됩니다. 

• 제품설치/등록 오류 문의: 설치/등록 Q&A 이용 (제품 구매 고객 한정)

• 전체
• Delphi
• C++ Builder
• RadPHP
• Firemonkey
• Interbase
• 도서

Firemonkey [질문] FMX화면에서 싸인이 가능한가요?

2021.07.22 15:28

화현 조회 수:299

본 게시판은 개발자들이 자유롭게 질문과 답변을 공유하는 게시판입니다.
* 따라서 최대한 정중하게 질문을 올려 주세요.
* 질문을 상세히 작성해 주실 수록 좋은 답변이 올라 옵니다.
* 다른 분들도 참고할 수 있도록 결과 댓글 필수(또는 감사 댓글)
(결과 댓글을 달지 않는 경우 다음 질문에 대한 답변이 달리지 않는 불이익이 있을 수 있습니다.)
-----------------------------------------------------------------------------------------------

FMX화면에서 싸인이 가능한가요?
노트가 아닌 일반 안드로이드 모바일에서
메모장이나 또는 어떤 컴퍼넌트를 이용해서

손톱으로 싸인할 수 있는 방법이 있나요?
마치 노트에서 펜으로 싸인하듯이요

있으면 참조사이트나 자료 부탁드립니다.

이 게시물을

• Twitter
• Me2day
• Facebook
• Delicious

목록

댓글 2

• 지병철

  2021.07.26 18:05

  참고할만한 소스 올려 드립니다.

   

  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.

  댓글

• 화현

  2021.07.29 17:10

  아, 감사합니다 ㅎㅎ

  댓글

목록

번호	제목	글쓴이	날짜	조회 수
공지	[프로그래밍 강의] 2021.6~2021.12	관리자	2015.01.22	15767
공지	유용한 관련 사이트	관리자2	2014.03.20	54580
공지	본 게시판은 개발자 여러분들의 질문과 답변을 공유하는 공간입니다.	관리자	2012.01.10	97985
14	로그출력 기능 문의 [2]	공수래	2021.03.17	148
13	파이어몽키로 안드로이드 시스템상에서 터치 이벤트 발생이 가능한가요? [2]	유성	2021.03.24	203
12	[문의]프로그램 메모리릭 오류 체크 [1]	공수래	2021.03.25	209
11	안드로이드 APK확장파일 생성 방법 문의 드립니다.	그니	2021.03.30	262
10	TGridPanelLayout 아이템 삭제 [3]	공수래	2021.04.01	231
9	10.4.2 코드인사이트 기능에 대해 [1]	delphiman	2021.04.16	382
8	IOS 새로고침 드래그시 이슈	delphiman	2021.05.06	232
7	애플 인증서 오류 관련하여 문의드립니다. [3]	delphiman	2021.05.11	3788
6	통화목록 관련 [1]	100jk	2021.05.14	7759
5	ApeSuite 사용법	SSI	2021.06.08	304
4	Apple healthkit 사용법에 대해 도움 요청 드립니다. [2]	지병철	2021.06.18	514
3	ScrollBox안에 Edit 가상키보드 문제.. [4]	운직	2021.07.14	674
»	[질문] FMX화면에서 싸인이 가능한가요? [2]	화현	2021.07.22	299
1	IOS 화면 가로 고정으로 배포 오류 문의 [4]	2an	2021.08.04	343

첫 페이지 23 24 25 26 27 28 29 30 31 32 끝 페이지

쓰기

검색

제목+내용제목내용댓글이름닉네임태그 검색

태그