|
91
|
Defines the symbol used to indicate repeated captions, providing a clear visual cue for identical entries (ditto mark)
Dim oCascadeTree as P
Dim var_Column as local
Dim var_Items as P
Dim var_View as P
oCascadeTree = topparent:CONTROL_ACTIVEX1.activex
oCascadeTree.BeginUpdate()
var_View = oCascadeTree.View
var_View.BeginUpdate()
var_View.HeaderAppearance = 4
var_View.HeaderHeight = 24
var_View.DrawGridLines = -2
var_View.ColumnAutoResize = .t.
' var_View.Columns.Add("Country").ShowIdem = "<fgcolor gray>〃"
var_Column = var_View.Columns.Add("Country")
oCascadeTree.TemplateDef = "dim var_Column"
oCascadeTree.TemplateDef = var_Column
oCascadeTree.Template = "var_Column.ShowIdem = `<fgcolor gray>〃`"
var_Items = var_View.Items
var_Items.AddItem("Spain")
var_Items.AddItem("Spain")
var_Items.AddItem("Spain")
var_Items.AddItem("Spain")
var_Items.AddItem("Germany")
var_Items.AddItem("Germany")
var_Items.AddItem("Germany")
var_Items.AddItem("Germany")
var_View.EndUpdate()
oCascadeTree.EndUpdate()
|
|
90
|
Defines the symbol used to indicate repeated captions, providing a clear visual cue for identical entries (space)
Dim oCascadeTree as P
Dim var_Column as local
Dim var_Items as P
Dim var_View as P
oCascadeTree = topparent:CONTROL_ACTIVEX1.activex
oCascadeTree.BeginUpdate()
var_View = oCascadeTree.View
var_View.BeginUpdate()
var_View.HeaderAppearance = 4
var_View.HeaderHeight = 24
var_View.DrawGridLines = -2
var_View.ColumnAutoResize = .t.
' var_View.Columns.Add("Country").ShowIdem = " "
var_Column = var_View.Columns.Add("Country")
oCascadeTree.TemplateDef = "dim var_Column"
oCascadeTree.TemplateDef = var_Column
oCascadeTree.Template = "var_Column.ShowIdem = ` `"
var_Items = var_View.Items
var_Items.AddItem("Spain")
var_Items.AddItem("Spain")
var_Items.AddItem("Spain")
var_Items.AddItem("Spain")
var_Items.AddItem("Germany")
var_Items.AddItem("Germany")
var_Items.AddItem("Germany")
var_Items.AddItem("Germany")
var_View.EndUpdate()
oCascadeTree.EndUpdate()
|
|
89
|
How can I replace or add an icon at runtime
' A view has been created.
function CreateView as v (View as OLE::Exontrol.CascadeTree.1::IView)
Dim var_Columns as local
Dim var_Object as P
Dim var_View as P
oCascadeTree = topparent:CONTROL_ACTIVEX1.activex
var_View = oCascadeTree.View
var_View.EnsureVisibleColumn("Function")
var_Object = var_View.Columns.Item("Function")
' var_View.Columns.Item(0).Def(0) = .t.
var_Columns = var_View.Columns.Item(0)
oCascadeTree.TemplateDef = "dim var_Columns"
oCascadeTree.TemplateDef = var_Columns
oCascadeTree.Template = "var_Columns.Def(0) = True"
end function
' An internal error occurs.
function Error as v (Error as N,Description as C)
oCascadeTree = topparent:CONTROL_ACTIVEX1.activex
? "Error"
? Description
end function
Dim oCascadeTree as P
Dim var_Appearance as P
oCascadeTree = topparent:CONTROL_ACTIVEX1.activex
oCascadeTree.BeginUpdate()
oCascadeTree.ImageSize = 16
oCascadeTree.ReplaceIcon("gAAAABgYACEHgUJFEEAAWhUJCEJEEJggEhMCYEXjUbjkJQECj8gj8hAEjkshYEpk8kf8ClsulsvAExmcvf83js5nU7nkCeEcn8boMaocXosCB9Hn09pkzcEuoL/fE+OkYB0gB9YhIHrddgVcr9aktZADAD8+P8CgIA==")
oCascadeTree.ReplaceIcon("C:\images\favicon.ico",0)
var_Appearance = oCascadeTree.VisualAppearance
var_Appearance.Add(4,"gBFLBCJwBAEHhEJAAEhABUYCg6AADACAxRDgMQBQKAAzQFAYbhkGCGAAGMZxRgmFgAQhFcZQSKUOQTDKMIziYBYfgkMIgSbJUgDGAkRRdDSOYDmGQYDiCIoRShOMIjHLUXxtDaIZwhEAoJb+RgAUY/cTzaAEUwHHiTKInaCQShsFYJUJAdRURQ9EwvCIZBpEWwLChENQwWLCNj2TScBwjCyqbale45ViqdoDU5EUiXJJ8ZxnECfYyrGjaMpCeKBUrGYTVRBIMxLLSia5oeJqMrnBpNVrIUgXCAGFwHK6BcauXIIDp6XoWWRbAAWDpVVzNNC3YzkCIceADHKiXxmVz4JLdGZ1QTGID2XaYaxWK4oZjsVSc4KDHbETbHFi9Fo3NaaxGisew+GYc4HlCR5NAAAIIEkQJSGMOgdE4RhYDwJJsAaAYQgmPpolCWgSCiBJzjcEIAkQXIBm8d5UhOQgCDUIBDDJDhgggJgKgKYJIDSVoDk8KBFF4OohEMZgWDsYYDj4GoGmGSB2B6B5iAiBgYDsYRjGSbIJo4RgqDuIpIAoLoLmMCJGDKDJjJiLA7xqUAAgGTwYnYPoPmQCQGEKEJkEkFg9gGY44BoRoSmSSQ2EKEggHgRhShSZRJFYVoVmWCRmFKFAgGOTheheZgJgYYoYmYSYWGaF4lkMMJ0hqZpJjYbobmcCZGHKHJmjmJh0h2Z4JmYcIaE8WZ2H6H5oAoBoCiCaBKBYfdjGoJoKiKaJKDaDojmkChGgmIgpCoVoWiWaJZiSd4mmmSh2h6J5qAqBoiiiaY5iSeIpmqComiqKpqkqNouiuah6hqMIsmsSpWiuGhP1kOoumuSp2j6L5sAsBo54gKwWkaMZsgsJpKjKbJLDaRYxYWRpSjSbIZiSe41m2CxmlqNptksdpejebR5iSfI4m4S4W16boLiaao6m5fJ9jubwLkaco8m8S5WnaPZunuOp4j6b5Lnac4SA0PAGlgP4wEwFwGkGcIMCcCpCnCCxiA8NYAAmMJfkSbhFCcFpFnGDBnBqRpUhuEwTDeZ5lHCfw6HIQxLCaAxygyJwqgGcATE4FA6hWY4tjEAAQBAgIA==")
oCascadeTree.BackColorHeader = 80135878
oCascadeTree.SelBackColor = 67108864
oCascadeTree.SelForeColor = 65536
oCascadeTree.Template = "Background(20) = SelBackColor" // oCascadeTree.Background(20 '14 + ) = oCascadeTree.SelBackColor
oCascadeTree.Template = "Background(21) = SelForeColor" // oCascadeTree.Background(21 '15 + ) = oCascadeTree.SelForeColor
oCascadeTree.Template = "Background(26) = BackColor" // oCascadeTree.Background(26 '8 + exSplitBar) = oCascadeTree.BackColor
oCascadeTree.Template = "Background(27) = ForeColor" // oCascadeTree.Background(27 '9 + exSplitBar) = oCascadeTree.ForeColor
oCascadeTree.Template = "Background(32) = -1" // oCascadeTree.Background(32 '20 + ) = -1
oCascadeTree.Template = "Background(0) = 67108864" // oCascadeTree.Background(0 '0 + ) = 67108864
oCascadeTree.Template = "Background(41) = 67174657" // oCascadeTree.Background(41) = 67174657
oCascadeTree.Template = "Background(1) = 67109119" // oCascadeTree.Background(1 '1 + ) = 67109119
oCascadeTree.HeaderAppearance = 4
oCascadeTree.BackColorSortBar = oCascadeTree.BackColor
oCascadeTree.BackColorLevelHeader = oCascadeTree.BackColor
oCascadeTree.Mode = 3
oCascadeTree.DataSource = "Source=C:\Program Files\Exontrol\ExCascadeTree\Sample\Access\cities.accdb;Member=Select * FROM Countries;Key=CountryCode;Tag=Country;Name=CountryName >>> Member=Select * FROM States WHERE CountryCode IN (<%Parent.CountryCode%>);Key=StateCode;Name=StateName;Tag=State ||| Member=Select * FROM Cities WHERE CountryCode IN (<%Parent.CountryCode%>);Tag=City;Name=Name >>> Member=Select * FROM Cities WHERE CountryCode IN (<%Parent.Parent.CountryCode%>) AND StateCode IN (<%Parent.StateCode%>);Tag=City;Name=Name"
oCascadeTree.Select = "US\MN"
oCascadeTree.EndUpdate()
|
|
88
|
Can I set a filter that automatically adds a * before and after the word, so the user can just search for 'cat' and it becomes '*cat*' automatically
Dim h as N
Dim oCascadeTree as P
Dim var_Column as P
Dim var_Items as P
Dim var_View as P
oCascadeTree = topparent:CONTROL_ACTIVEX1.activex
var_View = oCascadeTree.View
var_View.BeginUpdate()
var_View.ColumnAutoResize = .t.
var_View.HeaderAppearance = 4
var_View.HeaderHeight = 24
var_View.LinesAtRoot = -1
var_View.Columns.Clear()
var_Column = var_View.Columns.Add("Items")
var_Column.DisplayFilterButton = .t.
var_Column.DisplayFilterPattern = .t.
' var_Column.Def(21) = "*<%filter%>*"
oCascadeTree.TemplateDef = "dim var_Column"
oCascadeTree.TemplateDef = var_Column
oCascadeTree.Template = "var_Column.Def(21) = `*<%filter%>*`"
var_Column.FilterType = 3
var_Column.Filter = "1"
var_Items = var_View.Items
h = var_Items.AddItem("Root 1")
var_Items.InsertItem(h,,"Child 1")
var_Items.InsertItem(h,,"Child 2")
' var_Items.ExpandItem(h) = .t.
oCascadeTree.TemplateDef = "dim var_Items,h"
oCascadeTree.TemplateDef = var_Items
oCascadeTree.TemplateDef = h
oCascadeTree.Template = "var_Items.ExpandItem(h) = True"
h = var_Items.AddItem("Root 2")
var_Items.InsertItem(h,,"Child 1")
var_Items.InsertItem(h,,"Child 2")
var_View.ApplyFilter()
var_View.EndUpdate()
|
|
87
|
Highlight the leaf items
Dim h as N
Dim hR as N
Dim oCascadeTree as P
Dim var_Column as local
Dim var_Columns as P
Dim var_ConditionalFormat as local
Dim var_Items as P
Dim var_View as P
oCascadeTree = topparent:CONTROL_ACTIVEX1.activex
var_View = oCascadeTree.View
var_View.BeginUpdate()
' var_View.ConditionalFormats.Add("%CC0=0").ForeColor = 8421504
var_ConditionalFormat = var_View.ConditionalFormats.Add("%CC0=0")
oCascadeTree.TemplateDef = "dim var_ConditionalFormat"
oCascadeTree.TemplateDef = var_ConditionalFormat
oCascadeTree.Template = "var_ConditionalFormat.ForeColor = 8421504"
var_View.HeaderAppearance = 4
var_View.HeaderHeight = 24
var_View.LinesAtRoot = -1
var_Columns = var_View.Columns
' var_Columns.Add("Item").Width = 16
var_Column = var_Columns.Add("Item")
oCascadeTree.TemplateDef = "dim var_Column"
oCascadeTree.TemplateDef = var_Column
oCascadeTree.Template = "var_Column.Width = 16"
var_Columns.Add("Desc")
var_Items = var_View.Items
hR = var_Items.AddItem("Root")
' var_Items.CellValue(hR,1) = "The root directory /"
oCascadeTree.TemplateDef = "dim var_Items,hR"
oCascadeTree.TemplateDef = var_Items
oCascadeTree.TemplateDef = hR
oCascadeTree.Template = "var_Items.CellValue(hR,1) = `The root directory /`"
h = var_Items.InsertItem(hR,,"Home")
' var_Items.CellValue(h,1) = "The home directory with user directories Alice and Bob"
oCascadeTree.TemplateDef = "dim var_Items,h"
oCascadeTree.TemplateDef = var_Items
oCascadeTree.TemplateDef = h
oCascadeTree.Template = "var_Items.CellValue(h,1) = `The home directory with user directories Alice and Bob`"
var_Items.InsertItem(h,,"Alice")
var_Items.InsertItem(h,,"Bob")
' var_Items.ExpandItem(h) = .t.
oCascadeTree.TemplateDef = "dim var_Items,h"
oCascadeTree.TemplateDef = var_Items
oCascadeTree.TemplateDef = h
oCascadeTree.Template = "var_Items.ExpandItem(h) = True"
h = var_Items.InsertItem(hR,,"Etc")
' var_Items.CellValue(h,1) = "The etc directory with one configuration file"
oCascadeTree.TemplateDef = "dim var_Items,h"
oCascadeTree.TemplateDef = var_Items
oCascadeTree.TemplateDef = h
oCascadeTree.Template = "var_Items.CellValue(h,1) = `The etc directory with one configuration file`"
h = var_Items.InsertItem(h,,"nginx.conf")
' var_Items.CellValue(var_Items.InsertItem(hR,,"Var"),1) = "The var directory"
oCascadeTree.TemplateDef = "dim var_Items"
oCascadeTree.TemplateDef = var_Items
oCascadeTree.Template = "var_Items.CellValue(InsertItem(hR,,`Var`),1) = `The var directory`"
' var_Items.ExpandItem(hR) = .t.
oCascadeTree.TemplateDef = "dim var_Items,hR"
oCascadeTree.TemplateDef = var_Items
oCascadeTree.TemplateDef = hR
oCascadeTree.Template = "var_Items.ExpandItem(hR) = True"
var_View.EndUpdate()
|
|
86
|
Highlight the parent items
Dim h as N
Dim hR as N
Dim oCascadeTree as P
Dim var_Column as local
Dim var_Columns as P
Dim var_ConditionalFormat as local
Dim var_Items as P
Dim var_View as P
oCascadeTree = topparent:CONTROL_ACTIVEX1.activex
var_View = oCascadeTree.View
var_View.BeginUpdate()
' var_View.ConditionalFormats.Add("%CC0").ForeColor = 255
var_ConditionalFormat = var_View.ConditionalFormats.Add("%CC0")
oCascadeTree.TemplateDef = "dim var_ConditionalFormat"
oCascadeTree.TemplateDef = var_ConditionalFormat
oCascadeTree.Template = "var_ConditionalFormat.ForeColor = 255"
var_View.HeaderAppearance = 4
var_View.HeaderHeight = 24
var_View.LinesAtRoot = -1
var_Columns = var_View.Columns
' var_Columns.Add("Item").Width = 16
var_Column = var_Columns.Add("Item")
oCascadeTree.TemplateDef = "dim var_Column"
oCascadeTree.TemplateDef = var_Column
oCascadeTree.Template = "var_Column.Width = 16"
var_Columns.Add("Desc")
var_Items = var_View.Items
hR = var_Items.AddItem("Root")
' var_Items.CellValue(hR,1) = "The root directory /"
oCascadeTree.TemplateDef = "dim var_Items,hR"
oCascadeTree.TemplateDef = var_Items
oCascadeTree.TemplateDef = hR
oCascadeTree.Template = "var_Items.CellValue(hR,1) = `The root directory /`"
h = var_Items.InsertItem(hR,,"Home")
' var_Items.CellValue(h,1) = "The home directory with user directories Alice and Bob"
oCascadeTree.TemplateDef = "dim var_Items,h"
oCascadeTree.TemplateDef = var_Items
oCascadeTree.TemplateDef = h
oCascadeTree.Template = "var_Items.CellValue(h,1) = `The home directory with user directories Alice and Bob`"
var_Items.InsertItem(h,,"Alice")
var_Items.InsertItem(h,,"Bob")
' var_Items.ExpandItem(h) = .t.
oCascadeTree.TemplateDef = "dim var_Items,h"
oCascadeTree.TemplateDef = var_Items
oCascadeTree.TemplateDef = h
oCascadeTree.Template = "var_Items.ExpandItem(h) = True"
h = var_Items.InsertItem(hR,,"Etc")
' var_Items.CellValue(h,1) = "The etc directory with one configuration file"
oCascadeTree.TemplateDef = "dim var_Items,h"
oCascadeTree.TemplateDef = var_Items
oCascadeTree.TemplateDef = h
oCascadeTree.Template = "var_Items.CellValue(h,1) = `The etc directory with one configuration file`"
h = var_Items.InsertItem(h,,"nginx.conf")
' var_Items.CellValue(var_Items.InsertItem(hR,,"Var"),1) = "The var directory"
oCascadeTree.TemplateDef = "dim var_Items"
oCascadeTree.TemplateDef = var_Items
oCascadeTree.Template = "var_Items.CellValue(InsertItem(hR,,`Var`),1) = `The var directory`"
' var_Items.ExpandItem(hR) = .t.
oCascadeTree.TemplateDef = "dim var_Items,hR"
oCascadeTree.TemplateDef = var_Items
oCascadeTree.TemplateDef = hR
oCascadeTree.Template = "var_Items.ExpandItem(hR) = True"
var_View.EndUpdate()
|
|
85
|
Highlight the item being expanded or collapsed
Dim h as N
Dim hR as N
Dim oCascadeTree as P
Dim var_Column as local
Dim var_Columns as P
Dim var_ConditionalFormat as local
Dim var_Items as P
Dim var_View as P
oCascadeTree = topparent:CONTROL_ACTIVEX1.activex
var_View = oCascadeTree.View
var_View.BeginUpdate()
' var_View.ConditionalFormats.Add("%CX0").Bold = .t.
var_ConditionalFormat = var_View.ConditionalFormats.Add("%CX0")
oCascadeTree.TemplateDef = "dim var_ConditionalFormat"
oCascadeTree.TemplateDef = var_ConditionalFormat
oCascadeTree.Template = "var_ConditionalFormat.Bold = True"
var_View.HeaderAppearance = 4
var_View.HeaderHeight = 24
var_View.LinesAtRoot = -1
var_Columns = var_View.Columns
' var_Columns.Add("Item").Width = 16
var_Column = var_Columns.Add("Item")
oCascadeTree.TemplateDef = "dim var_Column"
oCascadeTree.TemplateDef = var_Column
oCascadeTree.Template = "var_Column.Width = 16"
var_Columns.Add("Desc")
var_Items = var_View.Items
hR = var_Items.AddItem("Root")
' var_Items.CellValue(hR,1) = "The root directory /"
oCascadeTree.TemplateDef = "dim var_Items,hR"
oCascadeTree.TemplateDef = var_Items
oCascadeTree.TemplateDef = hR
oCascadeTree.Template = "var_Items.CellValue(hR,1) = `The root directory /`"
h = var_Items.InsertItem(hR,,"Home")
' var_Items.CellValue(h,1) = "The home directory with user directories Alice and Bob"
oCascadeTree.TemplateDef = "dim var_Items,h"
oCascadeTree.TemplateDef = var_Items
oCascadeTree.TemplateDef = h
oCascadeTree.Template = "var_Items.CellValue(h,1) = `The home directory with user directories Alice and Bob`"
var_Items.InsertItem(h,,"Alice")
var_Items.InsertItem(h,,"Bob")
' var_Items.ExpandItem(h) = .t.
oCascadeTree.TemplateDef = "dim var_Items,h"
oCascadeTree.TemplateDef = var_Items
oCascadeTree.TemplateDef = h
oCascadeTree.Template = "var_Items.ExpandItem(h) = True"
h = var_Items.InsertItem(hR,,"Etc")
' var_Items.CellValue(h,1) = "The etc directory with one configuration file"
oCascadeTree.TemplateDef = "dim var_Items,h"
oCascadeTree.TemplateDef = var_Items
oCascadeTree.TemplateDef = h
oCascadeTree.Template = "var_Items.CellValue(h,1) = `The etc directory with one configuration file`"
h = var_Items.InsertItem(h,,"nginx.conf")
' var_Items.CellValue(var_Items.InsertItem(hR,,"Var"),1) = "The var directory"
oCascadeTree.TemplateDef = "dim var_Items"
oCascadeTree.TemplateDef = var_Items
oCascadeTree.Template = "var_Items.CellValue(InsertItem(hR,,`Var`),1) = `The var directory`"
' var_Items.ExpandItem(hR) = .t.
oCascadeTree.TemplateDef = "dim var_Items,hR"
oCascadeTree.TemplateDef = var_Items
oCascadeTree.TemplateDef = hR
oCascadeTree.Template = "var_Items.ExpandItem(hR) = True"
var_View.EndUpdate()
|
|
84
|
Are there any properties to set text margins at tooltip, like Margins="5,5" (method 1). Margins is used to get some space between text and the tooltips border
' Occurs when the user moves the mouse.
function MouseMove as v (Button as N,Shift as N,X as OLE::Exontrol.CascadeTree.1::OLE_XPOS_PIXELS,Y as OLE::Exontrol.CascadeTree.1::OLE_YPOS_PIXELS)
oCascadeTree = topparent:CONTROL_ACTIVEX1.activex
oCascadeTree.ShowToolTip("new content","",,"+8","+8")
end function
Dim oCascadeTree as P
oCascadeTree = topparent:CONTROL_ACTIVEX1.activex
oCascadeTree.ToolTipMargin = "16,8"
|
|
83
|
Force hover-all feature
Dim oCascadeTree as P
oCascadeTree = topparent:CONTROL_ACTIVEX1.activex
oCascadeTree.Template = "Background(500) = -1" // oCascadeTree.Background(500) = -1
|
|
82
|
Disable hover-all feature (Windows 11 or greater)
Dim oCascadeTree as P
oCascadeTree = topparent:CONTROL_ACTIVEX1.activex
oCascadeTree.Template = "Background(500) = 1" // oCascadeTree.Background(500) = 1
|
|
81
|
Display a custom tooltip
' Occurs when the user moves the mouse.
function MouseMove as v (Button as N,Shift as N,X as OLE::Exontrol.CascadeTree.1::OLE_XPOS_PIXELS,Y as OLE::Exontrol.CascadeTree.1::OLE_YPOS_PIXELS)
oCascadeTree = topparent:CONTROL_ACTIVEX1.activex
oCascadeTree.ShowToolTip("new content","",,"+8","+8")
end function
Dim oCascadeTree as P
oCascadeTree = topparent:CONTROL_ACTIVEX1.activex
|
|
80
|
Shows the tooltip of the object moved relative to its default position
' A view has been created.
function CreateView as v (View as OLE::Exontrol.CascadeTree.1::IView)
Dim bColumnAutoResize as
Dim bSingle as
Dim var_View as P
oCascadeTree = topparent:CONTROL_ACTIVEX1.activex
bSingle = oCascadeTree.FormatABC("value > 0 ? 0 : -1",oCascadeTree.View.Index)
bColumnAutoResize = oCascadeTree.FormatABC("value = `City` ? 0 : -1",oCascadeTree.View.Tag)
var_View = oCascadeTree.View
var_View.ColumnAutoResize = .f.
var_View.SingleSel = .f.
end function
' Occurs when the user moves the mouse.
function MouseMove as v (Button as N,Shift as N,X as OLE::Exontrol.CascadeTree.1::OLE_XPOS_PIXELS,Y as OLE::Exontrol.CascadeTree.1::OLE_YPOS_PIXELS)
oCascadeTree = topparent:CONTROL_ACTIVEX1.activex
oCascadeTree.ShowToolTip("<null>","<null>",,"+8","+8")
end function
Dim oCascadeTree as P
oCascadeTree = topparent:CONTROL_ACTIVEX1.activex
oCascadeTree.BeginUpdate()
oCascadeTree.Mode = 515 'exAutoFitOnResizeClient + exSplitFixCascadeMode
oCascadeTree.DataSource = "Source=C:\Program Files\Exontrol\ExCascadeTree\Sample\Access\cities.accdb;Member=Select * FROM Countries;Key=CountryCode;Tag=Country;Name=CountryName >>> Member=Select * FROM States WHERE CountryCode IN (<%Parent.CountryCode%>);Key=StateCode;Name=StateName;Tag=State ||| Member=Select * FROM Cities WHERE CountryCode IN (<%Parent.CountryCode%>);Tag=City;Name=Name >>> Member=Select * FROM Cities WHERE CountryCode IN (<%Parent.Parent.CountryCode%>) AND StateCode IN (<%Parent.StateCode%>);Tag=City;Name=Name"
oCascadeTree.EndUpdate()
|
|
79
|
ImageSize property on 32 (specifies the size of control' icons/images/check-boxes/radio-buttons)
' A view has been created.
function CreateView as v (View as OLE::Exontrol.CascadeTree.1::IView)
' Items.ItemHeight(0) = View.DefaultItemHeight
' FilterBarFont.Size = Me.Font.Size
' ToolTipFont.Size = Me.Font.Size
Dim var_Columns as local
Dim var_Object as P
Dim var_View as P
oCascadeTree = topparent:CONTROL_ACTIVEX1.activex
var_View = oCascadeTree.View
var_View.DefaultItemHeight = 36
var_View.HeaderHeight = var_View.DefaultItemHeight
var_View.SortBarHeight = var_View.DefaultItemHeight
var_View.Indent = 26
' var_View.CheckImage(0) = 16777216
oCascadeTree.TemplateDef = "dim var_View"
oCascadeTree.TemplateDef = var_View
oCascadeTree.Template = "var_View.CheckImage(0) = 16777216"
' var_View.CheckImage(1) = 33554432
oCascadeTree.TemplateDef = "dim var_View"
oCascadeTree.TemplateDef = var_View
oCascadeTree.Template = "var_View.CheckImage(1) = 33554432"
' var_View.CheckImage(2) = 50331648
oCascadeTree.TemplateDef = "dim var_View"
oCascadeTree.TemplateDef = var_View
oCascadeTree.Template = "var_View.CheckImage(2) = 50331648"
var_View.EnsureVisibleColumn("Function")
var_Object = var_View.Columns.Item("Function")
' var_View.Columns.Item(0).Def(0) = .t.
var_Columns = var_View.Columns.Item(0)
oCascadeTree.TemplateDef = "dim var_Columns"
oCascadeTree.TemplateDef = var_Columns
oCascadeTree.Template = "var_Columns.Def(0) = True"
end function
' An internal error occurs.
function Error as v (Error as N,Description as C)
oCascadeTree = topparent:CONTROL_ACTIVEX1.activex
? "Error"
? Description
end function
Dim oCascadeTree as P
Dim var_Appearance as P
oCascadeTree = topparent:CONTROL_ACTIVEX1.activex
oCascadeTree.BeginUpdate()
oCascadeTree.ImageSize = 32
oCascadeTree.Font.Size = 16
oCascadeTree.Images("gBJJgBAIDAAEg4AEEKAD/hz/EMNh8TIRNGwAjEZAEXjAojKAjMLjABhkaABAk0plUrlktl0vmExmUzmk1m03nE5nU7nk9miAoE+oVDolFo1HpFJpU5h8Sf9OqFNqUOqNUqdPq9VrFWrlbr1QpdhAFAkFis1ntFptVrtkrpszrNvmVxqk3uVtm1kmF3sdBvF/wGBmV+j9BYGHwWJulfxdax2NyFdx2JlV6l9Nw7AAGZymdz2Cy2GxErvWcz9ivlwyV21cuxugwktzGIzmvwtl0+53U5y0a0Wazmmyu/3dCyOMyXHx/J5nIr9q3uyqnBxFN3G46ma4vb7mD2Ng4nZze00fDkHC7t7us2rOX5tguetpHRlmz4HVqnXk1PjHO+CMPo9MBMC+j2vC8j7wS8cFNI4kBo05UIvfCT/NsnsApU+0Fqg/T+oy/kPxC0sEQfErKQK96+w28UWRI8UGvO8sTLS9r2PWmsMJTDTask3CsIbIEQRA3shOXEEAO/GclJ9FEKrrA8FRbKMXRIlb0JxCkjS1LMswhCcvuel0cv26cSMa8Ufx+2sQwhEUoSXOCjSbLcnxjKc7sdKUVyq28NtVI71P9P7JxtQEapjQ6fzfM8zPfNE2PhIsLL63E40slk5y7N89LcyU9SvMb3SdUc6VJLj5VLVLfO/PS9KzNFHUa/0XyBD0dxlS9cxhMlTRSoNXypPErWDPyfNS+MwprRNO0FD8wVVZ1AI08URwVRjtJ1WCn21QkkUrXVLVPQS/XIkFgTxT9iONZ9xVTdq+L1eKg3kkF6Upe68XtfV51/MtrVjBlwYFL1ev8y1/P6/lyzzYl02wntj0RVFmS1Qa+M5as93QxEUW9e993rfmQ2+vy65M/mL1lhl/2bj2ByVduMtNhCJT9hdz41nN14Ld12Z9UjfI/oUAaGseiw6+uFLLhcVabJOS5RqOE0BHlZ5VnEr5fOMs3st+aa/bbRzrJGV51Y0b0DbqaWXZD90hIsPbjWu52+6Wyadpe66hhO+P/XioW5rD8ZbrUZuVg6n1dsE/cXmewu1m9PVwnd35/nueXho/NaJzmjc61W76esuT77eG8pTquy9TwWH8LEzG8RDfFalx3Gcfvna9rvG/cptGLd9tuI6TZOP5Fiqi99vea+X4VRcBq/JZZtVQ9cwSs5lsXE372+a9z7PbfB3VVqHyvMctLto8uob6eV0m/cD6MN2v+T33t6sBut42vdv2bJ8a997x2maFJfK+qArbGJPEKE+1qTflMsIdW/GCJX17KcT6/czr/X+u1g29B7j/4BQfWkkx4zIHisjhPCmE0K4SwtXM+d4BvHRwNZOoBph9IJvPek9d40FoMJxf691jj2ywQQcHEWET4XJwkTszlVqm2GokewxtBT1DpQjRxDN0rUVDNKdC3lb6tzNOwh6upMSSYfv4YBCl/bsn9PxiFCEo7SI6Obc9HeOrnY8x4jtHtdpN4GRbaorhsbu18Pph5CiHymI0RpSXGJ/z2oUOxYxG858AyiI+bfJtuTcG5yelBJyT8okhqFd4a5yxL0rvulYtKCsZiWxWkc1s1cRoxxwhA31DLE0mR9l9HqX8fJgTDmFMVH0MIsRzVYnwnMi1dyzmhLt2kS2pxIiU62Wj5ptQGlSYFakLonTUJNLKaM5WzlffEkuFkk5wTrhVO2eE7G6lJhxFFYUZ55zmn0WuBCD4pzhirFCKkbomsOoIYmZx5p90LoYWGPdD5g0QmJRKYxbZ6zYoVQ2jVGylSak7KSkFH6RSjpHKFuU+YMyNo5SulkC6I0vonTCitMXPoEpVS2H5FQfEqp2R1opIgAEkJISYARTCukOhmPNI5Ex/wzGHUsicMwA1LHgQ90Y/KpoQHAD+pB/R4NzIaMAB9Xaw1gqaAOsh/A/ptIkWUfhGK1kZH8RgH5GqvgArqRmt4AAPrTroRofBGADkqr6Rmu4D7CEaHARiwpJrEEZsXXwlVjyMWRsaRqwdkLGNBABZmytmyMnaINZqyVpLR2ftKAAAdd6h2osbaskdiq4EZtgSmyNcbVWRJNXe3AA7REar3b0stlAAXBtoRmvJGLjEYAHUWsFcwCD/rnaop9aEICMAPdK5hT6xpeuzdOtAgKuJeGfdq6ggEbkTvAP+p9UCHXrvKkcgIA==")
var_Appearance = oCascadeTree.VisualAppearance
var_Appearance.Add(1,"gBFLBCJwBAEHhEJAAEhABfICg6AADACAxRDgMQBQKAAzQFAYbhkGCGAAGMZxRgmFgAQhFcZQSKUOQTDKMIziaQAGgkNQwCSLIwjNIsBxPFKVQChEYxSjKA40SJNUgyj6CCY+QLIE5PfQgAL9I6eJABCCSQKkYx0HScRiwPBIbAZAYhCZqaKhWgkKI/WBQIABRDVLx5ESiLRtKy7Mq2bpvXBcNxXHalaztO68LxvKyqHb5fJ/PpgL4YHgmC4NQ7EMRwF6rfbyfZ7Xg/ORPTijZ4sdzMHTzJyscx3HqfaBoOaZU5eMLceTUMofHIndxCcasPbsOatVqjG5sYjcGC3La9cz3Pq/bpuDCbMxuaK1TrYXr1TTrcofBDldAxXRKDxRDWVhLnYOw9i6XxzjuXprCaOoKB6EwbiCZZCGOdZYlcT4xHmbhMnwNxtn+G5bmqdZ7n4Pw/i+X5zm+dQ9g4CAFjsfAJheOI8HsDoWDWTB/lwSAQkmA5PEgRYoDyDwYFYFoFmGCBmBqBphDgRJ0gOTIYBGRB/lyRh0iSCZbjYWJzgWDwIjYLoLmMCJGDKDJjBgWgqG6YhyhGHRzA2aJ1mCABOAiOJvhCZBJBYRoRmSCQmEqEQimkAZgg8TZnDCV4UkmCUmBKZYJGYWoWCUUhiFMNZckNUh2GENoaGaGZmgmJhqhqZpGGIEx2GYIxSGGGJdggWJth2Z4JmYeoemeSZ2H6H4hGmQhihyTRHGYLg7CiCgmgqIpokoNoOiOaJ4jqAochqaZGgaCxpAoZoaiaaJqEmWIcGgShcnCJwqEqFoR3YOoFlgchflqNouiuawHmWSYqGkWZQhcatzmaOoumuSp2j6L5bBaKo0GQKRnGGCxqiyCwmkqMpsksNpOGUGI7A0ew1G0Rxlg0PptgsZuDG2Sx2l6N5tnYNZZjUDRXDCVo5l2FoymqOpukuNpujubwLjmWY5k0ZwxkaFxYlWdp6j6b5Lnafo/nABQdg2FxcUsY5BkmXAkmeQpckwNRrkKTh8CSHZBk4NwyC4KxxgMDwakOMZDn8GgwnGAo2C4cwthMcwmCcMoHBMHRehwTIghySYNksZwcH4HBMEsHx5hyPItiweYxnwSZEH4Mozn0fR+DMAo7EYJ50gkdZelKdNql2UgJn0GIukwH4HicQRai2GI4mSVpNl0dZGledgNgcYpYDWUx3FsOQi5YV5anaTY3G6W53A2RxylydxFjiaxEFCCgBBAQ==")
var_Appearance.Add(2,"gBFLBCJwBAEHhEJAAEhABcoFg6AADACAxRDgMQBQKAAzQFAYbhkGCGAAGMZxRgmFgAQhFcZQSKUOQTDKMIziaQAGgkNQwCSLIwjNIsBxPFKVQChEYxSjKA40SJNUgyj6CCY+QLIE5PfQgAL9I6eJABCCSQKkYx0HScRiwPBIbAZAYhCZqaKhWgkKI/WBQIABRDVLx5ESiLRtKy7Mq2bpvXBcNxXHalaztO68LxvKyqHb5fJ/PpgL4YHgmC4NQ7EMRwF6rfbyfZ7Xg/ORPTijZ4sdzMHTzJyscx3HqfaBoOaZU5eMLceTUMofHIndxCcasPbsLpOS5LNKsaxmWLYdhFdTxQi6LpvfA8BwXC6JY7heRYRbFbYxRjGNi1TS7G4nGKd5WGuL4UHwI4VkaYxii8V4pgQMgVBQdQ5iCTYGi8T4vlWbJ3nuPg+l+H5AlSCg6ByPBoE8Ap3jqYxhBido5g0OgOGOGI4CsSpCCAcgcAuEokiEN5NCKfJ9DyTRjnScg1CEYxOBmBpPCgagdgcIZoHoGIFA4AxQkCAxKAgKBwgGSpIBCZhjF2E5UnQPQMiMCJBCIBwxkSQgsgo+JtDKT4ziiQw+k6EwAnsOgLnkHI+yCQ4iEuE4klkPhShEJBpAoPgymOMoaDgHBjFMBgyD0HYTiCZSZhIIIGC4ChiHSew5kwM5omILZPiOBI0hwZw5kodIdA+M4Uj4PxOmMSJ9DuTQzmyZgviceZagaHVfj4awwmaAh2GUIYmCOEZZDaDRDFGdwcg4EwyHMN4LBOaJbCoaZqgKH8qkMfIyD8DozDyfA7A0Coui0OpMmOZJdCsahKg6NooioChwmEMxLEoXJbDUTRXGSUgykyMgQG0GpPHMdI3D4TRCgSeQ0kmaw+lGNAtCOZJVCiT5DhyRQwAqMg0EoDBBGEGAsASC5yiSCw+k4Mp6lWNQuksTpRjMTxDGzJwGmGMpDDKXYTECSAxl6Q5olkK4PgMMIVkASRMBMBgzEkaZEjsNALhIZA6AeQBgk0ZJEgAAJ0CIAgODMNIsD6DRih9uYwFyAwfCUb5ijmbI+gwdxkk8MZMGeMpPCkDxzBiC5MHMPJLDSSROFMLIoBEQogEMFJPnENYQGgE4DCOaJfC7tYkhGTQ0kyWwykuXpMiyRpKjKR4wngM4JmOWJACCdYtHMWw+Eych4nINYLAEYA8AgdAEEsQZajaQoog4GxPiMVIolcdxNG8XZVkmNoRwWRVBlFeFEeAZQJgnFiHgHwcAhjhHgGMSI5xki2CyA4EQsA3i0HkBsLwKRFgAHcPkHopBJBcBeDUYI7xyDOHqKkWo2hLCsDIBIY4qQ5A8DoMMYwOAqCSBGKgU4yB2iDBwIgB4hxQgAAWNgBoAgsBdEcBUQ4sQ9A/HqD0JI8RpBzH2OYVgahLBHFiJQJweQiDhDUE4SAARQAzFsG0EQwA6AOWSBkFgVAIBCHeGERQFQiCQHeFkC4vkiB8DyB4F4QxVDvGMNEOQexMjlBeOAKQiQLgfDA7QEAaRiBdEkH8TI7AZiFBAGYBIABWjYBiGACioQ4C1A+AMMgWhfgxHgPsT4URIB0COKgPgjRwiAB8AYUArxBgCF6J4GY5hrAOCAPAAoGRRCsCIMEXATXfgAF8BMJwURuEQDgD4Q4OBoAeHGFgLIwQrC2D0JoSQ+QvhrHoSgQI8AbDFGID8C4Ah6BQAQAASACwgCYCMAUMARAvCKAiAMCAokeCKBEOAKgCBoDaHuMsEAqwJDiACDURg8R6gPCyDofYWAhgoDIJ4ZAuhoiGAYGgRoQw/A0GMMga4GwxiEDeIYYInATCDBQAoBAwAoDlA0KMBoVRGiDGwDQUYIRsgaGGDgM4LAwDWB8EcIA1APhjEgGQVwgRIgjFIIQHokgZA+CSEkLIKQSjHAwMsCwDAsAEB2ABTIwRwD6A8CMToSxkAxE4HYIw+BsgbBEDAHYBwojCBoIYFgXSjABE4MsHIbQWhlGILQS4UhvBdAUKEEwHgxDAAABQQQUAhgKHiDwE4JS4A7BGLQZwCR4gaBEMUYAqgKApHgGwVAIRNgvBMMQXImwZDtE4I8UIyAZCDCAE8AwrhgAdEEBACQLRCg4FEB4AYtA7CdEiPQMoJAMDNCkOMCAXAFDhH0D0Q4EgfAaGSK4NYzRUj9BuCgAgswOBjB4Fqpw8B2ADAwE4A4Qx2DAE6JIaQPQGhAGKBcIQ5B5gHByKIFARwADbAyKUfgdBKBBGyEcVIAB/ijHoIoSA0gdBNl+OATYERZgBGSDYWIWAUCEGKA4FAhR7CIBtYQGYZg4CMAiKEcAOwkBjHWE8Z4lQgA+DkBoTohwwCeAaMEEgBQCCABgHMRwQRhhMEWFQd4HwZgwDqFESItAbAGEANCpINAzANCCJkK4ah+heFYBURwsQrS2CsMYMoWGBhYDWI0EInQgiApXaOVI1QFDsC8MUNoMBMA1HMJga4eh+BeAWOgNNowGjYzCGAAwax+iJBeBVT4gxoBIAGFsJFBxgBiGKFkKQ7g5DFFQEcAo4AzDDACKEQQLgCiJDYB0MgRBCCQAgQEA==")
var_Appearance.Add(3,"gBFLBCJwBAEHhEJAAEhABQ4Fg6AADACAxRDgMQBQKAAzQFAYbhkGCGAAGMZxRgmFgAQhFcZQSKUOQTDKMIziaQAGgkNQwCSLIwjNIsBxPFKVQChEYxSjKA40SJNUgyj6CCY+QLIE5PfQgAL9I6eJABCCSQKkYx0HScRiwPBIbAZAYhCZqaKhWgkKI/WBQIABRDVLx5ESiLRtKy7Mq2bpvXBcNxXHalaztO68LxvKyqHb5fJ/PpgL4YHgmC4NQ7EMRwF6rfbyfZ7Xg/ORPTijZ4sdzMHTzJyscx3HqfaBoOaZU5eMLceTUMofHIndxCcasPbsLpOS5LNKsaxmWLYdhFdTxQi6LpvfA8BwXC6JY7heRYRbFbYxRjGNi1TS7G4nGKd5WGuL4UHwI4VkaYxii8V4pgQMgVBQdQ5iCTYGi8T4vlWbJ3nuPg+l+H5AlSCg6ByPBoE8Ap3jqYxhBido5g0OgOGOGI4CsSpCCAcgcAuEosiYN5NHMOJ+D4TpTnSeQ7CEY4uBmBpPhgagdgcIZoHibIEyUBJZDQIJShoCgcCAcoyAQOYYlcZJ1D0DxDCiQgwEiAZMHEMJLFKPJ9D2DoDnidQ4k+Y5QmKEROBkIhKD0JIZDIS4TGUCQuEeEJjnOIg8CuY4RkYNgwGMM5RllGpThDRYIGKZIpCkJFUH0PINyWcQ3CaaZCG+HBnEOTJhD8Tx4GoeQ/GcaZSHOH5nCmQhshoZhihYYwhiYA4RlkNoNEMUZ3ByDjwEsPxOnMaJ9DuDR6F6GYmCmKh0nANtMioP4Gg8aoSiIO5NhodociqaY6GaFYkEyOg8lsNRNTaUgykyMgQG0GpPiONJbD8DpDEyfA6k0KwOkWMQsGsAJU0SagwkoJQJDIPISCQCJTGSUwyGaM4KkmMgtksHpFjAZ4TGCBAbgaSpcksdhNAMIJHHsD5TjSWWMAMOpwjyLwbk6cAz0KRJiDkDYzESCwiggcgcgYIQwCIEINCMCITj6TVxkMXp2j0cQLlCTo7E2F4ymkMZdhMPJHDGHpLAyVg+k4UwrCCSIyByDJ8DuDY8CiWY0kiXAXC6QJwFKGIjCeJpjgyezjlyDw6klHx5myRoMGwZwbkcToTEiew4kwbQfEmUgPkOKJUD4DpTHSHQmgkXI/ASTA1g0XIEDMTBimyfI7jSLYHEiUoPk0Fw/kadAsHGao8A0A5smEMJ2mNyg5gzJZwDgCpChyIZVyIZwFCMJEPASRkBqE+IcHInRcDxA2H4bIsx0AtDsIBpwZwYicD6BscwDwUBgHCIYaIfgtiVH2O4WgUwJjEFeAEQA7y4hMCiBMS4aRdB9A4CYE4LxljyBMHcDItBxinDCLcTYmgejBFQ9UTg9gFBOEmAQTI7A4iZGMGkQAWQ7jYA2HIL8BRAjDG4HcCwARbjZHiNoDw1nLDnGyNINQ+wjCpBMEgcovQUgICQJEcgWRuBvAyJ4d4ugpCUAINcHogxIgnDiM4N4axzD3F2JMTY/hRqYF6FsWIxhYAGGoAALQYgYirBwBEBwpAjBEAAIEIYsA2gOHCMAGgXAACIDmMITAUgFABH0D0I4WwvhNFGMAOIvxRD2GKNcMA8gjAPDCPwBogRPAxA8PgRwZRICYDED8RAXQEghEAN8DIgwIBdB4JYWwMgtiQHoFQKAiRFguFKGwGQhglDsEOVwEQQRkCKBwOIHgSREDRBYHEXQcQdD7GIGARQHRxipBrMobgewDCUCADsEYWAzgMHKHQDQxxsDzA6EMfAeQHB4GQDkUYPA0iECiKoGgRhcDdA2GMQA8AOCjDSPgHI4QnApAKBICwHg1A+BcAwcYsgbjGGQNkCIgRsA6EcBEWANADjsB0B8YYzQQDIGSBcEYZBCCPEkFIHQSgkgZAwG4IwBAbAYGGAgL4Ch4g8BOCQAA2KKC0GcAke4AAXAFCoHkDw4xbBFEcJkE4JRSiEFeJYKQVRMgJHODwX4xAgC/AsIIZAeAHDRG0HYI40RKCLEGDUI4jAghwBWIceA+whCpHMFYZYOQxglDMHMBQGxYjVHiAoBIPgfgHGwPsHYJRSB6A0IERQLhCjJHMA4OQoAoCOACLYGYSx8DpBQIMWQdRnDRH+DsE4fB3CeAmM67kAAXBFEIDYDI7wLBtEoEIfYNwjiUGGJQYQMAjCHEAO0C4zxW29CoCgfIxR9AKA6J8BgUAIhDGMIoJ40hqgwCgKETgnBhhqCGI0AIqgZhGDANQDIlBDCRGkCoJISR0g1BSKQOgfAzBRG0DYHARh4DeDAOwANuw8ApCKKkYg/RPhjBsH0J4yg5hPGWN0GwFBHQBFaDoQIURljFAoB4GgzRVzbBECQFQRQoguHGHANwDRdCKy8CgSIGwhhoDYJYYI1giBICSAEgI=")
var_Appearance.Add(4,"gBFLBCJwBAEHhEJAAEhABUYCg6AADACAxRDgMQBQKAAzQFAYbhkGCGAAGMZxRgmFgAQhFcZQSKUOQTDKMIziYBYfgkMIgSbJUgDGAkRRdDSOYDmGQYDiCIoRShOMIjHLUXxtDaIZwhEAoJb+RgAUY/cTzaAEUwHHiTKInaCQShsFYJUJAdRURQ9EwvCIZBpEWwLChENQwWLCNj2TScBwjCyqbale45ViqdoDU5EUiXJJ8ZxnECfYyrGjaMpCeKBUrGYTVRBIMxLLSia5oeJqMrnBpNVrIUgXCAGFwHK6BcauXIIDp6XoWWRbAAWDpVVzNNC3YzkCIceADHKiXxmVz4JLdGZ1QTGID2XaYaxWK4oZjsVSc4KDHbETbHFi9Fo3NaaxGisew+GYc4HlCR5NAAAIIEkQJSGMOgdE4RhYDwJJsAaAYQgmPpolCWgSCiBJzjcEIAkQXIBm8d5UhOQgCDUIBDDJDhgggJgKgKYJIDSVoDk8KBFF4OohEMZgWDsYYDj4GoGmGSB2B6B5iAiBgYDsYRjGSbIJo4RgqDuIpIAoLoLmMCJGDKDJjJiLA7xqUAAgGTwYnYPoPmQCQGEKEJkEkFg9gGY44BoRoSmSSQ2EKEggHgRhShSZRJFYVoVmWCRmFKFAgGOTheheZgJgYYoYmYSYWGaF4lkMMJ0hqZpJjYbobmcCZGHKHJmjmJh0h2Z4JmYcIaE8WZ2H6H5oAoBoCiCaBKBYfdjGoJoKiKaJKDaDojmkChGgmIgpCoVoWiWaJZiSd4mmmSh2h6J5qAqBoiiiaY5iSeIpmqComiqKpqkqNouiuah6hqMIsmsSpWiuGhP1kOoumuSp2j6L5sAsBo54gKwWkaMZsgsJpKjKbJLDaRYxYWRpSjSbIZiSe41m2CxmlqNptksdpejebR5iSfI4m4S4W16boLiaao6m5fJ9jubwLkaco8m8S5WnaPZunuOp4j6b5Lnac4SA0PAGlgP4wEwFwGkGcIMCcCpCnCCxiA8NYAAmMJfkSbhFCcFpFnGDBnBqRpUhuEwTDeZ5lHCfw6HIQxLCaAxygyJwqgGcATE4FA6hWY4tjEAAQBAgIA==")
oCascadeTree.BackColorHeader = 80135878
oCascadeTree.SelBackColor = 67108864
oCascadeTree.SelForeColor = 65536
oCascadeTree.Template = "Background(20) = SelBackColor" // oCascadeTree.Background(20 '14 + ) = oCascadeTree.SelBackColor
oCascadeTree.Template = "Background(21) = SelForeColor" // oCascadeTree.Background(21 '15 + ) = oCascadeTree.SelForeColor
oCascadeTree.Template = "Background(26) = BackColor" // oCascadeTree.Background(26 '8 + exSplitBar) = oCascadeTree.BackColor
oCascadeTree.Template = "Background(27) = ForeColor" // oCascadeTree.Background(27 '9 + exSplitBar) = oCascadeTree.ForeColor
oCascadeTree.Template = "Background(32) = -1" // oCascadeTree.Background(32 '20 + ) = -1
oCascadeTree.Template = "Background(0) = 67108864" // oCascadeTree.Background(0 '0 + ) = 67108864
oCascadeTree.Template = "Background(41) = 67174657" // oCascadeTree.Background(41) = 67174657
oCascadeTree.Template = "Background(1) = 67109119" // oCascadeTree.Background(1 '1 + ) = 67109119
oCascadeTree.HeaderAppearance = 4
oCascadeTree.BackColorSortBar = oCascadeTree.BackColor
oCascadeTree.BackColorLevelHeader = oCascadeTree.BackColor
oCascadeTree.Mode = 3
oCascadeTree.DataSource = "Source=C:\Program Files\Exontrol\ExCascadeTree\Sample\Access\cities.accdb;Member=Select * FROM Countries;Key=CountryCode;Tag=Country;Name=CountryName >>> Member=Select * FROM States WHERE CountryCode IN (<%Parent.CountryCode%>);Key=StateCode;Name=StateName;Tag=State ||| Member=Select * FROM Cities WHERE CountryCode IN (<%Parent.CountryCode%>);Tag=City;Name=Name >>> Member=Select * FROM Cities WHERE CountryCode IN (<%Parent.Parent.CountryCode%>) AND StateCode IN (<%Parent.StateCode%>);Tag=City;Name=Name"
oCascadeTree.Select = "US\MN"
oCascadeTree.EndUpdate()
|
|
78
|
ImageSize property on 16 (default) (specifies the size of control' icons/images/check-boxes/radio-buttons)
' A view has been created.
function CreateView as v (View as OLE::Exontrol.CascadeTree.1::IView)
Dim var_Columns as local
Dim var_Object as P
Dim var_View as P
oCascadeTree = topparent:CONTROL_ACTIVEX1.activex
var_View = oCascadeTree.View
var_View.EnsureVisibleColumn("Function")
var_Object = var_View.Columns.Item("Function")
' var_View.Columns.Item(0).Def(0) = .t.
var_Columns = var_View.Columns.Item(0)
oCascadeTree.TemplateDef = "dim var_Columns"
oCascadeTree.TemplateDef = var_Columns
oCascadeTree.Template = "var_Columns.Def(0) = True"
end function
' An internal error occurs.
function Error as v (Error as N,Description as C)
oCascadeTree = topparent:CONTROL_ACTIVEX1.activex
? "Error"
? Description
end function
Dim oCascadeTree as P
Dim var_Appearance as P
oCascadeTree = topparent:CONTROL_ACTIVEX1.activex
oCascadeTree.BeginUpdate()
oCascadeTree.ImageSize = 16
oCascadeTree.Images("gBJJgBAIDAAEg4ACEKAD/hz/EMNh8TIRNGwAjEZAEXjAojJAjMLjABAAgjUYkUnlUrlktl0vmExmUzmk1m03nE5nU7nkrQCAntBoVDolFo1HoM/ADAplLptImdMYFOqdSqlXq1QrVbrlGpVWsFNrNdnNjsk7pQAtNroFnt0sh8Yr9iulTuNxs1Eu8OiT/vsnsNVutXlk/oGGtVKxGLxWNtsZtN8iUYuNvy0Zvd+xNYwdwvl4p870GCqc8vOeuVttmp1knyOayWVy+WzN/ze1wOElenm+12WUz/Bv2/3UyyWrzeutux2GSyGP2dQ33C1ur3GD3M4zUNzHdlWjq/E3nGzVpjWv4HA7fRy/Tv2IrN8rPW6nZ3ve7mUlfu20Z8acvQyb+vY9jasYoDwMm+LytVBDqKG3z8O3Cb8P+mkAuY9cCQ2uL4KaxDKvkp8RNLEjqugnrwQo/UWPzFyeQw5sNLZFENrI4kOqU66pw8uzmOKvTqNqjULJvGL1JO48GtTGsbLdEL3scxLlyiw8dQeoUVxdLTtyKmUjwGlslRPJsnK1HbAKbKCrsQo8uQk/CeP44iaR/ATnTNPLvyxPU+z9P9AUDQVBowiofJXQ6Oo+kKMpIkjztE4TKn4P6JowfgPnwD5/nAjB8AOeAPo0eAA1IAFH07UhAIMpYAVIYFHqBUhwVjV1S1EtQAHxW65V0AZwAeuQAnwB5gAPYViEDVhwAHTQBkCjB4gOhwDmCyhH0sACAg==")
var_Appearance = oCascadeTree.VisualAppearance
var_Appearance.Add(4,"gBFLBCJwBAEHhEJAAEhABUYCg6AADACAxRDgMQBQKAAzQFAYbhkGCGAAGMZxRgmFgAQhFcZQSKUOQTDKMIziYBYfgkMIgSbJUgDGAkRRdDSOYDmGQYDiCIoRShOMIjHLUXxtDaIZwhEAoJb+RgAUY/cTzaAEUwHHiTKInaCQShsFYJUJAdRURQ9EwvCIZBpEWwLChENQwWLCNj2TScBwjCyqbale45ViqdoDU5EUiXJJ8ZxnECfYyrGjaMpCeKBUrGYTVRBIMxLLSia5oeJqMrnBpNVrIUgXCAGFwHK6BcauXIIDp6XoWWRbAAWDpVVzNNC3YzkCIceADHKiXxmVz4JLdGZ1QTGID2XaYaxWK4oZjsVSc4KDHbETbHFi9Fo3NaaxGisew+GYc4HlCR5NAAAIIEkQJSGMOgdE4RhYDwJJsAaAYQgmPpolCWgSCiBJzjcEIAkQXIBm8d5UhOQgCDUIBDDJDhgggJgKgKYJIDSVoDk8KBFF4OohEMZgWDsYYDj4GoGmGSB2B6B5iAiBgYDsYRjGSbIJo4RgqDuIpIAoLoLmMCJGDKDJjJiLA7xqUAAgGTwYnYPoPmQCQGEKEJkEkFg9gGY44BoRoSmSSQ2EKEggHgRhShSZRJFYVoVmWCRmFKFAgGOTheheZgJgYYoYmYSYWGaF4lkMMJ0hqZpJjYbobmcCZGHKHJmjmJh0h2Z4JmYcIaE8WZ2H6H5oAoBoCiCaBKBYfdjGoJoKiKaJKDaDojmkChGgmIgpCoVoWiWaJZiSd4mmmSh2h6J5qAqBoiiiaY5iSeIpmqComiqKpqkqNouiuah6hqMIsmsSpWiuGhP1kOoumuSp2j6L5sAsBo54gKwWkaMZsgsJpKjKbJLDaRYxYWRpSjSbIZiSe41m2CxmlqNptksdpejebR5iSfI4m4S4W16boLiaao6m5fJ9jubwLkaco8m8S5WnaPZunuOp4j6b5Lnac4SA0PAGlgP4wEwFwGkGcIMCcCpCnCCxiA8NYAAmMJfkSbhFCcFpFnGDBnBqRpUhuEwTDeZ5lHCfw6HIQxLCaAxygyJwqgGcATE4FA6hWY4tjEAAQBAgIA==")
oCascadeTree.BackColorHeader = 80135878
oCascadeTree.SelBackColor = 67108864
oCascadeTree.SelForeColor = 65536
oCascadeTree.Template = "Background(20) = SelBackColor" // oCascadeTree.Background(20 '14 + ) = oCascadeTree.SelBackColor
oCascadeTree.Template = "Background(21) = SelForeColor" // oCascadeTree.Background(21 '15 + ) = oCascadeTree.SelForeColor
oCascadeTree.Template = "Background(26) = BackColor" // oCascadeTree.Background(26 '8 + exSplitBar) = oCascadeTree.BackColor
oCascadeTree.Template = "Background(27) = ForeColor" // oCascadeTree.Background(27 '9 + exSplitBar) = oCascadeTree.ForeColor
oCascadeTree.Template = "Background(32) = -1" // oCascadeTree.Background(32 '20 + ) = -1
oCascadeTree.Template = "Background(0) = 67108864" // oCascadeTree.Background(0 '0 + ) = 67108864
oCascadeTree.Template = "Background(41) = 67174657" // oCascadeTree.Background(41) = 67174657
oCascadeTree.Template = "Background(1) = 67109119" // oCascadeTree.Background(1 '1 + ) = 67109119
oCascadeTree.HeaderAppearance = 4
oCascadeTree.BackColorSortBar = oCascadeTree.BackColor
oCascadeTree.BackColorLevelHeader = oCascadeTree.BackColor
oCascadeTree.Mode = 3
oCascadeTree.DataSource = "Source=C:\Program Files\Exontrol\ExCascadeTree\Sample\Access\cities.accdb;Member=Select * FROM Countries;Key=CountryCode;Tag=Country;Name=CountryName >>> Member=Select * FROM States WHERE CountryCode IN (<%Parent.CountryCode%>);Key=StateCode;Name=StateName;Tag=State ||| Member=Select * FROM Cities WHERE CountryCode IN (<%Parent.CountryCode%>);Tag=City;Name=Name >>> Member=Select * FROM Cities WHERE CountryCode IN (<%Parent.Parent.CountryCode%>) AND StateCode IN (<%Parent.StateCode%>);Tag=City;Name=Name"
oCascadeTree.Select = "US\MN"
oCascadeTree.EndUpdate()
|
|
77
|
Is it possible to highlight the column's header once a filter is applied
Dim h as N
Dim oCascadeTree as P
Dim var_Appearance as P
Dim var_Column as local
Dim var_Column1 as P
Dim var_Column2 as local
Dim var_Columns as P
Dim var_Items as P
Dim var_View as P
oCascadeTree = topparent:CONTROL_ACTIVEX1.activex
oCascadeTree.BeginUpdate()
var_Appearance = oCascadeTree.VisualAppearance
var_Appearance.Add(2,"gBFLBCJwBAEHhEJAAEhABX8GACAADACAxSDEMQBQKAAzQFAYbhgHCGAAGQaBUgmFgAQhFcZQSKUOQTDKNYykCIRSDUJYkSZEIyjBI8ExXFqNACkGKwYgmNYiTLAcgANJ0WBaGIZJ4gOT5fDKMoEDRRYADFCscwxJybQAqGQKKb+VgAVY/cTyBIAEQSKA0TDOQ5TSKWB4JPZQRBEbZMNBtBIUJquKaqShdQJCU5FdY3Xblez9P7AMBwLFEC4NQ8YNYuPhjR4dRTIMhvVAsUArFh8Zg9GZZFjmDIDT4ydBLTQwcyVIKnP5qOa6XbmPoCQDYKxZHYxPzVDa3axuL76dqCAT7XrXNy1TbNRrzQKfcJqfCbdw2YaDZLOOT3fjuI4hhKaRzFAHJ+jYQ4xHuY4gHuGIXGeExqC8Tp6C+PoEm+G5ImycRgh0XwvDGa5rgOeoejyXwnFeQp2mkf5ClgBB9gCWIYAwfYAEKV58mkdwOggNArgOXY2EWLoDkKOA0mgbhOGgZApgaSBIHWSYHSmbApgYThmESZYJkIeIkgeCpfliLIHgpMIcmUYYYmODAlg2SI4mWfRfGOEguDcCRjFYAJihCQhJBSDoRmONgKEcI4kFCEJhhOVYTmYnAlEAQhWBMJYJGYWoWmWSR2F6F5lnkWAQhUAgpEieRWEuSYkjWGpmkmNhuhuZwJkYcocmaaYkjyEhngnUA6lEFAlAEgI=")
var_Appearance.Add(1,"CP:2 -8 -4 2 4")
oCascadeTree.Template = "Background(0) = 33488638" // oCascadeTree.Background(0 '0 + ) = 33488638
oCascadeTree.Template = "Background(41) = 16843009" // oCascadeTree.Background(41) = 16843009
oCascadeTree.Template = "Background(32) = -1" // oCascadeTree.Background(32 '20 + ) = -1
oCascadeTree.BackColorHeader = 16777215
oCascadeTree.Mode = 1
var_View = oCascadeTree.DefaultView()
var_View.HeaderHeight = 28
var_View.DrawGridLines = -2
var_View.HeaderVisible = .t.
var_Columns = var_View.Columns
' var_Columns.Add("C1").DisplayFilterButton = .t.
var_Column = var_Columns.Add("C1")
oCascadeTree.TemplateDef = "dim var_Column"
oCascadeTree.TemplateDef = var_Column
oCascadeTree.Template = "var_Column.DisplayFilterButton = True"
var_Column1 = var_Columns.Add("C2")
var_Column1.DisplayFilterButton = .t.
var_Column1.Filter = "Item 2"
var_Column1.FilterType = 240
' var_Columns.Add("C3").DisplayFilterButton = .t.
var_Column2 = var_Columns.Add("C3")
oCascadeTree.TemplateDef = "dim var_Column2"
oCascadeTree.TemplateDef = var_Column2
oCascadeTree.Template = "var_Column2.DisplayFilterButton = True"
var_Items = var_View.Items
h = var_Items.AddItem("Item 1")
' var_Items.CellValue(h,1) = "Item 2"
oCascadeTree.TemplateDef = "dim var_Items,h"
oCascadeTree.TemplateDef = var_Items
oCascadeTree.TemplateDef = h
oCascadeTree.Template = "var_Items.CellValue(h,1) = `Item 2`"
' var_Items.CellValue(h,2) = "Item 3"
oCascadeTree.TemplateDef = "dim var_Items,h"
oCascadeTree.TemplateDef = var_Items
oCascadeTree.TemplateDef = h
oCascadeTree.Template = "var_Items.CellValue(h,2) = `Item 3`"
h = var_Items.AddItem("Item 4")
' var_Items.CellValue(h,1) = "Item 5"
oCascadeTree.TemplateDef = "dim var_Items,h"
oCascadeTree.TemplateDef = var_Items
oCascadeTree.TemplateDef = h
oCascadeTree.Template = "var_Items.CellValue(h,1) = `Item 5`"
' var_Items.CellValue(h,2) = "Item 6"
oCascadeTree.TemplateDef = "dim var_Items,h"
oCascadeTree.TemplateDef = var_Items
oCascadeTree.TemplateDef = h
oCascadeTree.Template = "var_Items.CellValue(h,2) = `Item 6`"
var_View.ApplyFilter()
oCascadeTree.EndUpdate()
|
|
76
|
Is it possible to show the filterbar on top of the rows
Dim oCascadeTree as P
Dim var_Column as P
Dim var_Column1 as P
Dim var_Items as P
Dim var_View as P
oCascadeTree = topparent:CONTROL_ACTIVEX1.activex
oCascadeTree.BeginUpdate()
oCascadeTree.Mode = 1
var_View = oCascadeTree.DefaultView()
var_View.ColumnAutoResize = .t.
var_View.FilterBarPromptVisible = 8192
var_View.HeaderHeight = 24
var_View.FilterBarHeight = var_View.HeaderHeight
var_View.HeaderAppearance = 1
var_View.DrawGridLines = -1
var_View.GridLineStyle = 512
var_Column = var_View.Columns.Add("Column")
var_Column.DisplayFilterButton = .t.
var_Column.FilterType = 3
var_Column.Filter = "B*"
var_Column1 = var_View.Columns.Add("Index")
var_Column1.FormatColumn = "1 index ``"
var_Column1.Position = 0
var_Column1.Width = 48
var_Column1.AllowSizing = .f.
var_Column1.SortType = 1
' var_Column1.Def(0) = .t.
oCascadeTree.TemplateDef = "dim var_Column1"
oCascadeTree.TemplateDef = var_Column1
oCascadeTree.Template = "var_Column1.Def(0) = True"
var_Items = var_View.Items
var_Items.AddItem("A.1")
var_Items.AddItem("A.2")
var_Items.AddItem("B.1")
var_Items.AddItem("B.2")
var_Items.AddItem("B.3")
var_Items.AddItem("C")
var_View.ApplyFilter()
oCascadeTree.EndUpdate()
|
|
75
|
Is there anyway to stop the header changing colour when the mouse hovers/moves across the column header (non-clickable)
' A view has been created.
function CreateView as v (View as OLE::Exontrol.CascadeTree.1::IView)
Dim k as
Dim var_Items as P
Dim var_View as P
oCascadeTree = topparent:CONTROL_ACTIVEX1.activex
var_View = oCascadeTree.View
k = var_View.ParentView.Value()
var_View.BeginUpdate()
var_View.ColumnAutoResize = .t.
var_View.Columns.Add(k)
var_Items = var_View.Items
var_Items.AddItem(oCascadeTree.FormatABC("A + `-> Sub-Item 1`",k))
var_Items.AddItem(oCascadeTree.FormatABC("A + `-> Sub-Item 2`",k))
var_Items.AddItem(oCascadeTree.FormatABC("A + `-> Sub-Item 3`",k))
var_View.EndUpdate()
end function
Dim oCascadeTree as P
Dim var_Column as P
Dim var_Items as P
Dim var_View as P
oCascadeTree = topparent:CONTROL_ACTIVEX1.activex
oCascadeTree.BeginUpdate()
var_View = oCascadeTree.View
var_View.BeginUpdate()
var_View.ColumnAutoResize = .t.
var_Column = var_View.Columns.Add("Default")
var_Column.AllowSort = .f.
var_Column.AllowDragging = .f.
var_View.Key = 0
var_Items = var_View.Items
var_Items.AddItem("Item A")
' var_Items.SelectItem(var_Items.AddItem("Item B")) = .t.
oCascadeTree.TemplateDef = "dim var_Items"
oCascadeTree.TemplateDef = var_Items
oCascadeTree.Template = "var_Items.SelectItem(AddItem(`Item B`)) = True"
var_Items.AddItem("Item C")
var_View.EndUpdate()
oCascadeTree.EndUpdate()
|
|
74
|
Is there anyway to stop the header changing colour when the mouse hovers/moves across the column header
' A view has been created.
function CreateView as v (View as OLE::Exontrol.CascadeTree.1::IView)
Dim k as
Dim var_Items as P
Dim var_View as P
oCascadeTree = topparent:CONTROL_ACTIVEX1.activex
var_View = oCascadeTree.View
k = var_View.ParentView.Value()
var_View.BeginUpdate()
var_View.ColumnAutoResize = .t.
var_View.Columns.Add(k)
var_Items = var_View.Items
var_Items.AddItem(oCascadeTree.FormatABC("A + `-> Sub-Item 1`",k))
var_Items.AddItem(oCascadeTree.FormatABC("A + `-> Sub-Item 2`",k))
var_Items.AddItem(oCascadeTree.FormatABC("A + `-> Sub-Item 3`",k))
var_View.EndUpdate()
end function
Dim oCascadeTree as P
Dim var_Items as P
Dim var_View as P
oCascadeTree = topparent:CONTROL_ACTIVEX1.activex
oCascadeTree.BeginUpdate()
oCascadeTree.Template = "Background(32) = -1" // oCascadeTree.Background(32 '20 + ) = -1
var_View = oCascadeTree.View
var_View.BeginUpdate()
var_View.ColumnAutoResize = .t.
var_View.Columns.Add("Default")
var_View.Key = 0
var_Items = var_View.Items
var_Items.AddItem("Item A")
' var_Items.SelectItem(var_Items.AddItem("Item B")) = .t.
oCascadeTree.TemplateDef = "dim var_Items"
oCascadeTree.TemplateDef = var_Items
oCascadeTree.Template = "var_Items.SelectItem(AddItem(`Item B`)) = True"
var_Items.AddItem("Item C")
var_View.EndUpdate()
oCascadeTree.EndUpdate()
|
|
73
|
Type of wraps the cell's caption support (Sample 2)
Dim oCascadeTree as P
Dim var_Column as P
Dim var_Column1 as P
Dim var_Column2 as P
Dim var_Columns as P
Dim var_Items as P
Dim var_View as P
oCascadeTree = topparent:CONTROL_ACTIVEX1.activex
oCascadeTree.Mode = 1
var_View = oCascadeTree.DefaultView()
var_View.BeginUpdate()
var_View.HeaderSingleLine = .f.
var_View.HeaderHeight = 36
var_View.DrawGridLines = -2
var_View.ColumnAutoResize = .f.
var_View.ScrollBySingleLine = .t.
var_Columns = var_View.Columns
var_Column = var_Columns.Add("Single-Line (exCaptionSingleLine)")
var_Column.Width = 96
' var_Column.Def(17) = 1
oCascadeTree.TemplateDef = "dim var_Column"
oCascadeTree.TemplateDef = var_Column
oCascadeTree.Template = "var_Column.Def(17) = 1"
' var_Column.Def(16) = -1
oCascadeTree.TemplateDef = "dim var_Column"
oCascadeTree.TemplateDef = var_Column
oCascadeTree.Template = "var_Column.Def(16) = -1"
var_Column1 = var_Columns.Add("Word-Wrap (exCaptionWordWrap)")
var_Column1.Width = 96
' var_Column1.Def(17) = 1
oCascadeTree.TemplateDef = "dim var_Column1"
oCascadeTree.TemplateDef = var_Column1
oCascadeTree.Template = "var_Column1.Def(17) = 1"
' var_Column1.Def(16) = 0
oCascadeTree.TemplateDef = "dim var_Column1"
oCascadeTree.TemplateDef = var_Column1
oCascadeTree.Template = "var_Column1.Def(16) = 0"
var_Column1.FormatColumn = "%0"
var_Column2 = var_Columns.Add("Break-Wrap (exCaptionBreakWrap)")
var_Column2.Width = 96
' var_Column2.Def(17) = 1
oCascadeTree.TemplateDef = "dim var_Column2"
oCascadeTree.TemplateDef = var_Column2
oCascadeTree.Template = "var_Column2.Def(17) = 1"
' var_Column2.Def(16) = 1
oCascadeTree.TemplateDef = "dim var_Column2"
oCascadeTree.TemplateDef = var_Column2
oCascadeTree.Template = "var_Column2.Def(16) = 1"
var_Column2.FormatColumn = "%0"
var_Items = var_View.Items
var_Items.AddItem("This is the <b>first</b> line.<br>This is the <b>second</b> line.<br>This is the <b>third</b> line.")
var_Items.AddItem("This is the <b>first</b> line.\r\nThis is the <b>second</b> line.\r\nThis is the <b>third</b> line.")
var_View.EndUpdate()
|
|
72
|
Type of wraps the cell's caption support (Sample 1)
Dim h as N
Dim oCascadeTree as P
Dim var_Column as local
Dim var_Items as P
Dim var_View as P
oCascadeTree = topparent:CONTROL_ACTIVEX1.activex
oCascadeTree.Mode = 1
var_View = oCascadeTree.DefaultView()
var_View.BeginUpdate()
var_View.HeaderSingleLine = .f.
var_View.HeaderHeight = 36
var_View.DrawGridLines = -2
var_View.ColumnAutoResize = .f.
var_View.ScrollBySingleLine = .t.
' var_View.Columns.Add("Default").Width = 128
var_Column = var_View.Columns.Add("Default")
oCascadeTree.TemplateDef = "dim var_Column"
oCascadeTree.TemplateDef = var_Column
oCascadeTree.Template = "var_Column.Width = 128"
var_Items = var_View.Items
h = var_Items.AddItem("This is the first line.\r\nThis is the second line.\r\nThis is the third line.")
h = var_Items.AddItem("This is the <b>first</b> line.<br>This is the <b>second</b> line.<br>This is the <b>third</b> line.")
' var_Items.CellValueFormat(h,0) = 1
oCascadeTree.TemplateDef = "dim var_Items,h"
oCascadeTree.TemplateDef = var_Items
oCascadeTree.TemplateDef = h
oCascadeTree.Template = "var_Items.CellValueFormat(h,0) = 1"
h = var_Items.AddItem("This is the first line.\r\nThis is the second line.\r\nThis is the third line.")
' var_Items.CellSingleLine(h,0) = 0
oCascadeTree.TemplateDef = "dim var_Items,h"
oCascadeTree.TemplateDef = var_Items
oCascadeTree.TemplateDef = h
oCascadeTree.Template = "var_Items.CellSingleLine(h,0) = 0"
h = var_Items.AddItem("This is the <b>first</b> line.<br>This is the <b>second</b> line.<br>This is the <b>third</b> line.")
' var_Items.CellValueFormat(h,0) = 1
oCascadeTree.TemplateDef = "dim var_Items,h"
oCascadeTree.TemplateDef = var_Items
oCascadeTree.TemplateDef = h
oCascadeTree.Template = "var_Items.CellValueFormat(h,0) = 1"
' var_Items.CellSingleLine(h,0) = 0
oCascadeTree.TemplateDef = "dim var_Items,h"
oCascadeTree.TemplateDef = var_Items
oCascadeTree.TemplateDef = h
oCascadeTree.Template = "var_Items.CellSingleLine(h,0) = 0"
h = var_Items.AddItem("This is the first line.\r\nThis is the second line.\r\nThis is the third line.")
' var_Items.CellSingleLine(h,0) = 1
oCascadeTree.TemplateDef = "dim var_Items,h"
oCascadeTree.TemplateDef = var_Items
oCascadeTree.TemplateDef = h
oCascadeTree.Template = "var_Items.CellSingleLine(h,0) = 1"
h = var_Items.AddItem("This is the <b>first</b> line.<br>This is the <b>second</b> line.<br>This is the <b>third</b> line.")
' var_Items.CellValueFormat(h,0) = 1
oCascadeTree.TemplateDef = "dim var_Items,h"
oCascadeTree.TemplateDef = var_Items
oCascadeTree.TemplateDef = h
oCascadeTree.Template = "var_Items.CellValueFormat(h,0) = 1"
' var_Items.CellSingleLine(h,0) = 1
oCascadeTree.TemplateDef = "dim var_Items,h"
oCascadeTree.TemplateDef = var_Items
oCascadeTree.TemplateDef = h
oCascadeTree.Template = "var_Items.CellSingleLine(h,0) = 1"
var_View.EndUpdate()
|
|
71
|
Can I break the cell's caption using the line break <br> or \r\n (Sample 2)
Dim oCascadeTree as P
Dim var_Column as local
Dim var_Items as P
Dim var_View as P
oCascadeTree = topparent:CONTROL_ACTIVEX1.activex
oCascadeTree.Mode = 1
var_View = oCascadeTree.DefaultView()
var_View.BeginUpdate()
var_View.DrawGridLines = -2
var_View.ColumnAutoResize = .f.
var_View.ScrollBySingleLine = .t.
' var_View.Columns.Add("Default").Width = 128
var_Column = var_View.Columns.Add("Default")
oCascadeTree.TemplateDef = "dim var_Column"
oCascadeTree.TemplateDef = var_Column
oCascadeTree.Template = "var_Column.Width = 128"
var_Items = var_View.Items
' var_Items.CellSingleLine(var_Items.AddItem("This is the first line.\r\nThis is the second line.\r\nThis is the third line."),0) = 1
oCascadeTree.TemplateDef = "dim var_Items"
oCascadeTree.TemplateDef = var_Items
oCascadeTree.Template = "var_Items.CellSingleLine(AddItem(`This is the first line.\r\nThis is the second line.\r\nThis is the third line.`),0) = 1"
var_Items.AddItem("This is the first line.\r\nThis is the second line.\r\nThis is the third line.")
var_View.EndUpdate()
|
|
70
|
Can I break the cell's caption using the line break <br> or \r\n (Sample 1)
Dim oCascadeTree as P
Dim var_Column as P
Dim var_Items as P
Dim var_View as P
oCascadeTree = topparent:CONTROL_ACTIVEX1.activex
oCascadeTree.Mode = 1
var_View = oCascadeTree.DefaultView()
var_View.BeginUpdate()
var_View.DrawGridLines = -2
var_View.ColumnAutoResize = .f.
var_View.ScrollBySingleLine = .t.
var_Column = var_View.Columns.Add("Default")
var_Column.Width = 128
' var_Column.Def(16) = 1
oCascadeTree.TemplateDef = "dim var_Column"
oCascadeTree.TemplateDef = var_Column
oCascadeTree.Template = "var_Column.Def(16) = 1"
var_Items = var_View.Items
var_Items.AddItem("This is the first line.\r\nThis is the second line.\r\nThis is the third line.")
var_Items.AddItem("This is the first line.\r\nThis is the second line.\r\nThis is the third line.")
var_View.EndUpdate()
|
|
69
|
Is it possible to change the visual appearance of the position signs when user changes the column's position by drag and drop
Dim oCascadeTree as P
Dim var_Appearance as P
Dim var_Columns as P
Dim var_View as P
oCascadeTree = topparent:CONTROL_ACTIVEX1.activex
oCascadeTree.BeginUpdate()
var_Appearance = oCascadeTree.VisualAppearance
var_Appearance.Add(1,"gBFLBCJwBAEHhEJAAEhABZEGACAADACAxRDgMQBQKAAzAJBIYhiG4cYCgMYxXDOCYXABCEYRXBIZQ7BKNIxjSJwFgmEgADKMA4SOKIZhrE4bBhGaQRUgyI43RhHUBzVIUcQvE6TZRHCQYHgkNIhDJIM7TPLkeSVJaTIRoKhJUogApQThTMgVRDEThkGoSa6soSoYTDBKybLrSLKagOT5YUDKUqSdKEZRpEq1YztWbaQoCUoqVRRVIWfbNd4JJa4aDhWpYdpeeY5R7bWLgBYVVABL7LLRsSxpHxPF6RXxaeI3GKsaS8G6ic6nPQMHj7I4NS5pUa6Rh2VYNSa8AAtETRYznOw4bTMXAjNIea5bAYIIR5HIoDzVbQcCQAHL9DBeEMIQEEISgGhMGZQmocgymoYRRCIEQ0G2HYBnEIBig4V4zCQGINnmagCECY43medZ6H2Pw/g+X5fnueh/h+R5+AKABfkMWgGgGYA4AICoCGCE5WA4CphACMgSD2IRIDIBICmEd5YGCBpRjGBgegWIYIgWdgoGIRQsiKCZiAiJZ0gGQI4jUS4LECOAiBmDJflGfg2BSY4Al4OhGkOCJ2DgFJjGGfgqgiH5Ch4RhGkqOQmEOEpkFkHQYhJRYyESAokGKHhIhKIxJEmf4VGUeRGFmF5iBkchPhYJQ5GoYIZg6Ug6GoFYmkmNhuhulRGHKGoImefh0BUZ4JmYeoemeSZ2H6HQmgoBgXDqXwUAQgI=")
var_Appearance.Add(2,"CP:1 0 -36 0 0")
oCascadeTree.Template = "Background(182) = 33554432" // oCascadeTree.Background(182) = 33554432
oCascadeTree.Mode = 1
var_View = oCascadeTree.DefaultView()
var_View.BeginUpdate()
var_View.HeaderAppearance = 4
var_Columns = var_View.Columns
var_Columns.Add("Column 1")
var_Columns.Add("Column 2")
var_Columns.Add("Column 3")
var_View.EndUpdate()
oCascadeTree.EndUpdate()
|
|
68
|
DataSource (control, ADODB, ACCDB, x64)
' A view has been created.
function CreateView as v (View as OLE::Exontrol.CascadeTree.1::IView)
Dim bColumnAutoResize as
Dim bSingle as
Dim var_View as P
oCascadeTree = topparent:CONTROL_ACTIVEX1.activex
bSingle = oCascadeTree.FormatABC("value > 0 ? 0 : -1",oCascadeTree.View.Index)
bColumnAutoResize = oCascadeTree.FormatABC("value = `City` ? 0 : -1",oCascadeTree.View.Tag)
var_View = oCascadeTree.View
var_View.ColumnAutoResize = .f.
var_View.SingleSel = .f.
end function
' An internal error occurs.
function Error as v (Error as N,Description as C)
oCascadeTree = topparent:CONTROL_ACTIVEX1.activex
? "Error"
? Description
end function
Dim oCascadeTree as P
oCascadeTree = topparent:CONTROL_ACTIVEX1.activex
oCascadeTree.BeginUpdate()
oCascadeTree.Mode = 515 'exAutoFitOnResizeClient + exSplitFixCascadeMode
oCascadeTree.DataSource = "locktype=1;Source=C:\Program Files\Exontrol\ExCascadeTree\Sample\Access\cities.accdb;Member=Select * FROM Countries;Key=CountryCode;Tag=Country;Name=CountryName >>> Member=Select * FROM States WHERE CountryCode IN (<%Parent.CountryCode%>);Key=StateCode;Name=StateName;Tag=State ||| Member=Select * FROM Cities WHERE CountryCode IN (<%Parent.CountryCode%>);Tag=City;Name=Name >>> Member=Select * FROM Cities WHERE CountryCode IN (<%Parent.Parent.CountryCode%>) AND StateCode IN (<%Parent.StateCode%>);Tag=City;Name=Name"
oCascadeTree.Select = "US\AK"
oCascadeTree.EndUpdate()
|
|
67
|
DataSource (view, ADODB, ACCDB, x64)
' An internal error occurs.
function Error as v (Error as N,Description as C)
oCascadeTree = topparent:CONTROL_ACTIVEX1.activex
? "Error"
? Description
end function
Dim ado as P
Dim oCascadeTree as P
Dim var_View as P
oCascadeTree = topparent:CONTROL_ACTIVEX1.activex
oCascadeTree.BeginUpdate()
oCascadeTree.StatusBarVisible = 2
oCascadeTree.StatusBarLabel = "<b>DataSource</b> could be string (Source/Member), ADO or DAO objects"
oCascadeTree.DefColumnWidth = 336
ado = OLE.Create("ADODB.Recordset")
ado.Open("Countries","Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Program Files\Exontrol\ExCascadeTree\Sample\Access\cities.accdb",3,1,-1)
var_View = oCascadeTree.DefaultView()
var_View.DataSource = ado
var_View.ColumnAutoResize = .t.
oCascadeTree.EndUpdate()
|
|
66
|
Simple sample
' A view has been created.
function CreateView as v (View as OLE::Exontrol.CascadeTree.1::IView)
Dim bColumnAutoResize as
Dim bSingle as
Dim var_View as P
oCascadeTree = topparent:CONTROL_ACTIVEX1.activex
bSingle = oCascadeTree.FormatABC("value > 0 ? 0 : -1",oCascadeTree.View.Index)
bColumnAutoResize = oCascadeTree.FormatABC("value = `City` ? 0 : -1",oCascadeTree.View.Tag)
var_View = oCascadeTree.View
var_View.ColumnAutoResize = .f.
var_View.SingleSel = .f.
end function
' An internal error occurs.
function Error as v (Error as N,Description as C)
oCascadeTree = topparent:CONTROL_ACTIVEX1.activex
? "Error"
? Description
end function
Dim oCascadeTree as P
oCascadeTree = topparent:CONTROL_ACTIVEX1.activex
oCascadeTree.BeginUpdate()
oCascadeTree.Mode = 515 'exAutoFitOnResizeClient + exSplitFixCascadeMode
oCascadeTree.DataSource = "Source=C:\Program Files\Exontrol\ExCascadeTree\Sample\Access\cities.accdb;Member=Select * FROM Countries;Key=CountryCode;Tag=Country;Name=CountryName >>> Member=Select * FROM States WHERE CountryCode IN (<%Parent.CountryCode%>);Key=StateCode;Name=StateName;Tag=State ||| Member=Select * FROM Cities WHERE CountryCode IN (<%Parent.CountryCode%>);Tag=City;Name=Name >>> Member=Select * FROM Cities WHERE CountryCode IN (<%Parent.Parent.CountryCode%>) AND StateCode IN (<%Parent.StateCode%>);Tag=City;Name=Name"
oCascadeTree.EndUpdate()
|
|
65
|
FilterBar sample
' A view has been created.
function CreateView as v (View as OLE::Exontrol.CascadeTree.1::IView)
Dim var_Column as P
Dim var_Column1 as P
Dim var_Column2 as P
Dim var_Column3 as P
Dim var_Column4 as P
Dim var_Column5 as P
Dim var_View as P
Dim var_View1 as P
Dim var_View2 as P
Dim var_View3 as P
Dim var_View4 as P
Dim var_View5 as P
oCascadeTree = topparent:CONTROL_ACTIVEX1.activex
var_View = oCascadeTree.View
var_View.HeaderHeight = 20
var_View.HeaderAppearance = 4
var_View.DrawGridLines = -1
var_View.GridLineStyle = 12
var_View1 = oCascadeTree.DefaultView()
var_View2 = var_View1.View("Country")
var_View2.BeginUpdate()
var_View2.ColumnAutoResize = .t.
var_View2.Columns.Item(0).Visible = .f.
var_Column = var_View2.Columns.Item(1)
var_Column.HTMLCaption = "Country"
var_Column.DisplayFilterButton = .t.
var_Column.FilterList = 9504 'exShowExclude + exShowFocusItem + exShowCheckBox + exSortItemsAsc
var_Column.FilterBarDropDownWidth = 2
var_View2.EndUpdate()
var_View3 = var_View1.View("State")
var_View3.BeginUpdate()
var_View3.ColumnAutoResize = .t.
var_View3.Columns.Item(0).Visible = .f.
var_View3.Columns.Item(1).Visible = .f.
var_Column1 = var_View3.Columns.Item(2)
var_Column1.HTMLCaption = "State"
var_Column1.DisplayFilterButton = .t.
var_Column1.FilterList = 9504 'exShowExclude + exShowFocusItem + exShowCheckBox + exSortItemsAsc
var_Column1.FilterBarDropDownWidth = 2
var_View3.EndUpdate()
var_View4 = var_View1.View("City")
var_View4.BeginUpdate()
var_View4.Columns.Item("CountryCode").Visible = .f.
var_View4.Columns.Item("StateCode").Visible = .f.
var_Column2 = var_View4.Columns.Item("Name")
var_Column2.HTMLCaption = "City"
var_Column2.Width = 128
var_Column2.DisplayFilterButton = .t.
var_Column2.FilterList = 9504 'exShowExclude + exShowFocusItem + exShowCheckBox + exSortItemsAsc
var_Column2.FilterBarDropDownWidth = 2
var_View4.SearchColumnIndex = var_View4.Columns.Item("Name").Index
var_Column3 = var_View4.Columns.Item("Status")
var_Column3.DisplayFilterButton = .t.
var_Column3.FilterList = 9504 'exShowExclude + exShowFocusItem + exShowCheckBox + exSortItemsAsc
var_Column3.FilterBarDropDownWidth = 2
var_Column4 = var_View4.Columns.Item("Function")
' var_Column4.Def(17) = 1
oCascadeTree.TemplateDef = "dim var_Column4"
oCascadeTree.TemplateDef = var_Column4
oCascadeTree.Template = "var_Column4.Def(17) = 1"
var_Column4.FormatColumn = "value replace 1 with `<img>1</img>` replace 2 with `<img>2</img>` replace 3 with `<img>3</img>` replace 4 with `<img>4</img>` replace 5 with `<img>5</img>` replace 6 with `<img>6</img>` replace 7 with `<img>7</img>` replace 8 with `<img>8</img>` replace 9 with `<img>9</img>` replace `-` with `` "
var_Column5 = var_View4.Columns.Add("Pos")
var_Column5.AllowSizing = .f.
var_Column5.Width = 32
' var_Column5.Def(4) = 15790320
oCascadeTree.TemplateDef = "dim var_Column5"
oCascadeTree.TemplateDef = var_Column5
oCascadeTree.Template = "var_Column5.Def(4) = 15790320"
var_Column5.Position = 0
var_Column5.FormatColumn = "1 pos ``"
var_Column5.Alignment = 1
var_Column5.HeaderAlignment = var_Column5.Alignment
var_View4.CountLockedColumns = 1
var_View4.Width = var_View4.WidthToFit
var_View4.EndUpdate()
var_View5 = oCascadeTree.View
var_View5.FilterBarHeight = 36
var_View5.FilterBarCaption = "(( ( allui replace `[<b>` with `<bgcolor=000000><fgcolor=FFFFFF><b> ` replace `</b>]` with ` </b></bgcolor></fgcolor>` replace `[<s>` with `<bgcolor=C0C0C0><fgcolor=FFFFFF> ` replace `</s>]` with ` </fgcolor></bgcolor>` ) + `<r><fgcolor=808080>` + ( matchitemcount < 0 ? ( ( len(value) ? `` : `` ) + `<r>` + abs(matchitemcount + 1) + ` result(s)` ) : (`<r><fgcolor=808080>`+ itemcount + ` item(s)`) )))"
var_View5.FilterBarPromptVisible = 515 'exFilterBarShowCloseIfRequired + exFilterBarVisible + exFilterBarPromptVisible
end function
' An internal error occurs.
function Error as v (Error as N,Description as C)
oCascadeTree = topparent:CONTROL_ACTIVEX1.activex
? "Error"
? Description
end function
Dim oCascadeTree as P
Dim var_Appearance as P
Dim var_View as P
oCascadeTree = topparent:CONTROL_ACTIVEX1.activex
oCascadeTree.BeginUpdate()
oCascadeTree.Images("C:\Program Files\Exontrol\ExCascadeTree\Sample\Bullets\Bullet-01.ico")
oCascadeTree.Images("C:\Program Files\Exontrol\ExCascadeTree\Sample\Bullets\Bullet-02.ico")
oCascadeTree.Images("C:\Program Files\Exontrol\ExCascadeTree\Sample\Bullets\Bullet-03.ico")
oCascadeTree.Images("C:\Program Files\Exontrol\ExCascadeTree\Sample\Bullets\Bullet-04.ico")
oCascadeTree.Images("C:\Program Files\Exontrol\ExCascadeTree\Sample\Bullets\Bullet-05.ico")
oCascadeTree.Images("C:\Program Files\Exontrol\ExCascadeTree\Sample\Bullets\Bullet-06.ico")
oCascadeTree.Images("C:\Program Files\Exontrol\ExCascadeTree\Sample\Bullets\Bullet-07.ico")
oCascadeTree.Images("C:\Program Files\Exontrol\ExCascadeTree\Sample\Bullets\Bullet-08.ico")
oCascadeTree.Images("C:\Program Files\Exontrol\ExCascadeTree\Sample\Bullets\Bullet-09.ico")
oCascadeTree.DataSource = "Source=C:\Program Files\Exontrol\ExCascadeTree\Sample\Access\cities.mdb;Member=Select * FROM Countries;Key=CountryCode;Tag=Country;Name=CountryName >>> Member=Select * FROM States WHERE CountryCode IN (<%Parent.CountryCode%>);Key=StateCode;Name=StateName;Tag=State ||| Member=Select * FROM Cities WHERE CountryCode IN (<%Parent.CountryCode%>);Tag=City;Name=Name >>> Member=Select * FROM Cities WHERE CountryCode IN (<%Parent.Parent.CountryCode%>) AND StateCode IN (<%Parent.StateCode%>);Tag=City;Name=Name"
oCascadeTree.Select = "RO\CJ"
var_View = oCascadeTree.DefaultView().View("City")
var_View.FilterBarPromptPattern = "Tu"
var_Appearance = oCascadeTree.VisualAppearance
var_Appearance.Add(1,"gBFLBCJwBAEHhEJAAEhABZEGACAADACAxRDgMQBQKAAzAJBIYhiG4cYCgMYxXDOCYXABCEYRXBIZQ7BKNIxjSJwFgmEgADKMA4SOKIZhrE4bBhGaQRUgyI43RhHUBzVIUcQvE6TZRHCQYHgkNIhDJIM7TPLkeSVJaTIRoKhJUogApQThTMgVRDEThkGoSa6soSoYTDBKybLrSLKagOT5YUDKUqSdKEZRpEq1YztWbaQoCUoqVRRVIWfbNd4JJa4aDhWpYdpeeY5R7bWLgBYVVABL7LLRsSxpHxPF6RXxaeI3GKsaS8G6ic6nPQMHj7I4NS5pUa6Rh2VYNSa8AAtETRYznOw4bTMXAjNIea5bAYIIR5HIoDzVbQcCQAHL9DBeEMIQEEISgGhMGZQmocgymoYRRCIEQ0G2HYBnEIBig4V4zCQGINnmagCECY43medZ6H2Pw/g+X5fnueh/h+R5+AKABfkMWgGgGYA4AICoCGCE5WA4CphACMgSD2IRIDIBICmEd5YGCBpRjGBgegWIYIgWdgoGIRQsiKCZiAiJZ0gGQI4jUS4LECOAiBmDJflGfg2BSY4Al4OhGkOCJ2DgFJjGGfgqgiH5Ch4RhGkqOQmEOEpkFkHQYhJRYyESAokGKHhIhKIxJEmf4VGUeRGFmF5iBkchPhYJQ5GoYIZg6Ug6GoFYmkmNhuhulRGHKGoImefh0BUZ4JmYeoemeSZ2H6HQmgoBgXDqXwUAQgI=")
var_Appearance.Add(2,"gBFLBCJwBAEHhEJAAEhABHQDg6AADACAxRDgMQBQKAAzAJBIYhiG4cYCgMZhXDOCYXABCEYRXBIZQ7BKNIxjSJ5BhIAAyDSJMjSRJUEhqGCWYDleYYYAKHIMQLOg7IJjyI4/SJAYCydKAWhxIaZKJHCZoEDaTAADCNVAQp6MEIJVbVEI0e79OgBLp/Z7kECIJJAaRjHQdJxGLA8EhtCQhCZteK6SgMKJYXhWQYRXI1JwvMBrWrdQjiOYELQtMKmSZNLYGG4dR5SVJbcYhSYsRRFMoyDIOXYDLKsdYqSpXIThObEGgaPqJYjsUjCMKnR7HVIURrBPC9TBPE69ZgmC6ucKPX51ShKFaBWDZcwFAS+UBuYCAILiEAQGZ1XT8OROicbgJgSTJRlCaZeDsHY7QGR4xkSYp3CaExZAQMgalQYAwjCAAfBANxcA2TgKAUOpDCGFhKg0RpXCwCwDHQHQHEyAIkCkOhbFOGA8A8DohBgRg9AccZcn8EpEjMLI2C2DYxAgQgvAIUIVkoAAPBQDJlECTZ3CCYwDACQwUA8A5MCAWAWDiQi4l8aQOEgLJuBgBgDmYFAzEoIoIl0WALgKYJbBABADAAHgHg8VAMmqCQQDMXABAATYwTmNwBDATJXAiAgjHmNQ5lgQ5QEQEQMmcWg/GwD5ylyNw2gMcJcjsBgBgOQQDDhRpVAMMwnDBFw1B0Ax8D0DxOmmJJIGQTY5hGMAwkwM4CAYLZAmAOJnAqAojiIGg6iieYkmeAYOHaKJDCyCwjH6AoggsQpQliAJLhgaJ0CESBTnyDwjk+cg4g4P5IHIHJ+BWRRzlYWAxiOUxihsY4KjKLJRGqC44FCegkkkM58iAKAPnIWIWD8SRSFSfQnkmewUhYP4GiGKJ7G0TIbCSUoggqUo0lAQ4LnEcBcD8Coiiif4nE+eAAn2HpOkcFJqi4T5SkyMw/kqQown8IBIBOdA+A+DJrBqVxXEqYo4lCApLhGHBnD8S4ymyfxmg+cwQkQP5egOUZIWoEAkjIeIPBMBJBD+TBjBifwvkuc58hQJQPmFrYykkchclSApKjGOBuD+TRDFCfw3mmIxNi8FxFlOXhVC4aYDFyPgvg2YBcBcLZGCGCJ0DSLRzGSWQ/lmY5+mEP5gmMDBZRSMRsFsOxMhMJJ/DsTpTnwaQaE+N5ojuNhdEYNI5C4TZJO1GRDmCaxnA2Yx4n8IpIjOTBQBQC5TgyYw7gUYRYikC0BYRwsDQBoB8eA6Q2hsE0BUXgywZtYCyHMKwnxSAhAQHkIQhRrBaDsCwA4ERiB2EWAIYIXhhiVEgAEUYwwYjyASLge4FhHgRDkM8OQih0jWPkGgBBAQ")
oCascadeTree.BackColorSortBar = oCascadeTree.BackColor
oCascadeTree.Template = "ScrollPartVisible(0,65536) = True" // oCascadeTree.ScrollPartVisible(0,65536) = .t.
oCascadeTree.Template = "ScrollPartVisible(1,65536) = True" // oCascadeTree.ScrollPartVisible(1,65536) = .t.
oCascadeTree.Template = "ScrollPartVisible(2,65536) = True" // oCascadeTree.ScrollPartVisible(2,65536) = .t.
oCascadeTree.ScrollWidth = 4
oCascadeTree.Template = "Background(276) = 15790320" // oCascadeTree.Background(276) = 15790320
oCascadeTree.Template = "Background(260) = 8421504" // oCascadeTree.Background(260) = 8421504
oCascadeTree.ScrollHeight = 4
oCascadeTree.Template = "Background(404) = Background(276)" // oCascadeTree.Background(404) = oCascadeTree.Background(276)
oCascadeTree.Template = "Background(388) = Background(260)" // oCascadeTree.Background(388) = oCascadeTree.Background(260)
oCascadeTree.Template = "Background(511) = Background(276)" // oCascadeTree.Background(511) = oCascadeTree.Background(276)
oCascadeTree.Template = "Background(18) = 12895428" // oCascadeTree.Background(18) = 12895428
oCascadeTree.Template = "Background(142) = Background(18)" // oCascadeTree.Background(142) = oCascadeTree.Background(18)
oCascadeTree.Template = "Background(141) = Background(18)" // oCascadeTree.Background(141) = oCascadeTree.Background(18)
oCascadeTree.Template = "Background(170) = 4" // oCascadeTree.Background(170) = 4
oCascadeTree.Template = "Background(0) = 16777216" // oCascadeTree.Background(0 '0 + ) = 16777216
oCascadeTree.Template = "Background(1) = 33554432" // oCascadeTree.Background(1 '1 + ) = 33554432
oCascadeTree.Template = "Background(32) = -1" // oCascadeTree.Background(32 '20 + ) = -1
oCascadeTree.EndUpdate()
|
|
64
|
GroupBy sample
' A view has been created.
function CreateView as v (View as OLE::Exontrol.CascadeTree.1::IView)
Dim bGroupBy as
Dim nSelected as
Dim var_Column as P
Dim var_Column1 as P
Dim var_Column2 as P
Dim var_View as P
Dim var_View1 as P
Dim var_View2 as P
oCascadeTree = topparent:CONTROL_ACTIVEX1.activex
oCascadeTree.View.HeaderHeight = 24
var_View = oCascadeTree.DefaultView()
var_View1 = var_View.View("State")
var_View1.BeginUpdate()
var_View1.SingleSel = .f.
var_View1.ColumnAutoResize = .t.
var_View1.Columns.Item(0).Visible = .f.
var_View1.Columns.Item(1).Visible = .f.
var_Column = var_View1.Columns.Item(2)
var_Column.HTMLCaption = "State <off 4><fgcolor=808080>Name"
var_Column.SortOrder = 1
var_View1.EndUpdate()
var_View2 = var_View.View("City")
nSelected = var_View2.ParentView.Items.SelectCount
bGroupBy = oCascadeTree.FormatABC("value > 1 ? -1 : 0",nSelected)
var_View2.BeginUpdate()
var_View2.SingleSel = .f.
var_View2.SortBarCaption = "Drag a <b>column</b> header here to group by that column."
var_View2.HasLines = 1
var_View2.ColumnAutoResize = .f.
var_View2.DrawGridLines = 2
var_View2.GridLineStyle = 32
var_View2.Columns.Item("CountryCode").Visible = .f.
var_Column1 = var_View2.Columns.Item("Name")
var_Column1.HTMLCaption = "City <off 4><fgcolor=808080>Name"
var_Column1.Width = 128
var_Column1.SortOrder = 1
var_View2.SearchColumnIndex = 2
var_View2.TreeColumnIndex = var_View2.SearchColumnIndex
var_View2.SingleSort = .f.
var_View2.AllowGroupBy = .f.
var_View2.SortBarVisible = .f.
var_Column2 = var_View2.Columns.Item("StateCode")
var_Column2.Visible = .f.
var_Column2.SortOrder = 1
var_View2.Width = var_View2.WidthToFit
var_View2.EndUpdate()
end function
' An internal error occurs.
function Error as v (Error as N,Description as C)
oCascadeTree = topparent:CONTROL_ACTIVEX1.activex
? "Error"
? Description
end function
Dim oCascadeTree as P
Dim var_Appearance as P
Dim var_Column as P
Dim var_View as P
oCascadeTree = topparent:CONTROL_ACTIVEX1.activex
oCascadeTree.BeginUpdate()
var_Appearance = oCascadeTree.VisualAppearance
var_Appearance.Add(1,"C:\Program Files\Exontrol\ExCascadeTree\Sample\EBN\Assorted\vistaselDark.ebn")
var_Appearance.Add(2,"C:\Program Files\Exontrol\ExCascadeTree\Sample\EBN\Assorted\bhframe.ebn")
oCascadeTree.DataSource = "Source=C:\Program Files\Exontrol\ExCascadeTree\Sample\Access\cities.mdb;Member=Select * FROM Countries;Key=CountryCode;Tag=Country;Name=CountryName >>> Member=Select * FROM States WHERE CountryCode IN (<%Parent.CountryCode%>);Key=StateCode;Name=StateName;Tag=State ||| Member=Select * FROM Cities WHERE CountryCode IN (<%Parent.CountryCode%>);Tag=City;Name=Name >>> Member=Select * FROM Cities WHERE CountryCode IN (<%Parent.Parent.CountryCode%>) AND StateCode IN (<%Parent.StateCode%>);Tag=City;Name=Name"
oCascadeTree.Select = "RO\CJ|BV|GL|IL"
var_View = oCascadeTree.DefaultView().View("Country")
var_View.BeginUpdate()
var_View.ColumnAutoResize = .t.
var_View.Columns.Item(0).Visible = .f.
var_Column = var_View.Columns.Item(1)
var_Column.HTMLCaption = "Country <off 4><fgcolor=808080>Name"
var_Column.SortOrder = 1
var_View.EndUpdate()
oCascadeTree.SelBackColor = 16777216
oCascadeTree.SelForeColor = 16777215
oCascadeTree.BackColorHeader = 33554432
oCascadeTree.BackColorSortBar = oCascadeTree.BackColor
oCascadeTree.BackColorSortBarCaption = oCascadeTree.BackColor
oCascadeTree.Template = "ScrollPartVisible(0,65536) = True" // oCascadeTree.ScrollPartVisible(0,65536) = .t.
oCascadeTree.Template = "ScrollPartVisible(1,65536) = True" // oCascadeTree.ScrollPartVisible(1,65536) = .t.
oCascadeTree.Template = "ScrollPartVisible(2,65536) = True" // oCascadeTree.ScrollPartVisible(2,65536) = .t.
oCascadeTree.ScrollWidth = 4
oCascadeTree.Template = "Background(276) = 15790320" // oCascadeTree.Background(276) = 15790320
oCascadeTree.Template = "Background(260) = 8421504" // oCascadeTree.Background(260) = 8421504
oCascadeTree.ScrollHeight = 4
oCascadeTree.Template = "Background(404) = Background(276)" // oCascadeTree.Background(404) = oCascadeTree.Background(276)
oCascadeTree.Template = "Background(388) = Background(260)" // oCascadeTree.Background(388) = oCascadeTree.Background(260)
oCascadeTree.Template = "Background(511) = Background(276)" // oCascadeTree.Background(511) = oCascadeTree.Background(276)
oCascadeTree.Template = "Background(18) = 12895428" // oCascadeTree.Background(18) = 12895428
oCascadeTree.Template = "Background(142) = Background(18)" // oCascadeTree.Background(142) = oCascadeTree.Background(18)
oCascadeTree.Template = "Background(141) = Background(18)" // oCascadeTree.Background(141) = oCascadeTree.Background(18)
oCascadeTree.Template = "Background(170) = 4" // oCascadeTree.Background(170) = 4
oCascadeTree.BackColorSortBar = oCascadeTree.BackColor
oCascadeTree.EndUpdate()
|
|
63
|
Manual sample
' A view has been created.
function CreateView as v (V as OLE::Exontrol.CascadeTree.1::IView)
Dim k as
Dim var_Column as local
Dim var_Items as P
Dim var_View as P
oCascadeTree = topparent:CONTROL_ACTIVEX1.activex
var_View = oCascadeTree.View
var_View.BeginUpdate()
k = var_View.ParentView.Value()
var_View.HeaderVisible = .f.
var_View.ColumnAutoResize = .t.
var_View.ScrollBySingleLine = .t.
' var_View.Columns.Add("Default").Def(16) = .f.
var_Column = var_View.Columns.Add("Default")
oCascadeTree.TemplateDef = "dim var_Column"
oCascadeTree.TemplateDef = var_Column
oCascadeTree.Template = "var_Column.Def(16) = False"
var_View.Key = 0
var_Items = var_View.Items
var_Items.AddItem(oCascadeTree.FormatABC("A + `.Child 1`",k))
var_Items.AddItem(oCascadeTree.FormatABC("A + `.Child 2`",k))
var_Items.AddItem(oCascadeTree.FormatABC("A + `.Child 3`",k))
var_View.EndUpdate()
end function
Dim oCascadeTree as P
Dim var_Column as local
Dim var_Items as P
Dim var_View as P
oCascadeTree = topparent:CONTROL_ACTIVEX1.activex
oCascadeTree.BeginUpdate()
oCascadeTree.BackColorAlternate = 2146496752
oCascadeTree.Template = "Background(18) = 15790320" // oCascadeTree.Background(18) = 15790320
var_View = oCascadeTree.DefaultView()
var_View.BeginUpdate()
var_View.HeaderVisible = .f.
var_View.ColumnAutoResize = .t.
var_View.ScrollBySingleLine = .t.
' var_View.Columns.Add("Default").Def(16) = .f.
var_Column = var_View.Columns.Add("Default")
oCascadeTree.TemplateDef = "dim var_Column"
oCascadeTree.TemplateDef = var_Column
oCascadeTree.Template = "var_Column.Def(16) = False"
var_View.Key = 0
var_Items = var_View.Items
var_Items.AddItem("Item A")
var_Items.AddItem("Item B")
var_Items.AddItem("Item C")
var_View.EndUpdate()
oCascadeTree.Select = "Item A\Item*A*2\Item*A*2*3\"
oCascadeTree.EndUpdate()
|
|
62
|
Appearance sample
' A view has been created.
function CreateView as v (View as OLE::Exontrol.CascadeTree.1::IView)
Dim h as N
Dim var_Column as P
Dim var_Column1 as P
Dim var_ConditionalFormat as local
Dim var_Items as P
Dim var_Items1 as P
Dim var_View as P
Dim var_View1 as P
Dim var_View2 as P
oCascadeTree = topparent:CONTROL_ACTIVEX1.activex
oCascadeTree.View.HeaderHeight = 24
var_View = oCascadeTree.DefaultView()
var_View1 = var_View.View("State")
var_View1.BeginUpdate()
var_View1.ColumnAutoResize = .t.
var_View1.Columns.Item(0).Visible = .f.
var_View1.Columns.Item(1).Visible = .f.
var_Column = var_View1.Columns.Item(2)
var_Column.HTMLCaption = "State <off 4><fgcolor=808080>Name"
var_Column.SortOrder = 1
var_Items = var_View1.Items
' var_Items.LockedItemCount(0) = 1
oCascadeTree.TemplateDef = "dim var_Items"
oCascadeTree.TemplateDef = var_Items
oCascadeTree.Template = "var_Items.LockedItemCount(0) = 1"
h = var_Items.LockedItem(0,0)
' var_Items.ItemDivider(h) = 0
oCascadeTree.TemplateDef = "dim var_Items,h"
oCascadeTree.TemplateDef = var_Items
oCascadeTree.TemplateDef = h
oCascadeTree.Template = "var_Items.ItemDivider(h) = 0"
' var_Items.CellValueFormat(h,0) = 5 'exTotalField + exHTML
oCascadeTree.TemplateDef = "dim var_Items,h"
oCascadeTree.TemplateDef = var_Items
oCascadeTree.TemplateDef = h
oCascadeTree.Template = "var_Items.CellValueFormat(h,0) = 5"
' var_Items.CellValue(h,0) = "count(all,all,1)"
oCascadeTree.TemplateDef = "dim var_Items,h"
oCascadeTree.TemplateDef = var_Items
oCascadeTree.TemplateDef = h
oCascadeTree.Template = "var_Items.CellValue(h,0) = `count(all,all,1)`"
' var_Items.FormatCell(h,0) = "`<r>States: <b>`+ (value format `0`)"
oCascadeTree.TemplateDef = "dim var_Items,h"
oCascadeTree.TemplateDef = var_Items
oCascadeTree.TemplateDef = h
oCascadeTree.Template = "var_Items.FormatCell(h,0) = ```<r>States: <b>``+ (value format ``0``)`"
var_View1.EndUpdate()
var_View2 = var_View.View("City")
var_View2.BeginUpdate()
var_View2.SingleSel = .f.
var_View2.ColumnAutoResize = .f.
var_View2.DrawGridLines = 2
var_View2.GridLineStyle = 32
var_View2.Columns.Item(0).Visible = .f.
var_View2.Columns.Item(1).Visible = .f.
var_Column1 = var_View2.Columns.Item(2)
var_Column1.HTMLCaption = "City <off 4><fgcolor=808080>Name"
var_Column1.Width = 128
' var_Column1.Def(0) = .t.
oCascadeTree.TemplateDef = "dim var_Column1"
oCascadeTree.TemplateDef = var_Column1
oCascadeTree.Template = "var_Column1.Def(0) = True"
var_Column1.SortOrder = 1
var_View2.SearchColumnIndex = 2
' var_View2.ConditionalFormats.Add("%CS2 = 1").Bold = .t.
var_ConditionalFormat = var_View2.ConditionalFormats.Add("%CS2 = 1")
oCascadeTree.TemplateDef = "dim var_ConditionalFormat"
oCascadeTree.TemplateDef = var_ConditionalFormat
oCascadeTree.Template = "var_ConditionalFormat.Bold = True"
var_Items1 = var_View2.Items
' var_Items1.LockedItemCount(0) = 1
oCascadeTree.TemplateDef = "dim var_Items1"
oCascadeTree.TemplateDef = var_Items1
oCascadeTree.Template = "var_Items1.LockedItemCount(0) = 1"
h = var_Items1.LockedItem(0,0)
' var_Items1.ItemDivider(h) = 0
oCascadeTree.TemplateDef = "dim var_Items1,h"
oCascadeTree.TemplateDef = var_Items1
oCascadeTree.TemplateDef = h
oCascadeTree.Template = "var_Items1.ItemDivider(h) = 0"
' var_Items1.CellValueFormat(h,0) = 5 'exTotalField + exHTML
oCascadeTree.TemplateDef = "dim var_Items1,h"
oCascadeTree.TemplateDef = var_Items1
oCascadeTree.TemplateDef = h
oCascadeTree.Template = "var_Items1.CellValueFormat(h,0) = 5"
' var_Items1.CellValue(h,0) = "count(all,all,1)"
oCascadeTree.TemplateDef = "dim var_Items1,h"
oCascadeTree.TemplateDef = var_Items1
oCascadeTree.TemplateDef = h
oCascadeTree.Template = "var_Items1.CellValue(h,0) = `count(all,all,1)`"
' var_Items1.FormatCell(h,0) = "`<r>Cities: <b>`+ (value format `0`)"
oCascadeTree.TemplateDef = "dim var_Items1,h"
oCascadeTree.TemplateDef = var_Items1
oCascadeTree.TemplateDef = h
oCascadeTree.Template = "var_Items1.FormatCell(h,0) = ```<r>Cities: <b>``+ (value format ``0``)`"
var_View2.Width = var_View2.WidthToFit
var_View2.EndUpdate()
end function
' An internal error occurs.
function Error as v (Error as N,Description as C)
oCascadeTree = topparent:CONTROL_ACTIVEX1.activex
? "Error"
? Description
end function
Dim h as N
Dim oCascadeTree as P
Dim var_Appearance as P
Dim var_Column as P
Dim var_Items as P
Dim var_View as P
oCascadeTree = topparent:CONTROL_ACTIVEX1.activex
oCascadeTree.BeginUpdate()
var_Appearance = oCascadeTree.VisualAppearance
var_Appearance.Add(1,"C:\Program Files\Exontrol\ExCascadeTree\Sample\EBN\MSOffice-Ribbon\msor_select.ebn")
var_Appearance.Add(2,"C:\Program Files\Exontrol\ExCascadeTree\Sample\EBN\MSOffice-Ribbon\msor_background.ebn")
oCascadeTree.DataSource = "Source=C:\Program Files\Exontrol\ExCascadeTree\Sample\Access\cities.mdb;Member=Select * FROM Countries;Key=CountryCode;Tag=Country;Name=CountryName >>> Member=Select * FROM States WHERE CountryCode IN (<%Parent.CountryCode%>);Key=StateCode;Name=StateName;Tag=State ||| Member=Select * FROM Cities WHERE CountryCode IN (<%Parent.CountryCode%>);Tag=City;Name=Name >>> Member=Select * FROM Cities WHERE CountryCode IN (<%Parent.Parent.CountryCode%>) AND StateCode IN (<%Parent.StateCode%>);Tag=City;Name=Name"
oCascadeTree.Select = "US\AK"
var_View = oCascadeTree.DefaultView().View("Country")
var_View.BeginUpdate()
var_View.ColumnAutoResize = .t.
var_View.Columns.Item(0).Visible = .f.
var_Column = var_View.Columns.Item(1)
var_Column.HTMLCaption = "Country <off 4><fgcolor=808080>Name"
var_Column.SortOrder = 1
var_Items = var_View.Items
' var_Items.LockedItemCount(0) = 1
oCascadeTree.TemplateDef = "dim var_Items"
oCascadeTree.TemplateDef = var_Items
oCascadeTree.Template = "var_Items.LockedItemCount(0) = 1"
h = var_Items.LockedItem(0,0)
' var_Items.ItemDivider(h) = 0
oCascadeTree.TemplateDef = "dim var_Items,h"
oCascadeTree.TemplateDef = var_Items
oCascadeTree.TemplateDef = h
oCascadeTree.Template = "var_Items.ItemDivider(h) = 0"
' var_Items.CellValueFormat(h,0) = 5 'exTotalField + exHTML
oCascadeTree.TemplateDef = "dim var_Items,h"
oCascadeTree.TemplateDef = var_Items
oCascadeTree.TemplateDef = h
oCascadeTree.Template = "var_Items.CellValueFormat(h,0) = 5"
' var_Items.CellValue(h,0) = "count(all,all,1)"
oCascadeTree.TemplateDef = "dim var_Items,h"
oCascadeTree.TemplateDef = var_Items
oCascadeTree.TemplateDef = h
oCascadeTree.Template = "var_Items.CellValue(h,0) = `count(all,all,1)`"
' var_Items.FormatCell(h,0) = "`<r>Countries: <b>`+ (value format `0`)"
oCascadeTree.TemplateDef = "dim var_Items,h"
oCascadeTree.TemplateDef = var_Items
oCascadeTree.TemplateDef = h
oCascadeTree.Template = "var_Items.FormatCell(h,0) = ```<r>Countries: <b>``+ (value format ``0``)`"
var_View.EndUpdate()
oCascadeTree.SelBackColor = 16777216
oCascadeTree.SelForeColor = 0
oCascadeTree.BackColorHeader = 33554432
oCascadeTree.Template = "ScrollPartVisible(0,65536) = True" // oCascadeTree.ScrollPartVisible(0,65536) = .t.
oCascadeTree.Template = "ScrollPartVisible(1,65536) = True" // oCascadeTree.ScrollPartVisible(1,65536) = .t.
oCascadeTree.Template = "ScrollPartVisible(2,65536) = True" // oCascadeTree.ScrollPartVisible(2,65536) = .t.
oCascadeTree.ScrollWidth = 4
oCascadeTree.Template = "Background(276) = 15790320" // oCascadeTree.Background(276) = 15790320
oCascadeTree.Template = "Background(260) = 8421504" // oCascadeTree.Background(260) = 8421504
oCascadeTree.ScrollHeight = 4
oCascadeTree.Template = "Background(404) = Background(276)" // oCascadeTree.Background(404) = oCascadeTree.Background(276)
oCascadeTree.Template = "Background(388) = Background(260)" // oCascadeTree.Background(388) = oCascadeTree.Background(260)
oCascadeTree.Template = "Background(511) = Background(276)" // oCascadeTree.Background(511) = oCascadeTree.Background(276)
oCascadeTree.Template = "Background(18) = 12895428" // oCascadeTree.Background(18) = 12895428
oCascadeTree.Template = "Background(142) = Background(18)" // oCascadeTree.Background(142) = oCascadeTree.Background(18)
oCascadeTree.Template = "Background(141) = Background(18)" // oCascadeTree.Background(141) = oCascadeTree.Background(18)
oCascadeTree.Template = "Background(170) = 4" // oCascadeTree.Background(170) = 4
oCascadeTree.BackColorSortBar = oCascadeTree.BackColor
oCascadeTree.EndUpdate()
|
|
61
|
How can I get the selected items (sample 2)
' A view has been created.
function CreateView as v (View as OLE::Exontrol.CascadeTree.1::IView)
Dim k as
Dim var_Items as P
Dim var_View as P
oCascadeTree = topparent:CONTROL_ACTIVEX1.activex
var_View = oCascadeTree.View
k = var_View.ParentView.Value()
var_View.BeginUpdate()
var_View.ColumnAutoResize = .t.
var_View.Key = -1
var_View.Columns.Add(k)
var_Items = var_View.Items
var_Items.AddItem(oCascadeTree.FormatABC("A + `-> Sub-Item 1`",k))
var_Items.AddItem(oCascadeTree.FormatABC("A + `-> Sub-Item 2`",k))
var_Items.AddItem(oCascadeTree.FormatABC("A + `-> Sub-Item 3`",k))
var_View.EndUpdate()
end function
' Indicates that the state of the item has been changed.
function ViewItemStateEndChanging as v (Operation as OLE::Exontrol.CascadeTree.1::ViewItemStateEnum,Item as OLE::Exontrol.CascadeTree.1::HITEM,ColIndex as N)
Dim var_Items as P
oCascadeTree = topparent:CONTROL_ACTIVEX1.activex
? "End"
? Operation
var_Items = oCascadeTree.View.Items
? "FocusItem"
? var_Items.CellCaption(var_Items.FocusItem,0)
? "SelectedItem"
? var_Items.CellCaption(var_Items.SelectedItem(0),0)
end function
' Indicates that the state of the item is about to be changed.
function ViewItemStateStartChanging as v (Operation as OLE::Exontrol.CascadeTree.1::ViewItemStateEnum,Item as OLE::Exontrol.CascadeTree.1::HITEM,ColIndex as N,Cancel as A)
oCascadeTree = topparent:CONTROL_ACTIVEX1.activex
? "Start"
? Operation
end function
Dim oCascadeTree as P
Dim var_Items as P
Dim var_View as P
oCascadeTree = topparent:CONTROL_ACTIVEX1.activex
oCascadeTree.BeginUpdate()
var_View = oCascadeTree.View
var_View.BeginUpdate()
var_View.ColumnAutoResize = .t.
var_View.Columns.Add("Default")
var_View.Key = 0
var_View.LinesAtRoot = -1
var_Items = var_View.Items
var_Items.AddItem("Item A")
' var_Items.SelectItem(var_Items.AddItem("Item B")) = .t.
oCascadeTree.TemplateDef = "dim var_Items"
oCascadeTree.TemplateDef = var_Items
oCascadeTree.Template = "var_Items.SelectItem(AddItem(`Item B`)) = True"
var_Items.AddItem("Item C")
var_View.EndUpdate()
oCascadeTree.EndUpdate()
|
|
60
|
How do I specify a foreground color for a particular view
' An internal error occurs.
function Error as v (Error as N,Description as C)
oCascadeTree = topparent:CONTROL_ACTIVEX1.activex
? "Error"
? Description
end function
Dim oCascadeTree as P
Dim var_ConditionalFormat as local
oCascadeTree = topparent:CONTROL_ACTIVEX1.activex
oCascadeTree.BeginUpdate()
oCascadeTree.Mode = 3
oCascadeTree.Template = "Background(18) = 12895428" // oCascadeTree.Background(18) = 12895428
oCascadeTree.DataSource = "Source=C:\Program Files\Exontrol\ExCascadeTree\Sample\Access\cities.accdb;Member=Select * FROM Countries;Key=CountryCode;Tag=Country;Name=CountryName >>> Member=Select * FROM States WHERE CountryCode IN (<%Parent.CountryCode%>);Key=StateCode;Name=StateName;Tag=State ||| Member=Select * FROM Cities WHERE CountryCode IN (<%Parent.CountryCode%>);Tag=City;Name=Name >>> Member=Select * FROM Cities WHERE CountryCode IN (<%Parent.Parent.CountryCode%>) AND StateCode IN (<%Parent.StateCode%>);Tag=City;Name=Name"
oCascadeTree.Select = "US\AK"
' oCascadeTree.DefaultView().ConditionalFormats.Add("1").ForeColor = 8421504
var_ConditionalFormat = oCascadeTree.DefaultView().ConditionalFormats.Add("1")
oCascadeTree.TemplateDef = "dim var_ConditionalFormat"
oCascadeTree.TemplateDef = var_ConditionalFormat
oCascadeTree.Template = "var_ConditionalFormat.ForeColor = 8421504"
oCascadeTree.EndUpdate()
|
|
59
|
How do display result/items in the view's filter bar
' A view has been created.
function CreateView as v (View as OLE::Exontrol.CascadeTree.1::IView)
Dim var_Column as P
Dim var_Column1 as P
Dim var_Column2 as P
Dim var_Column3 as P
Dim var_View as P
Dim var_View1 as P
Dim var_View2 as P
Dim var_View3 as P
Dim var_View4 as P
Dim var_View5 as P
oCascadeTree = topparent:CONTROL_ACTIVEX1.activex
var_View = oCascadeTree.View
var_View.HeaderAppearance = 4
var_View.HeaderHeight = 24
var_View.DrawGridLines = -1
var_View.GridLineStyle = 12
var_View1 = oCascadeTree.DefaultView()
var_View2 = var_View1.View("Country")
var_View2.BeginUpdate()
var_View2.ColumnAutoResize = .t.
var_View2.Columns.Item(0).Visible = .f.
var_Column = var_View2.Columns.Item(1)
var_Column.HTMLCaption = "Country <off 4><fgcolor=808080>Name"
var_Column.DisplayFilterButton = .t.
var_Column.FilterList = 9504 'exShowExclude + exShowFocusItem + exShowCheckBox + exSortItemsAsc
var_Column.FilterBarDropDownWidth = 2
var_View2.EndUpdate()
var_View3 = var_View1.View("State")
var_View3.BeginUpdate()
var_View3.ColumnAutoResize = .t.
var_View3.Columns.Item(0).Visible = .f.
var_View3.Columns.Item(1).Visible = .f.
var_Column1 = var_View3.Columns.Item(2)
var_Column1.HTMLCaption = "State <off 4><fgcolor=808080>Name"
var_Column1.DisplayFilterButton = .t.
var_Column1.FilterList = 9504 'exShowExclude + exShowFocusItem + exShowCheckBox + exSortItemsAsc
var_Column1.FilterBarDropDownWidth = 2
var_View3.EndUpdate()
var_View4 = var_View1.View("City")
var_View4.BeginUpdate()
var_View4.Columns.Item(0).Visible = .f.
var_View4.Columns.Item(1).Visible = .f.
var_Column2 = var_View4.Columns.Item(2)
var_Column2.HTMLCaption = "City <off 4><fgcolor=808080>Name"
var_Column2.Width = 128
' var_Column2.Def(0) = .t.
oCascadeTree.TemplateDef = "dim var_Column2"
oCascadeTree.TemplateDef = var_Column2
oCascadeTree.Template = "var_Column2.Def(0) = True"
var_Column2.DisplayFilterButton = .t.
var_Column2.FilterList = 9504 'exShowExclude + exShowFocusItem + exShowCheckBox + exSortItemsAsc
var_Column2.FilterBarDropDownWidth = 2
var_Column3 = var_View4.Columns.Add("Pos")
var_Column3.AllowSizing = .f.
var_Column3.Width = 32
' var_Column3.Def(4) = 15790320
oCascadeTree.TemplateDef = "dim var_Column3"
oCascadeTree.TemplateDef = var_Column3
oCascadeTree.Template = "var_Column3.Def(4) = 15790320"
var_Column3.Position = 0
var_Column3.FormatColumn = "1 pos ``"
var_View4.CountLockedColumns = 1
var_View4.EndUpdate()
var_View5 = oCascadeTree.View
var_View5.FilterBarHeight = 36
var_View5.FilterBarCaption = "(( ( allui replace `[<b>` with `<bgcolor=000000><fgcolor=FFFFFF><b> ` replace `</b>]` with ` </b></bgcolor></fgcolor>` replace `[<s>` with `<bgcolor=C0C0C0><fgcolor=FFFFFF> ` replace `</s>]` with ` </fgcolor></bgcolor>` ) + `<r><fgcolor=808080>` + ( matchitemcount < 0 ? ( ( len(value) ? `` : `` ) + `<r>` + abs(matchitemcount + 1) + ` result(s)` ) : (`<r><fgcolor=808080>`+ itemcount + ` item(s)`) )))"
var_View5.FilterBarPromptType = 3
var_View5.FilterBarPromptVisible = 515 'exFilterBarShowCloseIfRequired + exFilterBarVisible + exFilterBarPromptVisible
end function
' An internal error occurs.
function Error as v (Error as N,Description as C)
oCascadeTree = topparent:CONTROL_ACTIVEX1.activex
? "Error"
? Description
end function
Dim oCascadeTree as P
Dim var_View as P
oCascadeTree = topparent:CONTROL_ACTIVEX1.activex
oCascadeTree.BeginUpdate()
oCascadeTree.Template = "ScrollPartVisible(0,65536) = True" // oCascadeTree.ScrollPartVisible(0,65536) = .t.
oCascadeTree.Template = "ScrollPartVisible(1,65536) = True" // oCascadeTree.ScrollPartVisible(1,65536) = .t.
oCascadeTree.Template = "ScrollPartVisible(2,65536) = True" // oCascadeTree.ScrollPartVisible(2,65536) = .t.
oCascadeTree.ScrollWidth = 4
oCascadeTree.Template = "Background(276) = 15790320" // oCascadeTree.Background(276) = 15790320
oCascadeTree.Template = "Background(260) = 8421504" // oCascadeTree.Background(260) = 8421504
oCascadeTree.ScrollHeight = 4
oCascadeTree.Template = "Background(404) = Background(276)" // oCascadeTree.Background(404) = oCascadeTree.Background(276)
oCascadeTree.Template = "Background(388) = Background(260)" // oCascadeTree.Background(388) = oCascadeTree.Background(260)
oCascadeTree.Template = "Background(511) = Background(276)" // oCascadeTree.Background(511) = oCascadeTree.Background(276)
oCascadeTree.Template = "Background(18) = 12895428" // oCascadeTree.Background(18) = 12895428
oCascadeTree.Template = "Background(142) = Background(18)" // oCascadeTree.Background(142) = oCascadeTree.Background(18)
oCascadeTree.Template = "Background(141) = Background(18)" // oCascadeTree.Background(141) = oCascadeTree.Background(18)
oCascadeTree.Template = "Background(170) = 2" // oCascadeTree.Background(170) = 2
oCascadeTree.EndUpdate()
oCascadeTree.BeginUpdate()
oCascadeTree.MinColumnWidth = 348
oCascadeTree.Mode = 3
oCascadeTree.Template = "Background(18) = 12895428" // oCascadeTree.Background(18) = 12895428
oCascadeTree.DataSource = "Source=C:\Program Files\Exontrol\ExCascadeTree\Sample\Access\cities.accdb;Member=Select * FROM Countries;Key=CountryCode;Tag=Country;Name=CountryName >>> Member=Select * FROM States WHERE CountryCode IN (<%Parent.CountryCode%>);Key=StateCode;Name=StateName;Tag=State ||| Member=Select * FROM Cities WHERE CountryCode IN (<%Parent.CountryCode%>);Tag=City;Name=Name >>> Member=Select * FROM Cities WHERE CountryCode IN (<%Parent.Parent.CountryCode%>) AND StateCode IN (<%Parent.StateCode%>);Tag=City;Name=Name"
oCascadeTree.Select = "US\AK"
var_View = oCascadeTree.DefaultView().View("City")
var_View.FilterBarPromptPattern = "An"
oCascadeTree.EndUpdate()
|
|
58
|
I am using the filter prompt feature, the question is how can I filter for items that starts with typed characters rather than contains
' A view has been created.
function CreateView as v (View as OLE::Exontrol.CascadeTree.1::IView)
Dim var_View as P
oCascadeTree = topparent:CONTROL_ACTIVEX1.activex
var_View = oCascadeTree.View
var_View.FilterBarPromptType = 3
var_View.FilterBarPromptVisible = 1
end function
' An internal error occurs.
function Error as v (Error as N,Description as C)
oCascadeTree = topparent:CONTROL_ACTIVEX1.activex
? "Error"
? Description
end function
Dim oCascadeTree as P
Dim var_Column as P
Dim var_View as P
oCascadeTree = topparent:CONTROL_ACTIVEX1.activex
oCascadeTree.BeginUpdate()
oCascadeTree.Mode = 3
oCascadeTree.Template = "Background(18) = 12895428" // oCascadeTree.Background(18) = 12895428
oCascadeTree.DataSource = "Source=C:\Program Files\Exontrol\ExCascadeTree\Sample\Access\cities.accdb;Member=Select * FROM Countries;Key=CountryCode;Tag=Country;Name=CountryName >>> Member=Select * FROM States WHERE CountryCode IN (<%Parent.CountryCode%>);Key=StateCode;Name=StateName;Tag=State ||| Member=Select * FROM Cities WHERE CountryCode IN (<%Parent.CountryCode%>);Tag=City;Name=Name >>> Member=Select * FROM Cities WHERE CountryCode IN (<%Parent.Parent.CountryCode%>) AND StateCode IN (<%Parent.StateCode%>);Tag=City;Name=Name"
oCascadeTree.Select = "US\AK"
var_View = oCascadeTree.DefaultView().View("City")
var_View.FilterBarPromptPattern = "An"
var_Column = var_View.Columns.Item("Name")
var_Column.Width = 128
' var_Column.Def(17) = 1
oCascadeTree.TemplateDef = "dim var_Column"
oCascadeTree.TemplateDef = var_Column
oCascadeTree.Template = "var_Column.Def(17) = 1"
var_Column.FormatColumn = "value replace `An` with `<bgcolor=000000><fgcolor=FFFFFF>An</fgcolor></bgcolor>` "
oCascadeTree.EndUpdate()
|
|
57
|
FilterBarCaption Predefined Keywords
' An internal error occurs.
function Error as v (Error as N,Description as C)
oCascadeTree = topparent:CONTROL_ACTIVEX1.activex
? "Error"
? Description
end function
Dim oCascadeTree as P
Dim var_Column as P
Dim var_Column1 as P
Dim var_Column2 as P
Dim var_View as P
oCascadeTree = topparent:CONTROL_ACTIVEX1.activex
oCascadeTree.BeginUpdate()
oCascadeTree.BackColorAlternate = 15790320
oCascadeTree.Mode = 1
oCascadeTree.Template = "Background(18) = 12895428" // oCascadeTree.Background(18) = 12895428
oCascadeTree.DataSource = "Source=C:\Program Files\Exontrol\ExCascadeTree\Sample\Access\cities.accdb;Member=Select * FROM Countries;Key=CountryCode;Tag=Country;Name=CountryName >>> Member=Select * FROM States WHERE CountryCode IN (<%Parent.CountryCode%>);Key=StateCode;Name=StateName;Tag=State ||| Member=Select * FROM Cities WHERE CountryCode IN (<%Parent.CountryCode%>);Tag=City;Name=Name >>> Member=Select * FROM Cities WHERE CountryCode IN (<%Parent.Parent.CountryCode%>) AND StateCode IN (<%Parent.StateCode%>);Tag=City;Name=Name"
oCascadeTree.Select = "US"
var_View = oCascadeTree.DefaultView().View("Country")
var_Column = var_View.Columns.Add("Pos")
var_Column.Position = 0
var_Column.Width = 32
var_Column.AllowSizing = .f.
var_Column.FormatColumn = "1pos ``"
var_Column1 = var_View.Columns.Item("CountryCode")
var_Column1.Width = 32
var_Column1.AllowSizing = .f.
var_Column1.DisplayFilterButton = .t.
var_Column2 = var_View.Columns.Item("CountryName")
var_Column2.DisplayFilterButton = .t.
var_Column2.FilterList = 9504 'exShowExclude + exShowFocusItem + exShowCheckBox + exSortItemsAsc
var_Column2.FilterBarDropDownWidth = 2
var_Column2.FilterType = 240
var_Column2.Filter = "Italy|Romania|Germany"
var_View.FilterBarPromptPattern = "a"
var_View.ColumnAutoResize = .t.
var_View.SearchColumnIndex = var_View.Columns.Item("CountryName").Index
var_View.FilterInclude = 1
var_View.FilterBarCaption = "`<fgcolor=0000FF><i>value/current</i></fgcolor>: <fgcolor=808080>` + value + `</fgcolor>` + `<br><fgcolor=0000FF><i>available</i></fgcolor>: ` + available + `<br><fgcolor=0000FF><i>allui</i></fgcolor>: ` + allui + `<br><fgcolor=0000FF><i>all</i></fgcolor>: ` + all + `<br><fgcolor=0000FF><i>itemcount</i></fgcolor>: <fgcolor=808080>` + itemcount + `</fgcolor>`+ `<br><fgcolor=0000FF><i>visibleitemcount</i></fgcolor>: <fgcolor=808080>` + visibleitemcount + `</fgcolor>`+ `<br><fgcolor=0000FF><i>matchitemcount</i></fgcolor>: <fgcolor=808080>` + matchitemcount + `</fgcolor>`+ `<br><fgcolor=0000FF><i>promptpattern</i></fgcolor>: <fgcolor=808080>` + promptpattern + `</fgcolor>`+ `<br><fgcolor=0000FF><i>leafitemcount</i></fgcolor>: <fgcolor=808080>` + leafitemcount + `</fgcolor>`"
var_View.FilterBarPromptVisible = 7 'exFilterBarCaptionVisible + exFilterBarVisible + exFilterBarPromptVisible
var_View.ApplyFilter()
oCascadeTree.EndUpdate()
|
|
56
|
How can I enable the column's filter bar (view)
' A view has been created.
function CreateView as v (View as OLE::Exontrol.CascadeTree.1::IView)
oCascadeTree = topparent:CONTROL_ACTIVEX1.activex
oCascadeTree.View.FilterBarPromptVisible = 1
end function
' An internal error occurs.
function Error as v (Error as N,Description as C)
oCascadeTree = topparent:CONTROL_ACTIVEX1.activex
? "Error"
? Description
end function
Dim oCascadeTree as P
Dim var_Column as P
Dim var_View as P
oCascadeTree = topparent:CONTROL_ACTIVEX1.activex
oCascadeTree.BeginUpdate()
oCascadeTree.Mode = 3
oCascadeTree.Template = "Background(18) = 12895428" // oCascadeTree.Background(18) = 12895428
oCascadeTree.DataSource = "Source=C:\Program Files\Exontrol\ExCascadeTree\Sample\Access\cities.accdb;Member=Select * FROM Countries;Key=CountryCode;Tag=Country;Name=CountryName >>> Member=Select * FROM States WHERE CountryCode IN (<%Parent.CountryCode%>);Key=StateCode;Name=StateName;Tag=State ||| Member=Select * FROM Cities WHERE CountryCode IN (<%Parent.CountryCode%>);Tag=City;Name=Name >>> Member=Select * FROM Cities WHERE CountryCode IN (<%Parent.Parent.CountryCode%>) AND StateCode IN (<%Parent.StateCode%>);Tag=City;Name=Name"
oCascadeTree.Select = "US\AK"
var_View = oCascadeTree.DefaultView().View("Country")
var_View.ColumnAutoResize = .t.
var_View.Columns.Item("CountryCode").Visible = .f.
var_Column = var_View.Columns.Item("CountryName")
var_Column.DisplayFilterButton = .t.
var_Column.FilterList = 9504 'exShowExclude + exShowFocusItem + exShowCheckBox + exSortItemsAsc
var_Column.FilterBarDropDownWidth = 2
var_Column.FilterType = 240
var_Column.Filter = "Romania|Germany"
var_View.ApplyFilter()
oCascadeTree.EndUpdate()
|
|
55
|
How can I enable the column's filter bar
' A view has been created.
function CreateView as v (View as OLE::Exontrol.CascadeTree.1::IView)
Dim var_Column as P
Dim var_Column1 as P
Dim var_View as P
Dim var_View1 as P
oCascadeTree = topparent:CONTROL_ACTIVEX1.activex
var_View = oCascadeTree.View
var_View.FilterBarPromptVisible = 1
var_Column = var_View.Columns.Item(0)
var_Column.DisplayFilterButton = .t.
var_Column.FilterList = 9504 'exShowExclude + exShowFocusItem + exShowCheckBox + exSortItemsAsc
var_Column.FilterBarDropDownWidth = 2
var_View1 = oCascadeTree.DefaultView().View("Country")
var_Column1 = var_View1.Columns.Item(0)
var_Column1.FilterType = 240
var_Column1.Filter = "US|RO|GE"
var_View1.ApplyFilter()
end function
' An internal error occurs.
function Error as v (Error as N,Description as C)
oCascadeTree = topparent:CONTROL_ACTIVEX1.activex
? "Error"
? Description
end function
Dim oCascadeTree as P
oCascadeTree = topparent:CONTROL_ACTIVEX1.activex
oCascadeTree.BeginUpdate()
oCascadeTree.Mode = 3
oCascadeTree.Template = "Background(18) = 12895428" // oCascadeTree.Background(18) = 12895428
oCascadeTree.DataSource = "Source=C:\Program Files\Exontrol\ExCascadeTree\Sample\Access\cities.accdb;Member=Select * FROM Countries;Key=CountryCode;Tag=Country;Name=CountryName >>> Member=Select * FROM States WHERE CountryCode IN (<%Parent.CountryCode%>);Key=StateCode;Name=StateName;Tag=State ||| Member=Select * FROM Cities WHERE CountryCode IN (<%Parent.CountryCode%>);Tag=City;Name=Name >>> Member=Select * FROM Cities WHERE CountryCode IN (<%Parent.Parent.CountryCode%>) AND StateCode IN (<%Parent.StateCode%>);Tag=City;Name=Name"
oCascadeTree.Select = "US\AK"
oCascadeTree.EndUpdate()
|
|
54
|
How can I enable the control's filter bar (view)
' An internal error occurs.
function Error as v (Error as N,Description as C)
oCascadeTree = topparent:CONTROL_ACTIVEX1.activex
? "Error"
? Description
end function
Dim oCascadeTree as P
Dim var_View as local
oCascadeTree = topparent:CONTROL_ACTIVEX1.activex
oCascadeTree.BeginUpdate()
oCascadeTree.Mode = 3
oCascadeTree.Template = "Background(18) = 12895428" // oCascadeTree.Background(18) = 12895428
oCascadeTree.DataSource = "Source=C:\Program Files\Exontrol\ExCascadeTree\Sample\Access\cities.accdb;Member=Select * FROM Countries;Key=CountryCode;Tag=Country;Name=CountryName >>> Member=Select * FROM States WHERE CountryCode IN (<%Parent.CountryCode%>);Key=StateCode;Name=StateName;Tag=State ||| Member=Select * FROM Cities WHERE CountryCode IN (<%Parent.CountryCode%>);Tag=City;Name=Name >>> Member=Select * FROM Cities WHERE CountryCode IN (<%Parent.Parent.CountryCode%>) AND StateCode IN (<%Parent.StateCode%>);Tag=City;Name=Name"
oCascadeTree.Select = "US\AK"
' oCascadeTree.DefaultView().FilterBarPromptVisible = 1
var_View = oCascadeTree.DefaultView()
oCascadeTree.TemplateDef = "dim var_View"
oCascadeTree.TemplateDef = var_View
oCascadeTree.Template = "var_View.FilterBarPromptVisible = 1"
oCascadeTree.EndUpdate()
|
|
53
|
How can I enable the control's filter bar
' A view has been created.
function CreateView as v (View as OLE::Exontrol.CascadeTree.1::IView)
oCascadeTree = topparent:CONTROL_ACTIVEX1.activex
oCascadeTree.View.FilterBarPromptVisible = 1
end function
' An internal error occurs.
function Error as v (Error as N,Description as C)
oCascadeTree = topparent:CONTROL_ACTIVEX1.activex
? "Error"
? Description
end function
Dim oCascadeTree as P
oCascadeTree = topparent:CONTROL_ACTIVEX1.activex
oCascadeTree.BeginUpdate()
oCascadeTree.Mode = 3
oCascadeTree.Template = "Background(18) = 12895428" // oCascadeTree.Background(18) = 12895428
oCascadeTree.DataSource = "Source=C:\Program Files\Exontrol\ExCascadeTree\Sample\Access\cities.accdb;Member=Select * FROM Countries;Key=CountryCode;Tag=Country;Name=CountryName >>> Member=Select * FROM States WHERE CountryCode IN (<%Parent.CountryCode%>);Key=StateCode;Name=StateName;Tag=State ||| Member=Select * FROM Cities WHERE CountryCode IN (<%Parent.CountryCode%>);Tag=City;Name=Name >>> Member=Select * FROM Cities WHERE CountryCode IN (<%Parent.Parent.CountryCode%>) AND StateCode IN (<%Parent.StateCode%>);Tag=City;Name=Name"
oCascadeTree.Select = "US\AK"
oCascadeTree.EndUpdate()
|
|
52
|
Aggregate sum, min, max, count, avg, divider, total (view)
' An internal error occurs.
function Error as v (Error as N,Description as C)
oCascadeTree = topparent:CONTROL_ACTIVEX1.activex
? "Error"
? Description
end function
Dim h as N
Dim oCascadeTree as P
Dim var_Items as P
Dim var_View as P
oCascadeTree = topparent:CONTROL_ACTIVEX1.activex
oCascadeTree.BeginUpdate()
oCascadeTree.Mode = 2
oCascadeTree.Template = "Background(18) = 12895428" // oCascadeTree.Background(18) = 12895428
oCascadeTree.Template = "Background(170) = 4" // oCascadeTree.Background(170) = 4
oCascadeTree.DataSource = "Source=C:\Program Files\Exontrol\ExCascadeTree\Sample\Access\cities.accdb;Member=Select * FROM Countries;Key=CountryCode;Tag=Country;Name=CountryName >>> Member=Select * FROM States WHERE CountryCode IN (<%Parent.CountryCode%>);Key=StateCode;Name=StateName;Tag=State ||| Member=Select * FROM Cities WHERE CountryCode IN (<%Parent.CountryCode%>);Tag=City;Name=Name >>> Member=Select * FROM Cities WHERE CountryCode IN (<%Parent.Parent.CountryCode%>) AND StateCode IN (<%Parent.StateCode%>);Tag=City;Name=Name"
oCascadeTree.Select = "RO"
var_View = oCascadeTree.DefaultView().View("Country")
var_View.BeginUpdate()
var_View.ColumnAutoResize = .t.
var_View.Columns.Item(0).Visible = .f.
var_Items = var_View.Items
' var_Items.LockedItemCount(0) = 1
oCascadeTree.TemplateDef = "dim var_Items"
oCascadeTree.TemplateDef = var_Items
oCascadeTree.Template = "var_Items.LockedItemCount(0) = 1"
h = var_Items.LockedItem(0,0)
' var_Items.ItemDivider(h) = 0
oCascadeTree.TemplateDef = "dim var_Items,h"
oCascadeTree.TemplateDef = var_Items
oCascadeTree.TemplateDef = h
oCascadeTree.Template = "var_Items.ItemDivider(h) = 0"
' var_Items.CellValueFormat(h,0) = 5 'exTotalField + exHTML
oCascadeTree.TemplateDef = "dim var_Items,h"
oCascadeTree.TemplateDef = var_Items
oCascadeTree.TemplateDef = h
oCascadeTree.Template = "var_Items.CellValueFormat(h,0) = 5"
' var_Items.CellValue(h,0) = "count(all,all,1)"
oCascadeTree.TemplateDef = "dim var_Items,h"
oCascadeTree.TemplateDef = var_Items
oCascadeTree.TemplateDef = h
oCascadeTree.Template = "var_Items.CellValue(h,0) = `count(all,all,1)`"
' var_Items.FormatCell(h,0) = "`<r>Countries: <b>`+ (value format `0`)"
oCascadeTree.TemplateDef = "dim var_Items,h"
oCascadeTree.TemplateDef = var_Items
oCascadeTree.TemplateDef = h
oCascadeTree.Template = "var_Items.FormatCell(h,0) = ```<r>Countries: <b>``+ (value format ``0``)`"
var_View.EndUpdate()
oCascadeTree.EndUpdate()
|
|
51
|
Aggregate sum, min, max, count, avg, divider, total
' A view has been created.
function CreateView as v (View as OLE::Exontrol.CascadeTree.1::IView)
Dim h as N
Dim var_Column as P
Dim var_Items as P
Dim var_Items1 as P
Dim var_Items2 as P
Dim var_View as P
Dim var_View1 as P
Dim var_View2 as P
Dim var_View3 as P
oCascadeTree = topparent:CONTROL_ACTIVEX1.activex
oCascadeTree.View.HeaderVisible = .f.
var_View = oCascadeTree.DefaultView()
var_View1 = var_View.View("Country")
var_View1.BeginUpdate()
var_View1.ColumnAutoResize = .t.
var_View1.Columns.Item(0).Visible = .f.
var_Items = var_View1.Items
' var_Items.LockedItemCount(0) = 1
oCascadeTree.TemplateDef = "dim var_Items"
oCascadeTree.TemplateDef = var_Items
oCascadeTree.Template = "var_Items.LockedItemCount(0) = 1"
h = var_Items.LockedItem(0,0)
' var_Items.ItemDivider(h) = 0
oCascadeTree.TemplateDef = "dim var_Items,h"
oCascadeTree.TemplateDef = var_Items
oCascadeTree.TemplateDef = h
oCascadeTree.Template = "var_Items.ItemDivider(h) = 0"
' var_Items.CellValueFormat(h,0) = 5 'exTotalField + exHTML
oCascadeTree.TemplateDef = "dim var_Items,h"
oCascadeTree.TemplateDef = var_Items
oCascadeTree.TemplateDef = h
oCascadeTree.Template = "var_Items.CellValueFormat(h,0) = 5"
' var_Items.CellValue(h,0) = "count(all,all,1)"
oCascadeTree.TemplateDef = "dim var_Items,h"
oCascadeTree.TemplateDef = var_Items
oCascadeTree.TemplateDef = h
oCascadeTree.Template = "var_Items.CellValue(h,0) = `count(all,all,1)`"
' var_Items.FormatCell(h,0) = "`<r>Countries: <b>`+ (value format `0`)"
oCascadeTree.TemplateDef = "dim var_Items,h"
oCascadeTree.TemplateDef = var_Items
oCascadeTree.TemplateDef = h
oCascadeTree.Template = "var_Items.FormatCell(h,0) = ```<r>Countries: <b>``+ (value format ``0``)`"
var_View1.EndUpdate()
var_View2 = var_View.View("State")
var_View2.BeginUpdate()
var_View2.SingleSel = .f.
var_View2.ColumnAutoResize = .t.
var_View2.Columns.Item(0).Visible = .f.
var_View2.Columns.Item(1).Visible = .f.
var_Items1 = var_View2.Items
' var_Items1.LockedItemCount(0) = 1
oCascadeTree.TemplateDef = "dim var_Items1"
oCascadeTree.TemplateDef = var_Items1
oCascadeTree.Template = "var_Items1.LockedItemCount(0) = 1"
h = var_Items1.LockedItem(0,0)
' var_Items1.ItemDivider(h) = 0
oCascadeTree.TemplateDef = "dim var_Items1,h"
oCascadeTree.TemplateDef = var_Items1
oCascadeTree.TemplateDef = h
oCascadeTree.Template = "var_Items1.ItemDivider(h) = 0"
' var_Items1.CellValueFormat(h,0) = 5 'exTotalField + exHTML
oCascadeTree.TemplateDef = "dim var_Items1,h"
oCascadeTree.TemplateDef = var_Items1
oCascadeTree.TemplateDef = h
oCascadeTree.Template = "var_Items1.CellValueFormat(h,0) = 5"
' var_Items1.CellValue(h,0) = "count(all,all,1)"
oCascadeTree.TemplateDef = "dim var_Items1,h"
oCascadeTree.TemplateDef = var_Items1
oCascadeTree.TemplateDef = h
oCascadeTree.Template = "var_Items1.CellValue(h,0) = `count(all,all,1)`"
' var_Items1.FormatCell(h,0) = "`<r>States: <b>`+ (value format `0`)"
oCascadeTree.TemplateDef = "dim var_Items1,h"
oCascadeTree.TemplateDef = var_Items1
oCascadeTree.TemplateDef = h
oCascadeTree.Template = "var_Items1.FormatCell(h,0) = ```<r>States: <b>``+ (value format ``0``)`"
var_View2.EndUpdate()
var_View3 = var_View.View("City")
var_View3.BeginUpdate()
var_View3.Columns.Item(0).Visible = .f.
var_View3.Columns.Item(1).Visible = .f.
var_Column = var_View3.Columns.Item(2)
var_Column.Width = 128
var_Column.HTMLCaption = "CityName"
var_Items2 = var_View3.Items
' var_Items2.LockedItemCount(0) = 1
oCascadeTree.TemplateDef = "dim var_Items2"
oCascadeTree.TemplateDef = var_Items2
oCascadeTree.Template = "var_Items2.LockedItemCount(0) = 1"
h = var_Items2.LockedItem(0,0)
' var_Items2.ItemDivider(h) = 0
oCascadeTree.TemplateDef = "dim var_Items2,h"
oCascadeTree.TemplateDef = var_Items2
oCascadeTree.TemplateDef = h
oCascadeTree.Template = "var_Items2.ItemDivider(h) = 0"
' var_Items2.CellValueFormat(h,0) = 5 'exTotalField + exHTML
oCascadeTree.TemplateDef = "dim var_Items2,h"
oCascadeTree.TemplateDef = var_Items2
oCascadeTree.TemplateDef = h
oCascadeTree.Template = "var_Items2.CellValueFormat(h,0) = 5"
' var_Items2.CellValue(h,0) = "count(all,all,1)"
oCascadeTree.TemplateDef = "dim var_Items2,h"
oCascadeTree.TemplateDef = var_Items2
oCascadeTree.TemplateDef = h
oCascadeTree.Template = "var_Items2.CellValue(h,0) = `count(all,all,1)`"
' var_Items2.FormatCell(h,0) = "`<r>Cities: <b>`+ (value format `0`)"
oCascadeTree.TemplateDef = "dim var_Items2,h"
oCascadeTree.TemplateDef = var_Items2
oCascadeTree.TemplateDef = h
oCascadeTree.Template = "var_Items2.FormatCell(h,0) = ```<r>Cities: <b>``+ (value format ``0``)`"
var_View3.EndUpdate()
end function
' An internal error occurs.
function Error as v (Error as N,Description as C)
oCascadeTree = topparent:CONTROL_ACTIVEX1.activex
? "Error"
? Description
end function
Dim oCascadeTree as P
oCascadeTree = topparent:CONTROL_ACTIVEX1.activex
oCascadeTree.BeginUpdate()
oCascadeTree.Mode = 3
oCascadeTree.Template = "Background(18) = 12895428" // oCascadeTree.Background(18) = 12895428
oCascadeTree.Template = "Background(170) = 4" // oCascadeTree.Background(170) = 4
oCascadeTree.DataSource = "Source=C:\Program Files\Exontrol\ExCascadeTree\Sample\Access\cities.accdb;Member=Select * FROM Countries;Key=CountryCode;Tag=Country;Name=CountryName >>> Member=Select * FROM States WHERE CountryCode IN (<%Parent.CountryCode%>);Key=StateCode;Name=StateName;Tag=State ||| Member=Select * FROM Cities WHERE CountryCode IN (<%Parent.CountryCode%>);Tag=City;Name=Name >>> Member=Select * FROM Cities WHERE CountryCode IN (<%Parent.Parent.CountryCode%>) AND StateCode IN (<%Parent.StateCode%>);Tag=City;Name=Name"
oCascadeTree.Select = "US\AK"
oCascadeTree.EndUpdate()
|
|
50
|
How can I add a check-box column (view)
' An internal error occurs.
function Error as v (Error as N,Description as C)
oCascadeTree = topparent:CONTROL_ACTIVEX1.activex
? "Error"
? Description
end function
Dim oCascadeTree as P
Dim var_Column as P
Dim var_Column1 as P
Dim var_ConditionalFormat as local
Dim var_ConditionalFormat1 as P
Dim var_ConditionalFormats as P
Dim var_Items as P
Dim var_View as P
oCascadeTree = topparent:CONTROL_ACTIVEX1.activex
oCascadeTree.BeginUpdate()
oCascadeTree.StatusBarVisible = 2
oCascadeTree.StatusBarLabel = "<c>Select multiple-items in the City view, and press <b>SPACE</b> key"
oCascadeTree.Template = "Background(168) = BackColor" // oCascadeTree.Background(168) = oCascadeTree.BackColor
oCascadeTree.VisualAppearance.Add(1,"gBFLBCJwBAEHhEJAAEhABO0GACAADACAxRDgMQBQKAAzAJBIYhiG4cYCgMYxXDOCYXABCEYRXBKUQSDqEYyjGLIXAWCYSAAMIwDKAUEhqGiUBihaQhRgyJI3RlJGaoDiKIokShKEpDLKlCx3H6OKQjOZgAoySo4SbDMp0NAkRBlFqcJCCCLAUgmTpQUBOYyiLKNRxQGoYLIlayZIiSIpMRbWcB3BYEOSFFasAAleYZTg2Jp1TbPAAYFL1ISDKSiIZqTA6PheT5yUzCNazbgEMTvRKqcSnO6bOgnEKQZKAGg4bg1RTVAYZLKtPR7aqyUJvZ5sMB6DiuLYRPKXZoucaNExSS5ebJtOzQJbEXBpXSpBwzSieBozIaQcJUOoaVxPFkaJrGuIx3h2BZPgOUIQmUcIwDARAkiAaQxh0DonCMLAeBKZobBCCY+niWJaBIKJJH4MoBgiQpCmmUR/ooBgCgCYBIBYBoBmCBYAn+ApgkgNgOgOYQIEYBIEGESBWBSBJhGgZgZgYIYoHYEIHCGaIGAuCAiCgegkgkYYoh4KIFiKKIuBeAJimiGgwgwYoYk4NILCCGJmDqDpjkidg+gGTo1jUAxAEAgI")
oCascadeTree.SelBackColor = 16777216
oCascadeTree.SelForeColor = oCascadeTree.ForeColor
oCascadeTree.Mode = 3
oCascadeTree.Template = "Background(18) = 12895428" // oCascadeTree.Background(18) = 12895428
oCascadeTree.DataSource = "Source=C:\Program Files\Exontrol\ExCascadeTree\Sample\Access\cities.accdb;Member=Select * FROM Countries;Key=CountryCode;Tag=Country;Name=CountryName >>> Member=Select * FROM States WHERE CountryCode IN (<%Parent.CountryCode%>);Key=StateCode;Name=StateName;Tag=State ||| Member=Select * FROM Cities WHERE CountryCode IN (<%Parent.CountryCode%>);Tag=City;Name=Name >>> Member=Select * FROM Cities WHERE CountryCode IN (<%Parent.Parent.CountryCode%>) AND StateCode IN (<%Parent.StateCode%>);Tag=City;Name=Name"
oCascadeTree.Select = "US\AK"
var_View = oCascadeTree.DefaultView().View("City")
var_View.BeginUpdate()
var_View.ShowFocusRect = .f.
var_View.SingleSel = .f.
var_View.Columns.Item(0).Visible = .f.
var_View.Columns.Item(1).Visible = .f.
var_Column = var_View.Columns.Item(2)
var_Column.HTMLCaption = "City <off 4><fgcolor=808080>Name"
var_Column.Width = 128
' var_Column.Def(0) = .t.
oCascadeTree.TemplateDef = "dim var_Column"
oCascadeTree.TemplateDef = var_Column
oCascadeTree.Template = "var_Column.Def(0) = True"
var_View.SearchColumnIndex = var_View.Columns.Item("Name").Index
var_Column1 = var_View.Columns.Add("Pos")
var_Column1.Position = 0
var_Column1.Width = 32
var_Column1.FormatColumn = "1 pos ``"
var_ConditionalFormats = var_View.ConditionalFormats
' var_ConditionalFormats.Add("%CS2 = 1").BackColor = 12500670
var_ConditionalFormat = var_ConditionalFormats.Add("%CS2 = 1")
oCascadeTree.TemplateDef = "dim var_ConditionalFormat"
oCascadeTree.TemplateDef = var_ConditionalFormat
oCascadeTree.Template = "var_ConditionalFormat.BackColor = 12500670"
var_ConditionalFormat1 = var_ConditionalFormats.Add("%CS2 = 1")
var_ConditionalFormat1.Bold = .t.
var_ConditionalFormat1.ApplyTo = 8 '8 +
var_Items = var_View.Items
' var_Items.CellState(var_Items.ItemByIndex(1),2) = 1
oCascadeTree.TemplateDef = "dim var_Items"
oCascadeTree.TemplateDef = var_Items
oCascadeTree.Template = "var_Items.CellState(ItemByIndex(1),2) = 1"
' var_Items.CellState(var_Items.ItemByIndex(3),2) = 1
oCascadeTree.TemplateDef = "dim var_Items"
oCascadeTree.TemplateDef = var_Items
oCascadeTree.Template = "var_Items.CellState(ItemByIndex(3),2) = 1"
' var_Items.CellState(var_Items.ItemByIndex(5),2) = 1
oCascadeTree.TemplateDef = "dim var_Items"
oCascadeTree.TemplateDef = var_Items
oCascadeTree.Template = "var_Items.CellState(ItemByIndex(5),2) = 1"
var_View.EndUpdate()
oCascadeTree.EndUpdate()
|
|
49
|
How can I add a check-box column
' A view has been created.
function CreateView as v (View as OLE::Exontrol.CascadeTree.1::IView)
Dim var_Column as P
Dim var_Column1 as P
Dim var_ConditionalFormat as local
Dim var_ConditionalFormat1 as P
Dim var_ConditionalFormats as P
Dim var_Items as P
Dim var_View as P
Dim var_View1 as P
Dim var_View2 as P
Dim var_View3 as P
Dim var_View4 as P
oCascadeTree = topparent:CONTROL_ACTIVEX1.activex
var_View = oCascadeTree.View
var_View.HeaderAppearance = 4
var_View.HeaderHeight = 24
var_View.DrawGridLines = 2
var_View.GridLineStyle = 12
var_View1 = oCascadeTree.DefaultView()
var_View2 = var_View1.View("Country")
var_View2.BeginUpdate()
var_View2.ColumnAutoResize = .t.
var_View2.Columns.Item(0).Visible = .f.
var_View2.Columns.Item(1).HTMLCaption = "Country <off 4><fgcolor=808080>Name"
var_View2.EndUpdate()
var_View3 = var_View1.View("State")
var_View3.BeginUpdate()
var_View3.ColumnAutoResize = .t.
var_View3.Columns.Item(0).Visible = .f.
var_View3.Columns.Item(1).Visible = .f.
var_View3.Columns.Item(2).HTMLCaption = "State <off 4><fgcolor=808080>Name"
var_View3.EndUpdate()
var_View4 = var_View1.View("City")
var_View4.BeginUpdate()
var_View4.ShowFocusRect = .f.
var_View4.SingleSel = .f.
var_View4.Columns.Item(0).Visible = .f.
var_View4.Columns.Item(1).Visible = .f.
var_Column = var_View4.Columns.Item(2)
var_Column.HTMLCaption = "City <off 4><fgcolor=808080>Name"
var_Column.Width = 128
' var_Column.Def(0) = .t.
oCascadeTree.TemplateDef = "dim var_Column"
oCascadeTree.TemplateDef = var_Column
oCascadeTree.Template = "var_Column.Def(0) = True"
var_View4.SearchColumnIndex = var_View4.Columns.Item("Name").Index
var_Column1 = var_View4.Columns.Add("Pos")
var_Column1.Position = 0
var_Column1.Width = 32
var_Column1.FormatColumn = "1 pos ``"
var_ConditionalFormats = var_View4.ConditionalFormats
' var_ConditionalFormats.Add("%CS2 = 1").BackColor = 12500670
var_ConditionalFormat = var_ConditionalFormats.Add("%CS2 = 1")
oCascadeTree.TemplateDef = "dim var_ConditionalFormat"
oCascadeTree.TemplateDef = var_ConditionalFormat
oCascadeTree.Template = "var_ConditionalFormat.BackColor = 12500670"
var_ConditionalFormat1 = var_ConditionalFormats.Add("%CS2 = 1")
var_ConditionalFormat1.Bold = .t.
var_ConditionalFormat1.ApplyTo = 8 '8 +
var_Items = var_View4.Items
' var_Items.CellState(var_Items.ItemByIndex(1),2) = 1
oCascadeTree.TemplateDef = "dim var_Items"
oCascadeTree.TemplateDef = var_Items
oCascadeTree.Template = "var_Items.CellState(ItemByIndex(1),2) = 1"
' var_Items.CellState(var_Items.ItemByIndex(3),2) = 1
oCascadeTree.TemplateDef = "dim var_Items"
oCascadeTree.TemplateDef = var_Items
oCascadeTree.Template = "var_Items.CellState(ItemByIndex(3),2) = 1"
' var_Items.CellState(var_Items.ItemByIndex(5),2) = 1
oCascadeTree.TemplateDef = "dim var_Items"
oCascadeTree.TemplateDef = var_Items
oCascadeTree.Template = "var_Items.CellState(ItemByIndex(5),2) = 1"
var_View4.EndUpdate()
end function
' An internal error occurs.
function Error as v (Error as N,Description as C)
oCascadeTree = topparent:CONTROL_ACTIVEX1.activex
? "Error"
? Description
end function
Dim oCascadeTree as P
oCascadeTree = topparent:CONTROL_ACTIVEX1.activex
oCascadeTree.BeginUpdate()
oCascadeTree.StatusBarVisible = 2
oCascadeTree.StatusBarLabel = "<c>Select multiple-items in the City view, and press <b>SPACE</b> key"
oCascadeTree.Template = "Background(168) = BackColor" // oCascadeTree.Background(168) = oCascadeTree.BackColor
oCascadeTree.VisualAppearance.Add(1,"gBFLBCJwBAEHhEJAAEhABO0GACAADACAxRDgMQBQKAAzAJBIYhiG4cYCgMYxXDOCYXABCEYRXBKUQSDqEYyjGLIXAWCYSAAMIwDKAUEhqGiUBihaQhRgyJI3RlJGaoDiKIokShKEpDLKlCx3H6OKQjOZgAoySo4SbDMp0NAkRBlFqcJCCCLAUgmTpQUBOYyiLKNRxQGoYLIlayZIiSIpMRbWcB3BYEOSFFasAAleYZTg2Jp1TbPAAYFL1ISDKSiIZqTA6PheT5yUzCNazbgEMTvRKqcSnO6bOgnEKQZKAGg4bg1RTVAYZLKtPR7aqyUJvZ5sMB6DiuLYRPKXZoucaNExSS5ebJtOzQJbEXBpXSpBwzSieBozIaQcJUOoaVxPFkaJrGuIx3h2BZPgOUIQmUcIwDARAkiAaQxh0DonCMLAeBKZobBCCY+niWJaBIKJJH4MoBgiQpCmmUR/ooBgCgCYBIBYBoBmCBYAn+ApgkgNgOgOYQIEYBIEGESBWBSBJhGgZgZgYIYoHYEIHCGaIGAuCAiCgegkgkYYoh4KIFiKKIuBeAJimiGgwgwYoYk4NILCCGJmDqDpjkidg+gGTo1jUAxAEAgI")
oCascadeTree.SelBackColor = 16777216
oCascadeTree.SelForeColor = oCascadeTree.ForeColor
oCascadeTree.Mode = 3
oCascadeTree.Template = "Background(18) = 12895428" // oCascadeTree.Background(18) = 12895428
oCascadeTree.DataSource = "Source=C:\Program Files\Exontrol\ExCascadeTree\Sample\Access\cities.accdb;Member=Select * FROM Countries;Key=CountryCode;Tag=Country;Name=CountryName >>> Member=Select * FROM States WHERE CountryCode IN (<%Parent.CountryCode%>);Key=StateCode;Name=StateName;Tag=State ||| Member=Select * FROM Cities WHERE CountryCode IN (<%Parent.CountryCode%>);Tag=City;Name=Name >>> Member=Select * FROM Cities WHERE CountryCode IN (<%Parent.Parent.CountryCode%>) AND StateCode IN (<%Parent.StateCode%>);Tag=City;Name=Name"
oCascadeTree.Select = "US\AK"
oCascadeTree.EndUpdate()
|
|
48
|
How can I access a view
' A view has been created.
function CreateView as v (View as OLE::Exontrol.CascadeTree.1::IView)
Dim var_Column as P
Dim var_View as P
Dim var_View1 as P
Dim var_View2 as P
Dim var_View3 as P
Dim var_View4 as P
oCascadeTree = topparent:CONTROL_ACTIVEX1.activex
var_View = oCascadeTree.View
var_View.HeaderAppearance = 4
var_View.HeaderHeight = 24
var_View.DrawGridLines = -1
var_View.GridLineStyle = 12
var_View1 = oCascadeTree.DefaultView()
var_View2 = var_View1.View("Country")
var_View2.BeginUpdate()
var_View2.ColumnAutoResize = .t.
var_View2.Columns.Item(0).Visible = .f.
var_View2.Columns.Item(1).HTMLCaption = "Country <off 4><fgcolor=808080>Name"
var_View2.EndUpdate()
var_View3 = var_View1.View("State")
var_View3.BeginUpdate()
var_View3.ColumnAutoResize = .t.
var_View3.Columns.Item(0).Visible = .f.
var_View3.Columns.Item(1).Visible = .f.
var_View3.Columns.Item(2).HTMLCaption = "State <off 4><fgcolor=808080>Name"
var_View3.EndUpdate()
var_View4 = var_View1.View("City")
var_View4.BeginUpdate()
var_View4.Columns.Item(0).Visible = .f.
var_View4.Columns.Item(1).Visible = .f.
var_Column = var_View4.Columns.Item(2)
var_Column.HTMLCaption = "City <off 4><fgcolor=808080>Name"
var_Column.Width = 128
' var_Column.Def(4) = 15790320
oCascadeTree.TemplateDef = "dim var_Column"
oCascadeTree.TemplateDef = var_Column
oCascadeTree.Template = "var_Column.Def(4) = 15790320"
var_View4.CountLockedColumns = 1
var_View4.EndUpdate()
end function
' An internal error occurs.
function Error as v (Error as N,Description as C)
oCascadeTree = topparent:CONTROL_ACTIVEX1.activex
? "Error"
? Description
end function
Dim oCascadeTree as P
oCascadeTree = topparent:CONTROL_ACTIVEX1.activex
oCascadeTree.BeginUpdate()
oCascadeTree.Mode = 3
oCascadeTree.Template = "Background(18) = 12895428" // oCascadeTree.Background(18) = 12895428
oCascadeTree.DataSource = "Source=C:\Program Files\Exontrol\ExCascadeTree\Sample\Access\cities.accdb;Member=Select * FROM Countries;Key=CountryCode;Tag=Country;Name=CountryName >>> Member=Select * FROM States WHERE CountryCode IN (<%Parent.CountryCode%>);Key=StateCode;Name=StateName;Tag=State ||| Member=Select * FROM Cities WHERE CountryCode IN (<%Parent.CountryCode%>);Tag=City;Name=Name >>> Member=Select * FROM Cities WHERE CountryCode IN (<%Parent.Parent.CountryCode%>) AND StateCode IN (<%Parent.StateCode%>);Tag=City;Name=Name"
oCascadeTree.Select = "US\AK"
oCascadeTree.EndUpdate()
|
|
47
|
Conditional Format (check)
' A view has been created.
function CreateView as v (View as OLE::Exontrol.CascadeTree.1::IView)
Dim var_Columns as local
Dim var_ConditionalFormat as P
Dim var_Items as P
Dim var_View as P
oCascadeTree = topparent:CONTROL_ACTIVEX1.activex
var_View = oCascadeTree.View
var_ConditionalFormat = var_View.ConditionalFormats.Add("%CS0 = 1")
var_ConditionalFormat.Bold = .t.
' var_View.Columns.Item(0).Def(0) = .t.
var_Columns = var_View.Columns.Item(0)
oCascadeTree.TemplateDef = "dim var_Columns"
oCascadeTree.TemplateDef = var_Columns
oCascadeTree.Template = "var_Columns.Def(0) = True"
var_Items = var_View.Items
' var_Items.CellState(var_Items.FocusItem,0) = 1
oCascadeTree.TemplateDef = "dim var_Items"
oCascadeTree.TemplateDef = var_Items
oCascadeTree.Template = "var_Items.CellState(FocusItem,0) = 1"
end function
' An internal error occurs.
function Error as v (Error as N,Description as C)
oCascadeTree = topparent:CONTROL_ACTIVEX1.activex
? "Error"
? Description
end function
Dim oCascadeTree as P
oCascadeTree = topparent:CONTROL_ACTIVEX1.activex
oCascadeTree.BeginUpdate()
oCascadeTree.Mode = 3
oCascadeTree.Template = "Background(18) = 12895428" // oCascadeTree.Background(18) = 12895428
oCascadeTree.DataSource = "Source=C:\Program Files\Exontrol\ExCascadeTree\Sample\Access\cities.accdb;Member=Select * FROM Countries;Key=CountryCode;Tag=Country;Name=CountryName >>> Member=Select * FROM States WHERE CountryCode IN (<%Parent.CountryCode%>);Key=StateCode;Name=StateName;Tag=State ||| Member=Select * FROM Cities WHERE CountryCode IN (<%Parent.CountryCode%>);Tag=City;Name=Name >>> Member=Select * FROM Cities WHERE CountryCode IN (<%Parent.Parent.CountryCode%>) AND StateCode IN (<%Parent.StateCode%>);Tag=City;Name=Name"
oCascadeTree.Select = "US\AK"
oCascadeTree.EndUpdate()
|
|
46
|
Conditional Format (view)
' An internal error occurs.
function Error as v (Error as N,Description as C)
oCascadeTree = topparent:CONTROL_ACTIVEX1.activex
? "Error"
? Description
end function
Dim oCascadeTree as P
Dim var_ConditionalFormat as P
Dim var_View as P
oCascadeTree = topparent:CONTROL_ACTIVEX1.activex
oCascadeTree.BeginUpdate()
oCascadeTree.Mode = 3
oCascadeTree.Template = "Background(18) = 12895428" // oCascadeTree.Background(18) = 12895428
oCascadeTree.DataSource = "Source=C:\Program Files\Exontrol\ExCascadeTree\Sample\Access\cities.accdb;Member=Select * FROM Countries;Key=CountryCode;Tag=Country;Name=CountryName >>> Member=Select * FROM States WHERE CountryCode IN (<%Parent.CountryCode%>);Key=StateCode;Name=StateName;Tag=State ||| Member=Select * FROM Cities WHERE CountryCode IN (<%Parent.CountryCode%>);Tag=City;Name=Name >>> Member=Select * FROM Cities WHERE CountryCode IN (<%Parent.Parent.CountryCode%>) AND StateCode IN (<%Parent.StateCode%>);Tag=City;Name=Name"
oCascadeTree.Select = "US\AK"
var_View = oCascadeTree.DefaultView().View("City")
var_ConditionalFormat = var_View.ConditionalFormats.Add("(%0 = `US`) and (%2 like `Al*`)")
var_ConditionalFormat.Bold = .t.
var_ConditionalFormat.BackColor = 15790320
oCascadeTree.EndUpdate()
|
|
45
|
Conditional Format
' A view has been created.
function CreateView as v (View as OLE::Exontrol.CascadeTree.1::IView)
Dim var_ConditionalFormat as P
Dim var_View as P
oCascadeTree = topparent:CONTROL_ACTIVEX1.activex
var_View = oCascadeTree.View
var_ConditionalFormat = var_View.ConditionalFormats.Add("%0 = `US`")
var_ConditionalFormat.Bold = .t.
end function
' An internal error occurs.
function Error as v (Error as N,Description as C)
oCascadeTree = topparent:CONTROL_ACTIVEX1.activex
? "Error"
? Description
end function
Dim oCascadeTree as P
oCascadeTree = topparent:CONTROL_ACTIVEX1.activex
oCascadeTree.BeginUpdate()
oCascadeTree.Mode = 3
oCascadeTree.Template = "Background(18) = 12895428" // oCascadeTree.Background(18) = 12895428
oCascadeTree.DataSource = "Source=C:\Program Files\Exontrol\ExCascadeTree\Sample\Access\cities.accdb;Member=Select * FROM Countries;Key=CountryCode;Tag=Country;Name=CountryName >>> Member=Select * FROM States WHERE CountryCode IN (<%Parent.CountryCode%>);Key=StateCode;Name=StateName;Tag=State ||| Member=Select * FROM Cities WHERE CountryCode IN (<%Parent.CountryCode%>);Tag=City;Name=Name >>> Member=Select * FROM Cities WHERE CountryCode IN (<%Parent.Parent.CountryCode%>) AND StateCode IN (<%Parent.StateCode%>);Tag=City;Name=Name"
oCascadeTree.Select = "US\AK"
oCascadeTree.EndUpdate()
|
|
44
|
I've seen the AllowSplitView property, the question is how can I load data to
' An internal error occurs.
function Error as v (Error as N,Description as C)
oCascadeTree = topparent:CONTROL_ACTIVEX1.activex
? "Error"
? Description
end function
Dim oCascadeTree as P
Dim var_Object as P
oCascadeTree = topparent:CONTROL_ACTIVEX1.activex
oCascadeTree.BeginUpdate()
oCascadeTree.Mode = 3
oCascadeTree.DataSource = "Source=C:\Program Files\Exontrol\ExCascadeTree\Sample\Access\cities.accdb;Member=Select * FROM Countries;Key=CountryCode;Tag=Country;Name=CountryName >>> Member=Select * FROM States WHERE CountryCode IN (<%Parent.CountryCode%>);Key=StateCode;Name=StateName;Tag=State ||| Member=Select * FROM Cities WHERE CountryCode IN (<%Parent.CountryCode%>);Tag=City;Name=Name >>> Member=Select * FROM Cities WHERE CountryCode IN (<%Parent.Parent.CountryCode%>) AND StateCode IN (<%Parent.StateCode%>);Tag=City;Name=Name"
oCascadeTree.Select = "US\AK"
oCascadeTree.AllowSplitView = 1
oCascadeTree.SplitViewHeight = 256
var_Object = oCascadeTree.DefaultView(1)
oCascadeTree.EndUpdate()
|
|
43
|
How can I group the items (view)
' A view has been created.
function CreateView as v (View as OLE::Exontrol.CascadeTree.1::IView)
oCascadeTree = topparent:CONTROL_ACTIVEX1.activex
oCascadeTree.View.SingleSel = .f.
end function
' An internal error occurs.
function Error as v (Error as N,Description as C)
oCascadeTree = topparent:CONTROL_ACTIVEX1.activex
? "Error"
? Description
end function
Dim oCascadeTree as P
Dim var_Appearance as P
Dim var_Column as local
Dim var_Column1 as P
Dim var_Columns as P
Dim var_View as P
oCascadeTree = topparent:CONTROL_ACTIVEX1.activex
oCascadeTree.BeginUpdate()
var_Appearance = oCascadeTree.VisualAppearance
var_Appearance.Add(1,"gBFLBCJwBAEHhEJAAEhABa0GACAADACAxRDgMQBQKAAzAJBIYhiG4cYCgMYxXDOCYXABCEYRXBIZQ7BKNIxjSJwFgkAoJDYOMjwlDKEgADDFEgjJBkRxtDCPIDnGQoDiGI4vSrCQ4yDA8GxCGSfIrjKiYbiGNY8RgZCiOMAFJSpC6gZRoSq4doGGJLQiDMaAdBNHyZKqpbQqeCZPDINQlWzbcrjKKFYQTOi7I4sCbYcqKA5PTbNdYyVBMWxfGIbaIkXAcBjuO4hWbFdASRQdDYtHTIbzjCxLcgMD4gRwWCYNSAGRZJLDKK4gSh6eorHQAX4AGabFBOP5fC7TNJ0OKLRrkAJub5eFx3LJ97ohbLsOzYZK2ByDFqiMLGQZMZxvGWUBAnYfJImcOwLEiBp0gaGpekSBxjE+WZ2jse5Im2S5ZkGYhdn4EY6A4Q4vAOWJ6H0V4oEgIgSFAGhGDGUB1ByBhVBUAwyhKMQIE2AgRjCWQJAoEIWk2SxCAGBBghQeJYkMZIYBYIYoHIG4HGICB+CKB4iEiBglgaUAzhiJAZA+Q4Qk2CxiniOgwgyYwolYMYNmMQw2CoGQihiLg5g+YxpAIOINiOOJ2CyEBkgkDhKhCJBQAI2IlAkJhMgqZBpEYS4UiSGQ2E+FglHkdg5haI5pHIVoViYCQeF6vZJhYY4aCWWYqGyGpkimOhnhyZQ4nIToYGcSY+ESFQnHmGhwh+YpphYO4gmKOlEiGKIKBaCohmeQ4tkUQJQBAgI=")
var_Appearance.Add(2,"gBFLBCJwBAEHhEJAAEhABO0GACAADACAxRDgMQBQKAAzAJBIYhiG4cYCgMYxXDOCYXABCEYRXBIZQ7BKNIxjSJwFgkAoJDYOMjwlDKEgADDFEgjDBkRxtDCPIDnGQoDiGI4vSrCQ4zHQkOx9C6NKLjOQaMhwcJPABTZwRRQMUyLAiQRioGKKJgkC4cAxIFhRXSVIyhC6XRiGURbJquLw1DBbEI3BaUOS7HqOK7vCZ7cACVYqQjLMrzCK8ZxLPqbZznOjZXoCKJDQzVYADFRVd4rMK9QABWw4YqWZYXX7kUDxbTdEYzPQAMw1GCcbxmF6eWbCNq3LidXTnOK3dwkO55cyuA6oazi8T6Bi2M6DDQNGSzZiuGZ9YSOOIwHJIN4QDSUpYmQOoJA6KxVlCDBsnwOx9iWUhfiCThzjUHZun2WgSAiBIUA0JgziGVJkGWUZAkEUoyBEN51BsDYQhCIQJGqHAUCAGBGA0RwtDcVIgkgNgOgOYQIDiXYEmESBWBaBZhggTgSgYYZIHYGoDGGaIGBiBpiCiFJdgkIksiiChhliLgsgYYpoj4F4MGMKBWDSDRhngMg4gcIQYnYPoEE6N4ZAMQBAICA=")
oCascadeTree.SelBackColor = 16777216
oCascadeTree.SelForeColor = 0
oCascadeTree.BackColorHeader = 33554432
oCascadeTree.Template = "ScrollPartVisible(0,65536) = True" // oCascadeTree.ScrollPartVisible(0,65536) = .t.
oCascadeTree.Template = "ScrollPartVisible(1,65536) = True" // oCascadeTree.ScrollPartVisible(1,65536) = .t.
oCascadeTree.Template = "ScrollPartVisible(2,65536) = True" // oCascadeTree.ScrollPartVisible(2,65536) = .t.
oCascadeTree.ScrollWidth = 4
oCascadeTree.Template = "Background(276) = 15790320" // oCascadeTree.Background(276) = 15790320
oCascadeTree.Template = "Background(260) = 8421504" // oCascadeTree.Background(260) = 8421504
oCascadeTree.ScrollHeight = 4
oCascadeTree.Template = "Background(404) = Background(276)" // oCascadeTree.Background(404) = oCascadeTree.Background(276)
oCascadeTree.Template = "Background(388) = Background(260)" // oCascadeTree.Background(388) = oCascadeTree.Background(260)
oCascadeTree.Template = "Background(511) = Background(276)" // oCascadeTree.Background(511) = oCascadeTree.Background(276)
oCascadeTree.Template = "Background(18) = 12895428" // oCascadeTree.Background(18) = 12895428
oCascadeTree.Template = "Background(142) = Background(18)" // oCascadeTree.Background(142) = oCascadeTree.Background(18)
oCascadeTree.Template = "Background(141) = Background(18)" // oCascadeTree.Background(141) = oCascadeTree.Background(18)
oCascadeTree.Template = "Background(170) = 2" // oCascadeTree.Background(170) = 2
oCascadeTree.BackColorSortBar = oCascadeTree.BackColor
oCascadeTree.EndUpdate()
oCascadeTree.BeginUpdate()
oCascadeTree.Mode = 3
oCascadeTree.DataSource = "Source=C:\Program Files\Exontrol\ExCascadeTree\Sample\Access\cities.accdb;Member=Select * FROM Countries;Key=CountryCode;Tag=Country;Name=CountryName >>> Member=Select * FROM States WHERE CountryCode IN (<%Parent.CountryCode%>);Key=StateCode;Name=StateName;Tag=State ||| Member=Select * FROM Cities WHERE CountryCode IN (<%Parent.CountryCode%>);Tag=City;Name=Name >>> Member=Select * FROM Cities WHERE CountryCode IN (<%Parent.Parent.CountryCode%>) AND StateCode IN (<%Parent.StateCode%>);Tag=City;Name=Name"
oCascadeTree.Select = "RO\CJ|BV|CS"
var_View = oCascadeTree.DefaultView().View("City")
var_View.BeginUpdate()
var_Columns = var_View.Columns
' var_Columns.Item("CountryCode").Visible = .f.
var_Column = var_Columns.Item("CountryCode")
oCascadeTree.TemplateDef = "dim var_Column"
oCascadeTree.TemplateDef = var_Column
oCascadeTree.Template = "var_Column.Visible = False"
var_Column1 = var_Columns.Item("Name")
var_Column1.SortOrder = 1
var_Column1.Width = 128
var_View.SortBarVisible = .t.
var_View.AllowGroupBy = .t.
var_View.SingleSort = .f.
var_View.Columns.Item("StateCode").SortOrder = 1
var_View.TreeColumnIndex = var_View.Columns.Item("Name").Index
var_View.EndUpdate()
oCascadeTree.EndUpdate()
|
|
42
|
How can I group the items
' A view has been created.
function CreateView as v (View as OLE::Exontrol.CascadeTree.1::IView)
' Columns("StateCode").Visible = False
' Columns("StateName").SortOrder = 1
' Columns("StateCode").SortOrder = nGroupByIfCity
Dim bColumnAutoResize as
Dim nGroupByIfCity as
Dim var_Object as P
Dim var_View as P
oCascadeTree = topparent:CONTROL_ACTIVEX1.activex
nGroupByIfCity = oCascadeTree.FormatABC("( A = `City`) ? 1 : 0",oCascadeTree.View.Tag)
bColumnAutoResize = oCascadeTree.FormatABC(" (A = `City`) ? 0 : -1",oCascadeTree.View.Tag)
var_View = oCascadeTree.View
var_View.BeginUpdate()
var_View.SingleSel = .f.
var_View.Columns.Item("CountryCode").Visible = .f.
var_View.Columns.Item("CountryName").SortOrder = 1
var_Object = var_View.Columns.Item(2)
var_View.TreeColumnIndex = 2
var_View.AllowGroupBy = .t.
var_View.SingleSort = .f.
var_View.SortBarVisible = .f.
var_View.ColumnAutoResize = .f.
var_View.EndUpdate()
end function
' An internal error occurs.
function Error as v (Error as N,Description as C)
oCascadeTree = topparent:CONTROL_ACTIVEX1.activex
? "Error"
? Description
end function
Dim oCascadeTree as P
Dim var_Appearance as P
oCascadeTree = topparent:CONTROL_ACTIVEX1.activex
oCascadeTree.BeginUpdate()
var_Appearance = oCascadeTree.VisualAppearance
var_Appearance.Add(1,"gBFLBCJwBAEHhEJAAEhABa0GACAADACAxRDgMQBQKAAzAJBIYhiG4cYCgMYxXDOCYXABCEYRXBIZQ7BKNIxjSJwFgkAoJDYOMjwlDKEgADDFEgjJBkRxtDCPIDnGQoDiGI4vSrCQ4yDA8GxCGSfIrjKiYbiGNY8RgZCiOMAFJSpC6gZRoSq4doGGJLQiDMaAdBNHyZKqpbQqeCZPDINQlWzbcrjKKFYQTOi7I4sCbYcqKA5PTbNdYyVBMWxfGIbaIkXAcBjuO4hWbFdASRQdDYtHTIbzjCxLcgMD4gRwWCYNSAGRZJLDKK4gSh6eorHQAX4AGabFBOP5fC7TNJ0OKLRrkAJub5eFx3LJ97ohbLsOzYZK2ByDFqiMLGQZMZxvGWUBAnYfJImcOwLEiBp0gaGpekSBxjE+WZ2jse5Im2S5ZkGYhdn4EY6A4Q4vAOWJ6H0V4oEgIgSFAGhGDGUB1ByBhVBUAwyhKMQIE2AgRjCWQJAoEIWk2SxCAGBBghQeJYkMZIYBYIYoHIG4HGICB+CKB4iEiBglgaUAzhiJAZA+Q4Qk2CxiniOgwgyYwolYMYNmMQw2CoGQihiLg5g+YxpAIOINiOOJ2CyEBkgkDhKhCJBQAI2IlAkJhMgqZBpEYS4UiSGQ2E+FglHkdg5haI5pHIVoViYCQeF6vZJhYY4aCWWYqGyGpkimOhnhyZQ4nIToYGcSY+ESFQnHmGhwh+YpphYO4gmKOlEiGKIKBaCohmeQ4tkUQJQBAgI=")
var_Appearance.Add(2,"gBFLBCJwBAEHhEJAAEhABO0GACAADACAxRDgMQBQKAAzAJBIYhiG4cYCgMYxXDOCYXABCEYRXBIZQ7BKNIxjSJwFgkAoJDYOMjwlDKEgADDFEgjDBkRxtDCPIDnGQoDiGI4vSrCQ4zHQkOx9C6NKLjOQaMhwcJPABTZwRRQMUyLAiQRioGKKJgkC4cAxIFhRXSVIyhC6XRiGURbJquLw1DBbEI3BaUOS7HqOK7vCZ7cACVYqQjLMrzCK8ZxLPqbZznOjZXoCKJDQzVYADFRVd4rMK9QABWw4YqWZYXX7kUDxbTdEYzPQAMw1GCcbxmF6eWbCNq3LidXTnOK3dwkO55cyuA6oazi8T6Bi2M6DDQNGSzZiuGZ9YSOOIwHJIN4QDSUpYmQOoJA6KxVlCDBsnwOx9iWUhfiCThzjUHZun2WgSAiBIUA0JgziGVJkGWUZAkEUoyBEN51BsDYQhCIQJGqHAUCAGBGA0RwtDcVIgkgNgOgOYQIDiXYEmESBWBaBZhggTgSgYYZIHYGoDGGaIGBiBpiCiFJdgkIksiiChhliLgsgYYpoj4F4MGMKBWDSDRhngMg4gcIQYnYPoEE6N4ZAMQBAICA=")
oCascadeTree.SelBackColor = 16777216
oCascadeTree.SelForeColor = 0
oCascadeTree.BackColorHeader = 33554432
oCascadeTree.Template = "ScrollPartVisible(0,65536) = True" // oCascadeTree.ScrollPartVisible(0,65536) = .t.
oCascadeTree.Template = "ScrollPartVisible(1,65536) = True" // oCascadeTree.ScrollPartVisible(1,65536) = .t.
oCascadeTree.Template = "ScrollPartVisible(2,65536) = True" // oCascadeTree.ScrollPartVisible(2,65536) = .t.
oCascadeTree.ScrollWidth = 4
oCascadeTree.Template = "Background(276) = 15790320" // oCascadeTree.Background(276) = 15790320
oCascadeTree.Template = "Background(260) = 8421504" // oCascadeTree.Background(260) = 8421504
oCascadeTree.ScrollHeight = 4
oCascadeTree.Template = "Background(404) = Background(276)" // oCascadeTree.Background(404) = oCascadeTree.Background(276)
oCascadeTree.Template = "Background(388) = Background(260)" // oCascadeTree.Background(388) = oCascadeTree.Background(260)
oCascadeTree.Template = "Background(511) = Background(276)" // oCascadeTree.Background(511) = oCascadeTree.Background(276)
oCascadeTree.Template = "Background(18) = 12895428" // oCascadeTree.Background(18) = 12895428
oCascadeTree.Template = "Background(142) = Background(18)" // oCascadeTree.Background(142) = oCascadeTree.Background(18)
oCascadeTree.Template = "Background(141) = Background(18)" // oCascadeTree.Background(141) = oCascadeTree.Background(18)
oCascadeTree.Template = "Background(170) = 2" // oCascadeTree.Background(170) = 2
oCascadeTree.BackColorSortBar = oCascadeTree.BackColor
oCascadeTree.EndUpdate()
oCascadeTree.BeginUpdate()
oCascadeTree.Mode = 3
oCascadeTree.DataSource = "Source=C:\Program Files\Exontrol\ExCascadeTree\Sample\Access\cities.accdb;Member=Select * FROM Countries;Key=CountryCode;Tag=Country;Name=CountryName >>> Member=Select * FROM States WHERE CountryCode IN (<%Parent.CountryCode%>);Key=StateCode;Name=StateName;Tag=State ||| Member=Select * FROM Cities WHERE CountryCode IN (<%Parent.CountryCode%>);Tag=City;Name=Name >>> Member=Select * FROM Cities WHERE CountryCode IN (<%Parent.Parent.CountryCode%>) AND StateCode IN (<%Parent.StateCode%>);Tag=City;Name=Name"
oCascadeTree.Select = "RO\CJ|BV|CS"
oCascadeTree.EndUpdate()
|
|
41
|
How can I change the visual appearance of the selection/header
' A view has been created.
function CreateView as v (View as OLE::Exontrol.CascadeTree.1::IView)
' Columns("StateCode").Visible = False
' Columns("StateName").SortOrder = 1
Dim var_Object as P
Dim var_View as P
oCascadeTree = topparent:CONTROL_ACTIVEX1.activex
var_View = oCascadeTree.View
var_View.BeginUpdate()
var_View.ColumnAutoResize = .t.
var_View.Columns.Item("CountryCode").Visible = .f.
var_View.Columns.Item("CountryName").SortOrder = 1
var_Object = var_View.Columns.Item("Name")
var_View.EndUpdate()
end function
' An internal error occurs.
function Error as v (Error as N,Description as C)
oCascadeTree = topparent:CONTROL_ACTIVEX1.activex
? "Error"
? Description
end function
Dim oCascadeTree as P
Dim var_Appearance as P
oCascadeTree = topparent:CONTROL_ACTIVEX1.activex
oCascadeTree.BeginUpdate()
var_Appearance = oCascadeTree.VisualAppearance
var_Appearance.Add(1,"gBFLBCJwBAEHhEJAAEhABWYDg6AADACAxRDgMQBQKAAzAJBIYhiG4cYCgMYxXDOCYXABCEYRXBIZQ7BKNIxjSJwFgmEgADCNAwgFBIcBhE4ZIKkEYoMiONoYR5Ac4yFAcQxHE6TZRgeDZToWN48TZLEB0VRFGL1J4AKbfKKKBiqIZDTpMdKSHIIFQ4BiEaYkGjqQpKVIdDSJMwWTI4ahhNSEbauCZ7DhyXpLUbeNSyXJsXw7GSOZJvGZ5bjuIY+RxQEK1NQkOyNOiOAosGCQWiDE4DWZZUT3XS+HgAGStY4rWCcSgOYIDZTPOT1DYtIY3NC5c7tS4bPq3NZHXTAeigBa4AZTQafcTvSA5OjOQQ2VhNWIXRxgAZ3YCNbzpTgsHeD5DmUQh3jSTQ/DuIZBh0bJ8BsG4WlsYwXjEapphuXh/HsRQJAQQhKAaEwZlCahyDKchJlEIgRDedQbA2EIQiECR3BudAgBgRgBgSHZQFSCwzECV4DGCeA6BCBJhCgVgRgWs4YkgNJKCOMJ2C0T4Dn4IIIiIGIOCaCRiy0HQ9iGIxMhgMAMmKZJ2D+SQThININgiM4In+DhPnIDJhD+RxzgCfwaE2c58F0N4PniSJ/guTJiCiOAygwCJODyDwIFifhVD+R5JBQcIREYOQgFgNwPnkRJ/qOIgIjEMYMFOVg9hESA5BQfYSCbQx1DcZA5lAXQ2vURh4hoT55hiRgfEqYwMkUPQPnGahgiGJwpmAdYeAaWZgGINoPnEWoQBKaQKAyf4gAwMZoisMIMGOTJ/B0KQK0EG5NhqDolBmKhRG6JQUX8GJYD+aZaBaGweAqEwEkYPNpDaL4u2kIJXi8a5xgKPwViucQuj8EBrnqXJ/i0DARlyJwwCyIYglaLxtDGDpVjSRY7EwUY0kQexMD+MhrgsOJAB2LJzCKOAZG0O4gn8GANFuLptBaLpREKUwRG0MJylOOYPnuEpjjOTIamAYo7G/QxfDUMAsBAWI7ESe40ZuQ5bjafY+GycZcigMBODOZJ/CoTo8F8GZGDGI58iaRhKEwZIhkYSZ8GcFYQVeZIqDCThsFiMQ7g+fI8n8LAOlyTw1CuMxSjMNQqHMUojDWSxPnyKJDB8CpjBSag+iSE4/EmUpLh0KI2lKCxNCiMvkg0KxHhYNBSACMQyA6c5wn8MJrg2Axflga4DAaOAviuApyjgLorg0dJ/laDICAyNQyg8LR47INxznzfI3jOPkS4NQMDzCoPgMQUBNqzFyJAco0ROLRFOPkVIEB4v7FWBAeT/xTB7E+OYR4MAzjzAMG8GIxgPj8CSJwIolxjCJTeB8cw7hIjVDqD0LwkA3BpAMNYFgbAxDGF8C0aYxw+gpA8GEeI/QgjJFeHcc4/xBjggePEYgfRPjnAOJAN4+QDjHCiN0TQhBMiODWOkA4+RqjGH0P4W4sRjCdB4GkaIxhOD6HiM0V4ehfCRFcEsDIZhkjcD4J8PwQR/j3D8Acf43x8h+B+Jkf49RPh/CCLIVIEwTBxFsP8L4+x/CAAgA4AIQAsADACMoSA6wghEAYIAQBAQA==")
var_Appearance.Add(2,"gBFLBCJwBAEHhEJAAEhABEwFg6AADACAxRDgMQBQKAAzAJBIYhiG4cYCgMYxXDOCYXABCEYRXBIZQ7BKNIxjSJwFgkAoJDaMUjwlDiEgADCNAySCKkGRHG6MI6gOapCgOIYjS7KYASTIMDw7EIZJ7jSioboKNo9ABQT71GAFJr/DChKIhWiKIoKI4hAZHAIQTR8QylKirIwlcYhVCWa5tS82CzoJrKdI4WZHFgwHR8cRxLKVJQlaDZSoIMQ2STfV7TZLkQyZNSTJQpGq6HxWeIcETkMBlLIGNSrNCqIrwChach2XpLQjeYAZTAdR43TqBbLqeyYXq+dwAWxtdzXDacXy/TzWAA1LLMKr/EpZDhSxARVDbD4XY7TdBcDwsOYAmQcohjyXQ8G6QRkgSa41H0WY+luSx1l6eZ2noLYFEePwDlUdQ8HufRsCSIBpDGHQOicIwtBoBguGuBAhDWfxGkMZAkCgeAQhcEQiAYEYDmABx8hANRYmQMhKHMTItB+IRoGIF4GGEMoeBKBQhGGfRWgiYhIgYHYIE+c5Ym8P5OlMWgsguIpYj4KQ7mIExMi6CIVGOKJTD/OxyDuDxVDiWB/g2CAIgyZwzk+eQeEmEgkikBIuCADRJD4Iw5AyU5+FSFYlFkXRThQZQJEkVg4gyM5+GCGImBmDhbhOTRCj4RRVg4Ewkn+GxmnmOhwhaZopiYaxUk4Awgn+Hhnjmah8h0JQJioI4fCgSZ6HqIAnGoDoGh8aJKCCMAgGiKgygUVYNEoPoViQFRqE6E4WmkYpAgKJBpioHJ/iUSAqhKIIimeeoOh4NQLBIDoniSKgqjCA4szqYJoDcKxqmKN4uGkSo2oGKxam6Qoug2Sp0gRggiBaQYxCuGpyFuMhsgsKRTjMbA7DqI40AsIgakuNQsEoUpZYIOxqlONRsDoUphjgCB7G6ZIxGWMpMgeOgsBMbo2jyDoLlCW45i6cpSmmOJvGuTpziUL4jFCNAiC8G56nWP5ljwDJVC0CIcBcB5Dm8dRPZyTRSlcDY/DAa5ZFaRRxEKVIKkOL5blcG5Hg0UpYgsVYPhuVwpDaco87eSYyFyHRTkscoslcEQ/nMExYjYIwygyWw0k2c4iDCVgtkiXJ3CyT4yCUTxDCMdI9BsP5LjSLQTEMI40m0IxAd4YxYjgI51NsXhVjWIg8leVp1lzLJYnYIpkhCWRzG2HxqDWS4SEcbJXlUPZAhGXAJC2TxQD+O8AwuQ6i8HMGcIItRKDwD4BcBIsx3j7HiCcTw8BeBvAeLoS4RBMiwC6JITgZwEjLHgEoW4JglBzD4LcBozxNotBSM4eAPA7hBGiHMQo2QVjPDoWcU4yRJCmGCHgJYdRODHC4H8ewRGWhLHsL0H4XgvASHMMkPY3g6C9FuB4P4+AvAJD0EwO4vA1CtHCBMDwEQZjmHwP4SIsgvh6D8C8II6h9geFyDUdQcwVCfF4G0C4xBvjBG2PwQg2RaBfH4MoTI9Rgh9HMNccY+BVDfC+NQL4kxFC3HOPgP4nwjjwBsIYAAnQ/hPHqP0XwiABgABABMdwgBHj1H0MACItgYAEHoAMPwUAWjbGAPEHgNhjAIE+IIKAFR9AVBwDAE44B+AbEEIULQDxgiBCAP4Q4Sx5CFBGOoCowhMBIBgEUAA2wMBCEMBQIQqA2gLBAKwGYhgoDRHuEIbAbwFigHoDMDYgwEBRCGFgOIERxAAH+IgMQiA3AMBwIsB4RhuAsEUCMUwKRZh4E2BMAwGBRiFAiFYFIRQRCtAmEUDgTQKCRDcC4YoSBeBUHGBAbgGBIiMFSI8XAqQNiGG4HARwEQ/A1GMKEJQVRDjYHUBsSI5gejHFQPkDoBQWB2BUMMeAeAHCJASCEUgLBDiQAGHQMQig0gGB4AcHghBJAyCEEkCoaQMApFILwR4kg5BuCUJUHILwRgQHiFMSQUhHBKCSAkFgMQig8EYBUCQPA5hICSFpKgeBzCUHEKANwjAwhTBAMcPgrRLgjHkF0ZYmQWgtFKKwW4lApDCCuEwLIYQXjFCYLUCochwByGWMkTQOxzB4HKJccQrgyhMGSJ0Go5hCDTA2MMDwZRKgxH2DQEw+ByicBmIQVYTRYhXBsMUMIVhNjjEkHUZw0RvA5BOCgY4FRJiiDqE4BI7QcCmGSFMToExogVCcOkbIOxzhaBmJ0AYnA1AMdoCsKIJQEgfHoB4QQDAJCtCGGgHoEQMDiFtPIKQrAdDNHiAMEAICAgA==")
oCascadeTree.SelBackColor = 16777216
oCascadeTree.SelForeColor = 0
oCascadeTree.BackColorHeader = 33554432
oCascadeTree.Template = "ScrollPartVisible(0,65536) = True" // oCascadeTree.ScrollPartVisible(0,65536) = .t.
oCascadeTree.Template = "ScrollPartVisible(1,65536) = True" // oCascadeTree.ScrollPartVisible(1,65536) = .t.
oCascadeTree.Template = "ScrollPartVisible(2,65536) = True" // oCascadeTree.ScrollPartVisible(2,65536) = .t.
oCascadeTree.ScrollWidth = 4
oCascadeTree.Template = "Background(276) = 15790320" // oCascadeTree.Background(276) = 15790320
oCascadeTree.Template = "Background(260) = 8421504" // oCascadeTree.Background(260) = 8421504
oCascadeTree.ScrollHeight = 4
oCascadeTree.Template = "Background(404) = Background(276)" // oCascadeTree.Background(404) = oCascadeTree.Background(276)
oCascadeTree.Template = "Background(388) = Background(260)" // oCascadeTree.Background(388) = oCascadeTree.Background(260)
oCascadeTree.Template = "Background(511) = Background(276)" // oCascadeTree.Background(511) = oCascadeTree.Background(276)
oCascadeTree.Template = "Background(18) = 12895428" // oCascadeTree.Background(18) = 12895428
oCascadeTree.Template = "Background(142) = Background(18)" // oCascadeTree.Background(142) = oCascadeTree.Background(18)
oCascadeTree.Template = "Background(141) = Background(18)" // oCascadeTree.Background(141) = oCascadeTree.Background(18)
oCascadeTree.Template = "Background(170) = 2" // oCascadeTree.Background(170) = 2
oCascadeTree.BackColorSortBar = oCascadeTree.BackColor
oCascadeTree.EndUpdate()
oCascadeTree.BeginUpdate()
oCascadeTree.Mode = 3
oCascadeTree.DataSource = "Source=C:\Program Files\Exontrol\ExCascadeTree\Sample\Access\cities.accdb;Member=Select * FROM Countries;Key=CountryCode;Tag=Country;Name=CountryName >>> Member=Select * FROM States WHERE CountryCode IN (<%Parent.CountryCode%>);Key=StateCode;Name=StateName;Tag=State ||| Member=Select * FROM Cities WHERE CountryCode IN (<%Parent.CountryCode%>);Tag=City;Name=Name >>> Member=Select * FROM Cities WHERE CountryCode IN (<%Parent.Parent.CountryCode%>) AND StateCode IN (<%Parent.StateCode%>);Tag=City;Name=Name"
oCascadeTree.Select = "RO\CJ"
oCascadeTree.EndUpdate()
|
|
40
|
How can I format a column so it display its content in a different way
' A view has been created.
function CreateView as v (View as OLE::Exontrol.CascadeTree.1::IView)
' Columns("StateCode").Visible = False
Dim var_Object as P
Dim var_Object1 as P
Dim var_Object2 as P
Dim var_Object3 as P
Dim var_View as P
oCascadeTree = topparent:CONTROL_ACTIVEX1.activex
var_View = oCascadeTree.View
var_View.BeginUpdate()
var_View.ContinueColumnScroll = .f.
var_View.ScrollBySingleLine = .t.
var_View.DrawGridLines = -1
var_View.EnsureVisibleColumn("Date")
var_View.Columns.Item("CountryCode").Visible = .f.
var_Object = var_View.Columns.Item("Date")
var_Object1 = var_View.Columns.Item("Function")
var_Object2 = var_View.Columns.Item("Coordinates")
var_Object3 = var_View.Columns.Item("Status")
var_View.EndUpdate()
end function
' An internal error occurs.
function Error as v (Error as N,Description as C)
oCascadeTree = topparent:CONTROL_ACTIVEX1.activex
? "Error"
? Description
end function
Dim oCascadeTree as P
oCascadeTree = topparent:CONTROL_ACTIVEX1.activex
oCascadeTree.BeginUpdate()
oCascadeTree.FitCascadeColumns = 7
oCascadeTree.Mode = 3
oCascadeTree.ScrollWidth = 4
oCascadeTree.ScrollHeight = 4
oCascadeTree.Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=")
oCascadeTree.DataSource = "Source=C:\Program Files\Exontrol\ExCascadeTree\Sample\Access\cities.accdb;Member=Select * FROM Countries;Key=CountryCode;Tag=Country;Name=CountryName >>> Member=Select * FROM States WHERE CountryCode IN (<%Parent.CountryCode%>);Key=StateCode;Name=StateName;Tag=State ||| Member=Select * FROM Cities WHERE CountryCode IN (<%Parent.CountryCode%>);Tag=City;Name=Name >>> Member=Select * FROM Cities WHERE CountryCode IN (<%Parent.Parent.CountryCode%>) AND StateCode IN (<%Parent.StateCode%>);Tag=City;Name=Name"
oCascadeTree.Select = "US\OR"
oCascadeTree.EndUpdate()
|
|
39
|
How can I add a position column
' A view has been created.
function CreateView as v (View as OLE::Exontrol.CascadeTree.1::IView)
Dim var_Column as P
Dim var_View as P
oCascadeTree = topparent:CONTROL_ACTIVEX1.activex
var_View = oCascadeTree.View
var_Column = var_View.Columns.Add("Pos")
var_Column.Width = 32
var_Column.AllowSizing = .f.
var_Column.Position = 0
var_Column.FormatColumn = "1 pos ``"
' var_Column.Def(4) = 15790320
oCascadeTree.TemplateDef = "dim var_Column"
oCascadeTree.TemplateDef = var_Column
oCascadeTree.Template = "var_Column.Def(4) = 15790320"
var_Column.Alignment = 2
var_Column.HeaderAlignment = var_Column.Alignment
' var_Column.Def(49) = 2
oCascadeTree.TemplateDef = "dim var_Column"
oCascadeTree.TemplateDef = var_Column
oCascadeTree.Template = "var_Column.Def(49) = 2"
' var_Column.Def(48) = 2
oCascadeTree.TemplateDef = "dim var_Column"
oCascadeTree.TemplateDef = var_Column
oCascadeTree.Template = "var_Column.Def(48) = 2"
' var_Column.Def(52) = 2
oCascadeTree.TemplateDef = "dim var_Column"
oCascadeTree.TemplateDef = var_Column
oCascadeTree.Template = "var_Column.Def(52) = 2"
' var_Column.Def(53) = 2
oCascadeTree.TemplateDef = "dim var_Column"
oCascadeTree.TemplateDef = var_Column
oCascadeTree.Template = "var_Column.Def(53) = 2"
var_View.CountLockedColumns = 1
end function
' An internal error occurs.
function Error as v (Error as N,Description as C)
oCascadeTree = topparent:CONTROL_ACTIVEX1.activex
? "Error"
? Description
end function
Dim oCascadeTree as P
oCascadeTree = topparent:CONTROL_ACTIVEX1.activex
oCascadeTree.BeginUpdate()
oCascadeTree.Mode = 3
oCascadeTree.DataSource = "Source=C:\Program Files\Exontrol\ExCascadeTree\Sample\Access\cities.accdb;Member=Select * FROM Countries;Key=CountryCode;Tag=Country;Name=CountryName >>> Member=Select * FROM States WHERE CountryCode IN (<%Parent.CountryCode%>);Key=StateCode;Name=StateName;Tag=State ||| Member=Select * FROM Cities WHERE CountryCode IN (<%Parent.CountryCode%>);Tag=City;Name=Name >>> Member=Select * FROM Cities WHERE CountryCode IN (<%Parent.Parent.CountryCode%>) AND StateCode IN (<%Parent.StateCode%>);Tag=City;Name=Name"
oCascadeTree.Select = "US\IA"
oCascadeTree.EndUpdate()
|
|
38
|
How can I display icons or images
' A view has been created.
function CreateView as v (View as OLE::Exontrol.CascadeTree.1::IView)
Dim var_Object as P
Dim var_View as P
oCascadeTree = topparent:CONTROL_ACTIVEX1.activex
var_View = oCascadeTree.View
var_View.EnsureVisibleColumn("Function")
var_Object = var_View.Columns.Item("Function")
end function
' An internal error occurs.
function Error as v (Error as N,Description as C)
oCascadeTree = topparent:CONTROL_ACTIVEX1.activex
? "Error"
? Description
end function
Dim oCascadeTree as P
oCascadeTree = topparent:CONTROL_ACTIVEX1.activex
oCascadeTree.BeginUpdate()
oCascadeTree.Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=")
oCascadeTree.Mode = 3
oCascadeTree.DataSource = "Source=C:\Program Files\Exontrol\ExCascadeTree\Sample\Access\cities.accdb;Member=Select * FROM Countries;Key=CountryCode;Tag=Country;Name=CountryName >>> Member=Select * FROM States WHERE CountryCode IN (<%Parent.CountryCode%>);Key=StateCode;Name=StateName;Tag=State ||| Member=Select * FROM Cities WHERE CountryCode IN (<%Parent.CountryCode%>);Tag=City;Name=Name >>> Member=Select * FROM Cities WHERE CountryCode IN (<%Parent.Parent.CountryCode%>) AND StateCode IN (<%Parent.StateCode%>);Tag=City;Name=Name"
oCascadeTree.Select = "US\MN"
oCascadeTree.EndUpdate()
|
|
37
|
How can I turn-on the control's status bar
' A view has been created.
function CreateView as v (View as OLE::Exontrol.CascadeTree.1::IView)
oCascadeTree = topparent:CONTROL_ACTIVEX1.activex
oCascadeTree.StatusBarLabel = oCascadeTree.FormatABC("`<b>` + ( value replace `\\` with ` </b><font ;6><off 4>` )",oCascadeTree.Name)
end function
' An internal error occurs.
function Error as v (Error as N,Description as C)
oCascadeTree = topparent:CONTROL_ACTIVEX1.activex
? "Error"
? Description
end function
' Occurs once the user is about to change the view.
function ViewEndChanging as v (Operation as OLE::Exontrol.CascadeTree.1::ViewOperationEnum)
oCascadeTree = topparent:CONTROL_ACTIVEX1.activex
oCascadeTree.StatusBarLabel = oCascadeTree.FormatABC("`<b>` + ( value replace `\\` with ` </b><font ;6><off 4>` )",oCascadeTree.Name)
end function
Dim oCascadeTree as P
oCascadeTree = topparent:CONTROL_ACTIVEX1.activex
oCascadeTree.BeginUpdate()
oCascadeTree.StatusBarVisible = 2
oCascadeTree.StatusBarHeight = 24
oCascadeTree.Mode = 3
oCascadeTree.DataSource = "Source=C:\Program Files\Exontrol\ExCascadeTree\Sample\Access\cities.accdb;Member=Select * FROM Countries;Key=CountryCode;Tag=Country;Name=CountryName >>> Member=Select * FROM States WHERE CountryCode IN (<%Parent.CountryCode%>);Key=StateCode;Name=StateName;Tag=State ||| Member=Select * FROM Cities WHERE CountryCode IN (<%Parent.CountryCode%>);Tag=City;Name=Name >>> Member=Select * FROM Cities WHERE CountryCode IN (<%Parent.Parent.CountryCode%>) AND StateCode IN (<%Parent.StateCode%>);Tag=City;Name=Name"
oCascadeTree.Name = "Romania\Cluj\Baciu*"
oCascadeTree.EndUpdate()
|
|
36
|
How can I disable incremental searching
' A view has been created.
function CreateView as v (View as OLE::Exontrol.CascadeTree.1::IView)
oCascadeTree = topparent:CONTROL_ACTIVEX1.activex
oCascadeTree.View.AutoSearch = .f.
end function
' An internal error occurs.
function Error as v (Error as N,Description as C)
oCascadeTree = topparent:CONTROL_ACTIVEX1.activex
? "Error"
? Description
end function
Dim oCascadeTree as P
oCascadeTree = topparent:CONTROL_ACTIVEX1.activex
oCascadeTree.BeginUpdate()
oCascadeTree.Mode = 3
oCascadeTree.DataSource = "Source=C:\Program Files\Exontrol\ExCascadeTree\Sample\Access\cities.accdb;Member=Select * FROM Countries;Key=CountryCode;Tag=Country;Name=CountryName >>> Member=Select * FROM States WHERE CountryCode IN (<%Parent.CountryCode%>);Key=StateCode;Name=StateName;Tag=State ||| Member=Select * FROM Cities WHERE CountryCode IN (<%Parent.CountryCode%>);Tag=City;Name=Name >>> Member=Select * FROM Cities WHERE CountryCode IN (<%Parent.Parent.CountryCode%>) AND StateCode IN (<%Parent.StateCode%>);Tag=City;Name=Name"
oCascadeTree.Select = "US\AK"
oCascadeTree.EndUpdate()
|
|
35
|
ScrollBar extension
' A view has been created.
function CreateView as v (View as OLE::Exontrol.CascadeTree.1::IView)
' Columns("StateCode").Visible = False
Dim var_View as P
oCascadeTree = topparent:CONTROL_ACTIVEX1.activex
var_View = oCascadeTree.View
var_View.ColumnAutoResize = .t.
var_View.Columns.Item("CountryCode").Visible = .f.
end function
' An internal error occurs.
function Error as v (Error as N,Description as C)
oCascadeTree = topparent:CONTROL_ACTIVEX1.activex
? "Error"
? Description
end function
Dim oCascadeTree as P
Dim var_Column as P
Dim var_Columns as local
Dim var_Columns1 as local
Dim var_Items as P
Dim var_View as P
oCascadeTree = topparent:CONTROL_ACTIVEX1.activex
oCascadeTree.BeginUpdate()
oCascadeTree.Template = "ScrollPartVisible(0,65536) = True" // oCascadeTree.ScrollPartVisible(0,65536) = .t.
oCascadeTree.Template = "ScrollPartVisible(1,65536) = True" // oCascadeTree.ScrollPartVisible(1,65536) = .t.
oCascadeTree.Template = "ScrollPartVisible(2,65536) = True" // oCascadeTree.ScrollPartVisible(2,65536) = .t.
oCascadeTree.ScrollWidth = 4
oCascadeTree.Template = "Background(276) = 15790320" // oCascadeTree.Background(276) = 15790320
oCascadeTree.Template = "Background(260) = 8421504" // oCascadeTree.Background(260) = 8421504
oCascadeTree.ScrollHeight = 4
oCascadeTree.Template = "Background(404) = Background(276)" // oCascadeTree.Background(404) = oCascadeTree.Background(276)
oCascadeTree.Template = "Background(388) = Background(260)" // oCascadeTree.Background(388) = oCascadeTree.Background(260)
oCascadeTree.Template = "Background(511) = Background(276)" // oCascadeTree.Background(511) = oCascadeTree.Background(276)
oCascadeTree.Template = "Background(18) = 12895428" // oCascadeTree.Background(18) = 12895428
oCascadeTree.Template = "Background(142) = Background(18)" // oCascadeTree.Background(142) = oCascadeTree.Background(18)
oCascadeTree.Template = "Background(141) = Background(18)" // oCascadeTree.Background(141) = oCascadeTree.Background(18)
oCascadeTree.Template = "Background(170) = 2" // oCascadeTree.Background(170) = 2
oCascadeTree.EndUpdate()
oCascadeTree.BeginUpdate()
oCascadeTree.Mode = 3
oCascadeTree.DataSource = "Source=C:\Program Files\Exontrol\ExCascadeTree\Sample\Access\cities.accdb;Member=Select * FROM Countries;Key=CountryCode;Tag=Country;Name=CountryName >>> Member=Select * FROM States WHERE CountryCode IN (<%Parent.CountryCode%>);Key=StateCode;Name=StateName;Tag=State ||| Member=Select * FROM Cities WHERE CountryCode IN (<%Parent.CountryCode%>);Tag=City;Name=Name >>> Member=Select * FROM Cities WHERE CountryCode IN (<%Parent.Parent.CountryCode%>) AND StateCode IN (<%Parent.StateCode%>);Tag=City;Name=Name"
oCascadeTree.Select = "US\AK"
' oCascadeTree.DefaultView().Columns.Item("CountryName").SortOrder = 1
var_Columns = oCascadeTree.DefaultView().Columns.Item("CountryName")
oCascadeTree.TemplateDef = "dim var_Columns"
oCascadeTree.TemplateDef = var_Columns
oCascadeTree.Template = "var_Columns.SortOrder = 1"
' oCascadeTree.DefaultView().NextView.Columns.Item("StateName").SortOrder = 1
var_Columns1 = oCascadeTree.DefaultView().NextView.Columns.Item("StateName")
oCascadeTree.TemplateDef = "dim var_Columns1"
oCascadeTree.TemplateDef = var_Columns1
oCascadeTree.Template = "var_Columns1.SortOrder = 1"
var_View = oCascadeTree.DefaultView().NextView.NextView
var_View.ColumnAutoResize = .f.
var_Column = var_View.Columns.Item("Name")
var_Column.SortOrder = 1
var_Column.Width = 128
var_Items = var_View.Items
' var_Items.SelectItem(var_Items.FindItem("Anchorage","Name")) = .t.
oCascadeTree.TemplateDef = "dim var_Items"
oCascadeTree.TemplateDef = var_Items
oCascadeTree.Template = "var_Items.SelectItem(FindItem(`Anchorage`,`Name`)) = True"
oCascadeTree.EndUpdate()
|
|
34
|
How can I access the next/prev/parent/child view
' A view has been created.
function CreateView as v (View as OLE::Exontrol.CascadeTree.1::IView)
' Columns("StateCode").Visible = False
Dim var_View as P
oCascadeTree = topparent:CONTROL_ACTIVEX1.activex
var_View = oCascadeTree.View
var_View.ColumnAutoResize = .t.
var_View.Columns.Item("CountryCode").Visible = .f.
end function
' An internal error occurs.
function Error as v (Error as N,Description as C)
oCascadeTree = topparent:CONTROL_ACTIVEX1.activex
? "Error"
? Description
end function
Dim oCascadeTree as P
Dim var_Column as P
Dim var_Columns as local
Dim var_Columns1 as local
Dim var_View as P
oCascadeTree = topparent:CONTROL_ACTIVEX1.activex
oCascadeTree.BeginUpdate()
oCascadeTree.Mode = 2
oCascadeTree.DataSource = "Source=C:\Program Files\Exontrol\ExCascadeTree\Sample\Access\cities.accdb;Member=Select * FROM Countries;Key=CountryCode;Tag=Country;Name=CountryName >>> Member=Select * FROM States WHERE CountryCode IN (<%Parent.CountryCode%>);Key=StateCode;Name=StateName;Tag=State ||| Member=Select * FROM Cities WHERE CountryCode IN (<%Parent.CountryCode%>);Tag=City;Name=Name >>> Member=Select * FROM Cities WHERE CountryCode IN (<%Parent.Parent.CountryCode%>) AND StateCode IN (<%Parent.StateCode%>);Tag=City;Name=Name"
oCascadeTree.Select = "RO\CJ"
' oCascadeTree.DefaultView().Columns.Item("CountryName").SortOrder = 1
var_Columns = oCascadeTree.DefaultView().Columns.Item("CountryName")
oCascadeTree.TemplateDef = "dim var_Columns"
oCascadeTree.TemplateDef = var_Columns
oCascadeTree.Template = "var_Columns.SortOrder = 1"
' oCascadeTree.DefaultView().NextView.Columns.Item("StateName").SortOrder = 1
var_Columns1 = oCascadeTree.DefaultView().NextView.Columns.Item("StateName")
oCascadeTree.TemplateDef = "dim var_Columns1"
oCascadeTree.TemplateDef = var_Columns1
oCascadeTree.Template = "var_Columns1.SortOrder = 1"
var_View = oCascadeTree.DefaultView().NextView.NextView
var_View.BeginUpdate()
var_View.ColumnAutoResize = .f.
var_Column = var_View.Columns.Item("Name")
var_Column.Width = 128
var_Column.SortOrder = 1
var_View.SingleSort = .f.
var_View.AllowGroupBy = .t.
var_View.Columns.Item("Status").SortOrder = 2
var_View.TreeColumnIndex = var_View.Columns.Item("Name").Index
var_View.EndUpdate()
oCascadeTree.EndUpdate()
|
|
33
|
Predefined Keywords of ShowContextMenu property
' A view has been created.
function CreateView as v (View as OLE::Exontrol.CascadeTree.1::IView)
' Columns("StateCode").Visible = False
Dim var_View as P
oCascadeTree = topparent:CONTROL_ACTIVEX1.activex
var_View = oCascadeTree.View
var_View.ColumnAutoResize = .t.
var_View.Columns.Item("CountryCode").Visible = .f.
oCascadeTree.StatusBarLabel = oCascadeTree.FormatABC("`<b>` + ( value replace `\\` with ` </b><font ;6><off 4>` )",oCascadeTree.Name)
end function
' An internal error occurs.
function Error as v (Error as N,Description as C)
oCascadeTree = topparent:CONTROL_ACTIVEX1.activex
? "Error"
? Description
end function
' Occurs once the user is about to change the view.
function ViewEndChanging as v (Operation as OLE::Exontrol.CascadeTree.1::ViewOperationEnum)
oCascadeTree = topparent:CONTROL_ACTIVEX1.activex
oCascadeTree.StatusBarLabel = oCascadeTree.FormatABC("`<b>` + ( value replace `\\` with ` </b><font ;6><off 4>` )",oCascadeTree.Name)
oCascadeTree.ExecuteContextMenu = 0
end function
Dim oCascadeTree as P
oCascadeTree = topparent:CONTROL_ACTIVEX1.activex
oCascadeTree.BeginUpdate()
oCascadeTree.AllowSplitView = 1
oCascadeTree.FitCascadeColumns = 3
oCascadeTree.Mode = 2
oCascadeTree.StatusBarVisible = 2
oCascadeTree.StatusBarHeight = 24
oCascadeTree.Template = "ScrollPartVisible(0,65536) = True" // oCascadeTree.ScrollPartVisible(0,65536) = .t.
oCascadeTree.Template = "ScrollPartVisible(1,65536) = True" // oCascadeTree.ScrollPartVisible(1,65536) = .t.
oCascadeTree.Template = "ScrollPartVisible(2,65536) = True" // oCascadeTree.ScrollPartVisible(2,65536) = .t.
oCascadeTree.ScrollWidth = 4
oCascadeTree.Template = "Background(276) = 15790320" // oCascadeTree.Background(276) = 15790320
oCascadeTree.Template = "Background(260) = 8421504" // oCascadeTree.Background(260) = 8421504
oCascadeTree.ScrollHeight = 4
oCascadeTree.Template = "Background(404) = Background(276)" // oCascadeTree.Background(404) = oCascadeTree.Background(276)
oCascadeTree.Template = "Background(388) = Background(260)" // oCascadeTree.Background(388) = oCascadeTree.Background(260)
oCascadeTree.Template = "Background(511) = Background(276)" // oCascadeTree.Background(511) = oCascadeTree.Background(276)
oCascadeTree.Template = "Background(18) = 12895428" // oCascadeTree.Background(18) = 12895428
oCascadeTree.Template = "Background(142) = Background(18)" // oCascadeTree.Background(142) = oCascadeTree.Background(18)
oCascadeTree.Template = "Background(141) = Background(18)" // oCascadeTree.Background(141) = oCascadeTree.Background(18)
oCascadeTree.Template = "Background(170) = 2" // oCascadeTree.Background(170) = 2
oCascadeTree.DataSource = "Source=C:\Program Files\Exontrol\ExCascadeTree\Sample\Access\cities.accdb;Member=Select * FROM Countries;Key=CountryCode;Tag=Country;Name=CountryName >>> Member=Select * FROM States WHERE CountryCode IN (<%Parent.CountryCode%>);Key=StateCode;Name=StateName;Tag=State ||| Member=Select * FROM Cities WHERE CountryCode IN (<%Parent.CountryCode%>);Tag=City;Name=Name >>> Member=Select * FROM Cities WHERE CountryCode IN (<%Parent.Parent.CountryCode%>) AND StateCode IN (<%Parent.StateCode%>);Tag=City;Name=Name"
oCascadeTree.Select = "US\AK"
oCascadeTree.ShowContextMenu = "`vlevels=` + vlevels + `,vlevel=` + vlevel + `,hlevels=` + hlevels + `,hlevel=` + hlevel + `,view=` + view "
oCascadeTree.SplitViewHeight = "256"
oCascadeTree.EndUpdate()
|
|
32
|
How can I display the identifiers of the control's context menu (debug)
' A view has been created.
function CreateView as v (View as OLE::Exontrol.CascadeTree.1::IView)
' Columns("StateCode").Visible = False
Dim var_View as P
oCascadeTree = topparent:CONTROL_ACTIVEX1.activex
var_View = oCascadeTree.View
var_View.ColumnAutoResize = .t.
var_View.Columns.Item("CountryCode").Visible = .f.
end function
' An internal error occurs.
function Error as v (Error as N,Description as C)
oCascadeTree = topparent:CONTROL_ACTIVEX1.activex
? "Error"
? Description
end function
' Occurs once the user is about to change the view.
function ViewEndChanging as v (Operation as OLE::Exontrol.CascadeTree.1::ViewOperationEnum)
oCascadeTree = topparent:CONTROL_ACTIVEX1.activex
? oCascadeTree.ExecuteContextMenu
end function
Dim oCascadeTree as P
oCascadeTree = topparent:CONTROL_ACTIVEX1.activex
oCascadeTree.BeginUpdate()
oCascadeTree.Mode = 3
oCascadeTree.Template = "Background(18) = 12895428" // oCascadeTree.Background(18) = 12895428
oCascadeTree.DataSource = "Source=C:\Program Files\Exontrol\ExCascadeTree\Sample\Access\cities.accdb;Member=Select * FROM Countries;Key=CountryCode;Tag=Country;Name=CountryName >>> Member=Select * FROM States WHERE CountryCode IN (<%Parent.CountryCode%>);Key=StateCode;Name=StateName;Tag=State ||| Member=Select * FROM Cities WHERE CountryCode IN (<%Parent.CountryCode%>);Tag=City;Name=Name >>> Member=Select * FROM Cities WHERE CountryCode IN (<%Parent.Parent.CountryCode%>) AND StateCode IN (<%Parent.StateCode%>);Tag=City;Name=Name"
oCascadeTree.Select = "US\AK"
oCascadeTree.ShowContextMenu = "[debug]Popup(Item 1[id=1001],Item 2[id=1002],Item 3[id=1003]),[sep],Exit[def][id=1000]"
oCascadeTree.EndUpdate()
|
|
31
|
ShowContextMenu usage
' A view has been created.
function CreateView as v (View as OLE::Exontrol.CascadeTree.1::IView)
' Columns("StateCode").Visible = False
Dim var_View as P
oCascadeTree = topparent:CONTROL_ACTIVEX1.activex
var_View = oCascadeTree.View
var_View.ColumnAutoResize = .t.
var_View.Columns.Item("CountryCode").Visible = .f.
end function
' An internal error occurs.
function Error as v (Error as N,Description as C)
oCascadeTree = topparent:CONTROL_ACTIVEX1.activex
? "Error"
? Description
end function
' Occurs once the user is about to change the view.
function ViewEndChanging as v (Operation as OLE::Exontrol.CascadeTree.1::ViewOperationEnum)
oCascadeTree = topparent:CONTROL_ACTIVEX1.activex
? oCascadeTree.ExecuteContextMenu
end function
Dim oCascadeTree as P
oCascadeTree = topparent:CONTROL_ACTIVEX1.activex
oCascadeTree.BeginUpdate()
oCascadeTree.Mode = 3
oCascadeTree.Template = "Background(18) = 12895428" // oCascadeTree.Background(18) = 12895428
oCascadeTree.DataSource = "Source=C:\Program Files\Exontrol\ExCascadeTree\Sample\Access\cities.accdb;Member=Select * FROM Countries;Key=CountryCode;Tag=Country;Name=CountryName >>> Member=Select * FROM States WHERE CountryCode IN (<%Parent.CountryCode%>);Key=StateCode;Name=StateName;Tag=State ||| Member=Select * FROM Cities WHERE CountryCode IN (<%Parent.CountryCode%>);Tag=City;Name=Name >>> Member=Select * FROM Cities WHERE CountryCode IN (<%Parent.Parent.CountryCode%>) AND StateCode IN (<%Parent.StateCode%>);Tag=City;Name=Name"
oCascadeTree.Select = "US\AK"
oCascadeTree.ShowContextMenu = "Popup(Item 1[id=1001],Item 2[id=1002],Item 3[id=1003]),[sep],Exit[def][id=1000]"
oCascadeTree.EndUpdate()
|
|
30
|
How can I resize automatically all views, when the control is resized
' A view has been created.
function CreateView as v (View as OLE::Exontrol.CascadeTree.1::IView)
' Columns("StateCode").Visible = False
Dim var_View as P
oCascadeTree = topparent:CONTROL_ACTIVEX1.activex
var_View = oCascadeTree.View
var_View.ColumnAutoResize = .t.
var_View.Columns.Item("CountryCode").Visible = .f.
end function
' An internal error occurs.
function Error as v (Error as N,Description as C)
oCascadeTree = topparent:CONTROL_ACTIVEX1.activex
? "Error"
? Description
end function
Dim oCascadeTree as P
oCascadeTree = topparent:CONTROL_ACTIVEX1.activex
oCascadeTree.BeginUpdate()
oCascadeTree.Mode = 515 'exAutoFitOnResizeClient + exSplitFixCascadeMode
oCascadeTree.Template = "Background(18) = 12895428" // oCascadeTree.Background(18) = 12895428
oCascadeTree.DataSource = "Source=C:\Program Files\Exontrol\ExCascadeTree\Sample\Access\cities.accdb;Member=Select * FROM Countries;Key=CountryCode;Tag=Country;Name=CountryName >>> Member=Select * FROM States WHERE CountryCode IN (<%Parent.CountryCode%>);Key=StateCode;Name=StateName;Tag=State ||| Member=Select * FROM Cities WHERE CountryCode IN (<%Parent.CountryCode%>);Tag=City;Name=Name >>> Member=Select * FROM Cities WHERE CountryCode IN (<%Parent.Parent.CountryCode%>) AND StateCode IN (<%Parent.StateCode%>);Tag=City;Name=Name"
oCascadeTree.Select = "US\AK"
oCascadeTree.EndUpdate()
|
|
29
|
How can I hide some columns
' A view has been created.
function CreateView as v (View as OLE::Exontrol.CascadeTree.1::IView)
' Columns("StateCode").Visible = False
Dim var_View as P
oCascadeTree = topparent:CONTROL_ACTIVEX1.activex
var_View = oCascadeTree.View
var_View.ColumnAutoResize = .t.
var_View.Columns.Item("CountryCode").Visible = .f.
end function
' An internal error occurs.
function Error as v (Error as N,Description as C)
oCascadeTree = topparent:CONTROL_ACTIVEX1.activex
? "Error"
? Description
end function
Dim oCascadeTree as P
oCascadeTree = topparent:CONTROL_ACTIVEX1.activex
oCascadeTree.BeginUpdate()
oCascadeTree.Mode = 3
oCascadeTree.Template = "Background(18) = 12895428" // oCascadeTree.Background(18) = 12895428
oCascadeTree.DataSource = "Source=C:\Program Files\Exontrol\ExCascadeTree\Sample\Access\cities.accdb;Member=Select * FROM Countries;Key=CountryCode;Tag=Country;Name=CountryName >>> Member=Select * FROM States WHERE CountryCode IN (<%Parent.CountryCode%>);Key=StateCode;Name=StateName;Tag=State ||| Member=Select * FROM Cities WHERE CountryCode IN (<%Parent.CountryCode%>);Tag=City;Name=Name >>> Member=Select * FROM Cities WHERE CountryCode IN (<%Parent.Parent.CountryCode%>) AND StateCode IN (<%Parent.StateCode%>);Tag=City;Name=Name"
oCascadeTree.Select = "US\AK"
oCascadeTree.EndUpdate()
|
|
28
|
Is it possible to disable resizing the cascade columns
' A view has been created.
function CreateView as v (View as OLE::Exontrol.CascadeTree.1::IView)
oCascadeTree = topparent:CONTROL_ACTIVEX1.activex
oCascadeTree.View.ColumnAutoResize = .t.
end function
' An internal error occurs.
function Error as v (Error as N,Description as C)
oCascadeTree = topparent:CONTROL_ACTIVEX1.activex
? "Error"
? Description
end function
Dim oCascadeTree as P
oCascadeTree = topparent:CONTROL_ACTIVEX1.activex
oCascadeTree.BeginUpdate()
oCascadeTree.Template = "Background(18) = 12895428" // oCascadeTree.Background(18) = 12895428
oCascadeTree.Mode = 771 'exAutoFitOnResizeClient + exDisableResizeCascadeColumns + exSplitFixCascadeMode
oCascadeTree.DataSource = "Source=C:\Program Files\Exontrol\ExCascadeTree\Sample\Access\cities.accdb;Member=Select * FROM Countries;Key=CountryCode;Tag=Country;Name=CountryName >>> Member=Select * FROM States WHERE CountryCode IN (<%Parent.CountryCode%>);Key=StateCode;Name=StateName;Tag=State ||| Member=Select * FROM Cities WHERE CountryCode IN (<%Parent.CountryCode%>);Tag=City;Name=Name >>> Member=Select * FROM Cities WHERE CountryCode IN (<%Parent.Parent.CountryCode%>) AND StateCode IN (<%Parent.StateCode%>);Tag=City;Name=Name"
oCascadeTree.Select = "US\AK"
oCascadeTree.EndUpdate()
|
|
27
|
SplitFixCascadeMode Mode
' An internal error occurs.
function Error as v (Error as N,Description as C)
oCascadeTree = topparent:CONTROL_ACTIVEX1.activex
? "Error"
? Description
end function
Dim oCascadeTree as P
oCascadeTree = topparent:CONTROL_ACTIVEX1.activex
oCascadeTree.BeginUpdate()
oCascadeTree.Template = "Background(18) = 12895428" // oCascadeTree.Background(18) = 12895428
oCascadeTree.Mode = 3
oCascadeTree.DataSource = "Source=C:\Program Files\Exontrol\ExCascadeTree\Sample\Access\cities.accdb;Member=Select * FROM Countries;Key=CountryCode;Tag=Country;Name=CountryName >>> Member=Select * FROM States WHERE CountryCode IN (<%Parent.CountryCode%>);Key=StateCode;Name=StateName;Tag=State ||| Member=Select * FROM Cities WHERE CountryCode IN (<%Parent.CountryCode%>);Tag=City;Name=Name >>> Member=Select * FROM Cities WHERE CountryCode IN (<%Parent.Parent.CountryCode%>) AND StateCode IN (<%Parent.StateCode%>);Tag=City;Name=Name"
oCascadeTree.Select = "US\AK"
oCascadeTree.EndUpdate()
|
|
26
|
FixCascadeMode Mode
' An internal error occurs.
function Error as v (Error as N,Description as C)
oCascadeTree = topparent:CONTROL_ACTIVEX1.activex
? "Error"
? Description
end function
Dim oCascadeTree as P
oCascadeTree = topparent:CONTROL_ACTIVEX1.activex
oCascadeTree.BeginUpdate()
oCascadeTree.Template = "Background(18) = 12895428" // oCascadeTree.Background(18) = 12895428
oCascadeTree.DefColumnWidth = 96
oCascadeTree.Mode = 0
oCascadeTree.DataSource = "Source=C:\Program Files\Exontrol\ExCascadeTree\Sample\Access\cities.accdb;Member=Select * FROM Countries;Key=CountryCode;Tag=Country;Name=CountryName >>> Member=Select * FROM States WHERE CountryCode IN (<%Parent.CountryCode%>);Key=StateCode;Name=StateName;Tag=State ||| Member=Select * FROM Cities WHERE CountryCode IN (<%Parent.CountryCode%>);Tag=City;Name=Name >>> Member=Select * FROM Cities WHERE CountryCode IN (<%Parent.Parent.CountryCode%>) AND StateCode IN (<%Parent.StateCode%>);Tag=City;Name=Name"
oCascadeTree.Select = "US\AK"
oCascadeTree.EndUpdate()
|
|
25
|
SplitEqualCascadeMode Mode
' An internal error occurs.
function Error as v (Error as N,Description as C)
oCascadeTree = topparent:CONTROL_ACTIVEX1.activex
? "Error"
? Description
end function
Dim oCascadeTree as P
oCascadeTree = topparent:CONTROL_ACTIVEX1.activex
oCascadeTree.BeginUpdate()
oCascadeTree.Template = "Background(18) = 12895428" // oCascadeTree.Background(18) = 12895428
oCascadeTree.Mode = 2
oCascadeTree.DataSource = "Source=C:\Program Files\Exontrol\ExCascadeTree\Sample\Access\cities.accdb;Member=Select * FROM Countries;Key=CountryCode;Tag=Country;Name=CountryName >>> Member=Select * FROM States WHERE CountryCode IN (<%Parent.CountryCode%>);Key=StateCode;Name=StateName;Tag=State ||| Member=Select * FROM Cities WHERE CountryCode IN (<%Parent.CountryCode%>);Tag=City;Name=Name >>> Member=Select * FROM Cities WHERE CountryCode IN (<%Parent.Parent.CountryCode%>) AND StateCode IN (<%Parent.StateCode%>);Tag=City;Name=Name"
oCascadeTree.Select = "US\AK"
oCascadeTree.EndUpdate()
|
|
24
|
Default Mode
' An internal error occurs.
function Error as v (Error as N,Description as C)
oCascadeTree = topparent:CONTROL_ACTIVEX1.activex
? "Error"
? Description
end function
Dim oCascadeTree as P
oCascadeTree = topparent:CONTROL_ACTIVEX1.activex
oCascadeTree.BeginUpdate()
oCascadeTree.Template = "Background(18) = 12895428" // oCascadeTree.Background(18) = 12895428
oCascadeTree.DataSource = "Source=C:\Program Files\Exontrol\ExCascadeTree\Sample\Access\cities.accdb;Member=Select * FROM Countries;Key=CountryCode;Tag=Country;Name=CountryName >>> Member=Select * FROM States WHERE CountryCode IN (<%Parent.CountryCode%>);Key=StateCode;Name=StateName;Tag=State ||| Member=Select * FROM Cities WHERE CountryCode IN (<%Parent.CountryCode%>);Tag=City;Name=Name >>> Member=Select * FROM Cities WHERE CountryCode IN (<%Parent.Parent.CountryCode%>) AND StateCode IN (<%Parent.StateCode%>);Tag=City;Name=Name"
oCascadeTree.Select = "US\AK"
oCascadeTree.EndUpdate()
|
|
23
|
SingleCascadeMode ( single-view )
' An internal error occurs.
function Error as v (Error as N,Description as C)
oCascadeTree = topparent:CONTROL_ACTIVEX1.activex
? "Error"
? Description
end function
Dim oCascadeTree as P
Dim var_View as P
oCascadeTree = topparent:CONTROL_ACTIVEX1.activex
oCascadeTree.BeginUpdate()
oCascadeTree.Mode = 1
var_View = oCascadeTree.DefaultView()
var_View.DataSource = "Source=C:\Program Files\Exontrol\ExCascadeTree\Sample\Access\cities.accdb;Member=Select * FROM Cities Where CountryCode = 'RO' "
var_View.AllowGroupBy = .t.
var_View.SortBarVisible = .t.
var_View.Columns.Item("StateCode").SortOrder = 1
var_View.Name = "Name"
oCascadeTree.Name = "Isaccea"
oCascadeTree.EndUpdate()
|
|
22
|
How can I display the current selection, as a path
' A view has been created.
function CreateView as v (View as OLE::Exontrol.CascadeTree.1::IView)
oCascadeTree = topparent:CONTROL_ACTIVEX1.activex
oCascadeTree.StatusBarLabel = oCascadeTree.Name
end function
' An internal error occurs.
function Error as v (Error as N,Description as C)
oCascadeTree = topparent:CONTROL_ACTIVEX1.activex
? "Error"
? Description
end function
' Occurs once the user is about to change the view.
function ViewEndChanging as v (Operation as OLE::Exontrol.CascadeTree.1::ViewOperationEnum)
oCascadeTree = topparent:CONTROL_ACTIVEX1.activex
oCascadeTree.StatusBarLabel = oCascadeTree.Name
end function
Dim oCascadeTree as P
oCascadeTree = topparent:CONTROL_ACTIVEX1.activex
oCascadeTree.BeginUpdate()
oCascadeTree.StatusBarVisible = 2
oCascadeTree.Mode = 3
oCascadeTree.DataSource = "Source=C:\Program Files\Exontrol\ExCascadeTree\Sample\Access\cities.accdb;Member=Select * FROM Countries;Key=CountryCode;Tag=Country;Name=CountryName >>> Member=Select * FROM States WHERE CountryCode IN (<%Parent.CountryCode%>);Key=StateCode;Name=StateName;Tag=State ||| Member=Select * FROM Cities WHERE CountryCode IN (<%Parent.CountryCode%>);Tag=City;Name=Name >>> Member=Select * FROM Cities WHERE CountryCode IN (<%Parent.Parent.CountryCode%>) AND StateCode IN (<%Parent.StateCode%>);Tag=City;Name=Name"
oCascadeTree.Select = "US\AK"
oCascadeTree.EndUpdate()
|
|
21
|
How can I add multiple-views to the control
' An internal error occurs.
function Error as v (Error as N,Description as C)
oCascadeTree = topparent:CONTROL_ACTIVEX1.activex
? "Error"
? Description
end function
Dim oCascadeTree as P
oCascadeTree = topparent:CONTROL_ACTIVEX1.activex
oCascadeTree.BeginUpdate()
oCascadeTree.Mode = 3
oCascadeTree.DataSource = "Source=C:\Program Files\Exontrol\ExCascadeTree\Sample\Access\cities.accdb;Member=Select * FROM Countries;Key=CountryCode;Tag=Country;Name=CountryName >>> Member=Select * FROM States WHERE CountryCode IN (<%Parent.CountryCode%>);Key=StateCode;Name=StateName;Tag=State ||| Member=Select * FROM Cities WHERE CountryCode IN (<%Parent.CountryCode%>);Tag=City;Name=Name >>> Member=Select * FROM Cities WHERE CountryCode IN (<%Parent.Parent.CountryCode%>) AND StateCode IN (<%Parent.StateCode%>);Tag=City;Name=Name"
oCascadeTree.Select = "US\AK"
oCascadeTree.EndUpdate()
|
|
20
|
I wish I select items based on names, rather than keys. Is that possible
' A view has been created.
function CreateView as v (View as OLE::Exontrol.CascadeTree.1::IView)
Dim label as
oCascadeTree = topparent:CONTROL_ACTIVEX1.activex
oCascadeTree.View.ColumnAutoResize = .f.
label = oCascadeTree.FormatABC("`<b>Select = </b>` + value",oCascadeTree.Select)
label = oCascadeTree.FormatABC("A + `<br>` + `<b>Name = </b>` + B replace `|` with ` `",label,oCascadeTree.Name)
oCascadeTree.StatusBarLabel = label
end function
' An internal error occurs.
function Error as v (Error as N,Description as C)
oCascadeTree = topparent:CONTROL_ACTIVEX1.activex
? "Error"
? Description
end function
' Occurs once the user is about to change the view.
function ViewEndChanging as v (Operation as OLE::Exontrol.CascadeTree.1::ViewOperationEnum)
Dim label as
oCascadeTree = topparent:CONTROL_ACTIVEX1.activex
label = oCascadeTree.FormatABC("`<b>Select = </b>` + value",oCascadeTree.Select)
label = oCascadeTree.FormatABC("A + `<br>` + `<b>Name = </b>` + B replace `|` with ` `",label,oCascadeTree.Name)
oCascadeTree.StatusBarLabel = label
end function
Dim dm1 as
Dim dm2 as
Dim dm3 as
Dim ds as
Dim oCascadeTree as P
oCascadeTree = topparent:CONTROL_ACTIVEX1.activex
oCascadeTree.BeginUpdate()
oCascadeTree.Mode = 2
oCascadeTree.StatusBarVisible = 18 'exStatusBarWordWrap + exStatusBarAnchorTop
ds = "Source=C:\Program Files\Exontrol\ExCascadeTree\Sample\Access\cities.accdb"
dm1 = "Member=Select * FROM Countries;Key=CountryCode;Tag=Country;Name=CountryName"
ds = oCascadeTree.FormatABC("A + `;` + B",ds,dm1)
dm2 = "Member=Select * FROM States WHERE CountryCode IN (<%Parent.CountryCode%>);Key=StateCode;Name=StateName;Tag=State ||| Member=Select * FROM Cities WHERE CountryCode IN (<%Parent.CountryCode%>);Tag=City;Name=Name"
ds = oCascadeTree.FormatABC("A + ` >>> ` + B",ds,dm2)
dm3 = "Member=Select * FROM Cities WHERE CountryCode IN (<%Parent.Parent.CountryCode%>) AND StateCode IN (<%Parent.StateCode%>);Tag=City;Name=Name"
ds = oCascadeTree.FormatABC("A + ` >>> ` + B",ds,dm3)
oCascadeTree.DataSource = ds
oCascadeTree.Name = "Romania\Cluj\Baciu*"
oCascadeTree.EndUpdate()
|
|
19
|
I've noticed that I can't select multiple items. How can I do that
' A view has been created.
function CreateView as v (View as OLE::Exontrol.CascadeTree.1::IView)
Dim bColumnAutoResize as
Dim label as
Dim var_View as P
oCascadeTree = topparent:CONTROL_ACTIVEX1.activex
bColumnAutoResize = oCascadeTree.FormatABC("not(A = `City`)",oCascadeTree.View.Tag)
var_View = oCascadeTree.View
var_View.SingleSel = .f.
var_View.ColumnAutoResize = .f.
label = oCascadeTree.FormatABC("`<b>Select = </b>` + value",oCascadeTree.Select)
label = oCascadeTree.FormatABC("A + `<br>` + `<b>Name = </b>` + B replace `|` with ` `",label,oCascadeTree.Name)
oCascadeTree.StatusBarLabel = label
end function
' An internal error occurs.
function Error as v (Error as N,Description as C)
oCascadeTree = topparent:CONTROL_ACTIVEX1.activex
? "Error"
? Description
end function
' Occurs once the user is about to change the view.
function ViewEndChanging as v (Operation as OLE::Exontrol.CascadeTree.1::ViewOperationEnum)
Dim label as
oCascadeTree = topparent:CONTROL_ACTIVEX1.activex
label = oCascadeTree.FormatABC("`<b>Select = </b>` + value",oCascadeTree.Select)
label = oCascadeTree.FormatABC("A + `<br>` + `<b>Name = </b>` + B replace `|` with ` `",label,oCascadeTree.Name)
oCascadeTree.StatusBarLabel = label
end function
Dim dm1 as
Dim dm2 as
Dim dm3 as
Dim ds as
Dim oCascadeTree as P
oCascadeTree = topparent:CONTROL_ACTIVEX1.activex
oCascadeTree.BeginUpdate()
oCascadeTree.Mode = 2
oCascadeTree.StatusBarVisible = 18 'exStatusBarWordWrap + exStatusBarAnchorTop
oCascadeTree.StatusBarHeight = 48
ds = "Source=C:\Program Files\Exontrol\ExCascadeTree\Sample\Access\cities.accdb"
dm1 = "Member=Select * FROM Countries;Key=CountryCode;Tag=Country;Name=CountryName"
ds = oCascadeTree.FormatABC("A + `;` + B",ds,dm1)
dm2 = "Member=Select * FROM States WHERE CountryCode IN (<%Parent.CountryCode%>);Key=StateCode;Name=StateName;Tag=State ||| Member=Select * FROM Cities WHERE CountryCode IN (<%Parent.CountryCode%>);Tag=City;Name=Name"
ds = oCascadeTree.FormatABC("A + ` >>> ` + B",ds,dm2)
dm3 = "Member=Select * FROM Cities WHERE CountryCode IN (<%Parent.Parent.CountryCode%>) AND StateCode IN (<%Parent.StateCode%>);Tag=City;Name=Name"
ds = oCascadeTree.FormatABC("A + ` >>> ` + B",ds,dm3)
oCascadeTree.DataSource = ds
oCascadeTree.Select = "RO\CJ|D*"
oCascadeTree.EndUpdate()
|
|
18
|
How do I programmatically selects a path/item
' A view has been created.
function CreateView as v (View as OLE::Exontrol.CascadeTree.1::IView)
Dim bColumnAutoResize as
oCascadeTree = topparent:CONTROL_ACTIVEX1.activex
bColumnAutoResize = oCascadeTree.FormatABC("not(A = `City`)",oCascadeTree.View.Tag)
oCascadeTree.View.ColumnAutoResize = .f.
end function
' An internal error occurs.
function Error as v (Error as N,Description as C)
oCascadeTree = topparent:CONTROL_ACTIVEX1.activex
? "Error"
? Description
end function
' Occurs once the user is about to change the view.
function ViewEndChanging as v (Operation as OLE::Exontrol.CascadeTree.1::ViewOperationEnum)
oCascadeTree = topparent:CONTROL_ACTIVEX1.activex
oCascadeTree.StatusBarLabel = oCascadeTree.Select
end function
Dim dm1 as
Dim dm2 as
Dim dm3 as
Dim ds as
Dim oCascadeTree as P
oCascadeTree = topparent:CONTROL_ACTIVEX1.activex
oCascadeTree.BeginUpdate()
oCascadeTree.Mode = 2
oCascadeTree.StatusBarVisible = 1
ds = "Source=C:\Program Files\Exontrol\ExCascadeTree\Sample\Access\cities.accdb"
dm1 = "Member=Select * FROM Countries;Key=CountryCode;Tag=Country"
ds = oCascadeTree.FormatABC("A + `;` + B",ds,dm1)
dm2 = "Member=Select * FROM States WHERE CountryCode IN (<%Parent.CountryCode%>);Key=StateCode;Tag=State ||| Member=Select * FROM Cities WHERE CountryCode IN (<%Parent.CountryCode%>);Tag=City"
ds = oCascadeTree.FormatABC("A + ` >>> ` + B",ds,dm2)
dm3 = "Member=Select * FROM Cities WHERE CountryCode IN (<%Parent.Parent.CountryCode%>) AND StateCode IN (<%Parent.StateCode%>);Tag=City"
ds = oCascadeTree.FormatABC("A + ` >>> ` + B",ds,dm3)
oCascadeTree.DataSource = ds
oCascadeTree.Select = "RO\CJ"
oCascadeTree.EndUpdate()
|
|
17
|
DataSource/DataMember/Key/Tag
' A view has been created.
function CreateView as v (View as OLE::Exontrol.CascadeTree.1::IView)
Dim bColumnAutoResize as
Dim nWidth as
Dim var_View as P
oCascadeTree = topparent:CONTROL_ACTIVEX1.activex
oCascadeTree.StatusBarLabel = oCascadeTree.FormatABC("value replace `data source` with `<b><fgcolor=808080>Source</fgcolor></b>` replace `Source` with `<b><fgcolor=808080>Source</fgcolor></b>` replace `Member` with `<b><fgcolor=808080>Member</fgcolor></b>` replace `Key` with `<b><fgcolor=808080>Key</fgcolor></b>` replace `Tag` with `<b><fgcolor=808080>Tag</fgcolor></b>` replace `;` with `;<br>`",oCascadeTree.View.DataSource)
bColumnAutoResize = oCascadeTree.FormatABC("not(A = `City`)",oCascadeTree.View.Tag)
nWidth = oCascadeTree.FormatABC("A = `City` ? B : C",oCascadeTree.View.Tag,oCascadeTree.View.WidthToFit,oCascadeTree.View.Width)
var_View = oCascadeTree.View
var_View.ColumnAutoResize = .f.
var_View.Width = nWidth
end function
' An internal error occurs.
function Error as v (Error as N,Description as C)
oCascadeTree = topparent:CONTROL_ACTIVEX1.activex
? "Error"
? Description
end function
Dim dm1 as
Dim dm2 as
Dim dm3 as
Dim ds as
Dim oCascadeTree as P
oCascadeTree = topparent:CONTROL_ACTIVEX1.activex
oCascadeTree.BeginUpdate()
oCascadeTree.StatusBarHeight = 58
oCascadeTree.StatusBarVisible = 18 'exStatusBarWordWrap + exStatusBarAnchorTop
ds = "Source=C:\Program Files\Exontrol\ExCascadeTree\Sample\Access\cities.accdb"
dm1 = "Member=Select * FROM Countries;Key=CountryCode;Tag=Country"
ds = oCascadeTree.FormatABC("A + `;` + B",ds,dm1)
dm2 = "Member=Select * FROM States WHERE CountryCode IN (<%Parent.CountryCode%>);Key=StateCode;Tag=State ||| Member=Select * FROM Cities WHERE CountryCode IN (<%Parent.CountryCode%>);Tag=City"
ds = oCascadeTree.FormatABC("A + ` >>> ` + B",ds,dm2)
dm3 = "Member=Select * FROM Cities WHERE CountryCode IN (<%Parent.Parent.CountryCode%>) AND StateCode IN (<%Parent.StateCode%>);Tag=City"
ds = oCascadeTree.FormatABC("A + ` >>> ` + B",ds,dm3)
oCascadeTree.DataSource = ds
oCascadeTree.EndUpdate()
|
|
16
|
DataSource (view, data source, data member, ACCDB)
' An internal error occurs.
function Error as v (Error as N,Description as C)
oCascadeTree = topparent:CONTROL_ACTIVEX1.activex
? "Error"
? Description
end function
Dim dm as
Dim ds as
Dim oCascadeTree as P
Dim var_View as P
oCascadeTree = topparent:CONTROL_ACTIVEX1.activex
oCascadeTree.BeginUpdate()
oCascadeTree.StatusBarVisible = 2
oCascadeTree.StatusBarLabel = "<b>DataSource</b> could \"Data Source=...;Data Member=...\" or \"Source=...;Member=...\" "
oCascadeTree.DefColumnWidth = 336
ds = "Data Source=C:\Program Files\Exontrol\ExCascadeTree\Sample\Access\cities.accdb"
dm = "Data Member=Select * FROM Countries"
var_View = oCascadeTree.DefaultView()
var_View.DataSource = oCascadeTree.FormatABC("A + `;` + B",ds,dm)
var_View.ColumnAutoResize = .t.
oCascadeTree.EndUpdate()
|
|
15
|
DataSource (view, data source, data member, MDB)
' An internal error occurs.
function Error as v (Error as N,Description as C)
oCascadeTree = topparent:CONTROL_ACTIVEX1.activex
? "Error"
? Description
end function
Dim dm as
Dim ds as
Dim oCascadeTree as P
Dim var_View as P
oCascadeTree = topparent:CONTROL_ACTIVEX1.activex
oCascadeTree.BeginUpdate()
oCascadeTree.StatusBarVisible = 2
oCascadeTree.StatusBarLabel = "<b>DataSource</b> could \"Data Source=...;Data Member=...\" or \"Source=...;Member=...\" "
oCascadeTree.DefColumnWidth = 336
ds = "Data Source=C:\Program Files\Exontrol\ExCascadeTree\Sample\Access\cities.mdb"
dm = "Data Member=Select * FROM Countries"
var_View = oCascadeTree.DefaultView()
var_View.DataSource = oCascadeTree.FormatABC("A + `;` + B",ds,dm)
var_View.ColumnAutoResize = .t.
oCascadeTree.EndUpdate()
|
|
14
|
DataSource (view, ADODB, ACCDB)
' An internal error occurs.
function Error as v (Error as N,Description as C)
oCascadeTree = topparent:CONTROL_ACTIVEX1.activex
? "Error"
? Description
end function
Dim ado as P
Dim oCascadeTree as P
Dim var_View as P
oCascadeTree = topparent:CONTROL_ACTIVEX1.activex
oCascadeTree.BeginUpdate()
oCascadeTree.StatusBarVisible = 2
oCascadeTree.StatusBarLabel = "<b>DataSource</b> could be string (Source/Member), ADO or DAO objects"
oCascadeTree.DefColumnWidth = 336
ado = OLE.Create("ADODB.Recordset")
ado.Open("Countries","Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Program Files\Exontrol\ExCascadeTree\Sample\Access\cities.accdb",3,3)
var_View = oCascadeTree.DefaultView()
var_View.DataSource = ado
var_View.ColumnAutoResize = .t.
oCascadeTree.EndUpdate()
|
|
13
|
DataSource (view, ADODB, MDB)
' An internal error occurs.
function Error as v (Error as N,Description as C)
oCascadeTree = topparent:CONTROL_ACTIVEX1.activex
? "Error"
? Description
end function
Dim ado as P
Dim oCascadeTree as P
Dim var_View as P
oCascadeTree = topparent:CONTROL_ACTIVEX1.activex
oCascadeTree.BeginUpdate()
oCascadeTree.StatusBarVisible = 2
oCascadeTree.StatusBarLabel = "<b>DataSource</b> could be string (Source/Member), ADO or DAO objects"
oCascadeTree.DefColumnWidth = 336
ado = OLE.Create("ADODB.Recordset")
ado.Open("Countries","Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Program Files\Exontrol\ExCascadeTree\Sample\Access\cities.mdb",3,3)
var_View = oCascadeTree.DefaultView()
var_View.DataSource = ado
var_View.ColumnAutoResize = .t.
oCascadeTree.EndUpdate()
|
|
12
|
DataSource (control, data source, data member, ACCDB)
' An internal error occurs.
function Error as v (Error as N,Description as C)
oCascadeTree = topparent:CONTROL_ACTIVEX1.activex
? "Error"
? Description
end function
Dim dm as
Dim ds as
Dim oCascadeTree as P
oCascadeTree = topparent:CONTROL_ACTIVEX1.activex
oCascadeTree.BeginUpdate()
oCascadeTree.StatusBarVisible = 2
oCascadeTree.StatusBarLabel = "<b>DataSource</b> could \"Data Source=...;Data Member=...\" or \"Source=...;Member=...\" "
oCascadeTree.DefColumnWidth = 336
ds = "Data Source=C:\Program Files\Exontrol\ExCascadeTree\Sample\Access\cities.accdb"
dm = "Data Member=Select * FROM Countries"
oCascadeTree.DataSource = oCascadeTree.FormatABC("A + `;` + B",ds,dm)
oCascadeTree.View.ColumnAutoResize = .t.
oCascadeTree.EndUpdate()
|
|
11
|
DataSource (control, data source, data member, MDB)
' An internal error occurs.
function Error as v (Error as N,Description as C)
oCascadeTree = topparent:CONTROL_ACTIVEX1.activex
? "Error"
? Description
end function
Dim dm as
Dim ds as
Dim oCascadeTree as P
oCascadeTree = topparent:CONTROL_ACTIVEX1.activex
oCascadeTree.BeginUpdate()
oCascadeTree.StatusBarVisible = 2
oCascadeTree.StatusBarLabel = "<b>DataSource</b> could \"Data Source=...;Data Member=...\" or \"Source=...;Member=...\" "
oCascadeTree.DefColumnWidth = 336
ds = "Data Source=C:\Program Files\Exontrol\ExCascadeTree\Sample\Access\cities.mdb"
dm = "Data Member=Select * FROM Countries"
oCascadeTree.DataSource = oCascadeTree.FormatABC("A + `;` + B",ds,dm)
oCascadeTree.View.ColumnAutoResize = .t.
oCascadeTree.EndUpdate()
|
|
10
|
DataSource (control, ADODB, ACCDB)
' An internal error occurs.
function Error as v (Error as N,Description as C)
oCascadeTree = topparent:CONTROL_ACTIVEX1.activex
? "Error"
? Description
end function
Dim ado as P
Dim oCascadeTree as P
oCascadeTree = topparent:CONTROL_ACTIVEX1.activex
oCascadeTree.BeginUpdate()
oCascadeTree.StatusBarVisible = 2
oCascadeTree.StatusBarLabel = "<b>DataSource</b> could be string (Source/Member), ADO or DAO objects"
oCascadeTree.DefColumnWidth = 336
ado = OLE.Create("ADODB.Recordset")
ado.Open("Countries","Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Program Files\Exontrol\ExCascadeTree\Sample\Access\cities.accdb",3,3)
oCascadeTree.DataSource = ado
oCascadeTree.View.ColumnAutoResize = .t.
oCascadeTree.EndUpdate()
|
|
9
|
DataSource (control, ADODB, MDB)
' An internal error occurs.
function Error as v (Error as N,Description as C)
oCascadeTree = topparent:CONTROL_ACTIVEX1.activex
? "Error"
? Description
end function
Dim ado as P
Dim oCascadeTree as P
oCascadeTree = topparent:CONTROL_ACTIVEX1.activex
oCascadeTree.BeginUpdate()
oCascadeTree.StatusBarVisible = 2
oCascadeTree.StatusBarLabel = "<b>DataSource</b> could be string (Source/Member), ADO or DAO objects"
oCascadeTree.DefColumnWidth = 336
ado = OLE.Create("ADODB.Recordset")
ado.Open("Countries","Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Program Files\Exontrol\ExCascadeTree\Sample\Access\cities.mdb",3,3)
oCascadeTree.DataSource = ado
oCascadeTree.View.ColumnAutoResize = .t.
oCascadeTree.EndUpdate()
|
|
8
|
DataSource (view, XMLDOMDocument)
' An internal error occurs.
function Error as v (Error as N,Description as C)
oCascadeTree = topparent:CONTROL_ACTIVEX1.activex
? "Error"
? Description
end function
Dim oCascadeTree as P
Dim var_View as P
Dim xml as P
oCascadeTree = topparent:CONTROL_ACTIVEX1.activex
oCascadeTree.BeginUpdate()
oCascadeTree.StatusBarVisible = 2
oCascadeTree.StatusBarLabel = "<b>DataSource</b> could be a XML file name, a URL, an IStream, an IXMLDOMDocument"
oCascadeTree.DefColumnWidth = 336
var_View = oCascadeTree.DefaultView()
xml = OLE.Create("MSXML.DOMDocument")
xml.load("C:\Program Files\Exontrol\ExCascadeTree\Sample\Testing.xml")
var_View.DataSource = xml
var_View.ColumnAutoResize = .t.
oCascadeTree.EndUpdate()
|
|
7
|
DataSource (view, XML, file)
' An internal error occurs.
function Error as v (Error as N,Description as C)
oCascadeTree = topparent:CONTROL_ACTIVEX1.activex
? "Error"
? Description
end function
Dim oCascadeTree as P
Dim var_View as P
oCascadeTree = topparent:CONTROL_ACTIVEX1.activex
oCascadeTree.BeginUpdate()
oCascadeTree.StatusBarVisible = 2
oCascadeTree.StatusBarLabel = "<b>DataSource</b> could be a XML file name, a URL, an IStream, an IXMLDOMDocument"
oCascadeTree.DefColumnWidth = 336
var_View = oCascadeTree.DefaultView()
var_View.DataSource = "http://www.exontrol.net/testing.xml"
var_View.ColumnAutoResize = .t.
oCascadeTree.EndUpdate()
|
|
6
|
DataSource (control, XMLDOMDocument)
' An internal error occurs.
function Error as v (Error as N,Description as C)
oCascadeTree = topparent:CONTROL_ACTIVEX1.activex
? "Error"
? Description
end function
Dim oCascadeTree as P
Dim xml as P
oCascadeTree = topparent:CONTROL_ACTIVEX1.activex
oCascadeTree.BeginUpdate()
oCascadeTree.StatusBarVisible = 2
oCascadeTree.StatusBarLabel = "<b>DataSource</b> could be a XML file name, a URL, an IStream, an IXMLDOMDocument"
oCascadeTree.DefColumnWidth = 336
xml = OLE.Create("MSXML.DOMDocument")
xml.load("C:\Program Files\Exontrol\ExCascadeTree\Sample\Testing.xml")
oCascadeTree.DataSource = xml
oCascadeTree.View.ColumnAutoResize = .t.
oCascadeTree.EndUpdate()
|
|
5
|
DataSource (control, XML, file)
' An internal error occurs.
function Error as v (Error as N,Description as C)
oCascadeTree = topparent:CONTROL_ACTIVEX1.activex
? "Error"
? Description
end function
Dim oCascadeTree as P
oCascadeTree = topparent:CONTROL_ACTIVEX1.activex
oCascadeTree.BeginUpdate()
oCascadeTree.StatusBarVisible = 2
oCascadeTree.StatusBarLabel = "<b>DataSource</b> could be a XML file name, a URL, an IStream, an IXMLDOMDocument"
oCascadeTree.DefColumnWidth = 336
oCascadeTree.DataSource = "http://www.exontrol.net/testing.xml"
oCascadeTree.View.ColumnAutoResize = .t.
oCascadeTree.EndUpdate()
|
|
4
|
How can I get the selected items (sample 1)
' A view has been created.
function CreateView as v (View as OLE::Exontrol.CascadeTree.1::IView)
Dim k as
Dim var_Items as P
Dim var_View as P
oCascadeTree = topparent:CONTROL_ACTIVEX1.activex
var_View = oCascadeTree.View
k = var_View.ParentView.Value()
var_View.BeginUpdate()
var_View.ColumnAutoResize = .t.
var_View.Key = -1
var_View.Columns.Add(k)
var_Items = var_View.Items
var_Items.AddItem(oCascadeTree.FormatABC("A + `-> Sub-Item 1`",k))
var_Items.AddItem(oCascadeTree.FormatABC("A + `-> Sub-Item 2`",k))
var_Items.AddItem(oCascadeTree.FormatABC("A + `-> Sub-Item 3`",k))
var_View.EndUpdate()
end function
' Occurs once the user is about to change the view.
function ViewEndChanging as v (Operation as OLE::Exontrol.CascadeTree.1::ViewOperationEnum)
Dim var_Items as P
oCascadeTree = topparent:CONTROL_ACTIVEX1.activex
? "End"
? Operation
var_Items = oCascadeTree.View.Items
? "FocusItem"
? var_Items.CellCaption(var_Items.FocusItem,0)
? "SelectedItem"
? var_Items.CellCaption(var_Items.SelectedItem(0),0)
end function
' Occurs once the user is about to change the view.
function ViewStartChanging as v (Operation as OLE::Exontrol.CascadeTree.1::ViewOperationEnum)
oCascadeTree = topparent:CONTROL_ACTIVEX1.activex
? "Start"
? Operation
end function
Dim oCascadeTree as P
Dim var_Items as P
Dim var_View as P
oCascadeTree = topparent:CONTROL_ACTIVEX1.activex
oCascadeTree.BeginUpdate()
var_View = oCascadeTree.View
var_View.BeginUpdate()
var_View.ColumnAutoResize = .t.
var_View.Columns.Add("Default")
var_View.Key = 0
var_View.LinesAtRoot = -1
var_Items = var_View.Items
var_Items.AddItem("Item A")
' var_Items.SelectItem(var_Items.AddItem("Item B")) = .t.
oCascadeTree.TemplateDef = "dim var_Items"
oCascadeTree.TemplateDef = var_Items
oCascadeTree.Template = "var_Items.SelectItem(AddItem(`Item B`)) = True"
var_Items.AddItem("Item C")
var_View.EndUpdate()
oCascadeTree.EndUpdate()
|
|
3
|
Can I use this control as a simple tree
Dim oCascadeTree as P
Dim var_Items as P
Dim var_View as P
oCascadeTree = topparent:CONTROL_ACTIVEX1.activex
oCascadeTree.BeginUpdate()
oCascadeTree.Mode = 1
var_View = oCascadeTree.View
var_View.BeginUpdate()
var_View.ColumnAutoResize = .t.
var_View.Columns.Add("Default")
var_View.Key = -1
var_View.LinesAtRoot = -1
var_Items = var_View.Items
var_Items.AddItem("Item A")
var_Items.InsertItem(var_Items.AddItem("Item B"),,"Child")
var_Items.AddItem("Item C")
var_View.EndUpdate()
oCascadeTree.EndUpdate()
|
|
2
|
How can I use this control
' A view has been created.
function CreateView as v (View as OLE::Exontrol.CascadeTree.1::IView)
Dim k as
Dim var_Items as P
Dim var_View as P
oCascadeTree = topparent:CONTROL_ACTIVEX1.activex
var_View = oCascadeTree.View
k = var_View.ParentView.Value()
var_View.BeginUpdate()
var_View.ColumnAutoResize = .t.
var_View.Columns.Add(k)
var_Items = var_View.Items
var_Items.AddItem(oCascadeTree.FormatABC("A + `-> Sub-Item 1`",k))
var_Items.AddItem(oCascadeTree.FormatABC("A + `-> Sub-Item 2`",k))
var_Items.AddItem(oCascadeTree.FormatABC("A + `-> Sub-Item 3`",k))
var_View.EndUpdate()
end function
Dim oCascadeTree as P
Dim var_Items as P
Dim var_View as P
oCascadeTree = topparent:CONTROL_ACTIVEX1.activex
oCascadeTree.BeginUpdate()
var_View = oCascadeTree.View
var_View.BeginUpdate()
var_View.ColumnAutoResize = .t.
var_View.Columns.Add("Default")
var_View.Key = 0
var_Items = var_View.Items
var_Items.AddItem("Item A")
' var_Items.SelectItem(var_Items.AddItem("Item B")) = .t.
oCascadeTree.TemplateDef = "dim var_Items"
oCascadeTree.TemplateDef = var_Items
oCascadeTree.Template = "var_Items.SelectItem(AddItem(`Item B`)) = True"
var_Items.AddItem("Item C")
var_View.EndUpdate()
oCascadeTree.EndUpdate()
|
|
1
|
How do I change the control's background color
Dim oCascadeTree as P
oCascadeTree = topparent:CONTROL_ACTIVEX1.activex
oCascadeTree.BackColor = 15790320
|