So Sorry, I will learn from it and not do it again@NGUYEN TUAN ANH
My friend, I beg you. It was only 2 days ago when I requested you to always start a new thread for your question.
In the first post this is also clear..
View attachment 129175
I kindly request you to please honor my request.
Again, please start a new thread for your question. Prefix it with [BANanoVuetifyAD3]
I hope you understand...
hints.Initialize
hints.AddStep("trProjects", "The treeview will have your models, views and components you have defined. You are able to add, update and delete anything you create by clicking the corresponding buttons.")
hints.AddStep("tabPreview", "Here you can get a preview of your elements, HTML and B4X generated code.")
hints.AddStep("propdrawer", "This will hosts the property bag to change any element in your project. Enter the details necessary.")
hints.AddClick("trprojectsadd", "Click here to add a new project.")
hints.AddStep("propCol", "Then update the details of the property bag according to your needs.")
hints.AddStep("propBar", "This toolbar has buttons, each with a tooltip to guide you of their functionality. You can click Save.")
hints.AddStep("tabpreviewtab1", "Here you are able to get a sneek preview of how your form / element will look like.")
hints.AddStep("tabpreviewtab2", "Here you get the HTML code of the elements showing in your preview or being edited.")
hints.AddStep("tabpreviewtab3", "Here you get generated B4x code for the element you are working on.")
hints.AddStep("tabpreviewtab4", "Here you get PHP REST API source code generated from your data models.")
hints.EndsOn("tabpreviewtab4", "Got It!")
hints.Run
'RT create columns from the url and autoconfig
Sub ReloadFromURLWait(url As String) As Boolean
'reset the table structure
Reset
'get the data
Dim records As List = BANano.Await(BANano.GetFileAsJSON(url, Null))
If records.Size > 0 Then
'get the first record
Dim rec1 As Map = records.get(0)
'build the column names
For Each k As String In rec1.Keys
'ensure the titles are proper case
Dim title As String = BANanoShared.BreakAtUpperCase(k)
title = BANanoShared.ProperCase(title)
k = k.tolowercase
'add each column
AddColumn(k, title)
Next
'update headers
UpdateHeaders
'convert each record to have lowercase keys
BANanoShared.ListOfMapsKeysToLowerCase(records)
'update records on table
Reload(records)
End If
Return True
End Sub
Private Sub appdialog_Ok_Click (e As BANanoEvent)
vuetify.ActivePageOkResponse
End Sub
Private Sub appdialog_Cancel_click (e As BANanoEvent)
vuetify.ActivePageCancelResponse
End Sub
page.AddMethod("OkResponse", Null)
page.AddMethod("CancelResponse", Null)
'dialog clicked in pgIndex
private Sub OkResponse
'get the response
vuetify.HideDialog
Dim lastProcess As String = vuetify.Process
Dim enteredValue As String = vuetify.GetResponseValue
vuetify.ShowSwalSuccess("App Ok: " & lastProcess & " : " & enteredValue)
End Sub
'dialog clicke in pgIndex
private Sub CancelResponse
vuetify.hidedialog
Dim lastProcess As String = vuetify.Process
vuetify.ShowSwalError("App Cancel: " & lastProcess)
End Sub
Private Sub btnAlert_Click (e As BANanoEvent)
vuetify.Alert("app_alert", "Alert", "This is a app alert", "Great!")
End Sub
Private Sub btnConfirm_Click (e As BANanoEvent)
vuetify.Confirm("app_confirm", "Confirm Delete", "Are you sure you want to delete this?", "Yes", "No")
End Sub
Private Sub btnInput_Click (e As BANanoEvent)
vuetify.Prompt("app_prompt", "First Name", "What is your first name", "", "", "Mashy", "Ok", "Cancel")
End Sub
Our VStepper name is VStepper1.Item contents IDs are [componentname][step]content. You can add containers with these item IDS or use BANano.LoadLayout with the 'Content' call here passing it the step number. This uses step numbers no keys
So one needs to add content inside those areas.Item contents IDs are [componentname][item]content. You can add containers with these item IDS or use BANano.LoadLayout with the 'Content' call here
Item contents IDs are [componentname][item]content. You can add containers with these item IDS or use BANano.LoadLayout with the 'Content' call here
Not yet, will indicate when the updated lib is pushed to github, still working on some other bugs and things.I don't see it, is it already available?
Private Sub apphamburger_ClickStop (e As BANanoEvent) 'ignoreDeadCode
appdrawer.ToggleExpandOnHoverOnApp(vuetify)
End Sub
Sub created 'IgnoreDeadCode
'close the drawer
appdrawer.CloseOnApp(vuetify)
'clear the listview
drwlist.ClearOnApp(vuetify)
drwlist.AddAvatarTitleSubTitle("", "user1", "https://randomuser.me/api/portraits/med/men/75.jpg", "Random User 1", "Telephone:", "/")
drwlist.AddAvatarTitleSubTitle("", "user2", "https://randomuser.me/api/portraits/med/men/15.jpg", "Random User 2", "Telephone:", "/")
drwlist.AddAvatarTitleSubTitle("", "user3", "https://randomuser.me/api/portraits/med/men/25.jpg", "Random User 3", "Telephone:", "/")
drwlist.AddAvatarTitleSubTitle("", "user4", "https://randomuser.me/api/portraits/med/men/35.jpg", "Random User 4", "Telephone:", "/")
drwlist.AddAvatarTitleSubTitle("", "user5", "https://randomuser.me/api/portraits/med/men/45.jpg", "Random User 5", "Telephone:", "/")
drwlist.AddAvatarTitleSubTitle("", "user6", "https://randomuser.me/api/portraits/med/men/85.jpg", "Random User 6", "Telephone:", "/")
'refresh the drawer
drwlist.RefreshOnApp(vuetify)
End Sub
Sub mounted 'ignoreDeadCode
'clear the listview
VList1.Clear(page)
VList1.AddAvatarTitleSubTitle("", "user1", "https://randomuser.me/api/portraits/med/men/10.jpg", "Random User 1", "Telephone:", "")
VList1.AddAvatarTitleSubTitle("", "user2", "https://randomuser.me/api/portraits/med/men/11.jpg", "Random User 2", "Telephone:", "")
VList1.AddAvatarTitleSubTitle("", "user3", "https://randomuser.me/api/portraits/med/men/12.jpg", "Random User 3", "Telephone:", "")
VList1.AddAvatarTitleSubTitle("", "user4", "https://randomuser.me/api/portraits/med/men/13.jpg", "Random User 4", "Telephone:", "")
VList1.AddAvatarTitleSubTitle("", "user5", "https://randomuser.me/api/portraits/med/men/14.jpg", "Random User 5", "Telephone:", "")
VList1.AddAvatarTitleSubTitle("", "user6", "https://randomuser.me/api/portraits/med/men/15.jpg", "Random User 6", "Telephone:", "")
'refresh the drawer
VList1.Refresh(page)
vuetify.Loading(False)
End Sub[./code]
PS: By fault, the RightChips will show on the list when run. You can turn this off via the abstract designer in the Options element. UseRightAction is turned off because we dont want anything on the right of each item in the listview. How these work was discussed before.
[ATTACH type="full"]131109[/ATTACH]
NB: Also note this call after loadlayout. This links the options to the list
[code]
'COMPULSORY: bind the options
VList1.SetOptions(VListOptions1)
We use cookies and similar technologies for the following purposes:
Do you accept cookies and these technologies?
We use cookies and similar technologies for the following purposes:
Do you accept cookies and these technologies?