Is it possible to hide or move the icons "del" and "check" in a multiline edit text?
#Region Project Attributes #MainFormWidth: 600 #MainFormHeight: 600 #End Region Sub Process_Globals Private fx As JFX Private MainForm As Form Public PrefDialog As PreferencesDialog Private Base As B4XView Private xui As XUI End Sub Sub AppStart (Form1 As Form, Args() As String) MainForm = Form1 MainForm.RootPane.LoadLayout("Layout1") 'Load the layout file. MainForm.Show Base = MainForm.RootPane CallSubDelayed(Me, "Button1_Click") End Sub 'Return true to allow the default exceptions handler to handle the uncaught exception. Sub Application_Error (Error As Exception, StackTrace As String) As Boolean Return True End Sub Sub Button1_Click Dim DialogPanelWidth As Int = 400dip Dim DialogPanelHeight As Int = 250dip PrefDialog.Initialize(Base, "Single Dialog created via 'PreferencesDialog'", DialogPanelWidth, DialogPanelHeight) PrefDialog.LoadFromJson(File.ReadString(File.DirAssets, "B4xPrefBuilderMultiline1.json")) Dim item As Map = CreateMap("c6noteedit": $" "People often say that motivation doesn't last. Well, neither does bathing -- that's why we recommend it daily." -Zig Ziglar "Someday is not a day of the week." -Denise Brennan-Nelson "Hire character. Train skill." -Peter Schutz "$) Wait For (PrefDialog.ShowDialog(item, "OK", "CANCEL")) Complete (Result As Int) If Result = xui.DialogResponse_Positive Then Log("#- x41, item = " & item) End If End Sub
3.9 KB Views: 38