local var_Items as IItems
local var_View as IView

oDCOCX_Exontrol1:BeginUpdate()
var_View := oDCOCX_Exontrol1:View
	var_View:BeginUpdate()
	var_View:HeaderAppearance := Etched
	var_View:HeaderHeight := 24
	var_View:DrawGridLines := exRowLines
	var_View:ColumnAutoResize := true
	IColumn{var_View:Columns:Add("Country")}: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()
oDCOCX_Exontrol1:EndUpdate()

local var_Items as IItems
local var_View as IView

oDCOCX_Exontrol1:BeginUpdate()
var_View := oDCOCX_Exontrol1:View
	var_View:BeginUpdate()
	var_View:HeaderAppearance := Etched
	var_View:HeaderHeight := 24
	var_View:DrawGridLines := exRowLines
	var_View:ColumnAutoResize := true
	IColumn{var_View:Columns:Add("Country")}: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()
oDCOCX_Exontrol1:EndUpdate()

METHOD OCX_Exontrol1CreateView(View) CLASS MainDialog
	// CreateView event - A view has been created.
	local var_View as IView
	local var_Object as USUAL
	var_View := oDCOCX_Exontrol1:View
		var_View:EnsureVisibleColumn("Function")
		var_Object := var_View:Columns:[Item,"Function"]
		var_View:Columns:[Item,0]:[Def,exCellHasCheckBox] := true
RETURN NIL

METHOD OCX_Exontrol1Error(Error,Description) CLASS MainDialog
	// Error event - An internal error occurs.
	OutputDebugString(String2Psz( "Error" ))
	OutputDebugString(String2Psz( AsString(Description) ))
RETURN NIL

local var_Appearance as IAppearance

oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:ImageSize := 16
oDCOCX_Exontrol1:ReplaceIcon("gAAAABgYACEHgUJFEEAAWhUJCEJEEJggEhMCYEXjUbjkJQECj8gj8hAEjkshYEpk8kf8ClsulsvAExmcvf83js5nU7nkCeEcn8boMaocXosCB9Hn09pkzcEuoL/fE+OkYB0gB9YhIHrddgVcr9aktZADAD8+P8CgIA==",nil)
oDCOCX_Exontrol1:ReplaceIcon("C:\images\favicon.ico",0)
var_Appearance := oDCOCX_Exontrol1:VisualAppearance
	var_Appearance:Add(4,"gBFLBCJwBAEHhEJAAEhABUYCg6AADACAxRDgMQBQKAAzQFAYbhkGCGAAGMZxRgmFgAQhFcZQSKUOQTDKMIziYBYfgkMIgSbJUgDGAkRRdDSOYDmGQYDiCIoRShOMIjHLUXxtDaIZwhEAoJb+RgAUY/cTzaAEUwHHiTKInaCQShsFYJUJAdRURQ9EwvCIZBpEWwLChENQwWLCNj2TScBwjCyqbale45ViqdoDU5EUiXJJ8ZxnECfYyrGjaMpCeKBUrGYTVRBIMxLLSia5oeJqMrnBpNVrIUgXCAGFwHK6BcauXIIDp6XoWWRbAAWDpVVzNNC3YzkCIceADHKiXxmVz4JLdGZ1QTGID2XaYaxWK4oZjsVSc4KDHbETbHFi9Fo3NaaxGisew+GYc4HlCR5NAAAIIEkQJSGMOgdE4RhYDwJJsAaAYQgmPpolCWgSCiBJzjcEIAkQXIBm8d5UhOQgCDUIBDDJDhgggJgKgKYJIDSVoDk8KBFF4OohEMZgWDsYYDj4GoGmGSB2B6B5iAiBgYDsYRjGSbIJo4RgqDuIpIAoLoLmMCJGDKDJjJiLA7xqUAAgGTwYnYPoPmQCQGEKEJkEkFg9gGY44BoRoSmSSQ2EKEggHgRhShSZRJFYVoVmWCRmFKFAgGOTheheZgJgYYoYmYSYWGaF4lkMMJ0hqZpJjYbobmcCZGHKHJmjmJh0h2Z4JmYcIaE8WZ2H6H5oAoBoCiCaBKBYfdjGoJoKiKaJKDaDojmkChGgmIgpCoVoWiWaJZiSd4mmmSh2h6J5qAqBoiiiaY5iSeIpmqComiqKpqkqNouiuah6hqMIsmsSpWiuGhP1kOoumuSp2j6L5sAsBo54gKwWkaMZsgsJpKjKbJLDaRYxYWRpSjSbIZiSe41m2CxmlqNptksdpejebR5iSfI4m4S4W16boLiaao6m5fJ9jubwLkaco8m8S5WnaPZunuOp4j6b5Lnac4SA0PAGlgP4wEwFwGkGcIMCcCpCnCCxiA8NYAAmMJfkSbhFCcFpFnGDBnBqRpUhuEwTDeZ5lHCfw6HIQxLCaAxygyJwqgGcATE4FA6hWY4tjEAAQBAgIA==")
oDCOCX_Exontrol1:BackColorHeader := 0x4c6c6c6
oDCOCX_Exontrol1:SelBackColor := 0x4000000
oDCOCX_Exontrol1:SelForeColor := RGB(0,0,1)
oDCOCX_Exontrol1:[Background,0x14 | ] := oDCOCX_Exontrol1:SelBackColor
oDCOCX_Exontrol1:[Background,0x15 | ] := oDCOCX_Exontrol1:SelForeColor
oDCOCX_Exontrol1:[Background,0x8 | exSplitBar] := oDCOCX_Exontrol1:BackColor
oDCOCX_Exontrol1:[Background,0x9 | exSplitBar] := oDCOCX_Exontrol1:ForeColor
oDCOCX_Exontrol1:[Background,0x20 | ] := -1
oDCOCX_Exontrol1:[Background,0x0 | ] := 0x4000000
oDCOCX_Exontrol1:[Background,exHeaderFilterBarActive] := 0x4010101
oDCOCX_Exontrol1:[Background,0x1 | ] := 0x40000ff
oDCOCX_Exontrol1:HeaderAppearance := Etched
oDCOCX_Exontrol1:BackColorSortBar := oDCOCX_Exontrol1:BackColor
oDCOCX_Exontrol1:BackColorLevelHeader := oDCOCX_Exontrol1:BackColor
oDCOCX_Exontrol1:Mode := exSplitFixCascadeMode
oDCOCX_Exontrol1: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"
oDCOCX_Exontrol1:Select := "US\MN"
oDCOCX_Exontrol1:EndUpdate()

local var_Column as IColumn
local var_Items as IItems
local var_View as IView
local h as USUAL

var_View := oDCOCX_Exontrol1:View
	var_View:BeginUpdate()
	var_View:ColumnAutoResize := true
	var_View:HeaderAppearance := Etched
	var_View:HeaderHeight := 24
	var_View:LinesAtRoot := exLinesAtRoot
	var_View:Columns:Clear()
	var_Column := IColumn{var_View:Columns:Add("Items")}
		var_Column:DisplayFilterButton := true
		var_Column:DisplayFilterPattern := true
		var_Column:[Def,exFilterPatternTemplate] := "*<%filter%>*"
		var_Column:FilterType := exPattern
		var_Column:Filter := "1"
	var_Items := var_View:Items
		h := var_Items:AddItem("Root 1")
		var_Items:InsertItem(h,nil,"Child 1")
		var_Items:InsertItem(h,nil,"Child 2")
		var_Items:[ExpandItem,h] := true
		h := var_Items:AddItem("Root 2")
		var_Items:InsertItem(h,nil,"Child 1")
		var_Items:InsertItem(h,nil,"Child 2")
	var_View:ApplyFilter()
	var_View:EndUpdate()

local var_Columns as IColumns
local var_Items as IItems
local var_View as IView
local h,hR as USUAL

var_View := oDCOCX_Exontrol1:View
	var_View:BeginUpdate()
	var_View:ConditionalFormats:Add("%CC0=0",nil):ForeColor := RGB(128,128,128)
	var_View:HeaderAppearance := Etched
	var_View:HeaderHeight := 24
	var_View:LinesAtRoot := exLinesAtRoot
	var_Columns := var_View:Columns
		IColumn{var_Columns:Add("Item")}:Width := 16
		var_Columns:Add("Desc")
	var_Items := var_View:Items
		hR := var_Items:AddItem("Root")
		var_Items:[CellValue,hR,1] := "The root directory /"
		h := var_Items:InsertItem(hR,nil,"Home")
		var_Items:[CellValue,h,1] := "The home directory with user directories Alice and Bob"
		var_Items:InsertItem(h,nil,"Alice")
		var_Items:InsertItem(h,nil,"Bob")
		var_Items:[ExpandItem,h] := true
		h := var_Items:InsertItem(hR,nil,"Etc")
		var_Items:[CellValue,h,1] := "The etc directory with one configuration file"
		h := var_Items:InsertItem(h,nil,"nginx.conf")
		var_Items:[CellValue,var_Items:InsertItem(hR,nil,"Var"),1] := "The var directory"
		var_Items:[ExpandItem,hR] := true
	var_View:EndUpdate()

local var_Columns as IColumns
local var_Items as IItems
local var_View as IView
local h,hR as USUAL

var_View := oDCOCX_Exontrol1:View
	var_View:BeginUpdate()
	var_View:ConditionalFormats:Add("%CC0",nil):ForeColor := RGB(255,0,0)
	var_View:HeaderAppearance := Etched
	var_View:HeaderHeight := 24
	var_View:LinesAtRoot := exLinesAtRoot
	var_Columns := var_View:Columns
		IColumn{var_Columns:Add("Item")}:Width := 16
		var_Columns:Add("Desc")
	var_Items := var_View:Items
		hR := var_Items:AddItem("Root")
		var_Items:[CellValue,hR,1] := "The root directory /"
		h := var_Items:InsertItem(hR,nil,"Home")
		var_Items:[CellValue,h,1] := "The home directory with user directories Alice and Bob"
		var_Items:InsertItem(h,nil,"Alice")
		var_Items:InsertItem(h,nil,"Bob")
		var_Items:[ExpandItem,h] := true
		h := var_Items:InsertItem(hR,nil,"Etc")
		var_Items:[CellValue,h,1] := "The etc directory with one configuration file"
		h := var_Items:InsertItem(h,nil,"nginx.conf")
		var_Items:[CellValue,var_Items:InsertItem(hR,nil,"Var"),1] := "The var directory"
		var_Items:[ExpandItem,hR] := true
	var_View:EndUpdate()

local var_Columns as IColumns
local var_Items as IItems
local var_View as IView
local h,hR as USUAL

var_View := oDCOCX_Exontrol1:View
	var_View:BeginUpdate()
	var_View:ConditionalFormats:Add("%CX0",nil):Bold := true
	var_View:HeaderAppearance := Etched
	var_View:HeaderHeight := 24
	var_View:LinesAtRoot := exLinesAtRoot
	var_Columns := var_View:Columns
		IColumn{var_Columns:Add("Item")}:Width := 16
		var_Columns:Add("Desc")
	var_Items := var_View:Items
		hR := var_Items:AddItem("Root")
		var_Items:[CellValue,hR,1] := "The root directory /"
		h := var_Items:InsertItem(hR,nil,"Home")
		var_Items:[CellValue,h,1] := "The home directory with user directories Alice and Bob"
		var_Items:InsertItem(h,nil,"Alice")
		var_Items:InsertItem(h,nil,"Bob")
		var_Items:[ExpandItem,h] := true
		h := var_Items:InsertItem(hR,nil,"Etc")
		var_Items:[CellValue,h,1] := "The etc directory with one configuration file"
		h := var_Items:InsertItem(h,nil,"nginx.conf")
		var_Items:[CellValue,var_Items:InsertItem(hR,nil,"Var"),1] := "The var directory"
		var_Items:[ExpandItem,hR] := true
	var_View:EndUpdate()

METHOD OCX_Exontrol1MouseMove(Button,Shift,X,Y) CLASS MainDialog
	// MouseMove event - Occurs when the user moves the mouse.
	oDCOCX_Exontrol1:ShowToolTip("new content","",nil,"+8","+8")
RETURN NIL


oDCOCX_Exontrol1:ToolTipMargin := "16,8"

oDCOCX_Exontrol1:[Background,exScrollHoverAll] := -1

oDCOCX_Exontrol1:[Background,exScrollHoverAll] := RGB(1,0,0)

METHOD OCX_Exontrol1MouseMove(Button,Shift,X,Y) CLASS MainDialog
	// MouseMove event - Occurs when the user moves the mouse.
	oDCOCX_Exontrol1:ShowToolTip("new content","",nil,"+8","+8")
RETURN NIL

METHOD OCX_Exontrol1CreateView(View) CLASS MainDialog
	// CreateView event - A view has been created.
	local var_View as IView
	local bColumnAutoResize,bSingle as USUAL
	bSingle := oDCOCX_Exontrol1:FormatABC("value > 0 ?  0 : -1",oDCOCX_Exontrol1:View:Index,nil,nil)
	bColumnAutoResize := oDCOCX_Exontrol1:FormatABC("value = `City` ?  0 : -1",oDCOCX_Exontrol1:View:Tag,nil,nil)
	var_View := oDCOCX_Exontrol1:View
		var_View:ColumnAutoResize := false
		var_View:SingleSel := false
RETURN NIL

METHOD OCX_Exontrol1MouseMove(Button,Shift,X,Y) CLASS MainDialog
	// MouseMove event - Occurs when the user moves the mouse.
	oDCOCX_Exontrol1:ShowToolTip("<null>","<null>",nil,"+8","+8")
RETURN NIL


oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:Mode := exAutoFitOnResizeClient | exSplitFixCascadeMode
oDCOCX_Exontrol1: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"
oDCOCX_Exontrol1:EndUpdate()

METHOD OCX_Exontrol1CreateView(View) CLASS MainDialog
	// CreateView event - A view has been created.
	// Items.ItemHeight(0) = View.DefaultItemHeight
	// FilterBarFont.Size = Me.Font.Size
	// ToolTipFont.Size = Me.Font.Size
	local var_View as IView
	local var_Object as USUAL
	var_View := oDCOCX_Exontrol1:View
		var_View:DefaultItemHeight := 36
		var_View:HeaderHeight := var_View:DefaultItemHeight
		var_View:SortBarHeight := var_View:DefaultItemHeight
		var_View:Indent := 26
		var_View:[CheckImage,Unchecked] := 16777216
		var_View:[CheckImage,Checked] := 33554432
		var_View:[CheckImage,PartialChecked] := 50331648
		var_View:EnsureVisibleColumn("Function")
		var_Object := var_View:Columns:[Item,"Function"]
		var_View:Columns:[Item,0]:[Def,exCellHasCheckBox] := true
RETURN NIL

METHOD OCX_Exontrol1Error(Error,Description) CLASS MainDialog
	// Error event - An internal error occurs.
	OutputDebugString(String2Psz( "Error" ))
	OutputDebugString(String2Psz( AsString(Description) ))
RETURN NIL

local var_Appearance as IAppearance

oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:ImageSize := 32
oDCOCX_Exontrol1:Font:Size := 16
oDCOCX_Exontrol1: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 := oDCOCX_Exontrol1: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==")
oDCOCX_Exontrol1:BackColorHeader := 0x4c6c6c6
oDCOCX_Exontrol1:SelBackColor := 0x4000000
oDCOCX_Exontrol1:SelForeColor := RGB(0,0,1)
oDCOCX_Exontrol1:[Background,0x14 | ] := oDCOCX_Exontrol1:SelBackColor
oDCOCX_Exontrol1:[Background,0x15 | ] := oDCOCX_Exontrol1:SelForeColor
oDCOCX_Exontrol1:[Background,0x8 | exSplitBar] := oDCOCX_Exontrol1:BackColor
oDCOCX_Exontrol1:[Background,0x9 | exSplitBar] := oDCOCX_Exontrol1:ForeColor
oDCOCX_Exontrol1:[Background,0x20 | ] := -1
oDCOCX_Exontrol1:[Background,0x0 | ] := 0x4000000
oDCOCX_Exontrol1:[Background,exHeaderFilterBarActive] := 0x4010101
oDCOCX_Exontrol1:[Background,0x1 | ] := 0x40000ff
oDCOCX_Exontrol1:HeaderAppearance := Etched
oDCOCX_Exontrol1:BackColorSortBar := oDCOCX_Exontrol1:BackColor
oDCOCX_Exontrol1:BackColorLevelHeader := oDCOCX_Exontrol1:BackColor
oDCOCX_Exontrol1:Mode := exSplitFixCascadeMode
oDCOCX_Exontrol1: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"
oDCOCX_Exontrol1:Select := "US\MN"
oDCOCX_Exontrol1:EndUpdate()

METHOD OCX_Exontrol1CreateView(View) CLASS MainDialog
	// CreateView event - A view has been created.
	local var_View as IView
	local var_Object as USUAL
	var_View := oDCOCX_Exontrol1:View
		var_View:EnsureVisibleColumn("Function")
		var_Object := var_View:Columns:[Item,"Function"]
		var_View:Columns:[Item,0]:[Def,exCellHasCheckBox] := true
RETURN NIL

METHOD OCX_Exontrol1Error(Error,Description) CLASS MainDialog
	// Error event - An internal error occurs.
	OutputDebugString(String2Psz( "Error" ))
	OutputDebugString(String2Psz( AsString(Description) ))
RETURN NIL

local var_Appearance as IAppearance

oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:ImageSize := 16
oDCOCX_Exontrol1: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 := oDCOCX_Exontrol1:VisualAppearance
	var_Appearance:Add(4,"gBFLBCJwBAEHhEJAAEhABUYCg6AADACAxRDgMQBQKAAzQFAYbhkGCGAAGMZxRgmFgAQhFcZQSKUOQTDKMIziYBYfgkMIgSbJUgDGAkRRdDSOYDmGQYDiCIoRShOMIjHLUXxtDaIZwhEAoJb+RgAUY/cTzaAEUwHHiTKInaCQShsFYJUJAdRURQ9EwvCIZBpEWwLChENQwWLCNj2TScBwjCyqbale45ViqdoDU5EUiXJJ8ZxnECfYyrGjaMpCeKBUrGYTVRBIMxLLSia5oeJqMrnBpNVrIUgXCAGFwHK6BcauXIIDp6XoWWRbAAWDpVVzNNC3YzkCIceADHKiXxmVz4JLdGZ1QTGID2XaYaxWK4oZjsVSc4KDHbETbHFi9Fo3NaaxGisew+GYc4HlCR5NAAAIIEkQJSGMOgdE4RhYDwJJsAaAYQgmPpolCWgSCiBJzjcEIAkQXIBm8d5UhOQgCDUIBDDJDhgggJgKgKYJIDSVoDk8KBFF4OohEMZgWDsYYDj4GoGmGSB2B6B5iAiBgYDsYRjGSbIJo4RgqDuIpIAoLoLmMCJGDKDJjJiLA7xqUAAgGTwYnYPoPmQCQGEKEJkEkFg9gGY44BoRoSmSSQ2EKEggHgRhShSZRJFYVoVmWCRmFKFAgGOTheheZgJgYYoYmYSYWGaF4lkMMJ0hqZpJjYbobmcCZGHKHJmjmJh0h2Z4JmYcIaE8WZ2H6H5oAoBoCiCaBKBYfdjGoJoKiKaJKDaDojmkChGgmIgpCoVoWiWaJZiSd4mmmSh2h6J5qAqBoiiiaY5iSeIpmqComiqKpqkqNouiuah6hqMIsmsSpWiuGhP1kOoumuSp2j6L5sAsBo54gKwWkaMZsgsJpKjKbJLDaRYxYWRpSjSbIZiSe41m2CxmlqNptksdpejebR5iSfI4m4S4W16boLiaao6m5fJ9jubwLkaco8m8S5WnaPZunuOp4j6b5Lnac4SA0PAGlgP4wEwFwGkGcIMCcCpCnCCxiA8NYAAmMJfkSbhFCcFpFnGDBnBqRpUhuEwTDeZ5lHCfw6HIQxLCaAxygyJwqgGcATE4FA6hWY4tjEAAQBAgIA==")
