Sub Class_Globals
Private Root As B4XView
Private xui As XUI
Private SearchView As SQLSearchView
Private Dialog As B4XDialog
Private Button1 As B4XView
End Sub
Public Sub Initialize
End Sub
'This event will be called once, before the page becomes visible.
Private Sub B4XPage_Created (Root1 As B4XView)
Root = Root1
Root.LoadLayout("MainPage")
SearchView.Initialize
' SearchView.BuildDatabase("C:\Users\H\Downloads", "search.db", File.ReadList("C:\Users\H\Downloads\words.txt", ""))
xui.SetDataFolder("SQLSearchView")
Wait For (SearchView.LoadDatabase(File.DirAssets, "search2.db")) Complete (Success As Boolean)
Button1.Enabled = Success
Dialog.Initialize(Root)
Dialog.Title = "SQL Search View"
SetDialogTheme
End Sub
Private Sub SetDialogTheme
Dim TextColor As Int = 0xFF5B5B5B
SearchView.SearchField.TextField.TextColor = TextColor
SearchView.SearchField.NonFocusedHintColor = TextColor
SearchView.CustomListView1.sv.ScrollViewInnerPanel.Color = 0xFFDFDFDF
SearchView.CustomListView1.sv.Color = Dialog.BackgroundColor
SearchView.CustomListView1.DefaultTextBackgroundColor = xui.Color_White
SearchView.CustomListView1.DefaultTextColor = TextColor
If SearchView.SearchField.lblV.IsInitialized Then SearchView.SearchField.lblV.TextColor = TextColor
If SearchView.SearchField.lblClear.IsInitialized Then SearchView.SearchField.lblClear.TextColor = TextColor
Dialog.BackgroundColor = xui.Color_White
Dialog.ButtonsColor = xui.Color_White
Dialog.BorderColor = xui.Color_Gray
Dialog.ButtonsTextColor = 0xFF007DC3
Dialog.OverlayColor = xui.Color_Transparent
End Sub
Private Sub Button1_Click
Wait For (Dialog.ShowTemplate(SearchView, "", "", "Cancel")) Complete (Result As Int)
If Result = xui.DialogResponse_Positive Then
Log(SearchView.SelectedItem)
End If
End Sub