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
77
Is it possible to highlight the column's header once a filter is applied

with thisform.CascadeTree1
	.BeginUpdate
	with .VisualAppearance
		var_s = "gBFLBCJwBAEHhEJAAEhABX8GACAADACAxSDEMQBQKAAzQFAYbhgHCGAAGQaBUgmFgAQhFcZQSKUOQTDKNYykCIRSDUJYkSZEIyjBI8ExXFqNACkGKwYgmNYiTLAcgANJ"
		var_s = var_s + "0WBaGIZJ4gOT5fDKMoEDRRYADFCscwxJybQAqGQKKb+VgAVY/cTyBIAEQSKA0TDOQ5TSKWB4JPZQRBEbZMNBtBIUJquKaqShdQJCU5FdY3Xblez9P7AMBwLFEC4NQ8YN"
		var_s = var_s + "YuPhjR4dRTIMhvVAsUArFh8Zg9GZZFjmDIDT4ydBLTQwcyVIKnP5qOa6XbmPoCQDYKxZHYxPzVDa3axuL76dqCAT7XrXNy1TbNRrzQKfcJqfCbdw2YaDZLOOT3fjuI4h"
		var_s = var_s + "hKaRzFAHJ+jYQ4xHuY4gHuGIXGeExqC8Tp6C+PoEm+G5ImycRgh0XwvDGa5rgOeoejyXwnFeQp2mkf5ClgBB9gCWIYAwfYAEKV58mkdwOggNArgOXY2EWLoDkKOA0mgb"
		var_s = var_s + "hOGgZApgaSBIHWSYHSmbApgYThmESZYJkIeIkgeCpfliLIHgpMIcmUYYYmODAlg2SI4mWfRfGOEguDcCRjFYAJihCQhJBSDoRmONgKEcI4kFCEJhhOVYTmYnAlEAQhWB"
		var_s = var_s + "MJYJGYWoWmWSR2F6F5lnkWAQhUAgpEieRWEuSYkjWGpmkmNhuhuZwJkYcocmaaYkjyEhngnUA6lEFAlAEgI="
		.Add(2,var_s)
		.Add(1,"CP:2 -8 -4 2 4")
	endwith
	.Object.Background(0) = 0x1fefefe && 0x0
	.Object.Background(41) = 0x1010101
	.Object.Background(32) = -1 && 0x20
	.BackColorHeader = RGB(255,255,255)
	.Mode = 1
	with .DefaultView()
		.HeaderHeight = 28
		.DrawGridLines = -2
		.HeaderVisible = 1
		with .Columns
			.Add("C1").DisplayFilterButton = .T.
			with .Add("C2")
				.DisplayFilterButton = .T.
				.Filter = "Item 2"
				.FilterType = 240
			endwith
			.Add("C3").DisplayFilterButton = .T.
		endwith
		with .Items
			h = .AddItem("Item 1")
			.DefaultItem = h
			.CellValue(0,1) = "Item 2"
			.DefaultItem = h
			.CellValue(0,2) = "Item 3"
			h = .AddItem("Item 4")
			.DefaultItem = h
			.CellValue(0,1) = "Item 5"
			.DefaultItem = h
			.CellValue(0,2) = "Item 6"
		endwith
		.ApplyFilter
	endwith
	.EndUpdate
endwith
76
Is it possible to show the filterbar on top of the rows

with thisform.CascadeTree1
	.BeginUpdate
	.Mode = 1
	with .DefaultView()
		.ColumnAutoResize = .T.
		.FilterBarPromptVisible = 8192
		.HeaderHeight = 24
		.FilterBarHeight = .HeaderHeight
		.HeaderAppearance = 1
		.DrawGridLines = -1
		.GridLineStyle = 512
		with .Columns.Add("Column")
			.DisplayFilterButton = .T.
			.FilterType = 3
			.Filter = "B*"
		endwith
		with .Columns.Add("Index")
			.FormatColumn = "1 index ``"
			.Position = 0
			.Width = 48
			.AllowSizing = .F.
			.SortType = 1
			.Def(0) = .T.
		endwith
		with .Items
			.AddItem("A.1")
			.AddItem("A.2")
			.AddItem("B.1")
			.AddItem("B.2")
			.AddItem("B.3")
			.AddItem("C")
		endwith
		.ApplyFilter
	endwith
	.EndUpdate
