Sub GetFirma
Dim dialog As B4XDialog
dialog = SetDialog(dialog)
Dim p As B4XView = xui.CreatePanel("")
p.Width = 400
p.Height = 200
p.LoadLayout("firmacliente")
pnlDrawing = xui.CreatePanel("pnlDrawing")
pnlDrawing.SetColorAndBorder(xui.Color_White, 1, xui.Color_LightGray, 2)
p.AddView(pnlDrawing,3,22,390,106)
cvsDrawing.Initialize(pnlDrawing)
Dim rs As ResumableSub = dialog.ShowCustom(p, "Ok", "", "Esci")
Wait For (rs) Complete (Result As Int)
If Result = xui.DialogResponse_Positive Then
imgFirma.mBase.SetColorAndBorder(xui.Color_White, 1, xui.Color_LightGray, 2)
imgFirma.Bitmap = cvsDrawing.CreateBitmap
End If
End Sub