Sub btn_automatic_Click
ToastMessageShow("Working on this feature",True)
Dim BD As BetterDialogs
Dim dia As Int
Dim IP As BD_InputBoxParams
IP.Initialize
IP.Question = tr.get("Enter value 0 to disable this function")
IP.QuestionTextSize = 18
IP.SpaceBetween = 4dip
IP.InputTextSize = 24
IP.InputType = IP.INPUT_TYPE_DECIMAL_NUMBERS
IP.Gravity = Gravity.CENTER_VERTICAL + Gravity.CENTER_HORIZONTAL
IP.ValidationCallback = "Input_Validation"
IP.WithSuggestions = True
dia = BD.InputBox(tr.get("Enter ortho snap value from 1 to 30: "), IP, "OK", "",tr.get("SKIP"), Null)
Log("DR=" & dr)
If dia = DialogResponse.POSITIVE Then
Log(IP.Answer)
automatic=IP.Answer
File.WriteString(File.DirInternal,"automatic.txt",automatic)
ToastMessageShow("Ortho snap: "&automatic,True)
End If
End Sub