endwith
75
Is there anyway to stop the header changing colour when the mouse hovers/moves across the column header (non-clickable)

*** CreateView event - A view has been created. ***
LPARAMETERS View
	with thisform.CascadeTree1
		with .View
			k = .ParentView.Value()
			.BeginUpdate
			.ColumnAutoResize = .T.
			.Columns.Add(k)
			with .Items
				.AddItem(thisform.CascadeTree1.FormatABC("A + `-> Sub-Item 1`",k))
				.AddItem(thisform.CascadeTree1.FormatABC("A + `-> Sub-Item 2`",k))
				.AddItem(thisform.CascadeTree1.FormatABC("A + `-> Sub-Item 3`",k))
			endwith
			.EndUpdate
		endwith
	endwith

with thisform.CascadeTree1
	.BeginUpdate
	with .View
		.BeginUpdate
		.ColumnAutoResize = .T.
		with .Columns.Add("Default")
			.AllowSort = .F.
			.AllowDragging = .F.
		endwith
		.Key = 0
		with .Items
			.AddItem("Item A")
			.DefaultItem = .AddItem("Item B")
			.SelectItem(0) = .T.
			.AddItem("Item C")
		endwith
		.EndUpdate
	endwith
	.EndUpdate
endwith
74
Is there anyway to stop the header changing colour when the mouse hovers/moves across the column header

*** CreateView event - A view has been created. ***
LPARAMETERS View
	with thisform.CascadeTree1
		with .View
			k = .ParentView.Value()
			.BeginUpdate
			.ColumnAutoResize = .T.
			.Columns.Add(k)
			with .Items
				.AddItem(thisform.CascadeTree1.FormatABC("A + `-> Sub-Item 1`",k))
				.AddItem(thisform.CascadeTree1.FormatABC("A + `-> Sub-Item 2`",k))
				.AddItem(thisform.CascadeTree1.FormatABC("A + `-> Sub-Item 3`",k))
			endwith
			.EndUpdate
		endwith
	endwith

with thisform.CascadeTree1
	.BeginUpdate
	.Object.Background(32) = -1 && 0x20
	with .View
		.BeginUpdate
		.ColumnAutoResize = .T.
		.Columns.Add("Default")
		.Key = 0
		with .Items
			.AddItem("Item A")
			.DefaultItem = .AddItem("Item B")
			.SelectItem(0) = .T.
			.AddItem("Item C")
		endwith
		.EndUpdate
	endwith
	.EndUpdate
endwith
73
Type of wraps the cell's caption support (Sample 2)

with thisform.CascadeTree1
	.Mode = 1
	with .DefaultView()
		.BeginUpdate
		.HeaderSingleLine = .F.
		.HeaderHeight = 36
		.DrawGridLines = -2
		.ColumnAutoResize = .F.
		.ScrollBySingleLine = .T.
		with .Columns
			with .Add("Single-Line (exCaptionSingleLine)")
				.Width = 96
				.Def(17) = 1
				.Def(16) = -1
			endwith
			with .Add("Word-Wrap (exCaptionWordWrap)")
				.Width = 96
				.Def(17) = 1
				.Def(16) = 0
				.FormatColumn = "%0"
			endwith
			with .Add("Break-Wrap (exCaptionBreakWrap)")
				.Width = 96
				.Def(17) = 1
				.Def(16) = 1
				.FormatColumn = "%0"
			endwith
		endwith
		with .Items
			.AddItem("This is the <b>first</b> line.<br>This is the <b>second</b> line.<br>This is the <b>third</b> line.")
			.AddItem("This is the <b>first</b> line.\r\nThis is the <b>second</b> line.\r\nThis is the <b>third</b> line.")
		endwith
		.EndUpdate
	endwith
