Touch-enabled signature capture control for collecting digital signatures with smooth drawing.
SignatureCapture1.PenColor := TAlphaColors.Blue; SignatureCapture1.PenWidth := 2; SignatureCapture1.ShowBaseline := True; SignatureCapture1.BaselineText := 'Sign above this line'; SignatureCapture1.Clear;
if not SignatureCapture1.IsEmpty then
begin
SignatureCapture1.SignatureBitmap.SaveToFile('signature.png');
ShowMessage('Signature saved');
end
else
ShowMessage('Please sign first');
var
Bmp: TBitmap;
begin
Bmp := TBitmap.Create;
try
Bmp.LoadFromFile('signature.png');
SignatureCapture1.LoadFromBitmap(Bmp);
finally
Bmp.Free;
end;
end;
procedure ValidateSignature;
begin
if SignatureCapture1.IsEmpty then
begin
ShowMessage('Signature required');
Exit;
end;
// Convert to base64 for storage
var Base64 := BitmapToBase64(SignatureCapture1.SignatureBitmap);
SaveSignatureToDatabase(Base64);
end;
Clear - Erase all signature strokesLoadFromBitmap(Bitmap) - Load signature from bitmapSaveToFile(FileName) - Save signature as imageGetAsBase64 - Get signature as Base64 stringOnDrawStart - User begins drawingOnDrawing - User is drawing (mouse/touch move)OnDrawEnd - User finishes strokeOnClear - Signature cleared