ExCascadeTree How-To Questions in Visual FoxPro 9

101	Generates a PDF document on a single A0 page with no margins * CreateView event - A view has been created. * LPARAMETERS View with thisform.CascadeTree1 bSingle = .FormatABC("value > 0 ? 0 : -1",.View.Index) bColumnAutoResize = .FormatABC("value = `City` ? 0 : -1",.View.Tag) with .View .ColumnAutoResize = bColumnAutoResize .SingleSel = bSingle endwith endwith * Error event - An internal error occurs. * LPARAMETERS Error, Description with thisform.CascadeTree1 DEBUGOUT( "Error" ) DEBUGOUT( Description ) endwith with thisform.CascadeTree1 .BeginUpdate .Mode = 515 && CascadeModeEnum.exAutoFitOnResizeClient Or CascadeModeEnum.exSplitFixCascadeMode var_s = "locktype=1;Source=C:\Program Files\Exontrol\ExCascadeTree\Sample\Access\cities.accdb;Member=Select * FROM Countries;Key=CountryC" var_s = var_s + "ode;Tag=Country;Name=CountryName >>> Member=Select * FROM States WHERE CountryCode IN (<%Parent.CountryCode%>);Key=StateCode;Nam" var_s = var_s + "e=StateName;Tag=State \|\|\| Member=Select * FROM Cities WHERE CountryCode IN (<%Parent.CountryCode%>);Tag=City;Name=Name >>> Membe" var_s = var_s + "r=Select * FROM Cities WHERE CountryCode IN (<%Parent.Parent.CountryCode%>) AND StateCode IN (<%Parent.StateCode%>);Tag=City;Nam" var_s = var_s + "e=Name" .DataSource = var_s .Select = "US\AK" .EndUpdate var_CopyTo = .View.CopyTo("c:/temp/sample.pdf\|33.11 in x 46.81 in\|0 0 0 0\|single") endwith
100	Generates a PDF document that scales the content proportionally by 75% using B3 pages (default margins) * CreateView event - A view has been created. * LPARAMETERS View with thisform.CascadeTree1 bSingle = .FormatABC("value > 0 ? 0 : -1",.View.Index) bColumnAutoResize = .FormatABC("value = `City` ? 0 : -1",.View.Tag) with .View .ColumnAutoResize = bColumnAutoResize .SingleSel = bSingle endwith endwith * Error event - An internal error occurs. * LPARAMETERS Error, Description with thisform.CascadeTree1 DEBUGOUT( "Error" ) DEBUGOUT( Description ) endwith with thisform.CascadeTree1 .BeginUpdate .Mode = 515 && CascadeModeEnum.exAutoFitOnResizeClient Or CascadeModeEnum.exSplitFixCascadeMode var_s = "locktype=1;Source=C:\Program Files\Exontrol\ExCascadeTree\Sample\Access\cities.accdb;Member=Select * FROM Countries;Key=CountryC" var_s = var_s + "ode;Tag=Country;Name=CountryName >>> Member=Select * FROM States WHERE CountryCode IN (<%Parent.CountryCode%>);Key=StateCode;Nam" var_s = var_s + "e=StateName;Tag=State \|\|\| Member=Select * FROM Cities WHERE CountryCode IN (<%Parent.CountryCode%>);Tag=City;Name=Name >>> Membe" var_s = var_s + "r=Select * FROM Cities WHERE CountryCode IN (<%Parent.Parent.CountryCode%>) AND StateCode IN (<%Parent.StateCode%>);Tag=City;Nam" var_s = var_s + "e=Name" .DataSource = var_s .Select = "US\AK" .EndUpdate var_CopyTo = .View.CopyTo("c:/temp/sample.pdf\|6.93 in x 9.84 in\|\|75%") endwith
99	Generates a PDF document that fits the content exactly to 3 A4 pages wide by 2 pages tall (default margins) * CreateView event - A view has been created. * LPARAMETERS View with thisform.CascadeTree1 bSingle = .FormatABC("value > 0 ? 0 : -1",.View.Index) bColumnAutoResize = .FormatABC("value = `City` ? 0 : -1",.View.Tag) with .View .ColumnAutoResize = bColumnAutoResize .SingleSel = bSingle endwith endwith * Error event - An internal error occurs. * LPARAMETERS Error, Description with thisform.CascadeTree1 DEBUGOUT( "Error" ) DEBUGOUT( Description ) endwith with thisform.CascadeTree1 .BeginUpdate .Mode = 515 && CascadeModeEnum.exAutoFitOnResizeClient Or CascadeModeEnum.exSplitFixCascadeMode var_s = "locktype=1;Source=C:\Program Files\Exontrol\ExCascadeTree\Sample\Access\cities.accdb;Member=Select * FROM Countries;Key=CountryC" var_s = var_s + "ode;Tag=Country;Name=CountryName >>> Member=Select * FROM States WHERE CountryCode IN (<%Parent.CountryCode%>);Key=StateCode;Nam" var_s = var_s + "e=StateName;Tag=State \|\|\| Member=Select * FROM Cities WHERE CountryCode IN (<%Parent.CountryCode%>);Tag=City;Name=Name >>> Membe" var_s = var_s + "r=Select * FROM Cities WHERE CountryCode IN (<%Parent.Parent.CountryCode%>) AND StateCode IN (<%Parent.StateCode%>);Tag=City;Nam" var_s = var_s + "e=Name" .DataSource = var_s .Select = "US\AK" .EndUpdate var_CopyTo = .View.CopyTo("c:/temp/sample.pdf\|\|\|3 x 2f") endwith
98	Generates a PDF document that fits the content to 3 A3-landscape pages wide by 2 pages tall (custom margins) * CreateView event - A view has been created. * LPARAMETERS View with thisform.CascadeTree1 bSingle = .FormatABC("value > 0 ? 0 : -1",.View.Index) bColumnAutoResize = .FormatABC("value = `City` ? 0 : -1",.View.Tag) with .View .ColumnAutoResize = bColumnAutoResize .SingleSel = bSingle endwith endwith * Error event - An internal error occurs. * LPARAMETERS Error, Description with thisform.CascadeTree1 DEBUGOUT( "Error" ) DEBUGOUT( Description ) endwith with thisform.CascadeTree1 .BeginUpdate .Mode = 515 && CascadeModeEnum.exAutoFitOnResizeClient Or CascadeModeEnum.exSplitFixCascadeMode var_s = "locktype=1;Source=C:\Program Files\Exontrol\ExCascadeTree\Sample\Access\cities.accdb;Member=Select * FROM Countries;Key=CountryC" var_s = var_s + "ode;Tag=Country;Name=CountryName >>> Member=Select * FROM States WHERE CountryCode IN (<%Parent.CountryCode%>);Key=StateCode;Nam" var_s = var_s + "e=StateName;Tag=State \|\|\| Member=Select * FROM Cities WHERE CountryCode IN (<%Parent.CountryCode%>);Tag=City;Name=Name >>> Membe" var_s = var_s + "r=Select * FROM Cities WHERE CountryCode IN (<%Parent.Parent.CountryCode%>) AND StateCode IN (<%Parent.StateCode%>);Tag=City;Nam" var_s = var_s + "e=Name" .DataSource = var_s .Select = "US\AK" .EndUpdate var_CopyTo = .View.CopyTo("c:/temp/sample.pdf\|16.54 in x 11.69 in\|5 mm 5 mm 5 mm 5 mm\|3 x 2") endwith
97	Generates a PDF document that fits the content to 2 Letter pages tall, automatically determining the number of pages wide (default margins) * CreateView event - A view has been created. * LPARAMETERS View with thisform.CascadeTree1 bSingle = .FormatABC("value > 0 ? 0 : -1",.View.Index) bColumnAutoResize = .FormatABC("value = `City` ? 0 : -1",.View.Tag) with .View .ColumnAutoResize = bColumnAutoResize .SingleSel = bSingle endwith endwith * Error event - An internal error occurs. * LPARAMETERS Error, Description with thisform.CascadeTree1 DEBUGOUT( "Error" ) DEBUGOUT( Description ) endwith with thisform.CascadeTree1 .BeginUpdate .Mode = 515 && CascadeModeEnum.exAutoFitOnResizeClient Or CascadeModeEnum.exSplitFixCascadeMode var_s = "locktype=1;Source=C:\Program Files\Exontrol\ExCascadeTree\Sample\Access\cities.accdb;Member=Select * FROM Countries;Key=CountryC" var_s = var_s + "ode;Tag=Country;Name=CountryName >>> Member=Select * FROM States WHERE CountryCode IN (<%Parent.CountryCode%>);Key=StateCode;Nam" var_s = var_s + "e=StateName;Tag=State \|\|\| Member=Select * FROM Cities WHERE CountryCode IN (<%Parent.CountryCode%>);Tag=City;Name=Name >>> Membe" var_s = var_s + "r=Select * FROM Cities WHERE CountryCode IN (<%Parent.Parent.CountryCode%>) AND StateCode IN (<%Parent.StateCode%>);Tag=City;Nam" var_s = var_s + "e=Name" .DataSource = var_s .Select = "US\AK" .EndUpdate var_CopyTo = .View.CopyTo("c:/temp/sample.pdf\|8.50 in x 11.00 in\|\|x 2") endwith
96	Generates a PDF document that fits the content to 1 page wide and as many A4 pages tall as required (default margins) * CreateView event - A view has been created. * LPARAMETERS View with thisform.CascadeTree1 bSingle = .FormatABC("value > 0 ? 0 : -1",.View.Index) bColumnAutoResize = .FormatABC("value = `City` ? 0 : -1",.View.Tag) with .View .ColumnAutoResize = bColumnAutoResize .SingleSel = bSingle endwith endwith * Error event - An internal error occurs. * LPARAMETERS Error, Description with thisform.CascadeTree1 DEBUGOUT( "Error" ) DEBUGOUT( Description ) endwith with thisform.CascadeTree1 .BeginUpdate .Mode = 515 && CascadeModeEnum.exAutoFitOnResizeClient Or CascadeModeEnum.exSplitFixCascadeMode var_s = "locktype=1;Source=C:\Program Files\Exontrol\ExCascadeTree\Sample\Access\cities.accdb;Member=Select * FROM Countries;Key=CountryC" var_s = var_s + "ode;Tag=Country;Name=CountryName >>> Member=Select * FROM States WHERE CountryCode IN (<%Parent.CountryCode%>);Key=StateCode;Nam" var_s = var_s + "e=StateName;Tag=State \|\|\| Member=Select * FROM Cities WHERE CountryCode IN (<%Parent.CountryCode%>);Tag=City;Name=Name >>> Membe" var_s = var_s + "r=Select * FROM Cities WHERE CountryCode IN (<%Parent.Parent.CountryCode%>) AND StateCode IN (<%Parent.StateCode%>);Tag=City;Nam" var_s = var_s + "e=Name" .DataSource = var_s .Select = "US\AK" .EndUpdate var_CopyTo = .View.CopyTo("c:/temp/sample.pdf\|\|\|1 x") endwith
95	Generates a PDF document on a single A4 page (default margins) * CreateView event - A view has been created. * LPARAMETERS View with thisform.CascadeTree1 bSingle = .FormatABC("value > 0 ? 0 : -1",.View.Index) bColumnAutoResize = .FormatABC("value = `City` ? 0 : -1",.View.Tag) with .View .ColumnAutoResize = bColumnAutoResize .SingleSel = bSingle endwith endwith * Error event - An internal error occurs. * LPARAMETERS Error, Description with thisform.CascadeTree1 DEBUGOUT( "Error" ) DEBUGOUT( Description ) endwith with thisform.CascadeTree1 .BeginUpdate .Mode = 515 && CascadeModeEnum.exAutoFitOnResizeClient Or CascadeModeEnum.exSplitFixCascadeMode var_s = "locktype=1;Source=C:\Program Files\Exontrol\ExCascadeTree\Sample\Access\cities.accdb;Member=Select * FROM Countries;Key=CountryC" var_s = var_s + "ode;Tag=Country;Name=CountryName >>> Member=Select * FROM States WHERE CountryCode IN (<%Parent.CountryCode%>);Key=StateCode;Nam" var_s = var_s + "e=StateName;Tag=State \|\|\| Member=Select * FROM Cities WHERE CountryCode IN (<%Parent.CountryCode%>);Tag=City;Name=Name >>> Membe" var_s = var_s + "r=Select * FROM Cities WHERE CountryCode IN (<%Parent.Parent.CountryCode%>) AND StateCode IN (<%Parent.StateCode%>);Tag=City;Nam" var_s = var_s + "e=Name" .DataSource = var_s .Select = "US\AK" .EndUpdate var_CopyTo = .View.CopyTo("c:/temp/sample.pdf\|\|\|single") endwith
89	How can I replace or add an icon at runtime * CreateView event - A view has been created. * LPARAMETERS View with thisform.CascadeTree1 with .View .EnsureVisibleColumn("Function") with .Columns.Item("Function") endwith .Columns.Item(0).Def(0) = .T. endwith endwith * Error event - An internal error occurs. * LPARAMETERS Error, Description with thisform.CascadeTree1 DEBUGOUT( "Error" ) DEBUGOUT( Description ) endwith with thisform.CascadeTree1 .BeginUpdate .ImageSize = 16 var_s = "gAAAABgYACEHgUJFEEAAWhUJCEJEEJggEhMCYEXjUbjkJQECj8gj8hAEjkshYEpk8kf8ClsulsvAExmcvf83js5nU7nkCeEcn8boMaocXosCB9Hn09pkzcEuoL/fE+Ok" var_s = var_s + "YB0gB9YhIHrddgVcr9aktZADAD8+P8CgIA==" .ReplaceIcon(var_s) .ReplaceIcon("C:\images\favicon.ico",0) with .VisualAppearance var_s1 = "gBFLBCJwBAEHhEJAAEhABUYCg6AADACAxRDgMQBQKAAzQFAYbhkGCGAAGMZxRgmFgAQhFcZQSKUOQTDKMIziYBYfgkMIgSbJUgDGAkRRdDSOYDmGQYDiCIoRShOMIjHL" var_s1 = var_s1 + "UXxtDaIZwhEAoJb+RgAUY/cTzaAEUwHHiTKInaCQShsFYJUJAdRURQ9EwvCIZBpEWwLChENQwWLCNj2TScBwjCyqbale45ViqdoDU5EUiXJJ8ZxnECfYyrGjaMpCeKBU" var_s1 = var_s1 + "rGYTVRBIMxLLSia5oeJqMrnBpNVrIUgXCAGFwHK6BcauXIIDp6XoWWRbAAWDpVVzNNC3YzkCIceADHKiXxmVz4JLdGZ1QTGID2XaYaxWK4oZjsVSc4KDHbETbHFi9Fo3" var_s1 = var_s1 + "NaaxGisew+GYc4HlCR5NAAAIIEkQJSGMOgdE4RhYDwJJsAaAYQgmPpolCWgSCiBJzjcEIAkQXIBm8d5UhOQgCDUIBDDJDhgggJgKgKYJIDSVoDk8KBFF4OohEMZgWDsY" var_s1 = var_s1 + "YDj4GoGmGSB2B6B5iAiBgYDsYRjGSbIJo4RgqDuIpIAoLoLmMCJGDKDJjJiLA7xqUAAgGTwYnYPoPmQCQGEKEJkEkFg9gGY44BoRoSmSSQ2EKEggHgRhShSZRJFYVoVm" var_s1 = var_s1 + "WCRmFKFAgGOTheheZgJgYYoYmYSYWGaF4lkMMJ0hqZpJjYbobmcCZGHKHJmjmJh0h2Z4JmYcIaE8WZ2H6H5oAoBoCiCaBKBYfdjGoJoKiKaJKDaDojmkChGgmIgpCoVo" var_s1 = var_s1 + "WiWaJZiSd4mmmSh2h6J5qAqBoiiiaY5iSeIpmqComiqKpqkqNouiuah6hqMIsmsSpWiuGhP1kOoumuSp2j6L5sAsBo54gKwWkaMZsgsJpKjKbJLDaRYxYWRpSjSbIZiS" var_s1 = var_s1 + "e41m2CxmlqNptksdpejebR5iSfI4m4S4W16boLiaao6m5fJ9jubwLkaco8m8S5WnaPZunuOp4j6b5Lnac4SA0PAGlgP4wEwFwGkGcIMCcCpCnCCxiA8NYAAmMJfkSbhF" var_s1 = var_s1 + "CcFpFnGDBnBqRpUhuEwTDeZ5lHCfw6HIQxLCaAxygyJwqgGcATE4FA6hWY4tjEAAQBAgIA==" .Add(4,var_s1) endwith .BackColorHeader = 0x4c6c6c6 .SelBackColor = 0x4000000 .SelForeColor = RGB(0,0,1) .Object.Background(20) = .SelBackColor && 0x14 .Object.Background(21) = .SelForeColor && 0x15 .Object.Background(26) = .BackColor && 0x8 Or BackgroundPartEnum.exSplitBar .Object.Background(27) = .ForeColor && 0x9 Or BackgroundPartEnum.exSplitBar .Object.Background(32) = -1 && 0x20 .Object.Background(0) = 0x4000000 && 0x0 .Object.Background(41) = 0x4010101 .Object.Background(1) = 0x40000ff && 0x1 .HeaderAppearance = 4 .BackColorSortBar = .BackColor .BackColorLevelHeader = .BackColor .Mode = 3 var_s2 = "Source=C:\Program Files\Exontrol\ExCascadeTree\Sample\Access\cities.accdb;Member=Select * FROM Countries;Key=CountryCode;Tag=Cou" var_s2 = var_s2 + "ntry;Name=CountryName >>> Member=Select * FROM States WHERE CountryCode IN (<%Parent.CountryCode%>);Key=StateCode;Name=StateName" var_s2 = var_s2 + ";Tag=State \|\|\| Member=Select * FROM Cities WHERE CountryCode IN (<%Parent.CountryCode%>);Tag=City;Name=Name >>> Member=Select * " var_s2 = var_s2 + "FROM Cities WHERE CountryCode IN (<%Parent.Parent.CountryCode%>) AND StateCode IN (<%Parent.StateCode%>);Tag=City;Name=Name" .DataSource = var_s2 .Select = "US\MN" .EndUpdate endwith
80	Shows the tooltip of the object moved relative to its default position * CreateView event - A view has been created. * LPARAMETERS View with thisform.CascadeTree1 bSingle = .FormatABC("value > 0 ? 0 : -1",.View.Index) bColumnAutoResize = .FormatABC("value = `City` ? 0 : -1",.View.Tag) with .View .ColumnAutoResize = bColumnAutoResize .SingleSel = bSingle endwith endwith * MouseMove event - Occurs when the user moves the mouse. * LPARAMETERS Button, Shift, X, Y with thisform.CascadeTree1 .ShowToolTip("<null>","<null>",Null,"+8","+8") endwith with thisform.CascadeTree1 .BeginUpdate .Mode = 515 && CascadeModeEnum.exAutoFitOnResizeClient Or CascadeModeEnum.exSplitFixCascadeMode var_s = "Source=C:\Program Files\Exontrol\ExCascadeTree\Sample\Access\cities.accdb;Member=Select * FROM Countries;Key=CountryCode;Tag=Cou" var_s = var_s + "ntry;Name=CountryName >>> Member=Select * FROM States WHERE CountryCode IN (<%Parent.CountryCode%>);Key=StateCode;Name=StateName" var_s = var_s + ";Tag=State \|\|\| Member=Select * FROM Cities WHERE CountryCode IN (<%Parent.CountryCode%>);Tag=City;Name=Name >>> Member=Select * " var_s = var_s + "FROM Cities WHERE CountryCode IN (<%Parent.Parent.CountryCode%>) AND StateCode IN (<%Parent.StateCode%>);Tag=City;Name=Name" .DataSource = var_s .EndUpdate endwith
79	ImageSize property on 32 (specifies the size of control' icons/images/check-boxes/radio-buttons) * CreateView event - A view has been created. * LPARAMETERS View *** Items.ItemHeight(0) = View.DefaultItemHeight *** FilterBarFont.Size = Me.Font.Size *** ToolTipFont.Size = Me.Font.Size with thisform.CascadeTree1 with .View .DefaultItemHeight = 36 .HeaderHeight = .DefaultItemHeight .SortBarHeight = .DefaultItemHeight .Indent = 26 .CheckImage(0) = 16777216 .CheckImage(1) = 33554432 .CheckImage(2) = 50331648 .EnsureVisibleColumn("Function") with .Columns.Item("Function") endwith .Columns.Item(0).Def(0) = .T. endwith endwith * Error event - An internal error occurs. * LPARAMETERS Error, Description with thisform.CascadeTree1 DEBUGOUT( "Error" ) DEBUGOUT( Description ) endwith with thisform.CascadeTree1 .BeginUpdate .ImageSize = 32 .Font.Size = 16 var_s = "gBJJgBAIDAAEg4AEEKAD/hz/EMNh8TIRNGwAjEZAEXjAojKAjMLjABhkaABAk0plUrlktl0vmExmUzmk1m03nE5nU7nk9miAoE+oVDolFo1HpFJpU5h8Sf9OqFNqUOqN" var_s = var_s + "UqdPq9VrFWrlbr1QpdhAFAkFis1ntFptVrtkrpszrNvmVxqk3uVtm1kmF3sdBvF/wGBmV+j9BYGHwWJulfxdax2NyFdx2JlV6l9Nw7AAGZymdz2Cy2GxErvWcz9ivlwy" var_s = var_s + "V21cuxugwktzGIzmvwtl0+53U5y0a0Wazmmyu/3dCyOMyXHx/J5nIr9q3uyqnBxFN3G46ma4vb7mD2Ng4nZze00fDkHC7t7us2rOX5tguetpHRlmz4HVqnXk1PjHO+CM" var_s = var_s + "Po9MBMC+j2vC8j7wS8cFNI4kBo05UIvfCT/NsnsApU+0Fqg/T+oy/kPxC0sEQfErKQK96+w28UWRI8UGvO8sTLS9r2PWmsMJTDTask3CsIbIEQRA3shOXEEAO/GclJ9F" var_s = var_s + "EKrrA8FRbKMXRIlb0JxCkjS1LMswhCcvuel0cv26cSMa8Ufx+2sQwhEUoSXOCjSbLcnxjKc7sdKUVyq28NtVI71P9P7JxtQEapjQ6fzfM8zPfNE2PhIsLL63E40slk5y" var_s = var_s + "7N89LcyU9SvMb3SdUc6VJLj5VLVLfO/PS9KzNFHUa/0XyBD0dxlS9cxhMlTRSoNXypPErWDPyfNS+MwprRNO0FD8wVVZ1AI08URwVRjtJ1WCn21QkkUrXVLVPQS/XIkF" var_s = var_s + "gTxT9iONZ9xVTdq+L1eKg3kkF6Upe68XtfV51/MtrVjBlwYFL1ev8y1/P6/lyzzYl02wntj0RVFmS1Qa+M5as93QxEUW9e993rfmQ2+vy65M/mL1lhl/2bj2ByVduMtN" var_s = var_s + "hCJT9hdz41nN14Ld12Z9UjfI/oUAaGseiw6+uFLLhcVabJOS5RqOE0BHlZ5VnEr5fOMs3st+aa/bbRzrJGV51Y0b0DbqaWXZD90hIsPbjWu52+6Wyadpe66hhO+P/Xio" var_s = var_s + "W5rD8ZbrUZuVg6n1dsE/cXmewu1m9PVwnd35/nueXho/NaJzmjc61W76esuT77eG8pTquy9TwWH8LEzG8RDfFalx3Gcfvna9rvG/cptGLd9tuI6TZOP5Fiqi99vea+X4" var_s = var_s + "VRcBq/JZZtVQ9cwSs5lsXE372+a9z7PbfB3VVqHyvMctLto8uob6eV0m/cD6MN2v+T33t6sBut42vdv2bJ8a997x2maFJfK+qArbGJPEKE+1qTflMsIdW/GCJX17KcT6" var_s = var_s + "/czr/X+u1g29B7j/4BQfWkkx4zIHisjhPCmE0K4SwtXM+d4BvHRwNZOoBph9IJvPek9d40FoMJxf691jj2ywQQcHEWET4XJwkTszlVqm2GokewxtBT1DpQjRxDN0rUVD" var_s = var_s + "NKdC3lb6tzNOwh6upMSSYfv4YBCl/bsn9PxiFCEo7SI6Obc9HeOrnY8x4jtHtdpN4GRbaorhsbu18Pph5CiHymI0RpSXGJ/z2oUOxYxG858AyiI+bfJtuTcG5yelBJyT" var_s = var_s + "8okhqFd4a5yxL0rvulYtKCsZiWxWkc1s1cRoxxwhA31DLE0mR9l9HqX8fJgTDmFMVH0MIsRzVYnwnMi1dyzmhLt2kS2pxIiU62Wj5ptQGlSYFakLonTUJNLKaM5Wzlff" var_s = var_s + "EkuFkk5wTrhVO2eE7G6lJhxFFYUZ55zmn0WuBCD4pzhirFCKkbomsOoIYmZx5p90LoYWGPdD5g0QmJRKYxbZ6zYoVQ2jVGylSak7KSkFH6RSjpHKFuU+YMyNo5SulkC6" var_s = var_s + "I0vonTCitMXPoEpVS2H5FQfEqp2R1opIgAEkJISYARTCukOhmPNI5Ex/wzGHUsicMwA1LHgQ90Y/KpoQHAD+pB/R4NzIaMAB9Xaw1gqaAOsh/A/ptIkWUfhGK1kZH8Rg" var_s = var_s + "H5GqvgArqRmt4AAPrTroRofBGADkqr6Rmu4D7CEaHARiwpJrEEZsXXwlVjyMWRsaRqwdkLGNBABZmytmyMnaINZqyVpLR2ftKAAAdd6h2osbaskdiq4EZtgSmyNcbVWR" var_s = var_s + "JNXe3AA7REar3b0stlAAXBtoRmvJGLjEYAHUWsFcwCD/rnaop9aEICMAPdK5hT6xpeuzdOtAgKuJeGfdq6ggEbkTvAP+p9UCHXrvKkcgIA==" .Images(var_s) with .VisualAppearance var_s1 = "gBFLBCJwBAEHhEJAAEhABfICg6AADACAxRDgMQBQKAAzQFAYbhkGCGAAGMZxRgmFgAQhFcZQSKUOQTDKMIziaQAGgkNQwCSLIwjNIsBxPFKVQChEYxSjKA40SJNUgyj6" var_s1 = var_s1 + "CCY+QLIE5PfQgAL9I6eJABCCSQKkYx0HScRiwPBIbAZAYhCZqaKhWgkKI/WBQIABRDVLx5ESiLRtKy7Mq2bpvXBcNxXHalaztO68LxvKyqHb5fJ/PpgL4YHgmC4NQ7EM" var_s1 = var_s1 + "RwF6rfbyfZ7Xg/ORPTijZ4sdzMHTzJyscx3HqfaBoOaZU5eMLceTUMofHIndxCcasPbsOatVqjG5sYjcGC3La9cz3Pq/bpuDCbMxuaK1TrYXr1TTrcofBDldAxXRKDxR" var_s1 = var_s1 + "DWVhLnYOw9i6XxzjuXprCaOoKB6EwbiCZZCGOdZYlcT4xHmbhMnwNxtn+G5bmqdZ7n4Pw/i+X5zm+dQ9g4CAFjsfAJheOI8HsDoWDWTB/lwSAQkmA5PEgRYoDyDwYFYF" var_s1 = var_s1 + "oFmGCBmBqBphDgRJ0gOTIYBGRB/lyRh0iSCZbjYWJzgWDwIjYLoLmMCJGDKDJjBgWgqG6YhyhGHRzA2aJ1mCABOAiOJvhCZBJBYRoRmSCQmEqEQimkAZgg8TZnDCV4Uk" var_s1 = var_s1 + "mCUmBKZYJGYWoWCUUhiFMNZckNUh2GENoaGaGZmgmJhqhqZpGGIEx2GYIxSGGGJdggWJth2Z4JmYeoemeSZ2H6H4hGmQhihyTRHGYLg7CiCgmgqIpokoNoOiOaJ4jqAo" var_s1 = var_s1 + "chqaZGgaCxpAoZoaiaaJqEmWIcGgShcnCJwqEqFoR3YOoFlgchflqNouiuawHmWSYqGkWZQhcatzmaOoumuSp2j6L5bBaKo0GQKRnGGCxqiyCwmkqMpsksNpOGUGI7A0" var_s1 = var_s1 + "ew1G0Rxlg0PptgsZuDG2Sx2l6N5tnYNZZjUDRXDCVo5l2FoymqOpukuNpujubwLjmWY5k0ZwxkaFxYlWdp6j6b5Lnafo/nABQdg2FxcUsY5BkmXAkmeQpckwNRrkKTh8" var_s1 = var_s1 + "CSHZBk4NwyC4KxxgMDwakOMZDn8GgwnGAo2C4cwthMcwmCcMoHBMHRehwTIghySYNksZwcH4HBMEsHx5hyPItiweYxnwSZEH4Mozn0fR+DMAo7EYJ50gkdZelKdNql2U" var_s1 = var_s1 + "gJn0GIukwH4HicQRai2GI4mSVpNl0dZGledgNgcYpYDWUx3FsOQi5YV5anaTY3G6W53A2RxylydxFjiaxEFCCgBBAQ==" .Add(1,var_s1) var_s2 = "gBFLBCJwBAEHhEJAAEhABcoFg6AADACAxRDgMQBQKAAzQFAYbhkGCGAAGMZxRgmFgAQhFcZQSKUOQTDKMIziaQAGgkNQwCSLIwjNIsBxPFKVQChEYxSjKA40SJNUgyj6" var_s2 = var_s2 + "CCY+QLIE5PfQgAL9I6eJABCCSQKkYx0HScRiwPBIbAZAYhCZqaKhWgkKI/WBQIABRDVLx5ESiLRtKy7Mq2bpvXBcNxXHalaztO68LxvKyqHb5fJ/PpgL4YHgmC4NQ7EM" var_s2 = var_s2 + "RwF6rfbyfZ7Xg/ORPTijZ4sdzMHTzJyscx3HqfaBoOaZU5eMLceTUMofHIndxCcasPbsLpOS5LNKsaxmWLYdhFdTxQi6LpvfA8BwXC6JY7heRYRbFbYxRjGNi1TS7G4n" var_s2 = var_s2 + "GKd5WGuL4UHwI4VkaYxii8V4pgQMgVBQdQ5iCTYGi8T4vlWbJ3nuPg+l+H5AlSCg6ByPBoE8Ap3jqYxhBido5g0OgOGOGI4CsSpCCAcgcAuEokiEN5NCKfJ9DyTRjnSc" var_s2 = var_s2 + "g1CEYxOBmBpPCgagdgcIZoHoGIFA4AxQkCAxKAgKBwgGSpIBCZhjF2E5UnQPQMiMCJBCIBwxkSQgsgo+JtDKT4ziiQw+k6EwAnsOgLnkHI+yCQ4iEuE4klkPhShEJBpA" var_s2 = var_s2 + "oPgymOMoaDgHBjFMBgyD0HYTiCZSZhIIIGC4ChiHSew5kwM5omILZPiOBI0hwZw5kodIdA+M4Uj4PxOmMSJ9DuTQzmyZgviceZagaHVfj4awwmaAh2GUIYmCOEZZDaDR" var_s2 = var_s2 + "DFGdwcg4EwyHMN4LBOaJbCoaZqgKH8qkMfIyD8DozDyfA7A0Coui0OpMmOZJdCsahKg6NooioChwmEMxLEoXJbDUTRXGSUgykyMgQG0GpPHMdI3D4TRCgSeQ0kmaw+lG" var_s2 = var_s2 + "NAtCOZJVCiT5DhyRQwAqMg0EoDBBGEGAsASC5yiSCw+k4Mp6lWNQuksTpRjMTxDGzJwGmGMpDDKXYTECSAxl6Q5olkK4PgMMIVkASRMBMBgzEkaZEjsNALhIZA6AeQBg" var_s2 = var_s2 + "k0ZJEgAAJ0CIAgODMNIsD6DRih9uYwFyAwfCUb5ijmbI+gwdxkk8MZMGeMpPCkDxzBiC5MHMPJLDSSROFMLIoBEQogEMFJPnENYQGgE4DCOaJfC7tYkhGTQ0kyWwykuX" var_s2 = var_s2 + "pMiyRpKjKR4wngM4JmOWJACCdYtHMWw+Eych4nINYLAEYA8AgdAEEsQZajaQoog4GxPiMVIolcdxNG8XZVkmNoRwWRVBlFeFEeAZQJgnFiHgHwcAhjhHgGMSI5xki2Cy" var_s2 = var_s2 + "A4EQsA3i0HkBsLwKRFgAHcPkHopBJBcBeDUYI7xyDOHqKkWo2hLCsDIBIY4qQ5A8DoMMYwOAqCSBGKgU4yB2iDBwIgB4hxQgAAWNgBoAgsBdEcBUQ4sQ9A/HqD0JI8Rp" var_s2 = var_s2 + "BzH2OYVgahLBHFiJQJweQiDhDUE4SAARQAzFsG0EQwA6AOWSBkFgVAIBCHeGERQFQiCQHeFkC4vkiB8DyB4F4QxVDvGMNEOQexMjlBeOAKQiQLgfDA7QEAaRiBdEkH8T" var_s2 = var_s2 + "I7AZiFBAGYBIABWjYBiGACioQ4C1A+AMMgWhfgxHgPsT4URIB0COKgPgjRwiAB8AYUArxBgCF6J4GY5hrAOCAPAAoGRRCsCIMEXATXfgAF8BMJwURuEQDgD4Q4OBoAeH" var_s2 = var_s2 + "GFgLIwQrC2D0JoSQ+QvhrHoSgQI8AbDFGID8C4Ah6BQAQAASACwgCYCMAUMARAvCKAiAMCAokeCKBEOAKgCBoDaHuMsEAqwJDiACDURg8R6gPCyDofYWAhgoDIJ4ZAuh" var_s2 = var_s2 + "oiGAYGgRoQw/A0GMMga4GwxiEDeIYYInATCDBQAoBAwAoDlA0KMBoVRGiDGwDQUYIRsgaGGDgM4LAwDWB8EcIA1APhjEgGQVwgRIgjFIIQHokgZA+CSEkLIKQSjHAwMs" var_s2 = var_s2 + "CwDAsAEB2ABTIwRwD6A8CMToSxkAxE4HYIw+BsgbBEDAHYBwojCBoIYFgXSjABE4MsHIbQWhlGILQS4UhvBdAUKEEwHgxDAAABQQQUAhgKHiDwE4JS4A7BGLQZwCR4ga" var_s2 = var_s2 + "BEMUYAqgKApHgGwVAIRNgvBMMQXImwZDtE4I8UIyAZCDCAE8AwrhgAdEEBACQLRCg4FEB4AYtA7CdEiPQMoJAMDNCkOMCAXAFDhH0D0Q4EgfAaGSK4NYzRUj9BuCgAgs" var_s2 = var_s2 + "wOBjB4Fqpw8B2ADAwE4A4Qx2DAE6JIaQPQGhAGKBcIQ5B5gHByKIFARwADbAyKUfgdBKBBGyEcVIAB/ijHoIoSA0gdBNl+OATYERZgBGSDYWIWAUCEGKA4FAhR7CIBtY" var_s2 = var_s2 + "QGYZg4CMAiKEcAOwkBjHWE8Z4lQgA+DkBoTohwwCeAaMEEgBQCCABgHMRwQRhhMEWFQd4HwZgwDqFESItAbAGEANCpINAzANCCJkK4ah+heFYBURwsQrS2CsMYMoWGBh" var_s2 = var_s2 + "YDWI0EInQgiApXaOVI1QFDsC8MUNoMBMA1HMJga4eh+BeAWOgNNowGjYzCGAAwax+iJBeBVT4gxoBIAGFsJFBxgBiGKFkKQ7g5DFFQEcAo4AzDDACKEQQLgCiJDYB0Mg" var_s2 = var_s2 + "RBCCQAgQEA==" .Add(2,var_s2) var_s3 = "gBFLBCJwBAEHhEJAAEhABQ4Fg6AADACAxRDgMQBQKAAzQFAYbhkGCGAAGMZxRgmFgAQhFcZQSKUOQTDKMIziaQAGgkNQwCSLIwjNIsBxPFKVQChEYxSjKA40SJNUgyj6" var_s3 = var_s3 + "CCY+QLIE5PfQgAL9I6eJABCCSQKkYx0HScRiwPBIbAZAYhCZqaKhWgkKI/WBQIABRDVLx5ESiLRtKy7Mq2bpvXBcNxXHalaztO68LxvKyqHb5fJ/PpgL4YHgmC4NQ7EM" var_s3 = var_s3 + "RwF6rfbyfZ7Xg/ORPTijZ4sdzMHTzJyscx3HqfaBoOaZU5eMLceTUMofHIndxCcasPbsLpOS5LNKsaxmWLYdhFdTxQi6LpvfA8BwXC6JY7heRYRbFbYxRjGNi1TS7G4n" var_s3 = var_s3 + "GKd5WGuL4UHwI4VkaYxii8V4pgQMgVBQdQ5iCTYGi8T4vlWbJ3nuPg+l+H5AlSCg6ByPBoE8Ap3jqYxhBido5g0OgOGOGI4CsSpCCAcgcAuEosiYN5NHMOJ+D4TpTnSe" var_s3 = var_s3 + "Q7CEY4uBmBpPhgagdgcIZoHibIEyUBJZDQIJShoCgcCAcoyAQOYYlcZJ1D0DxDCiQgwEiAZMHEMJLFKPJ9D2DoDnidQ4k+Y5QmKEROBkIhKD0JIZDIS4TGUCQuEeEJjn" var_s3 = var_s3 + "OIg8CuY4RkYNgwGMM5RllGpThDRYIGKZIpCkJFUH0PINyWcQ3CaaZCG+HBnEOTJhD8Tx4GoeQ/GcaZSHOH5nCmQhshoZhihYYwhiYA4RlkNoNEMUZ3ByDjwEsPxOnMaJ" var_s3 = var_s3 + "9DuDR6F6GYmCmKh0nANtMioP4Gg8aoSiIO5NhodociqaY6GaFYkEyOg8lsNRNTaUgykyMgQG0GpPiONJbD8DpDEyfA6k0KwOkWMQsGsAJU0SagwkoJQJDIPISCQCJTGS" var_s3 = var_s3 + "UwyGaM4KkmMgtksHpFjAZ4TGCBAbgaSpcksdhNAMIJHHsD5TjSWWMAMOpwjyLwbk6cAz0KRJiDkDYzESCwiggcgcgYIQwCIEINCMCITj6TVxkMXp2j0cQLlCTo7E2F4y" var_s3 = var_s3 + "mkMZdhMPJHDGHpLAyVg+k4UwrCCSIyByDJ8DuDY8CiWY0kiXAXC6QJwFKGIjCeJpjgyezjlyDw6klHx5myRoMGwZwbkcToTEiew4kwbQfEmUgPkOKJUD4DpTHSHQmgkX" var_s3 = var_s3 + "I/ASTA1g0XIEDMTBimyfI7jSLYHEiUoPk0Fw/kadAsHGao8A0A5smEMJ2mNyg5gzJZwDgCpChyIZVyIZwFCMJEPASRkBqE+IcHInRcDxA2H4bIsx0AtDsIBpwZwYicD6" var_s3 = var_s3 + "BscwDwUBgHCIYaIfgtiVH2O4WgUwJjEFeAEQA7y4hMCiBMS4aRdB9A4CYE4LxljyBMHcDItBxinDCLcTYmgejBFQ9UTg9gFBOEmAQTI7A4iZGMGkQAWQ7jYA2HIL8BRA" var_s3 = var_s3 + "jDG4HcCwARbjZHiNoDw1nLDnGyNINQ+wjCpBMEgcovQUgICQJEcgWRuBvAyJ4d4ugpCUAINcHogxIgnDiM4N4axzD3F2JMTY/hRqYF6FsWIxhYAGGoAALQYgYirBwBEB" var_s3 = var_s3 + "wpAjBEAAIEIYsA2gOHCMAGgXAACIDmMITAUgFABH0D0I4WwvhNFGMAOIvxRD2GKNcMA8gjAPDCPwBogRPAxA8PgRwZRICYDED8RAXQEghEAN8DIgwIBdB4JYWwMgtiQH" var_s3 = var_s3 + "oFQKAiRFguFKGwGQhglDsEOVwEQQRkCKBwOIHgSREDRBYHEXQcQdD7GIGARQHRxipBrMobgewDCUCADsEYWAzgMHKHQDQxxsDzA6EMfAeQHB4GQDkUYPA0iECiKoGgRh" var_s3 = var_s3 + "cDdA2GMQA8AOCjDSPgHI4QnApAKBICwHg1A+BcAwcYsgbjGGQNkCIgRsA6EcBEWANADjsB0B8YYzQQDIGSBcEYZBCCPEkFIHQSgkgZAwG4IwBAbAYGGAgL4Ch4g8BOCQ" var_s3 = var_s3 + "AA2KKC0GcAke4AAXAFCoHkDw4xbBFEcJkE4JRSiEFeJYKQVRMgJHODwX4xAgC/AsIIZAeAHDRG0HYI40RKCLEGDUI4jAghwBWIceA+whCpHMFYZYOQxglDMHMBQGxYjV" var_s3 = var_s3 + "HiAoBIPgfgHGwPsHYJRSB6A0IERQLhCjJHMA4OQoAoCOACLYGYSx8DpBQIMWQdRnDRH+DsE4fB3CeAmM67kAAXBFEIDYDI7wLBtEoEIfYNwjiUGGJQYQMAjCHEAO0C4z" var_s3 = var_s3 + "xW29CoCgfIxR9AKA6J8BgUAIhDGMIoJ40hqgwCgKETgnBhhqCGI0AIqgZhGDANQDIlBDCRGkCoJISR0g1BSKQOgfAzBRG0DYHARh4DeDAOwANuw8ApCKKkYg/RPhjBsH" var_s3 = var_s3 + "0J4yg5hPGWN0GwFBHQBFaDoQIURljFAoB4GgzRVzbBECQFQRQoguHGHANwDRdCKy8CgSIGwhhoDYJYYI1giBICSAEgI=" .Add(3,var_s3) var_s4 = "gBFLBCJwBAEHhEJAAEhABUYCg6AADACAxRDgMQBQKAAzQFAYbhkGCGAAGMZxRgmFgAQhFcZQSKUOQTDKMIziYBYfgkMIgSbJUgDGAkRRdDSOYDmGQYDiCIoRShOMIjHL" var_s4 = var_s4 + "UXxtDaIZwhEAoJb+RgAUY/cTzaAEUwHHiTKInaCQShsFYJUJAdRURQ9EwvCIZBpEWwLChENQwWLCNj2TScBwjCyqbale45ViqdoDU5EUiXJJ8ZxnECfYyrGjaMpCeKBU" var_s4 = var_s4 + "rGYTVRBIMxLLSia5oeJqMrnBpNVrIUgXCAGFwHK6BcauXIIDp6XoWWRbAAWDpVVzNNC3YzkCIceADHKiXxmVz4JLdGZ1QTGID2XaYaxWK4oZjsVSc4KDHbETbHFi9Fo3" var_s4 = var_s4 + "NaaxGisew+GYc4HlCR5NAAAIIEkQJSGMOgdE4RhYDwJJsAaAYQgmPpolCWgSCiBJzjcEIAkQXIBm8d5UhOQgCDUIBDDJDhgggJgKgKYJIDSVoDk8KBFF4OohEMZgWDsY" var_s4 = var_s4 + "YDj4GoGmGSB2B6B5iAiBgYDsYRjGSbIJo4RgqDuIpIAoLoLmMCJGDKDJjJiLA7xqUAAgGTwYnYPoPmQCQGEKEJkEkFg9gGY44BoRoSmSSQ2EKEggHgRhShSZRJFYVoVm" var_s4 = var_s4 + "WCRmFKFAgGOTheheZgJgYYoYmYSYWGaF4lkMMJ0hqZpJjYbobmcCZGHKHJmjmJh0h2Z4JmYcIaE8WZ2H6H5oAoBoCiCaBKBYfdjGoJoKiKaJKDaDojmkChGgmIgpCoVo" var_s4 = var_s4 + "WiWaJZiSd4mmmSh2h6J5qAqBoiiiaY5iSeIpmqComiqKpqkqNouiuah6hqMIsmsSpWiuGhP1kOoumuSp2j6L5sAsBo54gKwWkaMZsgsJpKjKbJLDaRYxYWRpSjSbIZiS" var_s4 = var_s4 + "e41m2CxmlqNptksdpejebR5iSfI4m4S4W16boLiaao6m5fJ9jubwLkaco8m8S5WnaPZunuOp4j6b5Lnac4SA0PAGlgP4wEwFwGkGcIMCcCpCnCCxiA8NYAAmMJfkSbhF" var_s4 = var_s4 + "CcFpFnGDBnBqRpUhuEwTDeZ5lHCfw6HIQxLCaAxygyJwqgGcATE4FA6hWY4tjEAAQBAgIA==" .Add(4,var_s4) endwith .BackColorHeader = 0x4c6c6c6 .SelBackColor = 0x4000000 .SelForeColor = RGB(0,0,1) .Object.Background(20) = .SelBackColor && 0x14 .Object.Background(21) = .SelForeColor && 0x15 .Object.Background(26) = .BackColor && 0x8 Or BackgroundPartEnum.exSplitBar .Object.Background(27) = .ForeColor && 0x9 Or BackgroundPartEnum.exSplitBar .Object.Background(32) = -1 && 0x20 .Object.Background(0) = 0x4000000 && 0x0 .Object.Background(41) = 0x4010101 .Object.Background(1) = 0x40000ff && 0x1 .HeaderAppearance = 4 .BackColorSortBar = .BackColor .BackColorLevelHeader = .BackColor .Mode = 3 var_s5 = "Source=C:\Program Files\Exontrol\ExCascadeTree\Sample\Access\cities.accdb;Member=Select * FROM Countries;Key=CountryCode;Tag=Cou" var_s5 = var_s5 + "ntry;Name=CountryName >>> Member=Select * FROM States WHERE CountryCode IN (<%Parent.CountryCode%>);Key=StateCode;Name=StateName" var_s5 = var_s5 + ";Tag=State \|\|\| Member=Select * FROM Cities WHERE CountryCode IN (<%Parent.CountryCode%>);Tag=City;Name=Name >>> Member=Select * " var_s5 = var_s5 + "FROM Cities WHERE CountryCode IN (<%Parent.Parent.CountryCode%>) AND StateCode IN (<%Parent.StateCode%>);Tag=City;Name=Name" .DataSource = var_s5 .Select = "US\MN" .EndUpdate endwith
78	ImageSize property on 16 (default) (specifies the size of control' icons/images/check-boxes/radio-buttons) * CreateView event - A view has been created. * LPARAMETERS View with thisform.CascadeTree1 with .View .EnsureVisibleColumn("Function") with .Columns.Item("Function") endwith .Columns.Item(0).Def(0) = .T. endwith endwith * Error event - An internal error occurs. * LPARAMETERS Error, Description with thisform.CascadeTree1 DEBUGOUT( "Error" ) DEBUGOUT( Description ) endwith with thisform.CascadeTree1 .BeginUpdate .ImageSize = 16 var_s = "gBJJgBAIDAAEg4ACEKAD/hz/EMNh8TIRNGwAjEZAEXjAojJAjMLjABAAgjUYkUnlUrlktl0vmExmUzmk1m03nE5nU7nkrQCAntBoVDolFo1HoM/ADAplLptImdMYFOqd" var_s = var_s + "SqlXq1QrVbrlGpVWsFNrNdnNjsk7pQAtNroFnt0sh8Yr9iulTuNxs1Eu8OiT/vsnsNVutXlk/oGGtVKxGLxWNtsZtN8iUYuNvy0Zvd+xNYwdwvl4p870GCqc8vOeuVtt" var_s = var_s + "mp1knyOayWVy+WzN/ze1wOElenm+12WUz/Bv2/3UyyWrzeutux2GSyGP2dQ33C1ur3GD3M4zUNzHdlWjq/E3nGzVpjWv4HA7fRy/Tv2IrN8rPW6nZ3ve7mUlfu20Z8ac" var_s = var_s + "vQyb+vY9jasYoDwMm+LytVBDqKG3z8O3Cb8P+mkAuY9cCQ2uL4KaxDKvkp8RNLEjqugnrwQo/UWPzFyeQw5sNLZFENrI4kOqU66pw8uzmOKvTqNqjULJvGL1JO48GtTG" var_s = var_s + "sbLdEL3scxLlyiw8dQeoUVxdLTtyKmUjwGlslRPJsnK1HbAKbKCrsQo8uQk/CeP44iaR/ATnTNPLvyxPU+z9P9AUDQVBowiofJXQ6Oo+kKMpIkjztE4TKn4P6JowfgPn" var_s = var_s + "wD5/nAjB8AOeAPo0eAA1IAFH07UhAIMpYAVIYFHqBUhwVjV1S1EtQAHxW65V0AZwAeuQAnwB5gAPYViEDVhwAHTQBkCjB4gOhwDmCyhH0sACAg==" .Images(var_s) with .VisualAppearance var_s1 = "gBFLBCJwBAEHhEJAAEhABUYCg6AADACAxRDgMQBQKAAzQFAYbhkGCGAAGMZxRgmFgAQhFcZQSKUOQTDKMIziYBYfgkMIgSbJUgDGAkRRdDSOYDmGQYDiCIoRShOMIjHL" var_s1 = var_s1 + "UXxtDaIZwhEAoJb+RgAUY/cTzaAEUwHHiTKInaCQShsFYJUJAdRURQ9EwvCIZBpEWwLChENQwWLCNj2TScBwjCyqbale45ViqdoDU5EUiXJJ8ZxnECfYyrGjaMpCeKBU" var_s1 = var_s1 + "rGYTVRBIMxLLSia5oeJqMrnBpNVrIUgXCAGFwHK6BcauXIIDp6XoWWRbAAWDpVVzNNC3YzkCIceADHKiXxmVz4JLdGZ1QTGID2XaYaxWK4oZjsVSc4KDHbETbHFi9Fo3" var_s1 = var_s1 + "NaaxGisew+GYc4HlCR5NAAAIIEkQJSGMOgdE4RhYDwJJsAaAYQgmPpolCWgSCiBJzjcEIAkQXIBm8d5UhOQgCDUIBDDJDhgggJgKgKYJIDSVoDk8KBFF4OohEMZgWDsY" var_s1 = var_s1 + "YDj4GoGmGSB2B6B5iAiBgYDsYRjGSbIJo4RgqDuIpIAoLoLmMCJGDKDJjJiLA7xqUAAgGTwYnYPoPmQCQGEKEJkEkFg9gGY44BoRoSmSSQ2EKEggHgRhShSZRJFYVoVm" var_s1 = var_s1 + "WCRmFKFAgGOTheheZgJgYYoYmYSYWGaF4lkMMJ0hqZpJjYbobmcCZGHKHJmjmJh0h2Z4JmYcIaE8WZ2H6H5oAoBoCiCaBKBYfdjGoJoKiKaJKDaDojmkChGgmIgpCoVo" var_s1 = var_s1 + "WiWaJZiSd4mmmSh2h6J5qAqBoiiiaY5iSeIpmqComiqKpqkqNouiuah6hqMIsmsSpWiuGhP1kOoumuSp2j6L5sAsBo54gKwWkaMZsgsJpKjKbJLDaRYxYWRpSjSbIZiS" var_s1 = var_s1 + "e41m2CxmlqNptksdpejebR5iSfI4m4S4W16boLiaao6m5fJ9jubwLkaco8m8S5WnaPZunuOp4j6b5Lnac4SA0PAGlgP4wEwFwGkGcIMCcCpCnCCxiA8NYAAmMJfkSbhF" var_s1 = var_s1 + "CcFpFnGDBnBqRpUhuEwTDeZ5lHCfw6HIQxLCaAxygyJwqgGcATE4FA6hWY4tjEAAQBAgIA==" .Add(4,var_s1) endwith .BackColorHeader = 0x4c6c6c6 .SelBackColor = 0x4000000 .SelForeColor = RGB(0,0,1) .Object.Background(20) = .SelBackColor && 0x14 .Object.Background(21) = .SelForeColor && 0x15 .Object.Background(26) = .BackColor && 0x8 Or BackgroundPartEnum.exSplitBar .Object.Background(27) = .ForeColor && 0x9 Or BackgroundPartEnum.exSplitBar .Object.Background(32) = -1 && 0x20 .Object.Background(0) = 0x4000000 && 0x0 .Object.Background(41) = 0x4010101 .Object.Background(1) = 0x40000ff && 0x1 .HeaderAppearance = 4 .BackColorSortBar = .BackColor .BackColorLevelHeader = .BackColor .Mode = 3 var_s2 = "Source=C:\Program Files\Exontrol\ExCascadeTree\Sample\Access\cities.accdb;Member=Select * FROM Countries;Key=CountryCode;Tag=Cou" var_s2 = var_s2 + "ntry;Name=CountryName >>> Member=Select * FROM States WHERE CountryCode IN (<%Parent.CountryCode%>);Key=StateCode;Name=StateName" var_s2 = var_s2 + ";Tag=State \|\|\| Member=Select * FROM Cities WHERE CountryCode IN (<%Parent.CountryCode%>);Tag=City;Name=Name >>> Member=Select * " var_s2 = var_s2 + "FROM Cities WHERE CountryCode IN (<%Parent.Parent.CountryCode%>) AND StateCode IN (<%Parent.StateCode%>);Tag=City;Name=Name" .DataSource = var_s2 .Select = "US\MN" .EndUpdate endwith
68	DataSource (control, ADODB, ACCDB, x64) * CreateView event - A view has been created. * LPARAMETERS View with thisform.CascadeTree1 bSingle = .FormatABC("value > 0 ? 0 : -1",.View.Index) bColumnAutoResize = .FormatABC("value = `City` ? 0 : -1",.View.Tag) with .View .ColumnAutoResize = bColumnAutoResize .SingleSel = bSingle endwith endwith * Error event - An internal error occurs. * LPARAMETERS Error, Description with thisform.CascadeTree1 DEBUGOUT( "Error" ) DEBUGOUT( Description ) endwith with thisform.CascadeTree1 .BeginUpdate .Mode = 515 && CascadeModeEnum.exAutoFitOnResizeClient Or CascadeModeEnum.exSplitFixCascadeMode var_s = "locktype=1;Source=C:\Program Files\Exontrol\ExCascadeTree\Sample\Access\cities.accdb;Member=Select * FROM Countries;Key=CountryC" var_s = var_s + "ode;Tag=Country;Name=CountryName >>> Member=Select * FROM States WHERE CountryCode IN (<%Parent.CountryCode%>);Key=StateCode;Nam" var_s = var_s + "e=StateName;Tag=State \|\|\| Member=Select * FROM Cities WHERE CountryCode IN (<%Parent.CountryCode%>);Tag=City;Name=Name >>> Membe" var_s = var_s + "r=Select * FROM Cities WHERE CountryCode IN (<%Parent.Parent.CountryCode%>) AND StateCode IN (<%Parent.StateCode%>);Tag=City;Nam" var_s = var_s + "e=Name" .DataSource = var_s .Select = "US\AK" .EndUpdate endwith
67	DataSource (view, ADODB, ACCDB, x64) * Error event - An internal error occurs. * LPARAMETERS Error, Description with thisform.CascadeTree1 DEBUGOUT( "Error" ) DEBUGOUT( Description ) endwith with thisform.CascadeTree1 .BeginUpdate .StatusBarVisible = 2 .StatusBarLabel = "<b>DataSource</b> could be string (Source/Member), ADO or DAO objects" .DefColumnWidth = 336 ado = CreateObject("ADODB.Recordset") with ado .Open("Countries","Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Program Files\Exontrol\ExCascadeTree\Sample\Access\cities.accdb",3,1,-1) endwith with .DefaultView() .DataSource = ado .ColumnAutoResize = .T. endwith .EndUpdate endwith
66	Simple sample * CreateView event - A view has been created. * LPARAMETERS View with thisform.CascadeTree1 bSingle = .FormatABC("value > 0 ? 0 : -1",.View.Index) bColumnAutoResize = .FormatABC("value = `City` ? 0 : -1",.View.Tag) with .View .ColumnAutoResize = bColumnAutoResize .SingleSel = bSingle endwith endwith * Error event - An internal error occurs. * LPARAMETERS Error, Description with thisform.CascadeTree1 DEBUGOUT( "Error" ) DEBUGOUT( Description ) endwith with thisform.CascadeTree1 .BeginUpdate .Mode = 515 && CascadeModeEnum.exAutoFitOnResizeClient Or CascadeModeEnum.exSplitFixCascadeMode var_s = "Source=C:\Program Files\Exontrol\ExCascadeTree\Sample\Access\cities.accdb;Member=Select * FROM Countries;Key=CountryCode;Tag=Cou" var_s = var_s + "ntry;Name=CountryName >>> Member=Select * FROM States WHERE CountryCode IN (<%Parent.CountryCode%>);Key=StateCode;Name=StateName" var_s = var_s + ";Tag=State \|\|\| Member=Select * FROM Cities WHERE CountryCode IN (<%Parent.CountryCode%>);Tag=City;Name=Name >>> Member=Select * " var_s = var_s + "FROM Cities WHERE CountryCode IN (<%Parent.Parent.CountryCode%>) AND StateCode IN (<%Parent.StateCode%>);Tag=City;Name=Name" .DataSource = var_s .EndUpdate endwith
65	FilterBar sample * CreateView event - A view has been created. * LPARAMETERS View with thisform.CascadeTree1 with .View .HeaderHeight = 20 .HeaderAppearance = 4 .DrawGridLines = -1 .GridLineStyle = 12 endwith with .DefaultView() with .View("Country") .BeginUpdate .ColumnAutoResize = .T. .Columns.Item(0).Visible = .F. with .Columns.Item(1) .HTMLCaption = "Country" .DisplayFilterButton = .T. .FilterList = 9504 && FilterListEnum.exShowExclude Or FilterListEnum.exShowFocusItem Or FilterListEnum.exShowCheckBox Or FilterListEnum.exSortItemsAsc .FilterBarDropDownWidth = 2 endwith .EndUpdate endwith with .View("State") .BeginUpdate .ColumnAutoResize = .T. .Columns.Item(0).Visible = .F. .Columns.Item(1).Visible = .F. with .Columns.Item(2) .HTMLCaption = "State" .DisplayFilterButton = .T. .FilterList = 9504 && FilterListEnum.exShowExclude Or FilterListEnum.exShowFocusItem Or FilterListEnum.exShowCheckBox Or FilterListEnum.exSortItemsAsc .FilterBarDropDownWidth = 2 endwith .EndUpdate endwith with .View("City") .BeginUpdate .Columns.Item("CountryCode").Visible = .F. .Columns.Item("StateCode").Visible = .F. with .Columns.Item("Name") .HTMLCaption = "City" .Width = 128 .DisplayFilterButton = .T. .FilterList = 9504 && FilterListEnum.exShowExclude Or FilterListEnum.exShowFocusItem Or FilterListEnum.exShowCheckBox Or FilterListEnum.exSortItemsAsc .FilterBarDropDownWidth = 2 endwith .SearchColumnIndex = .Columns.Item("Name").Index with .Columns.Item("Status") .DisplayFilterButton = .T. .FilterList = 9504 && FilterListEnum.exShowExclude Or FilterListEnum.exShowFocusItem Or FilterListEnum.exShowCheckBox Or FilterListEnum.exSortItemsAsc .FilterBarDropDownWidth = 2 endwith with .Columns.Item("Function") .Def(17) = 1 var_s = "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>` re" var_s = var_s + "place 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 " var_s = var_s + "with `<img>9</img>` replace `-` with `` " .FormatColumn = var_s endwith with .Columns.Add("Pos") .AllowSizing = .F. .Width = 32 .Def(4) = 15790320 .Position = 0 .FormatColumn = "1 pos ``" .Alignment = 1 .HeaderAlignment = .Alignment && .Alignment endwith .CountLockedColumns = 1 .Width = .WidthToFit .EndUpdate endwith endwith with .View .FilterBarHeight = 36 var_s1 = "(( ( allui replace `[<b>` with `<bgcolor=000000><fgcolor=FFFFFF><b> ` replace `</b>]` with ` </b></bgcolor></fgcolor>` replace `" var_s1 = var_s1 + "[<s>` with `<bgcolor=C0C0C0><fgcolor=FFFFFF> ` replace `</s>]` with ` </fgcolor></bgcolor>` ) + `<r><fgcolor=808080>` + ( match" var_s1 = var_s1 + "itemcount < 0 ? ( ( len(value) ? `` : `` ) + `<r>` + abs(matchitemcount + 1) + ` result(s)` ) : (`<r><fgcolor=808080>`+ itemcoun" var_s1 = var_s1 + "t + ` item(s)`) )))" .FilterBarCaption = var_s1 .FilterBarPromptVisible = 515 && FilterBarVisibleEnum.exFilterBarShowCloseIfRequired Or FilterBarVisibleEnum.exFilterBarVisible Or FilterBarVisibleEnum.exFilterBarPromptVisible endwith endwith * Error event - An internal error occurs. * LPARAMETERS Error, Description with thisform.CascadeTree1 DEBUGOUT( "Error" ) DEBUGOUT( Description ) endwith with thisform.CascadeTree1 .BeginUpdate .Images("C:\Program Files\Exontrol\ExCascadeTree\Sample\Bullets\Bullet-01.ico") .Images("C:\Program Files\Exontrol\ExCascadeTree\Sample\Bullets\Bullet-02.ico") .Images("C:\Program Files\Exontrol\ExCascadeTree\Sample\Bullets\Bullet-03.ico") .Images("C:\Program Files\Exontrol\ExCascadeTree\Sample\Bullets\Bullet-04.ico") .Images("C:\Program Files\Exontrol\ExCascadeTree\Sample\Bullets\Bullet-05.ico") .Images("C:\Program Files\Exontrol\ExCascadeTree\Sample\Bullets\Bullet-06.ico") .Images("C:\Program Files\Exontrol\ExCascadeTree\Sample\Bullets\Bullet-07.ico") .Images("C:\Program Files\Exontrol\ExCascadeTree\Sample\Bullets\Bullet-08.ico") .Images("C:\Program Files\Exontrol\ExCascadeTree\Sample\Bullets\Bullet-09.ico") var_s = "Source=C:\Program Files\Exontrol\ExCascadeTree\Sample\Access\cities.mdb;Member=Select * FROM Countries;Key=CountryCode;Tag=Count" var_s = var_s + "ry;Name=CountryName >>> Member=Select * FROM States WHERE CountryCode IN (<%Parent.CountryCode%>);Key=StateCode;Name=StateName;T" var_s = var_s + "ag=State \|\|\| Member=Select * FROM Cities WHERE CountryCode IN (<%Parent.CountryCode%>);Tag=City;Name=Name >>> Member=Select * FR" var_s = var_s + "OM Cities WHERE CountryCode IN (<%Parent.Parent.CountryCode%>) AND StateCode IN (<%Parent.StateCode%>);Tag=City;Name=Name" .DataSource = var_s .Select = "RO\CJ" with .DefaultView().View("City") .FilterBarPromptPattern = "Tu" endwith with .VisualAppearance var_s1 = "gBFLBCJwBAEHhEJAAEhABZEGACAADACAxRDgMQBQKAAzAJBIYhiG4cYCgMYxXDOCYXABCEYRXBIZQ7BKNIxjSJwFgmEgADKMA4SOKIZhrE4bBhGaQRUgyI43RhHUBzVI" var_s1 = var_s1 + "UcQvE6TZRHCQYHgkNIhDJIM7TPLkeSVJaTIRoKhJUogApQThTMgVRDEThkGoSa6soSoYTDBKybLrSLKagOT5YUDKUqSdKEZRpEq1YztWbaQoCUoqVRRVIWfbNd4JJa4a" var_s1 = var_s1 + "DhWpYdpeeY5R7bWLgBYVVABL7LLRsSxpHxPF6RXxaeI3GKsaS8G6ic6nPQMHj7I4NS5pUa6Rh2VYNSa8AAtETRYznOw4bTMXAjNIea5bAYIIR5HIoDzVbQcCQAHL9DBe" var_s1 = var_s1 + "EMIQEEISgGhMGZQmocgymoYRRCIEQ0G2HYBnEIBig4V4zCQGINnmagCECY43medZ6H2Pw/g+X5fnueh/h+R5+AKABfkMWgGgGYA4AICoCGCE5WA4CphACMgSD2IRIDIB" var_s1 = var_s1 + "ICmEd5YGCBpRjGBgegWIYIgWdgoGIRQsiKCZiAiJZ0gGQI4jUS4LECOAiBmDJflGfg2BSY4Al4OhGkOCJ2DgFJjGGfgqgiH5Ch4RhGkqOQmEOEpkFkHQYhJRYyESAokG" var_s1 = var_s1 + "KHhIhKIxJEmf4VGUeRGFmF5iBkchPhYJQ5GoYIZg6Ug6GoFYmkmNhuhulRGHKGoImefh0BUZ4JmYeoemeSZ2H6HQmgoBgXDqXwUAQgI=" .Add(1,var_s1) var_s2 = "gBFLBCJwBAEHhEJAAEhABHQDg6AADACAxRDgMQBQKAAzAJBIYhiG4cYCgMZhXDOCYXABCEYRXBIZQ7BKNIxjSJ5BhIAAyDSJMjSRJUEhqGCWYDleYYYAKHIMQLOg7IJj" var_s2 = var_s2 + "yI4/SJAYCydKAWhxIaZKJHCZoEDaTAADCNVAQp6MEIJVbVEI0e79OgBLp/Z7kECIJJAaRjHQdJxGLA8EhtCQhCZteK6SgMKJYXhWQYRXI1JwvMBrWrdQjiOYELQtMKmS" var_s2 = var_s2 + "ZNLYGG4dR5SVJbcYhSYsRRFMoyDIOXYDLKsdYqSpXIThObEGgaPqJYjsUjCMKnR7HVIURrBPC9TBPE69ZgmC6ucKPX51ShKFaBWDZcwFAS+UBuYCAILiEAQGZ1XT8ORO" var_s2 = var_s2 + "icbgJgSTJRlCaZeDsHY7QGR4xkSYp3CaExZAQMgalQYAwjCAAfBANxcA2TgKAUOpDCGFhKg0RpXCwCwDHQHQHEyAIkCkOhbFOGA8A8DohBgRg9AccZcn8EpEjMLI2C2D" var_s2 = var_s2 + "YxAgQgvAIUIVkoAAPBQDJlECTZ3CCYwDACQwUA8A5MCAWAWDiQi4l8aQOEgLJuBgBgDmYFAzEoIoIl0WALgKYJbBABADAAHgHg8VAMmqCQQDMXABAATYwTmNwBDATJXA" var_s2 = var_s2 + "iAgjHmNQ5lgQ5QEQEQMmcWg/GwD5ylyNw2gMcJcjsBgBgOQQDDhRpVAMMwnDBFw1B0Ax8D0DxOmmJJIGQTY5hGMAwkwM4CAYLZAmAOJnAqAojiIGg6iieYkmeAYOHaKJ" var_s2 = var_s2 + "DCyCwjH6AoggsQpQliAJLhgaJ0CESBTnyDwjk+cg4g4P5IHIHJ+BWRRzlYWAxiOUxihsY4KjKLJRGqC44FCegkkkM58iAKAPnIWIWD8SRSFSfQnkmewUhYP4GiGKJ7G0" var_s2 = var_s2 + "TIbCSUoggqUo0lAQ4LnEcBcD8Coiiif4nE+eAAn2HpOkcFJqi4T5SkyMw/kqQown8IBIBOdA+A+DJrBqVxXEqYo4lCApLhGHBnD8S4ymyfxmg+cwQkQP5egOUZIWoEAk" var_s2 = var_s2 + "jIeIPBMBJBD+TBjBifwvkuc58hQJQPmFrYykkchclSApKjGOBuD+TRDFCfw3mmIxNi8FxFlOXhVC4aYDFyPgvg2YBcBcLZGCGCJ0DSLRzGSWQ/lmY5+mEP5gmMDBZRSM" var_s2 = var_s2 + "RsFsOxMhMJJ/DsTpTnwaQaE+N5ojuNhdEYNI5C4TZJO1GRDmCaxnA2Yx4n8IpIjOTBQBQC5TgyYw7gUYRYikC0BYRwsDQBoB8eA6Q2hsE0BUXgywZtYCyHMKwnxSAhAQ" var_s2 = var_s2 + "HkIQhRrBaDsCwA4ERiB2EWAIYIXhhiVEgAEUYwwYjyASLge4FhHgRDkM8OQih0jWPkGgBBAQ" .Add(2,var_s2) endwith .BackColorSortBar = .BackColor .Object.ScrollPartVisible(0,65536) = .T. .Object.ScrollPartVisible(1,65536) = .T. .Object.ScrollPartVisible(2,65536) = .T. .ScrollWidth = 4 .Object.Background(276) = RGB(240,240,240) .Object.Background(260) = RGB(128,128,128) .ScrollHeight = 4 .Object.Background(404) = .Background(276) .Object.Background(388) = .Background(260) .Object.Background(511) = .Background(276) .Object.Background(18) = RGB(196,196,196) .Object.Background(142) = .Background(18) .Object.Background(141) = .Background(18) .Object.Background(170) = RGB(4,0,0) .Object.Background(0) = 0x1000000 && 0x0 .Object.Background(1) = 0x2000000 && 0x1 .Object.Background(32) = -1 && 0x20 .EndUpdate endwith
64	GroupBy sample * CreateView event - A view has been created. * LPARAMETERS View with thisform.CascadeTree1 .View.HeaderHeight = 24 with .DefaultView() with .View("State") .BeginUpdate .SingleSel = .F. .ColumnAutoResize = .T. .Columns.Item(0).Visible = .F. .Columns.Item(1).Visible = .F. with .Columns.Item(2) .HTMLCaption = "State <off 4><fgcolor=808080>Name" .SortOrder = 1 endwith .EndUpdate endwith with .View("City") nSelected = .ParentView.Items.SelectCount bGroupBy = thisform.CascadeTree1.FormatABC("value > 1 ? -1 : 0",nSelected) .BeginUpdate .SingleSel = .F. .SortBarCaption = "Drag a <b>column</b> header here to group by that column." .HasLines = 1 .ColumnAutoResize = .F. .DrawGridLines = 2 .GridLineStyle = 32 .Columns.Item("CountryCode").Visible = .F. with .Columns.Item("Name") .HTMLCaption = "City <off 4><fgcolor=808080>Name" .Width = 128 .SortOrder = 1 endwith .SearchColumnIndex = 2 .TreeColumnIndex = .SearchColumnIndex .SingleSort = .F. .AllowGroupBy = bGroupBy .SortBarVisible = bGroupBy with .Columns.Item("StateCode") .Visible = bGroupBy .SortOrder = 1 endwith .Width = .WidthToFit .EndUpdate endwith endwith endwith * Error event - An internal error occurs. * LPARAMETERS Error, Description with thisform.CascadeTree1 DEBUGOUT( "Error" ) DEBUGOUT( Description ) endwith with thisform.CascadeTree1 .BeginUpdate with .VisualAppearance .Add(1,"C:\Program Files\Exontrol\ExCascadeTree\Sample\EBN\Assorted\vistaselDark.ebn") .Add(2,"C:\Program Files\Exontrol\ExCascadeTree\Sample\EBN\Assorted\bhframe.ebn") endwith var_s = "Source=C:\Program Files\Exontrol\ExCascadeTree\Sample\Access\cities.mdb;Member=Select * FROM Countries;Key=CountryCode;Tag=Count" var_s = var_s + "ry;Name=CountryName >>> Member=Select * FROM States WHERE CountryCode IN (<%Parent.CountryCode%>);Key=StateCode;Name=StateName;T" var_s = var_s + "ag=State \|\|\| Member=Select * FROM Cities WHERE CountryCode IN (<%Parent.CountryCode%>);Tag=City;Name=Name >>> Member=Select * FR" var_s = var_s + "OM Cities WHERE CountryCode IN (<%Parent.Parent.CountryCode%>) AND StateCode IN (<%Parent.StateCode%>);Tag=City;Name=Name" .DataSource = var_s .Select = "RO\CJ\|BV\|GL\|IL" with .DefaultView().View("Country") .BeginUpdate .ColumnAutoResize = .T. .Columns.Item(0).Visible = .F. with .Columns.Item(1) .HTMLCaption = "Country <off 4><fgcolor=808080>Name" .SortOrder = 1 endwith .EndUpdate endwith .SelBackColor = 0x1000000 .SelForeColor = RGB(255,255,255) .BackColorHeader = 0x2000000 .BackColorSortBar = .BackColor .BackColorSortBarCaption = .BackColor .Object.ScrollPartVisible(0,65536) = .T. .Object.ScrollPartVisible(1,65536) = .T. .Object.ScrollPartVisible(2,65536) = .T. .ScrollWidth = 4 .Object.Background(276) = RGB(240,240,240) .Object.Background(260) = RGB(128,128,128) .ScrollHeight = 4 .Object.Background(404) = .Background(276) .Object.Background(388) = .Background(260) .Object.Background(511) = .Background(276) .Object.Background(18) = RGB(196,196,196) .Object.Background(142) = .Background(18) .Object.Background(141) = .Background(18) .Object.Background(170) = RGB(4,0,0) .BackColorSortBar = .BackColor .EndUpdate endwith
62	Appearance sample * CreateView event - A view has been created. * LPARAMETERS View with thisform.CascadeTree1 .View.HeaderHeight = 24 with .DefaultView() with .View("State") .BeginUpdate .ColumnAutoResize = .T. .Columns.Item(0).Visible = .F. .Columns.Item(1).Visible = .F. with .Columns.Item(2) .HTMLCaption = "State <off 4><fgcolor=808080>Name" .SortOrder = 1 endwith with .Items .LockedItemCount(0) = 1 h = .LockedItem(0,0) .ItemDivider(h) = 0 .CellValueFormat(h,0) = 5 && ValueFormatEnum.exTotalField Or ValueFormatEnum.exHTML .CellValue(h,0) = "count(all,all,1)" .FormatCell(h,0) = "`<r>States: <b>`+ (value format `0`)" endwith .EndUpdate endwith with .View("City") .BeginUpdate .SingleSel = .F. .ColumnAutoResize = .F. .DrawGridLines = 2 .GridLineStyle = 32 .Columns.Item(0).Visible = .F. .Columns.Item(1).Visible = .F. with .Columns.Item(2) .HTMLCaption = "City <off 4><fgcolor=808080>Name" .Width = 128 .Def(0) = .T. .SortOrder = 1 endwith .SearchColumnIndex = 2 .ConditionalFormats.Add("%CS2 = 1").Bold = .T. with .Items .LockedItemCount(0) = 1 h = .LockedItem(0,0) .ItemDivider(h) = 0 .CellValueFormat(h,0) = 5 && ValueFormatEnum.exTotalField Or ValueFormatEnum.exHTML .CellValue(h,0) = "count(all,all,1)" .FormatCell(h,0) = "`<r>Cities: <b>`+ (value format `0`)" endwith .Width = .WidthToFit .EndUpdate endwith endwith endwith * Error event - An internal error occurs. * LPARAMETERS Error, Description with thisform.CascadeTree1 DEBUGOUT( "Error" ) DEBUGOUT( Description ) endwith with thisform.CascadeTree1 .BeginUpdate with .VisualAppearance .Add(1,"C:\Program Files\Exontrol\ExCascadeTree\Sample\EBN\MSOffice-Ribbon\msor_select.ebn") .Add(2,"C:\Program Files\Exontrol\ExCascadeTree\Sample\EBN\MSOffice-Ribbon\msor_background.ebn") endwith var_s = "Source=C:\Program Files\Exontrol\ExCascadeTree\Sample\Access\cities.mdb;Member=Select * FROM Countries;Key=CountryCode;Tag=Count" var_s = var_s + "ry;Name=CountryName >>> Member=Select * FROM States WHERE CountryCode IN (<%Parent.CountryCode%>);Key=StateCode;Name=StateName;T" var_s = var_s + "ag=State \|\|\| Member=Select * FROM Cities WHERE CountryCode IN (<%Parent.CountryCode%>);Tag=City;Name=Name >>> Member=Select * FR" var_s = var_s + "OM Cities WHERE CountryCode IN (<%Parent.Parent.CountryCode%>) AND StateCode IN (<%Parent.StateCode%>);Tag=City;Name=Name" .DataSource = var_s .Select = "US\AK" with .DefaultView().View("Country") .BeginUpdate .ColumnAutoResize = .T. .Columns.Item(0).Visible = .F. with .Columns.Item(1) .HTMLCaption = "Country <off 4><fgcolor=808080>Name" .SortOrder = 1 endwith with .Items .LockedItemCount(0) = 1 h = .LockedItem(0,0) .ItemDivider(h) = 0 .CellValueFormat(h,0) = 5 && ValueFormatEnum.exTotalField Or ValueFormatEnum.exHTML .CellValue(h,0) = "count(all,all,1)" .FormatCell(h,0) = "`<r>Countries: <b>`+ (value format `0`)" endwith .EndUpdate endwith .SelBackColor = 0x1000000 .SelForeColor = RGB(0,0,0) .BackColorHeader = 0x2000000 .Object.ScrollPartVisible(0,65536) = .T. .Object.ScrollPartVisible(1,65536) = .T. .Object.ScrollPartVisible(2,65536) = .T. .ScrollWidth = 4 .Object.Background(276) = RGB(240,240,240) .Object.Background(260) = RGB(128,128,128) .ScrollHeight = 4 .Object.Background(404) = .Background(276) .Object.Background(388) = .Background(260) .Object.Background(511) = .Background(276) .Object.Background(18) = RGB(196,196,196) .Object.Background(142) = .Background(18) .Object.Background(141) = .Background(18) .Object.Background(170) = RGB(4,0,0) .BackColorSortBar = .BackColor .EndUpdate endwith
60	How do I specify a foreground color for a particular view * Error event - An internal error occurs. * LPARAMETERS Error, Description with thisform.CascadeTree1 DEBUGOUT( "Error" ) DEBUGOUT( Description ) endwith with thisform.CascadeTree1 .BeginUpdate .Mode = 3 .Object.Background(18) = RGB(196,196,196) var_s = "Source=C:\Program Files\Exontrol\ExCascadeTree\Sample\Access\cities.accdb;Member=Select * FROM Countries;Key=CountryCode;Tag=Cou" var_s = var_s + "ntry;Name=CountryName >>> Member=Select * FROM States WHERE CountryCode IN (<%Parent.CountryCode%>);Key=StateCode;Name=StateName" var_s = var_s + ";Tag=State \|\|\| Member=Select * FROM Cities WHERE CountryCode IN (<%Parent.CountryCode%>);Tag=City;Name=Name >>> Member=Select * " var_s = var_s + "FROM Cities WHERE CountryCode IN (<%Parent.Parent.CountryCode%>) AND StateCode IN (<%Parent.StateCode%>);Tag=City;Name=Name" .DataSource = var_s .Select = "US\AK" .DefaultView().ConditionalFormats.Add("1").ForeColor = RGB(128,128,128) .EndUpdate endwith
59	How do display result/items in the view's filter bar * CreateView event - A view has been created. * LPARAMETERS View with thisform.CascadeTree1 with .View .HeaderAppearance = 4 .HeaderHeight = 24 .DrawGridLines = -1 .GridLineStyle = 12 endwith with .DefaultView() with .View("Country") .BeginUpdate .ColumnAutoResize = .T. .Columns.Item(0).Visible = .F. with .Columns.Item(1) .HTMLCaption = "Country <off 4><fgcolor=808080>Name" .DisplayFilterButton = .T. .FilterList = 9504 && FilterListEnum.exShowExclude Or FilterListEnum.exShowFocusItem Or FilterListEnum.exShowCheckBox Or FilterListEnum.exSortItemsAsc .FilterBarDropDownWidth = 2 endwith .EndUpdate endwith with .View("State") .BeginUpdate .ColumnAutoResize = .T. .Columns.Item(0).Visible = .F. .Columns.Item(1).Visible = .F. with .Columns.Item(2) .HTMLCaption = "State <off 4><fgcolor=808080>Name" .DisplayFilterButton = .T. .FilterList = 9504 && FilterListEnum.exShowExclude Or FilterListEnum.exShowFocusItem Or FilterListEnum.exShowCheckBox Or FilterListEnum.exSortItemsAsc .FilterBarDropDownWidth = 2 endwith .EndUpdate endwith with .View("City") .BeginUpdate .Columns.Item(0).Visible = .F. .Columns.Item(1).Visible = .F. with .Columns.Item(2) .HTMLCaption = "City <off 4><fgcolor=808080>Name" .Width = 128 .Def(0) = .T. .DisplayFilterButton = .T. .FilterList = 9504 && FilterListEnum.exShowExclude Or FilterListEnum.exShowFocusItem Or FilterListEnum.exShowCheckBox Or FilterListEnum.exSortItemsAsc .FilterBarDropDownWidth = 2 endwith with .Columns.Add("Pos") .AllowSizing = .F. .Width = 32 .Def(4) = 15790320 .Position = 0 .FormatColumn = "1 pos ``" endwith .CountLockedColumns = 1 .EndUpdate endwith endwith with .View .FilterBarHeight = 36 var_s = "(( ( allui replace `[<b>` with `<bgcolor=000000><fgcolor=FFFFFF><b> ` replace `</b>]` with ` </b></bgcolor></fgcolor>` replace `" var_s = var_s + "[<s>` with `<bgcolor=C0C0C0><fgcolor=FFFFFF> ` replace `</s>]` with ` </fgcolor></bgcolor>` ) + `<r><fgcolor=808080>` + ( match" var_s = var_s + "itemcount < 0 ? ( ( len(value) ? `` : `` ) + `<r>` + abs(matchitemcount + 1) + ` result(s)` ) : (`<r><fgcolor=808080>`+ itemcoun" var_s = var_s + "t + ` item(s)`) )))" .FilterBarCaption = var_s .FilterBarPromptType = 3 .FilterBarPromptVisible = 515 && FilterBarVisibleEnum.exFilterBarShowCloseIfRequired Or FilterBarVisibleEnum.exFilterBarVisible Or FilterBarVisibleEnum.exFilterBarPromptVisible endwith endwith * Error event - An internal error occurs. * LPARAMETERS Error, Description with thisform.CascadeTree1 DEBUGOUT( "Error" ) DEBUGOUT( Description ) endwith with thisform.CascadeTree1 .BeginUpdate .Object.ScrollPartVisible(0,65536) = .T. .Object.ScrollPartVisible(1,65536) = .T. .Object.ScrollPartVisible(2,65536) = .T. .ScrollWidth = 4 .Object.Background(276) = RGB(240,240,240) .Object.Background(260) = RGB(128,128,128) .ScrollHeight = 4 .Object.Background(404) = .Background(276) .Object.Background(388) = .Background(260) .Object.Background(511) = .Background(276) .Object.Background(18) = RGB(196,196,196) .Object.Background(142) = .Background(18) .Object.Background(141) = .Background(18) .Object.Background(170) = RGB(2,0,0) .EndUpdate .BeginUpdate .MinColumnWidth = 348 .Mode = 3 .Object.Background(18) = RGB(196,196,196) var_s = "Source=C:\Program Files\Exontrol\ExCascadeTree\Sample\Access\cities.accdb;Member=Select * FROM Countries;Key=CountryCode;Tag=Cou" var_s = var_s + "ntry;Name=CountryName >>> Member=Select * FROM States WHERE CountryCode IN (<%Parent.CountryCode%>);Key=StateCode;Name=StateName" var_s = var_s + ";Tag=State \|\|\| Member=Select * FROM Cities WHERE CountryCode IN (<%Parent.CountryCode%>);Tag=City;Name=Name >>> Member=Select * " var_s = var_s + "FROM Cities WHERE CountryCode IN (<%Parent.Parent.CountryCode%>) AND StateCode IN (<%Parent.StateCode%>);Tag=City;Name=Name" .DataSource = var_s .Select = "US\AK" with .DefaultView().View("City") .FilterBarPromptPattern = "An" endwith .EndUpdate endwith
58	I am using the filter prompt feature, the question is how can I filter for items that starts with typed characters rather than contains * CreateView event - A view has been created. * LPARAMETERS View with thisform.CascadeTree1 with .View .FilterBarPromptType = 3 .FilterBarPromptVisible = 1 endwith endwith * Error event - An internal error occurs. * LPARAMETERS Error, Description with thisform.CascadeTree1 DEBUGOUT( "Error" ) DEBUGOUT( Description ) endwith with thisform.CascadeTree1 .BeginUpdate .Mode = 3 .Object.Background(18) = RGB(196,196,196) var_s = "Source=C:\Program Files\Exontrol\ExCascadeTree\Sample\Access\cities.accdb;Member=Select * FROM Countries;Key=CountryCode;Tag=Cou" var_s = var_s + "ntry;Name=CountryName >>> Member=Select * FROM States WHERE CountryCode IN (<%Parent.CountryCode%>);Key=StateCode;Name=StateName" var_s = var_s + ";Tag=State \|\|\| Member=Select * FROM Cities WHERE CountryCode IN (<%Parent.CountryCode%>);Tag=City;Name=Name >>> Member=Select * " var_s = var_s + "FROM Cities WHERE CountryCode IN (<%Parent.Parent.CountryCode%>) AND StateCode IN (<%Parent.StateCode%>);Tag=City;Name=Name" .DataSource = var_s .Select = "US\AK" with .DefaultView().View("City") .FilterBarPromptPattern = "An" with .Columns.Item("Name") .Width = 128 .Def(17) = 1 .FormatColumn = "value replace `An` with `<bgcolor=000000><fgcolor=FFFFFF>An</fgcolor></bgcolor>` " endwith endwith .EndUpdate endwith
57	FilterBarCaption Predefined Keywords * Error event - An internal error occurs. * LPARAMETERS Error, Description with thisform.CascadeTree1 DEBUGOUT( "Error" ) DEBUGOUT( Description ) endwith with thisform.CascadeTree1 .BeginUpdate .BackColorAlternate = RGB(240,240,240) .Mode = 1 .Object.Background(18) = RGB(196,196,196) var_s = "Source=C:\Program Files\Exontrol\ExCascadeTree\Sample\Access\cities.accdb;Member=Select * FROM Countries;Key=CountryCode;Tag=Cou" var_s = var_s + "ntry;Name=CountryName >>> Member=Select * FROM States WHERE CountryCode IN (<%Parent.CountryCode%>);Key=StateCode;Name=StateName" var_s = var_s + ";Tag=State \|\|\| Member=Select * FROM Cities WHERE CountryCode IN (<%Parent.CountryCode%>);Tag=City;Name=Name >>> Member=Select * " var_s = var_s + "FROM Cities WHERE CountryCode IN (<%Parent.Parent.CountryCode%>) AND StateCode IN (<%Parent.StateCode%>);Tag=City;Name=Name" .DataSource = var_s .Select = "US" with .DefaultView().View("Country") with .Columns.Add("Pos") .Position = 0 .Width = 32 .AllowSizing = .F. .FormatColumn = "1pos ``" endwith with .Columns.Item("CountryCode") .Width = 32 .AllowSizing = .F. .DisplayFilterButton = .T. endwith with .Columns.Item("CountryName") .DisplayFilterButton = .T. .FilterList = 9504 && FilterListEnum.exShowExclude Or FilterListEnum.exShowFocusItem Or FilterListEnum.exShowCheckBox Or FilterListEnum.exSortItemsAsc .FilterBarDropDownWidth = 2 .FilterType = 240 .Filter = "Italy\|Romania\|Germany" endwith .FilterBarPromptPattern = "a" .ColumnAutoResize = .T. .SearchColumnIndex = .Columns.Item("CountryName").Index .FilterInclude = 1 var_s1 = "`<fgcolor=0000FF><i>value/current</i></fgcolor>: <fgcolor=808080>` + value + `</fgcolor>` + `<br><fgcolor=0000FF><i>available</i" var_s1 = var_s1 + "></fgcolor>: ` + available + `<br><fgcolor=0000FF><i>allui</i></fgcolor>: ` + allui + `<br><fgcolor=0000FF><i>all</i></fgcolor>:" var_s1 = var_s1 + " ` + all + `<br><fgcolor=0000FF><i>itemcount</i></fgcolor>: <fgcolor=808080>` + itemcount + `</fgcolor>`+ `<br><fgcolor=0000FF><" var_s1 = var_s1 + "i>visibleitemcount</i></fgcolor>: <fgcolor=808080>` + visibleitemcount + `</fgcolor>`+ `<br><fgcolor=0000FF><i>matchitemcount</i" var_s1 = var_s1 + "></fgcolor>: <fgcolor=808080>` + matchitemcount + `</fgcolor>`+ `<br><fgcolor=0000FF><i>promptpattern</i></fgcolor>: <fgcolor=80" var_s1 = var_s1 + "8080>` + promptpattern + `</fgcolor>`+ `<br><fgcolor=0000FF><i>leafitemcount</i></fgcolor>: <fgcolor=808080>` + leafitemcount + " var_s1 = var_s1 + "`</fgcolor>`" .FilterBarCaption = var_s1 .FilterBarPromptVisible = 7 && FilterBarVisibleEnum.exFilterBarCaptionVisible Or FilterBarVisibleEnum.exFilterBarVisible Or FilterBarVisibleEnum.exFilterBarPromptVisible .ApplyFilter endwith .EndUpdate endwith
56	How can I enable the column's filter bar (view) * CreateView event - A view has been created. * LPARAMETERS View with thisform.CascadeTree1 .View.FilterBarPromptVisible = 1 endwith * Error event - An internal error occurs. * LPARAMETERS Error, Description with thisform.CascadeTree1 DEBUGOUT( "Error" ) DEBUGOUT( Description ) endwith with thisform.CascadeTree1 .BeginUpdate .Mode = 3 .Object.Background(18) = RGB(196,196,196) var_s = "Source=C:\Program Files\Exontrol\ExCascadeTree\Sample\Access\cities.accdb;Member=Select * FROM Countries;Key=CountryCode;Tag=Cou" var_s = var_s + "ntry;Name=CountryName >>> Member=Select * FROM States WHERE CountryCode IN (<%Parent.CountryCode%>);Key=StateCode;Name=StateName" var_s = var_s + ";Tag=State \|\|\| Member=Select * FROM Cities WHERE CountryCode IN (<%Parent.CountryCode%>);Tag=City;Name=Name >>> Member=Select * " var_s = var_s + "FROM Cities WHERE CountryCode IN (<%Parent.Parent.CountryCode%>) AND StateCode IN (<%Parent.StateCode%>);Tag=City;Name=Name" .DataSource = var_s .Select = "US\AK" with .DefaultView().View("Country") .ColumnAutoResize = .T. .Columns.Item("CountryCode").Visible = .F. with .Columns.Item("CountryName") .DisplayFilterButton = .T. .FilterList = 9504 && FilterListEnum.exShowExclude Or FilterListEnum.exShowFocusItem Or FilterListEnum.exShowCheckBox Or FilterListEnum.exSortItemsAsc .FilterBarDropDownWidth = 2 .FilterType = 240 .Filter = "Romania\|Germany" endwith .ApplyFilter endwith .EndUpdate endwith
55	How can I enable the column's filter bar * CreateView event - A view has been created. * LPARAMETERS View with thisform.CascadeTree1 with .View .FilterBarPromptVisible = 1 with .Columns.Item(0) .DisplayFilterButton = .T. .FilterList = 9504 && FilterListEnum.exShowExclude Or FilterListEnum.exShowFocusItem Or FilterListEnum.exShowCheckBox Or FilterListEnum.exSortItemsAsc .FilterBarDropDownWidth = 2 endwith endwith with .DefaultView().View("Country") with .Columns.Item(0) .FilterType = 240 .Filter = "US\|RO\|GE" endwith .ApplyFilter endwith endwith * Error event - An internal error occurs. * LPARAMETERS Error, Description with thisform.CascadeTree1 DEBUGOUT( "Error" ) DEBUGOUT( Description ) endwith with thisform.CascadeTree1 .BeginUpdate .Mode = 3 .Object.Background(18) = RGB(196,196,196) var_s = "Source=C:\Program Files\Exontrol\ExCascadeTree\Sample\Access\cities.accdb;Member=Select * FROM Countries;Key=CountryCode;Tag=Cou" var_s = var_s + "ntry;Name=CountryName >>> Member=Select * FROM States WHERE CountryCode IN (<%Parent.CountryCode%>);Key=StateCode;Name=StateName" var_s = var_s + ";Tag=State \|\|\| Member=Select * FROM Cities WHERE CountryCode IN (<%Parent.CountryCode%>);Tag=City;Name=Name >>> Member=Select * " var_s = var_s + "FROM Cities WHERE CountryCode IN (<%Parent.Parent.CountryCode%>) AND StateCode IN (<%Parent.StateCode%>);Tag=City;Name=Name" .DataSource = var_s .Select = "US\AK" .EndUpdate endwith
54	How can I enable the control's filter bar (view) * Error event - An internal error occurs. * LPARAMETERS Error, Description with thisform.CascadeTree1 DEBUGOUT( "Error" ) DEBUGOUT( Description ) endwith with thisform.CascadeTree1 .BeginUpdate .Mode = 3 .Object.Background(18) = RGB(196,196,196) var_s = "Source=C:\Program Files\Exontrol\ExCascadeTree\Sample\Access\cities.accdb;Member=Select * FROM Countries;Key=CountryCode;Tag=Cou" var_s = var_s + "ntry;Name=CountryName >>> Member=Select * FROM States WHERE CountryCode IN (<%Parent.CountryCode%>);Key=StateCode;Name=StateName" var_s = var_s + ";Tag=State \|\|\| Member=Select * FROM Cities WHERE CountryCode IN (<%Parent.CountryCode%>);Tag=City;Name=Name >>> Member=Select * " var_s = var_s + "FROM Cities WHERE CountryCode IN (<%Parent.Parent.CountryCode%>) AND StateCode IN (<%Parent.StateCode%>);Tag=City;Name=Name" .DataSource = var_s .Select = "US\AK" .DefaultView().FilterBarPromptVisible = 1 .EndUpdate endwith
53	How can I enable the control's filter bar * CreateView event - A view has been created. * LPARAMETERS View with thisform.CascadeTree1 .View.FilterBarPromptVisible = 1 endwith * Error event - An internal error occurs. * LPARAMETERS Error, Description with thisform.CascadeTree1 DEBUGOUT( "Error" ) DEBUGOUT( Description ) endwith with thisform.CascadeTree1 .BeginUpdate .Mode = 3 .Object.Background(18) = RGB(196,196,196) var_s = "Source=C:\Program Files\Exontrol\ExCascadeTree\Sample\Access\cities.accdb;Member=Select * FROM Countries;Key=CountryCode;Tag=Cou" var_s = var_s + "ntry;Name=CountryName >>> Member=Select * FROM States WHERE CountryCode IN (<%Parent.CountryCode%>);Key=StateCode;Name=StateName" var_s = var_s + ";Tag=State \|\|\| Member=Select * FROM Cities WHERE CountryCode IN (<%Parent.CountryCode%>);Tag=City;Name=Name >>> Member=Select * " var_s = var_s + "FROM Cities WHERE CountryCode IN (<%Parent.Parent.CountryCode%>) AND StateCode IN (<%Parent.StateCode%>);Tag=City;Name=Name" .DataSource = var_s .Select = "US\AK" .EndUpdate endwith
52	Aggregate sum, min, max, count, avg, divider, total (view) * Error event - An internal error occurs. * LPARAMETERS Error, Description with thisform.CascadeTree1 DEBUGOUT( "Error" ) DEBUGOUT( Description ) endwith with thisform.CascadeTree1 .BeginUpdate .Mode = 2 .Object.Background(18) = RGB(196,196,196) .Object.Background(170) = RGB(4,0,0) var_s = "Source=C:\Program Files\Exontrol\ExCascadeTree\Sample\Access\cities.accdb;Member=Select * FROM Countries;Key=CountryCode;Tag=Cou" var_s = var_s + "ntry;Name=CountryName >>> Member=Select * FROM States WHERE CountryCode IN (<%Parent.CountryCode%>);Key=StateCode;Name=StateName" var_s = var_s + ";Tag=State \|\|\| Member=Select * FROM Cities WHERE CountryCode IN (<%Parent.CountryCode%>);Tag=City;Name=Name >>> Member=Select * " var_s = var_s + "FROM Cities WHERE CountryCode IN (<%Parent.Parent.CountryCode%>) AND StateCode IN (<%Parent.StateCode%>);Tag=City;Name=Name" .DataSource = var_s .Select = "RO" with .DefaultView().View("Country") .BeginUpdate .ColumnAutoResize = .T. .Columns.Item(0).Visible = .F. with .Items .LockedItemCount(0) = 1 h = .LockedItem(0,0) .ItemDivider(h) = 0 .CellValueFormat(h,0) = 5 && ValueFormatEnum.exTotalField Or ValueFormatEnum.exHTML .CellValue(h,0) = "count(all,all,1)" .FormatCell(h,0) = "`<r>Countries: <b>`+ (value format `0`)" endwith .EndUpdate endwith .EndUpdate endwith
51	Aggregate sum, min, max, count, avg, divider, total * CreateView event - A view has been created. * LPARAMETERS View with thisform.CascadeTree1 .View.HeaderVisible = .F. with .DefaultView() with .View("Country") .BeginUpdate .ColumnAutoResize = .T. .Columns.Item(0).Visible = .F. with .Items .LockedItemCount(0) = 1 h = .LockedItem(0,0) .ItemDivider(h) = 0 .CellValueFormat(h,0) = 5 && ValueFormatEnum.exTotalField Or ValueFormatEnum.exHTML .CellValue(h,0) = "count(all,all,1)" .FormatCell(h,0) = "`<r>Countries: <b>`+ (value format `0`)" endwith .EndUpdate endwith with .View("State") .BeginUpdate .SingleSel = .F. .ColumnAutoResize = .T. .Columns.Item(0).Visible = .F. .Columns.Item(1).Visible = .F. with .Items .LockedItemCount(0) = 1 h = .LockedItem(0,0) .ItemDivider(h) = 0 .CellValueFormat(h,0) = 5 && ValueFormatEnum.exTotalField Or ValueFormatEnum.exHTML .CellValue(h,0) = "count(all,all,1)" .FormatCell(h,0) = "`<r>States: <b>`+ (value format `0`)" endwith .EndUpdate endwith with .View("City") .BeginUpdate .Columns.Item(0).Visible = .F. .Columns.Item(1).Visible = .F. with .Columns.Item(2) .Width = 128 .HTMLCaption = "CityName" endwith with .Items .LockedItemCount(0) = 1 h = .LockedItem(0,0) .ItemDivider(h) = 0 .CellValueFormat(h,0) = 5 && ValueFormatEnum.exTotalField Or ValueFormatEnum.exHTML .CellValue(h,0) = "count(all,all,1)" .FormatCell(h,0) = "`<r>Cities: <b>`+ (value format `0`)" endwith .EndUpdate endwith endwith endwith * Error event - An internal error occurs. * LPARAMETERS Error, Description with thisform.CascadeTree1 DEBUGOUT( "Error" ) DEBUGOUT( Description ) endwith with thisform.CascadeTree1 .BeginUpdate .Mode = 3 .Object.Background(18) = RGB(196,196,196) .Object.Background(170) = RGB(4,0,0) var_s = "Source=C:\Program Files\Exontrol\ExCascadeTree\Sample\Access\cities.accdb;Member=Select * FROM Countries;Key=CountryCode;Tag=Cou" var_s = var_s + "ntry;Name=CountryName >>> Member=Select * FROM States WHERE CountryCode IN (<%Parent.CountryCode%>);Key=StateCode;Name=StateName" var_s = var_s + ";Tag=State \|\|\| Member=Select * FROM Cities WHERE CountryCode IN (<%Parent.CountryCode%>);Tag=City;Name=Name >>> Member=Select * " var_s = var_s + "FROM Cities WHERE CountryCode IN (<%Parent.Parent.CountryCode%>) AND StateCode IN (<%Parent.StateCode%>);Tag=City;Name=Name" .DataSource = var_s .Select = "US\AK" .EndUpdate endwith
50	How can I add a check-box column (view) * Error event - An internal error occurs. * LPARAMETERS Error, Description with thisform.CascadeTree1 DEBUGOUT( "Error" ) DEBUGOUT( Description ) endwith with thisform.CascadeTree1 .BeginUpdate .StatusBarVisible = 2 .StatusBarLabel = "<c>Select multiple-items in the City view, and press <b>SPACE</b> key" .Object.Background(168) = .BackColor var_s = "gBFLBCJwBAEHhEJAAEhABO0GACAADACAxRDgMQBQKAAzAJBIYhiG4cYCgMYxXDOCYXABCEYRXBKUQSDqEYyjGLIXAWCYSAAMIwDKAUEhqGiUBihaQhRgyJI3RlJGaoDi" var_s = var_s + "KIokShKEpDLKlCx3H6OKQjOZgAoySo4SbDMp0NAkRBlFqcJCCCLAUgmTpQUBOYyiLKNRxQGoYLIlayZIiSIpMRbWcB3BYEOSFFasAAleYZTg2Jp1TbPAAYFL1ISDKSiI" var_s = var_s + "ZqTA6PheT5yUzCNazbgEMTvRKqcSnO6bOgnEKQZKAGg4bg1RTVAYZLKtPR7aqyUJvZ5sMB6DiuLYRPKXZoucaNExSS5ebJtOzQJbEXBpXSpBwzSieBozIaQcJUOoaVxP" var_s = var_s + "FkaJrGuIx3h2BZPgOUIQmUcIwDARAkiAaQxh0DonCMLAeBKZobBCCY+niWJaBIKJJH4MoBgiQpCmmUR/ooBgCgCYBIBYBoBmCBYAn+ApgkgNgOgOYQIEYBIEGESBWBSB" var_s = var_s + "JhGgZgZgYIYoHYEIHCGaIGAuCAiCgegkgkYYoh4KIFiKKIuBeAJimiGgwgwYoYk4NILCCGJmDqDpjkidg+gGTo1jUAxAEAgI" .VisualAppearance.Add(1,var_s) .SelBackColor = 0x1000000 .SelForeColor = .ForeColor .Mode = 3 .Object.Background(18) = RGB(196,196,196) var_s1 = "Source=C:\Program Files\Exontrol\ExCascadeTree\Sample\Access\cities.accdb;Member=Select * FROM Countries;Key=CountryCode;Tag=Cou" var_s1 = var_s1 + "ntry;Name=CountryName >>> Member=Select * FROM States WHERE CountryCode IN (<%Parent.CountryCode%>);Key=StateCode;Name=StateName" var_s1 = var_s1 + ";Tag=State \|\|\| Member=Select * FROM Cities WHERE CountryCode IN (<%Parent.CountryCode%>);Tag=City;Name=Name >>> Member=Select * " var_s1 = var_s1 + "FROM Cities WHERE CountryCode IN (<%Parent.Parent.CountryCode%>) AND StateCode IN (<%Parent.StateCode%>);Tag=City;Name=Name" .DataSource = var_s1 .Select = "US\AK" with .DefaultView().View("City") .BeginUpdate .ShowFocusRect = .F. .SingleSel = .F. .Columns.Item(0).Visible = .F. .Columns.Item(1).Visible = .F. with .Columns.Item(2) .HTMLCaption = "City <off 4><fgcolor=808080>Name" .Width = 128 .Def(0) = .T. endwith .SearchColumnIndex = .Columns.Item("Name").Index with .Columns.Add("Pos") .Position = 0 .Width = 32 .FormatColumn = "1 pos ``" endwith with .ConditionalFormats .Add("%CS2 = 1").BackColor = RGB(190,190,190) with .Add("%CS2 = 1") .Bold = .T. .ApplyTo = 8 && 0x8 endwith endwith with .Items .CellState(.ItemByIndex(1),2) = 1 .CellState(.ItemByIndex(3),2) = 1 .CellState(.ItemByIndex(5),2) = 1 endwith .EndUpdate endwith .EndUpdate endwith
49	How can I add a check-box column * CreateView event - A view has been created. * LPARAMETERS View with thisform.CascadeTree1 with .View .HeaderAppearance = 4 .HeaderHeight = 24 .DrawGridLines = 2 .GridLineStyle = 12 endwith with .DefaultView() with .View("Country") .BeginUpdate .ColumnAutoResize = .T. .Columns.Item(0).Visible = .F. .Columns.Item(1).HTMLCaption = "Country <off 4><fgcolor=808080>Name" .EndUpdate endwith with .View("State") .BeginUpdate .ColumnAutoResize = .T. .Columns.Item(0).Visible = .F. .Columns.Item(1).Visible = .F. .Columns.Item(2).HTMLCaption = "State <off 4><fgcolor=808080>Name" .EndUpdate endwith with .View("City") .BeginUpdate .ShowFocusRect = .F. .SingleSel = .F. .Columns.Item(0).Visible = .F. .Columns.Item(1).Visible = .F. with .Columns.Item(2) .HTMLCaption = "City <off 4><fgcolor=808080>Name" .Width = 128 .Def(0) = .T. endwith .SearchColumnIndex = .Columns.Item("Name").Index with .Columns.Add("Pos") .Position = 0 .Width = 32 .FormatColumn = "1 pos ``" endwith with .ConditionalFormats .Add("%CS2 = 1").BackColor = RGB(190,190,190) with .Add("%CS2 = 1") .Bold = .T. .ApplyTo = 8 && 0x8 endwith endwith with .Items .CellState(.ItemByIndex(1),2) = 1 .CellState(.ItemByIndex(3),2) = 1 .CellState(.ItemByIndex(5),2) = 1 endwith .EndUpdate endwith endwith endwith * Error event - An internal error occurs. * LPARAMETERS Error, Description with thisform.CascadeTree1 DEBUGOUT( "Error" ) DEBUGOUT( Description ) endwith with thisform.CascadeTree1 .BeginUpdate .StatusBarVisible = 2 .StatusBarLabel = "<c>Select multiple-items in the City view, and press <b>SPACE</b> key" .Object.Background(168) = .BackColor var_s = "gBFLBCJwBAEHhEJAAEhABO0GACAADACAxRDgMQBQKAAzAJBIYhiG4cYCgMYxXDOCYXABCEYRXBKUQSDqEYyjGLIXAWCYSAAMIwDKAUEhqGiUBihaQhRgyJI3RlJGaoDi" var_s = var_s + "KIokShKEpDLKlCx3H6OKQjOZgAoySo4SbDMp0NAkRBlFqcJCCCLAUgmTpQUBOYyiLKNRxQGoYLIlayZIiSIpMRbWcB3BYEOSFFasAAleYZTg2Jp1TbPAAYFL1ISDKSiI" var_s = var_s + "ZqTA6PheT5yUzCNazbgEMTvRKqcSnO6bOgnEKQZKAGg4bg1RTVAYZLKtPR7aqyUJvZ5sMB6DiuLYRPKXZoucaNExSS5ebJtOzQJbEXBpXSpBwzSieBozIaQcJUOoaVxP" var_s = var_s + "FkaJrGuIx3h2BZPgOUIQmUcIwDARAkiAaQxh0DonCMLAeBKZobBCCY+niWJaBIKJJH4MoBgiQpCmmUR/ooBgCgCYBIBYBoBmCBYAn+ApgkgNgOgOYQIEYBIEGESBWBSB" var_s = var_s + "JhGgZgZgYIYoHYEIHCGaIGAuCAiCgegkgkYYoh4KIFiKKIuBeAJimiGgwgwYoYk4NILCCGJmDqDpjkidg+gGTo1jUAxAEAgI" .VisualAppearance.Add(1,var_s) .SelBackColor = 0x1000000 .SelForeColor = .ForeColor .Mode = 3 .Object.Background(18) = RGB(196,196,196) var_s1 = "Source=C:\Program Files\Exontrol\ExCascadeTree\Sample\Access\cities.accdb;Member=Select * FROM Countries;Key=CountryCode;Tag=Cou" var_s1 = var_s1 + "ntry;Name=CountryName >>> Member=Select * FROM States WHERE CountryCode IN (<%Parent.CountryCode%>);Key=StateCode;Name=StateName" var_s1 = var_s1 + ";Tag=State \|\|\| Member=Select * FROM Cities WHERE CountryCode IN (<%Parent.CountryCode%>);Tag=City;Name=Name >>> Member=Select * " var_s1 = var_s1 + "FROM Cities WHERE CountryCode IN (<%Parent.Parent.CountryCode%>) AND StateCode IN (<%Parent.StateCode%>);Tag=City;Name=Name" .DataSource = var_s1 .Select = "US\AK" .EndUpdate endwith
48	How can I access a view * CreateView event - A view has been created. * LPARAMETERS View with thisform.CascadeTree1 with .View .HeaderAppearance = 4 .HeaderHeight = 24 .DrawGridLines = -1 .GridLineStyle = 12 endwith with .DefaultView() with .View("Country") .BeginUpdate .ColumnAutoResize = .T. .Columns.Item(0).Visible = .F. .Columns.Item(1).HTMLCaption = "Country <off 4><fgcolor=808080>Name" .EndUpdate endwith with .View("State") .BeginUpdate .ColumnAutoResize = .T. .Columns.Item(0).Visible = .F. .Columns.Item(1).Visible = .F. .Columns.Item(2).HTMLCaption = "State <off 4><fgcolor=808080>Name" .EndUpdate endwith with .View("City") .BeginUpdate .Columns.Item(0).Visible = .F. .Columns.Item(1).Visible = .F. with .Columns.Item(2) .HTMLCaption = "City <off 4><fgcolor=808080>Name" .Width = 128 .Def(4) = 15790320 endwith .CountLockedColumns = 1 .EndUpdate endwith endwith endwith * Error event - An internal error occurs. * LPARAMETERS Error, Description with thisform.CascadeTree1 DEBUGOUT( "Error" ) DEBUGOUT( Description ) endwith with thisform.CascadeTree1 .BeginUpdate .Mode = 3 .Object.Background(18) = RGB(196,196,196) var_s = "Source=C:\Program Files\Exontrol\ExCascadeTree\Sample\Access\cities.accdb;Member=Select * FROM Countries;Key=CountryCode;Tag=Cou" var_s = var_s + "ntry;Name=CountryName >>> Member=Select * FROM States WHERE CountryCode IN (<%Parent.CountryCode%>);Key=StateCode;Name=StateName" var_s = var_s + ";Tag=State \|\|\| Member=Select * FROM Cities WHERE CountryCode IN (<%Parent.CountryCode%>);Tag=City;Name=Name >>> Member=Select * " var_s = var_s + "FROM Cities WHERE CountryCode IN (<%Parent.Parent.CountryCode%>) AND StateCode IN (<%Parent.StateCode%>);Tag=City;Name=Name" .DataSource = var_s .Select = "US\AK" .EndUpdate endwith
47	Conditional Format (check) * CreateView event - A view has been created. * LPARAMETERS View with thisform.CascadeTree1 with .View with .ConditionalFormats.Add("%CS0 = 1") .Bold = .T. endwith .Columns.Item(0).Def(0) = .T. with .Items .CellState(.FocusItem,0) = 1 endwith endwith endwith * Error event - An internal error occurs. * LPARAMETERS Error, Description with thisform.CascadeTree1 DEBUGOUT( "Error" ) DEBUGOUT( Description ) endwith with thisform.CascadeTree1 .BeginUpdate .Mode = 3 .Object.Background(18) = RGB(196,196,196) var_s = "Source=C:\Program Files\Exontrol\ExCascadeTree\Sample\Access\cities.accdb;Member=Select * FROM Countries;Key=CountryCode;Tag=Cou" var_s = var_s + "ntry;Name=CountryName >>> Member=Select * FROM States WHERE CountryCode IN (<%Parent.CountryCode%>);Key=StateCode;Name=StateName" var_s = var_s + ";Tag=State \|\|\| Member=Select * FROM Cities WHERE CountryCode IN (<%Parent.CountryCode%>);Tag=City;Name=Name >>> Member=Select * " var_s = var_s + "FROM Cities WHERE CountryCode IN (<%Parent.Parent.CountryCode%>) AND StateCode IN (<%Parent.StateCode%>);Tag=City;Name=Name" .DataSource = var_s .Select = "US\AK" .EndUpdate endwith
46	Conditional Format (view) * Error event - An internal error occurs. * LPARAMETERS Error, Description with thisform.CascadeTree1 DEBUGOUT( "Error" ) DEBUGOUT( Description ) endwith with thisform.CascadeTree1 .BeginUpdate .Mode = 3 .Object.Background(18) = RGB(196,196,196) var_s = "Source=C:\Program Files\Exontrol\ExCascadeTree\Sample\Access\cities.accdb;Member=Select * FROM Countries;Key=CountryCode;Tag=Cou" var_s = var_s + "ntry;Name=CountryName >>> Member=Select * FROM States WHERE CountryCode IN (<%Parent.CountryCode%>);Key=StateCode;Name=StateName" var_s = var_s + ";Tag=State \|\|\| Member=Select * FROM Cities WHERE CountryCode IN (<%Parent.CountryCode%>);Tag=City;Name=Name >>> Member=Select * " var_s = var_s + "FROM Cities WHERE CountryCode IN (<%Parent.Parent.CountryCode%>) AND StateCode IN (<%Parent.StateCode%>);Tag=City;Name=Name" .DataSource = var_s .Select = "US\AK" with .DefaultView().View("City") with .ConditionalFormats.Add("(%0 = `US`) and (%2 like `Al*`)") .Bold = .T. .BackColor = RGB(240,240,240) endwith endwith .EndUpdate endwith
45	Conditional Format * CreateView event - A view has been created. * LPARAMETERS View with thisform.CascadeTree1 with .View with .ConditionalFormats.Add("%0 = `US`") .Bold = .T. endwith endwith endwith * Error event - An internal error occurs. * LPARAMETERS Error, Description with thisform.CascadeTree1 DEBUGOUT( "Error" ) DEBUGOUT( Description ) endwith with thisform.CascadeTree1 .BeginUpdate .Mode = 3 .Object.Background(18) = RGB(196,196,196) var_s = "Source=C:\Program Files\Exontrol\ExCascadeTree\Sample\Access\cities.accdb;Member=Select * FROM Countries;Key=CountryCode;Tag=Cou" var_s = var_s + "ntry;Name=CountryName >>> Member=Select * FROM States WHERE CountryCode IN (<%Parent.CountryCode%>);Key=StateCode;Name=StateName" var_s = var_s + ";Tag=State \|\|\| Member=Select * FROM Cities WHERE CountryCode IN (<%Parent.CountryCode%>);Tag=City;Name=Name >>> Member=Select * " var_s = var_s + "FROM Cities WHERE CountryCode IN (<%Parent.Parent.CountryCode%>) AND StateCode IN (<%Parent.StateCode%>);Tag=City;Name=Name" .DataSource = var_s .Select = "US\AK" .EndUpdate endwith
44	I've seen the AllowSplitView property, the question is how can I load data to * Error event - An internal error occurs. * LPARAMETERS Error, Description with thisform.CascadeTree1 DEBUGOUT( "Error" ) DEBUGOUT( Description ) endwith with thisform.CascadeTree1 .BeginUpdate .Mode = 3 var_s = "Source=C:\Program Files\Exontrol\ExCascadeTree\Sample\Access\cities.accdb;Member=Select * FROM Countries;Key=CountryCode;Tag=Cou" var_s = var_s + "ntry;Name=CountryName >>> Member=Select * FROM States WHERE CountryCode IN (<%Parent.CountryCode%>);Key=StateCode;Name=StateName" var_s = var_s + ";Tag=State \|\|\| Member=Select * FROM Cities WHERE CountryCode IN (<%Parent.CountryCode%>);Tag=City;Name=Name >>> Member=Select * " var_s = var_s + "FROM Cities WHERE CountryCode IN (<%Parent.Parent.CountryCode%>) AND StateCode IN (<%Parent.StateCode%>);Tag=City;Name=Name" .DataSource = var_s .Select = "US\AK" .AllowSplitView = 1 .SplitViewHeight = 256 with .DefaultView(1) endwith .EndUpdate endwith
43	How can I group the items (view) * CreateView event - A view has been created. * LPARAMETERS View with thisform.CascadeTree1 .View.SingleSel = .F. endwith * Error event - An internal error occurs. * LPARAMETERS Error, Description with thisform.CascadeTree1 DEBUGOUT( "Error" ) DEBUGOUT( Description ) endwith with thisform.CascadeTree1 .BeginUpdate with .VisualAppearance var_s = "gBFLBCJwBAEHhEJAAEhABa0GACAADACAxRDgMQBQKAAzAJBIYhiG4cYCgMYxXDOCYXABCEYRXBIZQ7BKNIxjSJwFgkAoJDYOMjwlDKEgADDFEgjJBkRxtDCPIDnGQoDi" var_s = var_s + "GI4vSrCQ4yDA8GxCGSfIrjKiYbiGNY8RgZCiOMAFJSpC6gZRoSq4doGGJLQiDMaAdBNHyZKqpbQqeCZPDINQlWzbcrjKKFYQTOi7I4sCbYcqKA5PTbNdYyVBMWxfGIba" var_s = var_s + "IkXAcBjuO4hWbFdASRQdDYtHTIbzjCxLcgMD4gRwWCYNSAGRZJLDKK4gSh6eorHQAX4AGabFBOP5fC7TNJ0OKLRrkAJub5eFx3LJ97ohbLsOzYZK2ByDFqiMLGQZMZxv" var_s = var_s + "GWUBAnYfJImcOwLEiBp0gaGpekSBxjE+WZ2jse5Im2S5ZkGYhdn4EY6A4Q4vAOWJ6H0V4oEgIgSFAGhGDGUB1ByBhVBUAwyhKMQIE2AgRjCWQJAoEIWk2SxCAGBBghQe" var_s = var_s + "JYkMZIYBYIYoHIG4HGICB+CKB4iEiBglgaUAzhiJAZA+Q4Qk2CxiniOgwgyYwolYMYNmMQw2CoGQihiLg5g+YxpAIOINiOOJ2CyEBkgkDhKhCJBQAI2IlAkJhMgqZBpE" var_s = var_s + "YS4UiSGQ2E+FglHkdg5haI5pHIVoViYCQeF6vZJhYY4aCWWYqGyGpkimOhnhyZQ4nIToYGcSY+ESFQnHmGhwh+YpphYO4gmKOlEiGKIKBaCohmeQ4tkUQJQBAgI=" .Add(1,var_s) var_s1 = "gBFLBCJwBAEHhEJAAEhABO0GACAADACAxRDgMQBQKAAzAJBIYhiG4cYCgMYxXDOCYXABCEYRXBIZQ7BKNIxjSJwFgkAoJDYOMjwlDKEgADDFEgjDBkRxtDCPIDnGQoDi" var_s1 = var_s1 + "GI4vSrCQ4zHQkOx9C6NKLjOQaMhwcJPABTZwRRQMUyLAiQRioGKKJgkC4cAxIFhRXSVIyhC6XRiGURbJquLw1DBbEI3BaUOS7HqOK7vCZ7cACVYqQjLMrzCK8ZxLPqbZ" var_s1 = var_s1 + "znOjZXoCKJDQzVYADFRVd4rMK9QABWw4YqWZYXX7kUDxbTdEYzPQAMw1GCcbxmF6eWbCNq3LidXTnOK3dwkO55cyuA6oazi8T6Bi2M6DDQNGSzZiuGZ9YSOOIwHJIN4Q" var_s1 = var_s1 + "DSUpYmQOoJA6KxVlCDBsnwOx9iWUhfiCThzjUHZun2WgSAiBIUA0JgziGVJkGWUZAkEUoyBEN51BsDYQhCIQJGqHAUCAGBGA0RwtDcVIgkgNgOgOYQIDiXYEmESBWBaB" var_s1 = var_s1 + "ZhggTgSgYYZIHYGoDGGaIGBiBpiCiFJdgkIksiiChhliLgsgYYpoj4F4MGMKBWDSDRhngMg4gcIQYnYPoEE6N4ZAMQBAICA=" .Add(2,var_s1) endwith .SelBackColor = 0x1000000 .SelForeColor = RGB(0,0,0) .BackColorHeader = 0x2000000 .Object.ScrollPartVisible(0,65536) = .T. .Object.ScrollPartVisible(1,65536) = .T. .Object.ScrollPartVisible(2,65536) = .T. .ScrollWidth = 4 .Object.Background(276) = RGB(240,240,240) .Object.Background(260) = RGB(128,128,128) .ScrollHeight = 4 .Object.Background(404) = .Background(276) .Object.Background(388) = .Background(260) .Object.Background(511) = .Background(276) .Object.Background(18) = RGB(196,196,196) .Object.Background(142) = .Background(18) .Object.Background(141) = .Background(18) .Object.Background(170) = RGB(2,0,0) .BackColorSortBar = .BackColor .EndUpdate .BeginUpdate .Mode = 3 var_s2 = "Source=C:\Program Files\Exontrol\ExCascadeTree\Sample\Access\cities.accdb;Member=Select * FROM Countries;Key=CountryCode;Tag=Cou" var_s2 = var_s2 + "ntry;Name=CountryName >>> Member=Select * FROM States WHERE CountryCode IN (<%Parent.CountryCode%>);Key=StateCode;Name=StateName" var_s2 = var_s2 + ";Tag=State \|\|\| Member=Select * FROM Cities WHERE CountryCode IN (<%Parent.CountryCode%>);Tag=City;Name=Name >>> Member=Select * " var_s2 = var_s2 + "FROM Cities WHERE CountryCode IN (<%Parent.Parent.CountryCode%>) AND StateCode IN (<%Parent.StateCode%>);Tag=City;Name=Name" .DataSource = var_s2 .Select = "RO\CJ\|BV\|CS" with .DefaultView().View("City") .BeginUpdate with .Columns .Item("CountryCode").Visible = .F. with .Item("Name") .SortOrder = 1 .Width = 128 endwith endwith .SortBarVisible = .T. .AllowGroupBy = .T. .SingleSort = .F. .Columns.Item("StateCode").SortOrder = 1 .TreeColumnIndex = .Columns.Item("Name").Index .EndUpdate endwith .EndUpdate endwith
42	How can I group the items * CreateView event - A view has been created. * LPARAMETERS View *** Columns("StateCode").Visible = False *** Columns("StateName").SortOrder = 1 *** Columns("StateCode").SortOrder = nGroupByIfCity with thisform.CascadeTree1 nGroupByIfCity = .FormatABC("( A = `City`) ? 1 : 0",.View.Tag) bColumnAutoResize = .FormatABC(" (A = `City`) ? 0 : -1",.View.Tag) with .View .BeginUpdate .SingleSel = .F. .Columns.Item("CountryCode").Visible = .F. .Columns.Item("CountryName").SortOrder = 1 with .Columns.Item(2) endwith .TreeColumnIndex = 2 .AllowGroupBy = .T. .SingleSort = .F. .SortBarVisible = nGroupByIfCity .ColumnAutoResize = bColumnAutoResize .EndUpdate endwith endwith * Error event - An internal error occurs. * LPARAMETERS Error, Description with thisform.CascadeTree1 DEBUGOUT( "Error" ) DEBUGOUT( Description ) endwith with thisform.CascadeTree1 .BeginUpdate with .VisualAppearance var_s = "gBFLBCJwBAEHhEJAAEhABa0GACAADACAxRDgMQBQKAAzAJBIYhiG4cYCgMYxXDOCYXABCEYRXBIZQ7BKNIxjSJwFgkAoJDYOMjwlDKEgADDFEgjJBkRxtDCPIDnGQoDi" var_s = var_s + "GI4vSrCQ4yDA8GxCGSfIrjKiYbiGNY8RgZCiOMAFJSpC6gZRoSq4doGGJLQiDMaAdBNHyZKqpbQqeCZPDINQlWzbcrjKKFYQTOi7I4sCbYcqKA5PTbNdYyVBMWxfGIba" var_s = var_s + "IkXAcBjuO4hWbFdASRQdDYtHTIbzjCxLcgMD4gRwWCYNSAGRZJLDKK4gSh6eorHQAX4AGabFBOP5fC7TNJ0OKLRrkAJub5eFx3LJ97ohbLsOzYZK2ByDFqiMLGQZMZxv" var_s = var_s + "GWUBAnYfJImcOwLEiBp0gaGpekSBxjE+WZ2jse5Im2S5ZkGYhdn4EY6A4Q4vAOWJ6H0V4oEgIgSFAGhGDGUB1ByBhVBUAwyhKMQIE2AgRjCWQJAoEIWk2SxCAGBBghQe" var_s = var_s + "JYkMZIYBYIYoHIG4HGICB+CKB4iEiBglgaUAzhiJAZA+Q4Qk2CxiniOgwgyYwolYMYNmMQw2CoGQihiLg5g+YxpAIOINiOOJ2CyEBkgkDhKhCJBQAI2IlAkJhMgqZBpE" var_s = var_s + "YS4UiSGQ2E+FglHkdg5haI5pHIVoViYCQeF6vZJhYY4aCWWYqGyGpkimOhnhyZQ4nIToYGcSY+ESFQnHmGhwh+YpphYO4gmKOlEiGKIKBaCohmeQ4tkUQJQBAgI=" .Add(1,var_s) var_s1 = "gBFLBCJwBAEHhEJAAEhABO0GACAADACAxRDgMQBQKAAzAJBIYhiG4cYCgMYxXDOCYXABCEYRXBIZQ7BKNIxjSJwFgkAoJDYOMjwlDKEgADDFEgjDBkRxtDCPIDnGQoDi" var_s1 = var_s1 + "GI4vSrCQ4zHQkOx9C6NKLjOQaMhwcJPABTZwRRQMUyLAiQRioGKKJgkC4cAxIFhRXSVIyhC6XRiGURbJquLw1DBbEI3BaUOS7HqOK7vCZ7cACVYqQjLMrzCK8ZxLPqbZ" var_s1 = var_s1 + "znOjZXoCKJDQzVYADFRVd4rMK9QABWw4YqWZYXX7kUDxbTdEYzPQAMw1GCcbxmF6eWbCNq3LidXTnOK3dwkO55cyuA6oazi8T6Bi2M6DDQNGSzZiuGZ9YSOOIwHJIN4Q" var_s1 = var_s1 + "DSUpYmQOoJA6KxVlCDBsnwOx9iWUhfiCThzjUHZun2WgSAiBIUA0JgziGVJkGWUZAkEUoyBEN51BsDYQhCIQJGqHAUCAGBGA0RwtDcVIgkgNgOgOYQIDiXYEmESBWBaB" var_s1 = var_s1 + "ZhggTgSgYYZIHYGoDGGaIGBiBpiCiFJdgkIksiiChhliLgsgYYpoj4F4MGMKBWDSDRhngMg4gcIQYnYPoEE6N4ZAMQBAICA=" .Add(2,var_s1) endwith .SelBackColor = 0x1000000 .SelForeColor = RGB(0,0,0) .BackColorHeader = 0x2000000 .Object.ScrollPartVisible(0,65536) = .T. .Object.ScrollPartVisible(1,65536) = .T. .Object.ScrollPartVisible(2,65536) = .T. .ScrollWidth = 4 .Object.Background(276) = RGB(240,240,240) .Object.Background(260) = RGB(128,128,128) .ScrollHeight = 4 .Object.Background(404) = .Background(276) .Object.Background(388) = .Background(260) .Object.Background(511) = .Background(276) .Object.Background(18) = RGB(196,196,196) .Object.Background(142) = .Background(18) .Object.Background(141) = .Background(18) .Object.Background(170) = RGB(2,0,0) .BackColorSortBar = .BackColor .EndUpdate .BeginUpdate .Mode = 3 var_s2 = "Source=C:\Program Files\Exontrol\ExCascadeTree\Sample\Access\cities.accdb;Member=Select * FROM Countries;Key=CountryCode;Tag=Cou" var_s2 = var_s2 + "ntry;Name=CountryName >>> Member=Select * FROM States WHERE CountryCode IN (<%Parent.CountryCode%>);Key=StateCode;Name=StateName" var_s2 = var_s2 + ";Tag=State \|\|\| Member=Select * FROM Cities WHERE CountryCode IN (<%Parent.CountryCode%>);Tag=City;Name=Name >>> Member=Select * " var_s2 = var_s2 + "FROM Cities WHERE CountryCode IN (<%Parent.Parent.CountryCode%>) AND StateCode IN (<%Parent.StateCode%>);Tag=City;Name=Name" .DataSource = var_s2 .Select = "RO\CJ\|BV\|CS" .EndUpdate endwith
41	How can I change the visual appearance of the selection/header * CreateView event - A view has been created. * LPARAMETERS View *** Columns("StateCode").Visible = False *** Columns("StateName").SortOrder = 1 with thisform.CascadeTree1 with .View .BeginUpdate .ColumnAutoResize = .T. .Columns.Item("CountryCode").Visible = .F. .Columns.Item("CountryName").SortOrder = 1 with .Columns.Item("Name") endwith .EndUpdate endwith endwith * Error event - An internal error occurs. * LPARAMETERS Error, Description with thisform.CascadeTree1 DEBUGOUT( "Error" ) DEBUGOUT( Description ) endwith with thisform.CascadeTree1 .BeginUpdate with .VisualAppearance var_s = "gBFLBCJwBAEHhEJAAEhABWYDg6AADACAxRDgMQBQKAAzAJBIYhiG4cYCgMYxXDOCYXABCEYRXBIZQ7BKNIxjSJwFgmEgADCNAwgFBIcBhE4ZIKkEYoMiONoYR5Ac4yFA" var_s = var_s + "cQxHE6TZRgeDZToWN48TZLEB0VRFGL1J4AKbfKKKBiqIZDTpMdKSHIIFQ4BiEaYkGjqQpKVIdDSJMwWTI4ahhNSEbauCZ7DhyXpLUbeNSyXJsXw7GSOZJvGZ5bjuIY+R" var_s = var_s + "xQEK1NQkOyNOiOAosGCQWiDE4DWZZUT3XS+HgAGStY4rWCcSgOYIDZTPOT1DYtIY3NC5c7tS4bPq3NZHXTAeigBa4AZTQafcTvSA5OjOQQ2VhNWIXRxgAZ3YCNbzpTgs" var_s = var_s + "HeD5DmUQh3jSTQ/DuIZBh0bJ8BsG4WlsYwXjEapphuXh/HsRQJAQQhKAaEwZlCahyDKchJlEIgRDedQbA2EIQiECR3BudAgBgRgBgSHZQFSCwzECV4DGCeA6BCBJhCgV" var_s = var_s + "gRgWs4YkgNJKCOMJ2C0T4Dn4IIIiIGIOCaCRiy0HQ9iGIxMhgMAMmKZJ2D+SQThININgiM4In+DhPnIDJhD+RxzgCfwaE2c58F0N4PniSJ/guTJiCiOAygwCJODyDwIF" var_s = var_s + "ifhVD+R5JBQcIREYOQgFgNwPnkRJ/qOIgIjEMYMFOVg9hESA5BQfYSCbQx1DcZA5lAXQ2vURh4hoT55hiRgfEqYwMkUPQPnGahgiGJwpmAdYeAaWZgGINoPnEWoQBKaQ" var_s = var_s + "KAyf4gAwMZoisMIMGOTJ/B0KQK0EG5NhqDolBmKhRG6JQUX8GJYD+aZaBaGweAqEwEkYPNpDaL4u2kIJXi8a5xgKPwViucQuj8EBrnqXJ/i0DARlyJwwCyIYglaLxtDG" var_s = var_s + "DpVjSRY7EwUY0kQexMD+MhrgsOJAB2LJzCKOAZG0O4gn8GANFuLptBaLpREKUwRG0MJylOOYPnuEpjjOTIamAYo7G/QxfDUMAsBAWI7ESe40ZuQ5bjafY+GycZcigMBO" var_s = var_s + "DOZJ/CoTo8F8GZGDGI58iaRhKEwZIhkYSZ8GcFYQVeZIqDCThsFiMQ7g+fI8n8LAOlyTw1CuMxSjMNQqHMUojDWSxPnyKJDB8CpjBSag+iSE4/EmUpLh0KI2lKCxNCiM" var_s = var_s + "vkg0KxHhYNBSACMQyA6c5wn8MJrg2Axflga4DAaOAviuApyjgLorg0dJ/laDICAyNQyg8LR47INxznzfI3jOPkS4NQMDzCoPgMQUBNqzFyJAco0ROLRFOPkVIEB4v7FW" var_s = var_s + "BAeT/xTB7E+OYR4MAzjzAMG8GIxgPj8CSJwIolxjCJTeB8cw7hIjVDqD0LwkA3BpAMNYFgbAxDGF8C0aYxw+gpA8GEeI/QgjJFeHcc4/xBjggePEYgfRPjnAOJAN4+QD" var_s = var_s + "jHCiN0TQhBMiODWOkA4+RqjGH0P4W4sRjCdB4GkaIxhOD6HiM0V4ehfCRFcEsDIZhkjcD4J8PwQR/j3D8Acf43x8h+B+Jkf49RPh/CCLIVIEwTBxFsP8L4+x/CAAgA4A" var_s = var_s + "IQAsADACMoSA6wghEAYIAQBAQA==" .Add(1,var_s) var_s1 = "gBFLBCJwBAEHhEJAAEhABEwFg6AADACAxRDgMQBQKAAzAJBIYhiG4cYCgMYxXDOCYXABCEYRXBIZQ7BKNIxjSJwFgkAoJDaMUjwlDiEgADCNAySCKkGRHG6MI6gOapCg" var_s1 = var_s1 + "OIYjS7KYASTIMDw7EIZJ7jSioboKNo9ABQT71GAFJr/DChKIhWiKIoKI4hAZHAIQTR8QylKirIwlcYhVCWa5tS82CzoJrKdI4WZHFgwHR8cRxLKVJQlaDZSoIMQ2STfV" var_s1 = var_s1 + "7TZLkQyZNSTJQpGq6HxWeIcETkMBlLIGNSrNCqIrwChach2XpLQjeYAZTAdR43TqBbLqeyYXq+dwAWxtdzXDacXy/TzWAA1LLMKr/EpZDhSxARVDbD4XY7TdBcDwsOYA" var_s1 = var_s1 + "mQcohjyXQ8G6QRkgSa41H0WY+luSx1l6eZ2noLYFEePwDlUdQ8HufRsCSIBpDGHQOicIwtBoBguGuBAhDWfxGkMZAkCgeAQhcEQiAYEYDmABx8hANRYmQMhKHMTItB+I" var_s1 = var_s1 + "RoGIF4GGEMoeBKBQhGGfRWgiYhIgYHYIE+c5Ym8P5OlMWgsguIpYj4KQ7mIExMi6CIVGOKJTD/OxyDuDxVDiWB/g2CAIgyZwzk+eQeEmEgkikBIuCADRJD4Iw5AyU5+F" var_s1 = var_s1 + "SFYlFkXRThQZQJEkVg4gyM5+GCGImBmDhbhOTRCj4RRVg4Ewkn+GxmnmOhwhaZopiYaxUk4Awgn+Hhnjmah8h0JQJioI4fCgSZ6HqIAnGoDoGh8aJKCCMAgGiKgygUVY" var_s1 = var_s1 + "NEoPoViQFRqE6E4WmkYpAgKJBpioHJ/iUSAqhKIIimeeoOh4NQLBIDoniSKgqjCA4szqYJoDcKxqmKN4uGkSo2oGKxam6Qoug2Sp0gRggiBaQYxCuGpyFuMhsgsKRTjM" var_s1 = var_s1 + "bA7DqI40AsIgakuNQsEoUpZYIOxqlONRsDoUphjgCB7G6ZIxGWMpMgeOgsBMbo2jyDoLlCW45i6cpSmmOJvGuTpziUL4jFCNAiC8G56nWP5ljwDJVC0CIcBcB5Dm8dRP" var_s1 = var_s1 + "ZyTRSlcDY/DAa5ZFaRRxEKVIKkOL5blcG5Hg0UpYgsVYPhuVwpDaco87eSYyFyHRTkscoslcEQ/nMExYjYIwygyWw0k2c4iDCVgtkiXJ3CyT4yCUTxDCMdI9BsP5LjSL" var_s1 = var_s1 + "QTEMI40m0IxAd4YxYjgI51NsXhVjWIg8leVp1lzLJYnYIpkhCWRzG2HxqDWS4SEcbJXlUPZAhGXAJC2TxQD+O8AwuQ6i8HMGcIItRKDwD4BcBIsx3j7HiCcTw8BeBvAe" var_s1 = var_s1 + "LoS4RBMiwC6JITgZwEjLHgEoW4JglBzD4LcBozxNotBSM4eAPA7hBGiHMQo2QVjPDoWcU4yRJCmGCHgJYdRODHC4H8ewRGWhLHsL0H4XgvASHMMkPY3g6C9FuB4P4+Av" var_s1 = var_s1 + "AJD0EwO4vA1CtHCBMDwEQZjmHwP4SIsgvh6D8C8II6h9geFyDUdQcwVCfF4G0C4xBvjBG2PwQg2RaBfH4MoTI9Rgh9HMNccY+BVDfC+NQL4kxFC3HOPgP4nwjjwBsIYA" var_s1 = var_s1 + "AnQ/hPHqP0XwiABgABABMdwgBHj1H0MACItgYAEHoAMPwUAWjbGAPEHgNhjAIE+IIKAFR9AVBwDAE44B+AbEEIULQDxgiBCAP4Q4Sx5CFBGOoCowhMBIBgEUAA2wMBCE" var_s1 = var_s1 + "MBQIQqA2gLBAKwGYhgoDRHuEIbAbwFigHoDMDYgwEBRCGFgOIERxAAH+IgMQiA3AMBwIsB4RhuAsEUCMUwKRZh4E2BMAwGBRiFAiFYFIRQRCtAmEUDgTQKCRDcC4YoSB" var_s1 = var_s1 + "eBUHGBAbgGBIiMFSI8XAqQNiGG4HARwEQ/A1GMKEJQVRDjYHUBsSI5gejHFQPkDoBQWB2BUMMeAeAHCJASCEUgLBDiQAGHQMQig0gGB4AcHghBJAyCEEkCoaQMApFILw" var_s1 = var_s1 + "R4kg5BuCUJUHILwRgQHiFMSQUhHBKCSAkFgMQig8EYBUCQPA5hICSFpKgeBzCUHEKANwjAwhTBAMcPgrRLgjHkF0ZYmQWgtFKKwW4lApDCCuEwLIYQXjFCYLUCochwBy" var_s1 = var_s1 + "GWMkTQOxzB4HKJccQrgyhMGSJ0Go5hCDTA2MMDwZRKgxH2DQEw+ByicBmIQVYTRYhXBsMUMIVhNjjEkHUZw0RvA5BOCgY4FRJiiDqE4BI7QcCmGSFMToExogVCcOkbIO" var_s1 = var_s1 + "xzhaBmJ0AYnA1AMdoCsKIJQEgfHoB4QQDAJCtCGGgHoEQMDiFtPIKQrAdDNHiAMEAICAgA==" .Add(2,var_s1) endwith .SelBackColor = 0x1000000 .SelForeColor = RGB(0,0,0) .BackColorHeader = 0x2000000 .Object.ScrollPartVisible(0,65536) = .T. .Object.ScrollPartVisible(1,65536) = .T. .Object.ScrollPartVisible(2,65536) = .T. .ScrollWidth = 4 .Object.Background(276) = RGB(240,240,240) .Object.Background(260) = RGB(128,128,128) .ScrollHeight = 4 .Object.Background(404) = .Background(276) .Object.Background(388) = .Background(260) .Object.Background(511) = .Background(276) .Object.Background(18) = RGB(196,196,196) .Object.Background(142) = .Background(18) .Object.Background(141) = .Background(18) .Object.Background(170) = RGB(2,0,0) .BackColorSortBar = .BackColor .EndUpdate .BeginUpdate .Mode = 3 var_s2 = "Source=C:\Program Files\Exontrol\ExCascadeTree\Sample\Access\cities.accdb;Member=Select * FROM Countries;Key=CountryCode;Tag=Cou" var_s2 = var_s2 + "ntry;Name=CountryName >>> Member=Select * FROM States WHERE CountryCode IN (<%Parent.CountryCode%>);Key=StateCode;Name=StateName" var_s2 = var_s2 + ";Tag=State \|\|\| Member=Select * FROM Cities WHERE CountryCode IN (<%Parent.CountryCode%>);Tag=City;Name=Name >>> Member=Select * " var_s2 = var_s2 + "FROM Cities WHERE CountryCode IN (<%Parent.Parent.CountryCode%>) AND StateCode IN (<%Parent.StateCode%>);Tag=City;Name=Name" .DataSource = var_s2 .Select = "RO\CJ" .EndUpdate endwith
40	How can I format a column so it display its content in a different way * CreateView event - A view has been created. * LPARAMETERS View *** Columns("StateCode").Visible = False with thisform.CascadeTree1 with .View .BeginUpdate .ContinueColumnScroll = .F. .ScrollBySingleLine = .T. .DrawGridLines = -1 .EnsureVisibleColumn("Date") .Columns.Item("CountryCode").Visible = .F. with .Columns.Item("Date") endwith with .Columns.Item("Function") endwith with .Columns.Item("Coordinates") endwith with .Columns.Item("Status") endwith .EndUpdate endwith endwith * Error event - An internal error occurs. * LPARAMETERS Error, Description with thisform.CascadeTree1 DEBUGOUT( "Error" ) DEBUGOUT( Description ) endwith with thisform.CascadeTree1 .BeginUpdate .FitCascadeColumns = 7 .Mode = 3 .ScrollWidth = 4 .ScrollHeight = 4 var_s = "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTql" var_s = var_s + "Vq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0" var_s = var_s + "ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yN" var_s = var_s + "AOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=" .Images(var_s) var_s1 = "Source=C:\Program Files\Exontrol\ExCascadeTree\Sample\Access\cities.accdb;Member=Select * FROM Countries;Key=CountryCode;Tag=Cou" var_s1 = var_s1 + "ntry;Name=CountryName >>> Member=Select * FROM States WHERE CountryCode IN (<%Parent.CountryCode%>);Key=StateCode;Name=StateName" var_s1 = var_s1 + ";Tag=State \|\|\| Member=Select * FROM Cities WHERE CountryCode IN (<%Parent.CountryCode%>);Tag=City;Name=Name >>> Member=Select * " var_s1 = var_s1 + "FROM Cities WHERE CountryCode IN (<%Parent.Parent.CountryCode%>) AND StateCode IN (<%Parent.StateCode%>);Tag=City;Name=Name" .DataSource = var_s1 .Select = "US\OR" .EndUpdate endwith
39	How can I add a position column * CreateView event - A view has been created. * LPARAMETERS View with thisform.CascadeTree1 with .View with .Columns.Add("Pos") .Width = 32 .AllowSizing = .F. .Position = 0 .FormatColumn = "1 pos ``" .Def(4) = 15790320 .Alignment = 2 .HeaderAlignment = .Alignment && .Alignment .Def(49) = 2 .Def(48) = 2 .Def(52) = 2 .Def(53) = 2 endwith .CountLockedColumns = 1 endwith endwith * Error event - An internal error occurs. * LPARAMETERS Error, Description with thisform.CascadeTree1 DEBUGOUT( "Error" ) DEBUGOUT( Description ) endwith with thisform.CascadeTree1 .BeginUpdate .Mode = 3 var_s = "Source=C:\Program Files\Exontrol\ExCascadeTree\Sample\Access\cities.accdb;Member=Select * FROM Countries;Key=CountryCode;Tag=Cou" var_s = var_s + "ntry;Name=CountryName >>> Member=Select * FROM States WHERE CountryCode IN (<%Parent.CountryCode%>);Key=StateCode;Name=StateName" var_s = var_s + ";Tag=State \|\|\| Member=Select * FROM Cities WHERE CountryCode IN (<%Parent.CountryCode%>);Tag=City;Name=Name >>> Member=Select * " var_s = var_s + "FROM Cities WHERE CountryCode IN (<%Parent.Parent.CountryCode%>) AND StateCode IN (<%Parent.StateCode%>);Tag=City;Name=Name" .DataSource = var_s .Select = "US\IA" .EndUpdate endwith
38	How can I display icons or images * CreateView event - A view has been created. * LPARAMETERS View with thisform.CascadeTree1 with .View .EnsureVisibleColumn("Function") with .Columns.Item("Function") endwith endwith endwith * Error event - An internal error occurs. * LPARAMETERS Error, Description with thisform.CascadeTree1 DEBUGOUT( "Error" ) DEBUGOUT( Description ) endwith with thisform.CascadeTree1 .BeginUpdate var_s = "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTql" var_s = var_s + "Vq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0" var_s = var_s + "ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yN" var_s = var_s + "AOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=" .Images(var_s) .Mode = 3 var_s1 = "Source=C:\Program Files\Exontrol\ExCascadeTree\Sample\Access\cities.accdb;Member=Select * FROM Countries;Key=CountryCode;Tag=Cou" var_s1 = var_s1 + "ntry;Name=CountryName >>> Member=Select * FROM States WHERE CountryCode IN (<%Parent.CountryCode%>);Key=StateCode;Name=StateName" var_s1 = var_s1 + ";Tag=State \|\|\| Member=Select * FROM Cities WHERE CountryCode IN (<%Parent.CountryCode%>);Tag=City;Name=Name >>> Member=Select * " var_s1 = var_s1 + "FROM Cities WHERE CountryCode IN (<%Parent.Parent.CountryCode%>) AND StateCode IN (<%Parent.StateCode%>);Tag=City;Name=Name" .DataSource = var_s1 .Select = "US\MN" .EndUpdate endwith
37	How can I turn-on the control's status bar * CreateView event - A view has been created. * LPARAMETERS View with thisform.CascadeTree1 .StatusBarLabel = .FormatABC("`<b>` + ( value replace `\\` with ` </b><font ;6><off 4>` )",.Name) endwith * Error event - An internal error occurs. * LPARAMETERS Error, Description with thisform.CascadeTree1 DEBUGOUT( "Error" ) DEBUGOUT( Description ) endwith * ViewEndChanging event - Occurs once the user is about to change the view. * LPARAMETERS Operation with thisform.CascadeTree1 .StatusBarLabel = .FormatABC("`<b>` + ( value replace `\\` with ` </b><font ;6><off 4>` )",.Name) endwith with thisform.CascadeTree1 .BeginUpdate .StatusBarVisible = 2 .StatusBarHeight = 24 .Mode = 3 var_s = "Source=C:\Program Files\Exontrol\ExCascadeTree\Sample\Access\cities.accdb;Member=Select * FROM Countries;Key=CountryCode;Tag=Cou" var_s = var_s + "ntry;Name=CountryName >>> Member=Select * FROM States WHERE CountryCode IN (<%Parent.CountryCode%>);Key=StateCode;Name=StateName" var_s = var_s + ";Tag=State \|\|\| Member=Select * FROM Cities WHERE CountryCode IN (<%Parent.CountryCode%>);Tag=City;Name=Name >>> Member=Select * " var_s = var_s + "FROM Cities WHERE CountryCode IN (<%Parent.Parent.CountryCode%>) AND StateCode IN (<%Parent.StateCode%>);Tag=City;Name=Name" .DataSource = var_s .Name = "Romania\Cluj\Baciu*" .EndUpdate endwith
36	How can I disable incremental searching * CreateView event - A view has been created. * LPARAMETERS View with thisform.CascadeTree1 .View.AutoSearch = .F. endwith * Error event - An internal error occurs. * LPARAMETERS Error, Description with thisform.CascadeTree1 DEBUGOUT( "Error" ) DEBUGOUT( Description ) endwith with thisform.CascadeTree1 .BeginUpdate .Mode = 3 var_s = "Source=C:\Program Files\Exontrol\ExCascadeTree\Sample\Access\cities.accdb;Member=Select * FROM Countries;Key=CountryCode;Tag=Cou" var_s = var_s + "ntry;Name=CountryName >>> Member=Select * FROM States WHERE CountryCode IN (<%Parent.CountryCode%>);Key=StateCode;Name=StateName" var_s = var_s + ";Tag=State \|\|\| Member=Select * FROM Cities WHERE CountryCode IN (<%Parent.CountryCode%>);Tag=City;Name=Name >>> Member=Select * " var_s = var_s + "FROM Cities WHERE CountryCode IN (<%Parent.Parent.CountryCode%>) AND StateCode IN (<%Parent.StateCode%>);Tag=City;Name=Name" .DataSource = var_s .Select = "US\AK" .EndUpdate endwith
35	ScrollBar extension * CreateView event - A view has been created. * LPARAMETERS View *** Columns("StateCode").Visible = False with thisform.CascadeTree1 with .View .ColumnAutoResize = .T. .Columns.Item("CountryCode").Visible = .F. endwith endwith * Error event - An internal error occurs. * LPARAMETERS Error, Description with thisform.CascadeTree1 DEBUGOUT( "Error" ) DEBUGOUT( Description ) endwith with thisform.CascadeTree1 .BeginUpdate .Object.ScrollPartVisible(0,65536) = .T. .Object.ScrollPartVisible(1,65536) = .T. .Object.ScrollPartVisible(2,65536) = .T. .ScrollWidth = 4 .Object.Background(276) = RGB(240,240,240) .Object.Background(260) = RGB(128,128,128) .ScrollHeight = 4 .Object.Background(404) = .Background(276) .Object.Background(388) = .Background(260) .Object.Background(511) = .Background(276) .Object.Background(18) = RGB(196,196,196) .Object.Background(142) = .Background(18) .Object.Background(141) = .Background(18) .Object.Background(170) = RGB(2,0,0) .EndUpdate .BeginUpdate .Mode = 3 var_s = "Source=C:\Program Files\Exontrol\ExCascadeTree\Sample\Access\cities.accdb;Member=Select * FROM Countries;Key=CountryCode;Tag=Cou" var_s = var_s + "ntry;Name=CountryName >>> Member=Select * FROM States WHERE CountryCode IN (<%Parent.CountryCode%>);Key=StateCode;Name=StateName" var_s = var_s + ";Tag=State \|\|\| Member=Select * FROM Cities WHERE CountryCode IN (<%Parent.CountryCode%>);Tag=City;Name=Name >>> Member=Select * " var_s = var_s + "FROM Cities WHERE CountryCode IN (<%Parent.Parent.CountryCode%>) AND StateCode IN (<%Parent.StateCode%>);Tag=City;Name=Name" .DataSource = var_s .Select = "US\AK" .DefaultView().Columns.Item("CountryName").SortOrder = 1 .DefaultView().NextView.Columns.Item("StateName").SortOrder = 1 with .DefaultView().NextView.NextView .ColumnAutoResize = .F. with .Columns.Item("Name") .SortOrder = 1 .Width = 128 endwith with .Items .SelectItem(.FindItem("Anchorage","Name")) = .T. endwith endwith .EndUpdate endwith
34	How can I access the next/prev/parent/child view * CreateView event - A view has been created. * LPARAMETERS View *** Columns("StateCode").Visible = False with thisform.CascadeTree1 with .View .ColumnAutoResize = .T. .Columns.Item("CountryCode").Visible = .F. endwith endwith * Error event - An internal error occurs. * LPARAMETERS Error, Description with thisform.CascadeTree1 DEBUGOUT( "Error" ) DEBUGOUT( Description ) endwith with thisform.CascadeTree1 .BeginUpdate .Mode = 2 var_s = "Source=C:\Program Files\Exontrol\ExCascadeTree\Sample\Access\cities.accdb;Member=Select * FROM Countries;Key=CountryCode;Tag=Cou" var_s = var_s + "ntry;Name=CountryName >>> Member=Select * FROM States WHERE CountryCode IN (<%Parent.CountryCode%>);Key=StateCode;Name=StateName" var_s = var_s + ";Tag=State \|\|\| Member=Select * FROM Cities WHERE CountryCode IN (<%Parent.CountryCode%>);Tag=City;Name=Name >>> Member=Select * " var_s = var_s + "FROM Cities WHERE CountryCode IN (<%Parent.Parent.CountryCode%>) AND StateCode IN (<%Parent.StateCode%>);Tag=City;Name=Name" .DataSource = var_s .Select = "RO\CJ" .DefaultView().Columns.Item("CountryName").SortOrder = 1 .DefaultView().NextView.Columns.Item("StateName").SortOrder = 1 with .DefaultView().NextView.NextView .BeginUpdate .ColumnAutoResize = .F. with .Columns.Item("Name") .Width = 128 .SortOrder = 1 endwith .SingleSort = .F. .AllowGroupBy = .T. .Columns.Item("Status").SortOrder = 2 .TreeColumnIndex = .Columns.Item("Name").Index .EndUpdate endwith .EndUpdate endwith
33	Predefined Keywords of ShowContextMenu property * CreateView event - A view has been created. * LPARAMETERS View *** Columns("StateCode").Visible = False with thisform.CascadeTree1 with .View .ColumnAutoResize = .T. .Columns.Item("CountryCode").Visible = .F. endwith .StatusBarLabel = .FormatABC("`<b>` + ( value replace `\\` with ` </b><font ;6><off 4>` )",.Name) endwith * Error event - An internal error occurs. * LPARAMETERS Error, Description with thisform.CascadeTree1 DEBUGOUT( "Error" ) DEBUGOUT( Description ) endwith * ViewEndChanging event - Occurs once the user is about to change the view. * LPARAMETERS Operation with thisform.CascadeTree1 .StatusBarLabel = .FormatABC("`<b>` + ( value replace `\\` with ` </b><font ;6><off 4>` )",.Name) .ExecuteContextMenu = 0 endwith with thisform.CascadeTree1 .BeginUpdate .AllowSplitView = 1 .FitCascadeColumns = 3 .Mode = 2 .StatusBarVisible = 2 .StatusBarHeight = 24 .Object.ScrollPartVisible(0,65536) = .T. .Object.ScrollPartVisible(1,65536) = .T. .Object.ScrollPartVisible(2,65536) = .T. .ScrollWidth = 4 .Object.Background(276) = RGB(240,240,240) .Object.Background(260) = RGB(128,128,128) .ScrollHeight = 4 .Object.Background(404) = .Background(276) .Object.Background(388) = .Background(260) .Object.Background(511) = .Background(276) .Object.Background(18) = RGB(196,196,196) .Object.Background(142) = .Background(18) .Object.Background(141) = .Background(18) .Object.Background(170) = RGB(2,0,0) var_s = "Source=C:\Program Files\Exontrol\ExCascadeTree\Sample\Access\cities.accdb;Member=Select * FROM Countries;Key=CountryCode;Tag=Cou" var_s = var_s + "ntry;Name=CountryName >>> Member=Select * FROM States WHERE CountryCode IN (<%Parent.CountryCode%>);Key=StateCode;Name=StateName" var_s = var_s + ";Tag=State \|\|\| Member=Select * FROM Cities WHERE CountryCode IN (<%Parent.CountryCode%>);Tag=City;Name=Name >>> Member=Select * " var_s = var_s + "FROM Cities WHERE CountryCode IN (<%Parent.Parent.CountryCode%>) AND StateCode IN (<%Parent.StateCode%>);Tag=City;Name=Name" .DataSource = var_s .Select = "US\AK" .ShowContextMenu = "`vlevels=` + vlevels + `,vlevel=` + vlevel + `,hlevels=` + hlevels + `,hlevel=` + hlevel + `,view=` + view " .SplitViewHeight = "256" .EndUpdate endwith
32	How can I display the identifiers of the control's context menu (debug) * CreateView event - A view has been created. * LPARAMETERS View *** Columns("StateCode").Visible = False with thisform.CascadeTree1 with .View .ColumnAutoResize = .T. .Columns.Item("CountryCode").Visible = .F. endwith endwith * Error event - An internal error occurs. * LPARAMETERS Error, Description with thisform.CascadeTree1 DEBUGOUT( "Error" ) DEBUGOUT( Description ) endwith * ViewEndChanging event - Occurs once the user is about to change the view. * LPARAMETERS Operation with thisform.CascadeTree1 DEBUGOUT( .ExecuteContextMenu ) endwith with thisform.CascadeTree1 .BeginUpdate .Mode = 3 .Object.Background(18) = RGB(196,196,196) var_s = "Source=C:\Program Files\Exontrol\ExCascadeTree\Sample\Access\cities.accdb;Member=Select * FROM Countries;Key=CountryCode;Tag=Cou" var_s = var_s + "ntry;Name=CountryName >>> Member=Select * FROM States WHERE CountryCode IN (<%Parent.CountryCode%>);Key=StateCode;Name=StateName" var_s = var_s + ";Tag=State \|\|\| Member=Select * FROM Cities WHERE CountryCode IN (<%Parent.CountryCode%>);Tag=City;Name=Name >>> Member=Select * " var_s = var_s + "FROM Cities WHERE CountryCode IN (<%Parent.Parent.CountryCode%>) AND StateCode IN (<%Parent.StateCode%>);Tag=City;Name=Name" .DataSource = var_s .Select = "US\AK" .ShowContextMenu = "[debug]Popup(Item 1[id=1001],Item 2[id=1002],Item 3[id=1003]),[sep],Exit[def][id=1000]" .EndUpdate endwith
31	ShowContextMenu usage * CreateView event - A view has been created. * LPARAMETERS View *** Columns("StateCode").Visible = False with thisform.CascadeTree1 with .View .ColumnAutoResize = .T. .Columns.Item("CountryCode").Visible = .F. endwith endwith * Error event - An internal error occurs. * LPARAMETERS Error, Description with thisform.CascadeTree1 DEBUGOUT( "Error" ) DEBUGOUT( Description ) endwith * ViewEndChanging event - Occurs once the user is about to change the view. * LPARAMETERS Operation with thisform.CascadeTree1 DEBUGOUT( .ExecuteContextMenu ) endwith with thisform.CascadeTree1 .BeginUpdate .Mode = 3 .Object.Background(18) = RGB(196,196,196) var_s = "Source=C:\Program Files\Exontrol\ExCascadeTree\Sample\Access\cities.accdb;Member=Select * FROM Countries;Key=CountryCode;Tag=Cou" var_s = var_s + "ntry;Name=CountryName >>> Member=Select * FROM States WHERE CountryCode IN (<%Parent.CountryCode%>);Key=StateCode;Name=StateName" var_s = var_s + ";Tag=State \|\|\| Member=Select * FROM Cities WHERE CountryCode IN (<%Parent.CountryCode%>);Tag=City;Name=Name >>> Member=Select * " var_s = var_s + "FROM Cities WHERE CountryCode IN (<%Parent.Parent.CountryCode%>) AND StateCode IN (<%Parent.StateCode%>);Tag=City;Name=Name" .DataSource = var_s .Select = "US\AK" .ShowContextMenu = "Popup(Item 1[id=1001],Item 2[id=1002],Item 3[id=1003]),[sep],Exit[def][id=1000]" .EndUpdate endwith
30	How can I resize automatically all views, when the control is resized * CreateView event - A view has been created. * LPARAMETERS View *** Columns("StateCode").Visible = False with thisform.CascadeTree1 with .View .ColumnAutoResize = .T. .Columns.Item("CountryCode").Visible = .F. endwith endwith * Error event - An internal error occurs. * LPARAMETERS Error, Description with thisform.CascadeTree1 DEBUGOUT( "Error" ) DEBUGOUT( Description ) endwith with thisform.CascadeTree1 .BeginUpdate .Mode = 515 && CascadeModeEnum.exAutoFitOnResizeClient Or CascadeModeEnum.exSplitFixCascadeMode .Object.Background(18) = RGB(196,196,196) var_s = "Source=C:\Program Files\Exontrol\ExCascadeTree\Sample\Access\cities.accdb;Member=Select * FROM Countries;Key=CountryCode;Tag=Cou" var_s = var_s + "ntry;Name=CountryName >>> Member=Select * FROM States WHERE CountryCode IN (<%Parent.CountryCode%>);Key=StateCode;Name=StateName" var_s = var_s + ";Tag=State \|\|\| Member=Select * FROM Cities WHERE CountryCode IN (<%Parent.CountryCode%>);Tag=City;Name=Name >>> Member=Select * " var_s = var_s + "FROM Cities WHERE CountryCode IN (<%Parent.Parent.CountryCode%>) AND StateCode IN (<%Parent.StateCode%>);Tag=City;Name=Name" .DataSource = var_s .Select = "US\AK" .EndUpdate endwith
29	How can I hide some columns * CreateView event - A view has been created. * LPARAMETERS View *** Columns("StateCode").Visible = False with thisform.CascadeTree1 with .View .ColumnAutoResize = .T. .Columns.Item("CountryCode").Visible = .F. endwith endwith * Error event - An internal error occurs. * LPARAMETERS Error, Description with thisform.CascadeTree1 DEBUGOUT( "Error" ) DEBUGOUT( Description ) endwith with thisform.CascadeTree1 .BeginUpdate .Mode = 3 .Object.Background(18) = RGB(196,196,196) var_s = "Source=C:\Program Files\Exontrol\ExCascadeTree\Sample\Access\cities.accdb;Member=Select * FROM Countries;Key=CountryCode;Tag=Cou" var_s = var_s + "ntry;Name=CountryName >>> Member=Select * FROM States WHERE CountryCode IN (<%Parent.CountryCode%>);Key=StateCode;Name=StateName" var_s = var_s + ";Tag=State \|\|\| Member=Select * FROM Cities WHERE CountryCode IN (<%Parent.CountryCode%>);Tag=City;Name=Name >>> Member=Select * " var_s = var_s + "FROM Cities WHERE CountryCode IN (<%Parent.Parent.CountryCode%>) AND StateCode IN (<%Parent.StateCode%>);Tag=City;Name=Name" .DataSource = var_s .Select = "US\AK" .EndUpdate endwith
28	Is it possible to disable resizing the cascade columns * CreateView event - A view has been created. * LPARAMETERS View with thisform.CascadeTree1 .View.ColumnAutoResize = .T. endwith * Error event - An internal error occurs. * LPARAMETERS Error, Description with thisform.CascadeTree1 DEBUGOUT( "Error" ) DEBUGOUT( Description ) endwith with thisform.CascadeTree1 .BeginUpdate .Object.Background(18) = RGB(196,196,196) .Mode = 771 && CascadeModeEnum.exAutoFitOnResizeClient Or CascadeModeEnum.exDisableResizeCascadeColumns Or CascadeModeEnum.exSplitFixCascadeMode var_s = "Source=C:\Program Files\Exontrol\ExCascadeTree\Sample\Access\cities.accdb;Member=Select * FROM Countries;Key=CountryCode;Tag=Cou" var_s = var_s + "ntry;Name=CountryName >>> Member=Select * FROM States WHERE CountryCode IN (<%Parent.CountryCode%>);Key=StateCode;Name=StateName" var_s = var_s + ";Tag=State \|\|\| Member=Select * FROM Cities WHERE CountryCode IN (<%Parent.CountryCode%>);Tag=City;Name=Name >>> Member=Select * " var_s = var_s + "FROM Cities WHERE CountryCode IN (<%Parent.Parent.CountryCode%>) AND StateCode IN (<%Parent.StateCode%>);Tag=City;Name=Name" .DataSource = var_s .Select = "US\AK" .EndUpdate endwith
27	SplitFixCascadeMode Mode * Error event - An internal error occurs. * LPARAMETERS Error, Description with thisform.CascadeTree1 DEBUGOUT( "Error" ) DEBUGOUT( Description ) endwith with thisform.CascadeTree1 .BeginUpdate .Object.Background(18) = RGB(196,196,196) .Mode = 3 var_s = "Source=C:\Program Files\Exontrol\ExCascadeTree\Sample\Access\cities.accdb;Member=Select * FROM Countries;Key=CountryCode;Tag=Cou" var_s = var_s + "ntry;Name=CountryName >>> Member=Select * FROM States WHERE CountryCode IN (<%Parent.CountryCode%>);Key=StateCode;Name=StateName" var_s = var_s + ";Tag=State \|\|\| Member=Select * FROM Cities WHERE CountryCode IN (<%Parent.CountryCode%>);Tag=City;Name=Name >>> Member=Select * " var_s = var_s + "FROM Cities WHERE CountryCode IN (<%Parent.Parent.CountryCode%>) AND StateCode IN (<%Parent.StateCode%>);Tag=City;Name=Name" .DataSource = var_s .Select = "US\AK" .EndUpdate endwith
26	FixCascadeMode Mode * Error event - An internal error occurs. * LPARAMETERS Error, Description with thisform.CascadeTree1 DEBUGOUT( "Error" ) DEBUGOUT( Description ) endwith with thisform.CascadeTree1 .BeginUpdate .Object.Background(18) = RGB(196,196,196) .DefColumnWidth = 96 .Mode = 0 var_s = "Source=C:\Program Files\Exontrol\ExCascadeTree\Sample\Access\cities.accdb;Member=Select * FROM Countries;Key=CountryCode;Tag=Cou" var_s = var_s + "ntry;Name=CountryName >>> Member=Select * FROM States WHERE CountryCode IN (<%Parent.CountryCode%>);Key=StateCode;Name=StateName" var_s = var_s + ";Tag=State \|\|\| Member=Select * FROM Cities WHERE CountryCode IN (<%Parent.CountryCode%>);Tag=City;Name=Name >>> Member=Select * " var_s = var_s + "FROM Cities WHERE CountryCode IN (<%Parent.Parent.CountryCode%>) AND StateCode IN (<%Parent.StateCode%>);Tag=City;Name=Name" .DataSource = var_s .Select = "US\AK" .EndUpdate endwith
25	SplitEqualCascadeMode Mode * Error event - An internal error occurs. * LPARAMETERS Error, Description with thisform.CascadeTree1 DEBUGOUT( "Error" ) DEBUGOUT( Description ) endwith with thisform.CascadeTree1 .BeginUpdate .Object.Background(18) = RGB(196,196,196) .Mode = 2 var_s = "Source=C:\Program Files\Exontrol\ExCascadeTree\Sample\Access\cities.accdb;Member=Select * FROM Countries;Key=CountryCode;Tag=Cou" var_s = var_s + "ntry;Name=CountryName >>> Member=Select * FROM States WHERE CountryCode IN (<%Parent.CountryCode%>);Key=StateCode;Name=StateName" var_s = var_s + ";Tag=State \|\|\| Member=Select * FROM Cities WHERE CountryCode IN (<%Parent.CountryCode%>);Tag=City;Name=Name >>> Member=Select * " var_s = var_s + "FROM Cities WHERE CountryCode IN (<%Parent.Parent.CountryCode%>) AND StateCode IN (<%Parent.StateCode%>);Tag=City;Name=Name" .DataSource = var_s .Select = "US\AK" .EndUpdate endwith
24	Default Mode * Error event - An internal error occurs. * LPARAMETERS Error, Description with thisform.CascadeTree1 DEBUGOUT( "Error" ) DEBUGOUT( Description ) endwith with thisform.CascadeTree1 .BeginUpdate .Object.Background(18) = RGB(196,196,196) var_s = "Source=C:\Program Files\Exontrol\ExCascadeTree\Sample\Access\cities.accdb;Member=Select * FROM Countries;Key=CountryCode;Tag=Cou" var_s = var_s + "ntry;Name=CountryName >>> Member=Select * FROM States WHERE CountryCode IN (<%Parent.CountryCode%>);Key=StateCode;Name=StateName" var_s = var_s + ";Tag=State \|\|\| Member=Select * FROM Cities WHERE CountryCode IN (<%Parent.CountryCode%>);Tag=City;Name=Name >>> Member=Select * " var_s = var_s + "FROM Cities WHERE CountryCode IN (<%Parent.Parent.CountryCode%>) AND StateCode IN (<%Parent.StateCode%>);Tag=City;Name=Name" .DataSource = var_s .Select = "US\AK" .EndUpdate endwith
23	SingleCascadeMode ( single-view ) * Error event - An internal error occurs. * LPARAMETERS Error, Description with thisform.CascadeTree1 DEBUGOUT( "Error" ) DEBUGOUT( Description ) endwith with thisform.CascadeTree1 .BeginUpdate .Mode = 1 with .DefaultView() var_s = "Source=C:\Program Files\Exontrol\ExCascadeTree\Sample\Access\cities.accdb;Member=Select * FROM Cities Where CountryCode = 'RO' " .DataSource = var_s .AllowGroupBy = .T. .SortBarVisible = .T. .Columns.Item("StateCode").SortOrder = 1 .Name = "Name" endwith .Name = "Isaccea" .EndUpdate endwith
22	How can I display the current selection, as a path * CreateView event - A view has been created. * LPARAMETERS View with thisform.CascadeTree1 .StatusBarLabel = .Name endwith * Error event - An internal error occurs. * LPARAMETERS Error, Description with thisform.CascadeTree1 DEBUGOUT( "Error" ) DEBUGOUT( Description ) endwith * ViewEndChanging event - Occurs once the user is about to change the view. * LPARAMETERS Operation with thisform.CascadeTree1 .StatusBarLabel = .Name endwith with thisform.CascadeTree1 .BeginUpdate .StatusBarVisible = 2 .Mode = 3 var_s = "Source=C:\Program Files\Exontrol\ExCascadeTree\Sample\Access\cities.accdb;Member=Select * FROM Countries;Key=CountryCode;Tag=Cou" var_s = var_s + "ntry;Name=CountryName >>> Member=Select * FROM States WHERE CountryCode IN (<%Parent.CountryCode%>);Key=StateCode;Name=StateName" var_s = var_s + ";Tag=State \|\|\| Member=Select * FROM Cities WHERE CountryCode IN (<%Parent.CountryCode%>);Tag=City;Name=Name >>> Member=Select * " var_s = var_s + "FROM Cities WHERE CountryCode IN (<%Parent.Parent.CountryCode%>) AND StateCode IN (<%Parent.StateCode%>);Tag=City;Name=Name" .DataSource = var_s .Select = "US\AK" .EndUpdate endwith
21	How can I add multiple-views to the control * Error event - An internal error occurs. * LPARAMETERS Error, Description with thisform.CascadeTree1 DEBUGOUT( "Error" ) DEBUGOUT( Description ) endwith with thisform.CascadeTree1 .BeginUpdate .Mode = 3 var_s = "Source=C:\Program Files\Exontrol\ExCascadeTree\Sample\Access\cities.accdb;Member=Select * FROM Countries;Key=CountryCode;Tag=Cou" var_s = var_s + "ntry;Name=CountryName >>> Member=Select * FROM States WHERE CountryCode IN (<%Parent.CountryCode%>);Key=StateCode;Name=StateName" var_s = var_s + ";Tag=State \|\|\| Member=Select * FROM Cities WHERE CountryCode IN (<%Parent.CountryCode%>);Tag=City;Name=Name >>> Member=Select * " var_s = var_s + "FROM Cities WHERE CountryCode IN (<%Parent.Parent.CountryCode%>) AND StateCode IN (<%Parent.StateCode%>);Tag=City;Name=Name" .DataSource = var_s .Select = "US\AK" .EndUpdate endwith
20	I wish I select items based on names, rather than keys. Is that possible * CreateView event - A view has been created. * LPARAMETERS View with thisform.CascadeTree1 .View.ColumnAutoResize = thisform.CascadeTree1.FormatABC("not(A = `City`)",.View.Tag) label = .FormatABC("`<b>Select = </b>` + value",.Select) label = .FormatABC("A + `<br>` + `<b>Name = </b>` + B replace `\|` with ` `",label,.Name) .StatusBarLabel = label endwith * Error event - An internal error occurs. * LPARAMETERS Error, Description with thisform.CascadeTree1 DEBUGOUT( "Error" ) DEBUGOUT( Description ) endwith * ViewEndChanging event - Occurs once the user is about to change the view. * LPARAMETERS Operation with thisform.CascadeTree1 label = .FormatABC("`<b>Select = </b>` + value",.Select) label = .FormatABC("A + `<br>` + `<b>Name = </b>` + B replace `\|` with ` `",label,.Name) .StatusBarLabel = label endwith with thisform.CascadeTree1 .BeginUpdate .Mode = 2 .StatusBarVisible = 18 && StatusBarAnchorEnum.exStatusBarWordWrap Or StatusBarAnchorEnum.exStatusBarAnchorTop ds = "Source=C:\Program Files\Exontrol\ExCascadeTree\Sample\Access\cities.accdb" dm1 = "Member=Select * FROM Countries;Key=CountryCode;Tag=Country;Name=CountryName" ds = .FormatABC("A + `;` + B",ds,dm1) var_s = "Member=Select * FROM States WHERE CountryCode IN (<%Parent.CountryCode%>);Key=StateCode;Name=StateName;Tag=State \|\|\| Member=Sele" var_s = var_s + "ct * FROM Cities WHERE CountryCode IN (<%Parent.CountryCode%>);Tag=City;Name=Name" dm2 = var_s ds = .FormatABC("A + ` >>> ` + B",ds,dm2) var_s1 = "Member=Select * FROM Cities WHERE CountryCode IN (<%Parent.Parent.CountryCode%>) AND StateCode IN (<%Parent.StateCode%>);Tag=Cit" var_s1 = var_s1 + "y;Name=Name" dm3 = var_s1 ds = .FormatABC("A + ` >>> ` + B",ds,dm3) .DataSource = ds .Name = "Romania\Cluj\Baciu*" .EndUpdate endwith
19	I've noticed that I can't select multiple items. How can I do that * CreateView event - A view has been created. * LPARAMETERS View with thisform.CascadeTree1 bColumnAutoResize = .FormatABC("not(A = `City`)",.View.Tag) with .View .SingleSel = .F. .ColumnAutoResize = bColumnAutoResize endwith label = .FormatABC("`<b>Select = </b>` + value",.Select) label = .FormatABC("A + `<br>` + `<b>Name = </b>` + B replace `\|` with ` `",label,.Name) .StatusBarLabel = label endwith * Error event - An internal error occurs. * LPARAMETERS Error, Description with thisform.CascadeTree1 DEBUGOUT( "Error" ) DEBUGOUT( Description ) endwith * ViewEndChanging event - Occurs once the user is about to change the view. * LPARAMETERS Operation with thisform.CascadeTree1 label = .FormatABC("`<b>Select = </b>` + value",.Select) label = .FormatABC("A + `<br>` + `<b>Name = </b>` + B replace `\|` with ` `",label,.Name) .StatusBarLabel = label endwith with thisform.CascadeTree1 .BeginUpdate .Mode = 2 .StatusBarVisible = 18 && StatusBarAnchorEnum.exStatusBarWordWrap Or StatusBarAnchorEnum.exStatusBarAnchorTop .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 = .FormatABC("A + `;` + B",ds,dm1) var_s = "Member=Select * FROM States WHERE CountryCode IN (<%Parent.CountryCode%>);Key=StateCode;Name=StateName;Tag=State \|\|\| Member=Sele" var_s = var_s + "ct * FROM Cities WHERE CountryCode IN (<%Parent.CountryCode%>);Tag=City;Name=Name" dm2 = var_s ds = .FormatABC("A + ` >>> ` + B",ds,dm2) var_s1 = "Member=Select * FROM Cities WHERE CountryCode IN (<%Parent.Parent.CountryCode%>) AND StateCode IN (<%Parent.StateCode%>);Tag=Cit" var_s1 = var_s1 + "y;Name=Name" dm3 = var_s1 ds = .FormatABC("A + ` >>> ` + B",ds,dm3) .DataSource = ds .Select = "RO\CJ\|D*" .EndUpdate endwith
18	How do I programmatically selects a path/item * CreateView event - A view has been created. * LPARAMETERS View with thisform.CascadeTree1 bColumnAutoResize = .FormatABC("not(A = `City`)",.View.Tag) .View.ColumnAutoResize = bColumnAutoResize endwith * Error event - An internal error occurs. * LPARAMETERS Error, Description with thisform.CascadeTree1 DEBUGOUT( "Error" ) DEBUGOUT( Description ) endwith * ViewEndChanging event - Occurs once the user is about to change the view. * LPARAMETERS Operation with thisform.CascadeTree1 .StatusBarLabel = thisform.CascadeTree1.Select endwith with thisform.CascadeTree1 .BeginUpdate .Mode = 2 .StatusBarVisible = 1 ds = "Source=C:\Program Files\Exontrol\ExCascadeTree\Sample\Access\cities.accdb" dm1 = "Member=Select * FROM Countries;Key=CountryCode;Tag=Country" ds = .FormatABC("A + `;` + B",ds,dm1) var_s = "Member=Select * FROM States WHERE CountryCode IN (<%Parent.CountryCode%>);Key=StateCode;Tag=State \|\|\| Member=Select * FROM Citie" var_s = var_s + "s WHERE CountryCode IN (<%Parent.CountryCode%>);Tag=City" dm2 = var_s ds = .FormatABC("A + ` >>> ` + B",ds,dm2) var_s1 = "Member=Select * FROM Cities WHERE CountryCode IN (<%Parent.Parent.CountryCode%>) AND StateCode IN (<%Parent.StateCode%>);Tag=Cit" var_s1 = var_s1 + "y" dm3 = var_s1 ds = .FormatABC("A + ` >>> ` + B",ds,dm3) .DataSource = ds .Select = "RO\CJ" .EndUpdate endwith
17	DataSource/DataMember/Key/Tag * CreateView event - A view has been created. * LPARAMETERS View with thisform.CascadeTree1 var_s = "value replace `data source` with `<b><fgcolor=808080>Source</fgcolor></b>` replace `Source` with `<b><fgcolor=808080>Source</fgc" var_s = var_s + "olor></b>` replace `Member` with `<b><fgcolor=808080>Member</fgcolor></b>` replace `Key` with `<b><fgcolor=808080>Key</fgcolor><" var_s = var_s + "/b>` replace `Tag` with `<b><fgcolor=808080>Tag</fgcolor></b>` replace `;` with `;<br>`" .StatusBarLabel = .FormatABC(var_s,.View.DataSource) bColumnAutoResize = .FormatABC("not(A = `City`)",.View.Tag) nWidth = .FormatABC("A = `City` ? B : C",.View.Tag,.View.WidthToFit,.View.Width) with .View .ColumnAutoResize = bColumnAutoResize .Width = nWidth endwith endwith * Error event - An internal error occurs. * LPARAMETERS Error, Description with thisform.CascadeTree1 DEBUGOUT( "Error" ) DEBUGOUT( Description ) endwith with thisform.CascadeTree1 .BeginUpdate .StatusBarHeight = 58 .StatusBarVisible = 18 && StatusBarAnchorEnum.exStatusBarWordWrap Or StatusBarAnchorEnum.exStatusBarAnchorTop ds = "Source=C:\Program Files\Exontrol\ExCascadeTree\Sample\Access\cities.accdb" dm1 = "Member=Select * FROM Countries;Key=CountryCode;Tag=Country" ds = .FormatABC("A + `;` + B",ds,dm1) var_s = "Member=Select * FROM States WHERE CountryCode IN (<%Parent.CountryCode%>);Key=StateCode;Tag=State \|\|\| Member=Select * FROM Citie" var_s = var_s + "s WHERE CountryCode IN (<%Parent.CountryCode%>);Tag=City" dm2 = var_s ds = .FormatABC("A + ` >>> ` + B",ds,dm2) var_s1 = "Member=Select * FROM Cities WHERE CountryCode IN (<%Parent.Parent.CountryCode%>) AND StateCode IN (<%Parent.StateCode%>);Tag=Cit" var_s1 = var_s1 + "y" dm3 = var_s1 ds = .FormatABC("A + ` >>> ` + B",ds,dm3) .DataSource = ds .EndUpdate endwith
16	DataSource (view, data source, data member, ACCDB) * Error event - An internal error occurs. * LPARAMETERS Error, Description with thisform.CascadeTree1 DEBUGOUT( "Error" ) DEBUGOUT( Description ) endwith with thisform.CascadeTree1 .BeginUpdate .StatusBarVisible = 2 .StatusBarLabel = "<b>DataSource</b> could "+chr(34)+"Data Source=...;Data Member=..."+chr(34)+" or "+chr(34)+"Source=...;Member=..."+chr(34)+" " .DefColumnWidth = 336 ds = "Data Source=C:\Program Files\Exontrol\ExCascadeTree\Sample\Access\cities.accdb" dm = "Data Member=Select * FROM Countries" with .DefaultView() .DataSource = thisform.CascadeTree1.FormatABC("A + `;` + B",ds,dm) .ColumnAutoResize = .T. endwith .EndUpdate endwith
15	DataSource (view, data source, data member, MDB) * Error event - An internal error occurs. * LPARAMETERS Error, Description with thisform.CascadeTree1 DEBUGOUT( "Error" ) DEBUGOUT( Description ) endwith with thisform.CascadeTree1 .BeginUpdate .StatusBarVisible = 2 .StatusBarLabel = "<b>DataSource</b> could "+chr(34)+"Data Source=...;Data Member=..."+chr(34)+" or "+chr(34)+"Source=...;Member=..."+chr(34)+" " .DefColumnWidth = 336 ds = "Data Source=C:\Program Files\Exontrol\ExCascadeTree\Sample\Access\cities.mdb" dm = "Data Member=Select * FROM Countries" with .DefaultView() .DataSource = thisform.CascadeTree1.FormatABC("A + `;` + B",ds,dm) .ColumnAutoResize = .T. endwith .EndUpdate endwith
14	DataSource (view, ADODB, ACCDB) * Error event - An internal error occurs. * LPARAMETERS Error, Description with thisform.CascadeTree1 DEBUGOUT( "Error" ) DEBUGOUT( Description ) endwith with thisform.CascadeTree1 .BeginUpdate .StatusBarVisible = 2 .StatusBarLabel = "<b>DataSource</b> could be string (Source/Member), ADO or DAO objects" .DefColumnWidth = 336 ado = CreateObject("ADODB.Recordset") with ado .Open("Countries","Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Program Files\Exontrol\ExCascadeTree\Sample\Access\cities.accdb",3,3) endwith with .DefaultView() .DataSource = ado .ColumnAutoResize = .T. endwith .EndUpdate endwith
13	DataSource (view, ADODB, MDB) * Error event - An internal error occurs. * LPARAMETERS Error, Description with thisform.CascadeTree1 DEBUGOUT( "Error" ) DEBUGOUT( Description ) endwith with thisform.CascadeTree1 .BeginUpdate .StatusBarVisible = 2 .StatusBarLabel = "<b>DataSource</b> could be string (Source/Member), ADO or DAO objects" .DefColumnWidth = 336 ado = CreateObject("ADODB.Recordset") with ado .Open("Countries","Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Program Files\Exontrol\ExCascadeTree\Sample\Access\cities.mdb",3,3) endwith with .DefaultView() .DataSource = ado .ColumnAutoResize = .T. endwith .EndUpdate endwith
12	DataSource (control, data source, data member, ACCDB) * Error event - An internal error occurs. * LPARAMETERS Error, Description with thisform.CascadeTree1 DEBUGOUT( "Error" ) DEBUGOUT( Description ) endwith with thisform.CascadeTree1 .BeginUpdate .StatusBarVisible = 2 .StatusBarLabel = "<b>DataSource</b> could "+chr(34)+"Data Source=...;Data Member=..."+chr(34)+" or "+chr(34)+"Source=...;Member=..."+chr(34)+" " .DefColumnWidth = 336 ds = "Data Source=C:\Program Files\Exontrol\ExCascadeTree\Sample\Access\cities.accdb" dm = "Data Member=Select * FROM Countries" .DataSource = .FormatABC("A + `;` + B",ds,dm) .View.ColumnAutoResize = .T. .EndUpdate endwith
11	DataSource (control, data source, data member, MDB) * Error event - An internal error occurs. * LPARAMETERS Error, Description with thisform.CascadeTree1 DEBUGOUT( "Error" ) DEBUGOUT( Description ) endwith with thisform.CascadeTree1 .BeginUpdate .StatusBarVisible = 2 .StatusBarLabel = "<b>DataSource</b> could "+chr(34)+"Data Source=...;Data Member=..."+chr(34)+" or "+chr(34)+"Source=...;Member=..."+chr(34)+" " .DefColumnWidth = 336 ds = "Data Source=C:\Program Files\Exontrol\ExCascadeTree\Sample\Access\cities.mdb" dm = "Data Member=Select * FROM Countries" .DataSource = .FormatABC("A + `;` + B",ds,dm) .View.ColumnAutoResize = .T. .EndUpdate endwith
10	DataSource (control, ADODB, ACCDB) * Error event - An internal error occurs. * LPARAMETERS Error, Description with thisform.CascadeTree1 DEBUGOUT( "Error" ) DEBUGOUT( Description ) endwith with thisform.CascadeTree1 .BeginUpdate .StatusBarVisible = 2 .StatusBarLabel = "<b>DataSource</b> could be string (Source/Member), ADO or DAO objects" .DefColumnWidth = 336 ado = CreateObject("ADODB.Recordset") with ado .Open("Countries","Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Program Files\Exontrol\ExCascadeTree\Sample\Access\cities.accdb",3,3) endwith .DataSource = ado .View.ColumnAutoResize = .T. .EndUpdate endwith
9	DataSource (control, ADODB, MDB) * Error event - An internal error occurs. * LPARAMETERS Error, Description with thisform.CascadeTree1 DEBUGOUT( "Error" ) DEBUGOUT( Description ) endwith with thisform.CascadeTree1 .BeginUpdate .StatusBarVisible = 2 .StatusBarLabel = "<b>DataSource</b> could be string (Source/Member), ADO or DAO objects" .DefColumnWidth = 336 ado = CreateObject("ADODB.Recordset") with ado .Open("Countries","Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Program Files\Exontrol\ExCascadeTree\Sample\Access\cities.mdb",3,3) endwith .DataSource = ado .View.ColumnAutoResize = .T. .EndUpdate endwith
8	DataSource (view, XMLDOMDocument) * Error event - An internal error occurs. * LPARAMETERS Error, Description with thisform.CascadeTree1 DEBUGOUT( "Error" ) DEBUGOUT( Description ) endwith with thisform.CascadeTree1 .BeginUpdate .StatusBarVisible = 2 .StatusBarLabel = "<b>DataSource</b> could be a XML file name, a URL, an IStream, an IXMLDOMDocument" .DefColumnWidth = 336 with .DefaultView() xml = CreateObject("MSXML.DOMDocument") with xml .load("C:\Program Files\Exontrol\ExCascadeTree\Sample\Testing.xml") endwith .DataSource = xml .ColumnAutoResize = .T. endwith .EndUpdate endwith
7	DataSource (view, XML, file) * Error event - An internal error occurs. * LPARAMETERS Error, Description with thisform.CascadeTree1 DEBUGOUT( "Error" ) DEBUGOUT( Description ) endwith with thisform.CascadeTree1 .BeginUpdate .StatusBarVisible = 2 .StatusBarLabel = "<b>DataSource</b> could be a XML file name, a URL, an IStream, an IXMLDOMDocument" .DefColumnWidth = 336 with .DefaultView() .DataSource = "http://www.exontrol.net/testing.xml" .ColumnAutoResize = .T. endwith .EndUpdate endwith
6	DataSource (control, XMLDOMDocument) * Error event - An internal error occurs. * LPARAMETERS Error, Description with thisform.CascadeTree1 DEBUGOUT( "Error" ) DEBUGOUT( Description ) endwith with thisform.CascadeTree1 .BeginUpdate .StatusBarVisible = 2 .StatusBarLabel = "<b>DataSource</b> could be a XML file name, a URL, an IStream, an IXMLDOMDocument" .DefColumnWidth = 336 xml = CreateObject("MSXML.DOMDocument") with xml .load("C:\Program Files\Exontrol\ExCascadeTree\Sample\Testing.xml") endwith .DataSource = xml .View.ColumnAutoResize = .T. .EndUpdate endwith
5	DataSource (control, XML, file) * Error event - An internal error occurs. * LPARAMETERS Error, Description with thisform.CascadeTree1 DEBUGOUT( "Error" ) DEBUGOUT( Description ) endwith with thisform.CascadeTree1 .BeginUpdate .StatusBarVisible = 2 .StatusBarLabel = "<b>DataSource</b> could be a XML file name, a URL, an IStream, an IXMLDOMDocument" .DefColumnWidth = 336 .DataSource = "http://www.exontrol.net/testing.xml" .View.ColumnAutoResize = .T. .EndUpdate endwith

101	Generates a PDF document on a single A0 page with no margins * CreateView event - A view has been created. * LPARAMETERS View with thisform.CascadeTree1 bSingle = .FormatABC("value > 0 ? 0 : -1",.View.Index) bColumnAutoResize = .FormatABC("value = `City` ? 0 : -1",.View.Tag) with .View .ColumnAutoResize = bColumnAutoResize .SingleSel = bSingle endwith endwith * Error event - An internal error occurs. * LPARAMETERS Error, Description with thisform.CascadeTree1 DEBUGOUT( "Error" ) DEBUGOUT( Description ) endwith with thisform.CascadeTree1 .BeginUpdate .Mode = 515 && CascadeModeEnum.exAutoFitOnResizeClient Or CascadeModeEnum.exSplitFixCascadeMode var_s = "locktype=1;Source=C:\Program Files\Exontrol\ExCascadeTree\Sample\Access\cities.accdb;Member=Select * FROM Countries;Key=CountryC" var_s = var_s + "ode;Tag=Country;Name=CountryName >>> Member=Select * FROM States WHERE CountryCode IN (<%Parent.CountryCode%>);Key=StateCode;Nam" var_s = var_s + "e=StateName;Tag=State \|\|\| Member=Select * FROM Cities WHERE CountryCode IN (<%Parent.CountryCode%>);Tag=City;Name=Name >>> Membe" var_s = var_s + "r=Select * FROM Cities WHERE CountryCode IN (<%Parent.Parent.CountryCode%>) AND StateCode IN (<%Parent.StateCode%>);Tag=City;Nam" var_s = var_s + "e=Name" .DataSource = var_s .Select = "US\AK" .EndUpdate var_CopyTo = .View.CopyTo("c:/temp/sample.pdf\|33.11 in x 46.81 in\|0 0 0 0\|single") endwith
100	Generates a PDF document that scales the content proportionally by 75% using B3 pages (default margins) * CreateView event - A view has been created. * LPARAMETERS View with thisform.CascadeTree1 bSingle = .FormatABC("value > 0 ? 0 : -1",.View.Index) bColumnAutoResize = .FormatABC("value = `City` ? 0 : -1",.View.Tag) with .View .ColumnAutoResize = bColumnAutoResize .SingleSel = bSingle endwith endwith * Error event - An internal error occurs. * LPARAMETERS Error, Description with thisform.CascadeTree1 DEBUGOUT( "Error" ) DEBUGOUT( Description ) endwith with thisform.CascadeTree1 .BeginUpdate .Mode = 515 && CascadeModeEnum.exAutoFitOnResizeClient Or CascadeModeEnum.exSplitFixCascadeMode var_s = "locktype=1;Source=C:\Program Files\Exontrol\ExCascadeTree\Sample\Access\cities.accdb;Member=Select * FROM Countries;Key=CountryC" var_s = var_s + "ode;Tag=Country;Name=CountryName >>> Member=Select * FROM States WHERE CountryCode IN (<%Parent.CountryCode%>);Key=StateCode;Nam" var_s = var_s + "e=StateName;Tag=State \|\|\| Member=Select * FROM Cities WHERE CountryCode IN (<%Parent.CountryCode%>);Tag=City;Name=Name >>> Membe" var_s = var_s + "r=Select * FROM Cities WHERE CountryCode IN (<%Parent.Parent.CountryCode%>) AND StateCode IN (<%Parent.StateCode%>);Tag=City;Nam" var_s = var_s + "e=Name" .DataSource = var_s .Select = "US\AK" .EndUpdate var_CopyTo = .View.CopyTo("c:/temp/sample.pdf\|6.93 in x 9.84 in\|\|75%") endwith
99	Generates a PDF document that fits the content exactly to 3 A4 pages wide by 2 pages tall (default margins) * CreateView event - A view has been created. * LPARAMETERS View with thisform.CascadeTree1 bSingle = .FormatABC("value > 0 ? 0 : -1",.View.Index) bColumnAutoResize = .FormatABC("value = `City` ? 0 : -1",.View.Tag) with .View .ColumnAutoResize = bColumnAutoResize .SingleSel = bSingle endwith endwith * Error event - An internal error occurs. * LPARAMETERS Error, Description with thisform.CascadeTree1 DEBUGOUT( "Error" ) DEBUGOUT( Description ) endwith with thisform.CascadeTree1 .BeginUpdate .Mode = 515 && CascadeModeEnum.exAutoFitOnResizeClient Or CascadeModeEnum.exSplitFixCascadeMode var_s = "locktype=1;Source=C:\Program Files\Exontrol\ExCascadeTree\Sample\Access\cities.accdb;Member=Select * FROM Countries;Key=CountryC" var_s = var_s + "ode;Tag=Country;Name=CountryName >>> Member=Select * FROM States WHERE CountryCode IN (<%Parent.CountryCode%>);Key=StateCode;Nam" var_s = var_s + "e=StateName;Tag=State \|\|\| Member=Select * FROM Cities WHERE CountryCode IN (<%Parent.CountryCode%>);Tag=City;Name=Name >>> Membe" var_s = var_s + "r=Select * FROM Cities WHERE CountryCode IN (<%Parent.Parent.CountryCode%>) AND StateCode IN (<%Parent.StateCode%>);Tag=City;Nam" var_s = var_s + "e=Name" .DataSource = var_s .Select = "US\AK" .EndUpdate var_CopyTo = .View.CopyTo("c:/temp/sample.pdf\|\|\|3 x 2f") endwith
98	Generates a PDF document that fits the content to 3 A3-landscape pages wide by 2 pages tall (custom margins) * CreateView event - A view has been created. * LPARAMETERS View with thisform.CascadeTree1 bSingle = .FormatABC("value > 0 ? 0 : -1",.View.Index) bColumnAutoResize = .FormatABC("value = `City` ? 0 : -1",.View.Tag) with .View .ColumnAutoResize = bColumnAutoResize .SingleSel = bSingle endwith endwith * Error event - An internal error occurs. * LPARAMETERS Error, Description with thisform.CascadeTree1 DEBUGOUT( "Error" ) DEBUGOUT( Description ) endwith with thisform.CascadeTree1 .BeginUpdate .Mode = 515 && CascadeModeEnum.exAutoFitOnResizeClient Or CascadeModeEnum.exSplitFixCascadeMode var_s = "locktype=1;Source=C:\Program Files\Exontrol\ExCascadeTree\Sample\Access\cities.accdb;Member=Select * FROM Countries;Key=CountryC" var_s = var_s + "ode;Tag=Country;Name=CountryName >>> Member=Select * FROM States WHERE CountryCode IN (<%Parent.CountryCode%>);Key=StateCode;Nam" var_s = var_s + "e=StateName;Tag=State \|\|\| Member=Select * FROM Cities WHERE CountryCode IN (<%Parent.CountryCode%>);Tag=City;Name=Name >>> Membe" var_s = var_s + "r=Select * FROM Cities WHERE CountryCode IN (<%Parent.Parent.CountryCode%>) AND StateCode IN (<%Parent.StateCode%>);Tag=City;Nam" var_s = var_s + "e=Name" .DataSource = var_s .Select = "US\AK" .EndUpdate var_CopyTo = .View.CopyTo("c:/temp/sample.pdf\|16.54 in x 11.69 in\|5 mm 5 mm 5 mm 5 mm\|3 x 2") endwith
97	Generates a PDF document that fits the content to 2 Letter pages tall, automatically determining the number of pages wide (default margins) * CreateView event - A view has been created. * LPARAMETERS View with thisform.CascadeTree1 bSingle = .FormatABC("value > 0 ? 0 : -1",.View.Index) bColumnAutoResize = .FormatABC("value = `City` ? 0 : -1",.View.Tag) with .View .ColumnAutoResize = bColumnAutoResize .SingleSel = bSingle endwith endwith * Error event - An internal error occurs. * LPARAMETERS Error, Description with thisform.CascadeTree1 DEBUGOUT( "Error" ) DEBUGOUT( Description ) endwith with thisform.CascadeTree1 .BeginUpdate .Mode = 515 && CascadeModeEnum.exAutoFitOnResizeClient Or CascadeModeEnum.exSplitFixCascadeMode var_s = "locktype=1;Source=C:\Program Files\Exontrol\ExCascadeTree\Sample\Access\cities.accdb;Member=Select * FROM Countries;Key=CountryC" var_s = var_s + "ode;Tag=Country;Name=CountryName >>> Member=Select * FROM States WHERE CountryCode IN (<%Parent.CountryCode%>);Key=StateCode;Nam" var_s = var_s + "e=StateName;Tag=State \|\|\| Member=Select * FROM Cities WHERE CountryCode IN (<%Parent.CountryCode%>);Tag=City;Name=Name >>> Membe" var_s = var_s + "r=Select * FROM Cities WHERE CountryCode IN (<%Parent.Parent.CountryCode%>) AND StateCode IN (<%Parent.StateCode%>);Tag=City;Nam" var_s = var_s + "e=Name" .DataSource = var_s .Select = "US\AK" .EndUpdate var_CopyTo = .View.CopyTo("c:/temp/sample.pdf\|8.50 in x 11.00 in\|\|x 2") endwith
96	Generates a PDF document that fits the content to 1 page wide and as many A4 pages tall as required (default margins) * CreateView event - A view has been created. * LPARAMETERS View with thisform.CascadeTree1 bSingle = .FormatABC("value > 0 ? 0 : -1",.View.Index) bColumnAutoResize = .FormatABC("value = `City` ? 0 : -1",.View.Tag) with .View .ColumnAutoResize = bColumnAutoResize .SingleSel = bSingle endwith endwith * Error event - An internal error occurs. * LPARAMETERS Error, Description with thisform.CascadeTree1 DEBUGOUT( "Error" ) DEBUGOUT( Description ) endwith with thisform.CascadeTree1 .BeginUpdate .Mode = 515 && CascadeModeEnum.exAutoFitOnResizeClient Or CascadeModeEnum.exSplitFixCascadeMode var_s = "locktype=1;Source=C:\Program Files\Exontrol\ExCascadeTree\Sample\Access\cities.accdb;Member=Select * FROM Countries;Key=CountryC" var_s = var_s + "ode;Tag=Country;Name=CountryName >>> Member=Select * FROM States WHERE CountryCode IN (<%Parent.CountryCode%>);Key=StateCode;Nam" var_s = var_s + "e=StateName;Tag=State \|\|\| Member=Select * FROM Cities WHERE CountryCode IN (<%Parent.CountryCode%>);Tag=City;Name=Name >>> Membe" var_s = var_s + "r=Select * FROM Cities WHERE CountryCode IN (<%Parent.Parent.CountryCode%>) AND StateCode IN (<%Parent.StateCode%>);Tag=City;Nam" var_s = var_s + "e=Name" .DataSource = var_s .Select = "US\AK" .EndUpdate var_CopyTo = .View.CopyTo("c:/temp/sample.pdf\|\|\|1 x") endwith
95	Generates a PDF document on a single A4 page (default margins) * CreateView event - A view has been created. * LPARAMETERS View with thisform.CascadeTree1 bSingle = .FormatABC("value > 0 ? 0 : -1",.View.Index) bColumnAutoResize = .FormatABC("value = `City` ? 0 : -1",.View.Tag) with .View .ColumnAutoResize = bColumnAutoResize .SingleSel = bSingle endwith endwith * Error event - An internal error occurs. * LPARAMETERS Error, Description with thisform.CascadeTree1 DEBUGOUT( "Error" ) DEBUGOUT( Description ) endwith with thisform.CascadeTree1 .BeginUpdate .Mode = 515 && CascadeModeEnum.exAutoFitOnResizeClient Or CascadeModeEnum.exSplitFixCascadeMode var_s = "locktype=1;Source=C:\Program Files\Exontrol\ExCascadeTree\Sample\Access\cities.accdb;Member=Select * FROM Countries;Key=CountryC" var_s = var_s + "ode;Tag=Country;Name=CountryName >>> Member=Select * FROM States WHERE CountryCode IN (<%Parent.CountryCode%>);Key=StateCode;Nam" var_s = var_s + "e=StateName;Tag=State \|\|\| Member=Select * FROM Cities WHERE CountryCode IN (<%Parent.CountryCode%>);Tag=City;Name=Name >>> Membe" var_s = var_s + "r=Select * FROM Cities WHERE CountryCode IN (<%Parent.Parent.CountryCode%>) AND StateCode IN (<%Parent.StateCode%>);Tag=City;Nam" var_s = var_s + "e=Name" .DataSource = var_s .Select = "US\AK" .EndUpdate var_CopyTo = .View.CopyTo("c:/temp/sample.pdf\|\|\|single") endwith
89	How can I replace or add an icon at runtime * CreateView event - A view has been created. * LPARAMETERS View with thisform.CascadeTree1 with .View .EnsureVisibleColumn("Function") with .Columns.Item("Function") endwith .Columns.Item(0).Def(0) = .T. endwith endwith * Error event - An internal error occurs. * LPARAMETERS Error, Description with thisform.CascadeTree1 DEBUGOUT( "Error" ) DEBUGOUT( Description ) endwith with thisform.CascadeTree1 .BeginUpdate .ImageSize = 16 var_s = "gAAAABgYACEHgUJFEEAAWhUJCEJEEJggEhMCYEXjUbjkJQECj8gj8hAEjkshYEpk8kf8ClsulsvAExmcvf83js5nU7nkCeEcn8boMaocXosCB9Hn09pkzcEuoL/fE+Ok" var_s = var_s + "YB0gB9YhIHrddgVcr9aktZADAD8+P8CgIA==" .ReplaceIcon(var_s) .ReplaceIcon("C:\images\favicon.ico",0) with .VisualAppearance var_s1 = "gBFLBCJwBAEHhEJAAEhABUYCg6AADACAxRDgMQBQKAAzQFAYbhkGCGAAGMZxRgmFgAQhFcZQSKUOQTDKMIziYBYfgkMIgSbJUgDGAkRRdDSOYDmGQYDiCIoRShOMIjHL" var_s1 = var_s1 + "UXxtDaIZwhEAoJb+RgAUY/cTzaAEUwHHiTKInaCQShsFYJUJAdRURQ9EwvCIZBpEWwLChENQwWLCNj2TScBwjCyqbale45ViqdoDU5EUiXJJ8ZxnECfYyrGjaMpCeKBU" var_s1 = var_s1 + "rGYTVRBIMxLLSia5oeJqMrnBpNVrIUgXCAGFwHK6BcauXIIDp6XoWWRbAAWDpVVzNNC3YzkCIceADHKiXxmVz4JLdGZ1QTGID2XaYaxWK4oZjsVSc4KDHbETbHFi9Fo3" var_s1 = var_s1 + "NaaxGisew+GYc4HlCR5NAAAIIEkQJSGMOgdE4RhYDwJJsAaAYQgmPpolCWgSCiBJzjcEIAkQXIBm8d5UhOQgCDUIBDDJDhgggJgKgKYJIDSVoDk8KBFF4OohEMZgWDsY" var_s1 = var_s1 + "YDj4GoGmGSB2B6B5iAiBgYDsYRjGSbIJo4RgqDuIpIAoLoLmMCJGDKDJjJiLA7xqUAAgGTwYnYPoPmQCQGEKEJkEkFg9gGY44BoRoSmSSQ2EKEggHgRhShSZRJFYVoVm" var_s1 = var_s1 + "WCRmFKFAgGOTheheZgJgYYoYmYSYWGaF4lkMMJ0hqZpJjYbobmcCZGHKHJmjmJh0h2Z4JmYcIaE8WZ2H6H5oAoBoCiCaBKBYfdjGoJoKiKaJKDaDojmkChGgmIgpCoVo" var_s1 = var_s1 + "WiWaJZiSd4mmmSh2h6J5qAqBoiiiaY5iSeIpmqComiqKpqkqNouiuah6hqMIsmsSpWiuGhP1kOoumuSp2j6L5sAsBo54gKwWkaMZsgsJpKjKbJLDaRYxYWRpSjSbIZiS" var_s1 = var_s1 + "e41m2CxmlqNptksdpejebR5iSfI4m4S4W16boLiaao6m5fJ9jubwLkaco8m8S5WnaPZunuOp4j6b5Lnac4SA0PAGlgP4wEwFwGkGcIMCcCpCnCCxiA8NYAAmMJfkSbhF" var_s1 = var_s1 + "CcFpFnGDBnBqRpUhuEwTDeZ5lHCfw6HIQxLCaAxygyJwqgGcATE4FA6hWY4tjEAAQBAgIA==" .Add(4,var_s1) endwith .BackColorHeader = 0x4c6c6c6 .SelBackColor = 0x4000000 .SelForeColor = RGB(0,0,1) .Object.Background(20) = .SelBackColor && 0x14 .Object.Background(21) = .SelForeColor && 0x15 .Object.Background(26) = .BackColor && 0x8 Or BackgroundPartEnum.exSplitBar .Object.Background(27) = .ForeColor && 0x9 Or BackgroundPartEnum.exSplitBar .Object.Background(32) = -1 && 0x20 .Object.Background(0) = 0x4000000 && 0x0 .Object.Background(41) = 0x4010101 .Object.Background(1) = 0x40000ff && 0x1 .HeaderAppearance = 4 .BackColorSortBar = .BackColor .BackColorLevelHeader = .BackColor .Mode = 3 var_s2 = "Source=C:\Program Files\Exontrol\ExCascadeTree\Sample\Access\cities.accdb;Member=Select * FROM Countries;Key=CountryCode;Tag=Cou" var_s2 = var_s2 + "ntry;Name=CountryName >>> Member=Select * FROM States WHERE CountryCode IN (<%Parent.CountryCode%>);Key=StateCode;Name=StateName" var_s2 = var_s2 + ";Tag=State \|\|\| Member=Select * FROM Cities WHERE CountryCode IN (<%Parent.CountryCode%>);Tag=City;Name=Name >>> Member=Select * " var_s2 = var_s2 + "FROM Cities WHERE CountryCode IN (<%Parent.Parent.CountryCode%>) AND StateCode IN (<%Parent.StateCode%>);Tag=City;Name=Name" .DataSource = var_s2 .Select = "US\MN" .EndUpdate endwith
80	Shows the tooltip of the object moved relative to its default position * CreateView event - A view has been created. * LPARAMETERS View with thisform.CascadeTree1 bSingle = .FormatABC("value > 0 ? 0 : -1",.View.Index) bColumnAutoResize = .FormatABC("value = `City` ? 0 : -1",.View.Tag) with .View .ColumnAutoResize = bColumnAutoResize .SingleSel = bSingle endwith endwith * MouseMove event - Occurs when the user moves the mouse. * LPARAMETERS Button, Shift, X, Y with thisform.CascadeTree1 .ShowToolTip("<null>","<null>",Null,"+8","+8") endwith with thisform.CascadeTree1 .BeginUpdate .Mode = 515 && CascadeModeEnum.exAutoFitOnResizeClient Or CascadeModeEnum.exSplitFixCascadeMode var_s = "Source=C:\Program Files\Exontrol\ExCascadeTree\Sample\Access\cities.accdb;Member=Select * FROM Countries;Key=CountryCode;Tag=Cou" var_s = var_s + "ntry;Name=CountryName >>> Member=Select * FROM States WHERE CountryCode IN (<%Parent.CountryCode%>);Key=StateCode;Name=StateName" var_s = var_s + ";Tag=State \|\|\| Member=Select * FROM Cities WHERE CountryCode IN (<%Parent.CountryCode%>);Tag=City;Name=Name >>> Member=Select * " var_s = var_s + "FROM Cities WHERE CountryCode IN (<%Parent.Parent.CountryCode%>) AND StateCode IN (<%Parent.StateCode%>);Tag=City;Name=Name" .DataSource = var_s .EndUpdate endwith
79	ImageSize property on 32 (specifies the size of control' icons/images/check-boxes/radio-buttons) * CreateView event - A view has been created. * LPARAMETERS View *** Items.ItemHeight(0) = View.DefaultItemHeight *** FilterBarFont.Size = Me.Font.Size *** ToolTipFont.Size = Me.Font.Size with thisform.CascadeTree1 with .View .DefaultItemHeight = 36 .HeaderHeight = .DefaultItemHeight .SortBarHeight = .DefaultItemHeight .Indent = 26 .CheckImage(0) = 16777216 .CheckImage(1) = 33554432 .CheckImage(2) = 50331648 .EnsureVisibleColumn("Function") with .Columns.Item("Function") endwith .Columns.Item(0).Def(0) = .T. endwith endwith * Error event - An internal error occurs. * LPARAMETERS Error, Description with thisform.CascadeTree1 DEBUGOUT( "Error" ) DEBUGOUT( Description ) endwith with thisform.CascadeTree1 .BeginUpdate .ImageSize = 32 .Font.Size = 16 var_s = "gBJJgBAIDAAEg4AEEKAD/hz/EMNh8TIRNGwAjEZAEXjAojKAjMLjABhkaABAk0plUrlktl0vmExmUzmk1m03nE5nU7nk9miAoE+oVDolFo1HpFJpU5h8Sf9OqFNqUOqN" var_s = var_s + "UqdPq9VrFWrlbr1QpdhAFAkFis1ntFptVrtkrpszrNvmVxqk3uVtm1kmF3sdBvF/wGBmV+j9BYGHwWJulfxdax2NyFdx2JlV6l9Nw7AAGZymdz2Cy2GxErvWcz9ivlwy" var_s = var_s + "V21cuxugwktzGIzmvwtl0+53U5y0a0Wazmmyu/3dCyOMyXHx/J5nIr9q3uyqnBxFN3G46ma4vb7mD2Ng4nZze00fDkHC7t7us2rOX5tguetpHRlmz4HVqnXk1PjHO+CM" var_s = var_s + "Po9MBMC+j2vC8j7wS8cFNI4kBo05UIvfCT/NsnsApU+0Fqg/T+oy/kPxC0sEQfErKQK96+w28UWRI8UGvO8sTLS9r2PWmsMJTDTask3CsIbIEQRA3shOXEEAO/GclJ9F" var_s = var_s + "EKrrA8FRbKMXRIlb0JxCkjS1LMswhCcvuel0cv26cSMa8Ufx+2sQwhEUoSXOCjSbLcnxjKc7sdKUVyq28NtVI71P9P7JxtQEapjQ6fzfM8zPfNE2PhIsLL63E40slk5y" var_s = var_s + "7N89LcyU9SvMb3SdUc6VJLj5VLVLfO/PS9KzNFHUa/0XyBD0dxlS9cxhMlTRSoNXypPErWDPyfNS+MwprRNO0FD8wVVZ1AI08URwVRjtJ1WCn21QkkUrXVLVPQS/XIkF" var_s = var_s + "gTxT9iONZ9xVTdq+L1eKg3kkF6Upe68XtfV51/MtrVjBlwYFL1ev8y1/P6/lyzzYl02wntj0RVFmS1Qa+M5as93QxEUW9e993rfmQ2+vy65M/mL1lhl/2bj2ByVduMtN" var_s = var_s + "hCJT9hdz41nN14Ld12Z9UjfI/oUAaGseiw6+uFLLhcVabJOS5RqOE0BHlZ5VnEr5fOMs3st+aa/bbRzrJGV51Y0b0DbqaWXZD90hIsPbjWu52+6Wyadpe66hhO+P/Xio" var_s = var_s + "W5rD8ZbrUZuVg6n1dsE/cXmewu1m9PVwnd35/nueXho/NaJzmjc61W76esuT77eG8pTquy9TwWH8LEzG8RDfFalx3Gcfvna9rvG/cptGLd9tuI6TZOP5Fiqi99vea+X4" var_s = var_s + "VRcBq/JZZtVQ9cwSs5lsXE372+a9z7PbfB3VVqHyvMctLto8uob6eV0m/cD6MN2v+T33t6sBut42vdv2bJ8a997x2maFJfK+qArbGJPEKE+1qTflMsIdW/GCJX17KcT6" var_s = var_s + "/czr/X+u1g29B7j/4BQfWkkx4zIHisjhPCmE0K4SwtXM+d4BvHRwNZOoBph9IJvPek9d40FoMJxf691jj2ywQQcHEWET4XJwkTszlVqm2GokewxtBT1DpQjRxDN0rUVD" var_s = var_s + "NKdC3lb6tzNOwh6upMSSYfv4YBCl/bsn9PxiFCEo7SI6Obc9HeOrnY8x4jtHtdpN4GRbaorhsbu18Pph5CiHymI0RpSXGJ/z2oUOxYxG858AyiI+bfJtuTcG5yelBJyT" var_s = var_s + "8okhqFd4a5yxL0rvulYtKCsZiWxWkc1s1cRoxxwhA31DLE0mR9l9HqX8fJgTDmFMVH0MIsRzVYnwnMi1dyzmhLt2kS2pxIiU62Wj5ptQGlSYFakLonTUJNLKaM5Wzlff" var_s = var_s + "EkuFkk5wTrhVO2eE7G6lJhxFFYUZ55zmn0WuBCD4pzhirFCKkbomsOoIYmZx5p90LoYWGPdD5g0QmJRKYxbZ6zYoVQ2jVGylSak7KSkFH6RSjpHKFuU+YMyNo5SulkC6" var_s = var_s + "I0vonTCitMXPoEpVS2H5FQfEqp2R1opIgAEkJISYARTCukOhmPNI5Ex/wzGHUsicMwA1LHgQ90Y/KpoQHAD+pB/R4NzIaMAB9Xaw1gqaAOsh/A/ptIkWUfhGK1kZH8Rg" var_s = var_s + "H5GqvgArqRmt4AAPrTroRofBGADkqr6Rmu4D7CEaHARiwpJrEEZsXXwlVjyMWRsaRqwdkLGNBABZmytmyMnaINZqyVpLR2ftKAAAdd6h2osbaskdiq4EZtgSmyNcbVWR" var_s = var_s + "JNXe3AA7REar3b0stlAAXBtoRmvJGLjEYAHUWsFcwCD/rnaop9aEICMAPdK5hT6xpeuzdOtAgKuJeGfdq6ggEbkTvAP+p9UCHXrvKkcgIA==" .Images(var_s) with .VisualAppearance var_s1 = "gBFLBCJwBAEHhEJAAEhABfICg6AADACAxRDgMQBQKAAzQFAYbhkGCGAAGMZxRgmFgAQhFcZQSKUOQTDKMIziaQAGgkNQwCSLIwjNIsBxPFKVQChEYxSjKA40SJNUgyj6" var_s1 = var_s1 + "CCY+QLIE5PfQgAL9I6eJABCCSQKkYx0HScRiwPBIbAZAYhCZqaKhWgkKI/WBQIABRDVLx5ESiLRtKy7Mq2bpvXBcNxXHalaztO68LxvKyqHb5fJ/PpgL4YHgmC4NQ7EM" var_s1 = var_s1 + "RwF6rfbyfZ7Xg/ORPTijZ4sdzMHTzJyscx3HqfaBoOaZU5eMLceTUMofHIndxCcasPbsOatVqjG5sYjcGC3La9cz3Pq/bpuDCbMxuaK1TrYXr1TTrcofBDldAxXRKDxR" var_s1 = var_s1 + "DWVhLnYOw9i6XxzjuXprCaOoKB6EwbiCZZCGOdZYlcT4xHmbhMnwNxtn+G5bmqdZ7n4Pw/i+X5zm+dQ9g4CAFjsfAJheOI8HsDoWDWTB/lwSAQkmA5PEgRYoDyDwYFYF" var_s1 = var_s1 + "oFmGCBmBqBphDgRJ0gOTIYBGRB/lyRh0iSCZbjYWJzgWDwIjYLoLmMCJGDKDJjBgWgqG6YhyhGHRzA2aJ1mCABOAiOJvhCZBJBYRoRmSCQmEqEQimkAZgg8TZnDCV4Uk" var_s1 = var_s1 + "mCUmBKZYJGYWoWCUUhiFMNZckNUh2GENoaGaGZmgmJhqhqZpGGIEx2GYIxSGGGJdggWJth2Z4JmYeoemeSZ2H6H4hGmQhihyTRHGYLg7CiCgmgqIpokoNoOiOaJ4jqAo" var_s1 = var_s1 + "chqaZGgaCxpAoZoaiaaJqEmWIcGgShcnCJwqEqFoR3YOoFlgchflqNouiuawHmWSYqGkWZQhcatzmaOoumuSp2j6L5bBaKo0GQKRnGGCxqiyCwmkqMpsksNpOGUGI7A0" var_s1 = var_s1 + "ew1G0Rxlg0PptgsZuDG2Sx2l6N5tnYNZZjUDRXDCVo5l2FoymqOpukuNpujubwLjmWY5k0ZwxkaFxYlWdp6j6b5Lnafo/nABQdg2FxcUsY5BkmXAkmeQpckwNRrkKTh8" var_s1 = var_s1 + "CSHZBk4NwyC4KxxgMDwakOMZDn8GgwnGAo2C4cwthMcwmCcMoHBMHRehwTIghySYNksZwcH4HBMEsHx5hyPItiweYxnwSZEH4Mozn0fR+DMAo7EYJ50gkdZelKdNql2U" var_s1 = var_s1 + "gJn0GIukwH4HicQRai2GI4mSVpNl0dZGledgNgcYpYDWUx3FsOQi5YV5anaTY3G6W53A2RxylydxFjiaxEFCCgBBAQ==" .Add(1,var_s1) var_s2 = "gBFLBCJwBAEHhEJAAEhABcoFg6AADACAxRDgMQBQKAAzQFAYbhkGCGAAGMZxRgmFgAQhFcZQSKUOQTDKMIziaQAGgkNQwCSLIwjNIsBxPFKVQChEYxSjKA40SJNUgyj6" var_s2 = var_s2 + "CCY+QLIE5PfQgAL9I6eJABCCSQKkYx0HScRiwPBIbAZAYhCZqaKhWgkKI/WBQIABRDVLx5ESiLRtKy7Mq2bpvXBcNxXHalaztO68LxvKyqHb5fJ/PpgL4YHgmC4NQ7EM" var_s2 = var_s2 + "RwF6rfbyfZ7Xg/ORPTijZ4sdzMHTzJyscx3HqfaBoOaZU5eMLceTUMofHIndxCcasPbsLpOS5LNKsaxmWLYdhFdTxQi6LpvfA8BwXC6JY7heRYRbFbYxRjGNi1TS7G4n" var_s2 = var_s2 + "GKd5WGuL4UHwI4VkaYxii8V4pgQMgVBQdQ5iCTYGi8T4vlWbJ3nuPg+l+H5AlSCg6ByPBoE8Ap3jqYxhBido5g0OgOGOGI4CsSpCCAcgcAuEokiEN5NCKfJ9DyTRjnSc" var_s2 = var_s2 + "g1CEYxOBmBpPCgagdgcIZoHoGIFA4AxQkCAxKAgKBwgGSpIBCZhjF2E5UnQPQMiMCJBCIBwxkSQgsgo+JtDKT4ziiQw+k6EwAnsOgLnkHI+yCQ4iEuE4klkPhShEJBpA" var_s2 = var_s2 + "oPgymOMoaDgHBjFMBgyD0HYTiCZSZhIIIGC4ChiHSew5kwM5omILZPiOBI0hwZw5kodIdA+M4Uj4PxOmMSJ9DuTQzmyZgviceZagaHVfj4awwmaAh2GUIYmCOEZZDaDR" var_s2 = var_s2 + "DFGdwcg4EwyHMN4LBOaJbCoaZqgKH8qkMfIyD8DozDyfA7A0Coui0OpMmOZJdCsahKg6NooioChwmEMxLEoXJbDUTRXGSUgykyMgQG0GpPHMdI3D4TRCgSeQ0kmaw+lG" var_s2 = var_s2 + "NAtCOZJVCiT5DhyRQwAqMg0EoDBBGEGAsASC5yiSCw+k4Mp6lWNQuksTpRjMTxDGzJwGmGMpDDKXYTECSAxl6Q5olkK4PgMMIVkASRMBMBgzEkaZEjsNALhIZA6AeQBg" var_s2 = var_s2 + "k0ZJEgAAJ0CIAgODMNIsD6DRih9uYwFyAwfCUb5ijmbI+gwdxkk8MZMGeMpPCkDxzBiC5MHMPJLDSSROFMLIoBEQogEMFJPnENYQGgE4DCOaJfC7tYkhGTQ0kyWwykuX" var_s2 = var_s2 + "pMiyRpKjKR4wngM4JmOWJACCdYtHMWw+Eych4nINYLAEYA8AgdAEEsQZajaQoog4GxPiMVIolcdxNG8XZVkmNoRwWRVBlFeFEeAZQJgnFiHgHwcAhjhHgGMSI5xki2Cy" var_s2 = var_s2 + "A4EQsA3i0HkBsLwKRFgAHcPkHopBJBcBeDUYI7xyDOHqKkWo2hLCsDIBIY4qQ5A8DoMMYwOAqCSBGKgU4yB2iDBwIgB4hxQgAAWNgBoAgsBdEcBUQ4sQ9A/HqD0JI8Rp" var_s2 = var_s2 + "BzH2OYVgahLBHFiJQJweQiDhDUE4SAARQAzFsG0EQwA6AOWSBkFgVAIBCHeGERQFQiCQHeFkC4vkiB8DyB4F4QxVDvGMNEOQexMjlBeOAKQiQLgfDA7QEAaRiBdEkH8T" var_s2 = var_s2 + "I7AZiFBAGYBIABWjYBiGACioQ4C1A+AMMgWhfgxHgPsT4URIB0COKgPgjRwiAB8AYUArxBgCF6J4GY5hrAOCAPAAoGRRCsCIMEXATXfgAF8BMJwURuEQDgD4Q4OBoAeH" var_s2 = var_s2 + "GFgLIwQrC2D0JoSQ+QvhrHoSgQI8AbDFGID8C4Ah6BQAQAASACwgCYCMAUMARAvCKAiAMCAokeCKBEOAKgCBoDaHuMsEAqwJDiACDURg8R6gPCyDofYWAhgoDIJ4ZAuh" var_s2 = var_s2 + "oiGAYGgRoQw/A0GMMga4GwxiEDeIYYInATCDBQAoBAwAoDlA0KMBoVRGiDGwDQUYIRsgaGGDgM4LAwDWB8EcIA1APhjEgGQVwgRIgjFIIQHokgZA+CSEkLIKQSjHAwMs" var_s2 = var_s2 + "CwDAsAEB2ABTIwRwD6A8CMToSxkAxE4HYIw+BsgbBEDAHYBwojCBoIYFgXSjABE4MsHIbQWhlGILQS4UhvBdAUKEEwHgxDAAABQQQUAhgKHiDwE4JS4A7BGLQZwCR4ga" var_s2 = var_s2 + "BEMUYAqgKApHgGwVAIRNgvBMMQXImwZDtE4I8UIyAZCDCAE8AwrhgAdEEBACQLRCg4FEB4AYtA7CdEiPQMoJAMDNCkOMCAXAFDhH0D0Q4EgfAaGSK4NYzRUj9BuCgAgs" var_s2 = var_s2 + "wOBjB4Fqpw8B2ADAwE4A4Qx2DAE6JIaQPQGhAGKBcIQ5B5gHByKIFARwADbAyKUfgdBKBBGyEcVIAB/ijHoIoSA0gdBNl+OATYERZgBGSDYWIWAUCEGKA4FAhR7CIBtY" var_s2 = var_s2 + "QGYZg4CMAiKEcAOwkBjHWE8Z4lQgA+DkBoTohwwCeAaMEEgBQCCABgHMRwQRhhMEWFQd4HwZgwDqFESItAbAGEANCpINAzANCCJkK4ah+heFYBURwsQrS2CsMYMoWGBh" var_s2 = var_s2 + "YDWI0EInQgiApXaOVI1QFDsC8MUNoMBMA1HMJga4eh+BeAWOgNNowGjYzCGAAwax+iJBeBVT4gxoBIAGFsJFBxgBiGKFkKQ7g5DFFQEcAo4AzDDACKEQQLgCiJDYB0Mg" var_s2 = var_s2 + "RBCCQAgQEA==" .Add(2,var_s2) var_s3 = "gBFLBCJwBAEHhEJAAEhABQ4Fg6AADACAxRDgMQBQKAAzQFAYbhkGCGAAGMZxRgmFgAQhFcZQSKUOQTDKMIziaQAGgkNQwCSLIwjNIsBxPFKVQChEYxSjKA40SJNUgyj6" var_s3 = var_s3 + "CCY+QLIE5PfQgAL9I6eJABCCSQKkYx0HScRiwPBIbAZAYhCZqaKhWgkKI/WBQIABRDVLx5ESiLRtKy7Mq2bpvXBcNxXHalaztO68LxvKyqHb5fJ/PpgL4YHgmC4NQ7EM" var_s3 = var_s3 + "RwF6rfbyfZ7Xg/ORPTijZ4sdzMHTzJyscx3HqfaBoOaZU5eMLceTUMofHIndxCcasPbsLpOS5LNKsaxmWLYdhFdTxQi6LpvfA8BwXC6JY7heRYRbFbYxRjGNi1TS7G4n" var_s3 = var_s3 + "GKd5WGuL4UHwI4VkaYxii8V4pgQMgVBQdQ5iCTYGi8T4vlWbJ3nuPg+l+H5AlSCg6ByPBoE8Ap3jqYxhBido5g0OgOGOGI4CsSpCCAcgcAuEosiYN5NHMOJ+D4TpTnSe" var_s3 = var_s3 + "Q7CEY4uBmBpPhgagdgcIZoHibIEyUBJZDQIJShoCgcCAcoyAQOYYlcZJ1D0DxDCiQgwEiAZMHEMJLFKPJ9D2DoDnidQ4k+Y5QmKEROBkIhKD0JIZDIS4TGUCQuEeEJjn" var_s3 = var_s3 + "OIg8CuY4RkYNgwGMM5RllGpThDRYIGKZIpCkJFUH0PINyWcQ3CaaZCG+HBnEOTJhD8Tx4GoeQ/GcaZSHOH5nCmQhshoZhihYYwhiYA4RlkNoNEMUZ3ByDjwEsPxOnMaJ" var_s3 = var_s3 + "9DuDR6F6GYmCmKh0nANtMioP4Gg8aoSiIO5NhodociqaY6GaFYkEyOg8lsNRNTaUgykyMgQG0GpPiONJbD8DpDEyfA6k0KwOkWMQsGsAJU0SagwkoJQJDIPISCQCJTGS" var_s3 = var_s3 + "UwyGaM4KkmMgtksHpFjAZ4TGCBAbgaSpcksdhNAMIJHHsD5TjSWWMAMOpwjyLwbk6cAz0KRJiDkDYzESCwiggcgcgYIQwCIEINCMCITj6TVxkMXp2j0cQLlCTo7E2F4y" var_s3 = var_s3 + "mkMZdhMPJHDGHpLAyVg+k4UwrCCSIyByDJ8DuDY8CiWY0kiXAXC6QJwFKGIjCeJpjgyezjlyDw6klHx5myRoMGwZwbkcToTEiew4kwbQfEmUgPkOKJUD4DpTHSHQmgkX" var_s3 = var_s3 + "I/ASTA1g0XIEDMTBimyfI7jSLYHEiUoPk0Fw/kadAsHGao8A0A5smEMJ2mNyg5gzJZwDgCpChyIZVyIZwFCMJEPASRkBqE+IcHInRcDxA2H4bIsx0AtDsIBpwZwYicD6" var_s3 = var_s3 + "BscwDwUBgHCIYaIfgtiVH2O4WgUwJjEFeAEQA7y4hMCiBMS4aRdB9A4CYE4LxljyBMHcDItBxinDCLcTYmgejBFQ9UTg9gFBOEmAQTI7A4iZGMGkQAWQ7jYA2HIL8BRA" var_s3 = var_s3 + "jDG4HcCwARbjZHiNoDw1nLDnGyNINQ+wjCpBMEgcovQUgICQJEcgWRuBvAyJ4d4ugpCUAINcHogxIgnDiM4N4axzD3F2JMTY/hRqYF6FsWIxhYAGGoAALQYgYirBwBEB" var_s3 = var_s3 + "wpAjBEAAIEIYsA2gOHCMAGgXAACIDmMITAUgFABH0D0I4WwvhNFGMAOIvxRD2GKNcMA8gjAPDCPwBogRPAxA8PgRwZRICYDED8RAXQEghEAN8DIgwIBdB4JYWwMgtiQH" var_s3 = var_s3 + "oFQKAiRFguFKGwGQhglDsEOVwEQQRkCKBwOIHgSREDRBYHEXQcQdD7GIGARQHRxipBrMobgewDCUCADsEYWAzgMHKHQDQxxsDzA6EMfAeQHB4GQDkUYPA0iECiKoGgRh" var_s3 = var_s3 + "cDdA2GMQA8AOCjDSPgHI4QnApAKBICwHg1A+BcAwcYsgbjGGQNkCIgRsA6EcBEWANADjsB0B8YYzQQDIGSBcEYZBCCPEkFIHQSgkgZAwG4IwBAbAYGGAgL4Ch4g8BOCQ" var_s3 = var_s3 + "AA2KKC0GcAke4AAXAFCoHkDw4xbBFEcJkE4JRSiEFeJYKQVRMgJHODwX4xAgC/AsIIZAeAHDRG0HYI40RKCLEGDUI4jAghwBWIceA+whCpHMFYZYOQxglDMHMBQGxYjV" var_s3 = var_s3 + "HiAoBIPgfgHGwPsHYJRSB6A0IERQLhCjJHMA4OQoAoCOACLYGYSx8DpBQIMWQdRnDRH+DsE4fB3CeAmM67kAAXBFEIDYDI7wLBtEoEIfYNwjiUGGJQYQMAjCHEAO0C4z" var_s3 = var_s3 + "xW29CoCgfIxR9AKA6J8BgUAIhDGMIoJ40hqgwCgKETgnBhhqCGI0AIqgZhGDANQDIlBDCRGkCoJISR0g1BSKQOgfAzBRG0DYHARh4DeDAOwANuw8ApCKKkYg/RPhjBsH" var_s3 = var_s3 + "0J4yg5hPGWN0GwFBHQBFaDoQIURljFAoB4GgzRVzbBECQFQRQoguHGHANwDRdCKy8CgSIGwhhoDYJYYI1giBICSAEgI=" .Add(3,var_s3) var_s4 = "gBFLBCJwBAEHhEJAAEhABUYCg6AADACAxRDgMQBQKAAzQFAYbhkGCGAAGMZxRgmFgAQhFcZQSKUOQTDKMIziYBYfgkMIgSbJUgDGAkRRdDSOYDmGQYDiCIoRShOMIjHL" var_s4 = var_s4 + "UXxtDaIZwhEAoJb+RgAUY/cTzaAEUwHHiTKInaCQShsFYJUJAdRURQ9EwvCIZBpEWwLChENQwWLCNj2TScBwjCyqbale45ViqdoDU5EUiXJJ8ZxnECfYyrGjaMpCeKBU" var_s4 = var_s4 + "rGYTVRBIMxLLSia5oeJqMrnBpNVrIUgXCAGFwHK6BcauXIIDp6XoWWRbAAWDpVVzNNC3YzkCIceADHKiXxmVz4JLdGZ1QTGID2XaYaxWK4oZjsVSc4KDHbETbHFi9Fo3" var_s4 = var_s4 + "NaaxGisew+GYc4HlCR5NAAAIIEkQJSGMOgdE4RhYDwJJsAaAYQgmPpolCWgSCiBJzjcEIAkQXIBm8d5UhOQgCDUIBDDJDhgggJgKgKYJIDSVoDk8KBFF4OohEMZgWDsY" var_s4 = var_s4 + "YDj4GoGmGSB2B6B5iAiBgYDsYRjGSbIJo4RgqDuIpIAoLoLmMCJGDKDJjJiLA7xqUAAgGTwYnYPoPmQCQGEKEJkEkFg9gGY44BoRoSmSSQ2EKEggHgRhShSZRJFYVoVm" var_s4 = var_s4 + "WCRmFKFAgGOTheheZgJgYYoYmYSYWGaF4lkMMJ0hqZpJjYbobmcCZGHKHJmjmJh0h2Z4JmYcIaE8WZ2H6H5oAoBoCiCaBKBYfdjGoJoKiKaJKDaDojmkChGgmIgpCoVo" var_s4 = var_s4 + "WiWaJZiSd4mmmSh2h6J5qAqBoiiiaY5iSeIpmqComiqKpqkqNouiuah6hqMIsmsSpWiuGhP1kOoumuSp2j6L5sAsBo54gKwWkaMZsgsJpKjKbJLDaRYxYWRpSjSbIZiS" var_s4 = var_s4 + "e41m2CxmlqNptksdpejebR5iSfI4m4S4W16boLiaao6m5fJ9jubwLkaco8m8S5WnaPZunuOp4j6b5Lnac4SA0PAGlgP4wEwFwGkGcIMCcCpCnCCxiA8NYAAmMJfkSbhF" var_s4 = var_s4 + "CcFpFnGDBnBqRpUhuEwTDeZ5lHCfw6HIQxLCaAxygyJwqgGcATE4FA6hWY4tjEAAQBAgIA==" .Add(4,var_s4) endwith .BackColorHeader = 0x4c6c6c6 .SelBackColor = 0x4000000 .SelForeColor = RGB(0,0,1) .Object.Background(20) = .SelBackColor && 0x14 .Object.Background(21) = .SelForeColor && 0x15 .Object.Background(26) = .BackColor && 0x8 Or BackgroundPartEnum.exSplitBar .Object.Background(27) = .ForeColor && 0x9 Or BackgroundPartEnum.exSplitBar .Object.Background(32) = -1 && 0x20 .Object.Background(0) = 0x4000000 && 0x0 .Object.Background(41) = 0x4010101 .Object.Background(1) = 0x40000ff && 0x1 .HeaderAppearance = 4 .BackColorSortBar = .BackColor .BackColorLevelHeader = .BackColor .Mode = 3 var_s5 = "Source=C:\Program Files\Exontrol\ExCascadeTree\Sample\Access\cities.accdb;Member=Select * FROM Countries;Key=CountryCode;Tag=Cou" var_s5 = var_s5 + "ntry;Name=CountryName >>> Member=Select * FROM States WHERE CountryCode IN (<%Parent.CountryCode%>);Key=StateCode;Name=StateName" var_s5 = var_s5 + ";Tag=State \|\|\| Member=Select * FROM Cities WHERE CountryCode IN (<%Parent.CountryCode%>);Tag=City;Name=Name >>> Member=Select * " var_s5 = var_s5 + "FROM Cities WHERE CountryCode IN (<%Parent.Parent.CountryCode%>) AND StateCode IN (<%Parent.StateCode%>);Tag=City;Name=Name" .DataSource = var_s5 .Select = "US\MN" .EndUpdate endwith
78	ImageSize property on 16 (default) (specifies the size of control' icons/images/check-boxes/radio-buttons) * CreateView event - A view has been created. * LPARAMETERS View with thisform.CascadeTree1 with .View .EnsureVisibleColumn("Function") with .Columns.Item("Function") endwith .Columns.Item(0).Def(0) = .T. endwith endwith * Error event - An internal error occurs. * LPARAMETERS Error, Description with thisform.CascadeTree1 DEBUGOUT( "Error" ) DEBUGOUT( Description ) endwith with thisform.CascadeTree1 .BeginUpdate .ImageSize = 16 var_s = "gBJJgBAIDAAEg4ACEKAD/hz/EMNh8TIRNGwAjEZAEXjAojJAjMLjABAAgjUYkUnlUrlktl0vmExmUzmk1m03nE5nU7nkrQCAntBoVDolFo1HoM/ADAplLptImdMYFOqd" var_s = var_s + "SqlXq1QrVbrlGpVWsFNrNdnNjsk7pQAtNroFnt0sh8Yr9iulTuNxs1Eu8OiT/vsnsNVutXlk/oGGtVKxGLxWNtsZtN8iUYuNvy0Zvd+xNYwdwvl4p870GCqc8vOeuVtt" var_s = var_s + "mp1knyOayWVy+WzN/ze1wOElenm+12WUz/Bv2/3UyyWrzeutux2GSyGP2dQ33C1ur3GD3M4zUNzHdlWjq/E3nGzVpjWv4HA7fRy/Tv2IrN8rPW6nZ3ve7mUlfu20Z8ac" var_s = var_s + "vQyb+vY9jasYoDwMm+LytVBDqKG3z8O3Cb8P+mkAuY9cCQ2uL4KaxDKvkp8RNLEjqugnrwQo/UWPzFyeQw5sNLZFENrI4kOqU66pw8uzmOKvTqNqjULJvGL1JO48GtTG" var_s = var_s + "sbLdEL3scxLlyiw8dQeoUVxdLTtyKmUjwGlslRPJsnK1HbAKbKCrsQo8uQk/CeP44iaR/ATnTNPLvyxPU+z9P9AUDQVBowiofJXQ6Oo+kKMpIkjztE4TKn4P6JowfgPn" var_s = var_s + "wD5/nAjB8AOeAPo0eAA1IAFH07UhAIMpYAVIYFHqBUhwVjV1S1EtQAHxW65V0AZwAeuQAnwB5gAPYViEDVhwAHTQBkCjB4gOhwDmCyhH0sACAg==" .Images(var_s) with .VisualAppearance var_s1 = "gBFLBCJwBAEHhEJAAEhABUYCg6AADACAxRDgMQBQKAAzQFAYbhkGCGAAGMZxRgmFgAQhFcZQSKUOQTDKMIziYBYfgkMIgSbJUgDGAkRRdDSOYDmGQYDiCIoRShOMIjHL" var_s1 = var_s1 + "UXxtDaIZwhEAoJb+RgAUY/cTzaAEUwHHiTKInaCQShsFYJUJAdRURQ9EwvCIZBpEWwLChENQwWLCNj2TScBwjCyqbale45ViqdoDU5EUiXJJ8ZxnECfYyrGjaMpCeKBU" var_s1 = var_s1 + "rGYTVRBIMxLLSia5oeJqMrnBpNVrIUgXCAGFwHK6BcauXIIDp6XoWWRbAAWDpVVzNNC3YzkCIceADHKiXxmVz4JLdGZ1QTGID2XaYaxWK4oZjsVSc4KDHbETbHFi9Fo3" var_s1 = var_s1 + "NaaxGisew+GYc4HlCR5NAAAIIEkQJSGMOgdE4RhYDwJJsAaAYQgmPpolCWgSCiBJzjcEIAkQXIBm8d5UhOQgCDUIBDDJDhgggJgKgKYJIDSVoDk8KBFF4OohEMZgWDsY" var_s1 = var_s1 + "YDj4GoGmGSB2B6B5iAiBgYDsYRjGSbIJo4RgqDuIpIAoLoLmMCJGDKDJjJiLA7xqUAAgGTwYnYPoPmQCQGEKEJkEkFg9gGY44BoRoSmSSQ2EKEggHgRhShSZRJFYVoVm" var_s1 = var_s1 + "WCRmFKFAgGOTheheZgJgYYoYmYSYWGaF4lkMMJ0hqZpJjYbobmcCZGHKHJmjmJh0h2Z4JmYcIaE8WZ2H6H5oAoBoCiCaBKBYfdjGoJoKiKaJKDaDojmkChGgmIgpCoVo" var_s1 = var_s1 + "WiWaJZiSd4mmmSh2h6J5qAqBoiiiaY5iSeIpmqComiqKpqkqNouiuah6hqMIsmsSpWiuGhP1kOoumuSp2j6L5sAsBo54gKwWkaMZsgsJpKjKbJLDaRYxYWRpSjSbIZiS" var_s1 = var_s1 + "e41m2CxmlqNptksdpejebR5iSfI4m4S4W16boLiaao6m5fJ9jubwLkaco8m8S5WnaPZunuOp4j6b5Lnac4SA0PAGlgP4wEwFwGkGcIMCcCpCnCCxiA8NYAAmMJfkSbhF" var_s1 = var_s1 + "CcFpFnGDBnBqRpUhuEwTDeZ5lHCfw6HIQxLCaAxygyJwqgGcATE4FA6hWY4tjEAAQBAgIA==" .Add(4,var_s1) endwith .BackColorHeader = 0x4c6c6c6 .SelBackColor = 0x4000000 .SelForeColor = RGB(0,0,1) .Object.Background(20) = .SelBackColor && 0x14 .Object.Background(21) = .SelForeColor && 0x15 .Object.Background(26) = .BackColor && 0x8 Or BackgroundPartEnum.exSplitBar .Object.Background(27) = .ForeColor && 0x9 Or BackgroundPartEnum.exSplitBar .Object.Background(32) = -1 && 0x20 .Object.Background(0) = 0x4000000 && 0x0 .Object.Background(41) = 0x4010101 .Object.Background(1) = 0x40000ff && 0x1 .HeaderAppearance = 4 .BackColorSortBar = .BackColor .BackColorLevelHeader = .BackColor .Mode = 3 var_s2 = "Source=C:\Program Files\Exontrol\ExCascadeTree\Sample\Access\cities.accdb;Member=Select * FROM Countries;Key=CountryCode;Tag=Cou" var_s2 = var_s2 + "ntry;Name=CountryName >>> Member=Select * FROM States WHERE CountryCode IN (<%Parent.CountryCode%>);Key=StateCode;Name=StateName" var_s2 = var_s2 + ";Tag=State \|\|\| Member=Select * FROM Cities WHERE CountryCode IN (<%Parent.CountryCode%>);Tag=City;Name=Name >>> Member=Select * " var_s2 = var_s2 + "FROM Cities WHERE CountryCode IN (<%Parent.Parent.CountryCode%>) AND StateCode IN (<%Parent.StateCode%>);Tag=City;Name=Name" .DataSource = var_s2 .Select = "US\MN" .EndUpdate endwith
68	DataSource (control, ADODB, ACCDB, x64) * CreateView event - A view has been created. * LPARAMETERS View with thisform.CascadeTree1 bSingle = .FormatABC("value > 0 ? 0 : -1",.View.Index) bColumnAutoResize = .FormatABC("value = `City` ? 0 : -1",.View.Tag) with .View .ColumnAutoResize = bColumnAutoResize .SingleSel = bSingle endwith endwith * Error event - An internal error occurs. * LPARAMETERS Error, Description with thisform.CascadeTree1 DEBUGOUT( "Error" ) DEBUGOUT( Description ) endwith with thisform.CascadeTree1 .BeginUpdate .Mode = 515 && CascadeModeEnum.exAutoFitOnResizeClient Or CascadeModeEnum.exSplitFixCascadeMode var_s = "locktype=1;Source=C:\Program Files\Exontrol\ExCascadeTree\Sample\Access\cities.accdb;Member=Select * FROM Countries;Key=CountryC" var_s = var_s + "ode;Tag=Country;Name=CountryName >>> Member=Select * FROM States WHERE CountryCode IN (<%Parent.CountryCode%>);Key=StateCode;Nam" var_s = var_s + "e=StateName;Tag=State \|\|\| Member=Select * FROM Cities WHERE CountryCode IN (<%Parent.CountryCode%>);Tag=City;Name=Name >>> Membe" var_s = var_s + "r=Select * FROM Cities WHERE CountryCode IN (<%Parent.Parent.CountryCode%>) AND StateCode IN (<%Parent.StateCode%>);Tag=City;Nam" var_s = var_s + "e=Name" .DataSource = var_s .Select = "US\AK" .EndUpdate endwith
67	DataSource (view, ADODB, ACCDB, x64) * Error event - An internal error occurs. * LPARAMETERS Error, Description with thisform.CascadeTree1 DEBUGOUT( "Error" ) DEBUGOUT( Description ) endwith with thisform.CascadeTree1 .BeginUpdate .StatusBarVisible = 2 .StatusBarLabel = "<b>DataSource</b> could be string (Source/Member), ADO or DAO objects" .DefColumnWidth = 336 ado = CreateObject("ADODB.Recordset") with ado .Open("Countries","Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Program Files\Exontrol\ExCascadeTree\Sample\Access\cities.accdb",3,1,-1) endwith with .DefaultView() .DataSource = ado .ColumnAutoResize = .T. endwith .EndUpdate endwith
66	Simple sample * CreateView event - A view has been created. * LPARAMETERS View with thisform.CascadeTree1 bSingle = .FormatABC("value > 0 ? 0 : -1",.View.Index) bColumnAutoResize = .FormatABC("value = `City` ? 0 : -1",.View.Tag) with .View .ColumnAutoResize = bColumnAutoResize .SingleSel = bSingle endwith endwith * Error event - An internal error occurs. * LPARAMETERS Error, Description with thisform.CascadeTree1 DEBUGOUT( "Error" ) DEBUGOUT( Description ) endwith with thisform.CascadeTree1 .BeginUpdate .Mode = 515 && CascadeModeEnum.exAutoFitOnResizeClient Or CascadeModeEnum.exSplitFixCascadeMode var_s = "Source=C:\Program Files\Exontrol\ExCascadeTree\Sample\Access\cities.accdb;Member=Select * FROM Countries;Key=CountryCode;Tag=Cou" var_s = var_s + "ntry;Name=CountryName >>> Member=Select * FROM States WHERE CountryCode IN (<%Parent.CountryCode%>);Key=StateCode;Name=StateName" var_s = var_s + ";Tag=State \|\|\| Member=Select * FROM Cities WHERE CountryCode IN (<%Parent.CountryCode%>);Tag=City;Name=Name >>> Member=Select * " var_s = var_s + "FROM Cities WHERE CountryCode IN (<%Parent.Parent.CountryCode%>) AND StateCode IN (<%Parent.StateCode%>);Tag=City;Name=Name" .DataSource = var_s .EndUpdate endwith
65	FilterBar sample * CreateView event - A view has been created. * LPARAMETERS View with thisform.CascadeTree1 with .View .HeaderHeight = 20 .HeaderAppearance = 4 .DrawGridLines = -1 .GridLineStyle = 12 endwith with .DefaultView() with .View("Country") .BeginUpdate .ColumnAutoResize = .T. .Columns.Item(0).Visible = .F. with .Columns.Item(1) .HTMLCaption = "Country" .DisplayFilterButton = .T. .FilterList = 9504 && FilterListEnum.exShowExclude Or FilterListEnum.exShowFocusItem Or FilterListEnum.exShowCheckBox Or FilterListEnum.exSortItemsAsc .FilterBarDropDownWidth = 2 endwith .EndUpdate endwith with .View("State") .BeginUpdate .ColumnAutoResize = .T. .Columns.Item(0).Visible = .F. .Columns.Item(1).Visible = .F. with .Columns.Item(2) .HTMLCaption = "State" .DisplayFilterButton = .T. .FilterList = 9504 && FilterListEnum.exShowExclude Or FilterListEnum.exShowFocusItem Or FilterListEnum.exShowCheckBox Or FilterListEnum.exSortItemsAsc .FilterBarDropDownWidth = 2 endwith .EndUpdate endwith with .View("City") .BeginUpdate .Columns.Item("CountryCode").Visible = .F. .Columns.Item("StateCode").Visible = .F. with .Columns.Item("Name") .HTMLCaption = "City" .Width = 128 .DisplayFilterButton = .T. .FilterList = 9504 && FilterListEnum.exShowExclude Or FilterListEnum.exShowFocusItem Or FilterListEnum.exShowCheckBox Or FilterListEnum.exSortItemsAsc .FilterBarDropDownWidth = 2 endwith .SearchColumnIndex = .Columns.Item("Name").Index with .Columns.Item("Status") .DisplayFilterButton = .T. .FilterList = 9504 && FilterListEnum.exShowExclude Or FilterListEnum.exShowFocusItem Or FilterListEnum.exShowCheckBox Or FilterListEnum.exSortItemsAsc .FilterBarDropDownWidth = 2 endwith with .Columns.Item("Function") .Def(17) = 1 var_s = "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>` re" var_s = var_s + "place 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 " var_s = var_s + "with `<img>9</img>` replace `-` with `` " .FormatColumn = var_s endwith with .Columns.Add("Pos") .AllowSizing = .F. .Width = 32 .Def(4) = 15790320 .Position = 0 .FormatColumn = "1 pos ``" .Alignment = 1 .HeaderAlignment = .Alignment && .Alignment endwith .CountLockedColumns = 1 .Width = .WidthToFit .EndUpdate endwith endwith with .View .FilterBarHeight = 36 var_s1 = "(( ( allui replace `[<b>` with `<bgcolor=000000><fgcolor=FFFFFF><b> ` replace `</b>]` with ` </b></bgcolor></fgcolor>` replace `" var_s1 = var_s1 + "[<s>` with `<bgcolor=C0C0C0><fgcolor=FFFFFF> ` replace `</s>]` with ` </fgcolor></bgcolor>` ) + `<r><fgcolor=808080>` + ( match" var_s1 = var_s1 + "itemcount < 0 ? ( ( len(value) ? `` : `` ) + `<r>` + abs(matchitemcount + 1) + ` result(s)` ) : (`<r><fgcolor=808080>`+ itemcoun" var_s1 = var_s1 + "t + ` item(s)`) )))" .FilterBarCaption = var_s1 .FilterBarPromptVisible = 515 && FilterBarVisibleEnum.exFilterBarShowCloseIfRequired Or FilterBarVisibleEnum.exFilterBarVisible Or FilterBarVisibleEnum.exFilterBarPromptVisible endwith endwith * Error event - An internal error occurs. * LPARAMETERS Error, Description with thisform.CascadeTree1 DEBUGOUT( "Error" ) DEBUGOUT( Description ) endwith with thisform.CascadeTree1 .BeginUpdate .Images("C:\Program Files\Exontrol\ExCascadeTree\Sample\Bullets\Bullet-01.ico") .Images("C:\Program Files\Exontrol\ExCascadeTree\Sample\Bullets\Bullet-02.ico") .Images("C:\Program Files\Exontrol\ExCascadeTree\Sample\Bullets\Bullet-03.ico") .Images("C:\Program Files\Exontrol\ExCascadeTree\Sample\Bullets\Bullet-04.ico") .Images("C:\Program Files\Exontrol\ExCascadeTree\Sample\Bullets\Bullet-05.ico") .Images("C:\Program Files\Exontrol\ExCascadeTree\Sample\Bullets\Bullet-06.ico") .Images("C:\Program Files\Exontrol\ExCascadeTree\Sample\Bullets\Bullet-07.ico") .Images("C:\Program Files\Exontrol\ExCascadeTree\Sample\Bullets\Bullet-08.ico") .Images("C:\Program Files\Exontrol\ExCascadeTree\Sample\Bullets\Bullet-09.ico") var_s = "Source=C:\Program Files\Exontrol\ExCascadeTree\Sample\Access\cities.mdb;Member=Select * FROM Countries;Key=CountryCode;Tag=Count" var_s = var_s + "ry;Name=CountryName >>> Member=Select * FROM States WHERE CountryCode IN (<%Parent.CountryCode%>);Key=StateCode;Name=StateName;T" var_s = var_s + "ag=State \|\|\| Member=Select * FROM Cities WHERE CountryCode IN (<%Parent.CountryCode%>);Tag=City;Name=Name >>> Member=Select * FR" var_s = var_s + "OM Cities WHERE CountryCode IN (<%Parent.Parent.CountryCode%>) AND StateCode IN (<%Parent.StateCode%>);Tag=City;Name=Name" .DataSource = var_s .Select = "RO\CJ" with .DefaultView().View("City") .FilterBarPromptPattern = "Tu" endwith with .VisualAppearance var_s1 = "gBFLBCJwBAEHhEJAAEhABZEGACAADACAxRDgMQBQKAAzAJBIYhiG4cYCgMYxXDOCYXABCEYRXBIZQ7BKNIxjSJwFgmEgADKMA4SOKIZhrE4bBhGaQRUgyI43RhHUBzVI" var_s1 = var_s1 + "UcQvE6TZRHCQYHgkNIhDJIM7TPLkeSVJaTIRoKhJUogApQThTMgVRDEThkGoSa6soSoYTDBKybLrSLKagOT5YUDKUqSdKEZRpEq1YztWbaQoCUoqVRRVIWfbNd4JJa4a" var_s1 = var_s1 + "DhWpYdpeeY5R7bWLgBYVVABL7LLRsSxpHxPF6RXxaeI3GKsaS8G6ic6nPQMHj7I4NS5pUa6Rh2VYNSa8AAtETRYznOw4bTMXAjNIea5bAYIIR5HIoDzVbQcCQAHL9DBe" var_s1 = var_s1 + "EMIQEEISgGhMGZQmocgymoYRRCIEQ0G2HYBnEIBig4V4zCQGINnmagCECY43medZ6H2Pw/g+X5fnueh/h+R5+AKABfkMWgGgGYA4AICoCGCE5WA4CphACMgSD2IRIDIB" var_s1 = var_s1 + "ICmEd5YGCBpRjGBgegWIYIgWdgoGIRQsiKCZiAiJZ0gGQI4jUS4LECOAiBmDJflGfg2BSY4Al4OhGkOCJ2DgFJjGGfgqgiH5Ch4RhGkqOQmEOEpkFkHQYhJRYyESAokG" var_s1 = var_s1 + "KHhIhKIxJEmf4VGUeRGFmF5iBkchPhYJQ5GoYIZg6Ug6GoFYmkmNhuhulRGHKGoImefh0BUZ4JmYeoemeSZ2H6HQmgoBgXDqXwUAQgI=" .Add(1,var_s1) var_s2 = "gBFLBCJwBAEHhEJAAEhABHQDg6AADACAxRDgMQBQKAAzAJBIYhiG4cYCgMZhXDOCYXABCEYRXBIZQ7BKNIxjSJ5BhIAAyDSJMjSRJUEhqGCWYDleYYYAKHIMQLOg7IJj" var_s2 = var_s2 + "yI4/SJAYCydKAWhxIaZKJHCZoEDaTAADCNVAQp6MEIJVbVEI0e79OgBLp/Z7kECIJJAaRjHQdJxGLA8EhtCQhCZteK6SgMKJYXhWQYRXI1JwvMBrWrdQjiOYELQtMKmS" var_s2 = var_s2 + "ZNLYGG4dR5SVJbcYhSYsRRFMoyDIOXYDLKsdYqSpXIThObEGgaPqJYjsUjCMKnR7HVIURrBPC9TBPE69ZgmC6ucKPX51ShKFaBWDZcwFAS+UBuYCAILiEAQGZ1XT8ORO" var_s2 = var_s2 + "icbgJgSTJRlCaZeDsHY7QGR4xkSYp3CaExZAQMgalQYAwjCAAfBANxcA2TgKAUOpDCGFhKg0RpXCwCwDHQHQHEyAIkCkOhbFOGA8A8DohBgRg9AccZcn8EpEjMLI2C2D" var_s2 = var_s2 + "YxAgQgvAIUIVkoAAPBQDJlECTZ3CCYwDACQwUA8A5MCAWAWDiQi4l8aQOEgLJuBgBgDmYFAzEoIoIl0WALgKYJbBABADAAHgHg8VAMmqCQQDMXABAATYwTmNwBDATJXA" var_s2 = var_s2 + "iAgjHmNQ5lgQ5QEQEQMmcWg/GwD5ylyNw2gMcJcjsBgBgOQQDDhRpVAMMwnDBFw1B0Ax8D0DxOmmJJIGQTY5hGMAwkwM4CAYLZAmAOJnAqAojiIGg6iieYkmeAYOHaKJ" var_s2 = var_s2 + "DCyCwjH6AoggsQpQliAJLhgaJ0CESBTnyDwjk+cg4g4P5IHIHJ+BWRRzlYWAxiOUxihsY4KjKLJRGqC44FCegkkkM58iAKAPnIWIWD8SRSFSfQnkmewUhYP4GiGKJ7G0" var_s2 = var_s2 + "TIbCSUoggqUo0lAQ4LnEcBcD8Coiiif4nE+eAAn2HpOkcFJqi4T5SkyMw/kqQown8IBIBOdA+A+DJrBqVxXEqYo4lCApLhGHBnD8S4ymyfxmg+cwQkQP5egOUZIWoEAk" var_s2 = var_s2 + "jIeIPBMBJBD+TBjBifwvkuc58hQJQPmFrYykkchclSApKjGOBuD+TRDFCfw3mmIxNi8FxFlOXhVC4aYDFyPgvg2YBcBcLZGCGCJ0DSLRzGSWQ/lmY5+mEP5gmMDBZRSM" var_s2 = var_s2 + "RsFsOxMhMJJ/DsTpTnwaQaE+N5ojuNhdEYNI5C4TZJO1GRDmCaxnA2Yx4n8IpIjOTBQBQC5TgyYw7gUYRYikC0BYRwsDQBoB8eA6Q2hsE0BUXgywZtYCyHMKwnxSAhAQ" var_s2 = var_s2 + "HkIQhRrBaDsCwA4ERiB2EWAIYIXhhiVEgAEUYwwYjyASLge4FhHgRDkM8OQih0jWPkGgBBAQ" .Add(2,var_s2) endwith .BackColorSortBar = .BackColor .Object.ScrollPartVisible(0,65536) = .T. .Object.ScrollPartVisible(1,65536) = .T. .Object.ScrollPartVisible(2,65536) = .T. .ScrollWidth = 4 .Object.Background(276) = RGB(240,240,240) .Object.Background(260) = RGB(128,128,128) .ScrollHeight = 4 .Object.Background(404) = .Background(276) .Object.Background(388) = .Background(260) .Object.Background(511) = .Background(276) .Object.Background(18) = RGB(196,196,196) .Object.Background(142) = .Background(18) .Object.Background(141) = .Background(18) .Object.Background(170) = RGB(4,0,0) .Object.Background(0) = 0x1000000 && 0x0 .Object.Background(1) = 0x2000000 && 0x1 .Object.Background(32) = -1 && 0x20 .EndUpdate endwith
64	GroupBy sample * CreateView event - A view has been created. * LPARAMETERS View with thisform.CascadeTree1 .View.HeaderHeight = 24 with .DefaultView() with .View("State") .BeginUpdate .SingleSel = .F. .ColumnAutoResize = .T. .Columns.Item(0).Visible = .F. .Columns.Item(1).Visible = .F. with .Columns.Item(2) .HTMLCaption = "State <off 4><fgcolor=808080>Name" .SortOrder = 1 endwith .EndUpdate endwith with .View("City") nSelected = .ParentView.Items.SelectCount bGroupBy = thisform.CascadeTree1.FormatABC("value > 1 ? -1 : 0",nSelected) .BeginUpdate .SingleSel = .F. .SortBarCaption = "Drag a <b>column</b> header here to group by that column." .HasLines = 1 .ColumnAutoResize = .F. .DrawGridLines = 2 .GridLineStyle = 32 .Columns.Item("CountryCode").Visible = .F. with .Columns.Item("Name") .HTMLCaption = "City <off 4><fgcolor=808080>Name" .Width = 128 .SortOrder = 1 endwith .SearchColumnIndex = 2 .TreeColumnIndex = .SearchColumnIndex .SingleSort = .F. .AllowGroupBy = bGroupBy .SortBarVisible = bGroupBy with .Columns.Item("StateCode") .Visible = bGroupBy .SortOrder = 1 endwith .Width = .WidthToFit .EndUpdate endwith endwith endwith * Error event - An internal error occurs. * LPARAMETERS Error, Description with thisform.CascadeTree1 DEBUGOUT( "Error" ) DEBUGOUT( Description ) endwith with thisform.CascadeTree1 .BeginUpdate with .VisualAppearance .Add(1,"C:\Program Files\Exontrol\ExCascadeTree\Sample\EBN\Assorted\vistaselDark.ebn") .Add(2,"C:\Program Files\Exontrol\ExCascadeTree\Sample\EBN\Assorted\bhframe.ebn") endwith var_s = "Source=C:\Program Files\Exontrol\ExCascadeTree\Sample\Access\cities.mdb;Member=Select * FROM Countries;Key=CountryCode;Tag=Count" var_s = var_s + "ry;Name=CountryName >>> Member=Select * FROM States WHERE CountryCode IN (<%Parent.CountryCode%>);Key=StateCode;Name=StateName;T" var_s = var_s + "ag=State \|\|\| Member=Select * FROM Cities WHERE CountryCode IN (<%Parent.CountryCode%>);Tag=City;Name=Name >>> Member=Select * FR" var_s = var_s + "OM Cities WHERE CountryCode IN (<%Parent.Parent.CountryCode%>) AND StateCode IN (<%Parent.StateCode%>);Tag=City;Name=Name" .DataSource = var_s .Select = "RO\CJ\|BV\|GL\|IL" with .DefaultView().View("Country") .BeginUpdate .ColumnAutoResize = .T. .Columns.Item(0).Visible = .F. with .Columns.Item(1) .HTMLCaption = "Country <off 4><fgcolor=808080>Name" .SortOrder = 1 endwith .EndUpdate endwith .SelBackColor = 0x1000000 .SelForeColor = RGB(255,255,255) .BackColorHeader = 0x2000000 .BackColorSortBar = .BackColor .BackColorSortBarCaption = .BackColor .Object.ScrollPartVisible(0,65536) = .T. .Object.ScrollPartVisible(1,65536) = .T. .Object.ScrollPartVisible(2,65536) = .T. .ScrollWidth = 4 .Object.Background(276) = RGB(240,240,240) .Object.Background(260) = RGB(128,128,128) .ScrollHeight = 4 .Object.Background(404) = .Background(276) .Object.Background(388) = .Background(260) .Object.Background(511) = .Background(276) .Object.Background(18) = RGB(196,196,196) .Object.Background(142) = .Background(18) .Object.Background(141) = .Background(18) .Object.Background(170) = RGB(4,0,0) .BackColorSortBar = .BackColor .EndUpdate endwith
62	Appearance sample * CreateView event - A view has been created. * LPARAMETERS View with thisform.CascadeTree1 .View.HeaderHeight = 24 with .DefaultView() with .View("State") .BeginUpdate .ColumnAutoResize = .T. .Columns.Item(0).Visible = .F. .Columns.Item(1).Visible = .F. with .Columns.Item(2) .HTMLCaption = "State <off 4><fgcolor=808080>Name" .SortOrder = 1 endwith with .Items .LockedItemCount(0) = 1 h = .LockedItem(0,0) .ItemDivider(h) = 0 .CellValueFormat(h,0) = 5 && ValueFormatEnum.exTotalField Or ValueFormatEnum.exHTML .CellValue(h,0) = "count(all,all,1)" .FormatCell(h,0) = "`<r>States: <b>`+ (value format `0`)" endwith .EndUpdate endwith with .View("City") .BeginUpdate .SingleSel = .F. .ColumnAutoResize = .F. .DrawGridLines = 2 .GridLineStyle = 32 .Columns.Item(0).Visible = .F. .Columns.Item(1).Visible = .F. with .Columns.Item(2) .HTMLCaption = "City <off 4><fgcolor=808080>Name" .Width = 128 .Def(0) = .T. .SortOrder = 1 endwith .SearchColumnIndex = 2 .ConditionalFormats.Add("%CS2 = 1").Bold = .T. with .Items .LockedItemCount(0) = 1 h = .LockedItem(0,0) .ItemDivider(h) = 0 .CellValueFormat(h,0) = 5 && ValueFormatEnum.exTotalField Or ValueFormatEnum.exHTML .CellValue(h,0) = "count(all,all,1)" .FormatCell(h,0) = "`<r>Cities: <b>`+ (value format `0`)" endwith .Width = .WidthToFit .EndUpdate endwith endwith endwith * Error event - An internal error occurs. * LPARAMETERS Error, Description with thisform.CascadeTree1 DEBUGOUT( "Error" ) DEBUGOUT( Description ) endwith with thisform.CascadeTree1 .BeginUpdate with .VisualAppearance .Add(1,"C:\Program Files\Exontrol\ExCascadeTree\Sample\EBN\MSOffice-Ribbon\msor_select.ebn") .Add(2,"C:\Program Files\Exontrol\ExCascadeTree\Sample\EBN\MSOffice-Ribbon\msor_background.ebn") endwith var_s = "Source=C:\Program Files\Exontrol\ExCascadeTree\Sample\Access\cities.mdb;Member=Select * FROM Countries;Key=CountryCode;Tag=Count" var_s = var_s + "ry;Name=CountryName >>> Member=Select * FROM States WHERE CountryCode IN (<%Parent.CountryCode%>);Key=StateCode;Name=StateName;T" var_s = var_s + "ag=State \|\|\| Member=Select * FROM Cities WHERE CountryCode IN (<%Parent.CountryCode%>);Tag=City;Name=Name >>> Member=Select * FR" var_s = var_s + "OM Cities WHERE CountryCode IN (<%Parent.Parent.CountryCode%>) AND StateCode IN (<%Parent.StateCode%>);Tag=City;Name=Name" .DataSource = var_s .Select = "US\AK" with .DefaultView().View("Country") .BeginUpdate .ColumnAutoResize = .T. .Columns.Item(0).Visible = .F. with .Columns.Item(1) .HTMLCaption = "Country <off 4><fgcolor=808080>Name" .SortOrder = 1 endwith with .Items .LockedItemCount(0) = 1 h = .LockedItem(0,0) .ItemDivider(h) = 0 .CellValueFormat(h,0) = 5 && ValueFormatEnum.exTotalField Or ValueFormatEnum.exHTML .CellValue(h,0) = "count(all,all,1)" .FormatCell(h,0) = "`<r>Countries: <b>`+ (value format `0`)" endwith .EndUpdate endwith .SelBackColor = 0x1000000 .SelForeColor = RGB(0,0,0) .BackColorHeader = 0x2000000 .Object.ScrollPartVisible(0,65536) = .T. .Object.ScrollPartVisible(1,65536) = .T. .Object.ScrollPartVisible(2,65536) = .T. .ScrollWidth = 4 .Object.Background(276) = RGB(240,240,240) .Object.Background(260) = RGB(128,128,128) .ScrollHeight = 4 .Object.Background(404) = .Background(276) .Object.Background(388) = .Background(260) .Object.Background(511) = .Background(276) .Object.Background(18) = RGB(196,196,196) .Object.Background(142) = .Background(18) .Object.Background(141) = .Background(18) .Object.Background(170) = RGB(4,0,0) .BackColorSortBar = .BackColor .EndUpdate endwith
60	How do I specify a foreground color for a particular view * Error event - An internal error occurs. * LPARAMETERS Error, Description with thisform.CascadeTree1 DEBUGOUT( "Error" ) DEBUGOUT( Description ) endwith with thisform.CascadeTree1 .BeginUpdate .Mode = 3 .Object.Background(18) = RGB(196,196,196) var_s = "Source=C:\Program Files\Exontrol\ExCascadeTree\Sample\Access\cities.accdb;Member=Select * FROM Countries;Key=CountryCode;Tag=Cou" var_s = var_s + "ntry;Name=CountryName >>> Member=Select * FROM States WHERE CountryCode IN (<%Parent.CountryCode%>);Key=StateCode;Name=StateName" var_s = var_s + ";Tag=State \|\|\| Member=Select * FROM Cities WHERE CountryCode IN (<%Parent.CountryCode%>);Tag=City;Name=Name >>> Member=Select * " var_s = var_s + "FROM Cities WHERE CountryCode IN (<%Parent.Parent.CountryCode%>) AND StateCode IN (<%Parent.StateCode%>);Tag=City;Name=Name" .DataSource = var_s .Select = "US\AK" .DefaultView().ConditionalFormats.Add("1").ForeColor = RGB(128,128,128) .EndUpdate endwith
59	How do display result/items in the view's filter bar * CreateView event - A view has been created. * LPARAMETERS View with thisform.CascadeTree1 with .View .HeaderAppearance = 4 .HeaderHeight = 24 .DrawGridLines = -1 .GridLineStyle = 12 endwith with .DefaultView() with .View("Country") .BeginUpdate .ColumnAutoResize = .T. .Columns.Item(0).Visible = .F. with .Columns.Item(1) .HTMLCaption = "Country <off 4><fgcolor=808080>Name" .DisplayFilterButton = .T. .FilterList = 9504 && FilterListEnum.exShowExclude Or FilterListEnum.exShowFocusItem Or FilterListEnum.exShowCheckBox Or FilterListEnum.exSortItemsAsc .FilterBarDropDownWidth = 2 endwith .EndUpdate endwith with .View("State") .BeginUpdate .ColumnAutoResize = .T. .Columns.Item(0).Visible = .F. .Columns.Item(1).Visible = .F. with .Columns.Item(2) .HTMLCaption = "State <off 4><fgcolor=808080>Name" .DisplayFilterButton = .T. .FilterList = 9504 && FilterListEnum.exShowExclude Or FilterListEnum.exShowFocusItem Or FilterListEnum.exShowCheckBox Or FilterListEnum.exSortItemsAsc .FilterBarDropDownWidth = 2 endwith .EndUpdate endwith with .View("City") .BeginUpdate .Columns.Item(0).Visible = .F. .Columns.Item(1).Visible = .F. with .Columns.Item(2) .HTMLCaption = "City <off 4><fgcolor=808080>Name" .Width = 128 .Def(0) = .T. .DisplayFilterButton = .T. .FilterList = 9504 && FilterListEnum.exShowExclude Or FilterListEnum.exShowFocusItem Or FilterListEnum.exShowCheckBox Or FilterListEnum.exSortItemsAsc .FilterBarDropDownWidth = 2 endwith with .Columns.Add("Pos") .AllowSizing = .F. .Width = 32 .Def(4) = 15790320 .Position = 0 .FormatColumn = "1 pos ``" endwith .CountLockedColumns = 1 .EndUpdate endwith endwith with .View .FilterBarHeight = 36 var_s = "(( ( allui replace `[<b>` with `<bgcolor=000000><fgcolor=FFFFFF><b> ` replace `</b>]` with ` </b></bgcolor></fgcolor>` replace `" var_s = var_s + "[<s>` with `<bgcolor=C0C0C0><fgcolor=FFFFFF> ` replace `</s>]` with ` </fgcolor></bgcolor>` ) + `<r><fgcolor=808080>` + ( match" var_s = var_s + "itemcount < 0 ? ( ( len(value) ? `` : `` ) + `<r>` + abs(matchitemcount + 1) + ` result(s)` ) : (`<r><fgcolor=808080>`+ itemcoun" var_s = var_s + "t + ` item(s)`) )))" .FilterBarCaption = var_s .FilterBarPromptType = 3 .FilterBarPromptVisible = 515 && FilterBarVisibleEnum.exFilterBarShowCloseIfRequired Or FilterBarVisibleEnum.exFilterBarVisible Or FilterBarVisibleEnum.exFilterBarPromptVisible endwith endwith * Error event - An internal error occurs. * LPARAMETERS Error, Description with thisform.CascadeTree1 DEBUGOUT( "Error" ) DEBUGOUT( Description ) endwith with thisform.CascadeTree1 .BeginUpdate .Object.ScrollPartVisible(0,65536) = .T. .Object.ScrollPartVisible(1,65536) = .T. .Object.ScrollPartVisible(2,65536) = .T. .ScrollWidth = 4 .Object.Background(276) = RGB(240,240,240) .Object.Background(260) = RGB(128,128,128) .ScrollHeight = 4 .Object.Background(404) = .Background(276) .Object.Background(388) = .Background(260) .Object.Background(511) = .Background(276) .Object.Background(18) = RGB(196,196,196) .Object.Background(142) = .Background(18) .Object.Background(141) = .Background(18) .Object.Background(170) = RGB(2,0,0) .EndUpdate .BeginUpdate .MinColumnWidth = 348 .Mode = 3 .Object.Background(18) = RGB(196,196,196) var_s = "Source=C:\Program Files\Exontrol\ExCascadeTree\Sample\Access\cities.accdb;Member=Select * FROM Countries;Key=CountryCode;Tag=Cou" var_s = var_s + "ntry;Name=CountryName >>> Member=Select * FROM States WHERE CountryCode IN (<%Parent.CountryCode%>);Key=StateCode;Name=StateName" var_s = var_s + ";Tag=State \|\|\| Member=Select * FROM Cities WHERE CountryCode IN (<%Parent.CountryCode%>);Tag=City;Name=Name >>> Member=Select * " var_s = var_s + "FROM Cities WHERE CountryCode IN (<%Parent.Parent.CountryCode%>) AND StateCode IN (<%Parent.StateCode%>);Tag=City;Name=Name" .DataSource = var_s .Select = "US\AK" with .DefaultView().View("City") .FilterBarPromptPattern = "An" endwith .EndUpdate endwith
58	I am using the filter prompt feature, the question is how can I filter for items that starts with typed characters rather than contains * CreateView event - A view has been created. * LPARAMETERS View with thisform.CascadeTree1 with .View .FilterBarPromptType = 3 .FilterBarPromptVisible = 1 endwith endwith * Error event - An internal error occurs. * LPARAMETERS Error, Description with thisform.CascadeTree1 DEBUGOUT( "Error" ) DEBUGOUT( Description ) endwith with thisform.CascadeTree1 .BeginUpdate .Mode = 3 .Object.Background(18) = RGB(196,196,196) var_s = "Source=C:\Program Files\Exontrol\ExCascadeTree\Sample\Access\cities.accdb;Member=Select * FROM Countries;Key=CountryCode;Tag=Cou" var_s = var_s + "ntry;Name=CountryName >>> Member=Select * FROM States WHERE CountryCode IN (<%Parent.CountryCode%>);Key=StateCode;Name=StateName" var_s = var_s + ";Tag=State \|\|\| Member=Select * FROM Cities WHERE CountryCode IN (<%Parent.CountryCode%>);Tag=City;Name=Name >>> Member=Select * " var_s = var_s + "FROM Cities WHERE CountryCode IN (<%Parent.Parent.CountryCode%>) AND StateCode IN (<%Parent.StateCode%>);Tag=City;Name=Name" .DataSource = var_s .Select = "US\AK" with .DefaultView().View("City") .FilterBarPromptPattern = "An" with .Columns.Item("Name") .Width = 128 .Def(17) = 1 .FormatColumn = "value replace `An` with `<bgcolor=000000><fgcolor=FFFFFF>An</fgcolor></bgcolor>` " endwith endwith .EndUpdate endwith
57	FilterBarCaption Predefined Keywords * Error event - An internal error occurs. * LPARAMETERS Error, Description with thisform.CascadeTree1 DEBUGOUT( "Error" ) DEBUGOUT( Description ) endwith with thisform.CascadeTree1 .BeginUpdate .BackColorAlternate = RGB(240,240,240) .Mode = 1 .Object.Background(18) = RGB(196,196,196) var_s = "Source=C:\Program Files\Exontrol\ExCascadeTree\Sample\Access\cities.accdb;Member=Select * FROM Countries;Key=CountryCode;Tag=Cou" var_s = var_s + "ntry;Name=CountryName >>> Member=Select * FROM States WHERE CountryCode IN (<%Parent.CountryCode%>);Key=StateCode;Name=StateName" var_s = var_s + ";Tag=State \|\|\| Member=Select * FROM Cities WHERE CountryCode IN (<%Parent.CountryCode%>);Tag=City;Name=Name >>> Member=Select * " var_s = var_s + "FROM Cities WHERE CountryCode IN (<%Parent.Parent.CountryCode%>) AND StateCode IN (<%Parent.StateCode%>);Tag=City;Name=Name" .DataSource = var_s .Select = "US" with .DefaultView().View("Country") with .Columns.Add("Pos") .Position = 0 .Width = 32 .AllowSizing = .F. .FormatColumn = "1pos ``" endwith with .Columns.Item("CountryCode") .Width = 32 .AllowSizing = .F. .DisplayFilterButton = .T. endwith with .Columns.Item("CountryName") .DisplayFilterButton = .T. .FilterList = 9504 && FilterListEnum.exShowExclude Or FilterListEnum.exShowFocusItem Or FilterListEnum.exShowCheckBox Or FilterListEnum.exSortItemsAsc .FilterBarDropDownWidth = 2 .FilterType = 240 .Filter = "Italy\|Romania\|Germany" endwith .FilterBarPromptPattern = "a" .ColumnAutoResize = .T. .SearchColumnIndex = .Columns.Item("CountryName").Index .FilterInclude = 1 var_s1 = "`<fgcolor=0000FF><i>value/current</i></fgcolor>: <fgcolor=808080>` + value + `</fgcolor>` + `<br><fgcolor=0000FF><i>available</i" var_s1 = var_s1 + "></fgcolor>: ` + available + `<br><fgcolor=0000FF><i>allui</i></fgcolor>: ` + allui + `<br><fgcolor=0000FF><i>all</i></fgcolor>:" var_s1 = var_s1 + " ` + all + `<br><fgcolor=0000FF><i>itemcount</i></fgcolor>: <fgcolor=808080>` + itemcount + `</fgcolor>`+ `<br><fgcolor=0000FF><" var_s1 = var_s1 + "i>visibleitemcount</i></fgcolor>: <fgcolor=808080>` + visibleitemcount + `</fgcolor>`+ `<br><fgcolor=0000FF><i>matchitemcount</i" var_s1 = var_s1 + "></fgcolor>: <fgcolor=808080>` + matchitemcount + `</fgcolor>`+ `<br><fgcolor=0000FF><i>promptpattern</i></fgcolor>: <fgcolor=80" var_s1 = var_s1 + "8080>` + promptpattern + `</fgcolor>`+ `<br><fgcolor=0000FF><i>leafitemcount</i></fgcolor>: <fgcolor=808080>` + leafitemcount + " var_s1 = var_s1 + "`</fgcolor>`" .FilterBarCaption = var_s1 .FilterBarPromptVisible = 7 && FilterBarVisibleEnum.exFilterBarCaptionVisible Or FilterBarVisibleEnum.exFilterBarVisible Or FilterBarVisibleEnum.exFilterBarPromptVisible .ApplyFilter endwith .EndUpdate endwith
56	How can I enable the column's filter bar (view) * CreateView event - A view has been created. * LPARAMETERS View with thisform.CascadeTree1 .View.FilterBarPromptVisible = 1 endwith * Error event - An internal error occurs. * LPARAMETERS Error, Description with thisform.CascadeTree1 DEBUGOUT( "Error" ) DEBUGOUT( Description ) endwith with thisform.CascadeTree1 .BeginUpdate .Mode = 3 .Object.Background(18) = RGB(196,196,196) var_s = "Source=C:\Program Files\Exontrol\ExCascadeTree\Sample\Access\cities.accdb;Member=Select * FROM Countries;Key=CountryCode;Tag=Cou" var_s = var_s + "ntry;Name=CountryName >>> Member=Select * FROM States WHERE CountryCode IN (<%Parent.CountryCode%>);Key=StateCode;Name=StateName" var_s = var_s + ";Tag=State \|\|\| Member=Select * FROM Cities WHERE CountryCode IN (<%Parent.CountryCode%>);Tag=City;Name=Name >>> Member=Select * " var_s = var_s + "FROM Cities WHERE CountryCode IN (<%Parent.Parent.CountryCode%>) AND StateCode IN (<%Parent.StateCode%>);Tag=City;Name=Name" .DataSource = var_s .Select = "US\AK" with .DefaultView().View("Country") .ColumnAutoResize = .T. .Columns.Item("CountryCode").Visible = .F. with .Columns.Item("CountryName") .DisplayFilterButton = .T. .FilterList = 9504 && FilterListEnum.exShowExclude Or FilterListEnum.exShowFocusItem Or FilterListEnum.exShowCheckBox Or FilterListEnum.exSortItemsAsc .FilterBarDropDownWidth = 2 .FilterType = 240 .Filter = "Romania\|Germany" endwith .ApplyFilter endwith .EndUpdate endwith
55	How can I enable the column's filter bar * CreateView event - A view has been created. * LPARAMETERS View with thisform.CascadeTree1 with .View .FilterBarPromptVisible = 1 with .Columns.Item(0) .DisplayFilterButton = .T. .FilterList = 9504 && FilterListEnum.exShowExclude Or FilterListEnum.exShowFocusItem Or FilterListEnum.exShowCheckBox Or FilterListEnum.exSortItemsAsc .FilterBarDropDownWidth = 2 endwith endwith with .DefaultView().View("Country") with .Columns.Item(0) .FilterType = 240 .Filter = "US\|RO\|GE" endwith .ApplyFilter endwith endwith * Error event - An internal error occurs. * LPARAMETERS Error, Description with thisform.CascadeTree1 DEBUGOUT( "Error" ) DEBUGOUT( Description ) endwith with thisform.CascadeTree1 .BeginUpdate .Mode = 3 .Object.Background(18) = RGB(196,196,196) var_s = "Source=C:\Program Files\Exontrol\ExCascadeTree\Sample\Access\cities.accdb;Member=Select * FROM Countries;Key=CountryCode;Tag=Cou" var_s = var_s + "ntry;Name=CountryName >>> Member=Select * FROM States WHERE CountryCode IN (<%Parent.CountryCode%>);Key=StateCode;Name=StateName" var_s = var_s + ";Tag=State \|\|\| Member=Select * FROM Cities WHERE CountryCode IN (<%Parent.CountryCode%>);Tag=City;Name=Name >>> Member=Select * " var_s = var_s + "FROM Cities WHERE CountryCode IN (<%Parent.Parent.CountryCode%>) AND StateCode IN (<%Parent.StateCode%>);Tag=City;Name=Name" .DataSource = var_s .Select = "US\AK" .EndUpdate endwith
54	How can I enable the control's filter bar (view) * Error event - An internal error occurs. * LPARAMETERS Error, Description with thisform.CascadeTree1 DEBUGOUT( "Error" ) DEBUGOUT( Description ) endwith with thisform.CascadeTree1 .BeginUpdate .Mode = 3 .Object.Background(18) = RGB(196,196,196) var_s = "Source=C:\Program Files\Exontrol\ExCascadeTree\Sample\Access\cities.accdb;Member=Select * FROM Countries;Key=CountryCode;Tag=Cou" var_s = var_s + "ntry;Name=CountryName >>> Member=Select * FROM States WHERE CountryCode IN (<%Parent.CountryCode%>);Key=StateCode;Name=StateName" var_s = var_s + ";Tag=State \|\|\| Member=Select * FROM Cities WHERE CountryCode IN (<%Parent.CountryCode%>);Tag=City;Name=Name >>> Member=Select * " var_s = var_s + "FROM Cities WHERE CountryCode IN (<%Parent.Parent.CountryCode%>) AND StateCode IN (<%Parent.StateCode%>);Tag=City;Name=Name" .DataSource = var_s .Select = "US\AK" .DefaultView().FilterBarPromptVisible = 1 .EndUpdate endwith
53	How can I enable the control's filter bar * CreateView event - A view has been created. * LPARAMETERS View with thisform.CascadeTree1 .View.FilterBarPromptVisible = 1 endwith * Error event - An internal error occurs. * LPARAMETERS Error, Description with thisform.CascadeTree1 DEBUGOUT( "Error" ) DEBUGOUT( Description ) endwith with thisform.CascadeTree1 .BeginUpdate .Mode = 3 .Object.Background(18) = RGB(196,196,196) var_s = "Source=C:\Program Files\Exontrol\ExCascadeTree\Sample\Access\cities.accdb;Member=Select * FROM Countries;Key=CountryCode;Tag=Cou" var_s = var_s + "ntry;Name=CountryName >>> Member=Select * FROM States WHERE CountryCode IN (<%Parent.CountryCode%>);Key=StateCode;Name=StateName" var_s = var_s + ";Tag=State \|\|\| Member=Select * FROM Cities WHERE CountryCode IN (<%Parent.CountryCode%>);Tag=City;Name=Name >>> Member=Select * " var_s = var_s + "FROM Cities WHERE CountryCode IN (<%Parent.Parent.CountryCode%>) AND StateCode IN (<%Parent.StateCode%>);Tag=City;Name=Name" .DataSource = var_s .Select = "US\AK" .EndUpdate endwith
52	Aggregate sum, min, max, count, avg, divider, total (view) * Error event - An internal error occurs. * LPARAMETERS Error, Description with thisform.CascadeTree1 DEBUGOUT( "Error" ) DEBUGOUT( Description ) endwith with thisform.CascadeTree1 .BeginUpdate .Mode = 2 .Object.Background(18) = RGB(196,196,196) .Object.Background(170) = RGB(4,0,0) var_s = "Source=C:\Program Files\Exontrol\ExCascadeTree\Sample\Access\cities.accdb;Member=Select * FROM Countries;Key=CountryCode;Tag=Cou" var_s = var_s + "ntry;Name=CountryName >>> Member=Select * FROM States WHERE CountryCode IN (<%Parent.CountryCode%>);Key=StateCode;Name=StateName" var_s = var_s + ";Tag=State \|\|\| Member=Select * FROM Cities WHERE CountryCode IN (<%Parent.CountryCode%>);Tag=City;Name=Name >>> Member=Select * " var_s = var_s + "FROM Cities WHERE CountryCode IN (<%Parent.Parent.CountryCode%>) AND StateCode IN (<%Parent.StateCode%>);Tag=City;Name=Name" .DataSource = var_s .Select = "RO" with .DefaultView().View("Country") .BeginUpdate .ColumnAutoResize = .T. .Columns.Item(0).Visible = .F. with .Items .LockedItemCount(0) = 1 h = .LockedItem(0,0) .ItemDivider(h) = 0 .CellValueFormat(h,0) = 5 && ValueFormatEnum.exTotalField Or ValueFormatEnum.exHTML .CellValue(h,0) = "count(all,all,1)" .FormatCell(h,0) = "`<r>Countries: <b>`+ (value format `0`)" endwith .EndUpdate endwith .EndUpdate endwith
51	Aggregate sum, min, max, count, avg, divider, total * CreateView event - A view has been created. * LPARAMETERS View with thisform.CascadeTree1 .View.HeaderVisible = .F. with .DefaultView() with .View("Country") .BeginUpdate .ColumnAutoResize = .T. .Columns.Item(0).Visible = .F. with .Items .LockedItemCount(0) = 1 h = .LockedItem(0,0) .ItemDivider(h) = 0 .CellValueFormat(h,0) = 5 && ValueFormatEnum.exTotalField Or ValueFormatEnum.exHTML .CellValue(h,0) = "count(all,all,1)" .FormatCell(h,0) = "`<r>Countries: <b>`+ (value format `0`)" endwith .EndUpdate endwith with .View("State") .BeginUpdate .SingleSel = .F. .ColumnAutoResize = .T. .Columns.Item(0).Visible = .F. .Columns.Item(1).Visible = .F. with .Items .LockedItemCount(0) = 1 h = .LockedItem(0,0) .ItemDivider(h) = 0 .CellValueFormat(h,0) = 5 && ValueFormatEnum.exTotalField Or ValueFormatEnum.exHTML .CellValue(h,0) = "count(all,all,1)" .FormatCell(h,0) = "`<r>States: <b>`+ (value format `0`)" endwith .EndUpdate endwith with .View("City") .BeginUpdate .Columns.Item(0).Visible = .F. .Columns.Item(1).Visible = .F. with .Columns.Item(2) .Width = 128 .HTMLCaption = "CityName" endwith with .Items .LockedItemCount(0) = 1 h = .LockedItem(0,0) .ItemDivider(h) = 0 .CellValueFormat(h,0) = 5 && ValueFormatEnum.exTotalField Or ValueFormatEnum.exHTML .CellValue(h,0) = "count(all,all,1)" .FormatCell(h,0) = "`<r>Cities: <b>`+ (value format `0`)" endwith .EndUpdate endwith endwith endwith * Error event - An internal error occurs. * LPARAMETERS Error, Description with thisform.CascadeTree1 DEBUGOUT( "Error" ) DEBUGOUT( Description ) endwith with thisform.CascadeTree1 .BeginUpdate .Mode = 3 .Object.Background(18) = RGB(196,196,196) .Object.Background(170) = RGB(4,0,0) var_s = "Source=C:\Program Files\Exontrol\ExCascadeTree\Sample\Access\cities.accdb;Member=Select * FROM Countries;Key=CountryCode;Tag=Cou" var_s = var_s + "ntry;Name=CountryName >>> Member=Select * FROM States WHERE CountryCode IN (<%Parent.CountryCode%>);Key=StateCode;Name=StateName" var_s = var_s + ";Tag=State \|\|\| Member=Select * FROM Cities WHERE CountryCode IN (<%Parent.CountryCode%>);Tag=City;Name=Name >>> Member=Select * " var_s = var_s + "FROM Cities WHERE CountryCode IN (<%Parent.Parent.CountryCode%>) AND StateCode IN (<%Parent.StateCode%>);Tag=City;Name=Name" .DataSource = var_s .Select = "US\AK" .EndUpdate endwith
50	How can I add a check-box column (view) * Error event - An internal error occurs. * LPARAMETERS Error, Description with thisform.CascadeTree1 DEBUGOUT( "Error" ) DEBUGOUT( Description ) endwith with thisform.CascadeTree1 .BeginUpdate .StatusBarVisible = 2 .StatusBarLabel = "<c>Select multiple-items in the City view, and press <b>SPACE</b> key" .Object.Background(168) = .BackColor var_s = "gBFLBCJwBAEHhEJAAEhABO0GACAADACAxRDgMQBQKAAzAJBIYhiG4cYCgMYxXDOCYXABCEYRXBKUQSDqEYyjGLIXAWCYSAAMIwDKAUEhqGiUBihaQhRgyJI3RlJGaoDi" var_s = var_s + "KIokShKEpDLKlCx3H6OKQjOZgAoySo4SbDMp0NAkRBlFqcJCCCLAUgmTpQUBOYyiLKNRxQGoYLIlayZIiSIpMRbWcB3BYEOSFFasAAleYZTg2Jp1TbPAAYFL1ISDKSiI" var_s = var_s + "ZqTA6PheT5yUzCNazbgEMTvRKqcSnO6bOgnEKQZKAGg4bg1RTVAYZLKtPR7aqyUJvZ5sMB6DiuLYRPKXZoucaNExSS5ebJtOzQJbEXBpXSpBwzSieBozIaQcJUOoaVxP" var_s = var_s + "FkaJrGuIx3h2BZPgOUIQmUcIwDARAkiAaQxh0DonCMLAeBKZobBCCY+niWJaBIKJJH4MoBgiQpCmmUR/ooBgCgCYBIBYBoBmCBYAn+ApgkgNgOgOYQIEYBIEGESBWBSB" var_s = var_s + "JhGgZgZgYIYoHYEIHCGaIGAuCAiCgegkgkYYoh4KIFiKKIuBeAJimiGgwgwYoYk4NILCCGJmDqDpjkidg+gGTo1jUAxAEAgI" .VisualAppearance.Add(1,var_s) .SelBackColor = 0x1000000 .SelForeColor = .ForeColor .Mode = 3 .Object.Background(18) = RGB(196,196,196) var_s1 = "Source=C:\Program Files\Exontrol\ExCascadeTree\Sample\Access\cities.accdb;Member=Select * FROM Countries;Key=CountryCode;Tag=Cou" var_s1 = var_s1 + "ntry;Name=CountryName >>> Member=Select * FROM States WHERE CountryCode IN (<%Parent.CountryCode%>);Key=StateCode;Name=StateName" var_s1 = var_s1 + ";Tag=State \|\|\| Member=Select * FROM Cities WHERE CountryCode IN (<%Parent.CountryCode%>);Tag=City;Name=Name >>> Member=Select * " var_s1 = var_s1 + "FROM Cities WHERE CountryCode IN (<%Parent.Parent.CountryCode%>) AND StateCode IN (<%Parent.StateCode%>);Tag=City;Name=Name" .DataSource = var_s1 .Select = "US\AK" with .DefaultView().View("City") .BeginUpdate .ShowFocusRect = .F. .SingleSel = .F. .Columns.Item(0).Visible = .F. .Columns.Item(1).Visible = .F. with .Columns.Item(2) .HTMLCaption = "City <off 4><fgcolor=808080>Name" .Width = 128 .Def(0) = .T. endwith .SearchColumnIndex = .Columns.Item("Name").Index with .Columns.Add("Pos") .Position = 0 .Width = 32 .FormatColumn = "1 pos ``" endwith with .ConditionalFormats .Add("%CS2 = 1").BackColor = RGB(190,190,190) with .Add("%CS2 = 1") .Bold = .T. .ApplyTo = 8 && 0x8 endwith endwith with .Items .CellState(.ItemByIndex(1),2) = 1 .CellState(.ItemByIndex(3),2) = 1 .CellState(.ItemByIndex(5),2) = 1 endwith .EndUpdate endwith .EndUpdate endwith
49	How can I add a check-box column * CreateView event - A view has been created. * LPARAMETERS View with thisform.CascadeTree1 with .View .HeaderAppearance = 4 .HeaderHeight = 24 .DrawGridLines = 2 .GridLineStyle = 12 endwith with .DefaultView() with .View("Country") .BeginUpdate .ColumnAutoResize = .T. .Columns.Item(0).Visible = .F. .Columns.Item(1).HTMLCaption = "Country <off 4><fgcolor=808080>Name" .EndUpdate endwith with .View("State") .BeginUpdate .ColumnAutoResize = .T. .Columns.Item(0).Visible = .F. .Columns.Item(1).Visible = .F. .Columns.Item(2).HTMLCaption = "State <off 4><fgcolor=808080>Name" .EndUpdate endwith with .View("City") .BeginUpdate .ShowFocusRect = .F. .SingleSel = .F. .Columns.Item(0).Visible = .F. .Columns.Item(1).Visible = .F. with .Columns.Item(2) .HTMLCaption = "City <off 4><fgcolor=808080>Name" .Width = 128 .Def(0) = .T. endwith .SearchColumnIndex = .Columns.Item("Name").Index with .Columns.Add("Pos") .Position = 0 .Width = 32 .FormatColumn = "1 pos ``" endwith with .ConditionalFormats .Add("%CS2 = 1").BackColor = RGB(190,190,190) with .Add("%CS2 = 1") .Bold = .T. .ApplyTo = 8 && 0x8 endwith endwith with .Items .CellState(.ItemByIndex(1),2) = 1 .CellState(.ItemByIndex(3),2) = 1 .CellState(.ItemByIndex(5),2) = 1 endwith .EndUpdate endwith endwith endwith * Error event - An internal error occurs. * LPARAMETERS Error, Description with thisform.CascadeTree1 DEBUGOUT( "Error" ) DEBUGOUT( Description ) endwith with thisform.CascadeTree1 .BeginUpdate .StatusBarVisible = 2 .StatusBarLabel = "<c>Select multiple-items in the City view, and press <b>SPACE</b> key" .Object.Background(168) = .BackColor var_s = "gBFLBCJwBAEHhEJAAEhABO0GACAADACAxRDgMQBQKAAzAJBIYhiG4cYCgMYxXDOCYXABCEYRXBKUQSDqEYyjGLIXAWCYSAAMIwDKAUEhqGiUBihaQhRgyJI3RlJGaoDi" var_s = var_s + "KIokShKEpDLKlCx3H6OKQjOZgAoySo4SbDMp0NAkRBlFqcJCCCLAUgmTpQUBOYyiLKNRxQGoYLIlayZIiSIpMRbWcB3BYEOSFFasAAleYZTg2Jp1TbPAAYFL1ISDKSiI" var_s = var_s + "ZqTA6PheT5yUzCNazbgEMTvRKqcSnO6bOgnEKQZKAGg4bg1RTVAYZLKtPR7aqyUJvZ5sMB6DiuLYRPKXZoucaNExSS5ebJtOzQJbEXBpXSpBwzSieBozIaQcJUOoaVxP" var_s = var_s + "FkaJrGuIx3h2BZPgOUIQmUcIwDARAkiAaQxh0DonCMLAeBKZobBCCY+niWJaBIKJJH4MoBgiQpCmmUR/ooBgCgCYBIBYBoBmCBYAn+ApgkgNgOgOYQIEYBIEGESBWBSB" var_s = var_s + "JhGgZgZgYIYoHYEIHCGaIGAuCAiCgegkgkYYoh4KIFiKKIuBeAJimiGgwgwYoYk4NILCCGJmDqDpjkidg+gGTo1jUAxAEAgI" .VisualAppearance.Add(1,var_s) .SelBackColor = 0x1000000 .SelForeColor = .ForeColor .Mode = 3 .Object.Background(18) = RGB(196,196,196) var_s1 = "Source=C:\Program Files\Exontrol\ExCascadeTree\Sample\Access\cities.accdb;Member=Select * FROM Countries;Key=CountryCode;Tag=Cou" var_s1 = var_s1 + "ntry;Name=CountryName >>> Member=Select * FROM States WHERE CountryCode IN (<%Parent.CountryCode%>);Key=StateCode;Name=StateName" var_s1 = var_s1 + ";Tag=State \|\|\| Member=Select * FROM Cities WHERE CountryCode IN (<%Parent.CountryCode%>);Tag=City;Name=Name >>> Member=Select * " var_s1 = var_s1 + "FROM Cities WHERE CountryCode IN (<%Parent.Parent.CountryCode%>) AND StateCode IN (<%Parent.StateCode%>);Tag=City;Name=Name" .DataSource = var_s1 .Select = "US\AK" .EndUpdate endwith
48	How can I access a view * CreateView event - A view has been created. * LPARAMETERS View with thisform.CascadeTree1 with .View .HeaderAppearance = 4 .HeaderHeight = 24 .DrawGridLines = -1 .GridLineStyle = 12 endwith with .DefaultView() with .View("Country") .BeginUpdate .ColumnAutoResize = .T. .Columns.Item(0).Visible = .F. .Columns.Item(1).HTMLCaption = "Country <off 4><fgcolor=808080>Name" .EndUpdate endwith with .View("State") .BeginUpdate .ColumnAutoResize = .T. .Columns.Item(0).Visible = .F. .Columns.Item(1).Visible = .F. .Columns.Item(2).HTMLCaption = "State <off 4><fgcolor=808080>Name" .EndUpdate endwith with .View("City") .BeginUpdate .Columns.Item(0).Visible = .F. .Columns.Item(1).Visible = .F. with .Columns.Item(2) .HTMLCaption = "City <off 4><fgcolor=808080>Name" .Width = 128 .Def(4) = 15790320 endwith .CountLockedColumns = 1 .EndUpdate endwith endwith endwith * Error event - An internal error occurs. * LPARAMETERS Error, Description with thisform.CascadeTree1 DEBUGOUT( "Error" ) DEBUGOUT( Description ) endwith with thisform.CascadeTree1 .BeginUpdate .Mode = 3 .Object.Background(18) = RGB(196,196,196) var_s = "Source=C:\Program Files\Exontrol\ExCascadeTree\Sample\Access\cities.accdb;Member=Select * FROM Countries;Key=CountryCode;Tag=Cou" var_s = var_s + "ntry;Name=CountryName >>> Member=Select * FROM States WHERE CountryCode IN (<%Parent.CountryCode%>);Key=StateCode;Name=StateName" var_s = var_s + ";Tag=State \|\|\| Member=Select * FROM Cities WHERE CountryCode IN (<%Parent.CountryCode%>);Tag=City;Name=Name >>> Member=Select * " var_s = var_s + "FROM Cities WHERE CountryCode IN (<%Parent.Parent.CountryCode%>) AND StateCode IN (<%Parent.StateCode%>);Tag=City;Name=Name" .DataSource = var_s .Select = "US\AK" .EndUpdate endwith
47	Conditional Format (check) * CreateView event - A view has been created. * LPARAMETERS View with thisform.CascadeTree1 with .View with .ConditionalFormats.Add("%CS0 = 1") .Bold = .T. endwith .Columns.Item(0).Def(0) = .T. with .Items .CellState(.FocusItem,0) = 1 endwith endwith endwith * Error event - An internal error occurs. * LPARAMETERS Error, Description with thisform.CascadeTree1 DEBUGOUT( "Error" ) DEBUGOUT( Description ) endwith with thisform.CascadeTree1 .BeginUpdate .Mode = 3 .Object.Background(18) = RGB(196,196,196) var_s = "Source=C:\Program Files\Exontrol\ExCascadeTree\Sample\Access\cities.accdb;Member=Select * FROM Countries;Key=CountryCode;Tag=Cou" var_s = var_s + "ntry;Name=CountryName >>> Member=Select * FROM States WHERE CountryCode IN (<%Parent.CountryCode%>);Key=StateCode;Name=StateName" var_s = var_s + ";Tag=State \|\|\| Member=Select * FROM Cities WHERE CountryCode IN (<%Parent.CountryCode%>);Tag=City;Name=Name >>> Member=Select * " var_s = var_s + "FROM Cities WHERE CountryCode IN (<%Parent.Parent.CountryCode%>) AND StateCode IN (<%Parent.StateCode%>);Tag=City;Name=Name" .DataSource = var_s .Select = "US\AK" .EndUpdate endwith
46	Conditional Format (view) * Error event - An internal error occurs. * LPARAMETERS Error, Description with thisform.CascadeTree1 DEBUGOUT( "Error" ) DEBUGOUT( Description ) endwith with thisform.CascadeTree1 .BeginUpdate .Mode = 3 .Object.Background(18) = RGB(196,196,196) var_s = "Source=C:\Program Files\Exontrol\ExCascadeTree\Sample\Access\cities.accdb;Member=Select * FROM Countries;Key=CountryCode;Tag=Cou" var_s = var_s + "ntry;Name=CountryName >>> Member=Select * FROM States WHERE CountryCode IN (<%Parent.CountryCode%>);Key=StateCode;Name=StateName" var_s = var_s + ";Tag=State \|\|\| Member=Select * FROM Cities WHERE CountryCode IN (<%Parent.CountryCode%>);Tag=City;Name=Name >>> Member=Select * " var_s = var_s + "FROM Cities WHERE CountryCode IN (<%Parent.Parent.CountryCode%>) AND StateCode IN (<%Parent.StateCode%>);Tag=City;Name=Name" .DataSource = var_s .Select = "US\AK" with .DefaultView().View("City") with .ConditionalFormats.Add("(%0 = `US`) and (%2 like `Al*`)") .Bold = .T. .BackColor = RGB(240,240,240) endwith endwith .EndUpdate endwith
45	Conditional Format * CreateView event - A view has been created. * LPARAMETERS View with thisform.CascadeTree1 with .View with .ConditionalFormats.Add("%0 = `US`") .Bold = .T. endwith endwith endwith * Error event - An internal error occurs. * LPARAMETERS Error, Description with thisform.CascadeTree1 DEBUGOUT( "Error" ) DEBUGOUT( Description ) endwith with thisform.CascadeTree1 .BeginUpdate .Mode = 3 .Object.Background(18) = RGB(196,196,196) var_s = "Source=C:\Program Files\Exontrol\ExCascadeTree\Sample\Access\cities.accdb;Member=Select * FROM Countries;Key=CountryCode;Tag=Cou" var_s = var_s + "ntry;Name=CountryName >>> Member=Select * FROM States WHERE CountryCode IN (<%Parent.CountryCode%>);Key=StateCode;Name=StateName" var_s = var_s + ";Tag=State \|\|\| Member=Select * FROM Cities WHERE CountryCode IN (<%Parent.CountryCode%>);Tag=City;Name=Name >>> Member=Select * " var_s = var_s + "FROM Cities WHERE CountryCode IN (<%Parent.Parent.CountryCode%>) AND StateCode IN (<%Parent.StateCode%>);Tag=City;Name=Name" .DataSource = var_s .Select = "US\AK" .EndUpdate endwith
44	I've seen the AllowSplitView property, the question is how can I load data to * Error event - An internal error occurs. * LPARAMETERS Error, Description with thisform.CascadeTree1 DEBUGOUT( "Error" ) DEBUGOUT( Description ) endwith with thisform.CascadeTree1 .BeginUpdate .Mode = 3 var_s = "Source=C:\Program Files\Exontrol\ExCascadeTree\Sample\Access\cities.accdb;Member=Select * FROM Countries;Key=CountryCode;Tag=Cou" var_s = var_s + "ntry;Name=CountryName >>> Member=Select * FROM States WHERE CountryCode IN (<%Parent.CountryCode%>);Key=StateCode;Name=StateName" var_s = var_s + ";Tag=State \|\|\| Member=Select * FROM Cities WHERE CountryCode IN (<%Parent.CountryCode%>);Tag=City;Name=Name >>> Member=Select * " var_s = var_s + "FROM Cities WHERE CountryCode IN (<%Parent.Parent.CountryCode%>) AND StateCode IN (<%Parent.StateCode%>);Tag=City;Name=Name" .DataSource = var_s .Select = "US\AK" .AllowSplitView = 1 .SplitViewHeight = 256 with .DefaultView(1) endwith .EndUpdate endwith
43	How can I group the items (view) * CreateView event - A view has been created. * LPARAMETERS View with thisform.CascadeTree1 .View.SingleSel = .F. endwith * Error event - An internal error occurs. * LPARAMETERS Error, Description with thisform.CascadeTree1 DEBUGOUT( "Error" ) DEBUGOUT( Description ) endwith with thisform.CascadeTree1 .BeginUpdate with .VisualAppearance var_s = "gBFLBCJwBAEHhEJAAEhABa0GACAADACAxRDgMQBQKAAzAJBIYhiG4cYCgMYxXDOCYXABCEYRXBIZQ7BKNIxjSJwFgkAoJDYOMjwlDKEgADDFEgjJBkRxtDCPIDnGQoDi" var_s = var_s + "GI4vSrCQ4yDA8GxCGSfIrjKiYbiGNY8RgZCiOMAFJSpC6gZRoSq4doGGJLQiDMaAdBNHyZKqpbQqeCZPDINQlWzbcrjKKFYQTOi7I4sCbYcqKA5PTbNdYyVBMWxfGIba" var_s = var_s + "IkXAcBjuO4hWbFdASRQdDYtHTIbzjCxLcgMD4gRwWCYNSAGRZJLDKK4gSh6eorHQAX4AGabFBOP5fC7TNJ0OKLRrkAJub5eFx3LJ97ohbLsOzYZK2ByDFqiMLGQZMZxv" var_s = var_s + "GWUBAnYfJImcOwLEiBp0gaGpekSBxjE+WZ2jse5Im2S5ZkGYhdn4EY6A4Q4vAOWJ6H0V4oEgIgSFAGhGDGUB1ByBhVBUAwyhKMQIE2AgRjCWQJAoEIWk2SxCAGBBghQe" var_s = var_s + "JYkMZIYBYIYoHIG4HGICB+CKB4iEiBglgaUAzhiJAZA+Q4Qk2CxiniOgwgyYwolYMYNmMQw2CoGQihiLg5g+YxpAIOINiOOJ2CyEBkgkDhKhCJBQAI2IlAkJhMgqZBpE" var_s = var_s + "YS4UiSGQ2E+FglHkdg5haI5pHIVoViYCQeF6vZJhYY4aCWWYqGyGpkimOhnhyZQ4nIToYGcSY+ESFQnHmGhwh+YpphYO4gmKOlEiGKIKBaCohmeQ4tkUQJQBAgI=" .Add(1,var_s) var_s1 = "gBFLBCJwBAEHhEJAAEhABO0GACAADACAxRDgMQBQKAAzAJBIYhiG4cYCgMYxXDOCYXABCEYRXBIZQ7BKNIxjSJwFgkAoJDYOMjwlDKEgADDFEgjDBkRxtDCPIDnGQoDi" var_s1 = var_s1 + "GI4vSrCQ4zHQkOx9C6NKLjOQaMhwcJPABTZwRRQMUyLAiQRioGKKJgkC4cAxIFhRXSVIyhC6XRiGURbJquLw1DBbEI3BaUOS7HqOK7vCZ7cACVYqQjLMrzCK8ZxLPqbZ" var_s1 = var_s1 + "znOjZXoCKJDQzVYADFRVd4rMK9QABWw4YqWZYXX7kUDxbTdEYzPQAMw1GCcbxmF6eWbCNq3LidXTnOK3dwkO55cyuA6oazi8T6Bi2M6DDQNGSzZiuGZ9YSOOIwHJIN4Q" var_s1 = var_s1 + "DSUpYmQOoJA6KxVlCDBsnwOx9iWUhfiCThzjUHZun2WgSAiBIUA0JgziGVJkGWUZAkEUoyBEN51BsDYQhCIQJGqHAUCAGBGA0RwtDcVIgkgNgOgOYQIDiXYEmESBWBaB" var_s1 = var_s1 + "ZhggTgSgYYZIHYGoDGGaIGBiBpiCiFJdgkIksiiChhliLgsgYYpoj4F4MGMKBWDSDRhngMg4gcIQYnYPoEE6N4ZAMQBAICA=" .Add(2,var_s1) endwith .SelBackColor = 0x1000000 .SelForeColor = RGB(0,0,0) .BackColorHeader = 0x2000000 .Object.ScrollPartVisible(0,65536) = .T. .Object.ScrollPartVisible(1,65536) = .T. .Object.ScrollPartVisible(2,65536) = .T. .ScrollWidth = 4 .Object.Background(276) = RGB(240,240,240) .Object.Background(260) = RGB(128,128,128) .ScrollHeight = 4 .Object.Background(404) = .Background(276) .Object.Background(388) = .Background(260) .Object.Background(511) = .Background(276) .Object.Background(18) = RGB(196,196,196) .Object.Background(142) = .Background(18) .Object.Background(141) = .Background(18) .Object.Background(170) = RGB(2,0,0) .BackColorSortBar = .BackColor .EndUpdate .BeginUpdate .Mode = 3 var_s2 = "Source=C:\Program Files\Exontrol\ExCascadeTree\Sample\Access\cities.accdb;Member=Select * FROM Countries;Key=CountryCode;Tag=Cou" var_s2 = var_s2 + "ntry;Name=CountryName >>> Member=Select * FROM States WHERE CountryCode IN (<%Parent.CountryCode%>);Key=StateCode;Name=StateName" var_s2 = var_s2 + ";Tag=State \|\|\| Member=Select * FROM Cities WHERE CountryCode IN (<%Parent.CountryCode%>);Tag=City;Name=Name >>> Member=Select * " var_s2 = var_s2 + "FROM Cities WHERE CountryCode IN (<%Parent.Parent.CountryCode%>) AND StateCode IN (<%Parent.StateCode%>);Tag=City;Name=Name" .DataSource = var_s2 .Select = "RO\CJ\|BV\|CS" with .DefaultView().View("City") .BeginUpdate with .Columns .Item("CountryCode").Visible = .F. with .Item("Name") .SortOrder = 1 .Width = 128 endwith endwith .SortBarVisible = .T. .AllowGroupBy = .T. .SingleSort = .F. .Columns.Item("StateCode").SortOrder = 1 .TreeColumnIndex = .Columns.Item("Name").Index .EndUpdate endwith .EndUpdate endwith
42	How can I group the items * CreateView event - A view has been created. * LPARAMETERS View *** Columns("StateCode").Visible = False *** Columns("StateName").SortOrder = 1 *** Columns("StateCode").SortOrder = nGroupByIfCity with thisform.CascadeTree1 nGroupByIfCity = .FormatABC("( A = `City`) ? 1 : 0",.View.Tag) bColumnAutoResize = .FormatABC(" (A = `City`) ? 0 : -1",.View.Tag) with .View .BeginUpdate .SingleSel = .F. .Columns.Item("CountryCode").Visible = .F. .Columns.Item("CountryName").SortOrder = 1 with .Columns.Item(2) endwith .TreeColumnIndex = 2 .AllowGroupBy = .T. .SingleSort = .F. .SortBarVisible = nGroupByIfCity .ColumnAutoResize = bColumnAutoResize .EndUpdate endwith endwith * Error event - An internal error occurs. * LPARAMETERS Error, Description with thisform.CascadeTree1 DEBUGOUT( "Error" ) DEBUGOUT( Description ) endwith with thisform.CascadeTree1 .BeginUpdate with .VisualAppearance var_s = "gBFLBCJwBAEHhEJAAEhABa0GACAADACAxRDgMQBQKAAzAJBIYhiG4cYCgMYxXDOCYXABCEYRXBIZQ7BKNIxjSJwFgkAoJDYOMjwlDKEgADDFEgjJBkRxtDCPIDnGQoDi" var_s = var_s + "GI4vSrCQ4yDA8GxCGSfIrjKiYbiGNY8RgZCiOMAFJSpC6gZRoSq4doGGJLQiDMaAdBNHyZKqpbQqeCZPDINQlWzbcrjKKFYQTOi7I4sCbYcqKA5PTbNdYyVBMWxfGIba" var_s = var_s + "IkXAcBjuO4hWbFdASRQdDYtHTIbzjCxLcgMD4gRwWCYNSAGRZJLDKK4gSh6eorHQAX4AGabFBOP5fC7TNJ0OKLRrkAJub5eFx3LJ97ohbLsOzYZK2ByDFqiMLGQZMZxv" var_s = var_s + "GWUBAnYfJImcOwLEiBp0gaGpekSBxjE+WZ2jse5Im2S5ZkGYhdn4EY6A4Q4vAOWJ6H0V4oEgIgSFAGhGDGUB1ByBhVBUAwyhKMQIE2AgRjCWQJAoEIWk2SxCAGBBghQe" var_s = var_s + "JYkMZIYBYIYoHIG4HGICB+CKB4iEiBglgaUAzhiJAZA+Q4Qk2CxiniOgwgyYwolYMYNmMQw2CoGQihiLg5g+YxpAIOINiOOJ2CyEBkgkDhKhCJBQAI2IlAkJhMgqZBpE" var_s = var_s + "YS4UiSGQ2E+FglHkdg5haI5pHIVoViYCQeF6vZJhYY4aCWWYqGyGpkimOhnhyZQ4nIToYGcSY+ESFQnHmGhwh+YpphYO4gmKOlEiGKIKBaCohmeQ4tkUQJQBAgI=" .Add(1,var_s) var_s1 = "gBFLBCJwBAEHhEJAAEhABO0GACAADACAxRDgMQBQKAAzAJBIYhiG4cYCgMYxXDOCYXABCEYRXBIZQ7BKNIxjSJwFgkAoJDYOMjwlDKEgADDFEgjDBkRxtDCPIDnGQoDi" var_s1 = var_s1 + "GI4vSrCQ4zHQkOx9C6NKLjOQaMhwcJPABTZwRRQMUyLAiQRioGKKJgkC4cAxIFhRXSVIyhC6XRiGURbJquLw1DBbEI3BaUOS7HqOK7vCZ7cACVYqQjLMrzCK8ZxLPqbZ" var_s1 = var_s1 + "znOjZXoCKJDQzVYADFRVd4rMK9QABWw4YqWZYXX7kUDxbTdEYzPQAMw1GCcbxmF6eWbCNq3LidXTnOK3dwkO55cyuA6oazi8T6Bi2M6DDQNGSzZiuGZ9YSOOIwHJIN4Q" var_s1 = var_s1 + "DSUpYmQOoJA6KxVlCDBsnwOx9iWUhfiCThzjUHZun2WgSAiBIUA0JgziGVJkGWUZAkEUoyBEN51BsDYQhCIQJGqHAUCAGBGA0RwtDcVIgkgNgOgOYQIDiXYEmESBWBaB" var_s1 = var_s1 + "ZhggTgSgYYZIHYGoDGGaIGBiBpiCiFJdgkIksiiChhliLgsgYYpoj4F4MGMKBWDSDRhngMg4gcIQYnYPoEE6N4ZAMQBAICA=" .Add(2,var_s1) endwith .SelBackColor = 0x1000000 .SelForeColor = RGB(0,0,0) .BackColorHeader = 0x2000000 .Object.ScrollPartVisible(0,65536) = .T. .Object.ScrollPartVisible(1,65536) = .T. .Object.ScrollPartVisible(2,65536) = .T. .ScrollWidth = 4 .Object.Background(276) = RGB(240,240,240) .Object.Background(260) = RGB(128,128,128) .ScrollHeight = 4 .Object.Background(404) = .Background(276) .Object.Background(388) = .Background(260) .Object.Background(511) = .Background(276) .Object.Background(18) = RGB(196,196,196) .Object.Background(142) = .Background(18) .Object.Background(141) = .Background(18) .Object.Background(170) = RGB(2,0,0) .BackColorSortBar = .BackColor .EndUpdate .BeginUpdate .Mode = 3 var_s2 = "Source=C:\Program Files\Exontrol\ExCascadeTree\Sample\Access\cities.accdb;Member=Select * FROM Countries;Key=CountryCode;Tag=Cou" var_s2 = var_s2 + "ntry;Name=CountryName >>> Member=Select * FROM States WHERE CountryCode IN (<%Parent.CountryCode%>);Key=StateCode;Name=StateName" var_s2 = var_s2 + ";Tag=State \|\|\| Member=Select * FROM Cities WHERE CountryCode IN (<%Parent.CountryCode%>);Tag=City;Name=Name >>> Member=Select * " var_s2 = var_s2 + "FROM Cities WHERE CountryCode IN (<%Parent.Parent.CountryCode%>) AND StateCode IN (<%Parent.StateCode%>);Tag=City;Name=Name" .DataSource = var_s2 .Select = "RO\CJ\|BV\|CS" .EndUpdate endwith
41	How can I change the visual appearance of the selection/header * CreateView event - A view has been created. * LPARAMETERS View *** Columns("StateCode").Visible = False *** Columns("StateName").SortOrder = 1 with thisform.CascadeTree1 with .View .BeginUpdate .ColumnAutoResize = .T. .Columns.Item("CountryCode").Visible = .F. .Columns.Item("CountryName").SortOrder = 1 with .Columns.Item("Name") endwith .EndUpdate endwith endwith * Error event - An internal error occurs. * LPARAMETERS Error, Description with thisform.CascadeTree1 DEBUGOUT( "Error" ) DEBUGOUT( Description ) endwith with thisform.CascadeTree1 .BeginUpdate with .VisualAppearance var_s = "gBFLBCJwBAEHhEJAAEhABWYDg6AADACAxRDgMQBQKAAzAJBIYhiG4cYCgMYxXDOCYXABCEYRXBIZQ7BKNIxjSJwFgmEgADCNAwgFBIcBhE4ZIKkEYoMiONoYR5Ac4yFA" var_s = var_s + "cQxHE6TZRgeDZToWN48TZLEB0VRFGL1J4AKbfKKKBiqIZDTpMdKSHIIFQ4BiEaYkGjqQpKVIdDSJMwWTI4ahhNSEbauCZ7DhyXpLUbeNSyXJsXw7GSOZJvGZ5bjuIY+R" var_s = var_s + "xQEK1NQkOyNOiOAosGCQWiDE4DWZZUT3XS+HgAGStY4rWCcSgOYIDZTPOT1DYtIY3NC5c7tS4bPq3NZHXTAeigBa4AZTQafcTvSA5OjOQQ2VhNWIXRxgAZ3YCNbzpTgs" var_s = var_s + "HeD5DmUQh3jSTQ/DuIZBh0bJ8BsG4WlsYwXjEapphuXh/HsRQJAQQhKAaEwZlCahyDKchJlEIgRDedQbA2EIQiECR3BudAgBgRgBgSHZQFSCwzECV4DGCeA6BCBJhCgV" var_s = var_s + "gRgWs4YkgNJKCOMJ2C0T4Dn4IIIiIGIOCaCRiy0HQ9iGIxMhgMAMmKZJ2D+SQThININgiM4In+DhPnIDJhD+RxzgCfwaE2c58F0N4PniSJ/guTJiCiOAygwCJODyDwIF" var_s = var_s + "ifhVD+R5JBQcIREYOQgFgNwPnkRJ/qOIgIjEMYMFOVg9hESA5BQfYSCbQx1DcZA5lAXQ2vURh4hoT55hiRgfEqYwMkUPQPnGahgiGJwpmAdYeAaWZgGINoPnEWoQBKaQ" var_s = var_s + "KAyf4gAwMZoisMIMGOTJ/B0KQK0EG5NhqDolBmKhRG6JQUX8GJYD+aZaBaGweAqEwEkYPNpDaL4u2kIJXi8a5xgKPwViucQuj8EBrnqXJ/i0DARlyJwwCyIYglaLxtDG" var_s = var_s + "DpVjSRY7EwUY0kQexMD+MhrgsOJAB2LJzCKOAZG0O4gn8GANFuLptBaLpREKUwRG0MJylOOYPnuEpjjOTIamAYo7G/QxfDUMAsBAWI7ESe40ZuQ5bjafY+GycZcigMBO" var_s = var_s + "DOZJ/CoTo8F8GZGDGI58iaRhKEwZIhkYSZ8GcFYQVeZIqDCThsFiMQ7g+fI8n8LAOlyTw1CuMxSjMNQqHMUojDWSxPnyKJDB8CpjBSag+iSE4/EmUpLh0KI2lKCxNCiM" var_s = var_s + "vkg0KxHhYNBSACMQyA6c5wn8MJrg2Axflga4DAaOAviuApyjgLorg0dJ/laDICAyNQyg8LR47INxznzfI3jOPkS4NQMDzCoPgMQUBNqzFyJAco0ROLRFOPkVIEB4v7FW" var_s = var_s + "BAeT/xTB7E+OYR4MAzjzAMG8GIxgPj8CSJwIolxjCJTeB8cw7hIjVDqD0LwkA3BpAMNYFgbAxDGF8C0aYxw+gpA8GEeI/QgjJFeHcc4/xBjggePEYgfRPjnAOJAN4+QD" var_s = var_s + "jHCiN0TQhBMiODWOkA4+RqjGH0P4W4sRjCdB4GkaIxhOD6HiM0V4ehfCRFcEsDIZhkjcD4J8PwQR/j3D8Acf43x8h+B+Jkf49RPh/CCLIVIEwTBxFsP8L4+x/CAAgA4A" var_s = var_s + "IQAsADACMoSA6wghEAYIAQBAQA==" .Add(1,var_s) var_s1 = "gBFLBCJwBAEHhEJAAEhABEwFg6AADACAxRDgMQBQKAAzAJBIYhiG4cYCgMYxXDOCYXABCEYRXBIZQ7BKNIxjSJwFgkAoJDaMUjwlDiEgADCNAySCKkGRHG6MI6gOapCg" var_s1 = var_s1 + "OIYjS7KYASTIMDw7EIZJ7jSioboKNo9ABQT71GAFJr/DChKIhWiKIoKI4hAZHAIQTR8QylKirIwlcYhVCWa5tS82CzoJrKdI4WZHFgwHR8cRxLKVJQlaDZSoIMQ2STfV" var_s1 = var_s1 + "7TZLkQyZNSTJQpGq6HxWeIcETkMBlLIGNSrNCqIrwChach2XpLQjeYAZTAdR43TqBbLqeyYXq+dwAWxtdzXDacXy/TzWAA1LLMKr/EpZDhSxARVDbD4XY7TdBcDwsOYA" var_s1 = var_s1 + "mQcohjyXQ8G6QRkgSa41H0WY+luSx1l6eZ2noLYFEePwDlUdQ8HufRsCSIBpDGHQOicIwtBoBguGuBAhDWfxGkMZAkCgeAQhcEQiAYEYDmABx8hANRYmQMhKHMTItB+I" var_s1 = var_s1 + "RoGIF4GGEMoeBKBQhGGfRWgiYhIgYHYIE+c5Ym8P5OlMWgsguIpYj4KQ7mIExMi6CIVGOKJTD/OxyDuDxVDiWB/g2CAIgyZwzk+eQeEmEgkikBIuCADRJD4Iw5AyU5+F" var_s1 = var_s1 + "SFYlFkXRThQZQJEkVg4gyM5+GCGImBmDhbhOTRCj4RRVg4Ewkn+GxmnmOhwhaZopiYaxUk4Awgn+Hhnjmah8h0JQJioI4fCgSZ6HqIAnGoDoGh8aJKCCMAgGiKgygUVY" var_s1 = var_s1 + "NEoPoViQFRqE6E4WmkYpAgKJBpioHJ/iUSAqhKIIimeeoOh4NQLBIDoniSKgqjCA4szqYJoDcKxqmKN4uGkSo2oGKxam6Qoug2Sp0gRggiBaQYxCuGpyFuMhsgsKRTjM" var_s1 = var_s1 + "bA7DqI40AsIgakuNQsEoUpZYIOxqlONRsDoUphjgCB7G6ZIxGWMpMgeOgsBMbo2jyDoLlCW45i6cpSmmOJvGuTpziUL4jFCNAiC8G56nWP5ljwDJVC0CIcBcB5Dm8dRP" var_s1 = var_s1 + "ZyTRSlcDY/DAa5ZFaRRxEKVIKkOL5blcG5Hg0UpYgsVYPhuVwpDaco87eSYyFyHRTkscoslcEQ/nMExYjYIwygyWw0k2c4iDCVgtkiXJ3CyT4yCUTxDCMdI9BsP5LjSL" var_s1 = var_s1 + "QTEMI40m0IxAd4YxYjgI51NsXhVjWIg8leVp1lzLJYnYIpkhCWRzG2HxqDWS4SEcbJXlUPZAhGXAJC2TxQD+O8AwuQ6i8HMGcIItRKDwD4BcBIsx3j7HiCcTw8BeBvAe" var_s1 = var_s1 + "LoS4RBMiwC6JITgZwEjLHgEoW4JglBzD4LcBozxNotBSM4eAPA7hBGiHMQo2QVjPDoWcU4yRJCmGCHgJYdRODHC4H8ewRGWhLHsL0H4XgvASHMMkPY3g6C9FuB4P4+Av" var_s1 = var_s1 + "AJD0EwO4vA1CtHCBMDwEQZjmHwP4SIsgvh6D8C8II6h9geFyDUdQcwVCfF4G0C4xBvjBG2PwQg2RaBfH4MoTI9Rgh9HMNccY+BVDfC+NQL4kxFC3HOPgP4nwjjwBsIYA" var_s1 = var_s1 + "AnQ/hPHqP0XwiABgABABMdwgBHj1H0MACItgYAEHoAMPwUAWjbGAPEHgNhjAIE+IIKAFR9AVBwDAE44B+AbEEIULQDxgiBCAP4Q4Sx5CFBGOoCowhMBIBgEUAA2wMBCE" var_s1 = var_s1 + "MBQIQqA2gLBAKwGYhgoDRHuEIbAbwFigHoDMDYgwEBRCGFgOIERxAAH+IgMQiA3AMBwIsB4RhuAsEUCMUwKRZh4E2BMAwGBRiFAiFYFIRQRCtAmEUDgTQKCRDcC4YoSB" var_s1 = var_s1 + "eBUHGBAbgGBIiMFSI8XAqQNiGG4HARwEQ/A1GMKEJQVRDjYHUBsSI5gejHFQPkDoBQWB2BUMMeAeAHCJASCEUgLBDiQAGHQMQig0gGB4AcHghBJAyCEEkCoaQMApFILw" var_s1 = var_s1 + "R4kg5BuCUJUHILwRgQHiFMSQUhHBKCSAkFgMQig8EYBUCQPA5hICSFpKgeBzCUHEKANwjAwhTBAMcPgrRLgjHkF0ZYmQWgtFKKwW4lApDCCuEwLIYQXjFCYLUCochwBy" var_s1 = var_s1 + "GWMkTQOxzB4HKJccQrgyhMGSJ0Go5hCDTA2MMDwZRKgxH2DQEw+ByicBmIQVYTRYhXBsMUMIVhNjjEkHUZw0RvA5BOCgY4FRJiiDqE4BI7QcCmGSFMToExogVCcOkbIO" var_s1 = var_s1 + "xzhaBmJ0AYnA1AMdoCsKIJQEgfHoB4QQDAJCtCGGgHoEQMDiFtPIKQrAdDNHiAMEAICAgA==" .Add(2,var_s1) endwith .SelBackColor = 0x1000000 .SelForeColor = RGB(0,0,0) .BackColorHeader = 0x2000000 .Object.ScrollPartVisible(0,65536) = .T. .Object.ScrollPartVisible(1,65536) = .T. .Object.ScrollPartVisible(2,65536) = .T. .ScrollWidth = 4 .Object.Background(276) = RGB(240,240,240) .Object.Background(260) = RGB(128,128,128) .ScrollHeight = 4 .Object.Background(404) = .Background(276) .Object.Background(388) = .Background(260) .Object.Background(511) = .Background(276) .Object.Background(18) = RGB(196,196,196) .Object.Background(142) = .Background(18) .Object.Background(141) = .Background(18) .Object.Background(170) = RGB(2,0,0) .BackColorSortBar = .BackColor .EndUpdate .BeginUpdate .Mode = 3 var_s2 = "Source=C:\Program Files\Exontrol\ExCascadeTree\Sample\Access\cities.accdb;Member=Select * FROM Countries;Key=CountryCode;Tag=Cou" var_s2 = var_s2 + "ntry;Name=CountryName >>> Member=Select * FROM States WHERE CountryCode IN (<%Parent.CountryCode%>);Key=StateCode;Name=StateName" var_s2 = var_s2 + ";Tag=State \|\|\| Member=Select * FROM Cities WHERE CountryCode IN (<%Parent.CountryCode%>);Tag=City;Name=Name >>> Member=Select * " var_s2 = var_s2 + "FROM Cities WHERE CountryCode IN (<%Parent.Parent.CountryCode%>) AND StateCode IN (<%Parent.StateCode%>);Tag=City;Name=Name" .DataSource = var_s2 .Select = "RO\CJ" .EndUpdate endwith
40	How can I format a column so it display its content in a different way * CreateView event - A view has been created. * LPARAMETERS View *** Columns("StateCode").Visible = False with thisform.CascadeTree1 with .View .BeginUpdate .ContinueColumnScroll = .F. .ScrollBySingleLine = .T. .DrawGridLines = -1 .EnsureVisibleColumn("Date") .Columns.Item("CountryCode").Visible = .F. with .Columns.Item("Date") endwith with .Columns.Item("Function") endwith with .Columns.Item("Coordinates") endwith with .Columns.Item("Status") endwith .EndUpdate endwith endwith * Error event - An internal error occurs. * LPARAMETERS Error, Description with thisform.CascadeTree1 DEBUGOUT( "Error" ) DEBUGOUT( Description ) endwith with thisform.CascadeTree1 .BeginUpdate .FitCascadeColumns = 7 .Mode = 3 .ScrollWidth = 4 .ScrollHeight = 4 var_s = "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTql" var_s = var_s + "Vq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0" var_s = var_s + "ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yN" var_s = var_s + "AOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=" .Images(var_s) var_s1 = "Source=C:\Program Files\Exontrol\ExCascadeTree\Sample\Access\cities.accdb;Member=Select * FROM Countries;Key=CountryCode;Tag=Cou" var_s1 = var_s1 + "ntry;Name=CountryName >>> Member=Select * FROM States WHERE CountryCode IN (<%Parent.CountryCode%>);Key=StateCode;Name=StateName" var_s1 = var_s1 + ";Tag=State \|\|\| Member=Select * FROM Cities WHERE CountryCode IN (<%Parent.CountryCode%>);Tag=City;Name=Name >>> Member=Select * " var_s1 = var_s1 + "FROM Cities WHERE CountryCode IN (<%Parent.Parent.CountryCode%>) AND StateCode IN (<%Parent.StateCode%>);Tag=City;Name=Name" .DataSource = var_s1 .Select = "US\OR" .EndUpdate endwith
39	How can I add a position column * CreateView event - A view has been created. * LPARAMETERS View with thisform.CascadeTree1 with .View with .Columns.Add("Pos") .Width = 32 .AllowSizing = .F. .Position = 0 .FormatColumn = "1 pos ``" .Def(4) = 15790320 .Alignment = 2 .HeaderAlignment = .Alignment && .Alignment .Def(49) = 2 .Def(48) = 2 .Def(52) = 2 .Def(53) = 2 endwith .CountLockedColumns = 1 endwith endwith * Error event - An internal error occurs. * LPARAMETERS Error, Description with thisform.CascadeTree1 DEBUGOUT( "Error" ) DEBUGOUT( Description ) endwith with thisform.CascadeTree1 .BeginUpdate .Mode = 3 var_s = "Source=C:\Program Files\Exontrol\ExCascadeTree\Sample\Access\cities.accdb;Member=Select * FROM Countries;Key=CountryCode;Tag=Cou" var_s = var_s + "ntry;Name=CountryName >>> Member=Select * FROM States WHERE CountryCode IN (<%Parent.CountryCode%>);Key=StateCode;Name=StateName" var_s = var_s + ";Tag=State \|\|\| Member=Select * FROM Cities WHERE CountryCode IN (<%Parent.CountryCode%>);Tag=City;Name=Name >>> Member=Select * " var_s = var_s + "FROM Cities WHERE CountryCode IN (<%Parent.Parent.CountryCode%>) AND StateCode IN (<%Parent.StateCode%>);Tag=City;Name=Name" .DataSource = var_s .Select = "US\IA" .EndUpdate endwith
38	How can I display icons or images * CreateView event - A view has been created. * LPARAMETERS View with thisform.CascadeTree1 with .View .EnsureVisibleColumn("Function") with .Columns.Item("Function") endwith endwith endwith * Error event - An internal error occurs. * LPARAMETERS Error, Description with thisform.CascadeTree1 DEBUGOUT( "Error" ) DEBUGOUT( Description ) endwith with thisform.CascadeTree1 .BeginUpdate var_s = "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTql" var_s = var_s + "Vq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0" var_s = var_s + "ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yN" var_s = var_s + "AOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=" .Images(var_s) .Mode = 3 var_s1 = "Source=C:\Program Files\Exontrol\ExCascadeTree\Sample\Access\cities.accdb;Member=Select * FROM Countries;Key=CountryCode;Tag=Cou" var_s1 = var_s1 + "ntry;Name=CountryName >>> Member=Select * FROM States WHERE CountryCode IN (<%Parent.CountryCode%>);Key=StateCode;Name=StateName" var_s1 = var_s1 + ";Tag=State \|\|\| Member=Select * FROM Cities WHERE CountryCode IN (<%Parent.CountryCode%>);Tag=City;Name=Name >>> Member=Select * " var_s1 = var_s1 + "FROM Cities WHERE CountryCode IN (<%Parent.Parent.CountryCode%>) AND StateCode IN (<%Parent.StateCode%>);Tag=City;Name=Name" .DataSource = var_s1 .Select = "US\MN" .EndUpdate endwith
37	How can I turn-on the control's status bar * CreateView event - A view has been created. * LPARAMETERS View with thisform.CascadeTree1 .StatusBarLabel = .FormatABC("`<b>` + ( value replace `\\` with ` </b><font ;6><off 4>` )",.Name) endwith * Error event - An internal error occurs. * LPARAMETERS Error, Description with thisform.CascadeTree1 DEBUGOUT( "Error" ) DEBUGOUT( Description ) endwith * ViewEndChanging event - Occurs once the user is about to change the view. * LPARAMETERS Operation with thisform.CascadeTree1 .StatusBarLabel = .FormatABC("`<b>` + ( value replace `\\` with ` </b><font ;6><off 4>` )",.Name) endwith with thisform.CascadeTree1 .BeginUpdate .StatusBarVisible = 2 .StatusBarHeight = 24 .Mode = 3 var_s = "Source=C:\Program Files\Exontrol\ExCascadeTree\Sample\Access\cities.accdb;Member=Select * FROM Countries;Key=CountryCode;Tag=Cou" var_s = var_s + "ntry;Name=CountryName >>> Member=Select * FROM States WHERE CountryCode IN (<%Parent.CountryCode%>);Key=StateCode;Name=StateName" var_s = var_s + ";Tag=State \|\|\| Member=Select * FROM Cities WHERE CountryCode IN (<%Parent.CountryCode%>);Tag=City;Name=Name >>> Member=Select * " var_s = var_s + "FROM Cities WHERE CountryCode IN (<%Parent.Parent.CountryCode%>) AND StateCode IN (<%Parent.StateCode%>);Tag=City;Name=Name" .DataSource = var_s .Name = "Romania\Cluj\Baciu*" .EndUpdate endwith
36	How can I disable incremental searching * CreateView event - A view has been created. * LPARAMETERS View with thisform.CascadeTree1 .View.AutoSearch = .F. endwith * Error event - An internal error occurs. * LPARAMETERS Error, Description with thisform.CascadeTree1 DEBUGOUT( "Error" ) DEBUGOUT( Description ) endwith with thisform.CascadeTree1 .BeginUpdate .Mode = 3 var_s = "Source=C:\Program Files\Exontrol\ExCascadeTree\Sample\Access\cities.accdb;Member=Select * FROM Countries;Key=CountryCode;Tag=Cou" var_s = var_s + "ntry;Name=CountryName >>> Member=Select * FROM States WHERE CountryCode IN (<%Parent.CountryCode%>);Key=StateCode;Name=StateName" var_s = var_s + ";Tag=State \|\|\| Member=Select * FROM Cities WHERE CountryCode IN (<%Parent.CountryCode%>);Tag=City;Name=Name >>> Member=Select * " var_s = var_s + "FROM Cities WHERE CountryCode IN (<%Parent.Parent.CountryCode%>) AND StateCode IN (<%Parent.StateCode%>);Tag=City;Name=Name" .DataSource = var_s .Select = "US\AK" .EndUpdate endwith
35	ScrollBar extension * CreateView event - A view has been created. * LPARAMETERS View *** Columns("StateCode").Visible = False with thisform.CascadeTree1 with .View .ColumnAutoResize = .T. .Columns.Item("CountryCode").Visible = .F. endwith endwith * Error event - An internal error occurs. * LPARAMETERS Error, Description with thisform.CascadeTree1 DEBUGOUT( "Error" ) DEBUGOUT( Description ) endwith with thisform.CascadeTree1 .BeginUpdate .Object.ScrollPartVisible(0,65536) = .T. .Object.ScrollPartVisible(1,65536) = .T. .Object.ScrollPartVisible(2,65536) = .T. .ScrollWidth = 4 .Object.Background(276) = RGB(240,240,240) .Object.Background(260) = RGB(128,128,128) .ScrollHeight = 4 .Object.Background(404) = .Background(276) .Object.Background(388) = .Background(260) .Object.Background(511) = .Background(276) .Object.Background(18) = RGB(196,196,196) .Object.Background(142) = .Background(18) .Object.Background(141) = .Background(18) .Object.Background(170) = RGB(2,0,0) .EndUpdate .BeginUpdate .Mode = 3 var_s = "Source=C:\Program Files\Exontrol\ExCascadeTree\Sample\Access\cities.accdb;Member=Select * FROM Countries;Key=CountryCode;Tag=Cou" var_s = var_s + "ntry;Name=CountryName >>> Member=Select * FROM States WHERE CountryCode IN (<%Parent.CountryCode%>);Key=StateCode;Name=StateName" var_s = var_s + ";Tag=State \|\|\| Member=Select * FROM Cities WHERE CountryCode IN (<%Parent.CountryCode%>);Tag=City;Name=Name >>> Member=Select * " var_s = var_s + "FROM Cities WHERE CountryCode IN (<%Parent.Parent.CountryCode%>) AND StateCode IN (<%Parent.StateCode%>);Tag=City;Name=Name" .DataSource = var_s .Select = "US\AK" .DefaultView().Columns.Item("CountryName").SortOrder = 1 .DefaultView().NextView.Columns.Item("StateName").SortOrder = 1 with .DefaultView().NextView.NextView .ColumnAutoResize = .F. with .Columns.Item("Name") .SortOrder = 1 .Width = 128 endwith with .Items .SelectItem(.FindItem("Anchorage","Name")) = .T. endwith endwith .EndUpdate endwith
34	How can I access the next/prev/parent/child view * CreateView event - A view has been created. * LPARAMETERS View *** Columns("StateCode").Visible = False with thisform.CascadeTree1 with .View .ColumnAutoResize = .T. .Columns.Item("CountryCode").Visible = .F. endwith endwith * Error event - An internal error occurs. * LPARAMETERS Error, Description with thisform.CascadeTree1 DEBUGOUT( "Error" ) DEBUGOUT( Description ) endwith with thisform.CascadeTree1 .BeginUpdate .Mode = 2 var_s = "Source=C:\Program Files\Exontrol\ExCascadeTree\Sample\Access\cities.accdb;Member=Select * FROM Countries;Key=CountryCode;Tag=Cou" var_s = var_s + "ntry;Name=CountryName >>> Member=Select * FROM States WHERE CountryCode IN (<%Parent.CountryCode%>);Key=StateCode;Name=StateName" var_s = var_s + ";Tag=State \|\|\| Member=Select * FROM Cities WHERE CountryCode IN (<%Parent.CountryCode%>);Tag=City;Name=Name >>> Member=Select * " var_s = var_s + "FROM Cities WHERE CountryCode IN (<%Parent.Parent.CountryCode%>) AND StateCode IN (<%Parent.StateCode%>);Tag=City;Name=Name" .DataSource = var_s .Select = "RO\CJ" .DefaultView().Columns.Item("CountryName").SortOrder = 1 .DefaultView().NextView.Columns.Item("StateName").SortOrder = 1 with .DefaultView().NextView.NextView .BeginUpdate .ColumnAutoResize = .F. with .Columns.Item("Name") .Width = 128 .SortOrder = 1 endwith .SingleSort = .F. .AllowGroupBy = .T. .Columns.Item("Status").SortOrder = 2 .TreeColumnIndex = .Columns.Item("Name").Index .EndUpdate endwith .EndUpdate endwith
33	Predefined Keywords of ShowContextMenu property * CreateView event - A view has been created. * LPARAMETERS View *** Columns("StateCode").Visible = False with thisform.CascadeTree1 with .View .ColumnAutoResize = .T. .Columns.Item("CountryCode").Visible = .F. endwith .StatusBarLabel = .FormatABC("`<b>` + ( value replace `\\` with ` </b><font ;6><off 4>` )",.Name) endwith * Error event - An internal error occurs. * LPARAMETERS Error, Description with thisform.CascadeTree1 DEBUGOUT( "Error" ) DEBUGOUT( Description ) endwith * ViewEndChanging event - Occurs once the user is about to change the view. * LPARAMETERS Operation with thisform.CascadeTree1 .StatusBarLabel = .FormatABC("`<b>` + ( value replace `\\` with ` </b><font ;6><off 4>` )",.Name) .ExecuteContextMenu = 0 endwith with thisform.CascadeTree1 .BeginUpdate .AllowSplitView = 1 .FitCascadeColumns = 3 .Mode = 2 .StatusBarVisible = 2 .StatusBarHeight = 24 .Object.ScrollPartVisible(0,65536) = .T. .Object.ScrollPartVisible(1,65536) = .T. .Object.ScrollPartVisible(2,65536) = .T. .ScrollWidth = 4 .Object.Background(276) = RGB(240,240,240) .Object.Background(260) = RGB(128,128,128) .ScrollHeight = 4 .Object.Background(404) = .Background(276) .Object.Background(388) = .Background(260) .Object.Background(511) = .Background(276) .Object.Background(18) = RGB(196,196,196) .Object.Background(142) = .Background(18) .Object.Background(141) = .Background(18) .Object.Background(170) = RGB(2,0,0) var_s = "Source=C:\Program Files\Exontrol\ExCascadeTree\Sample\Access\cities.accdb;Member=Select * FROM Countries;Key=CountryCode;Tag=Cou" var_s = var_s + "ntry;Name=CountryName >>> Member=Select * FROM States WHERE CountryCode IN (<%Parent.CountryCode%>);Key=StateCode;Name=StateName" var_s = var_s + ";Tag=State \|\|\| Member=Select * FROM Cities WHERE CountryCode IN (<%Parent.CountryCode%>);Tag=City;Name=Name >>> Member=Select * " var_s = var_s + "FROM Cities WHERE CountryCode IN (<%Parent.Parent.CountryCode%>) AND StateCode IN (<%Parent.StateCode%>);Tag=City;Name=Name" .DataSource = var_s .Select = "US\AK" .ShowContextMenu = "`vlevels=` + vlevels + `,vlevel=` + vlevel + `,hlevels=` + hlevels + `,hlevel=` + hlevel + `,view=` + view " .SplitViewHeight = "256" .EndUpdate endwith
32	How can I display the identifiers of the control's context menu (debug) * CreateView event - A view has been created. * LPARAMETERS View *** Columns("StateCode").Visible = False with thisform.CascadeTree1 with .View .ColumnAutoResize = .T. .Columns.Item("CountryCode").Visible = .F. endwith endwith * Error event - An internal error occurs. * LPARAMETERS Error, Description with thisform.CascadeTree1 DEBUGOUT( "Error" ) DEBUGOUT( Description ) endwith * ViewEndChanging event - Occurs once the user is about to change the view. * LPARAMETERS Operation with thisform.CascadeTree1 DEBUGOUT( .ExecuteContextMenu ) endwith with thisform.CascadeTree1 .BeginUpdate .Mode = 3 .Object.Background(18) = RGB(196,196,196) var_s = "Source=C:\Program Files\Exontrol\ExCascadeTree\Sample\Access\cities.accdb;Member=Select * FROM Countries;Key=CountryCode;Tag=Cou" var_s = var_s + "ntry;Name=CountryName >>> Member=Select * FROM States WHERE CountryCode IN (<%Parent.CountryCode%>);Key=StateCode;Name=StateName" var_s = var_s + ";Tag=State \|\|\| Member=Select * FROM Cities WHERE CountryCode IN (<%Parent.CountryCode%>);Tag=City;Name=Name >>> Member=Select * " var_s = var_s + "FROM Cities WHERE CountryCode IN (<%Parent.Parent.CountryCode%>) AND StateCode IN (<%Parent.StateCode%>);Tag=City;Name=Name" .DataSource = var_s .Select = "US\AK" .ShowContextMenu = "[debug]Popup(Item 1[id=1001],Item 2[id=1002],Item 3[id=1003]),[sep],Exit[def][id=1000]" .EndUpdate endwith
31	ShowContextMenu usage * CreateView event - A view has been created. * LPARAMETERS View *** Columns("StateCode").Visible = False with thisform.CascadeTree1 with .View .ColumnAutoResize = .T. .Columns.Item("CountryCode").Visible = .F. endwith endwith * Error event - An internal error occurs. * LPARAMETERS Error, Description with thisform.CascadeTree1 DEBUGOUT( "Error" ) DEBUGOUT( Description ) endwith * ViewEndChanging event - Occurs once the user is about to change the view. * LPARAMETERS Operation with thisform.CascadeTree1 DEBUGOUT( .ExecuteContextMenu ) endwith with thisform.CascadeTree1 .BeginUpdate .Mode = 3 .Object.Background(18) = RGB(196,196,196) var_s = "Source=C:\Program Files\Exontrol\ExCascadeTree\Sample\Access\cities.accdb;Member=Select * FROM Countries;Key=CountryCode;Tag=Cou" var_s = var_s + "ntry;Name=CountryName >>> Member=Select * FROM States WHERE CountryCode IN (<%Parent.CountryCode%>);Key=StateCode;Name=StateName" var_s = var_s + ";Tag=State \|\|\| Member=Select * FROM Cities WHERE CountryCode IN (<%Parent.CountryCode%>);Tag=City;Name=Name >>> Member=Select * " var_s = var_s + "FROM Cities WHERE CountryCode IN (<%Parent.Parent.CountryCode%>) AND StateCode IN (<%Parent.StateCode%>);Tag=City;Name=Name" .DataSource = var_s .Select = "US\AK" .ShowContextMenu = "Popup(Item 1[id=1001],Item 2[id=1002],Item 3[id=1003]),[sep],Exit[def][id=1000]" .EndUpdate endwith
30	How can I resize automatically all views, when the control is resized * CreateView event - A view has been created. * LPARAMETERS View *** Columns("StateCode").Visible = False with thisform.CascadeTree1 with .View .ColumnAutoResize = .T. .Columns.Item("CountryCode").Visible = .F. endwith endwith * Error event - An internal error occurs. * LPARAMETERS Error, Description with thisform.CascadeTree1 DEBUGOUT( "Error" ) DEBUGOUT( Description ) endwith with thisform.CascadeTree1 .BeginUpdate .Mode = 515 && CascadeModeEnum.exAutoFitOnResizeClient Or CascadeModeEnum.exSplitFixCascadeMode .Object.Background(18) = RGB(196,196,196) var_s = "Source=C:\Program Files\Exontrol\ExCascadeTree\Sample\Access\cities.accdb;Member=Select * FROM Countries;Key=CountryCode;Tag=Cou" var_s = var_s + "ntry;Name=CountryName >>> Member=Select * FROM States WHERE CountryCode IN (<%Parent.CountryCode%>);Key=StateCode;Name=StateName" var_s = var_s + ";Tag=State \|\|\| Member=Select * FROM Cities WHERE CountryCode IN (<%Parent.CountryCode%>);Tag=City;Name=Name >>> Member=Select * " var_s = var_s + "FROM Cities WHERE CountryCode IN (<%Parent.Parent.CountryCode%>) AND StateCode IN (<%Parent.StateCode%>);Tag=City;Name=Name" .DataSource = var_s .Select = "US\AK" .EndUpdate endwith
29	How can I hide some columns * CreateView event - A view has been created. * LPARAMETERS View *** Columns("StateCode").Visible = False with thisform.CascadeTree1 with .View .ColumnAutoResize = .T. .Columns.Item("CountryCode").Visible = .F. endwith endwith * Error event - An internal error occurs. * LPARAMETERS Error, Description with thisform.CascadeTree1 DEBUGOUT( "Error" ) DEBUGOUT( Description ) endwith with thisform.CascadeTree1 .BeginUpdate .Mode = 3 .Object.Background(18) = RGB(196,196,196) var_s = "Source=C:\Program Files\Exontrol\ExCascadeTree\Sample\Access\cities.accdb;Member=Select * FROM Countries;Key=CountryCode;Tag=Cou" var_s = var_s + "ntry;Name=CountryName >>> Member=Select * FROM States WHERE CountryCode IN (<%Parent.CountryCode%>);Key=StateCode;Name=StateName" var_s = var_s + ";Tag=State \|\|\| Member=Select * FROM Cities WHERE CountryCode IN (<%Parent.CountryCode%>);Tag=City;Name=Name >>> Member=Select * " var_s = var_s + "FROM Cities WHERE CountryCode IN (<%Parent.Parent.CountryCode%>) AND StateCode IN (<%Parent.StateCode%>);Tag=City;Name=Name" .DataSource = var_s .Select = "US\AK" .EndUpdate endwith
28	Is it possible to disable resizing the cascade columns * CreateView event - A view has been created. * LPARAMETERS View with thisform.CascadeTree1 .View.ColumnAutoResize = .T. endwith * Error event - An internal error occurs. * LPARAMETERS Error, Description with thisform.CascadeTree1 DEBUGOUT( "Error" ) DEBUGOUT( Description ) endwith with thisform.CascadeTree1 .BeginUpdate .Object.Background(18) = RGB(196,196,196) .Mode = 771 && CascadeModeEnum.exAutoFitOnResizeClient Or CascadeModeEnum.exDisableResizeCascadeColumns Or CascadeModeEnum.exSplitFixCascadeMode var_s = "Source=C:\Program Files\Exontrol\ExCascadeTree\Sample\Access\cities.accdb;Member=Select * FROM Countries;Key=CountryCode;Tag=Cou" var_s = var_s + "ntry;Name=CountryName >>> Member=Select * FROM States WHERE CountryCode IN (<%Parent.CountryCode%>);Key=StateCode;Name=StateName" var_s = var_s + ";Tag=State \|\|\| Member=Select * FROM Cities WHERE CountryCode IN (<%Parent.CountryCode%>);Tag=City;Name=Name >>> Member=Select * " var_s = var_s + "FROM Cities WHERE CountryCode IN (<%Parent.Parent.CountryCode%>) AND StateCode IN (<%Parent.StateCode%>);Tag=City;Name=Name" .DataSource = var_s .Select = "US\AK" .EndUpdate endwith
27	SplitFixCascadeMode Mode * Error event - An internal error occurs. * LPARAMETERS Error, Description with thisform.CascadeTree1 DEBUGOUT( "Error" ) DEBUGOUT( Description ) endwith with thisform.CascadeTree1 .BeginUpdate .Object.Background(18) = RGB(196,196,196) .Mode = 3 var_s = "Source=C:\Program Files\Exontrol\ExCascadeTree\Sample\Access\cities.accdb;Member=Select * FROM Countries;Key=CountryCode;Tag=Cou" var_s = var_s + "ntry;Name=CountryName >>> Member=Select * FROM States WHERE CountryCode IN (<%Parent.CountryCode%>);Key=StateCode;Name=StateName" var_s = var_s + ";Tag=State \|\|\| Member=Select * FROM Cities WHERE CountryCode IN (<%Parent.CountryCode%>);Tag=City;Name=Name >>> Member=Select * " var_s = var_s + "FROM Cities WHERE CountryCode IN (<%Parent.Parent.CountryCode%>) AND StateCode IN (<%Parent.StateCode%>);Tag=City;Name=Name" .DataSource = var_s .Select = "US\AK" .EndUpdate endwith
26	FixCascadeMode Mode * Error event - An internal error occurs. * LPARAMETERS Error, Description with thisform.CascadeTree1 DEBUGOUT( "Error" ) DEBUGOUT( Description ) endwith with thisform.CascadeTree1 .BeginUpdate .Object.Background(18) = RGB(196,196,196) .DefColumnWidth = 96 .Mode = 0 var_s = "Source=C:\Program Files\Exontrol\ExCascadeTree\Sample\Access\cities.accdb;Member=Select * FROM Countries;Key=CountryCode;Tag=Cou" var_s = var_s + "ntry;Name=CountryName >>> Member=Select * FROM States WHERE CountryCode IN (<%Parent.CountryCode%>);Key=StateCode;Name=StateName" var_s = var_s + ";Tag=State \|\|\| Member=Select * FROM Cities WHERE CountryCode IN (<%Parent.CountryCode%>);Tag=City;Name=Name >>> Member=Select * " var_s = var_s + "FROM Cities WHERE CountryCode IN (<%Parent.Parent.CountryCode%>) AND StateCode IN (<%Parent.StateCode%>);Tag=City;Name=Name" .DataSource = var_s .Select = "US\AK" .EndUpdate endwith
25	SplitEqualCascadeMode Mode * Error event - An internal error occurs. * LPARAMETERS Error, Description with thisform.CascadeTree1 DEBUGOUT( "Error" ) DEBUGOUT( Description ) endwith with thisform.CascadeTree1 .BeginUpdate .Object.Background(18) = RGB(196,196,196) .Mode = 2 var_s = "Source=C:\Program Files\Exontrol\ExCascadeTree\Sample\Access\cities.accdb;Member=Select * FROM Countries;Key=CountryCode;Tag=Cou" var_s = var_s + "ntry;Name=CountryName >>> Member=Select * FROM States WHERE CountryCode IN (<%Parent.CountryCode%>);Key=StateCode;Name=StateName" var_s = var_s + ";Tag=State \|\|\| Member=Select * FROM Cities WHERE CountryCode IN (<%Parent.CountryCode%>);Tag=City;Name=Name >>> Member=Select * " var_s = var_s + "FROM Cities WHERE CountryCode IN (<%Parent.Parent.CountryCode%>) AND StateCode IN (<%Parent.StateCode%>);Tag=City;Name=Name" .DataSource = var_s .Select = "US\AK" .EndUpdate endwith
24	Default Mode * Error event - An internal error occurs. * LPARAMETERS Error, Description with thisform.CascadeTree1 DEBUGOUT( "Error" ) DEBUGOUT( Description ) endwith with thisform.CascadeTree1 .BeginUpdate .Object.Background(18) = RGB(196,196,196) var_s = "Source=C:\Program Files\Exontrol\ExCascadeTree\Sample\Access\cities.accdb;Member=Select * FROM Countries;Key=CountryCode;Tag=Cou" var_s = var_s + "ntry;Name=CountryName >>> Member=Select * FROM States WHERE CountryCode IN (<%Parent.CountryCode%>);Key=StateCode;Name=StateName" var_s = var_s + ";Tag=State \|\|\| Member=Select * FROM Cities WHERE CountryCode IN (<%Parent.CountryCode%>);Tag=City;Name=Name >>> Member=Select * " var_s = var_s + "FROM Cities WHERE CountryCode IN (<%Parent.Parent.CountryCode%>) AND StateCode IN (<%Parent.StateCode%>);Tag=City;Name=Name" .DataSource = var_s .Select = "US\AK" .EndUpdate endwith
23	SingleCascadeMode ( single-view ) * Error event - An internal error occurs. * LPARAMETERS Error, Description with thisform.CascadeTree1 DEBUGOUT( "Error" ) DEBUGOUT( Description ) endwith with thisform.CascadeTree1 .BeginUpdate .Mode = 1 with .DefaultView() var_s = "Source=C:\Program Files\Exontrol\ExCascadeTree\Sample\Access\cities.accdb;Member=Select * FROM Cities Where CountryCode = 'RO' " .DataSource = var_s .AllowGroupBy = .T. .SortBarVisible = .T. .Columns.Item("StateCode").SortOrder = 1 .Name = "Name" endwith .Name = "Isaccea" .EndUpdate endwith
22	How can I display the current selection, as a path * CreateView event - A view has been created. * LPARAMETERS View with thisform.CascadeTree1 .StatusBarLabel = .Name endwith * Error event - An internal error occurs. * LPARAMETERS Error, Description with thisform.CascadeTree1 DEBUGOUT( "Error" ) DEBUGOUT( Description ) endwith * ViewEndChanging event - Occurs once the user is about to change the view. * LPARAMETERS Operation with thisform.CascadeTree1 .StatusBarLabel = .Name endwith with thisform.CascadeTree1 .BeginUpdate .StatusBarVisible = 2 .Mode = 3 var_s = "Source=C:\Program Files\Exontrol\ExCascadeTree\Sample\Access\cities.accdb;Member=Select * FROM Countries;Key=CountryCode;Tag=Cou" var_s = var_s + "ntry;Name=CountryName >>> Member=Select * FROM States WHERE CountryCode IN (<%Parent.CountryCode%>);Key=StateCode;Name=StateName" var_s = var_s + ";Tag=State \|\|\| Member=Select * FROM Cities WHERE CountryCode IN (<%Parent.CountryCode%>);Tag=City;Name=Name >>> Member=Select * " var_s = var_s + "FROM Cities WHERE CountryCode IN (<%Parent.Parent.CountryCode%>) AND StateCode IN (<%Parent.StateCode%>);Tag=City;Name=Name" .DataSource = var_s .Select = "US\AK" .EndUpdate endwith
21	How can I add multiple-views to the control * Error event - An internal error occurs. * LPARAMETERS Error, Description with thisform.CascadeTree1 DEBUGOUT( "Error" ) DEBUGOUT( Description ) endwith with thisform.CascadeTree1 .BeginUpdate .Mode = 3 var_s = "Source=C:\Program Files\Exontrol\ExCascadeTree\Sample\Access\cities.accdb;Member=Select * FROM Countries;Key=CountryCode;Tag=Cou" var_s = var_s + "ntry;Name=CountryName >>> Member=Select * FROM States WHERE CountryCode IN (<%Parent.CountryCode%>);Key=StateCode;Name=StateName" var_s = var_s + ";Tag=State \|\|\| Member=Select * FROM Cities WHERE CountryCode IN (<%Parent.CountryCode%>);Tag=City;Name=Name >>> Member=Select * " var_s = var_s + "FROM Cities WHERE CountryCode IN (<%Parent.Parent.CountryCode%>) AND StateCode IN (<%Parent.StateCode%>);Tag=City;Name=Name" .DataSource = var_s .Select = "US\AK" .EndUpdate endwith
20	I wish I select items based on names, rather than keys. Is that possible * CreateView event - A view has been created. * LPARAMETERS View with thisform.CascadeTree1 .View.ColumnAutoResize = thisform.CascadeTree1.FormatABC("not(A = `City`)",.View.Tag) label = .FormatABC("`<b>Select = </b>` + value",.Select) label = .FormatABC("A + `<br>` + `<b>Name = </b>` + B replace `\|` with ` `",label,.Name) .StatusBarLabel = label endwith * Error event - An internal error occurs. * LPARAMETERS Error, Description with thisform.CascadeTree1 DEBUGOUT( "Error" ) DEBUGOUT( Description ) endwith * ViewEndChanging event - Occurs once the user is about to change the view. * LPARAMETERS Operation with thisform.CascadeTree1 label = .FormatABC("`<b>Select = </b>` + value",.Select) label = .FormatABC("A + `<br>` + `<b>Name = </b>` + B replace `\|` with ` `",label,.Name) .StatusBarLabel = label endwith with thisform.CascadeTree1 .BeginUpdate .Mode = 2 .StatusBarVisible = 18 && StatusBarAnchorEnum.exStatusBarWordWrap Or StatusBarAnchorEnum.exStatusBarAnchorTop ds = "Source=C:\Program Files\Exontrol\ExCascadeTree\Sample\Access\cities.accdb" dm1 = "Member=Select * FROM Countries;Key=CountryCode;Tag=Country;Name=CountryName" ds = .FormatABC("A + `;` + B",ds,dm1) var_s = "Member=Select * FROM States WHERE CountryCode IN (<%Parent.CountryCode%>);Key=StateCode;Name=StateName;Tag=State \|\|\| Member=Sele" var_s = var_s + "ct * FROM Cities WHERE CountryCode IN (<%Parent.CountryCode%>);Tag=City;Name=Name" dm2 = var_s ds = .FormatABC("A + ` >>> ` + B",ds,dm2) var_s1 = "Member=Select * FROM Cities WHERE CountryCode IN (<%Parent.Parent.CountryCode%>) AND StateCode IN (<%Parent.StateCode%>);Tag=Cit" var_s1 = var_s1 + "y;Name=Name" dm3 = var_s1 ds = .FormatABC("A + ` >>> ` + B",ds,dm3) .DataSource = ds .Name = "Romania\Cluj\Baciu*" .EndUpdate endwith
19	I've noticed that I can't select multiple items. How can I do that * CreateView event - A view has been created. * LPARAMETERS View with thisform.CascadeTree1 bColumnAutoResize = .FormatABC("not(A = `City`)",.View.Tag) with .View .SingleSel = .F. .ColumnAutoResize = bColumnAutoResize endwith label = .FormatABC("`<b>Select = </b>` + value",.Select) label = .FormatABC("A + `<br>` + `<b>Name = </b>` + B replace `\|` with ` `",label,.Name) .StatusBarLabel = label endwith * Error event - An internal error occurs. * LPARAMETERS Error, Description with thisform.CascadeTree1 DEBUGOUT( "Error" ) DEBUGOUT( Description ) endwith * ViewEndChanging event - Occurs once the user is about to change the view. * LPARAMETERS Operation with thisform.CascadeTree1 label = .FormatABC("`<b>Select = </b>` + value",.Select) label = .FormatABC("A + `<br>` + `<b>Name = </b>` + B replace `\|` with ` `",label,.Name) .StatusBarLabel = label endwith with thisform.CascadeTree1 .BeginUpdate .Mode = 2 .StatusBarVisible = 18 && StatusBarAnchorEnum.exStatusBarWordWrap Or StatusBarAnchorEnum.exStatusBarAnchorTop .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 = .FormatABC("A + `;` + B",ds,dm1) var_s = "Member=Select * FROM States WHERE CountryCode IN (<%Parent.CountryCode%>);Key=StateCode;Name=StateName;Tag=State \|\|\| Member=Sele" var_s = var_s + "ct * FROM Cities WHERE CountryCode IN (<%Parent.CountryCode%>);Tag=City;Name=Name" dm2 = var_s ds = .FormatABC("A + ` >>> ` + B",ds,dm2) var_s1 = "Member=Select * FROM Cities WHERE CountryCode IN (<%Parent.Parent.CountryCode%>) AND StateCode IN (<%Parent.StateCode%>);Tag=Cit" var_s1 = var_s1 + "y;Name=Name" dm3 = var_s1 ds = .FormatABC("A + ` >>> ` + B",ds,dm3) .DataSource = ds .Select = "RO\CJ\|D*" .EndUpdate endwith
18	How do I programmatically selects a path/item * CreateView event - A view has been created. * LPARAMETERS View with thisform.CascadeTree1 bColumnAutoResize = .FormatABC("not(A = `City`)",.View.Tag) .View.ColumnAutoResize = bColumnAutoResize endwith * Error event - An internal error occurs. * LPARAMETERS Error, Description with thisform.CascadeTree1 DEBUGOUT( "Error" ) DEBUGOUT( Description ) endwith * ViewEndChanging event - Occurs once the user is about to change the view. * LPARAMETERS Operation with thisform.CascadeTree1 .StatusBarLabel = thisform.CascadeTree1.Select endwith with thisform.CascadeTree1 .BeginUpdate .Mode = 2 .StatusBarVisible = 1 ds = "Source=C:\Program Files\Exontrol\ExCascadeTree\Sample\Access\cities.accdb" dm1 = "Member=Select * FROM Countries;Key=CountryCode;Tag=Country" ds = .FormatABC("A + `;` + B",ds,dm1) var_s = "Member=Select * FROM States WHERE CountryCode IN (<%Parent.CountryCode%>);Key=StateCode;Tag=State \|\|\| Member=Select * FROM Citie" var_s = var_s + "s WHERE CountryCode IN (<%Parent.CountryCode%>);Tag=City" dm2 = var_s ds = .FormatABC("A + ` >>> ` + B",ds,dm2) var_s1 = "Member=Select * FROM Cities WHERE CountryCode IN (<%Parent.Parent.CountryCode%>) AND StateCode IN (<%Parent.StateCode%>);Tag=Cit" var_s1 = var_s1 + "y" dm3 = var_s1 ds = .FormatABC("A + ` >>> ` + B",ds,dm3) .DataSource = ds .Select = "RO\CJ" .EndUpdate endwith
17	DataSource/DataMember/Key/Tag * CreateView event - A view has been created. * LPARAMETERS View with thisform.CascadeTree1 var_s = "value replace `data source` with `<b><fgcolor=808080>Source</fgcolor></b>` replace `Source` with `<b><fgcolor=808080>Source</fgc" var_s = var_s + "olor></b>` replace `Member` with `<b><fgcolor=808080>Member</fgcolor></b>` replace `Key` with `<b><fgcolor=808080>Key</fgcolor><" var_s = var_s + "/b>` replace `Tag` with `<b><fgcolor=808080>Tag</fgcolor></b>` replace `;` with `;<br>`" .StatusBarLabel = .FormatABC(var_s,.View.DataSource) bColumnAutoResize = .FormatABC("not(A = `City`)",.View.Tag) nWidth = .FormatABC("A = `City` ? B : C",.View.Tag,.View.WidthToFit,.View.Width) with .View .ColumnAutoResize = bColumnAutoResize .Width = nWidth endwith endwith * Error event - An internal error occurs. * LPARAMETERS Error, Description with thisform.CascadeTree1 DEBUGOUT( "Error" ) DEBUGOUT( Description ) endwith with thisform.CascadeTree1 .BeginUpdate .StatusBarHeight = 58 .StatusBarVisible = 18 && StatusBarAnchorEnum.exStatusBarWordWrap Or StatusBarAnchorEnum.exStatusBarAnchorTop ds = "Source=C:\Program Files\Exontrol\ExCascadeTree\Sample\Access\cities.accdb" dm1 = "Member=Select * FROM Countries;Key=CountryCode;Tag=Country" ds = .FormatABC("A + `;` + B",ds,dm1) var_s = "Member=Select * FROM States WHERE CountryCode IN (<%Parent.CountryCode%>);Key=StateCode;Tag=State \|\|\| Member=Select * FROM Citie" var_s = var_s + "s WHERE CountryCode IN (<%Parent.CountryCode%>);Tag=City" dm2 = var_s ds = .FormatABC("A + ` >>> ` + B",ds,dm2) var_s1 = "Member=Select * FROM Cities WHERE CountryCode IN (<%Parent.Parent.CountryCode%>) AND StateCode IN (<%Parent.StateCode%>);Tag=Cit" var_s1 = var_s1 + "y" dm3 = var_s1 ds = .FormatABC("A + ` >>> ` + B",ds,dm3) .DataSource = ds .EndUpdate endwith
16	DataSource (view, data source, data member, ACCDB) * Error event - An internal error occurs. * LPARAMETERS Error, Description with thisform.CascadeTree1 DEBUGOUT( "Error" ) DEBUGOUT( Description ) endwith with thisform.CascadeTree1 .BeginUpdate .StatusBarVisible = 2 .StatusBarLabel = "<b>DataSource</b> could "+chr(34)+"Data Source=...;Data Member=..."+chr(34)+" or "+chr(34)+"Source=...;Member=..."+chr(34)+" " .DefColumnWidth = 336 ds = "Data Source=C:\Program Files\Exontrol\ExCascadeTree\Sample\Access\cities.accdb" dm = "Data Member=Select * FROM Countries" with .DefaultView() .DataSource = thisform.CascadeTree1.FormatABC("A + `;` + B",ds,dm) .ColumnAutoResize = .T. endwith .EndUpdate endwith
15	DataSource (view, data source, data member, MDB) * Error event - An internal error occurs. * LPARAMETERS Error, Description with thisform.CascadeTree1 DEBUGOUT( "Error" ) DEBUGOUT( Description ) endwith with thisform.CascadeTree1 .BeginUpdate .StatusBarVisible = 2 .StatusBarLabel = "<b>DataSource</b> could "+chr(34)+"Data Source=...;Data Member=..."+chr(34)+" or "+chr(34)+"Source=...;Member=..."+chr(34)+" " .DefColumnWidth = 336 ds = "Data Source=C:\Program Files\Exontrol\ExCascadeTree\Sample\Access\cities.mdb" dm = "Data Member=Select * FROM Countries" with .DefaultView() .DataSource = thisform.CascadeTree1.FormatABC("A + `;` + B",ds,dm) .ColumnAutoResize = .T. endwith .EndUpdate endwith
14	DataSource (view, ADODB, ACCDB) * Error event - An internal error occurs. * LPARAMETERS Error, Description with thisform.CascadeTree1 DEBUGOUT( "Error" ) DEBUGOUT( Description ) endwith with thisform.CascadeTree1 .BeginUpdate .StatusBarVisible = 2 .StatusBarLabel = "<b>DataSource</b> could be string (Source/Member), ADO or DAO objects" .DefColumnWidth = 336 ado = CreateObject("ADODB.Recordset") with ado .Open("Countries","Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Program Files\Exontrol\ExCascadeTree\Sample\Access\cities.accdb",3,3) endwith with .DefaultView() .DataSource = ado .ColumnAutoResize = .T. endwith .EndUpdate endwith
13	DataSource (view, ADODB, MDB) * Error event - An internal error occurs. * LPARAMETERS Error, Description with thisform.CascadeTree1 DEBUGOUT( "Error" ) DEBUGOUT( Description ) endwith with thisform.CascadeTree1 .BeginUpdate .StatusBarVisible = 2 .StatusBarLabel = "<b>DataSource</b> could be string (Source/Member), ADO or DAO objects" .DefColumnWidth = 336 ado = CreateObject("ADODB.Recordset") with ado .Open("Countries","Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Program Files\Exontrol\ExCascadeTree\Sample\Access\cities.mdb",3,3) endwith with .DefaultView() .DataSource = ado .ColumnAutoResize = .T. endwith .EndUpdate endwith
12	DataSource (control, data source, data member, ACCDB) * Error event - An internal error occurs. * LPARAMETERS Error, Description with thisform.CascadeTree1 DEBUGOUT( "Error" ) DEBUGOUT( Description ) endwith with thisform.CascadeTree1 .BeginUpdate .StatusBarVisible = 2 .StatusBarLabel = "<b>DataSource</b> could "+chr(34)+"Data Source=...;Data Member=..."+chr(34)+" or "+chr(34)+"Source=...;Member=..."+chr(34)+" " .DefColumnWidth = 336 ds = "Data Source=C:\Program Files\Exontrol\ExCascadeTree\Sample\Access\cities.accdb" dm = "Data Member=Select * FROM Countries" .DataSource = .FormatABC("A + `;` + B",ds,dm) .View.ColumnAutoResize = .T. .EndUpdate endwith
11	DataSource (control, data source, data member, MDB) * Error event - An internal error occurs. * LPARAMETERS Error, Description with thisform.CascadeTree1 DEBUGOUT( "Error" ) DEBUGOUT( Description ) endwith with thisform.CascadeTree1 .BeginUpdate .StatusBarVisible = 2 .StatusBarLabel = "<b>DataSource</b> could "+chr(34)+"Data Source=...;Data Member=..."+chr(34)+" or "+chr(34)+"Source=...;Member=..."+chr(34)+" " .DefColumnWidth = 336 ds = "Data Source=C:\Program Files\Exontrol\ExCascadeTree\Sample\Access\cities.mdb" dm = "Data Member=Select * FROM Countries" .DataSource = .FormatABC("A + `;` + B",ds,dm) .View.ColumnAutoResize = .T. .EndUpdate endwith
10	DataSource (control, ADODB, ACCDB) * Error event - An internal error occurs. * LPARAMETERS Error, Description with thisform.CascadeTree1 DEBUGOUT( "Error" ) DEBUGOUT( Description ) endwith with thisform.CascadeTree1 .BeginUpdate .StatusBarVisible = 2 .StatusBarLabel = "<b>DataSource</b> could be string (Source/Member), ADO or DAO objects" .DefColumnWidth = 336 ado = CreateObject("ADODB.Recordset") with ado .Open("Countries","Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Program Files\Exontrol\ExCascadeTree\Sample\Access\cities.accdb",3,3) endwith .DataSource = ado .View.ColumnAutoResize = .T. .EndUpdate endwith
9	DataSource (control, ADODB, MDB) * Error event - An internal error occurs. * LPARAMETERS Error, Description with thisform.CascadeTree1 DEBUGOUT( "Error" ) DEBUGOUT( Description ) endwith with thisform.CascadeTree1 .BeginUpdate .StatusBarVisible = 2 .StatusBarLabel = "<b>DataSource</b> could be string (Source/Member), ADO or DAO objects" .DefColumnWidth = 336 ado = CreateObject("ADODB.Recordset") with ado .Open("Countries","Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Program Files\Exontrol\ExCascadeTree\Sample\Access\cities.mdb",3,3) endwith .DataSource = ado .View.ColumnAutoResize = .T. .EndUpdate endwith
8	DataSource (view, XMLDOMDocument) * Error event - An internal error occurs. * LPARAMETERS Error, Description with thisform.CascadeTree1 DEBUGOUT( "Error" ) DEBUGOUT( Description ) endwith with thisform.CascadeTree1 .BeginUpdate .StatusBarVisible = 2 .StatusBarLabel = "<b>DataSource</b> could be a XML file name, a URL, an IStream, an IXMLDOMDocument" .DefColumnWidth = 336 with .DefaultView() xml = CreateObject("MSXML.DOMDocument") with xml .load("C:\Program Files\Exontrol\ExCascadeTree\Sample\Testing.xml") endwith .DataSource = xml .ColumnAutoResize = .T. endwith .EndUpdate endwith
7	DataSource (view, XML, file) * Error event - An internal error occurs. * LPARAMETERS Error, Description with thisform.CascadeTree1 DEBUGOUT( "Error" ) DEBUGOUT( Description ) endwith with thisform.CascadeTree1 .BeginUpdate .StatusBarVisible = 2 .StatusBarLabel = "<b>DataSource</b> could be a XML file name, a URL, an IStream, an IXMLDOMDocument" .DefColumnWidth = 336 with .DefaultView() .DataSource = "http://www.exontrol.net/testing.xml" .ColumnAutoResize = .T. endwith .EndUpdate endwith
6	DataSource (control, XMLDOMDocument) * Error event - An internal error occurs. * LPARAMETERS Error, Description with thisform.CascadeTree1 DEBUGOUT( "Error" ) DEBUGOUT( Description ) endwith with thisform.CascadeTree1 .BeginUpdate .StatusBarVisible = 2 .StatusBarLabel = "<b>DataSource</b> could be a XML file name, a URL, an IStream, an IXMLDOMDocument" .DefColumnWidth = 336 xml = CreateObject("MSXML.DOMDocument") with xml .load("C:\Program Files\Exontrol\ExCascadeTree\Sample\Testing.xml") endwith .DataSource = xml .View.ColumnAutoResize = .T. .EndUpdate endwith
5	DataSource (control, XML, file) * Error event - An internal error occurs. * LPARAMETERS Error, Description with thisform.CascadeTree1 DEBUGOUT( "Error" ) DEBUGOUT( Description ) endwith with thisform.CascadeTree1 .BeginUpdate .StatusBarVisible = 2 .StatusBarLabel = "<b>DataSource</b> could be a XML file name, a URL, an IStream, an IXMLDOMDocument" .DefColumnWidth = 336 .DataSource = "http://www.exontrol.net/testing.xml" .View.ColumnAutoResize = .T. .EndUpdate endwith