paint dellphi 7 - capturar assinatura do usuario

[Felipe silva 0]

bom dia meu amigo!

estou procurando um script para que o sistema capturar a assinatura do usuário.

encontrei seu script:
https://www.devmedia.com.br/desenhando-paintbox-delphi/18152

e parabéns! funciona como mencionado no link.

inseri apenas a verificacao do mouse pressionado:

procedure TForm1.PaintBox1MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);

begin

if ( GetAsyncKeyState( VK_LBUTTON ) and KF_UP ) > 0 then //indentifica se botao esquerdo foi pressionado para iniciar o desenho
begin

i := High(FPosicoes)+1;
....

 

entretanto, quando o usuário assinar, ele pode retirar a ponta da caneta várias vezes.

Seu script, quando isso é feito, ele cria um risco e une a linha anterior com a nova escrita.

haveria possibilidade do usuário retirar a colocar a caneta na mesa vária vezes de forma que não haja esta junção?

se puder me ajudar, fico muito agradecido.

 

[Stano 143]

Please translate this into English. It's an English forum.

[Felipe silva 0]

On 3/11/2024 at 10:56 AM, Felipe silva said:

bom dia meu amigo!

estou procurando um script para que o sistema capturar a assinatura do usuário.

encontrei seu script:
https://www.devmedia.com.br/desenhando-paintbox-delphi/18152

e parabéns! funciona como mencionado no link.

inseri apenas a verificacao do mouse pressionado:

procedure TForm1.PaintBox1MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);

begin

if ( GetAsyncKeyState( VK_LBUTTON ) and KF_UP ) > 0 then //indentifica se botao esquerdo foi pressionado para iniciar o desenho
begin

i := High(FPosicoes)+1;
....

 

entretanto, quando o usuário assinar, ele pode retirar a ponta da caneta várias vezes.

Seu script, quando isso é feito, ele cria um risco e une a linha anterior com a nova escrita.

haveria possibilidade do usuário retirar a colocar a caneta na mesa vária vezes de forma que não haja esta junção?

se puder me ajudar, fico muito agradecido.
-----------------------------------------------------------

good morning my friend!

I'm looking for a script so that the system captures the user's signature.

I found your script:
https://www.devmedia.com.br/desenhando-paintbox-delphi/18152

and congratulations! works as mentioned in the link.

I just inserted the mouse pressed check:

procedure TForm1.PaintBox1MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);

begin

if ( GetAsyncKeyState( VK_LBUTTON ) and KF_UP ) > 0 then //identifies whether the left button was pressed to start the drawing
begin

i := High(FPosicoes)+1;
....

 


however, when the user signs, they can withdraw the pen tip several times.

Your script, when this is done, it creates a line and joins the previous line with the new writing.

Would it be possible for the user to remove and place the pen on the table several times so that this junction does not occur?

If you can help me, I would be very grateful.