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.