oDCOCX_Exontrol1:BackColorHeader := 0x4c6c6c6
oDCOCX_Exontrol1:SelBackColor := 0x4000000
oDCOCX_Exontrol1:SelForeColor := RGB(0,0,1)
oDCOCX_Exontrol1:[Background,0x14 | ] := oDCOCX_Exontrol1:SelBackColor
oDCOCX_Exontrol1:[Background,0x15 | ] := oDCOCX_Exontrol1:SelForeColor
oDCOCX_Exontrol1:[Background,0x8 | exSplitBar] := oDCOCX_Exontrol1:BackColor
oDCOCX_Exontrol1:[Background,0x9 | exSplitBar] := oDCOCX_Exontrol1:ForeColor
oDCOCX_Exontrol1:[Background,0x20 | ] := -1
oDCOCX_Exontrol1:[Background,0x0 | ] := 0x4000000
oDCOCX_Exontrol1:[Background,exHeaderFilterBarActive] := 0x4010101
oDCOCX_Exontrol1:[Background,0x1 | ] := 0x40000ff
oDCOCX_Exontrol1:HeaderAppearance := Etched
oDCOCX_Exontrol1:BackColorSortBar := oDCOCX_Exontrol1:BackColor
oDCOCX_Exontrol1:BackColorLevelHeader := oDCOCX_Exontrol1:BackColor
oDCOCX_Exontrol1:Mode := exSplitFixCascadeMode
oDCOCX_Exontrol1: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"
oDCOCX_Exontrol1:Select := "US\MN"
oDCOCX_Exontrol1:EndUpdate()

local var_Appearance as IAppearance
local var_Column as IColumn
local var_Columns as IColumns
local var_Items as IItems
local var_View as IView
local h as USUAL

oDCOCX_Exontrol1:BeginUpdate()
var_Appearance := oDCOCX_Exontrol1:VisualAppearance
	var_Appearance:Add(2,"gBFLBCJwBAEHhEJAAEhABX8GACAADACAxSDEMQBQKAAzQFAYbhgHCGAAGQaBUgmFgAQhFcZQSKUOQTDKNYykCIRSDUJYkSZEIyjBI8ExXFqNACkGKwYgmNYiTLAcgANJ0WBaGIZJ4gOT5fDKMoEDRRYADFCscwxJybQAqGQKKb+VgAVY/cTyBIAEQSKA0TDOQ5TSKWB4JPZQRBEbZMNBtBIUJquKaqShdQJCU5FdY3Xblez9P7AMBwLFEC4NQ8YNYuPhjR4dRTIMhvVAsUArFh8Zg9GZZFjmDIDT4ydBLTQwcyVIKnP5qOa6XbmPoCQDYKxZHYxPzVDa3axuL76dqCAT7XrXNy1TbNRrzQKfcJqfCbdw2YaDZLOOT3fjuI4hhKaRzFAHJ+jYQ4xHuY4gHuGIXGeExqC8Tp6C+PoEm+G5ImycRgh0XwvDGa5rgOeoejyXwnFeQp2mkf5ClgBB9gCWIYAwfYAEKV58mkdwOggNArgOXY2EWLoDkKOA0mgbhOGgZApgaSBIHWSYHSmbApgYThmESZYJkIeIkgeCpfliLIHgpMIcmUYYYmODAlg2SI4mWfRfGOEguDcCRjFYAJihCQhJBSDoRmONgKEcI4kFCEJhhOVYTmYnAlEAQhWBMJYJGYWoWmWSR2F6F5lnkWAQhUAgpEieRWEuSYkjWGpmkmNhuhuZwJkYcocmaaYkjyEhngnUA6lEFAlAEgI=")
	var_Appearance:Add(1,"CP:2 -8 -4 2 4")
oDCOCX_Exontrol1:[Background,0x0 | ] := 0x1fefefe
oDCOCX_Exontrol1:[Background,exHeaderFilterBarActive] := 0x1010101
oDCOCX_Exontrol1:[Background,0x20 | ] := -1
oDCOCX_Exontrol1:BackColorHeader := RGB(255,255,255)
oDCOCX_Exontrol1:Mode := exSingleCascadeMode
var_View := oDCOCX_Exontrol1:[DefaultView,nil]
	var_View:HeaderHeight := 28
	var_View:DrawGridLines := exRowLines
	var_View:HeaderVisible := true
	var_Columns := var_View:Columns
		IColumn{var_Columns:Add("C1")}:DisplayFilterButton := true
		var_Column := IColumn{var_Columns:Add("C2")}
			var_Column:DisplayFilterButton := true
			var_Column:Filter := "Item 2"
			var_Column:FilterType := exFilter
		IColumn{var_Columns:Add("C3")}:DisplayFilterButton := true
	var_Items := var_View:Items
		h := var_Items:AddItem("Item 1")
		var_Items:[CellValue,h,1] := "Item 2"
		var_Items:[CellValue,h,2] := "Item 3"
		h := var_Items:AddItem("Item 4")
		var_Items:[CellValue,h,1] := "Item 5"
		var_Items:[CellValue,h,2] := "Item 6"
	var_View:ApplyFilter()
oDCOCX_Exontrol1:EndUpdate()

local var_Column,var_Column1 as IColumn
local var_Items as IItems
local var_View as IView

oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:Mode := exSingleCascadeMode
var_View := oDCOCX_Exontrol1:[DefaultView,nil]
	var_View:ColumnAutoResize := true
	var_View:FilterBarPromptVisible := exFilterBarTop
	var_View:HeaderHeight := 24
	var_View:FilterBarHeight := var_View:HeaderHeight
	var_View:HeaderAppearance := Flat
	var_View:DrawGridLines := exAllLines
	var_View:GridLineStyle := exGridLinesGeometric
	var_Column := IColumn{var_View:Columns:Add("Column")}
		var_Column:DisplayFilterButton := true
		var_Column:FilterType := exPattern
		var_Column:Filter := "B*"
	var_Column1 := IColumn{var_View:Columns:Add("Index")}
		var_Column1:FormatColumn := "1 index ``"
		var_Column1:Position := 0
		var_Column1:Width := 48
		var_Column1:AllowSizing := false
		var_Column1:SortType := SortNumeric
		var_Column1:[Def,exCellHasCheckBox] := 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()
oDCOCX_Exontrol1:EndUpdate()

METHOD OCX_Exontrol1CreateView(View) CLASS MainDialog
	// CreateView event - A view has been created.
	local var_Items as IItems
	local var_View as IView
	local k as USUAL
	var_View := oDCOCX_Exontrol1:View
		k := var_View:ParentView:[Value,nil]
		var_View:BeginUpdate()
		var_View:ColumnAutoResize := true
		var_View:Columns:Add(AsString(k))
		var_Items := var_View:Items
			var_Items:AddItem(oDCOCX_Exontrol1:FormatABC("A + `-> Sub-Item 1`",k,nil,nil))
			var_Items:AddItem(oDCOCX_Exontrol1:FormatABC("A + `-> Sub-Item 2`",k,nil,nil))
			var_Items:AddItem(oDCOCX_Exontrol1:FormatABC("A + `-> Sub-Item 3`",k,nil,nil))
		var_View:EndUpdate()
RETURN NIL

local var_Column as IColumn
local var_Items as IItems
local var_View as IView

oDCOCX_Exontrol1:BeginUpdate()
var_View := oDCOCX_Exontrol1:View
	var_View:BeginUpdate()
	var_View:ColumnAutoResize := true
	var_Column := IColumn{var_View:Columns:Add("Default")}
		var_Column:AllowSort := false
		var_Column:AllowDragging := false
	var_View:Key := 0
	var_Items := var_View:Items
		var_Items:AddItem("Item A")
		var_Items:[SelectItem,var_Items:AddItem("Item B")] := true
		var_Items:AddItem("Item C")
	var_View:EndUpdate()
oDCOCX_Exontrol1:EndUpdate()

METHOD OCX_Exontrol1CreateView(View) CLASS MainDialog
	// CreateView event - A view has been created.
	local var_Items as IItems
	local var_View as IView
	local k as USUAL
	var_View := oDCOCX_Exontrol1:View
		k := var_View:ParentView:[Value,nil]
		var_View:BeginUpdate()
		var_View:ColumnAutoResize := true
		var_View:Columns:Add(AsString(k))
		var_Items := var_View:Items
			var_Items:AddItem(oDCOCX_Exontrol1:FormatABC("A + `-> Sub-Item 1`",k,nil,nil))
			var_Items:AddItem(oDCOCX_Exontrol1:FormatABC("A + `-> Sub-Item 2`",k,nil,nil))
			var_Items:AddItem(oDCOCX_Exontrol1:FormatABC("A + `-> Sub-Item 3`",k,nil,nil))
		var_View:EndUpdate()
RETURN NIL

local var_Items as IItems
local var_View as IView

oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:[Background,0x20 | ] := -1
var_View := oDCOCX_Exontrol1:View
	var_View:BeginUpdate()
	var_View:ColumnAutoResize := true
	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")] := true
		var_Items:AddItem("Item C")
	var_View:EndUpdate()
oDCOCX_Exontrol1:EndUpdate()

local var_Column,var_Column1,var_Column2 as IColumn
local var_Columns as IColumns
local var_Items as IItems
local var_View as IView

oDCOCX_Exontrol1:Mode := exSingleCascadeMode
var_View := oDCOCX_Exontrol1:[DefaultView,nil]
	var_View:BeginUpdate()
	var_View:HeaderSingleLine := false
	var_View:HeaderHeight := 36
	var_View:DrawGridLines := exRowLines
	var_View:ColumnAutoResize := false
	var_View:ScrollBySingleLine := true
	var_Columns := var_View:Columns
		var_Column := IColumn{var_Columns:Add("Single-Line (exCaptionSingleLine)")}
			var_Column:Width := 96
			var_Column:[Def,exCellValueFormat] := 1
			var_Column:[Def,exCellSingleLine] := -1
		var_Column1 := IColumn{var_Columns:Add("Word-Wrap (exCaptionWordWrap)")}
			var_Column1:Width := 96
			var_Column1:[Def,exCellValueFormat] := 1
			var_Column1:[Def,exCellSingleLine] := 0
			var_Column1:FormatColumn := "%0"
		var_Column2 := IColumn{var_Columns:Add("Break-Wrap (exCaptionBreakWrap)")}
			var_Column2:Width := 96
			var_Column2:[Def,exCellValueFormat] := 1
			var_Column2:[Def,exCellSingleLine] := 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()

local var_Items as IItems
local var_View as IView
local h as USUAL

oDCOCX_Exontrol1:Mode := exSingleCascadeMode
var_View := oDCOCX_Exontrol1:[DefaultView,nil]
	var_View:BeginUpdate()
	var_View:HeaderSingleLine := false
	var_View:HeaderHeight := 36
	var_View:DrawGridLines := exRowLines
	var_View:ColumnAutoResize := false
	var_View:ScrollBySingleLine := true
	IColumn{var_View:Columns:Add("Default")}: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] := exHTML
		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] := exCaptionWordWrap
		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] := exHTML
		var_Items:[CellSingleLine,h,0] := exCaptionWordWrap
		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] := exCaptionBreakWrap
		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] := exHTML
		var_Items:[CellSingleLine,h,0] := exCaptionBreakWrap
	var_View:EndUpdate()

local var_Items as IItems
local var_View as IView

oDCOCX_Exontrol1:Mode := exSingleCascadeMode
var_View := oDCOCX_Exontrol1:[DefaultView,nil]
	var_View:BeginUpdate()
	var_View:DrawGridLines := exRowLines
	var_View:ColumnAutoResize := false
	var_View:ScrollBySingleLine := true
	IColumn{var_View:Columns:Add("Default")}: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] := exCaptionBreakWrap
		var_Items:AddItem("This is the first line.\r\nThis is the second line.\r\nThis is the third line.")
	var_View:EndUpdate()

local var_Column as IColumn
local var_Items as IItems
local var_View as IView

oDCOCX_Exontrol1:Mode := exSingleCascadeMode
var_View := oDCOCX_Exontrol1:[DefaultView,nil]
	var_View:BeginUpdate()
	var_View:DrawGridLines := exRowLines
	var_View:ColumnAutoResize := false
	var_View:ScrollBySingleLine := true
	var_Column := IColumn{var_View:Columns:Add("Default")}
		var_Column:Width := 128
		var_Column:[Def,exCellSingleLine] := 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()

local var_Appearance as IAppearance
local var_Columns as IColumns
local var_View as IView

oDCOCX_Exontrol1:BeginUpdate()
var_Appearance := oDCOCX_Exontrol1:VisualAppearance
	var_Appearance:Add(1,"gBFLBCJwBAEHhEJAAEhABZEGACAADACAxRDgMQBQKAAzAJBIYhiG4cYCgMYxXDOCYXABCEYRXBIZQ7BKNIxjSJwFgmEgADKMA4SOKIZhrE4bBhGaQRUgyI43RhHUBzVIUcQvE6TZRHCQYHgkNIhDJIM7TPLkeSVJaTIRoKhJUogApQThTMgVRDEThkGoSa6soSoYTDBKybLrSLKagOT5YUDKUqSdKEZRpEq1YztWbaQoCUoqVRRVIWfbNd4JJa4aDhWpYdpeeY5R7bWLgBYVVABL7LLRsSxpHxPF6RXxaeI3GKsaS8G6ic6nPQMHj7I4NS5pUa6Rh2VYNSa8AAtETRYznOw4bTMXAjNIea5bAYIIR5HIoDzVbQcCQAHL9DBeEMIQEEISgGhMGZQmocgymoYRRCIEQ0G2HYBnEIBig4V4zCQGINnmagCECY43medZ6H2Pw/g+X5fnueh/h+R5+AKABfkMWgGgGYA4AICoCGCE5WA4CphACMgSD2IRIDIBICmEd5YGCBpRjGBgegWIYIgWdgoGIRQsiKCZiAiJZ0gGQI4jUS4LECOAiBmDJflGfg2BSY4Al4OhGkOCJ2DgFJjGGfgqgiH5Ch4RhGkqOQmEOEpkFkHQYhJRYyESAokGKHhIhKIxJEmf4VGUeRGFmF5iBkchPhYJQ5GoYIZg6Ug6GoFYmkmNhuhulRGHKGoImefh0BUZ4JmYeoemeSZ2H6HQmgoBgXDqXwUAQgI=")
	var_Appearance:Add(2,"CP:1 0 -36 0 0")
oDCOCX_Exontrol1:[Background,exColumnsPositionSign] := 0x2000000
oDCOCX_Exontrol1:Mode := exSingleCascadeMode
var_View := oDCOCX_Exontrol1:[DefaultView,nil]
	var_View:BeginUpdate()
	var_View:HeaderAppearance := Etched
	var_Columns := var_View:Columns
		var_Columns:Add("Column 1")
		var_Columns:Add("Column 2")
		var_Columns:Add("Column 3")
	var_View:EndUpdate()
oDCOCX_Exontrol1:EndUpdate()

METHOD OCX_Exontrol1CreateView(View) CLASS MainDialog
	// CreateView event - A view has been created.
	local var_View as IView
	local bColumnAutoResize,bSingle as USUAL
	bSingle := oDCOCX_Exontrol1:FormatABC("value > 0 ?  0 : -1",oDCOCX_Exontrol1:View:Index,nil,nil)
	bColumnAutoResize := oDCOCX_Exontrol1:FormatABC("value = `City` ?  0 : -1",oDCOCX_Exontrol1:View:Tag,nil,nil)
	var_View := oDCOCX_Exontrol1:View
		var_View:ColumnAutoResize := false
		var_View:SingleSel := false
RETURN NIL

METHOD OCX_Exontrol1Error(Error,Description) CLASS MainDialog
	// Error event - An internal error occurs.
	OutputDebugString(String2Psz( "Error" ))
	OutputDebugString(String2Psz( AsString(Description) ))
RETURN NIL


oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:Mode := exAutoFitOnResizeClient | exSplitFixCascadeMode
oDCOCX_Exontrol1: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"
oDCOCX_Exontrol1:Select := "US\AK"
oDCOCX_Exontrol1:EndUpdate()

METHOD OCX_Exontrol1Error(Error,Description) CLASS MainDialog
	// Error event - An internal error occurs.
	OutputDebugString(String2Psz( "Error" ))
	OutputDebugString(String2Psz( AsString(Description) ))
RETURN NIL

local var_View as IView
local ado as _Recordset

oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:StatusBarVisible := exStatusBarAnchorTop
oDCOCX_Exontrol1:StatusBarLabel := "<b>DataSource</b> could be string (Source/Member), ADO or DAO objects"
oDCOCX_Exontrol1:DefColumnWidth := 336
// Generate Source for 'Microsoft ActiveX Data Objects 6.1 Library(msado15.dll)' server from Tools\Automation Server...
ado := _Recordset{"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 := oDCOCX_Exontrol1:[DefaultView,nil]
	var_View:DataSource := _Recordset{ado}
	var_View:ColumnAutoResize := true
oDCOCX_Exontrol1:EndUpdate()

METHOD OCX_Exontrol1CreateView(View) CLASS MainDialog
	// CreateView event - A view has been created.
	local var_View as IView
	local bColumnAutoResize,bSingle as USUAL
	bSingle := oDCOCX_Exontrol1:FormatABC("value > 0 ?  0 : -1",oDCOCX_Exontrol1:View:Index,nil,nil)
	bColumnAutoResize := oDCOCX_Exontrol1:FormatABC("value = `City` ?  0 : -1",oDCOCX_Exontrol1:View:Tag,nil,nil)
	var_View := oDCOCX_Exontrol1:View
		var_View:ColumnAutoResize := false
		var_View:SingleSel := false
RETURN NIL

METHOD OCX_Exontrol1Error(Error,Description) CLASS MainDialog
	// Error event - An internal error occurs.
	OutputDebugString(String2Psz( "Error" ))
	OutputDebugString(String2Psz( AsString(Description) ))
RETURN NIL


oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:Mode := exAutoFitOnResizeClient | exSplitFixCascadeMode
oDCOCX_Exontrol1: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"
oDCOCX_Exontrol1:EndUpdate()

METHOD OCX_Exontrol1CreateView(View) CLASS MainDialog
	// CreateView event - A view has been created.
	local var_Column,var_Column1,var_Column2,var_Column3,var_Column4,var_Column5 as IColumn
	local var_View,var_View1,var_View2,var_View3,var_View4,var_View5 as IView
	var_View := oDCOCX_Exontrol1:View
		var_View:HeaderHeight := 20
		var_View:HeaderAppearance := Etched
		var_View:DrawGridLines := exAllLines
		var_View:GridLineStyle := exGridLinesDash
	var_View1 := oDCOCX_Exontrol1:[DefaultView,nil]
		var_View2 := var_View1:[View,"Country"]
			var_View2:BeginUpdate()
			var_View2:ColumnAutoResize := true
			var_View2:Columns:[Item,0]:Visible := false
			var_Column := var_View2:Columns:[Item,1]
				var_Column:HTMLCaption := "Country"
				var_Column:DisplayFilterButton := true
				var_Column:FilterList := exShowExclude | exShowFocusItem | exShowCheckBox | exSortItemsAsc
				var_Column:FilterBarDropDownWidth := 2
			var_View2:EndUpdate()
		var_View3 := var_View1:[View,"State"]
			var_View3:BeginUpdate()
			var_View3:ColumnAutoResize := true
			var_View3:Columns:[Item,0]:Visible := false
			var_View3:Columns:[Item,1]:Visible := false
			var_Column1 := var_View3:Columns:[Item,2]
				var_Column1:HTMLCaption := "State"
				var_Column1:DisplayFilterButton := true
				var_Column1:FilterList := 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 := false
			var_View4:Columns:[Item,"StateCode"]:Visible := false
			var_Column2 := var_View4:Columns:[Item,"Name"]
				var_Column2:HTMLCaption := "City"
				var_Column2:Width := 128
				var_Column2:DisplayFilterButton := true
				var_Column2:FilterList := 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 := true
				var_Column3:FilterList := exShowExclude | exShowFocusItem | exShowCheckBox | exSortItemsAsc
				var_Column3:FilterBarDropDownWidth := 2
			var_Column4 := var_View4:Columns:[Item,"Function"]
				var_Column4:[Def,exCellValueFormat] := 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 := IColumn{var_View4:Columns:Add("Pos")}
				var_Column5:AllowSizing := false
				var_Column5:Width := 32
				var_Column5:[Def,exCellBackColor] := 15790320
				var_Column5:Position := 0
				var_Column5:FormatColumn := "1 pos ``"
				var_Column5:Alignment := CenterAlignment
				var_Column5:HeaderAlignment := var_Column5:Alignment
			var_View4:CountLockedColumns := 1
			var_View4:Width := var_View4:WidthToFit
			var_View4:EndUpdate()
	var_View5 := oDCOCX_Exontrol1: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 := exFilterBarShowCloseIfRequired | exFilterBarVisible | exFilterBarPromptVisible
RETURN NIL

METHOD OCX_Exontrol1Error(Error,Description) CLASS MainDialog
	// Error event - An internal error occurs.
	OutputDebugString(String2Psz( "Error" ))
	OutputDebugString(String2Psz( AsString(Description) ))
RETURN NIL

local var_Appearance as IAppearance
local var_View as IView

oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:Images("C:\Program Files\Exontrol\ExCascadeTree\Sample\Bullets\Bullet-01.ico")
oDCOCX_Exontrol1:Images("C:\Program Files\Exontrol\ExCascadeTree\Sample\Bullets\Bullet-02.ico")
oDCOCX_Exontrol1:Images("C:\Program Files\Exontrol\ExCascadeTree\Sample\Bullets\Bullet-03.ico")
oDCOCX_Exontrol1:Images("C:\Program Files\Exontrol\ExCascadeTree\Sample\Bullets\Bullet-04.ico")
oDCOCX_Exontrol1:Images("C:\Program Files\Exontrol\ExCascadeTree\Sample\Bullets\Bullet-05.ico")
oDCOCX_Exontrol1:Images("C:\Program Files\Exontrol\ExCascadeTree\Sample\Bullets\Bullet-06.ico")
oDCOCX_Exontrol1:Images("C:\Program Files\Exontrol\ExCascadeTree\Sample\Bullets\Bullet-07.ico")
oDCOCX_Exontrol1:Images("C:\Program Files\Exontrol\ExCascadeTree\Sample\Bullets\Bullet-08.ico")
oDCOCX_Exontrol1:Images("C:\Program Files\Exontrol\ExCascadeTree\Sample\Bullets\Bullet-09.ico")
oDCOCX_Exontrol1: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"
oDCOCX_Exontrol1:Select := "RO\CJ"
var_View := oDCOCX_Exontrol1:[DefaultView,nil]:[View,"City"]
	var_View:FilterBarPromptPattern := "Tu"
var_Appearance := oDCOCX_Exontrol1: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")
oDCOCX_Exontrol1:BackColorSortBar := oDCOCX_Exontrol1:BackColor
oDCOCX_Exontrol1:[ScrollPartVisible,exVScroll,exExtentThumbPart] := true
oDCOCX_Exontrol1:[ScrollPartVisible,exHScroll,exExtentThumbPart] := true
oDCOCX_Exontrol1:[ScrollPartVisible,exScroll,exExtentThumbPart] := true
oDCOCX_Exontrol1:ScrollWidth := 4
oDCOCX_Exontrol1:[Background,exVSBack] := RGB(240,240,240)
oDCOCX_Exontrol1:[Background,exVSThumb] := RGB(128,128,128)
oDCOCX_Exontrol1:ScrollHeight := 4
oDCOCX_Exontrol1:[Background,exHSBack] := oDCOCX_Exontrol1:[Background,exVSBack]
oDCOCX_Exontrol1:[Background,exHSThumb] := oDCOCX_Exontrol1:[Background,exVSThumb]
oDCOCX_Exontrol1:[Background,exScrollSizeGrip] := oDCOCX_Exontrol1:[Background,exVSBack]
oDCOCX_Exontrol1:[Background,exSplitBar] := RGB(196,196,196)
oDCOCX_Exontrol1:[Background,exCSplitBar] := oDCOCX_Exontrol1:[Background,exSplitBar]
oDCOCX_Exontrol1:[Background,exHSplitBar] := oDCOCX_Exontrol1:[Background,exSplitBar]
oDCOCX_Exontrol1:[Background,exSplitBarSize] := RGB(4,0,0)
oDCOCX_Exontrol1:[Background,0x0 | ] := 0x1000000
oDCOCX_Exontrol1:[Background,0x1 | ] := 0x2000000
oDCOCX_Exontrol1:[Background,0x20 | ] := -1
oDCOCX_Exontrol1:EndUpdate()

METHOD OCX_Exontrol1CreateView(View) CLASS MainDialog
	// CreateView event - A view has been created.
	local var_Column,var_Column1,var_Column2 as IColumn
	local var_View,var_View1,var_View2 as IView
	local bGroupBy,nSelected as USUAL
	oDCOCX_Exontrol1:View:HeaderHeight := 24
	var_View := oDCOCX_Exontrol1:[DefaultView,nil]
		var_View1 := var_View:[View,"State"]
			var_View1:BeginUpdate()
			var_View1:SingleSel := false
			var_View1:ColumnAutoResize := true
			var_View1:Columns:[Item,0]:Visible := false
			var_View1:Columns:[Item,1]:Visible := false
			var_Column := var_View1:Columns:[Item,2]
				var_Column:HTMLCaption := "State <off 4><fgcolor=808080>Name"
				var_Column:SortOrder := SortAscending
			var_View1:EndUpdate()
		var_View2 := var_View:[View,"City"]
			nSelected := var_View2:ParentView:Items:SelectCount
			bGroupBy := oDCOCX_Exontrol1:FormatABC("value > 1 ? -1 : 0",nSelected,nil,nil)
			var_View2:BeginUpdate()
			var_View2:SingleSel := false
			var_View2:SortBarCaption := "Drag a <b>column</b> header here to group by that column."
			var_View2:HasLines := exSolidLine
			var_View2:ColumnAutoResize := false
			var_View2:DrawGridLines := exVLines
			var_View2:GridLineStyle := exGridLinesVSolid
			var_View2:Columns:[Item,"CountryCode"]:Visible := false
			var_Column1 := var_View2:Columns:[Item,"Name"]
				var_Column1:HTMLCaption := "City <off 4><fgcolor=808080>Name"
				var_Column1:Width := 128
				var_Column1:SortOrder := SortAscending
			var_View2:SearchColumnIndex := 2
			var_View2:TreeColumnIndex := var_View2:SearchColumnIndex
			var_View2:SingleSort := false
			var_View2:AllowGroupBy := false
			var_View2:SortBarVisible := false
			var_Column2 := var_View2:Columns:[Item,"StateCode"]
				var_Column2:Visible := false
				var_Column2:SortOrder := SortAscending
			var_View2:Width := var_View2:WidthToFit
			var_View2:EndUpdate()
RETURN NIL

METHOD OCX_Exontrol1Error(Error,Description) CLASS MainDialog
	// Error event - An internal error occurs.
	OutputDebugString(String2Psz( "Error" ))
	OutputDebugString(String2Psz( AsString(Description) ))
RETURN NIL

local var_Appearance as IAppearance
local var_Column as IColumn
local var_View as IView

oDCOCX_Exontrol1:BeginUpdate()
var_Appearance := oDCOCX_Exontrol1: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")
oDCOCX_Exontrol1: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"
oDCOCX_Exontrol1:Select := "RO\CJ|BV|GL|IL"
var_View := oDCOCX_Exontrol1:[DefaultView,nil]:[View,"Country"]
	var_View:BeginUpdate()
	var_View:ColumnAutoResize := true
	var_View:Columns:[Item,0]:Visible := false
	var_Column := var_View:Columns:[Item,1]
		var_Column:HTMLCaption := "Country <off 4><fgcolor=808080>Name"
		var_Column:SortOrder := SortAscending
	var_View:EndUpdate()
oDCOCX_Exontrol1:SelBackColor := 0x1000000
oDCOCX_Exontrol1:SelForeColor := RGB(255,255,255)
oDCOCX_Exontrol1:BackColorHeader := 0x2000000
oDCOCX_Exontrol1:BackColorSortBar := oDCOCX_Exontrol1:BackColor
oDCOCX_Exontrol1:BackColorSortBarCaption := oDCOCX_Exontrol1:BackColor
oDCOCX_Exontrol1:[ScrollPartVisible,exVScroll,exExtentThumbPart] := true
oDCOCX_Exontrol1:[ScrollPartVisible,exHScroll,exExtentThumbPart] := true
oDCOCX_Exontrol1:[ScrollPartVisible,exScroll,exExtentThumbPart] := true
oDCOCX_Exontrol1:ScrollWidth := 4
oDCOCX_Exontrol1:[Background,exVSBack] := RGB(240,240,240)
oDCOCX_Exontrol1:[Background,exVSThumb] := RGB(128,128,128)
oDCOCX_Exontrol1:ScrollHeight := 4
oDCOCX_Exontrol1:[Background,exHSBack] := oDCOCX_Exontrol1:[Background,exVSBack]
oDCOCX_Exontrol1:[Background,exHSThumb] := oDCOCX_Exontrol1:[Background,exVSThumb]
oDCOCX_Exontrol1:[Background,exScrollSizeGrip] := oDCOCX_Exontrol1:[Background,exVSBack]
oDCOCX_Exontrol1:[Background,exSplitBar] := RGB(196,196,196)
oDCOCX_Exontrol1:[Background,exCSplitBar] := oDCOCX_Exontrol1:[Background,exSplitBar]
oDCOCX_Exontrol1:[Background,exHSplitBar] := oDCOCX_Exontrol1:[Background,exSplitBar]
oDCOCX_Exontrol1:[Background,exSplitBarSize] := RGB(4,0,0)
oDCOCX_Exontrol1:BackColorSortBar := oDCOCX_Exontrol1:BackColor
oDCOCX_Exontrol1:EndUpdate()

METHOD OCX_Exontrol1CreateView(V) CLASS MainDialog
	// CreateView event - A view has been created.
	local var_Items as IItems
	local var_View as IView
	local k as USUAL
	var_View := oDCOCX_Exontrol1:View
		var_View:BeginUpdate()
		k := var_View:ParentView:[Value,nil]
		var_View:HeaderVisible := false
		var_View:ColumnAutoResize := true
		var_View:ScrollBySingleLine := true
		IColumn{var_View:Columns:Add("Default")}:[Def,exCellSingleLine] := false
		var_View:Key := 0
		var_Items := var_View:Items
			var_Items:AddItem(oDCOCX_Exontrol1:FormatABC("A + `.Child 1`",k,nil,nil))
			var_Items:AddItem(oDCOCX_Exontrol1:FormatABC("A + `.Child 2`",k,nil,nil))
			var_Items:AddItem(oDCOCX_Exontrol1:FormatABC("A + `.Child 3`",k,nil,nil))
		var_View:EndUpdate()
RETURN NIL

local var_Items as IItems
local var_View as IView

oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:BackColorAlternate := 0x7ff0f0f0
oDCOCX_Exontrol1:[Background,exSplitBar] := RGB(240,240,240)
var_View := oDCOCX_Exontrol1:[DefaultView,nil]
	var_View:BeginUpdate()
	var_View:HeaderVisible := false
	var_View:ColumnAutoResize := true
	var_View:ScrollBySingleLine := true
	IColumn{var_View:Columns:Add("Default")}:[Def,exCellSingleLine] := 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()
oDCOCX_Exontrol1:Select := "Item A\Item*A*2\Item*A*2*3\"
oDCOCX_Exontrol1:EndUpdate()

METHOD OCX_Exontrol1CreateView(View) CLASS MainDialog
	// CreateView event - A view has been created.
	local var_Column,var_Column1 as IColumn
	local var_Items,var_Items1 as IItems
	local var_View,var_View1,var_View2 as IView
	local h as USUAL
	oDCOCX_Exontrol1:View:HeaderHeight := 24
	var_View := oDCOCX_Exontrol1:[DefaultView,nil]
		var_View1 := var_View:[View,"State"]
			var_View1:BeginUpdate()
			var_View1:ColumnAutoResize := true
			var_View1:Columns:[Item,0]:Visible := false
			var_View1:Columns:[Item,1]:Visible := false
			var_Column := var_View1:Columns:[Item,2]
				var_Column:HTMLCaption := "State <off 4><fgcolor=808080>Name"
				var_Column:SortOrder := SortAscending
			var_Items := var_View1:Items
				var_Items:[LockedItemCount,exTop] := 1
				h := var_Items:[LockedItem,exTop,0]
				var_Items:[ItemDivider,h] := 0
				var_Items:[CellValueFormat,h,0] := exTotalField | exHTML
				var_Items:[CellValue,h,0] := "count(all,all,1)"
				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 := false
			var_View2:ColumnAutoResize := false
			var_View2:DrawGridLines := exVLines
			var_View2:GridLineStyle := exGridLinesVSolid
			var_View2:Columns:[Item,0]:Visible := false
			var_View2:Columns:[Item,1]:Visible := false
			var_Column1 := var_View2:Columns:[Item,2]
				var_Column1:HTMLCaption := "City <off 4><fgcolor=808080>Name"
				var_Column1:Width := 128
				var_Column1:[Def,exCellHasCheckBox] := true
				var_Column1:SortOrder := SortAscending
			var_View2:SearchColumnIndex := 2
			var_View2:ConditionalFormats:Add("%CS2 = 1",nil):Bold := true
			var_Items1 := var_View2:Items
				var_Items1:[LockedItemCount,exTop] := 1
				h := var_Items1:[LockedItem,exTop,0]
				var_Items1:[ItemDivider,h] := 0
				var_Items1:[CellValueFormat,h,0] := exTotalField | exHTML
				var_Items1:[CellValue,h,0] := "count(all,all,1)"
				var_Items1:[FormatCell,h,0] := "`<r>Cities: <b>`+ (value format `0`)"
			var_View2:Width := var_View2:WidthToFit
			var_View2:EndUpdate()
RETURN NIL

METHOD OCX_Exontrol1Error(Error,Description) CLASS MainDialog
	// Error event - An internal error occurs.
	OutputDebugString(String2Psz( "Error" ))
	OutputDebugString(String2Psz( AsString(Description) ))
RETURN NIL

local var_Appearance as IAppearance
local var_Column as IColumn
local var_Items as IItems
local var_View as IView
local h as USUAL

oDCOCX_Exontrol1:BeginUpdate()
var_Appearance := oDCOCX_Exontrol1: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")
oDCOCX_Exontrol1: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"
oDCOCX_Exontrol1:Select := "US\AK"
var_View := oDCOCX_Exontrol1:[DefaultView,nil]:[View,"Country"]
	var_View:BeginUpdate()
	var_View:ColumnAutoResize := true
	var_View:Columns:[Item,0]:Visible := false
	var_Column := var_View:Columns:[Item,1]
		var_Column:HTMLCaption := "Country <off 4><fgcolor=808080>Name"
		var_Column:SortOrder := SortAscending
	var_Items := var_View:Items
		var_Items:[LockedItemCount,exTop] := 1
		h := var_Items:[LockedItem,exTop,0]
		var_Items:[ItemDivider,h] := 0
		var_Items:[CellValueFormat,h,0] := exTotalField | exHTML
		var_Items:[CellValue,h,0] := "count(all,all,1)"
		var_Items:[FormatCell,h,0] := "`<r>Countries: <b>`+ (value format `0`)"
	var_View:EndUpdate()
oDCOCX_Exontrol1:SelBackColor := 0x1000000
oDCOCX_Exontrol1:SelForeColor := RGB(0,0,0)
oDCOCX_Exontrol1:BackColorHeader := 0x2000000
oDCOCX_Exontrol1:[ScrollPartVisible,exVScroll,exExtentThumbPart] := true
oDCOCX_Exontrol1:[ScrollPartVisible,exHScroll,exExtentThumbPart] := true
oDCOCX_Exontrol1:[ScrollPartVisible,exScroll,exExtentThumbPart] := true
oDCOCX_Exontrol1:ScrollWidth := 4
oDCOCX_Exontrol1:[Background,exVSBack] := RGB(240,240,240)
oDCOCX_Exontrol1:[Background,exVSThumb] := RGB(128,128,128)
oDCOCX_Exontrol1:ScrollHeight := 4
oDCOCX_Exontrol1:[Background,exHSBack] := oDCOCX_Exontrol1:[Background,exVSBack]
oDCOCX_Exontrol1:[Background,exHSThumb] := oDCOCX_Exontrol1:[Background,exVSThumb]
oDCOCX_Exontrol1:[Background,exScrollSizeGrip] := oDCOCX_Exontrol1:[Background,exVSBack]
oDCOCX_Exontrol1:[Background,exSplitBar] := RGB(196,196,196)
oDCOCX_Exontrol1:[Background,exCSplitBar] := oDCOCX_Exontrol1:[Background,exSplitBar]
oDCOCX_Exontrol1:[Background,exHSplitBar] := oDCOCX_Exontrol1:[Background,exSplitBar]
oDCOCX_Exontrol1:[Background,exSplitBarSize] := RGB(4,0,0)
oDCOCX_Exontrol1:BackColorSortBar := oDCOCX_Exontrol1:BackColor
oDCOCX_Exontrol1:EndUpdate()

METHOD OCX_Exontrol1CreateView(View) CLASS MainDialog
	// CreateView event - A view has been created.
	local var_Items as IItems
	local var_View as IView
	local k as USUAL
	var_View := oDCOCX_Exontrol1:View
		k := var_View:ParentView:[Value,nil]
		var_View:BeginUpdate()
		var_View:ColumnAutoResize := true
		var_View:Key := -1
		var_View:Columns:Add(AsString(k))
		var_Items := var_View:Items
			var_Items:AddItem(oDCOCX_Exontrol1:FormatABC("A + `-> Sub-Item 1`",k,nil,nil))
			var_Items:AddItem(oDCOCX_Exontrol1:FormatABC("A + `-> Sub-Item 2`",k,nil,nil))
			var_Items:AddItem(oDCOCX_Exontrol1:FormatABC("A + `-> Sub-Item 3`",k,nil,nil))
		var_View:EndUpdate()
RETURN NIL

METHOD OCX_Exontrol1ViewItemStateEndChanging(Operation,Item,ColIndex) CLASS MainDialog
	// ViewItemStateEndChanging event - Indicates that the state of the item has been changed.
	local var_Items as IItems
	OutputDebugString(String2Psz( "End" ))
	OutputDebugString(String2Psz( AsString(Operation) ))
	var_Items := oDCOCX_Exontrol1:View:Items
		OutputDebugString(String2Psz( "FocusItem" ))
		OutputDebugString(String2Psz( var_Items:[CellCaption,var_Items:FocusItem,0] ))
		OutputDebugString(String2Psz( "SelectedItem" ))
		OutputDebugString(String2Psz( var_Items:[CellCaption,var_Items:[SelectedItem,0],0] ))
RETURN NIL

METHOD OCX_Exontrol1ViewItemStateStartChanging(Operation,Item,ColIndex,Cancel) CLASS MainDialog
	// ViewItemStateStartChanging event - Indicates that the state of the item is about to be changed.
	OutputDebugString(String2Psz( "Start" ))
	OutputDebugString(String2Psz( AsString(Operation) ))
RETURN NIL

local var_Items as IItems
local var_View as IView

oDCOCX_Exontrol1:BeginUpdate()
var_View := oDCOCX_Exontrol1:View
	var_View:BeginUpdate()
	var_View:ColumnAutoResize := true
	var_View:Columns:Add("Default")
	var_View:Key := 0
	var_View:LinesAtRoot := exLinesAtRoot
	var_Items := var_View:Items
		var_Items:AddItem("Item A")
		var_Items:[SelectItem,var_Items:AddItem("Item B")] := true
		var_Items:AddItem("Item C")
	var_View:EndUpdate()
oDCOCX_Exontrol1:EndUpdate()

METHOD OCX_Exontrol1Error(Error,Description) CLASS MainDialog
	// Error event - An internal error occurs.
	OutputDebugString(String2Psz( "Error" ))
	OutputDebugString(String2Psz( AsString(Description) ))
RETURN NIL


oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:Mode := exSplitFixCascadeMode
oDCOCX_Exontrol1:[Background,exSplitBar] := RGB(196,196,196)
oDCOCX_Exontrol1: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"
oDCOCX_Exontrol1:Select := "US\AK"
oDCOCX_Exontrol1:[DefaultView,nil]:ConditionalFormats:Add("1",nil):ForeColor := RGB(128,128,128)
oDCOCX_Exontrol1:EndUpdate()

METHOD OCX_Exontrol1CreateView(View) CLASS MainDialog
	// CreateView event - A view has been created.
	local var_Column,var_Column1,var_Column2,var_Column3 as IColumn
	local var_View,var_View1,var_View2,var_View3,var_View4,var_View5 as IView
	var_View := oDCOCX_Exontrol1:View
		var_View:HeaderAppearance := Etched
		var_View:HeaderHeight := 24
		var_View:DrawGridLines := exAllLines
		var_View:GridLineStyle := exGridLinesDash
	var_View1 := oDCOCX_Exontrol1:[DefaultView,nil]
		var_View2 := var_View1:[View,"Country"]
			var_View2:BeginUpdate()
			var_View2:ColumnAutoResize := true
			var_View2:Columns:[Item,0]:Visible := false
			var_Column := var_View2:Columns:[Item,1]
				var_Column:HTMLCaption := "Country <off 4><fgcolor=808080>Name"
				var_Column:DisplayFilterButton := true
				var_Column:FilterList := exShowExclude | exShowFocusItem | exShowCheckBox | exSortItemsAsc
				var_Column:FilterBarDropDownWidth := 2
			var_View2:EndUpdate()
		var_View3 := var_View1:[View,"State"]
			var_View3:BeginUpdate()
			var_View3:ColumnAutoResize := true
			var_View3:Columns:[Item,0]:Visible := false
			var_View3:Columns:[Item,1]:Visible := false
			var_Column1 := var_View3:Columns:[Item,2]
				var_Column1:HTMLCaption := "State <off 4><fgcolor=808080>Name"
				var_Column1:DisplayFilterButton := true
				var_Column1:FilterList := 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 := false
			var_View4:Columns:[Item,1]:Visible := false
			var_Column2 := var_View4:Columns:[Item,2]
				var_Column2:HTMLCaption := "City <off 4><fgcolor=808080>Name"
				var_Column2:Width := 128
				var_Column2:[Def,exCellHasCheckBox] := true
				var_Column2:DisplayFilterButton := true
				var_Column2:FilterList := exShowExclude | exShowFocusItem | exShowCheckBox | exSortItemsAsc
				var_Column2:FilterBarDropDownWidth := 2
			var_Column3 := IColumn{var_View4:Columns:Add("Pos")}
				var_Column3:AllowSizing := false
				var_Column3:Width := 32
				var_Column3:[Def,exCellBackColor] := 15790320
				var_Column3:Position := 0
				var_Column3:FormatColumn := "1 pos ``"
			var_View4:CountLockedColumns := 1
			var_View4:EndUpdate()
	var_View5 := oDCOCX_Exontrol1: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 := exFilterPromptStartWith
		var_View5:FilterBarPromptVisible := exFilterBarShowCloseIfRequired | exFilterBarVisible | exFilterBarPromptVisible
RETURN NIL

METHOD OCX_Exontrol1Error(Error,Description) CLASS MainDialog
	// Error event - An internal error occurs.
	OutputDebugString(String2Psz( "Error" ))
	OutputDebugString(String2Psz( AsString(Description) ))
RETURN NIL

local var_View as IView

oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:[ScrollPartVisible,exVScroll,exExtentThumbPart] := true
oDCOCX_Exontrol1:[ScrollPartVisible,exHScroll,exExtentThumbPart] := true
oDCOCX_Exontrol1:[ScrollPartVisible,exScroll,exExtentThumbPart] := true
oDCOCX_Exontrol1:ScrollWidth := 4
oDCOCX_Exontrol1:[Background,exVSBack] := RGB(240,240,240)
oDCOCX_Exontrol1:[Background,exVSThumb] := RGB(128,128,128)
oDCOCX_Exontrol1:ScrollHeight := 4
oDCOCX_Exontrol1:[Background,exHSBack] := oDCOCX_Exontrol1:[Background,exVSBack]
oDCOCX_Exontrol1:[Background,exHSThumb] := oDCOCX_Exontrol1:[Background,exVSThumb]
oDCOCX_Exontrol1:[Background,exScrollSizeGrip] := oDCOCX_Exontrol1:[Background,exVSBack]
oDCOCX_Exontrol1:[Background,exSplitBar] := RGB(196,196,196)
oDCOCX_Exontrol1:[Background,exCSplitBar] := oDCOCX_Exontrol1:[Background,exSplitBar]
oDCOCX_Exontrol1:[Background,exHSplitBar] := oDCOCX_Exontrol1:[Background,exSplitBar]
oDCOCX_Exontrol1:[Background,exSplitBarSize] := RGB(2,0,0)
oDCOCX_Exontrol1:EndUpdate()
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:MinColumnWidth := 348
oDCOCX_Exontrol1:Mode := exSplitFixCascadeMode
oDCOCX_Exontrol1:[Background,exSplitBar] := RGB(196,196,196)
oDCOCX_Exontrol1: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"
oDCOCX_Exontrol1:Select := "US\AK"
var_View := oDCOCX_Exontrol1:[DefaultView,nil]:[View,"City"]
	var_View:FilterBarPromptPattern := "An"
oDCOCX_Exontrol1:EndUpdate()

METHOD OCX_Exontrol1CreateView(View) CLASS MainDialog
	// CreateView event - A view has been created.
	local var_View as IView
	var_View := oDCOCX_Exontrol1:View
		var_View:FilterBarPromptType := exFilterPromptStartWith
		var_View:FilterBarPromptVisible := exFilterBarPromptVisible
RETURN NIL

METHOD OCX_Exontrol1Error(Error,Description) CLASS MainDialog
	// Error event - An internal error occurs.
	OutputDebugString(String2Psz( "Error" ))
	OutputDebugString(String2Psz( AsString(Description) ))
RETURN NIL

local var_Column as IColumn
local var_View as IView

oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:Mode := exSplitFixCascadeMode
oDCOCX_Exontrol1:[Background,exSplitBar] := RGB(196,196,196)
oDCOCX_Exontrol1: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"
oDCOCX_Exontrol1:Select := "US\AK"
var_View := oDCOCX_Exontrol1:[DefaultView,nil]:[View,"City"]
	var_View:FilterBarPromptPattern := "An"
	var_Column := var_View:Columns:[Item,"Name"]
		var_Column:Width := 128
		var_Column:[Def,exCellValueFormat] := 1
		var_Column:FormatColumn := "value replace `An` with `<bgcolor=000000><fgcolor=FFFFFF>An</fgcolor></bgcolor>` "
oDCOCX_Exontrol1:EndUpdate()

METHOD OCX_Exontrol1Error(Error,Description) CLASS MainDialog
	// Error event - An internal error occurs.
	OutputDebugString(String2Psz( "Error" ))
	OutputDebugString(String2Psz( AsString(Description) ))
RETURN NIL

local var_Column,var_Column1,var_Column2 as IColumn
local var_View as IView

oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:BackColorAlternate := RGB(240,240,240)
oDCOCX_Exontrol1:Mode := exSingleCascadeMode
oDCOCX_Exontrol1:[Background,exSplitBar] := RGB(196,196,196)
oDCOCX_Exontrol1: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"
oDCOCX_Exontrol1:Select := "US"
var_View := oDCOCX_Exontrol1:[DefaultView,nil]:[View,"Country"]
	var_Column := IColumn{var_View:Columns:Add("Pos")}
		var_Column:Position := 0
		var_Column:Width := 32
		var_Column:AllowSizing := false
		var_Column:FormatColumn := "1pos ``"
	var_Column1 := var_View:Columns:[Item,"CountryCode"]
		var_Column1:Width := 32
		var_Column1:AllowSizing := false
		var_Column1:DisplayFilterButton := true
	var_Column2 := var_View:Columns:[Item,"CountryName"]
		var_Column2:DisplayFilterButton := true
		var_Column2:FilterList := exShowExclude | exShowFocusItem | exShowCheckBox | exSortItemsAsc
		var_Column2:FilterBarDropDownWidth := 2
		var_Column2:FilterType := exFilter
		var_Column2:Filter := "Italy|Romania|Germany"
	var_View:FilterBarPromptPattern := "a"
	var_View:ColumnAutoResize := true
	var_View:SearchColumnIndex := var_View:Columns:[Item,"CountryName"]:Index
	var_View:FilterInclude := exItemsWithChilds
	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 := exFilterBarCaptionVisible | exFilterBarVisible | exFilterBarPromptVisible
	var_View:ApplyFilter()
oDCOCX_Exontrol1:EndUpdate()

METHOD OCX_Exontrol1CreateView(View) CLASS MainDialog
	// CreateView event - A view has been created.
	oDCOCX_Exontrol1:View:FilterBarPromptVisible := exFilterBarPromptVisible
RETURN NIL

METHOD OCX_Exontrol1Error(Error,Description) CLASS MainDialog
	// Error event - An internal error occurs.
	OutputDebugString(String2Psz( "Error" ))
	OutputDebugString(String2Psz( AsString(Description) ))
RETURN NIL

local var_Column as IColumn
local var_View as IView

oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:Mode := exSplitFixCascadeMode
oDCOCX_Exontrol1:[Background,exSplitBar] := RGB(196,196,196)
oDCOCX_Exontrol1: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"
oDCOCX_Exontrol1:Select := "US\AK"
var_View := oDCOCX_Exontrol1:[DefaultView,nil]:[View,"Country"]
	var_View:ColumnAutoResize := true
	var_View:Columns:[Item,"CountryCode"]:Visible := false
	var_Column := var_View:Columns:[Item,"CountryName"]
		var_Column:DisplayFilterButton := true
		var_Column:FilterList := exShowExclude | exShowFocusItem | exShowCheckBox | exSortItemsAsc
		var_Column:FilterBarDropDownWidth := 2
		var_Column:FilterType := exFilter
		var_Column:Filter := "Romania|Germany"
	var_View:ApplyFilter()
oDCOCX_Exontrol1:EndUpdate()

METHOD OCX_Exontrol1CreateView(View) CLASS MainDialog
	// CreateView event - A view has been created.
	local var_Column,var_Column1 as IColumn
	local var_View,var_View1 as IView
	var_View := oDCOCX_Exontrol1:View
		var_View:FilterBarPromptVisible := exFilterBarPromptVisible
		var_Column := var_View:Columns:[Item,0]
			var_Column:DisplayFilterButton := true
			var_Column:FilterList := exShowExclude | exShowFocusItem | exShowCheckBox | exSortItemsAsc
			var_Column:FilterBarDropDownWidth := 2
	var_View1 := oDCOCX_Exontrol1:[DefaultView,nil]:[View,"Country"]
		var_Column1 := var_View1:Columns:[Item,0]
			var_Column1:FilterType := exFilter
			var_Column1:Filter := "US|RO|GE"
		var_View1:ApplyFilter()
RETURN NIL

METHOD OCX_Exontrol1Error(Error,Description) CLASS MainDialog
	// Error event - An internal error occurs.
	OutputDebugString(String2Psz( "Error" ))
	OutputDebugString(String2Psz( AsString(Description) ))
RETURN NIL


oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:Mode := exSplitFixCascadeMode
oDCOCX_Exontrol1:[Background,exSplitBar] := RGB(196,196,196)
oDCOCX_Exontrol1: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"
oDCOCX_Exontrol1:Select := "US\AK"
oDCOCX_Exontrol1:EndUpdate()

METHOD OCX_Exontrol1Error(Error,Description) CLASS MainDialog
	// Error event - An internal error occurs.
	OutputDebugString(String2Psz( "Error" ))
	OutputDebugString(String2Psz( AsString(Description) ))
RETURN NIL


oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:Mode := exSplitFixCascadeMode
oDCOCX_Exontrol1:[Background,exSplitBar] := RGB(196,196,196)
oDCOCX_Exontrol1: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"
oDCOCX_Exontrol1:Select := "US\AK"
oDCOCX_Exontrol1:[DefaultView,nil]:FilterBarPromptVisible := exFilterBarPromptVisible
oDCOCX_Exontrol1:EndUpdate()

METHOD OCX_Exontrol1CreateView(View) CLASS MainDialog
	// CreateView event - A view has been created.
	oDCOCX_Exontrol1:View:FilterBarPromptVisible := exFilterBarPromptVisible
RETURN NIL

METHOD OCX_Exontrol1Error(Error,Description) CLASS MainDialog
	// Error event - An internal error occurs.
	OutputDebugString(String2Psz( "Error" ))
	OutputDebugString(String2Psz( AsString(Description) ))
RETURN NIL


oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:Mode := exSplitFixCascadeMode
oDCOCX_Exontrol1:[Background,exSplitBar] := RGB(196,196,196)
oDCOCX_Exontrol1: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"
oDCOCX_Exontrol1:Select := "US\AK"
oDCOCX_Exontrol1:EndUpdate()

METHOD OCX_Exontrol1Error(Error,Description) CLASS MainDialog
	// Error event - An internal error occurs.
	OutputDebugString(String2Psz( "Error" ))
	OutputDebugString(String2Psz( AsString(Description) ))
RETURN NIL

local var_Items as IItems
local var_View as IView
local h as USUAL

oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:Mode := exSplitEqualCascadeMode
oDCOCX_Exontrol1:[Background,exSplitBar] := RGB(196,196,196)
oDCOCX_Exontrol1:[Background,exSplitBarSize] := RGB(4,0,0)
oDCOCX_Exontrol1: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"
oDCOCX_Exontrol1:Select := "RO"
var_View := oDCOCX_Exontrol1:[DefaultView,nil]:[View,"Country"]
	var_View:BeginUpdate()
	var_View:ColumnAutoResize := true
	var_View:Columns:[Item,0]:Visible := false
	var_Items := var_View:Items
		var_Items:[LockedItemCount,exTop] := 1
		h := var_Items:[LockedItem,exTop,0]
		var_Items:[ItemDivider,h] := 0
		var_Items:[CellValueFormat,h,0] := exTotalField | exHTML
		var_Items:[CellValue,h,0] := "count(all,all,1)"
		var_Items:[FormatCell,h,0] := "`<r>Countries: <b>`+ (value format `0`)"
	var_View:EndUpdate()
oDCOCX_Exontrol1:EndUpdate()

METHOD OCX_Exontrol1CreateView(View) CLASS MainDialog
	// CreateView event - A view has been created.
	local var_Column as IColumn
	local var_Items,var_Items1,var_Items2 as IItems
	local var_View,var_View1,var_View2,var_View3 as IView
	local h as USUAL
	oDCOCX_Exontrol1:View:HeaderVisible := false
	var_View := oDCOCX_Exontrol1:[DefaultView,nil]
		var_View1 := var_View:[View,"Country"]
			var_View1:BeginUpdate()
			var_View1:ColumnAutoResize := true
			var_View1:Columns:[Item,0]:Visible := false
			var_Items := var_View1:Items
				var_Items:[LockedItemCount,exTop] := 1
				h := var_Items:[LockedItem,exTop,0]
				var_Items:[ItemDivider,h] := 0
				var_Items:[CellValueFormat,h,0] := exTotalField | exHTML
				var_Items:[CellValue,h,0] := "count(all,all,1)"
				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 := false
			var_View2:ColumnAutoResize := true
			var_View2:Columns:[Item,0]:Visible := false
			var_View2:Columns:[Item,1]:Visible := false
			var_Items1 := var_View2:Items
				var_Items1:[LockedItemCount,exTop] := 1
				h := var_Items1:[LockedItem,exTop,0]
				var_Items1:[ItemDivider,h] := 0
				var_Items1:[CellValueFormat,h,0] := exTotalField | exHTML
				var_Items1:[CellValue,h,0] := "count(all,all,1)"
				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 := false
			var_View3:Columns:[Item,1]:Visible := false
			var_Column := var_View3:Columns:[Item,2]
				var_Column:Width := 128
				var_Column:HTMLCaption := "CityName"
			var_Items2 := var_View3:Items
				var_Items2:[LockedItemCount,exTop] := 1
				h := var_Items2:[LockedItem,exTop,0]
				var_Items2:[ItemDivider,h] := 0
				var_Items2:[CellValueFormat,h,0] := exTotalField | exHTML
				var_Items2:[CellValue,h,0] := "count(all,all,1)"
				var_Items2:[FormatCell,h,0] := "`<r>Cities: <b>`+ (value format `0`)"
			var_View3:EndUpdate()
RETURN NIL

METHOD OCX_Exontrol1Error(Error,Description) CLASS MainDialog
	// Error event - An internal error occurs.
	OutputDebugString(String2Psz( "Error" ))
	OutputDebugString(String2Psz( AsString(Description) ))
RETURN NIL


oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:Mode := exSplitFixCascadeMode
oDCOCX_Exontrol1:[Background,exSplitBar] := RGB(196,196,196)
oDCOCX_Exontrol1:[Background,exSplitBarSize] := RGB(4,0,0)
oDCOCX_Exontrol1: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"
oDCOCX_Exontrol1:Select := "US\AK"
oDCOCX_Exontrol1:EndUpdate()

METHOD OCX_Exontrol1Error(Error,Description) CLASS MainDialog
	// Error event - An internal error occurs.
	OutputDebugString(String2Psz( "Error" ))
	OutputDebugString(String2Psz( AsString(Description) ))
RETURN NIL

local var_Column,var_Column1 as IColumn
local var_ConditionalFormat as IConditionalFormat
local var_ConditionalFormats as IConditionalFormats
local var_Items as IItems
local var_View as IView

oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:StatusBarVisible := exStatusBarAnchorTop
oDCOCX_Exontrol1:StatusBarLabel := "<c>Select multiple-items in the City view, and press <b>SPACE</b> key"
oDCOCX_Exontrol1:[Background,exStatusBackColor] := oDCOCX_Exontrol1:BackColor
oDCOCX_Exontrol1:VisualAppearance:Add(1,"gBFLBCJwBAEHhEJAAEhABO0GACAADACAxRDgMQBQKAAzAJBIYhiG4cYCgMYxXDOCYXABCEYRXBKUQSDqEYyjGLIXAWCYSAAMIwDKAUEhqGiUBihaQhRgyJI3RlJGaoDiKIokShKEpDLKlCx3H6OKQjOZgAoySo4SbDMp0NAkRBlFqcJCCCLAUgmTpQUBOYyiLKNRxQGoYLIlayZIiSIpMRbWcB3BYEOSFFasAAleYZTg2Jp1TbPAAYFL1ISDKSiIZqTA6PheT5yUzCNazbgEMTvRKqcSnO6bOgnEKQZKAGg4bg1RTVAYZLKtPR7aqyUJvZ5sMB6DiuLYRPKXZoucaNExSS5ebJtOzQJbEXBpXSpBwzSieBozIaQcJUOoaVxPFkaJrGuIx3h2BZPgOUIQmUcIwDARAkiAaQxh0DonCMLAeBKZobBCCY+niWJaBIKJJH4MoBgiQpCmmUR/ooBgCgCYBIBYBoBmCBYAn+ApgkgNgOgOYQIEYBIEGESBWBSBJhGgZgZgYIYoHYEIHCGaIGAuCAiCgegkgkYYoh4KIFiKKIuBeAJimiGgwgwYoYk4NILCCGJmDqDpjkidg+gGTo1jUAxAEAgI")
oDCOCX_Exontrol1:SelBackColor := 0x1000000
oDCOCX_Exontrol1:SelForeColor := oDCOCX_Exontrol1:ForeColor
oDCOCX_Exontrol1:Mode := exSplitFixCascadeMode
oDCOCX_Exontrol1:[Background,exSplitBar] := RGB(196,196,196)
oDCOCX_Exontrol1: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"
oDCOCX_Exontrol1:Select := "US\AK"
var_View := oDCOCX_Exontrol1:[DefaultView,nil]:[View,"City"]
	var_View:BeginUpdate()
	var_View:ShowFocusRect := false
	var_View:SingleSel := false
	var_View:Columns:[Item,0]:Visible := false
	var_View:Columns:[Item,1]:Visible := false
	var_Column := var_View:Columns:[Item,2]
		var_Column:HTMLCaption := "City <off 4><fgcolor=808080>Name"
		var_Column:Width := 128
		var_Column:[Def,exCellHasCheckBox] := true
	var_View:SearchColumnIndex := var_View:Columns:[Item,"Name"]:Index
	var_Column1 := IColumn{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",nil):BackColor := RGB(190,190,190)
		var_ConditionalFormat := var_ConditionalFormats:Add("%CS2 = 1",nil)
			var_ConditionalFormat:Bold := true
			var_ConditionalFormat:ApplyTo := 0x8 | 
	var_Items := var_View:Items
		var_Items:[CellState,var_Items:[ItemByIndex,1],2] := 1
		var_Items:[CellState,var_Items:[ItemByIndex,3],2] := 1
		var_Items:[CellState,var_Items:[ItemByIndex,5],2] := 1
	var_View:EndUpdate()
oDCOCX_Exontrol1:EndUpdate()

METHOD OCX_Exontrol1CreateView(View) CLASS MainDialog
	// CreateView event - A view has been created.
	local var_Column,var_Column1 as IColumn
	local var_ConditionalFormat as IConditionalFormat
	local var_ConditionalFormats as IConditionalFormats
	local var_Items as IItems
	local var_View,var_View1,var_View2,var_View3,var_View4 as IView
	var_View := oDCOCX_Exontrol1:View
		var_View:HeaderAppearance := Etched
		var_View:HeaderHeight := 24
		var_View:DrawGridLines := exVLines
		var_View:GridLineStyle := exGridLinesDash
	var_View1 := oDCOCX_Exontrol1:[DefaultView,nil]
		var_View2 := var_View1:[View,"Country"]
			var_View2:BeginUpdate()
			var_View2:ColumnAutoResize := true
			var_View2:Columns:[Item,0]:Visible := false
			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 := true
			var_View3:Columns:[Item,0]:Visible := false
			var_View3:Columns:[Item,1]:Visible := false
			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 := false
			var_View4:SingleSel := false
			var_View4:Columns:[Item,0]:Visible := false
			var_View4:Columns:[Item,1]:Visible := false
			var_Column := var_View4:Columns:[Item,2]
				var_Column:HTMLCaption := "City <off 4><fgcolor=808080>Name"
				var_Column:Width := 128
				var_Column:[Def,exCellHasCheckBox] := true
			var_View4:SearchColumnIndex := var_View4:Columns:[Item,"Name"]:Index
			var_Column1 := IColumn{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",nil):BackColor := RGB(190,190,190)
				var_ConditionalFormat := var_ConditionalFormats:Add("%CS2 = 1",nil)
					var_ConditionalFormat:Bold := true
					var_ConditionalFormat:ApplyTo := 0x8 | 
			var_Items := var_View4:Items
				var_Items:[CellState,var_Items:[ItemByIndex,1],2] := 1
				var_Items:[CellState,var_Items:[ItemByIndex,3],2] := 1
				var_Items:[CellState,var_Items:[ItemByIndex,5],2] := 1
			var_View4:EndUpdate()
RETURN NIL

METHOD OCX_Exontrol1Error(Error,Description) CLASS MainDialog
	// Error event - An internal error occurs.
	OutputDebugString(String2Psz( "Error" ))
	OutputDebugString(String2Psz( AsString(Description) ))
RETURN NIL


oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:StatusBarVisible := exStatusBarAnchorTop
oDCOCX_Exontrol1:StatusBarLabel := "<c>Select multiple-items in the City view, and press <b>SPACE</b> key"
oDCOCX_Exontrol1:[Background,exStatusBackColor] := oDCOCX_Exontrol1:BackColor
oDCOCX_Exontrol1:VisualAppearance:Add(1,"gBFLBCJwBAEHhEJAAEhABO0GACAADACAxRDgMQBQKAAzAJBIYhiG4cYCgMYxXDOCYXABCEYRXBKUQSDqEYyjGLIXAWCYSAAMIwDKAUEhqGiUBihaQhRgyJI3RlJGaoDiKIokShKEpDLKlCx3H6OKQjOZgAoySo4SbDMp0NAkRBlFqcJCCCLAUgmTpQUBOYyiLKNRxQGoYLIlayZIiSIpMRbWcB3BYEOSFFasAAleYZTg2Jp1TbPAAYFL1ISDKSiIZqTA6PheT5yUzCNazbgEMTvRKqcSnO6bOgnEKQZKAGg4bg1RTVAYZLKtPR7aqyUJvZ5sMB6DiuLYRPKXZoucaNExSS5ebJtOzQJbEXBpXSpBwzSieBozIaQcJUOoaVxPFkaJrGuIx3h2BZPgOUIQmUcIwDARAkiAaQxh0DonCMLAeBKZobBCCY+niWJaBIKJJH4MoBgiQpCmmUR/ooBgCgCYBIBYBoBmCBYAn+ApgkgNgOgOYQIEYBIEGESBWBSBJhGgZgZgYIYoHYEIHCGaIGAuCAiCgegkgkYYoh4KIFiKKIuBeAJimiGgwgwYoYk4NILCCGJmDqDpjkidg+gGTo1jUAxAEAgI")
oDCOCX_Exontrol1:SelBackColor := 0x1000000
oDCOCX_Exontrol1:SelForeColor := oDCOCX_Exontrol1:ForeColor
oDCOCX_Exontrol1:Mode := exSplitFixCascadeMode
oDCOCX_Exontrol1:[Background,exSplitBar] := RGB(196,196,196)
oDCOCX_Exontrol1: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"
oDCOCX_Exontrol1:Select := "US\AK"
oDCOCX_Exontrol1:EndUpdate()

METHOD OCX_Exontrol1CreateView(View) CLASS MainDialog
	// CreateView event - A view has been created.
	local var_Column as IColumn
	local var_View,var_View1,var_View2,var_View3,var_View4 as IView
	var_View := oDCOCX_Exontrol1:View
		var_View:HeaderAppearance := Etched
		var_View:HeaderHeight := 24
		var_View:DrawGridLines := exAllLines
		var_View:GridLineStyle := exGridLinesDash
	var_View1 := oDCOCX_Exontrol1:[DefaultView,nil]
		var_View2 := var_View1:[View,"Country"]
			var_View2:BeginUpdate()
			var_View2:ColumnAutoResize := true
			var_View2:Columns:[Item,0]:Visible := false
			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 := true
			var_View3:Columns:[Item,0]:Visible := false
			var_View3:Columns:[Item,1]:Visible := false
			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 := false
			var_View4:Columns:[Item,1]:Visible := false
			var_Column := var_View4:Columns:[Item,2]
				var_Column:HTMLCaption := "City <off 4><fgcolor=808080>Name"
				var_Column:Width := 128
				var_Column:[Def,exCellBackColor] := 15790320
			var_View4:CountLockedColumns := 1
			var_View4:EndUpdate()
RETURN NIL

METHOD OCX_Exontrol1Error(Error,Description) CLASS MainDialog
	// Error event - An internal error occurs.
	OutputDebugString(String2Psz( "Error" ))
	OutputDebugString(String2Psz( AsString(Description) ))
RETURN NIL


oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:Mode := exSplitFixCascadeMode
oDCOCX_Exontrol1:[Background,exSplitBar] := RGB(196,196,196)
oDCOCX_Exontrol1: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"
oDCOCX_Exontrol1:Select := "US\AK"
oDCOCX_Exontrol1:EndUpdate()

METHOD OCX_Exontrol1CreateView(View) CLASS MainDialog
	// CreateView event - A view has been created.
	local var_ConditionalFormat as IConditionalFormat
	local var_Items as IItems
	local var_View as IView
	var_View := oDCOCX_Exontrol1:View
		var_ConditionalFormat := var_View:ConditionalFormats:Add("%CS0 = 1",nil)
			var_ConditionalFormat:Bold := true
		var_View:Columns:[Item,0]:[Def,exCellHasCheckBox] := true
		var_Items := var_View:Items
			var_Items:[CellState,var_Items:FocusItem,0] := 1
RETURN NIL

METHOD OCX_Exontrol1Error(Error,Description) CLASS MainDialog
	// Error event - An internal error occurs.
	OutputDebugString(String2Psz( "Error" ))
	OutputDebugString(String2Psz( AsString(Description) ))
RETURN NIL


oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:Mode := exSplitFixCascadeMode
oDCOCX_Exontrol1:[Background,exSplitBar] := RGB(196,196,196)
oDCOCX_Exontrol1: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"
oDCOCX_Exontrol1:Select := "US\AK"
oDCOCX_Exontrol1:EndUpdate()

METHOD OCX_Exontrol1Error(Error,Description) CLASS MainDialog
	// Error event - An internal error occurs.
	OutputDebugString(String2Psz( "Error" ))
	OutputDebugString(String2Psz( AsString(Description) ))
RETURN NIL

local var_ConditionalFormat as IConditionalFormat
local var_View as IView

oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:Mode := exSplitFixCascadeMode
oDCOCX_Exontrol1:[Background,exSplitBar] := RGB(196,196,196)
oDCOCX_Exontrol1: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"
oDCOCX_Exontrol1:Select := "US\AK"
var_View := oDCOCX_Exontrol1:[DefaultView,nil]:[View,"City"]
	var_ConditionalFormat := var_View:ConditionalFormats:Add("(%0 = `US`) and (%2 like `Al*`)",nil)
		var_ConditionalFormat:Bold := true
		var_ConditionalFormat:BackColor := RGB(240,240,240)
oDCOCX_Exontrol1:EndUpdate()

METHOD OCX_Exontrol1CreateView(View) CLASS MainDialog
	// CreateView event - A view has been created.
	local var_ConditionalFormat as IConditionalFormat
	local var_View as IView
	var_View := oDCOCX_Exontrol1:View
		var_ConditionalFormat := var_View:ConditionalFormats:Add("%0 = `US`",nil)
			var_ConditionalFormat:Bold := true
RETURN NIL

METHOD OCX_Exontrol1Error(Error,Description) CLASS MainDialog
	// Error event - An internal error occurs.
	OutputDebugString(String2Psz( "Error" ))
	OutputDebugString(String2Psz( AsString(Description) ))
RETURN NIL


oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:Mode := exSplitFixCascadeMode
oDCOCX_Exontrol1:[Background,exSplitBar] := RGB(196,196,196)
oDCOCX_Exontrol1: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"
oDCOCX_Exontrol1:Select := "US\AK"
oDCOCX_Exontrol1:EndUpdate()

METHOD OCX_Exontrol1Error(Error,Description) CLASS MainDialog
	// Error event - An internal error occurs.
	OutputDebugString(String2Psz( "Error" ))
	OutputDebugString(String2Psz( AsString(Description) ))
RETURN NIL

local var_Object as USUAL

oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:Mode := exSplitFixCascadeMode
oDCOCX_Exontrol1: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"
oDCOCX_Exontrol1:Select := "US\AK"
oDCOCX_Exontrol1:AllowSplitView := exAllowOneSplitView
oDCOCX_Exontrol1:SplitViewHeight := AsString(256)
var_Object := oDCOCX_Exontrol1:[DefaultView,1]
oDCOCX_Exontrol1:EndUpdate()

METHOD OCX_Exontrol1CreateView(View) CLASS MainDialog
	// CreateView event - A view has been created.
	oDCOCX_Exontrol1:View:SingleSel := false
RETURN NIL

METHOD OCX_Exontrol1Error(Error,Description) CLASS MainDialog
	// Error event - An internal error occurs.
	OutputDebugString(String2Psz( "Error" ))
	OutputDebugString(String2Psz( AsString(Description) ))
RETURN NIL

local var_Appearance as IAppearance
local var_Column as IColumn
local var_Columns as IColumns
local var_View as IView

oDCOCX_Exontrol1:BeginUpdate()
var_Appearance := oDCOCX_Exontrol1:VisualAppearance
	var_Appearance:Add(1,"gBFLBCJwBAEHhEJAAEhABa0GACAADACAxRDgMQBQKAAzAJBIYhiG4cYCgMYxXDOCYXABCEYRXBIZQ7BKNIxjSJwFgkAoJDYOMjwlDKEgADDFEgjJBkRxtDCPIDnGQoDiGI4vSrCQ4yDA8GxCGSfIrjKiYbiGNY8RgZCiOMAFJSpC6gZRoSq4doGGJLQiDMaAdBNHyZKqpbQqeCZPDINQlWzbcrjKKFYQTOi7I4sCbYcqKA5PTbNdYyVBMWxfGIbaIkXAcBjuO4hWbFdASRQdDYtHTIbzjCxLcgMD4gRwWCYNSAGRZJLDKK4gSh6eorHQAX4AGabFBOP5fC7TNJ0OKLRrkAJub5eFx3LJ97ohbLsOzYZK2ByDFqiMLGQZMZxvGWUBAnYfJImcOwLEiBp0gaGpekSBxjE+WZ2jse5Im2S5ZkGYhdn4EY6A4Q4vAOWJ6H0V4oEgIgSFAGhGDGUB1ByBhVBUAwyhKMQIE2AgRjCWQJAoEIWk2SxCAGBBghQeJYkMZIYBYIYoHIG4HGICB+CKB4iEiBglgaUAzhiJAZA+Q4Qk2CxiniOgwgyYwolYMYNmMQw2CoGQihiLg5g+YxpAIOINiOOJ2CyEBkgkDhKhCJBQAI2IlAkJhMgqZBpEYS4UiSGQ2E+FglHkdg5haI5pHIVoViYCQeF6vZJhYY4aCWWYqGyGpkimOhnhyZQ4nIToYGcSY+ESFQnHmGhwh+YpphYO4gmKOlEiGKIKBaCohmeQ4tkUQJQBAgI=")
	var_Appearance:Add(2,"gBFLBCJwBAEHhEJAAEhABO0GACAADACAxRDgMQBQKAAzAJBIYhiG4cYCgMYxXDOCYXABCEYRXBIZQ7BKNIxjSJwFgkAoJDYOMjwlDKEgADDFEgjDBkRxtDCPIDnGQoDiGI4vSrCQ4zHQkOx9C6NKLjOQaMhwcJPABTZwRRQMUyLAiQRioGKKJgkC4cAxIFhRXSVIyhC6XRiGURbJquLw1DBbEI3BaUOS7HqOK7vCZ7cACVYqQjLMrzCK8ZxLPqbZznOjZXoCKJDQzVYADFRVd4rMK9QABWw4YqWZYXX7kUDxbTdEYzPQAMw1GCcbxmF6eWbCNq3LidXTnOK3dwkO55cyuA6oazi8T6Bi2M6DDQNGSzZiuGZ9YSOOIwHJIN4QDSUpYmQOoJA6KxVlCDBsnwOx9iWUhfiCThzjUHZun2WgSAiBIUA0JgziGVJkGWUZAkEUoyBEN51BsDYQhCIQJGqHAUCAGBGA0RwtDcVIgkgNgOgOYQIDiXYEmESBWBaBZhggTgSgYYZIHYGoDGGaIGBiBpiCiFJdgkIksiiChhliLgsgYYpoj4F4MGMKBWDSDRhngMg4gcIQYnYPoEE6N4ZAMQBAICA=")
oDCOCX_Exontrol1:SelBackColor := 0x1000000
oDCOCX_Exontrol1:SelForeColor := RGB(0,0,0)
oDCOCX_Exontrol1:BackColorHeader := 0x2000000
oDCOCX_Exontrol1:[ScrollPartVisible,exVScroll,exExtentThumbPart] := true
oDCOCX_Exontrol1:[ScrollPartVisible,exHScroll,exExtentThumbPart] := true
oDCOCX_Exontrol1:[ScrollPartVisible,exScroll,exExtentThumbPart] := true
oDCOCX_Exontrol1:ScrollWidth := 4
oDCOCX_Exontrol1:[Background,exVSBack] := RGB(240,240,240)
oDCOCX_Exontrol1:[Background,exVSThumb] := RGB(128,128,128)
oDCOCX_Exontrol1:ScrollHeight := 4
oDCOCX_Exontrol1:[Background,exHSBack] := oDCOCX_Exontrol1:[Background,exVSBack]
oDCOCX_Exontrol1:[Background,exHSThumb] := oDCOCX_Exontrol1:[Background,exVSThumb]
oDCOCX_Exontrol1:[Background,exScrollSizeGrip] := oDCOCX_Exontrol1:[Background,exVSBack]
oDCOCX_Exontrol1:[Background,exSplitBar] := RGB(196,196,196)
oDCOCX_Exontrol1:[Background,exCSplitBar] := oDCOCX_Exontrol1:[Background,exSplitBar]
oDCOCX_Exontrol1:[Background,exHSplitBar] := oDCOCX_Exontrol1:[Background,exSplitBar]
oDCOCX_Exontrol1:[Background,exSplitBarSize] := RGB(2,0,0)
oDCOCX_Exontrol1:BackColorSortBar := oDCOCX_Exontrol1:BackColor
oDCOCX_Exontrol1:EndUpdate()
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:Mode := exSplitFixCascadeMode
oDCOCX_Exontrol1: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"
oDCOCX_Exontrol1:Select := "RO\CJ|BV|CS"
var_View := oDCOCX_Exontrol1:[DefaultView,nil]:[View,"City"]
	var_View:BeginUpdate()
	var_Columns := var_View:Columns
		var_Columns:[Item,"CountryCode"]:Visible := false
		var_Column := var_Columns:[Item,"Name"]
			var_Column:SortOrder := SortAscending
			var_Column:Width := 128
	var_View:SortBarVisible := true
	var_View:AllowGroupBy := true
	var_View:SingleSort := false
	var_View:Columns:[Item,"StateCode"]:SortOrder := SortAscending
	var_View:TreeColumnIndex := var_View:Columns:[Item,"Name"]:Index
	var_View:EndUpdate()
oDCOCX_Exontrol1:EndUpdate()

METHOD OCX_Exontrol1CreateView(View) CLASS MainDialog
	// CreateView event - A view has been created.
	// Columns("StateCode").Visible = False
	// Columns("StateName").SortOrder = 1
	// Columns("StateCode").SortOrder = nGroupByIfCity
	local var_View as IView
	local bColumnAutoResize,nGroupByIfCity,var_Object as USUAL
	nGroupByIfCity := oDCOCX_Exontrol1:FormatABC("( A = `City`) ? 1 : 0",oDCOCX_Exontrol1:View:Tag,nil,nil)
	bColumnAutoResize := oDCOCX_Exontrol1:FormatABC(" (A = `City`) ? 0 : -1",oDCOCX_Exontrol1:View:Tag,nil,nil)
	var_View := oDCOCX_Exontrol1:View
		var_View:BeginUpdate()
		var_View:SingleSel := false
		var_View:Columns:[Item,"CountryCode"]:Visible := false
		var_View:Columns:[Item,"CountryName"]:SortOrder := SortAscending
		var_Object := var_View:Columns:[Item,2]
		var_View:TreeColumnIndex := 2
		var_View:AllowGroupBy := true
		var_View:SingleSort := false
		var_View:SortBarVisible := false
		var_View:ColumnAutoResize := false
		var_View:EndUpdate()
RETURN NIL

METHOD OCX_Exontrol1Error(Error,Description) CLASS MainDialog
	// Error event - An internal error occurs.
	OutputDebugString(String2Psz( "Error" ))
	OutputDebugString(String2Psz( AsString(Description) ))
RETURN NIL

local var_Appearance as IAppearance

oDCOCX_Exontrol1:BeginUpdate()
var_Appearance := oDCOCX_Exontrol1:VisualAppearance
	var_Appearance:Add(1,"gBFLBCJwBAEHhEJAAEhABa0GACAADACAxRDgMQBQKAAzAJBIYhiG4cYCgMYxXDOCYXABCEYRXBIZQ7BKNIxjSJwFgkAoJDYOMjwlDKEgADDFEgjJBkRxtDCPIDnGQoDiGI4vSrCQ4yDA8GxCGSfIrjKiYbiGNY8RgZCiOMAFJSpC6gZRoSq4doGGJLQiDMaAdBNHyZKqpbQqeCZPDINQlWzbcrjKKFYQTOi7I4sCbYcqKA5PTbNdYyVBMWxfGIbaIkXAcBjuO4hWbFdASRQdDYtHTIbzjCxLcgMD4gRwWCYNSAGRZJLDKK4gSh6eorHQAX4AGabFBOP5fC7TNJ0OKLRrkAJub5eFx3LJ97ohbLsOzYZK2ByDFqiMLGQZMZxvGWUBAnYfJImcOwLEiBp0gaGpekSBxjE+WZ2jse5Im2S5ZkGYhdn4EY6A4Q4vAOWJ6H0V4oEgIgSFAGhGDGUB1ByBhVBUAwyhKMQIE2AgRjCWQJAoEIWk2SxCAGBBghQeJYkMZIYBYIYoHIG4HGICB+CKB4iEiBglgaUAzhiJAZA+Q4Qk2CxiniOgwgyYwolYMYNmMQw2CoGQihiLg5g+YxpAIOINiOOJ2CyEBkgkDhKhCJBQAI2IlAkJhMgqZBpEYS4UiSGQ2E+FglHkdg5haI5pHIVoViYCQeF6vZJhYY4aCWWYqGyGpkimOhnhyZQ4nIToYGcSY+ESFQnHmGhwh+YpphYO4gmKOlEiGKIKBaCohmeQ4tkUQJQBAgI=")
	var_Appearance:Add(2,"gBFLBCJwBAEHhEJAAEhABO0GACAADACAxRDgMQBQKAAzAJBIYhiG4cYCgMYxXDOCYXABCEYRXBIZQ7BKNIxjSJwFgkAoJDYOMjwlDKEgADDFEgjDBkRxtDCPIDnGQoDiGI4vSrCQ4zHQkOx9C6NKLjOQaMhwcJPABTZwRRQMUyLAiQRioGKKJgkC4cAxIFhRXSVIyhC6XRiGURbJquLw1DBbEI3BaUOS7HqOK7vCZ7cACVYqQjLMrzCK8ZxLPqbZznOjZXoCKJDQzVYADFRVd4rMK9QABWw4YqWZYXX7kUDxbTdEYzPQAMw1GCcbxmF6eWbCNq3LidXTnOK3dwkO55cyuA6oazi8T6Bi2M6DDQNGSzZiuGZ9YSOOIwHJIN4QDSUpYmQOoJA6KxVlCDBsnwOx9iWUhfiCThzjUHZun2WgSAiBIUA0JgziGVJkGWUZAkEUoyBEN51BsDYQhCIQJGqHAUCAGBGA0RwtDcVIgkgNgOgOYQIDiXYEmESBWBaBZhggTgSgYYZIHYGoDGGaIGBiBpiCiFJdgkIksiiChhliLgsgYYpoj4F4MGMKBWDSDRhngMg4gcIQYnYPoEE6N4ZAMQBAICA=")
oDCOCX_Exontrol1:SelBackColor := 0x1000000
oDCOCX_Exontrol1:SelForeColor := RGB(0,0,0)
oDCOCX_Exontrol1:BackColorHeader := 0x2000000
oDCOCX_Exontrol1:[ScrollPartVisible,exVScroll,exExtentThumbPart] := true
oDCOCX_Exontrol1:[ScrollPartVisible,exHScroll,exExtentThumbPart] := true
oDCOCX_Exontrol1:[ScrollPartVisible,exScroll,exExtentThumbPart] := true
oDCOCX_Exontrol1:ScrollWidth := 4
oDCOCX_Exontrol1:[Background,exVSBack] := RGB(240,240,240)
oDCOCX_Exontrol1:[Background,exVSThumb] := RGB(128,128,128)
oDCOCX_Exontrol1:ScrollHeight := 4
oDCOCX_Exontrol1:[Background,exHSBack] := oDCOCX_Exontrol1:[Background,exVSBack]
oDCOCX_Exontrol1:[Background,exHSThumb] := oDCOCX_Exontrol1:[Background,exVSThumb]
oDCOCX_Exontrol1:[Background,exScrollSizeGrip] := oDCOCX_Exontrol1:[Background,exVSBack]
oDCOCX_Exontrol1:[Background,exSplitBar] := RGB(196,196,196)
oDCOCX_Exontrol1:[Background,exCSplitBar] := oDCOCX_Exontrol1:[Background,exSplitBar]
oDCOCX_Exontrol1:[Background,exHSplitBar] := oDCOCX_Exontrol1:[Background,exSplitBar]
oDCOCX_Exontrol1:[Background,exSplitBarSize] := RGB(2,0,0)
oDCOCX_Exontrol1:BackColorSortBar := oDCOCX_Exontrol1:BackColor
oDCOCX_Exontrol1:EndUpdate()
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:Mode := exSplitFixCascadeMode
oDCOCX_Exontrol1: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"
oDCOCX_Exontrol1:Select := "RO\CJ|BV|CS"
oDCOCX_Exontrol1:EndUpdate()

METHOD OCX_Exontrol1CreateView(View) CLASS MainDialog
	// CreateView event - A view has been created.
	// Columns("StateCode").Visible = False
	// Columns("StateName").SortOrder = 1
	local var_View as IView
	local var_Object as USUAL
	var_View := oDCOCX_Exontrol1:View
		var_View:BeginUpdate()
		var_View:ColumnAutoResize := true
		var_View:Columns:[Item,"CountryCode"]:Visible := false
		var_View:Columns:[Item,"CountryName"]:SortOrder := SortAscending
		var_Object := var_View:Columns:[Item,"Name"]
		var_View:EndUpdate()
RETURN NIL

METHOD OCX_Exontrol1Error(Error,Description) CLASS MainDialog
	// Error event - An internal error occurs.
	OutputDebugString(String2Psz( "Error" ))
	OutputDebugString(String2Psz( AsString(Description) ))
RETURN NIL

local var_Appearance as IAppearance

oDCOCX_Exontrol1:BeginUpdate()
var_Appearance := oDCOCX_Exontrol1: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==")
oDCOCX_Exontrol1:SelBackColor := 0x1000000
oDCOCX_Exontrol1:SelForeColor := RGB(0,0,0)
oDCOCX_Exontrol1:BackColorHeader := 0x2000000
oDCOCX_Exontrol1:[ScrollPartVisible,exVScroll,exExtentThumbPart] := true
oDCOCX_Exontrol1:[ScrollPartVisible,exHScroll,exExtentThumbPart] := true
oDCOCX_Exontrol1:[ScrollPartVisible,exScroll,exExtentThumbPart] := true
oDCOCX_Exontrol1:ScrollWidth := 4
oDCOCX_Exontrol1:[Background,exVSBack] := RGB(240,240,240)
oDCOCX_Exontrol1:[Background,exVSThumb] := RGB(128,128,128)
oDCOCX_Exontrol1:ScrollHeight := 4
oDCOCX_Exontrol1:[Background,exHSBack] := oDCOCX_Exontrol1:[Background,exVSBack]
oDCOCX_Exontrol1:[Background,exHSThumb] := oDCOCX_Exontrol1:[Background,exVSThumb]
oDCOCX_Exontrol1:[Background,exScrollSizeGrip] := oDCOCX_Exontrol1:[Background,exVSBack]
oDCOCX_Exontrol1:[Background,exSplitBar] := RGB(196,196,196)
oDCOCX_Exontrol1:[Background,exCSplitBar] := oDCOCX_Exontrol1:[Background,exSplitBar]
oDCOCX_Exontrol1:[Background,exHSplitBar] := oDCOCX_Exontrol1:[Background,exSplitBar]
oDCOCX_Exontrol1:[Background,exSplitBarSize] := RGB(2,0,0)
oDCOCX_Exontrol1:BackColorSortBar := oDCOCX_Exontrol1:BackColor
oDCOCX_Exontrol1:EndUpdate()
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:Mode := exSplitFixCascadeMode
oDCOCX_Exontrol1: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"
oDCOCX_Exontrol1:Select := "RO\CJ"
oDCOCX_Exontrol1:EndUpdate()

METHOD OCX_Exontrol1CreateView(View) CLASS MainDialog
	// CreateView event - A view has been created.
	// Columns("StateCode").Visible = False
	local var_View as IView
	local var_Object,var_Object1,var_Object2,var_Object3 as USUAL
	var_View := oDCOCX_Exontrol1:View
		var_View:BeginUpdate()
		var_View:ContinueColumnScroll := false
		var_View:ScrollBySingleLine := true
		var_View:DrawGridLines := exAllLines
		var_View:EnsureVisibleColumn("Date")
		var_View:Columns:[Item,"CountryCode"]:Visible := false
		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()
RETURN NIL

METHOD OCX_Exontrol1Error(Error,Description) CLASS MainDialog
	// Error event - An internal error occurs.
	OutputDebugString(String2Psz( "Error" ))
	OutputDebugString(String2Psz( AsString(Description) ))
RETURN NIL


oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:FitCascadeColumns := 7
oDCOCX_Exontrol1:Mode := exSplitFixCascadeMode
oDCOCX_Exontrol1:ScrollWidth := 4
oDCOCX_Exontrol1:ScrollHeight := 4
oDCOCX_Exontrol1:Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=")
oDCOCX_Exontrol1: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"
oDCOCX_Exontrol1:Select := "US\OR"
oDCOCX_Exontrol1:EndUpdate()

METHOD OCX_Exontrol1CreateView(View) CLASS MainDialog
	// CreateView event - A view has been created.
	local var_Column as IColumn
	local var_View as IView
	var_View := oDCOCX_Exontrol1:View
		var_Column := IColumn{var_View:Columns:Add("Pos")}
			var_Column:Width := 32
			var_Column:AllowSizing := false
			var_Column:Position := 0
			var_Column:FormatColumn := "1 pos ``"
			var_Column:[Def,exCellBackColor] := 15790320
			var_Column:Alignment := RightAlignment
			var_Column:HeaderAlignment := var_Column:Alignment
			var_Column:[Def,exCellPaddingRight] := 2
			var_Column:[Def,exCellPaddingLeft] := 2
			var_Column:[Def,exHeaderPaddingLeft] := 2
			var_Column:[Def,exHeaderPaddingRight] := 2
		var_View:CountLockedColumns := 1
RETURN NIL

METHOD OCX_Exontrol1Error(Error,Description) CLASS MainDialog
	// Error event - An internal error occurs.
	OutputDebugString(String2Psz( "Error" ))
	OutputDebugString(String2Psz( AsString(Description) ))
RETURN NIL


oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:Mode := exSplitFixCascadeMode
oDCOCX_Exontrol1: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"
oDCOCX_Exontrol1:Select := "US\IA"
oDCOCX_Exontrol1:EndUpdate()

METHOD OCX_Exontrol1CreateView(View) CLASS MainDialog
	// CreateView event - A view has been created.
	local var_View as IView
	local var_Object as USUAL
	var_View := oDCOCX_Exontrol1:View
		var_View:EnsureVisibleColumn("Function")
		var_Object := var_View:Columns:[Item,"Function"]
RETURN NIL

METHOD OCX_Exontrol1Error(Error,Description) CLASS MainDialog
	// Error event - An internal error occurs.
	OutputDebugString(String2Psz( "Error" ))
	OutputDebugString(String2Psz( AsString(Description) ))
RETURN NIL


oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=")
oDCOCX_Exontrol1:Mode := exSplitFixCascadeMode
oDCOCX_Exontrol1: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"
oDCOCX_Exontrol1:Select := "US\MN"
oDCOCX_Exontrol1:EndUpdate()

METHOD OCX_Exontrol1CreateView(View) CLASS MainDialog
	// CreateView event - A view has been created.
	oDCOCX_Exontrol1:StatusBarLabel := AsString(oDCOCX_Exontrol1:FormatABC("`<b>` + ( value replace `\\` with ` </b><font ;6><off 4>` )",oDCOCX_Exontrol1:Name,nil,nil))
RETURN NIL

METHOD OCX_Exontrol1Error(Error,Description) CLASS MainDialog
	// Error event - An internal error occurs.
	OutputDebugString(String2Psz( "Error" ))
	OutputDebugString(String2Psz( AsString(Description) ))
RETURN NIL

METHOD OCX_Exontrol1ViewEndChanging(Operation) CLASS MainDialog
	// ViewEndChanging event - Occurs once the user is about to change the view.
	oDCOCX_Exontrol1:StatusBarLabel := AsString(oDCOCX_Exontrol1:FormatABC("`<b>` + ( value replace `\\` with ` </b><font ;6><off 4>` )",oDCOCX_Exontrol1:Name,nil,nil))
RETURN NIL


oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:StatusBarVisible := exStatusBarAnchorTop
oDCOCX_Exontrol1:StatusBarHeight := 24
oDCOCX_Exontrol1:Mode := exSplitFixCascadeMode
oDCOCX_Exontrol1: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"
oDCOCX_Exontrol1:Name := "Romania\Cluj\Baciu*"
oDCOCX_Exontrol1:EndUpdate()

METHOD OCX_Exontrol1CreateView(View) CLASS MainDialog
	// CreateView event - A view has been created.
	oDCOCX_Exontrol1:View:AutoSearch := false
RETURN NIL

METHOD OCX_Exontrol1Error(Error,Description) CLASS MainDialog
	// Error event - An internal error occurs.
	OutputDebugString(String2Psz( "Error" ))
	OutputDebugString(String2Psz( AsString(Description) ))
RETURN NIL


oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:Mode := exSplitFixCascadeMode
oDCOCX_Exontrol1: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"
oDCOCX_Exontrol1:Select := "US\AK"
oDCOCX_Exontrol1:EndUpdate()

METHOD OCX_Exontrol1CreateView(View) CLASS MainDialog
	// CreateView event - A view has been created.
	// Columns("StateCode").Visible = False
	local var_View as IView
	var_View := oDCOCX_Exontrol1:View
		var_View:ColumnAutoResize := true
		var_View:Columns:[Item,"CountryCode"]:Visible := false
RETURN NIL

METHOD OCX_Exontrol1Error(Error,Description) CLASS MainDialog
	// Error event - An internal error occurs.
	OutputDebugString(String2Psz( "Error" ))
	OutputDebugString(String2Psz( AsString(Description) ))
RETURN NIL

local var_Column as IColumn
local var_Items as IItems
local var_View as IView

oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:[ScrollPartVisible,exVScroll,exExtentThumbPart] := true
oDCOCX_Exontrol1:[ScrollPartVisible,exHScroll,exExtentThumbPart] := true
oDCOCX_Exontrol1:[ScrollPartVisible,exScroll,exExtentThumbPart] := true
oDCOCX_Exontrol1:ScrollWidth := 4
oDCOCX_Exontrol1:[Background,exVSBack] := RGB(240,240,240)
oDCOCX_Exontrol1:[Background,exVSThumb] := RGB(128,128,128)
oDCOCX_Exontrol1:ScrollHeight := 4
oDCOCX_Exontrol1:[Background,exHSBack] := oDCOCX_Exontrol1:[Background,exVSBack]
oDCOCX_Exontrol1:[Background,exHSThumb] := oDCOCX_Exontrol1:[Background,exVSThumb]
oDCOCX_Exontrol1:[Background,exScrollSizeGrip] := oDCOCX_Exontrol1:[Background,exVSBack]
oDCOCX_Exontrol1:[Background,exSplitBar] := RGB(196,196,196)
oDCOCX_Exontrol1:[Background,exCSplitBar] := oDCOCX_Exontrol1:[Background,exSplitBar]
oDCOCX_Exontrol1:[Background,exHSplitBar] := oDCOCX_Exontrol1:[Background,exSplitBar]
oDCOCX_Exontrol1:[Background,exSplitBarSize] := RGB(2,0,0)
oDCOCX_Exontrol1:EndUpdate()
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:Mode := exSplitFixCascadeMode
oDCOCX_Exontrol1: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"
oDCOCX_Exontrol1:Select := "US\AK"
oDCOCX_Exontrol1:[DefaultView,nil]:Columns:[Item,"CountryName"]:SortOrder := SortAscending
oDCOCX_Exontrol1:[DefaultView,nil]:NextView:Columns:[Item,"StateName"]:SortOrder := SortAscending
var_View := oDCOCX_Exontrol1:[DefaultView,nil]:NextView:NextView
	var_View:ColumnAutoResize := false
	var_Column := var_View:Columns:[Item,"Name"]
		var_Column:SortOrder := SortAscending
		var_Column:Width := 128
	var_Items := var_View:Items
		var_Items:[SelectItem,var_Items:[FindItem,"Anchorage","Name",nil]] := true
oDCOCX_Exontrol1:EndUpdate()

METHOD OCX_Exontrol1CreateView(View) CLASS MainDialog
	// CreateView event - A view has been created.
	// Columns("StateCode").Visible = False
	local var_View as IView
	var_View := oDCOCX_Exontrol1:View
		var_View:ColumnAutoResize := true
		var_View:Columns:[Item,"CountryCode"]:Visible := false
RETURN NIL

METHOD OCX_Exontrol1Error(Error,Description) CLASS MainDialog
	// Error event - An internal error occurs.
	OutputDebugString(String2Psz( "Error" ))
	OutputDebugString(String2Psz( AsString(Description) ))
RETURN NIL

local var_Column as IColumn
local var_View as IView

oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:Mode := exSplitEqualCascadeMode
oDCOCX_Exontrol1: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"
oDCOCX_Exontrol1:Select := "RO\CJ"
oDCOCX_Exontrol1:[DefaultView,nil]:Columns:[Item,"CountryName"]:SortOrder := SortAscending
oDCOCX_Exontrol1:[DefaultView,nil]:NextView:Columns:[Item,"StateName"]:SortOrder := SortAscending
var_View := oDCOCX_Exontrol1:[DefaultView,nil]:NextView:NextView
	var_View:BeginUpdate()
	var_View:ColumnAutoResize := false
	var_Column := var_View:Columns:[Item,"Name"]
		var_Column:Width := 128
		var_Column:SortOrder := SortAscending
	var_View:SingleSort := false
	var_View:AllowGroupBy := true
	var_View:Columns:[Item,"Status"]:SortOrder := SortDescending
	var_View:TreeColumnIndex := var_View:Columns:[Item,"Name"]:Index
	var_View:EndUpdate()
oDCOCX_Exontrol1:EndUpdate()

METHOD OCX_Exontrol1CreateView(View) CLASS MainDialog
	// CreateView event - A view has been created.
	// Columns("StateCode").Visible = False
	local var_View as IView
	var_View := oDCOCX_Exontrol1:View
		var_View:ColumnAutoResize := true
		var_View:Columns:[Item,"CountryCode"]:Visible := false
	oDCOCX_Exontrol1:StatusBarLabel := AsString(oDCOCX_Exontrol1:FormatABC("`<b>` + ( value replace `\\` with ` </b><font ;6><off 4>` )",oDCOCX_Exontrol1:Name,nil,nil))
RETURN NIL

METHOD OCX_Exontrol1Error(Error,Description) CLASS MainDialog
	// Error event - An internal error occurs.
	OutputDebugString(String2Psz( "Error" ))
	OutputDebugString(String2Psz( AsString(Description) ))
RETURN NIL

METHOD OCX_Exontrol1ViewEndChanging(Operation) CLASS MainDialog
	// ViewEndChanging event - Occurs once the user is about to change the view.
	oDCOCX_Exontrol1:StatusBarLabel := AsString(oDCOCX_Exontrol1:FormatABC("`<b>` + ( value replace `\\` with ` </b><font ;6><off 4>` )",oDCOCX_Exontrol1:Name,nil,nil))
	oDCOCX_Exontrol1:ExecuteContextMenu := 0
RETURN NIL


oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:AllowSplitView := exAllowOneSplitView
oDCOCX_Exontrol1:FitCascadeColumns := 3
oDCOCX_Exontrol1:Mode := exSplitEqualCascadeMode
oDCOCX_Exontrol1:StatusBarVisible := exStatusBarAnchorTop
oDCOCX_Exontrol1:StatusBarHeight := 24
oDCOCX_Exontrol1:[ScrollPartVisible,exVScroll,exExtentThumbPart] := true
oDCOCX_Exontrol1:[ScrollPartVisible,exHScroll,exExtentThumbPart] := true
oDCOCX_Exontrol1:[ScrollPartVisible,exScroll,exExtentThumbPart] := true
oDCOCX_Exontrol1:ScrollWidth := 4
oDCOCX_Exontrol1:[Background,exVSBack] := RGB(240,240,240)
oDCOCX_Exontrol1:[Background,exVSThumb] := RGB(128,128,128)
oDCOCX_Exontrol1:ScrollHeight := 4
oDCOCX_Exontrol1:[Background,exHSBack] := oDCOCX_Exontrol1:[Background,exVSBack]
oDCOCX_Exontrol1:[Background,exHSThumb] := oDCOCX_Exontrol1:[Background,exVSThumb]
oDCOCX_Exontrol1:[Background,exScrollSizeGrip] := oDCOCX_Exontrol1:[Background,exVSBack]
oDCOCX_Exontrol1:[Background,exSplitBar] := RGB(196,196,196)
oDCOCX_Exontrol1:[Background,exCSplitBar] := oDCOCX_Exontrol1:[Background,exSplitBar]
oDCOCX_Exontrol1:[Background,exHSplitBar] := oDCOCX_Exontrol1:[Background,exSplitBar]
oDCOCX_Exontrol1:[Background,exSplitBarSize] := RGB(2,0,0)
oDCOCX_Exontrol1: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"
oDCOCX_Exontrol1:Select := "US\AK"
oDCOCX_Exontrol1:ShowContextMenu := "`vlevels=` + vlevels + `,vlevel=` + vlevel + `,hlevels=` + hlevels + `,hlevel=` + hlevel + `,view=` + view "
oDCOCX_Exontrol1:SplitViewHeight := "256"
oDCOCX_Exontrol1:EndUpdate()

METHOD OCX_Exontrol1CreateView(View) CLASS MainDialog
	// CreateView event - A view has been created.
	// Columns("StateCode").Visible = False
	local var_View as IView
	var_View := oDCOCX_Exontrol1:View
		var_View:ColumnAutoResize := true
		var_View:Columns:[Item,"CountryCode"]:Visible := false
RETURN NIL

METHOD OCX_Exontrol1Error(Error,Description) CLASS MainDialog
	// Error event - An internal error occurs.
	OutputDebugString(String2Psz( "Error" ))
	OutputDebugString(String2Psz( AsString(Description) ))
RETURN NIL

METHOD OCX_Exontrol1ViewEndChanging(Operation) CLASS MainDialog
	// ViewEndChanging event - Occurs once the user is about to change the view.
	OutputDebugString(String2Psz( AsString(oDCOCX_Exontrol1:ExecuteContextMenu) ))
RETURN NIL


oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:Mode := exSplitFixCascadeMode
oDCOCX_Exontrol1:[Background,exSplitBar] := RGB(196,196,196)
oDCOCX_Exontrol1: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"
oDCOCX_Exontrol1:Select := "US\AK"
oDCOCX_Exontrol1:ShowContextMenu := "[debug]Popup(Item 1[id=1001],Item 2[id=1002],Item 3[id=1003]),[sep],Exit[def][id=1000]"
oDCOCX_Exontrol1:EndUpdate()

METHOD OCX_Exontrol1CreateView(View) CLASS MainDialog
	// CreateView event - A view has been created.
	// Columns("StateCode").Visible = False
	local var_View as IView
	var_View := oDCOCX_Exontrol1:View
		var_View:ColumnAutoResize := true
		var_View:Columns:[Item,"CountryCode"]:Visible := false
RETURN NIL

METHOD OCX_Exontrol1Error(Error,Description) CLASS MainDialog
	// Error event - An internal error occurs.
	OutputDebugString(String2Psz( "Error" ))
	OutputDebugString(String2Psz( AsString(Description) ))
RETURN NIL

METHOD OCX_Exontrol1ViewEndChanging(Operation) CLASS MainDialog
	// ViewEndChanging event - Occurs once the user is about to change the view.
	OutputDebugString(String2Psz( AsString(oDCOCX_Exontrol1:ExecuteContextMenu) ))
RETURN NIL


oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:Mode := exSplitFixCascadeMode
oDCOCX_Exontrol1:[Background,exSplitBar] := RGB(196,196,196)
oDCOCX_Exontrol1: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"
oDCOCX_Exontrol1:Select := "US\AK"
oDCOCX_Exontrol1:ShowContextMenu := "Popup(Item 1[id=1001],Item 2[id=1002],Item 3[id=1003]),[sep],Exit[def][id=1000]"
oDCOCX_Exontrol1:EndUpdate()

METHOD OCX_Exontrol1CreateView(View) CLASS MainDialog
	// CreateView event - A view has been created.
	// Columns("StateCode").Visible = False
	local var_View as IView
	var_View := oDCOCX_Exontrol1:View
		var_View:ColumnAutoResize := true
		var_View:Columns:[Item,"CountryCode"]:Visible := false
RETURN NIL

METHOD OCX_Exontrol1Error(Error,Description) CLASS MainDialog
	// Error event - An internal error occurs.
	OutputDebugString(String2Psz( "Error" ))
	OutputDebugString(String2Psz( AsString(Description) ))
RETURN NIL


oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:Mode := exAutoFitOnResizeClient | exSplitFixCascadeMode
oDCOCX_Exontrol1:[Background,exSplitBar] := RGB(196,196,196)
oDCOCX_Exontrol1: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"
oDCOCX_Exontrol1:Select := "US\AK"
oDCOCX_Exontrol1:EndUpdate()

METHOD OCX_Exontrol1CreateView(View) CLASS MainDialog
	// CreateView event - A view has been created.
	// Columns("StateCode").Visible = False
	local var_View as IView
	var_View := oDCOCX_Exontrol1:View
		var_View:ColumnAutoResize := true
		var_View:Columns:[Item,"CountryCode"]:Visible := false
RETURN NIL

METHOD OCX_Exontrol1Error(Error,Description) CLASS MainDialog
	// Error event - An internal error occurs.
	OutputDebugString(String2Psz( "Error" ))
	OutputDebugString(String2Psz( AsString(Description) ))
RETURN NIL


oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:Mode := exSplitFixCascadeMode
oDCOCX_Exontrol1:[Background,exSplitBar] := RGB(196,196,196)
oDCOCX_Exontrol1: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"
oDCOCX_Exontrol1:Select := "US\AK"
oDCOCX_Exontrol1:EndUpdate()

METHOD OCX_Exontrol1CreateView(View) CLASS MainDialog
	// CreateView event - A view has been created.
	oDCOCX_Exontrol1:View:ColumnAutoResize := true
RETURN NIL

METHOD OCX_Exontrol1Error(Error,Description) CLASS MainDialog
	// Error event - An internal error occurs.
	OutputDebugString(String2Psz( "Error" ))
	OutputDebugString(String2Psz( AsString(Description) ))
RETURN NIL


oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:[Background,exSplitBar] := RGB(196,196,196)
oDCOCX_Exontrol1:Mode := exAutoFitOnResizeClient | exDisableResizeCascadeColumns | exSplitFixCascadeMode
oDCOCX_Exontrol1: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"
oDCOCX_Exontrol1:Select := "US\AK"
oDCOCX_Exontrol1:EndUpdate()

METHOD OCX_Exontrol1Error(Error,Description) CLASS MainDialog
	// Error event - An internal error occurs.
	OutputDebugString(String2Psz( "Error" ))
	OutputDebugString(String2Psz( AsString(Description) ))
RETURN NIL


oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:[Background,exSplitBar] := RGB(196,196,196)
oDCOCX_Exontrol1:Mode := exSplitFixCascadeMode
oDCOCX_Exontrol1: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"
oDCOCX_Exontrol1:Select := "US\AK"
oDCOCX_Exontrol1:EndUpdate()

METHOD OCX_Exontrol1Error(Error,Description) CLASS MainDialog
	// Error event - An internal error occurs.
	OutputDebugString(String2Psz( "Error" ))
	OutputDebugString(String2Psz( AsString(Description) ))
RETURN NIL


oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:[Background,exSplitBar] := RGB(196,196,196)
oDCOCX_Exontrol1:DefColumnWidth := 96
oDCOCX_Exontrol1:Mode := exFixCascadeMode
oDCOCX_Exontrol1: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"
oDCOCX_Exontrol1:Select := "US\AK"
oDCOCX_Exontrol1:EndUpdate()

METHOD OCX_Exontrol1Error(Error,Description) CLASS MainDialog
	// Error event - An internal error occurs.
	OutputDebugString(String2Psz( "Error" ))
	OutputDebugString(String2Psz( AsString(Description) ))
RETURN NIL


oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:[Background,exSplitBar] := RGB(196,196,196)
oDCOCX_Exontrol1:Mode := exSplitEqualCascadeMode
oDCOCX_Exontrol1: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"
oDCOCX_Exontrol1:Select := "US\AK"
oDCOCX_Exontrol1:EndUpdate()

METHOD OCX_Exontrol1Error(Error,Description) CLASS MainDialog
	// Error event - An internal error occurs.
	OutputDebugString(String2Psz( "Error" ))
	OutputDebugString(String2Psz( AsString(Description) ))
RETURN NIL


oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:[Background,exSplitBar] := RGB(196,196,196)
oDCOCX_Exontrol1: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"
oDCOCX_Exontrol1:Select := "US\AK"
oDCOCX_Exontrol1:EndUpdate()

METHOD OCX_Exontrol1Error(Error,Description) CLASS MainDialog
	// Error event - An internal error occurs.
	OutputDebugString(String2Psz( "Error" ))
	OutputDebugString(String2Psz( AsString(Description) ))
RETURN NIL

local var_View as IView

oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:Mode := exSingleCascadeMode
var_View := oDCOCX_Exontrol1:[DefaultView,nil]
	var_View:DataSource := "Source=C:\Program Files\Exontrol\ExCascadeTree\Sample\Access\cities.accdb;Member=Select * FROM Cities Where CountryCode = 'RO' "
	var_View:AllowGroupBy := true
	var_View:SortBarVisible := true
	var_View:Columns:[Item,"StateCode"]:SortOrder := SortAscending
	var_View:Name := "Name"
oDCOCX_Exontrol1:Name := "Isaccea"
oDCOCX_Exontrol1:EndUpdate()

METHOD OCX_Exontrol1CreateView(View) CLASS MainDialog
	// CreateView event - A view has been created.
	oDCOCX_Exontrol1:StatusBarLabel := oDCOCX_Exontrol1:Name
RETURN NIL

METHOD OCX_Exontrol1Error(Error,Description) CLASS MainDialog
	// Error event - An internal error occurs.
	OutputDebugString(String2Psz( "Error" ))
	OutputDebugString(String2Psz( AsString(Description) ))
RETURN NIL

METHOD OCX_Exontrol1ViewEndChanging(Operation) CLASS MainDialog
	// ViewEndChanging event - Occurs once the user is about to change the view.
	oDCOCX_Exontrol1:StatusBarLabel := oDCOCX_Exontrol1:Name
RETURN NIL


oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:StatusBarVisible := exStatusBarAnchorTop
oDCOCX_Exontrol1:Mode := exSplitFixCascadeMode
oDCOCX_Exontrol1: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"
oDCOCX_Exontrol1:Select := "US\AK"
oDCOCX_Exontrol1:EndUpdate()

METHOD OCX_Exontrol1Error(Error,Description) CLASS MainDialog
	// Error event - An internal error occurs.
	OutputDebugString(String2Psz( "Error" ))
	OutputDebugString(String2Psz( AsString(Description) ))
RETURN NIL


oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:Mode := exSplitFixCascadeMode
oDCOCX_Exontrol1: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"
oDCOCX_Exontrol1:Select := "US\AK"
oDCOCX_Exontrol1:EndUpdate()

METHOD OCX_Exontrol1CreateView(View) CLASS MainDialog
	// CreateView event - A view has been created.
	local label as USUAL
	oDCOCX_Exontrol1:View:ColumnAutoResize := false
	label := oDCOCX_Exontrol1:FormatABC("`<b>Select = </b>` + value",oDCOCX_Exontrol1:Select,nil,nil)
	label := oDCOCX_Exontrol1:FormatABC("A + `<br>` + `<b>Name = </b>` + B replace `|` with ` `",label,oDCOCX_Exontrol1:Name,nil)
	oDCOCX_Exontrol1:StatusBarLabel := AsString(label)
RETURN NIL

METHOD OCX_Exontrol1Error(Error,Description) CLASS MainDialog
	// Error event - An internal error occurs.
	OutputDebugString(String2Psz( "Error" ))
	OutputDebugString(String2Psz( AsString(Description) ))
RETURN NIL

METHOD OCX_Exontrol1ViewEndChanging(Operation) CLASS MainDialog
	// ViewEndChanging event - Occurs once the user is about to change the view.
	local label as USUAL
	label := oDCOCX_Exontrol1:FormatABC("`<b>Select = </b>` + value",oDCOCX_Exontrol1:Select,nil,nil)
	label := oDCOCX_Exontrol1:FormatABC("A + `<br>` + `<b>Name = </b>` + B replace `|` with ` `",label,oDCOCX_Exontrol1:Name,nil)
	oDCOCX_Exontrol1:StatusBarLabel := AsString(label)
RETURN NIL

local dm1,dm2,dm3,ds as USUAL

oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:Mode := exSplitEqualCascadeMode
oDCOCX_Exontrol1:StatusBarVisible := 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 := oDCOCX_Exontrol1:FormatABC("A + `;` + B",ds,dm1,nil)
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 := oDCOCX_Exontrol1:FormatABC("A + ` >>> ` + B",ds,dm2,nil)
dm3 := "Member=Select * FROM Cities WHERE CountryCode IN (<%Parent.Parent.CountryCode%>) AND StateCode IN (<%Parent.StateCode%>);Tag=City;Name=Name"
ds := oDCOCX_Exontrol1:FormatABC("A + ` >>> ` + B",ds,dm3,nil)
oDCOCX_Exontrol1:DataSource := ds
oDCOCX_Exontrol1:Name := "Romania\Cluj\Baciu*"
oDCOCX_Exontrol1:EndUpdate()

METHOD OCX_Exontrol1CreateView(View) CLASS MainDialog
	// CreateView event - A view has been created.
	local var_View as IView
	local bColumnAutoResize,label as USUAL
	bColumnAutoResize := oDCOCX_Exontrol1:FormatABC("not(A = `City`)",oDCOCX_Exontrol1:View:Tag,nil,nil)
	var_View := oDCOCX_Exontrol1:View
		var_View:SingleSel := false
		var_View:ColumnAutoResize := false
	label := oDCOCX_Exontrol1:FormatABC("`<b>Select = </b>` + value",oDCOCX_Exontrol1:Select,nil,nil)
	label := oDCOCX_Exontrol1:FormatABC("A + `<br>` + `<b>Name = </b>` + B replace `|` with ` `",label,oDCOCX_Exontrol1:Name,nil)
	oDCOCX_Exontrol1:StatusBarLabel := AsString(label)
RETURN NIL

METHOD OCX_Exontrol1Error(Error,Description) CLASS MainDialog
	// Error event - An internal error occurs.
	OutputDebugString(String2Psz( "Error" ))
	OutputDebugString(String2Psz( AsString(Description) ))
RETURN NIL

METHOD OCX_Exontrol1ViewEndChanging(Operation) CLASS MainDialog
	// ViewEndChanging event - Occurs once the user is about to change the view.
	local label as USUAL
	label := oDCOCX_Exontrol1:FormatABC("`<b>Select = </b>` + value",oDCOCX_Exontrol1:Select,nil,nil)
	label := oDCOCX_Exontrol1:FormatABC("A + `<br>` + `<b>Name = </b>` + B replace `|` with ` `",label,oDCOCX_Exontrol1:Name,nil)
	oDCOCX_Exontrol1:StatusBarLabel := AsString(label)
RETURN NIL

local dm1,dm2,dm3,ds as USUAL

oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:Mode := exSplitEqualCascadeMode
oDCOCX_Exontrol1:StatusBarVisible := exStatusBarWordWrap | exStatusBarAnchorTop
oDCOCX_Exontrol1: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 := oDCOCX_Exontrol1:FormatABC("A + `;` + B",ds,dm1,nil)
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 := oDCOCX_Exontrol1:FormatABC("A + ` >>> ` + B",ds,dm2,nil)
dm3 := "Member=Select * FROM Cities WHERE CountryCode IN (<%Parent.Parent.CountryCode%>) AND StateCode IN (<%Parent.StateCode%>);Tag=City;Name=Name"
ds := oDCOCX_Exontrol1:FormatABC("A + ` >>> ` + B",ds,dm3,nil)
oDCOCX_Exontrol1:DataSource := ds
oDCOCX_Exontrol1:Select := "RO\CJ|D*"
oDCOCX_Exontrol1:EndUpdate()

METHOD OCX_Exontrol1CreateView(View) CLASS MainDialog
	// CreateView event - A view has been created.
	local bColumnAutoResize as USUAL
	bColumnAutoResize := oDCOCX_Exontrol1:FormatABC("not(A = `City`)",oDCOCX_Exontrol1:View:Tag,nil,nil)
	oDCOCX_Exontrol1:View:ColumnAutoResize := false
RETURN NIL

METHOD OCX_Exontrol1Error(Error,Description) CLASS MainDialog
	// Error event - An internal error occurs.
	OutputDebugString(String2Psz( "Error" ))
	OutputDebugString(String2Psz( AsString(Description) ))
RETURN NIL

METHOD OCX_Exontrol1ViewEndChanging(Operation) CLASS MainDialog
	// ViewEndChanging event - Occurs once the user is about to change the view.
	oDCOCX_Exontrol1:StatusBarLabel := oDCOCX_Exontrol1:Select
RETURN NIL

local dm1,dm2,dm3,ds as USUAL

oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:Mode := exSplitEqualCascadeMode
oDCOCX_Exontrol1:StatusBarVisible := exStatusBarAnchorBottom
ds := "Source=C:\Program Files\Exontrol\ExCascadeTree\Sample\Access\cities.accdb"
dm1 := "Member=Select * FROM Countries;Key=CountryCode;Tag=Country"
ds := oDCOCX_Exontrol1:FormatABC("A + `;` + B",ds,dm1,nil)
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 := oDCOCX_Exontrol1:FormatABC("A + ` >>> ` + B",ds,dm2,nil)
dm3 := "Member=Select * FROM Cities WHERE CountryCode IN (<%Parent.Parent.CountryCode%>) AND StateCode IN (<%Parent.StateCode%>);Tag=City"
ds := oDCOCX_Exontrol1:FormatABC("A + ` >>> ` + B",ds,dm3,nil)
oDCOCX_Exontrol1:DataSource := ds
oDCOCX_Exontrol1:Select := "RO\CJ"
oDCOCX_Exontrol1:EndUpdate()

METHOD OCX_Exontrol1CreateView(View) CLASS MainDialog
	// CreateView event - A view has been created.
	local var_View as IView
	local bColumnAutoResize,nWidth as USUAL
	oDCOCX_Exontrol1:StatusBarLabel := AsString(oDCOCX_Exontrol1: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>`",oDCOCX_Exontrol1:View:DataSource,nil,nil))
	bColumnAutoResize := oDCOCX_Exontrol1:FormatABC("not(A = `City`)",oDCOCX_Exontrol1:View:Tag,nil,nil)
	nWidth := oDCOCX_Exontrol1:FormatABC("A = `City` ? B : C",oDCOCX_Exontrol1:View:Tag,oDCOCX_Exontrol1:View:WidthToFit,oDCOCX_Exontrol1:View:Width)
	var_View := oDCOCX_Exontrol1:View
		var_View:ColumnAutoResize := false
		var_View:Width := nWidth
RETURN NIL

METHOD OCX_Exontrol1Error(Error,Description) CLASS MainDialog
	// Error event - An internal error occurs.
	OutputDebugString(String2Psz( "Error" ))
	OutputDebugString(String2Psz( AsString(Description) ))
RETURN NIL

local dm1,dm2,dm3,ds as USUAL

oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:StatusBarHeight := 58
oDCOCX_Exontrol1:StatusBarVisible := exStatusBarWordWrap | exStatusBarAnchorTop
ds := "Source=C:\Program Files\Exontrol\ExCascadeTree\Sample\Access\cities.accdb"
dm1 := "Member=Select * FROM Countries;Key=CountryCode;Tag=Country"
ds := oDCOCX_Exontrol1:FormatABC("A + `;` + B",ds,dm1,nil)
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 := oDCOCX_Exontrol1:FormatABC("A + ` >>> ` + B",ds,dm2,nil)
dm3 := "Member=Select * FROM Cities WHERE CountryCode IN (<%Parent.Parent.CountryCode%>) AND StateCode IN (<%Parent.StateCode%>);Tag=City"
ds := oDCOCX_Exontrol1:FormatABC("A + ` >>> ` + B",ds,dm3,nil)
oDCOCX_Exontrol1:DataSource := ds
oDCOCX_Exontrol1:EndUpdate()

METHOD OCX_Exontrol1Error(Error,Description) CLASS MainDialog
	// Error event - An internal error occurs.
	OutputDebugString(String2Psz( "Error" ))
	OutputDebugString(String2Psz( AsString(Description) ))
RETURN NIL

local var_View as IView
local dm,ds as USUAL

oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:StatusBarVisible := exStatusBarAnchorTop
oDCOCX_Exontrol1:StatusBarLabel := "<b>DataSource</b> could " + CHR(34) + "Data Source=...;Data Member=..." + CHR(34) + " or " + CHR(34) + "Source=...;Member=..." + CHR(34) + " "
oDCOCX_Exontrol1:DefColumnWidth := 336
ds := "Data Source=C:\Program Files\Exontrol\ExCascadeTree\Sample\Access\cities.accdb"
dm := "Data Member=Select * FROM Countries"
var_View := oDCOCX_Exontrol1:[DefaultView,nil]
	var_View:DataSource := oDCOCX_Exontrol1:FormatABC("A + `;` + B",ds,dm,nil)
	var_View:ColumnAutoResize := true
oDCOCX_Exontrol1:EndUpdate()

METHOD OCX_Exontrol1Error(Error,Description) CLASS MainDialog
	// Error event - An internal error occurs.
	OutputDebugString(String2Psz( "Error" ))
	OutputDebugString(String2Psz( AsString(Description) ))
RETURN NIL

local var_View as IView
local dm,ds as USUAL

oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:StatusBarVisible := exStatusBarAnchorTop
oDCOCX_Exontrol1:StatusBarLabel := "<b>DataSource</b> could " + CHR(34) + "Data Source=...;Data Member=..." + CHR(34) + " or " + CHR(34) + "Source=...;Member=..." + CHR(34) + " "
oDCOCX_Exontrol1:DefColumnWidth := 336
ds := "Data Source=C:\Program Files\Exontrol\ExCascadeTree\Sample\Access\cities.mdb"
dm := "Data Member=Select * FROM Countries"
var_View := oDCOCX_Exontrol1:[DefaultView,nil]
	var_View:DataSource := oDCOCX_Exontrol1:FormatABC("A + `;` + B",ds,dm,nil)
	var_View:ColumnAutoResize := true
oDCOCX_Exontrol1:EndUpdate()

METHOD OCX_Exontrol1Error(Error,Description) CLASS MainDialog
	// Error event - An internal error occurs.
	OutputDebugString(String2Psz( "Error" ))
	OutputDebugString(String2Psz( AsString(Description) ))
RETURN NIL

local var_View as IView
local ado as _Recordset

oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:StatusBarVisible := exStatusBarAnchorTop
oDCOCX_Exontrol1:StatusBarLabel := "<b>DataSource</b> could be string (Source/Member), ADO or DAO objects"
oDCOCX_Exontrol1:DefColumnWidth := 336
// Generate Source for 'Microsoft ActiveX Data Objects 6.1 Library(msado15.dll)' server from Tools\Automation Server...
ado := _Recordset{"ADODB.Recordset"}
	ado:Open("Countries","Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Program Files\Exontrol\ExCascadeTree\Sample\Access\cities.accdb",3,3,0)
var_View := oDCOCX_Exontrol1:[DefaultView,nil]
	var_View:DataSource := _Recordset{ado}
	var_View:ColumnAutoResize := true
oDCOCX_Exontrol1:EndUpdate()

METHOD OCX_Exontrol1Error(Error,Description) CLASS MainDialog
	// Error event - An internal error occurs.
	OutputDebugString(String2Psz( "Error" ))
	OutputDebugString(String2Psz( AsString(Description) ))
RETURN NIL

local var_View as IView
local ado as _Recordset

oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:StatusBarVisible := exStatusBarAnchorTop
oDCOCX_Exontrol1:StatusBarLabel := "<b>DataSource</b> could be string (Source/Member), ADO or DAO objects"
oDCOCX_Exontrol1:DefColumnWidth := 336
// Generate Source for 'Microsoft ActiveX Data Objects 6.1 Library(msado15.dll)' server from Tools\Automation Server...
ado := _Recordset{"ADODB.Recordset"}
	ado:Open("Countries","Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Program Files\Exontrol\ExCascadeTree\Sample\Access\cities.mdb",3,3,0)
var_View := oDCOCX_Exontrol1:[DefaultView,nil]
	var_View:DataSource := _Recordset{ado}
	var_View:ColumnAutoResize := true
oDCOCX_Exontrol1:EndUpdate()

METHOD OCX_Exontrol1Error(Error,Description) CLASS MainDialog
	// Error event - An internal error occurs.
	OutputDebugString(String2Psz( "Error" ))
	OutputDebugString(String2Psz( AsString(Description) ))
RETURN NIL

local dm,ds as USUAL

oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:StatusBarVisible := exStatusBarAnchorTop
oDCOCX_Exontrol1:StatusBarLabel := "<b>DataSource</b> could " + CHR(34) + "Data Source=...;Data Member=..." + CHR(34) + " or " + CHR(34) + "Source=...;Member=..." + CHR(34) + " "
oDCOCX_Exontrol1:DefColumnWidth := 336
ds := "Data Source=C:\Program Files\Exontrol\ExCascadeTree\Sample\Access\cities.accdb"
dm := "Data Member=Select * FROM Countries"
oDCOCX_Exontrol1:DataSource := oDCOCX_Exontrol1:FormatABC("A + `;` + B",ds,dm,nil)
oDCOCX_Exontrol1:View:ColumnAutoResize := true
oDCOCX_Exontrol1:EndUpdate()

METHOD OCX_Exontrol1Error(Error,Description) CLASS MainDialog
	// Error event - An internal error occurs.
	OutputDebugString(String2Psz( "Error" ))
	OutputDebugString(String2Psz( AsString(Description) ))
RETURN NIL

local dm,ds as USUAL

oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:StatusBarVisible := exStatusBarAnchorTop
oDCOCX_Exontrol1:StatusBarLabel := "<b>DataSource</b> could " + CHR(34) + "Data Source=...;Data Member=..." + CHR(34) + " or " + CHR(34) + "Source=...;Member=..." + CHR(34) + " "
oDCOCX_Exontrol1:DefColumnWidth := 336
ds := "Data Source=C:\Program Files\Exontrol\ExCascadeTree\Sample\Access\cities.mdb"
dm := "Data Member=Select * FROM Countries"
oDCOCX_Exontrol1:DataSource := oDCOCX_Exontrol1:FormatABC("A + `;` + B",ds,dm,nil)
oDCOCX_Exontrol1:View:ColumnAutoResize := true
oDCOCX_Exontrol1:EndUpdate()

METHOD OCX_Exontrol1Error(Error,Description) CLASS MainDialog
	// Error event - An internal error occurs.
	OutputDebugString(String2Psz( "Error" ))
	OutputDebugString(String2Psz( AsString(Description) ))
RETURN NIL

local ado as _Recordset

oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:StatusBarVisible := exStatusBarAnchorTop
oDCOCX_Exontrol1:StatusBarLabel := "<b>DataSource</b> could be string (Source/Member), ADO or DAO objects"
oDCOCX_Exontrol1:DefColumnWidth := 336
// Generate Source for 'Microsoft ActiveX Data Objects 6.1 Library(msado15.dll)' server from Tools\Automation Server...
ado := _Recordset{"ADODB.Recordset"}
	ado:Open("Countries","Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Program Files\Exontrol\ExCascadeTree\Sample\Access\cities.accdb",3,3,0)
oDCOCX_Exontrol1:DataSource := _Recordset{ado}
oDCOCX_Exontrol1:View:ColumnAutoResize := true
oDCOCX_Exontrol1:EndUpdate()

METHOD OCX_Exontrol1Error(Error,Description) CLASS MainDialog
	// Error event - An internal error occurs.
	OutputDebugString(String2Psz( "Error" ))
	OutputDebugString(String2Psz( AsString(Description) ))
RETURN NIL

local ado as _Recordset

oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:StatusBarVisible := exStatusBarAnchorTop
oDCOCX_Exontrol1:StatusBarLabel := "<b>DataSource</b> could be string (Source/Member), ADO or DAO objects"
oDCOCX_Exontrol1:DefColumnWidth := 336
// Generate Source for 'Microsoft ActiveX Data Objects 6.1 Library(msado15.dll)' server from Tools\Automation Server...
ado := _Recordset{"ADODB.Recordset"}
	ado:Open("Countries","Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Program Files\Exontrol\ExCascadeTree\Sample\Access\cities.mdb",3,3,0)
oDCOCX_Exontrol1:DataSource := _Recordset{ado}
oDCOCX_Exontrol1:View:ColumnAutoResize := true
oDCOCX_Exontrol1:EndUpdate()

METHOD OCX_Exontrol1Error(Error,Description) CLASS MainDialog
	// Error event - An internal error occurs.
	OutputDebugString(String2Psz( "Error" ))
	OutputDebugString(String2Psz( AsString(Description) ))
RETURN NIL

local var_View as IView
local xml as IXMLDOMDocument2

oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:StatusBarVisible := exStatusBarAnchorTop
oDCOCX_Exontrol1:StatusBarLabel := "<b>DataSource</b> could be a XML file name, a URL, an IStream, an IXMLDOMDocument"
oDCOCX_Exontrol1:DefColumnWidth := 336
var_View := oDCOCX_Exontrol1:[DefaultView,nil]
	// Generate Source for 'Microsoft XML, v3.0(msxml3.dll)' server from Tools\Automation Server...
	xml := IXMLDOMDocument2{"MSXML.DOMDocument"}
		xml:load("C:\Program Files\Exontrol\ExCascadeTree\Sample\Testing.xml")
	var_View:DataSource := IXMLDOMDocument2{xml}
	var_View:ColumnAutoResize := true
oDCOCX_Exontrol1:EndUpdate()

METHOD OCX_Exontrol1Error(Error,Description) CLASS MainDialog
	// Error event - An internal error occurs.
	OutputDebugString(String2Psz( "Error" ))
	OutputDebugString(String2Psz( AsString(Description) ))
RETURN NIL

local var_View as IView

oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:StatusBarVisible := exStatusBarAnchorTop
oDCOCX_Exontrol1:StatusBarLabel := "<b>DataSource</b> could be a XML file name, a URL, an IStream, an IXMLDOMDocument"
oDCOCX_Exontrol1:DefColumnWidth := 336
var_View := oDCOCX_Exontrol1:[DefaultView,nil]
	var_View:DataSource := "http://www.exontrol.net/testing.xml"
	var_View:ColumnAutoResize := true
oDCOCX_Exontrol1:EndUpdate()

METHOD OCX_Exontrol1Error(Error,Description) CLASS MainDialog
	// Error event - An internal error occurs.
	OutputDebugString(String2Psz( "Error" ))
	OutputDebugString(String2Psz( AsString(Description) ))
RETURN NIL

local xml as IXMLDOMDocument2

oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:StatusBarVisible := exStatusBarAnchorTop
oDCOCX_Exontrol1:StatusBarLabel := "<b>DataSource</b> could be a XML file name, a URL, an IStream, an IXMLDOMDocument"
oDCOCX_Exontrol1:DefColumnWidth := 336
// Generate Source for 'Microsoft XML, v3.0(msxml3.dll)' server from Tools\Automation Server...
xml := IXMLDOMDocument2{"MSXML.DOMDocument"}
	xml:load("C:\Program Files\Exontrol\ExCascadeTree\Sample\Testing.xml")
oDCOCX_Exontrol1:DataSource := IXMLDOMDocument2{xml}
oDCOCX_Exontrol1:View:ColumnAutoResize := true
oDCOCX_Exontrol1:EndUpdate()

METHOD OCX_Exontrol1Error(Error,Description) CLASS MainDialog
	// Error event - An internal error occurs.
	OutputDebugString(String2Psz( "Error" ))
	OutputDebugString(String2Psz( AsString(Description) ))
RETURN NIL


oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:StatusBarVisible := exStatusBarAnchorTop
oDCOCX_Exontrol1:StatusBarLabel := "<b>DataSource</b> could be a XML file name, a URL, an IStream, an IXMLDOMDocument"
oDCOCX_Exontrol1:DefColumnWidth := 336
oDCOCX_Exontrol1:DataSource := "http://www.exontrol.net/testing.xml"
oDCOCX_Exontrol1:View:ColumnAutoResize := true
oDCOCX_Exontrol1:EndUpdate()

METHOD OCX_Exontrol1CreateView(View) CLASS MainDialog
	// CreateView event - A view has been created.
	local var_Items as IItems
	local var_View as IView
	local k as USUAL
	var_View := oDCOCX_Exontrol1:View
		k := var_View:ParentView:[Value,nil]
		var_View:BeginUpdate()
		var_View:ColumnAutoResize := true
		var_View:Key := -1
		var_View:Columns:Add(AsString(k))
		var_Items := var_View:Items
			var_Items:AddItem(oDCOCX_Exontrol1:FormatABC("A + `-> Sub-Item 1`",k,nil,nil))
			var_Items:AddItem(oDCOCX_Exontrol1:FormatABC("A + `-> Sub-Item 2`",k,nil,nil))
			var_Items:AddItem(oDCOCX_Exontrol1:FormatABC("A + `-> Sub-Item 3`",k,nil,nil))
		var_View:EndUpdate()
RETURN NIL

METHOD OCX_Exontrol1ViewEndChanging(Operation) CLASS MainDialog
	// ViewEndChanging event - Occurs once the user is about to change the view.
	local var_Items as IItems
	OutputDebugString(String2Psz( "End" ))
	OutputDebugString(String2Psz( AsString(Operation) ))
	var_Items := oDCOCX_Exontrol1:View:Items
		OutputDebugString(String2Psz( "FocusItem" ))
		OutputDebugString(String2Psz( var_Items:[CellCaption,var_Items:FocusItem,0] ))
		OutputDebugString(String2Psz( "SelectedItem" ))
		OutputDebugString(String2Psz( var_Items:[CellCaption,var_Items:[SelectedItem,0],0] ))
RETURN NIL

METHOD OCX_Exontrol1ViewStartChanging(Operation) CLASS MainDialog
	// ViewStartChanging event - Occurs once the user is about to change the view.
	OutputDebugString(String2Psz( "Start" ))
	OutputDebugString(String2Psz( AsString(Operation) ))
RETURN NIL

local var_Items as IItems
local var_View as IView

oDCOCX_Exontrol1:BeginUpdate()
var_View := oDCOCX_Exontrol1:View
	var_View:BeginUpdate()
	var_View:ColumnAutoResize := true
	var_View:Columns:Add("Default")
	var_View:Key := 0
	var_View:LinesAtRoot := exLinesAtRoot
	var_Items := var_View:Items
		var_Items:AddItem("Item A")
		var_Items:[SelectItem,var_Items:AddItem("Item B")] := true
		var_Items:AddItem("Item C")
	var_View:EndUpdate()
oDCOCX_Exontrol1:EndUpdate()

local var_Items as IItems
local var_View as IView

oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:Mode := exSingleCascadeMode
var_View := oDCOCX_Exontrol1:View
	var_View:BeginUpdate()
	var_View:ColumnAutoResize := true
	var_View:Columns:Add("Default")
	var_View:Key := -1
	var_View:LinesAtRoot := exLinesAtRoot
	var_Items := var_View:Items
		var_Items:AddItem("Item A")
		var_Items:InsertItem(var_Items:AddItem("Item B"),nil,"Child")
		var_Items:AddItem("Item C")
	var_View:EndUpdate()
oDCOCX_Exontrol1:EndUpdate()

METHOD OCX_Exontrol1CreateView(View) CLASS MainDialog
	// CreateView event - A view has been created.
	local var_Items as IItems
	local var_View as IView
	local k as USUAL
	var_View := oDCOCX_Exontrol1:View
		k := var_View:ParentView:[Value,nil]
		var_View:BeginUpdate()
		var_View:ColumnAutoResize := true
		var_View:Columns:Add(AsString(k))
		var_Items := var_View:Items
			var_Items:AddItem(oDCOCX_Exontrol1:FormatABC("A + `-> Sub-Item 1`",k,nil,nil))
			var_Items:AddItem(oDCOCX_Exontrol1:FormatABC("A + `-> Sub-Item 2`",k,nil,nil))
			var_Items:AddItem(oDCOCX_Exontrol1:FormatABC("A + `-> Sub-Item 3`",k,nil,nil))
		var_View:EndUpdate()
RETURN NIL

local var_Items as IItems
local var_View as IView

oDCOCX_Exontrol1:BeginUpdate()
var_View := oDCOCX_Exontrol1:View
	var_View:BeginUpdate()
	var_View:ColumnAutoResize := true
	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")] := true
		var_Items:AddItem("Item C")
	var_View:EndUpdate()
oDCOCX_Exontrol1:EndUpdate()

oDCOCX_Exontrol1:BackColor := RGB(240,240,240)