Jump to content

Felipe silva

Members
  • Content Count

    2
  • Joined

  • Last visited

Community Reputation

0 Neutral
  1. 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.
×