Sub ABMChip_Initialize
' clear the views
ShowLayout("vPageMaster")
'load an empty property bag
splitPage.LoadLayout("vComponent", "ABMChip")
'determine if this component has a theme, if so add the theme property bag
ThemeType = ThemeNameFromComponent("ABMChip")
If ABMComponentHasTheme("ABMChip") = True Then
splitPage.LoadLayout("vTheme", ThemeType)
ABMComponentShowTheme(ThemeType)
End If
'add the methods property bag
splitPage.LoadLayout("vComponentMethods", "Methods")
'add the events property bag
splitPage.LoadLayout("vComponentEvents", "Events")
'add the accordion for 'Create', events and methods
SourcePreview_Initialize
'add the additional events a user can type source code for
splitPage.LoadLayout("vDefaultSC", "Default Events")
'create the property bag for the methods
ABMComponentMethods_Initialize("ABMChip")
ABMComponentEvents_Initialize("ABMChip")
'store the create tab position in case user refreshes the code
splitLoc= jMash.TabPageFindPos(splitPage,"Create")
'create the default property bag
Dim xl As List
xl.Initialize
etvComponent.setloading(True)
etvComponent.SetParentForm(MainForm,False)
etvComponent.readonly = jMash.CreateList(",","PageName,ComponentType")
etvComponent.ImagesFolder = ImagesFolder
etvComponent.AddTextBoxProperty("Page Name", "", "Page Name", "PageName")
etvComponent.AddTextBoxProperty("Component Type", "ABMChip", "Component Type", "ComponentType")
xl = modABMaterial.GetComponentsForPage(PageName,True)
etvComponent.AddComboBoxProperty("Parent ID", "", "Parent ID", "ActionButton", xl)
etvComponent.AddComboBoxProperty("Placement", "", "Placement", "Placement", modABMaterial.abmplacement)
etvComponent.AddTextBoxProperty("Component ID", "", "Component ID", "ComponentID")
etvComponent.AddTextBoxProperty("Array Name", "", "Array Name", "ArrayName")
etvComponent.AddTextBoxProperty("Chip ID", "", "Chip ID", "ID")
etvComponent.AddTextBoxProperty("Text", "", "Text", "Text")
etvComponent.AddImageFileChooserProperty("Image", "", "Image", "Image")
etvComponent.AddCheckBoxProperty("Can Be Closed", "0", "Can Be Closed", "CanBeClosed")
etvComponent.AddTextBoxProperty("Tag", "", "Tag", "Tag")
' ThemeType = ThemeNameFromComponent("ABMChip")
etvComponent.AddBiggerTextAreaProperty("intro","","","intro")
If ThemeType.length > 0 Then
xl = modABMaterial.GetThemes(ThemeType,True,True)
If xl.Size >= 2 Then
etvComponent.AddComboBoxProperty("Theme Name", "", "ThemeName", "ThemeName", xl)
End If
End If
etvComponent.AddComboBoxProperty("Cell Method", "Cell", "Cell Method", "CellMethod", modABMaterial.abmCellMethod)
etvComponent.AddComboBoxProperty("Visibility", "ABM.VISIBILITY_ALL", "Visibility", "Visibility", modABMaterial.ABMVisibility)
etvComponent.AddTextBoxProperty("Row ID / #OfRows", "1", "Row ID", "RowID")
etvComponent.AddTextBoxProperty("Cell ID", "1", "Cell ID", "CellID")
etvComponent.AddTextBoxProperty("Tab Index", "0", "Tab Index", "TabIndex")
etvComponent.AddCheckBoxProperty("Active", "1", "Active", "Active")
etvComponent.addcheckboxproperty("RefreshOnLoad","0","","RefreshOnLoad")
etvComponent.AddTextBoxProperty("# of Grid Columns", "4", "", "GridColumns")
etvComponent.addcheckboxproperty("Table Source","0","","TableSource")
etvComponent.AddComboBoxProperty("TableName", "", "TableName", "TableName", modABMaterial.GetTableNames)
etvComponent.AddTextAreaProperty("Select Query", "", "Select Query", "SelectQuery")
etvComponent.AddTextAreaProperty("Arguements (sep by ,)","Null","","Arguements")
etvComponent.addcheckboxproperty("Arguements from LocalStorage","1","","ArguementsFromLS")
xl.clear
etvComponent.AddComboBoxProperty("ID Field", "", "IDField", "IDField", xl)
etvComponent.AddComboBoxProperty("Text Field", "", "Text Field", "TextField", xl)
xl = modABMaterial.getallpages(True)
etvComponent.AddComboBoxProperty("Navigate To", "", "", "NavigateTo", xl)
etvComponent.SetLoading(False)
End Sub