Private Sub DialogEditTexi(title As String, content , data As String , textformt As Boolean , tag As String, rengtext As Int)
Dim Builder As MaterialDialogBuilder
Builder.Initialize("Builder")
Builder.Title(title).TitleColor(Utils.ICONCOLORDIALOG)
Builder.Content(content).ContentColor(Utils.TEXTCOLORDARK)
If textformt = True Then
Builder.InputType(Bit.Or(Bit.Or(Builder.TYPE_CLASS_TEXT, Builder.TYPE_TEXT_FLAG_MULTI_LINE),Builder.TYPE_TEXT_FLAG_CAP_WORDS)).Typeface(Typeface.LoadFromAssets("STEINER.ttf"),Typeface.LoadFromAssets("STEINER.ttf"))
Else
Builder.InputType(Bit.Or(Bit.Or(Builder.TYPE_CLASS_NUMBER, Builder.TYPE_CLASS_PHONE),Bit.Or(Builder.TYPE_CLASS_NUMBER, Builder.TYPE_CLASS_PHONE))).Typeface(Typeface.LoadFromAssets("STEINER.ttf"),Typeface.LoadFromAssets("STEINER.ttf"))
End If
Builder.PositiveText("Ok").PositiveColor(Utils.M_SUCCES).NegativeColor(Utils.M_ERORR).NegativeText("cancel")
If data = ("The information in this field is incomplete") Or data=("0") Then
Builder.Input("...", "").ButtonRippleColor(Utils.HANITTEXTCOLOR).WidgetColor(Utils.ICONCOLORDIALOG)
Else
Builder.Input("...",data).ButtonRippleColor(Utils.HANITTEXTCOLOR).WidgetColor(Utils.ICONCOLORDIALOG)
End If
Builder.Tag(tag)
If tag = "phone" Then
Builder.InputRange(11,rengtext)
Else
Builder.InputRange(4,rengtext)
End If
Builder.BackgroundColor(Utils.TOOLBARCOLORDIALOG)
Builder.Show
End Sub