#if b4j
Private Sub ThemeLabel_MouseClicked (EventData As MouseEvent)
#else
Private Sub ThemeLabel_Click
#End If
Dim Dialog As B4XDialog
Dialog.Initialize(Root)
Dim options As B4XListTemplate
options.Initialize
options.Options = Array As String("Oceanic","Darker","Lighter","Palenight","DeepOcean","Forest","SykBlue","SandyBeach","Volcano","Monokai","Dracula","Github","GithubDark","ArcDark","OneDark","OneLight","SolarizedDark","SolarizedLight","NightOwl","LightOwl","Moonlight","Synthwave84")
Wait For (Dialog.ShowTemplate(options, "OK", "", "CANCEL")) Complete (Result As Int)
If Result = xui.DialogResponse_Positive Then
Theme.setTheme(options.SelectedItem)
End If
End Sub