endwith
72
Type of wraps the cell's caption support (Sample 1)

with thisform.CascadeTree1
	.Mode = 1
	with .DefaultView()
		.BeginUpdate
		.HeaderSingleLine = .F.
		.HeaderHeight = 36
		.DrawGridLines = -2
		.ColumnAutoResize = .F.
		.ScrollBySingleLine = .T.
		.Columns.Add("Default").Width = 128
		with .Items
			h = .AddItem("This is the first line.\r\nThis is the second line.\r\nThis is the third line.")
			h = .AddItem("This is the <b>first</b> line.<br>This is the <b>second</b> line.<br>This is the <b>third</b> line.")
			.DefaultItem = h
			.CellValueFormat(0,0) = 1
			h = .AddItem("This is the first line.\r\nThis is the second line.\r\nThis is the third line.")
			.DefaultItem = h
			.CellSingleLine(0,0) = 0
			h = .AddItem("This is the <b>first</b> line.<br>This is the <b>second</b> line.<br>This is the <b>third</b> line.")
			.DefaultItem = h
			.CellValueFormat(0,0) = 1
			.DefaultItem = h
			.CellSingleLine(0,0) = 0
			h = .AddItem("This is the first line.\r\nThis is the second line.\r\nThis is the third line.")
			.DefaultItem = h
			.CellSingleLine(0,0) = 1
			h = .AddItem("This is the <b>first</b> line.<br>This is the <b>second</b> line.<br>This is the <b>third</b> line.")
			.DefaultItem = h
			.CellValueFormat(0,0) = 1
			.DefaultItem = h
			.CellSingleLine(0,0) = 1
		endwith
		.EndUpdate
	endwith
endwith
71
Can I break the cell's caption using the line break <br> or \r\n (Sample 2)

with thisform.CascadeTree1
	.Mode = 1
	with .DefaultView()
		.BeginUpdate
		.DrawGridLines = -2
		.ColumnAutoResize = .F.
		.ScrollBySingleLine = .T.
		.Columns.Add("Default").Width = 128
		with .Items
			.DefaultItem = .AddItem("This is the first line.\r\nThis is the second line.\r\nThis is the third line.")
			.CellSingleLine(0,0) = 1
			.AddItem("This is the first line.\r\nThis is the second line.\r\nThis is the third line.")
		endwith
		.EndUpdate
	endwith
endwith
70
Can I break the cell's caption using the line break <br> or \r\n (Sample 1)

with thisform.CascadeTree1
	.Mode = 1
	with .DefaultView()
		.BeginUpdate
		.DrawGridLines = -2
		.ColumnAutoResize = .F.
		.ScrollBySingleLine = .T.
		with .Columns.Add("Default")
			.Width = 128
			.Def(16) = 1
		endwith
		with .Items
			.AddItem("This is the first line.\r\nThis is the second line.\r\nThis is the third line.")
			.AddItem("This is the first line.\r\nThis is the second line.\r\nThis is the third line.")
		endwith
		.EndUpdate
	endwith
endwith
69
Is it possible to change the visual appearance of the position signs when user changes the column's position by drag and drop

