*** 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

*** 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

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

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

*** 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

*** 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

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

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

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

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

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

*** 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

*** 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

*** 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

*** 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

*** 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

*** 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

*** 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

*** 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

*** 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

*** 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

*** 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

*** 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

*** 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

*** 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

*** 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

*** 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

*** 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

*** 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

*** 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

*** 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

*** 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

*** 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

*** 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

*** 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

*** 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

*** 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

*** 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

*** 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

*** 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

*** 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

*** 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

*** 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

*** 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

*** 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

*** 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

*** 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

*** 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

*** 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

*** 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

*** 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

*** 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

*** 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

*** 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

*** 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

*** 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

*** 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

*** 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

*** 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

*** 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

*** 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

*** 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

*** 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

*** 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

*** 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

*** 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

*** 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

*** 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

*** 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

*** 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

*** 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

*** 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

*** 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

*** 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

*** 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

*** 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

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

*** 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

with thisform.CascadeTree1
	.BackColor = RGB(240,240,240)
endwith