with thisform.CascadeTree1
	.BeginUpdate
	with .VisualAppearance
		var_s = "gBFLBCJwBAEHhEJAAEhABZEGACAADACAxRDgMQBQKAAzAJBIYhiG4cYCgMYxXDOCYXABCEYRXBIZQ7BKNIxjSJwFgmEgADKMA4SOKIZhrE4bBhGaQRUgyI43RhHUBzVI"
		var_s = var_s + "UcQvE6TZRHCQYHgkNIhDJIM7TPLkeSVJaTIRoKhJUogApQThTMgVRDEThkGoSa6soSoYTDBKybLrSLKagOT5YUDKUqSdKEZRpEq1YztWbaQoCUoqVRRVIWfbNd4JJa4a"
		var_s = var_s + "DhWpYdpeeY5R7bWLgBYVVABL7LLRsSxpHxPF6RXxaeI3GKsaS8G6ic6nPQMHj7I4NS5pUa6Rh2VYNSa8AAtETRYznOw4bTMXAjNIea5bAYIIR5HIoDzVbQcCQAHL9DBe"
		var_s = var_s + "EMIQEEISgGhMGZQmocgymoYRRCIEQ0G2HYBnEIBig4V4zCQGINnmagCECY43medZ6H2Pw/g+X5fnueh/h+R5+AKABfkMWgGgGYA4AICoCGCE5WA4CphACMgSD2IRIDIB"
		var_s = var_s + "ICmEd5YGCBpRjGBgegWIYIgWdgoGIRQsiKCZiAiJZ0gGQI4jUS4LECOAiBmDJflGfg2BSY4Al4OhGkOCJ2DgFJjGGfgqgiH5Ch4RhGkqOQmEOEpkFkHQYhJRYyESAokG"
		var_s = var_s + "KHhIhKIxJEmf4VGUeRGFmF5iBkchPhYJQ5GoYIZg6Ug6GoFYmkmNhuhulRGHKGoImefh0BUZ4JmYeoemeSZ2H6HQmgoBgXDqXwUAQgI="
		.Add(1,var_s)
		.Add(2,"CP:1 0 -36 0 0")
	endwith
	.Object.Background(182) = 0x2000000
	.Mode = 1
	with .DefaultView()
		.BeginUpdate
		.HeaderAppearance = 4
		with .Columns
			.Add("Column 1")
			.Add("Column 2")
			.Add("Column 3")
		endwith
		.EndUpdate
	endwith
	.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
63
Manual sample

*** CreateView event - A view has been created. ***
LPARAMETERS V
	with thisform.CascadeTree1
		with .View
			.BeginUpdate
			k = .ParentView.Value()
			.HeaderVisible = .F.
			.ColumnAutoResize = .T.
			.ScrollBySingleLine = .T.
			.Columns.Add("Default").Def(16) = .F.
			.Key = 0
			with .Items
				.AddItem(thisform.CascadeTree1.FormatABC("A + `.Child 1`",k))
				.AddItem(thisform.CascadeTree1.FormatABC("A + `.Child 2`",k))
				.AddItem(thisform.CascadeTree1.FormatABC("A + `.Child 3`",k))
			endwith
			.EndUpdate
		endwith
	endwith

with thisform.CascadeTree1
	.BeginUpdate
	.BackColorAlternate = 0x7ff0f0f0
	.Object.Background(18) = RGB(240,240,240)
	with .DefaultView()
		.BeginUpdate
		.HeaderVisible = .F.
		.ColumnAutoResize = .T.
		.ScrollBySingleLine = .T.
		.Columns.Add("Default").Def(16) = .F.
		.Key = 0
		with .Items
			.AddItem("Item A")
			.AddItem("Item B")
			.AddItem("Item C")
		endwith
		.EndUpdate
	endwith
	.Select = "Item A\Item*A*2\Item*A*2*3\"
	.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)
					.DefaultItem = h
					.ItemDivider(0) = 0
					.DefaultItem = h
					.CellValueFormat(0,0) = 5 && ValueFormatEnum.exTotalField Or ValueFormatEnum.exHTML
					.DefaultItem = h
					.CellValue(0,0) = "count(all,all,1)"
					.DefaultItem = h
					.FormatCell(0,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)
					.DefaultItem = h
					.ItemDivider(0) = 0
					.DefaultItem = h
					.CellValueFormat(0,0) = 5 && ValueFormatEnum.exTotalField Or ValueFormatEnum.exHTML
					.DefaultItem = h
					.CellValue(0,0) = "count(all,all,1)"
					.DefaultItem = h
					.FormatCell(0,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)
			.DefaultItem = h
			.ItemDivider(0) = 0
			.DefaultItem = h
			.CellValueFormat(0,0) = 5 && ValueFormatEnum.exTotalField Or ValueFormatEnum.exHTML
			.DefaultItem = h
			.CellValue(0,0) = "count(all,all,1)"
			.DefaultItem = h
			.FormatCell(0,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
61
How can I get the selected items (sample 2)
*** CreateView event - A view has been created. ***
LPARAMETERS View
	with thisform.CascadeTree1
		with .View
			k = .ParentView.Value()
			.BeginUpdate
			.ColumnAutoResize = .T.
			.Key = -1
			.Columns.Add(k)
			with .Items
				.AddItem(thisform.CascadeTree1.FormatABC("A + `-> Sub-Item 1`",k))
				.AddItem(thisform.CascadeTree1.FormatABC("A + `-> Sub-Item 2`",k))
				.AddItem(thisform.CascadeTree1.FormatABC("A + `-> Sub-Item 3`",k))
			endwith
			.EndUpdate
		endwith
	endwith

*** ViewItemStateEndChanging event - Indicates that the state of the item has been changed. ***
LPARAMETERS Operation,Item,ColIndex
	with thisform.CascadeTree1
		DEBUGOUT( "End" )
		DEBUGOUT( Operation )
		with .View.Items
			DEBUGOUT( "FocusItem" )
			DEBUGOUT( .CellCaption(.FocusItem,0) )
			DEBUGOUT( "SelectedItem" )
			DEBUGOUT( .CellCaption(.SelectedItem(0),0) )
		endwith
	endwith

*** ViewItemStateStartChanging event - Indicates that the state of the item is about to be changed. ***
LPARAMETERS Operation,Item,ColIndex,Cancel
	with thisform.CascadeTree1
		DEBUGOUT( "Start" )
		DEBUGOUT( Operation )
	endwith

with thisform.CascadeTree1
	.BeginUpdate
	with .View
		.BeginUpdate
		.ColumnAutoResize = .T.
		.Columns.Add("Default")
		.Key = 0
		.LinesAtRoot = -1
		with .Items
			.AddItem("Item A")
			.DefaultItem = .AddItem("Item B")
			.SelectItem(0) = .T.
			.AddItem("Item C")
		endwith
		.EndUpdate
	endwith
	.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)
			.DefaultItem = h
			.ItemDivider(0) = 0
			.DefaultItem = h
			.CellValueFormat(0,0) = 5 && ValueFormatEnum.exTotalField Or ValueFormatEnum.exHTML
			.DefaultItem = h
			.CellValue(0,0) = "count(all,all,1)"
			.DefaultItem = h
			.FormatCell(0,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)
					.DefaultItem = h
					.ItemDivider(0) = 0
					.DefaultItem = h
					.CellValueFormat(0,0) = 5 && ValueFormatEnum.exTotalField Or ValueFormatEnum.exHTML
					.DefaultItem = h
					.CellValue(0,0) = "count(all,all,1)"
					.DefaultItem = h
					.FormatCell(0,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)
					.DefaultItem = h
					.ItemDivider(0) = 0
					.DefaultItem = h
					.CellValueFormat(0,0) = 5 && ValueFormatEnum.exTotalField Or ValueFormatEnum.exHTML
					.DefaultItem = h
					.CellValue(0,0) = "count(all,all,1)"
					.DefaultItem = h
					.FormatCell(0,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)
					.DefaultItem = h
					.ItemDivider(0) = 0
					.DefaultItem = h
					.CellValueFormat(0,0) = 5 && ValueFormatEnum.exTotalField Or ValueFormatEnum.exHTML
					.DefaultItem = h
					.CellValue(0,0) = "count(all,all,1)"
					.DefaultItem = h
					.FormatCell(0,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
			.DefaultItem = .ItemByIndex(1)
			.CellState(0,2) = 1
			.DefaultItem = .ItemByIndex(3)
			.CellState(0,2) = 1
			.DefaultItem = .ItemByIndex(5)
			.CellState(0,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
					.DefaultItem = .ItemByIndex(1)
					.CellState(0,2) = 1
					.DefaultItem = .ItemByIndex(3)
					.CellState(0,2) = 1
					.DefaultItem = .ItemByIndex(5)
					.CellState(0,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
				.DefaultItem = .FocusItem
				.CellState(0,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
			.DefaultItem = .FindItem("Anchorage","Name")
			.SelectItem(0) = .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
4
How can I get the selected items (sample 1)

*** CreateView event - A view has been created. ***
LPARAMETERS View
	with thisform.CascadeTree1
		with .View
			k = .ParentView.Value()
			.BeginUpdate
			.ColumnAutoResize = .T.
			.Key = -1
			.Columns.Add(k)
			with .Items
				.AddItem(thisform.CascadeTree1.FormatABC("A + `-> Sub-Item 1`",k))
				.AddItem(thisform.CascadeTree1.FormatABC("A + `-> Sub-Item 2`",k))
				.AddItem(thisform.CascadeTree1.FormatABC("A + `-> Sub-Item 3`",k))
			endwith
			.EndUpdate
		endwith
	endwith

*** ViewEndChanging event - Occurs once the user is about to change the view. ***
LPARAMETERS Operation
	with thisform.CascadeTree1
		DEBUGOUT( "End" )
		DEBUGOUT( Operation )
		with .View.Items
			DEBUGOUT( "FocusItem" )
			DEBUGOUT( .CellCaption(.FocusItem,0) )
			DEBUGOUT( "SelectedItem" )
			DEBUGOUT( .CellCaption(.SelectedItem(0),0) )
		endwith
	endwith

*** ViewStartChanging event - Occurs once the user is about to change the view. ***
LPARAMETERS Operation
	with thisform.CascadeTree1
		DEBUGOUT( "Start" )
		DEBUGOUT( Operation )
	endwith

with thisform.CascadeTree1
	.BeginUpdate
	with .View
		.BeginUpdate
		.ColumnAutoResize = .T.
		.Columns.Add("Default")
		.Key = 0
		.LinesAtRoot = -1
		with .Items
			.AddItem("Item A")
			.DefaultItem = .AddItem("Item B")
			.SelectItem(0) = .T.
			.AddItem("Item C")
		endwith
		.EndUpdate
	endwith
	.EndUpdate
endwith
3
Can I use this control as a simple tree

with thisform.CascadeTree1
	.BeginUpdate
	.Mode = 1
	with .View
		.BeginUpdate
		.ColumnAutoResize = .T.
		.Columns.Add("Default")
		.Key = -1
		.LinesAtRoot = -1
		with .Items
			.AddItem("Item A")
			.InsertItem(.AddItem("Item B"),Null,"Child")
			.AddItem("Item C")
		endwith
		.EndUpdate
	endwith
	.EndUpdate
endwith
2
How can I use this control

*** CreateView event - A view has been created. ***
LPARAMETERS View
	with thisform.CascadeTree1
		with .View
			k = .ParentView.Value()
			.BeginUpdate
			.ColumnAutoResize = .T.
			.Columns.Add(k)
			with .Items
				.AddItem(thisform.CascadeTree1.FormatABC("A + `-> Sub-Item 1`",k))
				.AddItem(thisform.CascadeTree1.FormatABC("A + `-> Sub-Item 2`",k))
				.AddItem(thisform.CascadeTree1.FormatABC("A + `-> Sub-Item 3`",k))
			endwith
			.EndUpdate
		endwith
	endwith

with thisform.CascadeTree1
	.BeginUpdate
	with .View
		.BeginUpdate
		.ColumnAutoResize = .T.
		.Columns.Add("Default")
		.Key = 0
		with .Items
			.AddItem("Item A")
			.DefaultItem = .AddItem("Item B")
			.SelectItem(0) = .T.
			.AddItem("Item C")
		endwith
		.EndUpdate
	endwith
	.EndUpdate
endwith
1
How do I change the control's background color
with thisform.CascadeTree1
	.BackColor = RGB(240,240,240)
endwith