Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Set ComTexturePicturePath to ""
	Set ComImageSize to 32
	Variant voStdFont
	Get ComFont to voStdFont
	Handle hoStdFont
	Get Create (RefClass(cComStdFont)) to hoStdFont
	Set pvComObject of hoStdFont to voStdFont
		Set ComSize of hoStdFont to 16
	Send Destroy to hoStdFont
	Set ComCheckBoxWidth to 32
	Set ComCheckBoxHeight to 32
	Send ComImages ("gBJJgBAIDAAEg4AEEKAD/hz/EMNh8TIRNGwAjEZAEXjAojKAjMLjABhkaABAk0plUrlktl0vmExmUzmk1m03nE5nU7nk9miAoE+oVDolFo1HpFJpU5h8Sf9OqFNqUOqNUqdPq9VrFWrlbr1QpdhAFAkFis1ntFptVrtkrpszrNvmVxqk3uVtm1kmF3sdBvF/wGBmV+j9BYGHwWJulfxdax2NyFdx2JlV6l9Nw7AAGZymdz2Cy2GxErvWcz9ivlwyV21cuxugwktzGIzmvwtl0+53U5y0a0Wazmmyu/3dCyOMyXHx/J5nIr9q3uyqnBxFN3G46ma4vb7mD2Ng4nZze00fDkHC7t7us2rOX5tguetpHRlmz4HVqnXk1PjHO+CMPo9MBMC+j2vC8j7wS8cFNI4kBo05UIvfCT/NsnsApU+0Fqg/T+oy/kPxC0sEQfErKQK96+w28UWRI8UGvO8sTLS9r2PWmsMJTDTask3CsIbIEQRA3shOXEEAO/GclJ9FEKrrA8FRbKMXRIlb0JxCkjS1LMswhCcvuel0cv26cSMa8Ufx+2sQwhEUoSXOCjSbLcnxjKc7sdKUVyq28NtVI71P9P7JxtQEapjQ6fzfM8zPfNE2PhIsLL63E40slk5y7N89LcyU9SvMb3SdUc6VJLj5VLVLfO/PS9KzNFHUa/0XyBD0dxlS9cxhMlTRSoNXypPErWDPyfNS+MwprRNO0FD8wVVZ1AI08URwVRjtJ1WCn21QkkUrXVLVPQS/XIkFgTxT9iONZ9xVTdq+L1eKg3kkF6Upe68XtfV51/MtrVjBlwYFL1ev8y1/P6/lyzzYl02wntj0RVFmS1Qa+M5as93QxEUW9e993rfmQ2+vy65M/mL1lhl/2bj2ByVduMtNhCJT9hdz41nN14Ld12Z9UjfI/oUAaGseiw6+uFLLhcVabJOS5RqOE0BHlZ5VnEr5fOMs3st+aa/bbRzrJGV51Y0b0DbqaWXZD90hIsPbjWu52+6Wyadpe66hhO+P/XioW5rD8ZbrUZuVg6n1dsE/cXmewu1m9PVwnd35/nueXho/NaJzmjc61W76esuT77eG8pTquy9TwWH8LEzG8RDfFalx3Gcfvna9rvG/cptGLd9tuI6TZOP5Fiqi99vea+X4VRcBq/JZZtVQ9cwSs5lsXE372+a9z7PbfB3VVqHyvMctLto8uob6eV0m/cD6MN2v+T33t6sBut42vdv2bJ8a997x2maFJfK+qArbGJPEKE+1qTflMsIdW/GCJX17KcT6/czr/X+u1g29B7j/4BQfWkkx4zIHisjhPCmE0K4SwtXM+d4BvHRwNZOoBph9IJvPek9d40FoMJxf691jj2ywQQcHEWET4XJwkTszlVqm2GokewxtBT1DpQjRxDN0rUVDNKdC3lb6tzNOwh6upMSSYfv4YBCl/bsn9PxiFCEo7SI6Obc9HeOrnY8x4jtHtdpN4GRbaorhsbu18Pph5CiHymI0RpSXGJ/z2oUOxYxG858AyiI+bfJtuTcG5yelBJyT8okhqFd4a5yxL0rvulYtKCsZiWxWkc1s1cRoxxwhA31DLE0mR9l9HqX8fJgTDmFMVH0MIsRzVYnwnMi1dyzmhLt2kS2pxIiU62Wj5ptQGlSYFakLonTUJNLKaM5WzlffEkuFkk5wTrhVO2eE7G6lJhxFFYUZ55zmn0WuBCD4pzhirFCKkbomsOoIYmZx5p90LoYWGPdD5g0QmJRKYxbZ6zYoVQ2jVGylSak7KSkFH6RSjpHKFuU+YMyNo5SulkC6I0vonTCitMXPoEpVS2H5FQfEqp2R1opIgAEkJISYARTCukOhmPNI5Ex/wzGHUsicMwA1LHgQ90Y/KpoQHAD+pB/R4NzIaMAB9Xaw1gqaAOsh/A/ptIkWUfhGK1kZH8RgH5GqvgArqRmt4AAPrTroRofBGADkqr6Rmu4D7CEaHARiwpJrEEZsXXwlVjyMWRsaRqwdkLGNBABZmytmyMnaINZqyVpLR2ftKAAAdd6h2osbaskdiq4EZtgSmyNcbVW" + ;
"RJNXe3AA7REar3b0stlAAXBtoRmvJGLjEYAHUWsFcwCD/rnaop9aEICMAPdK5hT6xpeuzdOtAgKuJeGfdq6ggEbkTvAP+p9UCHXrvKkcgIA==")
	Variant voAppearance
	Get ComVisualAppearance to voAppearance
	Handle hoAppearance
	Get Create (RefClass(cComAppearance)) to hoAppearance
	Set pvComObject of hoAppearance to voAppearance
		Get ComAdd of hoAppearance 1 "gBFLBCJwBAEHhEJAAEhABfICg6AADACAxRDgMQBQKAAzQFAYbhkGCGAAGMZxRgmFgAQhFcZQSKUOQTDKMIziaQAGgkNQwCSLIwjNIsBxPFKVQChEYxSjKA40SJNUgyj6CCY+QLIE5PfQgAL9I6eJABCCSQKkYx0HScRiwPBIbAZAYhCZqaKhWgkKI/WBQIABRDVLx5ESiLRtKy7Mq2bpvXBcNxXHalaztO68LxvKyqHb5fJ/PpgL4YHgmC4NQ7EMRwF6rfbyfZ7Xg/ORPTijZ4sdzMHTzJyscx3HqfaBoOaZU5eMLceTUMofHIndxCcasPbsOatVqjG5sYjcGC3La9cz3Pq/bpuDCbMxuaK1TrYXr1TTrcofBDldAxXRKDxRDWVhLnYOw9i6XxzjuXprCaOoKB6EwbiCZZCGOdZYlcT4xHmbhMnwNxtn+G5bmqdZ7n4Pw/i+X5zm+dQ9g4CAFjsfAJheOI8HsDoWDWTB/lwSAQkmA5PEgRYoDyDwYFYFoFmGCBmBqBphDgRJ0gOTIYBGRB/lyRh0iSCZbjYWJzgWDwIjYLoLmMCJGDKDJjBgWgqG6YhyhGHRzA2aJ1mCABOAiOJvhCZBJBYRoRmSCQmEqEQimkAZgg8TZnDCV4UkmCUmBKZYJGYWoWCUUhiFMNZckNUh2GENoaGaGZmgmJhqhqZpGGIEx2GYIxSGGGJdggWJth2Z4JmYeoemeSZ2H6H4hGmQhihyTRHGYLg7CiCgmgqIpokoNoOiOaJ4jqAochqaZGgaCxpAoZoaiaaJqEmWIcGgShcnCJwqEqFoR3YOoFlgchflqNouiuawHmWSYqGkWZQhcatzmaOoumuSp2j6L5bBaKo0GQKRnGGCxqiyCwmkqMpsksNpOGUGI7A0ew1G0Rxlg0PptgsZuDG2Sx2l6N5tnYNZZjUDRXDCVo5l2FoymqOpukuNpujubwLjmWY5k0ZwxkaFxYlWdp6j6b5Lnafo/nABQdg2FxcUsY5BkmXAkmeQpckwNRrkKTh8CSHZBk4NwyC4KxxgMDwakOMZDn8GgwnGAo2C4cwthMcwmCcMoHBMHRehwTIghySYNksZwcH4HBMEsHx5hyPItiweYxnwSZEH4Mozn0fR+DMAo7EYJ50gkdZelKdNql2UgJn0GIukwH4HicQRai2GI4mSVpNl0dZGledgNgcYpYDWUx3FsOQi5YV5anaTY3G6W53A2RxylydxFjiaxEFCCgBBAQ==" to Nothing
		Get ComAdd of hoAppearance 2 ("gBFLBCJwBAEHhEJAAEhABcoFg6AADACAxRDgMQBQKAAzQFAYbhkGCGAAGMZxRgmFgAQhFcZQSKUOQTDKMIziaQAGgkNQwCSLIwjNIsBxPFKVQChEYxSjKA40SJNUgyj6CCY+QLIE5PfQgAL9I6eJABCCSQKkYx0HScRiwPBIbAZAYhCZqaKhWgkKI/WBQIABRDVLx5ESiLRtKy7Mq2bpvXBcNxXHalaztO68LxvKyqHb5fJ/PpgL4YHgmC4NQ7EMRwF6rfbyfZ7Xg/ORPTijZ4sdzMHTzJyscx3HqfaBoOaZU5eMLceTUMofHIndxCcasPbsLpOS5LNKsaxmWLYdhFdTxQi6LpvfA8BwXC6JY7heRYRbFbYxRjGNi1TS7G4nGKd5WGuL4UHwI4VkaYxii8V4pgQMgVBQdQ5iCTYGi8T4vlWbJ3nuPg+l+H5AlSCg6ByPBoE8Ap3jqYxhBido5g0OgOGOGI4CsSpCCAcgcAuEokiEN5NCKfJ9DyTRjnScg1CEYxOBmBpPCgagdgcIZoHoGIFA4AxQkCAxKAgKBwgGSpIBCZhjF2E5UnQPQMiMCJBCIBwxkSQgsgo+JtDKT4ziiQw+k6EwAnsOgLnkHI+yCQ4iEuE4klkPhShEJBpAoPgymOMoaDgHBjFMBgyD0HYTiCZSZhIIIGC4ChiHSew5kwM5omILZPiOBI0hwZw5kodIdA+M4Uj4PxOmMSJ9DuTQzmyZgviceZagaHVfj4awwmaAh2GUIYmCOEZZDaDRDFGdwcg4EwyHMN4LBOaJbCoaZqgKH8qkMfIyD8DozDyfA7A0Coui0OpMmOZJdCsahKg6NooioChwmEMxLEoXJbDUTRXGSUgykyMgQG0GpPHMdI3D4TRCgSeQ0kmaw+lGNAtCOZJVCiT5DhyRQwAqMg0EoDBBGEGAsASC5yiSCw+k4Mp6lWNQuksTpRjMTxDGzJwGmGMpDDKXYTECSAxl6Q5olkK4PgMMIVkASRMBMBgzEkaZEjsNALhIZA6AeQBgk0ZJEgAAJ0CIAgODMNIsD6DRih9uYwFyAwfCUb5ijmbI+gwdxkk8MZMGeMpPCkDxzBiC5MHMPJLDSSROFMLIoBEQogEMFJPnENYQGgE4DCOaJfC7tYkhGTQ0kyWwykuXpMiyRpKjKR4wngM4JmOWJACCdYtHMWw+Eych4nINYLAEYA8AgdAEEsQZajaQoog4GxPiMVIolcdxNG8XZVkmNoRwWRVBlFeFEeAZQJgnFiHgHwcAhjhHgGMSI5xki2CyA4EQsA3i0HkBsLwKRFgAHcPkHopBJBcBeDUYI7xyDOHqKkWo2hLCsDIBIY4qQ5A8DoMMYwOAqCSBGKgU4yB2iDBwIgB4hxQgAAWNgBoAgsBdEcBUQ4sQ9A/HqD0JI8RpBzH2OYVgahLBHFiJQJweQiDhDUE4SAARQAzFsG0EQwA6AOWSBkFgVAIBCHeGERQFQiCQHeFkC4vkiB8DyB4F4QxVDvGMNEOQexMjlBeOAKQiQLgfDA7QEAaRiBdEkH8TI7AZiFBAGYBIABWjYBiGACioQ4C1A+AMMgWhfgxHgPsT4URIB0COKgPgjRwiAB8AYUArxBgCF6J4GY5hrAOCAPAAoGRRCsCIMEXATXfgAF8BMJwURuEQDgD4Q4OBoAeHGFgLIwQrC2D0JoSQ+QvhrHoSgQI8AbDFGID8C4Ah6BQAQAASACwgCYCMAUMARAvCKAiAMCAokeCKBEOAKgCBoDaHuMsEAqwJDiACDURg8R6gPCyDofYWAhgoDIJ4ZAuhoiGAYGgRoQw/A0GMMga4GwxiEDeIYYInATCDBQAoBAwAoDlA0KMBoVRGiDGwDQUYIRsgaGGDgM4LAwDWB8EcIA1APhjEgGQVwgRIgjFIIQHokgZA+CSEkLIKQSjHAwMsCwDAsAEB2ABTIwRwD6A8CMToSxkAxE4HYIw+BsgbBEDAHYBwojCBoIYFgXSjABE4MsHIbQWhlGILQS4UhvBdAUKEEwHgxDAAABQQQUAhgKHiDwE4JS4A7BGLQZwCR4g" + ;
"aBEMUYAqgKApHgGwVAIRNgvBMMQXImwZDtE4I8UIyAZCDCAE8AwrhgAdEEBACQLRCg4FEB4AYtA7CdEiPQMoJAMDNCkOMCAXAFDhH0D0Q4EgfAaGSK4NYzRUj9BuCgAgswOBjB4Fqpw8B2ADAwE4A4Qx2DAE6JIaQPQGhAGKBcIQ5B5gHByKIFARwADbAyKUfgdBKBBGyEcVIAB/ijHoIoSA0gdBNl+OATYERZgBGSDYWIWAUCEGKA4FAhR7CIBtYQGYZg4CMAiKEcAOwkBjHWE8Z4lQgA+DkBoTohwwCeAaMEEgBQCCABgHMRwQRhhMEWFQd4HwZgwDqFESItAbAGEANCpINAzANCCJkK4ah+heFYBURwsQrS2CsMYMoWGBhYDWI0EInQgiApXaOVI1QFDsC8MUNoMBMA1HMJga4eh+BeAWOgNNowGjYzCGAAwax+iJBeBVT4gxoBIAGFsJFBxgBiGKFkKQ7g5DFFQEcAo4AzDDACKEQQLgCiJDYB0MgRBCCQAgQEA==") to Nothing
		Get ComAdd of hoAppearance 3 ("gBFLBCJwBAEHhEJAAEhABQ4Fg6AADACAxRDgMQBQKAAzQFAYbhkGCGAAGMZxRgmFgAQhFcZQSKUOQTDKMIziaQAGgkNQwCSLIwjNIsBxPFKVQChEYxSjKA40SJNUgyj6CCY+QLIE5PfQgAL9I6eJABCCSQKkYx0HScRiwPBIbAZAYhCZqaKhWgkKI/WBQIABRDVLx5ESiLRtKy7Mq2bpvXBcNxXHalaztO68LxvKyqHb5fJ/PpgL4YHgmC4NQ7EMRwF6rfbyfZ7Xg/ORPTijZ4sdzMHTzJyscx3HqfaBoOaZU5eMLceTUMofHIndxCcasPbsLpOS5LNKsaxmWLYdhFdTxQi6LpvfA8BwXC6JY7heRYRbFbYxRjGNi1TS7G4nGKd5WGuL4UHwI4VkaYxii8V4pgQMgVBQdQ5iCTYGi8T4vlWbJ3nuPg+l+H5AlSCg6ByPBoE8Ap3jqYxhBido5g0OgOGOGI4CsSpCCAcgcAuEosiYN5NHMOJ+D4TpTnSeQ7CEY4uBmBpPhgagdgcIZoHibIEyUBJZDQIJShoCgcCAcoyAQOYYlcZJ1D0DxDCiQgwEiAZMHEMJLFKPJ9D2DoDnidQ4k+Y5QmKEROBkIhKD0JIZDIS4TGUCQuEeEJjnOIg8CuY4RkYNgwGMM5RllGpThDRYIGKZIpCkJFUH0PINyWcQ3CaaZCG+HBnEOTJhD8Tx4GoeQ/GcaZSHOH5nCmQhshoZhihYYwhiYA4RlkNoNEMUZ3ByDjwEsPxOnMaJ9DuDR6F6GYmCmKh0nANtMioP4Gg8aoSiIO5NhodociqaY6GaFYkEyOg8lsNRNTaUgykyMgQG0GpPiONJbD8DpDEyfA6k0KwOkWMQsGsAJU0SagwkoJQJDIPISCQCJTGSUwyGaM4KkmMgtksHpFjAZ4TGCBAbgaSpcksdhNAMIJHHsD5TjSWWMAMOpwjyLwbk6cAz0KRJiDkDYzESCwiggcgcgYIQwCIEINCMCITj6TVxkMXp2j0cQLlCTo7E2F4ymkMZdhMPJHDGHpLAyVg+k4UwrCCSIyByDJ8DuDY8CiWY0kiXAXC6QJwFKGIjCeJpjgyezjlyDw6klHx5myRoMGwZwbkcToTEiew4kwbQfEmUgPkOKJUD4DpTHSHQmgkXI/ASTA1g0XIEDMTBimyfI7jSLYHEiUoPk0Fw/kadAsHGao8A0A5smEMJ2mNyg5gzJZwDgCpChyIZVyIZwFCMJEPASRkBqE+IcHInRcDxA2H4bIsx0AtDsIBpwZwYicD6BscwDwUBgHCIYaIfgtiVH2O4WgUwJjEFeAEQA7y4hMCiBMS4aRdB9A4CYE4LxljyBMHcDItBxinDCLcTYmgejBFQ9UTg9gFBOEmAQTI7A4iZGMGkQAWQ7jYA2HIL8BRAjDG4HcCwARbjZHiNoDw1nLDnGyNINQ+wjCpBMEgcovQUgICQJEcgWRuBvAyJ4d4ugpCUAINcHogxIgnDiM4N4axzD3F2JMTY/hRqYF6FsWIxhYAGGoAALQYgYirBwBEBwpAjBEAAIEIYsA2gOHCMAGgXAACIDmMITAUgFABH0D0I4WwvhNFGMAOIvxRD2GKNcMA8gjAPDCPwBogRPAxA8PgRwZRICYDED8RAXQEghEAN8DIgwIBdB4JYWwMgtiQHoFQKAiRFguFKGwGQhglDsEOVwEQQRkCKBwOIHgSREDRBYHEXQcQdD7GIGARQHRxipBrMobgewDCUCADsEYWAzgMHKHQDQxxsDzA6EMfAeQHB4GQDkUYPA0iECiKoGgRhcDdA2GMQA8AOCjDSPgHI4QnApAKBICwHg1A+BcAwcYsgbjGGQNkCIgRsA6EcBEWANADjsB0B8YYzQQDIGSBcEYZBCCPEkFIHQSgkgZAwG4IwBAbAYGGAgL4Ch4g8BOCQAA2KKC0GcAke4AAXAFCoHkDw4xbBFEcJkE4JRSiEFeJYKQVRMgJHODwX4xAgC/AsIIZAeAHDRG0HYI40RKCLEGDUI4jAghwBWIceA+whCpHMFYZYOQxglDMHMBQGxYj" + ;
"VHiAoBIPgfgHGwPsHYJRSB6A0IERQLhCjJHMA4OQoAoCOACLYGYSx8DpBQIMWQdRnDRH+DsE4fB3CeAmM67kAAXBFEIDYDI7wLBtEoEIfYNwjiUGGJQYQMAjCHEAO0C4zxW29CoCgfIxR9AKA6J8BgUAIhDGMIoJ40hqgwCgKETgnBhhqCGI0AIqgZhGDANQDIlBDCRGkCoJISR0g1BSKQOgfAzBRG0DYHARh4DeDAOwANuw8ApCKKkYg/RPhjBsH0J4yg5hPGWN0GwFBHQBFaDoQIURljFAoB4GgzRVzbBECQFQRQoguHGHANwDRdCKy8CgSIGwhhoDYJYYI1giBICSAEgI=") to Nothing
	Send Destroy to hoAppearance
	Set ComBackground OLEexCheckBoxState0 to |CI$1000000
	Set ComBackground OLEexCheckBoxState1 to |CI$2000000
	Set ComBackground OLEexCheckBoxState2 to |CI$3000000
	Variant voFace
	Get ComFrontFace to voFace
	Handle hoFace
	Get Create (RefClass(cComFace)) to hoFace
	Set pvComObject of hoFace to voFace
		Variant voFaceTree
		Get ComCreateTree of hoFace to voFaceTree
		Handle hoFaceTree
		Get Create (RefClass(cComFaceTree)) to hoFaceTree
		Set pvComObject of hoFaceTree to voFaceTree
			Set ComShowSelection of hoFaceTree to False
			Set ComDrawGridLines of hoFaceTree to OLEexRowLines
			Set ComItemPadding of hoFaceTree to 16
			Variant voColumns
			Get ComColumns of hoFaceTree to voColumns
			Handle hoColumns
			Get Create (RefClass(cComColumns)) to hoColumns
			Set pvComObject of hoColumns to voColumns
				Variant voColumn
				Get ComAdd of hoColumns "<c><b>Check" to voColumn
				Handle hoColumn
				Get Create (RefClass(cComColumn)) to hoColumn
				Set pvComObject of hoColumn to voColumn
					Set ComAlignment of hoColumn to OLELeftAlignment
					Set ComDef of hoColumn OLEexCellHasCheckBox to True
				Send Destroy to hoColumn
			Send Destroy to hoColumns
			Variant voItems
			Get ComItems of hoFaceTree to voItems
			Handle hoItems
			Get Create (RefClass(cComItems)) to hoItems
			Set pvComObject of hoItems to voItems
				Set ComToString of hoItems to "Check A<img>1</img>,Check B<img>2</img>,Check C<img>3</img>"
			Send Destroy to hoItems
			Variant voItem
			Get ComItemByIndex of hoFaceTree 1 to voItem
			Handle hoItem
			Get Create (RefClass(cComItem)) to hoItem
			Set pvComObject of hoItem to voItem
				Set ComState of hoItem 0 to 1
			Send Destroy to hoItem
		Send Destroy to hoFaceTree
	Send Destroy to hoFace
	Send ComEndUpdate
End_Procedure

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Set ComTexturePicturePath to ""
	Set ComImageSize to 16
	Send ComImages "gBJJgBAIDAAEg4ACEKAD/hz/EMNh8TIRNGwAjEZAEXjAojJAjMLjABAAgjUYkUnlUrlktl0vmExmUzmk1m03nE5nU7nkrQCAntBoVDolFo1HoM/ADAplLptImdMYFOqdSqlXq1QrVbrlGpVWsFNrNdnNjsk7pQAtNroFnt0sh8Yr9iulTuNxs1Eu8OiT/vsnsNVutXlk/oGGtVKxGLxWNtsZtN8iUYuNvy0Zvd+xNYwdwvl4p870GCqc8vOeuVttmp1knyOayWVy+WzN/ze1wOElenm+12WUz/Bv2/3UyyWrzeutux2GSyGP2dQ33C1ur3GD3M4zUNzHdlWjq/E3nGzVpjWv4HA7fRy/Tv2IrN8rPW6nZ3ve7mUlfu20Z8acvQyb+vY9jasYoDwMm+LytVBDqKG3z8O3Cb8P+mkAuY9cCQ2uL4KaxDKvkp8RNLEjqugnrwQo/UWPzFyeQw5sNLZFENrI4kOqU66pw8uzmOKvTqNqjULJvGL1JO48GtTGsbLdEL3scxLlyiw8dQeoUVxdLTtyKmUjwGlslRPJsnK1HbAKbKCrsQo8uQk/CeP44iaR/ATnTNPLvyxPU+z9P9AUDQVBowiofJXQ6Oo+kKMpIkjztE4TKn4P6JowfgPnwD5/nAjB8AOeAPo0eAA1IAFH07UhAIMpYAVIYFHqBUhwVjV1S1EtQAHxW65V0AZwAeuQAnwB5gAPYViEDVhwAHTQBkCjB4gOhwDmCyhH0sACAg=="
	Variant voFace
	Get ComFrontFace to voFace
	Handle hoFace
	Get Create (RefClass(cComFace)) to hoFace
	Set pvComObject of hoFace to voFace
		Variant voFaceTree
		Get ComCreateTree of hoFace to voFaceTree
		Handle hoFaceTree
		Get Create (RefClass(cComFaceTree)) to hoFaceTree
		Set pvComObject of hoFaceTree to voFaceTree
			Set ComShowSelection of hoFaceTree to False
			Set ComDrawGridLines of hoFaceTree to OLEexRowLines
			Set ComItemPadding of hoFaceTree to 16
			Variant voColumns
			Get ComColumns of hoFaceTree to voColumns
			Handle hoColumns
			Get Create (RefClass(cComColumns)) to hoColumns
			Set pvComObject of hoColumns to voColumns
				Variant voColumn
				Get ComAdd of hoColumns "<c><b>Check" to voColumn
				Handle hoColumn
				Get Create (RefClass(cComColumn)) to hoColumn
				Set pvComObject of hoColumn to voColumn
					Set ComAlignment of hoColumn to OLELeftAlignment
					Set ComDef of hoColumn OLEexCellHasCheckBox to True
				Send Destroy to hoColumn
			Send Destroy to hoColumns
			Variant voItems
			Get ComItems of hoFaceTree to voItems
			Handle hoItems
			Get Create (RefClass(cComItems)) to hoItems
			Set pvComObject of hoItems to voItems
				Set ComToString of hoItems to "Check A<img>1</img>,Check B<img>2</img>,Check C<img>3</img>"
			Send Destroy to hoItems
			Variant voItem
			Get ComItemByIndex of hoFaceTree 1 to voItem
			Handle hoItem
			Get Create (RefClass(cComItem)) to hoItem
			Set pvComObject of hoItem to voItem
				Set ComState of hoItem 0 to 1
			Send Destroy to hoItem
		Send Destroy to hoFaceTree
	Send Destroy to hoFace
	Send ComEndUpdate
End_Procedure

Procedure OnCreate
	Forward Send OnCreate
	Set ComTexturePicturePath to ""
	Variant voFace
	Get ComFrontFace to voFace
	Handle hoFace
	Get Create (RefClass(cComFace)) to hoFace
	Set pvComObject of hoFace to voFace
		Variant voFaceTree
		Get ComCreateTree of hoFace to voFaceTree
		Handle hoFaceTree
		Get Create (RefClass(cComFaceTree)) to hoFaceTree
		Set pvComObject of hoFaceTree to voFaceTree
			Set ComLinesAtRoot of hoFaceTree to OLEexLinesAtRoot
			Variant voColumns
			Get ComColumns of hoFaceTree to voColumns
			Handle hoColumns
			Get Create (RefClass(cComColumns)) to hoColumns
			Set pvComObject of hoColumns to voColumns
				Variant voColumn
				Get ComAdd of hoColumns 1 to voColumn
				Handle hoColumn
				Get Create (RefClass(cComColumn)) to hoColumn
				Set pvComObject of hoColumn to voColumn
					Set ComAlignment of hoColumn to OLELeftAlignment
				Send Destroy to hoColumn
			Send Destroy to hoColumns
			Variant voColumns1
			Get ComColumns of hoFaceTree to voColumns1
			Handle hoColumns1
			Get Create (RefClass(cComColumns)) to hoColumns1
			Set pvComObject of hoColumns1 to voColumns1
				Variant voColumn1
				Get ComAdd of hoColumns1 2 to voColumn1
				Handle hoColumn1
				Get Create (RefClass(cComColumn)) to hoColumn1
				Set pvComObject of hoColumn1 to voColumn1
					Set ComAlignment of hoColumn1 to OLELeftAlignment
				Send Destroy to hoColumn1
			Send Destroy to hoColumns1
			Variant voColumns2
			Get ComColumns of hoFaceTree to voColumns2
			Handle hoColumns2
			Get Create (RefClass(cComColumns)) to hoColumns2
			Set pvComObject of hoColumns2 to voColumns2
				Variant voColumn2
				Get ComAdd of hoColumns2 3 to voColumn2
				Handle hoColumn2
				Get Create (RefClass(cComColumn)) to hoColumn2
				Set pvComObject of hoColumn2 to voColumn2
					Set ComAlignment of hoColumn2 to OLELeftAlignment
				Send Destroy to hoColumn2
			Send Destroy to hoColumns2
			Variant voItems
			Get ComItems of hoFaceTree to voItems
			Handle hoItems
			Get Create (RefClass(cComItems)) to hoItems
			Set pvComObject of hoItems to voItems
				Set ComToString of hoItems to "Root 1;Root 2;Root 3(Child1.1;Child2.1;Child3.1(SubChild 1.1;SubChild 2.1;SubChild 3.1,SubChild 2.1;SubChild 2.2;SubChild 2.3),Child 1.2;Child 2.2;Child 3.2)"
			Send Destroy to hoItems
			Variant voItems1
			Get ComItems of hoFaceTree to voItems1
			Handle hoItems1
			Get Create (RefClass(cComItems)) to hoItems1
			Set pvComObject of hoItems1 to voItems1
				Send ComExpandAll of hoItems1
			Send Destroy to hoItems1
			Variant v
			Variant voItems2
			Get ComItems of hoFaceTree to voItems2
			Handle hoItems2
			Get Create (RefClass(cComItems)) to hoItems2
			Set pvComObject of hoItems2 to voItems2
				Variant voItem
				Get ComItem of hoItems2 0 to voItem
				Handle hoItem
				Get Create (RefClass(cComItem)) to hoItem
				Set pvComObject of hoItem to voItem
					Get ComToString of hoItem to v
				Send Destroy to hoItem
			Send Destroy to hoItems2
			Showln v
		Send Destroy to hoFaceTree
	Send Destroy to hoFace
End_Procedure

Procedure OnCreate
	Forward Send OnCreate
	Set ComTexturePicturePath to ""
	Variant voFace
	Get ComFrontFace to voFace
	Handle hoFace
	Get Create (RefClass(cComFace)) to hoFace
	Set pvComObject of hoFace to voFace
		Variant voFaceTree
		Get ComCreateTree of hoFace to voFaceTree
		Handle hoFaceTree
		Get Create (RefClass(cComFaceTree)) to hoFaceTree
		Set pvComObject of hoFaceTree to voFaceTree
			Set ComLinesAtRoot of hoFaceTree to OLEexLinesAtRoot
			Variant voColumns
			Get ComColumns of hoFaceTree to voColumns
			Handle hoColumns
			Get Create (RefClass(cComColumns)) to hoColumns
			Set pvComObject of hoColumns to voColumns
				Variant voColumn
				Get ComAdd of hoColumns "" to voColumn
				Handle hoColumn
				Get Create (RefClass(cComColumn)) to hoColumn
				Set pvComObject of hoColumn to voColumn
					Set ComAlignment of hoColumn to OLELeftAlignment
				Send Destroy to hoColumn
			Send Destroy to hoColumns
			Variant voItems
			Get ComItems of hoFaceTree to voItems
			Handle hoItems
			Get Create (RefClass(cComItems)) to hoItems
			Set pvComObject of hoItems to voItems
				Set ComCount of hoItems to 1
			Send Destroy to hoItems
			Variant voItems1
			Get ComItems of hoFaceTree to voItems1
			Handle hoItems1
			Get Create (RefClass(cComItems)) to hoItems1
			Set pvComObject of hoItems1 to voItems1
				Variant voItem
				Get ComItem of hoItems1 0 to voItem
				Handle hoItem
				Get Create (RefClass(cComItem)) to hoItem
				Set pvComObject of hoItem to voItem
					Set ComToString of hoItem to "Root(Child1(SubChild 1,SubChild 2),Child2)"
				Send Destroy to hoItem
			Send Destroy to hoItems1
			Variant voItems2
			Get ComItems of hoFaceTree to voItems2
			Handle hoItems2
			Get Create (RefClass(cComItems)) to hoItems2
			Set pvComObject of hoItems2 to voItems2
				Send ComExpandAll of hoItems2
			Send Destroy to hoItems2
			Variant v
			Variant voItems3
			Get ComItems of hoFaceTree to voItems3
			Handle hoItems3
			Get Create (RefClass(cComItems)) to hoItems3
			Set pvComObject of hoItems3 to voItems3
				Variant voItem1
				Get ComItem of hoItems3 0 to voItem1
				Handle hoItem1
				Get Create (RefClass(cComItem)) to hoItem1
				Set pvComObject of hoItem1 to voItem1
					Get ComToString of hoItem1 to v
				Send Destroy to hoItem1
			Send Destroy to hoItems3
			Showln v
		Send Destroy to hoFaceTree
	Send Destroy to hoFace
End_Procedure

Procedure OnCreate
	Forward Send OnCreate
	Set ComTexturePicturePath to ""
	Variant voFace
	Get ComFrontFace to voFace
	Handle hoFace
	Get Create (RefClass(cComFace)) to hoFace
	Set pvComObject of hoFace to voFace
		Variant voFaceTree
		Get ComCreateTree of hoFace to voFaceTree
		Handle hoFaceTree
		Get Create (RefClass(cComFaceTree)) to hoFaceTree
		Set pvComObject of hoFaceTree to voFaceTree
			Variant voColumns
			Get ComColumns of hoFaceTree to voColumns
			Handle hoColumns
			Get Create (RefClass(cComColumns)) to hoColumns
			Set pvComObject of hoColumns to voColumns
				Variant voColumn
				Get ComAdd of hoColumns "Pos" to voColumn
				Handle hoColumn
				Get Create (RefClass(cComColumn)) to hoColumn
				Set pvComObject of hoColumn to voColumn
					Set ComFormatColumn of hoColumn to "1 pos ``"
				Send Destroy to hoColumn
			Send Destroy to hoColumns
			Variant voItems
			Get ComItems of hoFaceTree to voItems
			Handle hoItems
			Get Create (RefClass(cComItems)) to hoItems
			Set pvComObject of hoItems to voItems
				Variant v
					Variant voFace1
					Get ComFrontFace to voFace1
					Handle hoFace1
					Get Create (RefClass(cComFace)) to hoFace1
					Set pvComObject of hoFace1 to voFace1
						Variant voFaceTree1
						Get ComFaceTree of hoFace1 to voFaceTree1
						Handle hoFaceTree1
						Get Create (RefClass(cComFaceTree)) to hoFaceTree1
						Set pvComObject of hoFaceTree1 to voFaceTree1
							Get ComVisibleItemsCount of hoFaceTree1 to v
						Send Destroy to hoFaceTree1
					Send Destroy to hoFace1
				Set ComCount of hoItems to v
			Send Destroy to hoItems
		Send Destroy to hoFaceTree
	Send Destroy to hoFace
End_Procedure

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Set ComTexturePicturePath to ""
	Set ComHTMLPicture "P1" to "c:\exontrol\images\zipdisk.gif"
	Set ComHTMLPicture "P2" to "c:\exontrol\images\auction.gif"
	Set ComHTMLPicture "P3" to "c:\exontrol\images\colorize.gif"
	Set ComHTMLPicture "P4" to "c:\exontrol\images\auction.gif"
	Variant voFace
	Get ComFrontFace to voFace
	Handle hoFace
	Get Create (RefClass(cComFace)) to hoFace
	Set pvComObject of hoFace to voFace
		Variant voFaceTree
		Get ComCreateTree of hoFace to voFaceTree
		Handle hoFaceTree
		Get Create (RefClass(cComFaceTree)) to hoFaceTree
		Set pvComObject of hoFaceTree to voFaceTree
			Variant voColumns
			Get ComColumns of hoFaceTree to voColumns
			Handle hoColumns
			Get Create (RefClass(cComColumns)) to hoColumns
			Set pvComObject of hoColumns to voColumns
				Variant voColumn
				Get ComAdd of hoColumns "Default" to voColumn
				Handle hoColumn
				Get Create (RefClass(cComColumn)) to hoColumn
				Set pvComObject of hoColumn to voColumn
					Set ComAlignment of hoColumn to OLELeftAlignment
				Send Destroy to hoColumn
			Send Destroy to hoColumns
			Variant voItems
			Get ComItems of hoFaceTree to voItems
			Handle hoItems
			Get Create (RefClass(cComItems)) to hoItems
			Set pvComObject of hoItems to voItems
				Variant voItem
				Get ComAdd of hoItems "Choose your quick actions" to voItem
				Handle hoItem
				Get Create (RefClass(cComItem)) to hoItem
				Set pvComObject of hoItem to voItem
					Set ComSingleLine of hoItem 0 to False
					Variant voItems1
					Get ComItems of hoItem to voItems1
					Handle hoItems1
					Get Create (RefClass(cComItems)) to hoItems1
					Set pvComObject of hoItems1 to voItems1
						Variant voItem1
						Get ComAdd of hoItems1 "" to voItem1
						Handle hoItem1
						Get Create (RefClass(cComItem)) to hoItem1
						Set pvComObject of hoItem1 to voItem1
							Set ComHeight of hoItem1 to 48
							Variant s
							Move 0 to s
							Set ComValue of hoItem1 s to "<c><img>P1</img>"
							Set ComCellWidth of hoItem1 s to 48
							Set ComHasButton of hoItem1 s to True
							Get ComSplitCell of hoItem1 s to s
							Set ComValue of hoItem1 s to "<c><img>P2</img>"
							Set ComCellWidth of hoItem1 s to 48
							Set ComHasButton of hoItem1 s to True
							Get ComSplitCell of hoItem1 s to s
							Set ComValue of hoItem1 s to "<c><img>P3</img>"
							Set ComCellWidth of hoItem1 s to 48
							Set ComHasButton of hoItem1 s to True
							Get ComSplitCell of hoItem1 s to s
							Set ComValue of hoItem1 s to "<c><img>P4</img>"
							Set ComCellWidth of hoItem1 s to 48
							Set ComHasButton of hoItem1 s to True
							Get ComSplitCell of hoItem1 s to s
						Send Destroy to hoItem1
					Send Destroy to hoItems1
					Set ComExpanded of hoItem to True
				Send Destroy to hoItem
			Send Destroy to hoItems
		Send Destroy to hoFaceTree
	Send Destroy to hoFace
	Send ComEndUpdate
End_Procedure

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Set ComTexturePicturePath to ""
	Variant voFace
	Get ComFrontFace to voFace
	Handle hoFace
	Get Create (RefClass(cComFace)) to hoFace
	Set pvComObject of hoFace to voFace
		Variant voFaceCalendar
		Get ComCreateCalendar of hoFace to voFaceCalendar
		Handle hoFaceCalendar
		Get Create (RefClass(cComFaceCalendar)) to hoFaceCalendar
		Set pvComObject of hoFaceCalendar to voFaceCalendar
			Set ComAutoSize of hoFaceCalendar to OLEexFitClient
			Set ComMaxMonthX of hoFaceCalendar to (ComMinMonthX(hoFaceCalendar))
			Set ComMaxMonthY of hoFaceCalendar to (ComMinMonthY(hoFaceCalendar))
			Set ComShowTodayButton of hoFaceCalendar to False
		Send Destroy to hoFaceCalendar
		Set ComExtraTitle of hoFace "extra" OLEexTitleFaceBackColor to 15790320
		Set ComExtraTitle of hoFace "extra" OLEexTitleFaceHeight to "height"
		Set ComExtraTitle of hoFace "extra" OLEexTitleFaceVisible to 1
	Send Destroy to hoFace
	Send ComEndUpdate
End_Procedure

Procedure OnCreate
	Forward Send OnCreate
	Set ComTexturePicturePath to ""
	Send ComBeginUpdate
	Variant voAppearance
	Get ComVisualAppearance to voAppearance
	Handle hoAppearance
	Get Create (RefClass(cComAppearance)) to hoAppearance
	Set pvComObject of hoAppearance to voAppearance
		Get ComAdd of hoAppearance 1 "gBFLBCJwBAEHhEJAADhABDgCg6AADACAxRDAMgBQKAAzQFAYaBsHCGAAGMZRZgmFgAQhFcZQSKUOQTDKMIziaQIRDINQlSTJcQjKKEUQTFiXIyAKKwEgmEQMQiCcbzXIUBxAAqXZZFUaKAgOMJDTLBAzUSAAYhtHqeJBjID4JA6UJXRpIAIQSSBUjGOg6TiMUYZAguAxCEzZUT0fAYUQSCC3ZzDCKoRpiCT7Xg8V5OVbjUz9P7AMBwLA7erxap6PJeD54QymGp/R5eMhyLI8UxXFqRY6veKtJhGDIrT5CEIQVA9EyXJqnahqOiaCguPorQy/dYYdg2BYBPS6MAvG4bVrOd59XrgN42fY2ByzAqlMQwS7rOqiY6YWTnehWToHE+JZUmoLB5CufQuAkBYkGO+ZrDWAo7keZZyHmH5+i8X4bluaJyHgGB9mQHx3JjBpViqJRHmueZ7H8Xo3i2fYAl+d5tncMRfDcdZeDMDIjCCJwokoEoQiEJ4KCIfIdgUSZIAWaoGCEUh2BIJ4gnKBgMDICAnHoCggg0Aw4k0KAJkIagaguYwIj4LAmiKEw2CUIIiHMUJSDQSYyGCFYMGQCJCD0JRjiMRg3gmTYjGSVgmgkchSD4JJklIRIXCSSQYj4U4UgkQhGE+EwJEkJJWhGpgGGIOBNmMdhPg8SRiHCGAlibNhohqJpJi4T4ZA2WYIgEYInGOGJlDkCQyECDoTEkKQ+E+C5oCIVhQCUCQpnSDoeg4SZZH8YdhjibQ7AiUgkgcJFyiyEYmGmOhqhyJ5pmILoYCKaRSB6Eg7CcZgZggaRqHqNoTiuDpKkKMormsQ4xiUYgYiKEo6CCWgWiqPovloZoGjoKQYiOLR1ECUAQIC" to Nothing
		Get ComAdd of hoAppearance 2 "gBFLBCJwBAEHhEJAADhABDwCg6AADACAxRDAMgBQKAAzQFAYaBsHCGAAGMZRZgmFgAQhFcZQSKUOQTDKMIziaQIRDINQlSTJcQjKKEUQTFiXIyAKKwEgmEQMQiCcbzXIUBxAAqXZZFUaKAgOMJDTLBAzUSAAYhtHqeJBjID4JA6UJXRpIAIQSSBUjGOg6TiMUYZAguAxCEzZUT0fAYUQSCC3ZzDCKoRpiCT7Xg8V5OVbjUz9P7AMBwLA7erxap6PJeD54QymGp/R5eMhyLI8UxXFqRY6veKtJhGDIrT5CEIQVA9EyXJqnahqOiaCguPorQy/dYYdg2BYBPS6MAvG4bVrOd59XrgN42fY2ByzAqlMQwS7rOqiY6YWTnehWToHE+JZUmoLB5CufQuAkBYkGO+ZrDWAo7keZZyHmPQ+g8X4fluYBhneEB9l0Iwpg6RRWiqFQfg+V5nnefh/GAB5yAIfRMFeRZdHeDJDCiSApkoMoEiQKBJmKCIfCcYQiHIFYFkmeBaBOA5JmgsICEyAgJl6AZICMQJODMSgCHCGg/mKSI2C6C5jAiNgpCaIhjDYIggiIQxQlINBJjIYIVgwZAJAYPQlGOIxGDeCQNiMZJWCaCRyFIPgkmSUhEhcJJlCkUhThUZQiFCEYTmSQhSEkNYkHYBIBhiTgTHiXYTmOUhYhwJgJGmJhuhsJoZi4bYbCSeYUl2GJIBYCh4DmDhThCEwkAiaQ0hKE5oEIVITiEaB6BqAofkiaZwmSHgXnYGh4DuDpTjCDQiEgchAg0IpJBobodicKZqgaIAimmIguhcIZpEOMh4GGGIGhaKYrmkWpAmyLIrEqRo2DsGhWCGCgpCuQgNiEaosAsBYmGga5ChGCg6lcVANAEgI" to Nothing
	Send Destroy to hoAppearance
	Set ComBackground OLEexTreeGlyphCollapsed to |CI$1000000
	Set ComBackground OLEexTreeGlyphExpanded to |CI$2000000
	Variant voFace
	Get ComFrontFace to voFace
	Handle hoFace
	Get Create (RefClass(cComFace)) to hoFace
	Set pvComObject of hoFace to voFace
		Variant voFaceTree
		Get ComCreateTree of hoFace to voFaceTree
		Handle hoFaceTree
		Get Create (RefClass(cComFaceTree)) to hoFaceTree
		Set pvComObject of hoFaceTree to voFaceTree
			Set ComExpandOnDblClick of hoFaceTree to True
			Set ComItemPadding of hoFaceTree to 16
			Set ComHeaderVisible of hoFaceTree to False
			Set ComHasLines of hoFaceTree to OLEexThinLine
			Set ComLinesAtRoot of hoFaceTree to OLEexGroupLinesInside
			Set ComDrawGridLines of hoFaceTree to OLEexRowLines
			Variant voColumns
			Get ComColumns of hoFaceTree to voColumns
			Handle hoColumns
			Get Create (RefClass(cComColumns)) to hoColumns
			Set pvComObject of hoColumns to voColumns
				Variant voColumn
				Get ComAdd of hoColumns "Def" to voColumn
				Handle hoColumn
				Get Create (RefClass(cComColumn)) to hoColumn
				Set pvComObject of hoColumn to voColumn
					Set ComAlignment of hoColumn to OLELeftAlignment
				Send Destroy to hoColumn
			Send Destroy to hoColumns
			Variant voItems
			Get ComItems of hoFaceTree to voItems
			Handle hoItems
			Get Create (RefClass(cComItems)) to hoItems
			Set pvComObject of hoItems to voItems
				Set ComToString of hoItems to "Root 1(Child 1,Child 2),Root 2(Child 3,Child 4)"
			Send Destroy to hoItems
			Variant voItem
			Get ComItemByIndex of hoFaceTree 3 to voItem
			Handle hoItem
			Get Create (RefClass(cComItem)) to hoItem
			Set pvComObject of hoItem to voItem
				Set ComExpanded of hoItem to True
			Send Destroy to hoItem
		Send Destroy to hoFaceTree
	Send Destroy to hoFace
	Send ComEndUpdate
End_Procedure

Procedure OnCreate
	Forward Send OnCreate
	Set ComTexturePicturePath to ""
	Variant voFace
	Get ComFrontFace to voFace
	Handle hoFace
	Get Create (RefClass(cComFace)) to hoFace
	Set pvComObject of hoFace to voFace
		Variant voFaceTree
		Get ComCreateTree of hoFace to voFaceTree
		Handle hoFaceTree
		Get Create (RefClass(cComFaceTree)) to hoFaceTree
		Set pvComObject of hoFaceTree to voFaceTree
			Set ComDrawGridLines of hoFaceTree to OLEexRowLines
			Variant voColumns
			Get ComColumns of hoFaceTree to voColumns
			Handle hoColumns
			Get Create (RefClass(cComColumns)) to hoColumns
			Set pvComObject of hoColumns to voColumns
				Set ComToString of hoColumns to "Column 1,Column 2,Column 3,Column 4"
			Send Destroy to hoColumns
			Variant voItems
			Get ComItems of hoFaceTree to voItems
			Handle hoItems
			Get Create (RefClass(cComItems)) to hoItems
			Set pvComObject of hoItems to voItems
				Set ComToString of hoItems to "1;2;3;4,5;6;7;8,9;10;11;12,13;14;15;16,17;18;29;20,21;22;23;24,25;26;27;28,29;30;31;32"
			Send Destroy to hoItems
		Send Destroy to hoFaceTree
	Send Destroy to hoFace
End_Procedure

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Variant voAppearance
	Get ComVisualAppearance to voAppearance
	Handle hoAppearance
	Get Create (RefClass(cComAppearance)) to hoAppearance
	Set pvComObject of hoAppearance to voAppearance
		Get ComAdd of hoAppearance 1 "C:\Program Files\Exontrol\ExButton\Sample\EBN\Assorted\calendar_single.ebn" to Nothing
	Send Destroy to hoAppearance
	Set ComBackground OLEexDateHeader to |CI$1000000
	Set ComBackground OLEexWeeksHeader to (RGB(250,250,250))
	Set ComBackground OLEexDaysHeader to (RGB(250,250,250))
	Set ComBackground OLEexDateTodayUp to |CI$2000000
	Set ComBackground OLEexDateTodayForeColor to (RGB(255,255,255))
	Set ComTexturePicturePath to ""
	Variant voFace
	Get ComFrontFace to voFace
	Handle hoFace
	Get Create (RefClass(cComFace)) to hoFace
	Set pvComObject of hoFace to voFace
		Variant voFaceCalendar
		Get ComCreateCalendar of hoFace to voFaceCalendar
		Handle hoFaceCalendar
		Get Create (RefClass(cComFaceCalendar)) to hoFaceCalendar
		Set pvComObject of hoFaceCalendar to voFaceCalendar
			Set ComDate of hoFaceCalendar to "1/1/2016"
			Set ComAutoSize of hoFaceCalendar to OLEexFitClient
			Set ComMaxMonthX of hoFaceCalendar to (ComMinMonthX(hoFaceCalendar))
			Set ComMaxMonthY of hoFaceCalendar to (ComMinMonthY(hoFaceCalendar))
		Send Destroy to hoFaceCalendar
	Send Destroy to hoFace
	Send ComEndUpdate
End_Procedure

// Notifies that a cell changes its state into a face of tree type.
Procedure OnComFaceTreeStateChanged Variant   llTree Integer   llItem Integer   llColumn
	Forward Send OnComFaceTreeStateChanged llTree llItem llColumn
	Variant voFace
	Get ComFrontFace to voFace
	Handle hoFace
	Get Create (RefClass(cComFace)) to hoFace
	Set pvComObject of hoFace to voFace
		Variant voFaceTree
		Get ComFaceTree of hoFace to voFaceTree
		Handle hoFaceTree
		Get Create (RefClass(cComFaceTree)) to hoFaceTree
		Set pvComObject of hoFaceTree to voFaceTree
			Variant voItem
			Get ComItemByIndex of hoFaceTree llItem to voItem
			Handle hoItem
			Get Create (RefClass(cComItem)) to hoItem
			Set pvComObject of hoItem to voItem
				Showln "State" (ComState(hoItem,0))
			Send Destroy to hoItem
		Send Destroy to hoFaceTree
	Send Destroy to hoFace
End_Procedure

Procedure OnCreate
	Forward Send OnCreate
	Set ComTexturePicturePath to ""
	Variant voFace1
	Get ComFrontFace to voFace1
	Handle hoFace1
	Get Create (RefClass(cComFace)) to hoFace1
	Set pvComObject of hoFace1 to voFace1
		Variant voFaceTree1
		Get ComCreateTree of hoFace1 to voFaceTree1
		Handle hoFaceTree1
		Get Create (RefClass(cComFaceTree)) to hoFaceTree1
		Set pvComObject of hoFaceTree1 to voFaceTree1
			Set ComHeaderVisible of hoFaceTree1 to False
			Set ComItemPadding of hoFaceTree1 to 16
			Set ComDrawGridLines of hoFaceTree1 to OLEexNoLines
			Variant voColumns
			Get ComColumns of hoFaceTree1 to voColumns
			Handle hoColumns
			Get Create (RefClass(cComColumns)) to hoColumns
			Set pvComObject of hoColumns to voColumns
				Variant voColumn
				Get ComAdd of hoColumns "Radio" to voColumn
				Handle hoColumn
				Get Create (RefClass(cComColumn)) to hoColumn
				Set pvComObject of hoColumn to voColumn
					Set ComAlignment of hoColumn to OLELeftAlignment
				Send Destroy to hoColumn
			Send Destroy to hoColumns
			Variant voItems
			Get ComItems of hoFaceTree1 to voItems
			Handle hoItems
			Get Create (RefClass(cComItems)) to hoItems
			Set pvComObject of hoItems to voItems
				Variant voItem1
				Get ComAdd of hoItems "Group A" to voItem1
				Handle hoItem1
				Get Create (RefClass(cComItem)) to hoItem1
				Set pvComObject of hoItem1 to voItem1
					Variant voItems1
					Get ComItems of hoItem1 to voItems1
					Handle hoItems1
					Get Create (RefClass(cComItems)) to hoItems1
					Set pvComObject of hoItems1 to voItems1
						Variant voItem2
						Get ComAdd of hoItems1 "Radio <b>1" to voItem2
						Handle hoItem2
						Get Create (RefClass(cComItem)) to hoItem2
						Set pvComObject of hoItem2 to voItem2
							Set ComHasRadioButton of hoItem2 0 to True
							Set ComRadioGroup of hoItem2 0 to 1234
						Send Destroy to hoItem2
						Variant voItem3
						Get ComAdd of hoItems1 "Radio <b>2" to voItem3
						Handle hoItem3
						Get Create (RefClass(cComItem)) to hoItem3
						Set pvComObject of hoItem3 to voItem3
							Set ComHasRadioButton of hoItem3 0 to True
							Set ComRadioGroup of hoItem3 0 to 1234
							Set ComState of hoItem3 0 to 1
						Send Destroy to hoItem3
						Variant voItem4
						Get ComAdd of hoItems1 "Radio <b>3" to voItem4
						Handle hoItem4
						Get Create (RefClass(cComItem)) to hoItem4
						Set pvComObject of hoItem4 to voItem4
							Set ComHasRadioButton of hoItem4 0 to True
							Set ComRadioGroup of hoItem4 0 to 1234
						Send Destroy to hoItem4
					Send Destroy to hoItems1
					Set ComExpanded of hoItem1 to True
				Send Destroy to hoItem1
				Variant voItem5
				Get ComAdd of hoItems "Group B" to voItem5
				Handle hoItem5
				Get Create (RefClass(cComItem)) to hoItem5
				Set pvComObject of hoItem5 to voItem5
					Variant voItems2
					Get ComItems of hoItem5 to voItems2
					Handle hoItems2
					Get Create (RefClass(cComItems)) to hoItems2
					Set pvComObject of hoItems2 to voItems2
						Variant voItem6
						Get ComAdd of hoItems2 "Radio <b>1" to voItem6
						Handle hoItem6
						Get Create (RefClass(cComItem)) to hoItem6
						Set pvComObject of hoItem6 to voItem6
							Set ComHasRadioButton of hoItem6 0 to True
							Set ComRadioGroup of hoItem6 0 to 1235
						Send Destroy to hoItem6
						Variant voItem7
						Get ComAdd of hoItems2 "Radio <b>2" to voItem7
						Handle hoItem7
						Get Create (RefClass(cComItem)) to hoItem7
						Set pvComObject of hoItem7 to voItem7
							Set ComHasRadioButton of hoItem7 0 to True
							Set ComRadioGroup of hoItem7 0 to 1235
						Send Destroy to hoItem7
						Variant voItem8
						Get ComAdd of hoItems2 "Radio <b>3" to voItem8
						Handle hoItem8
						Get Create (RefClass(cComItem)) to hoItem8
						Set pvComObject of hoItem8 to voItem8
							Set ComHasRadioButton of hoItem8 0 to True
							Set ComRadioGroup of hoItem8 0 to 1235
							Set ComState of hoItem8 0 to 1
						Send Destroy to hoItem8
					Send Destroy to hoItems2
					Set ComExpanded of hoItem5 to True
				Send Destroy to hoItem5
			Send Destroy to hoItems
		Send Destroy to hoFaceTree1
	Send Destroy to hoFace1
End_Procedure

// Notifies that a cell changes its state into a face of tree type.
Procedure OnComFaceTreeStateChanged Variant   llTree Integer   llItem Integer   llColumn
	Forward Send OnComFaceTreeStateChanged llTree llItem llColumn
	Variant voFace
	Get ComFrontFace to voFace
	Handle hoFace
	Get Create (RefClass(cComFace)) to hoFace
	Set pvComObject of hoFace to voFace
		Variant voFaceTree
		Get ComFaceTree of hoFace to voFaceTree
		Handle hoFaceTree
		Get Create (RefClass(cComFaceTree)) to hoFaceTree
		Set pvComObject of hoFaceTree to voFaceTree
			Variant voItem
			Get ComItemByIndex of hoFaceTree llItem to voItem
			Handle hoItem
			Get Create (RefClass(cComItem)) to hoItem
			Set pvComObject of hoItem to voItem
				Showln "State" (ComState(hoItem,0))
			Send Destroy to hoItem
		Send Destroy to hoFaceTree
	Send Destroy to hoFace
End_Procedure

Procedure OnCreate
	Forward Send OnCreate
	Set ComTexturePicturePath to ""
	Variant voFace1
	Get ComFrontFace to voFace1
	Handle hoFace1
	Get Create (RefClass(cComFace)) to hoFace1
	Set pvComObject of hoFace1 to voFace1
		Variant voFaceTree1
		Get ComCreateTree of hoFace1 to voFaceTree1
		Handle hoFaceTree1
		Get Create (RefClass(cComFaceTree)) to hoFaceTree1
		Set pvComObject of hoFaceTree1 to voFaceTree1
			Set ComHeaderVisible of hoFaceTree1 to False
			Set ComItemPadding of hoFaceTree1 to 16
			Set ComDrawGridLines of hoFaceTree1 to OLEexNoLines
			Variant voColumns
			Get ComColumns of hoFaceTree1 to voColumns
			Handle hoColumns
			Get Create (RefClass(cComColumns)) to hoColumns
			Set pvComObject of hoColumns to voColumns
				Variant voColumn
				Get ComAdd of hoColumns "Check" to voColumn
				Handle hoColumn
				Get Create (RefClass(cComColumn)) to hoColumn
				Set pvComObject of hoColumn to voColumn
					Set ComAlignment of hoColumn to OLELeftAlignment
				Send Destroy to hoColumn
			Send Destroy to hoColumns
			Variant voItems
			Get ComItems of hoFaceTree1 to voItems
			Handle hoItems
			Get Create (RefClass(cComItems)) to hoItems
			Set pvComObject of hoItems to voItems
				Variant voItem1
				Get ComAdd of hoItems "Check <b>1" to voItem1
				Handle hoItem1
				Get Create (RefClass(cComItem)) to hoItem1
				Set pvComObject of hoItem1 to voItem1
					Set ComHasCheckBox of hoItem1 0 to True
				Send Destroy to hoItem1
				Variant voItem2
				Get ComAdd of hoItems "Check <b>2" to voItem2
				Handle hoItem2
				Get Create (RefClass(cComItem)) to hoItem2
				Set pvComObject of hoItem2 to voItem2
					Set ComHasCheckBox of hoItem2 0 to True
				Send Destroy to hoItem2
				Variant voItem3
				Get ComAdd of hoItems "Check <b>3" to voItem3
				Handle hoItem3
				Get Create (RefClass(cComItem)) to hoItem3
				Set pvComObject of hoItem3 to voItem3
					Set ComHasCheckBox of hoItem3 0 to True
					Set ComState of hoItem3 0 to 1
				Send Destroy to hoItem3
				Variant voItem4
				Get ComAdd of hoItems "Check <b>4" to voItem4
				Handle hoItem4
				Get Create (RefClass(cComItem)) to hoItem4
				Set pvComObject of hoItem4 to voItem4
					Set ComHasCheckBox of hoItem4 0 to True
				Send Destroy to hoItem4
			Send Destroy to hoItems
		Send Destroy to hoFaceTree1
	Send Destroy to hoFace1
End_Procedure

// Notifies that the user selects a new item/column into a face of tree type.
Procedure OnComFaceTreeSelectionChanged Variant   llTree
	Forward Send OnComFaceTreeSelectionChanged llTree
	Variant v
	Variant voFace
	Get ComFrontFace to voFace
	Handle hoFace
	Get Create (RefClass(cComFace)) to hoFace
	Set pvComObject of hoFace to voFace
		Variant voFaceTree
		Get ComFaceTree of hoFace to voFaceTree
		Handle hoFaceTree
		Get Create (RefClass(cComFaceTree)) to hoFaceTree
		Set pvComObject of hoFaceTree to voFaceTree
			Get ComValue of hoFaceTree to v
		Send Destroy to hoFaceTree
	Send Destroy to hoFace
	Showln "Value" v
	Variant v1
	Variant voFace1
	Get ComFrontFace to voFace1
	Handle hoFace1
	Get Create (RefClass(cComFace)) to hoFace1
	Set pvComObject of hoFace1 to voFace1
		Variant voFaceTree1
		Get ComFaceTree of hoFace1 to voFaceTree1
		Handle hoFaceTree1
		Get Create (RefClass(cComFaceTree)) to hoFaceTree1
		Set pvComObject of hoFaceTree1 to voFaceTree1
			Get ComCaption of hoFaceTree1 to v1
		Send Destroy to hoFaceTree1
	Send Destroy to hoFace1
	Showln "Caption" v1
End_Procedure

Procedure OnCreate
	Forward Send OnCreate
	Set ComTexturePicturePath to ""
	Variant voFace2
	Get ComFrontFace to voFace2
	Handle hoFace2
	Get Create (RefClass(cComFace)) to hoFace2
	Set pvComObject of hoFace2 to voFace2
		Variant voFaceTree2
		Get ComCreateTree of hoFace2 to voFaceTree2
		Handle hoFaceTree2
		Get Create (RefClass(cComFaceTree)) to hoFaceTree2
		Set pvComObject of hoFaceTree2 to voFaceTree2
			Set ComItemPadding of hoFaceTree2 to 20
			Variant voColumns
			Get ComColumns of hoFaceTree2 to voColumns
			Handle hoColumns
			Get Create (RefClass(cComColumns)) to hoColumns
			Set pvComObject of hoColumns to voColumns
				Set ComCount of hoColumns to 5
			Send Destroy to hoColumns
			Set ComHeaderVisible of hoFaceTree2 to False
			Variant voItems
			Get ComItems of hoFaceTree2 to voItems
			Handle hoItems
			Get Create (RefClass(cComItems)) to hoItems
			Set pvComObject of hoItems to voItems
				Variant v2
					Variant voFace3
					Get ComFrontFace to voFace3
					Handle hoFace3
					Get Create (RefClass(cComFace)) to hoFace3
					Set pvComObject of hoFace3 to voFace3
						Variant voFaceTree3
						Get ComFaceTree of hoFace3 to voFaceTree3
						Handle hoFaceTree3
						Get Create (RefClass(cComFaceTree)) to hoFaceTree3
						Set pvComObject of hoFaceTree3 to voFaceTree3
							Get ComVisibleItemsCount of hoFaceTree3 to v2
						Send Destroy to hoFaceTree3
					Send Destroy to hoFace3
				Set ComCount of hoItems to v2
			Send Destroy to hoItems
			Variant voColumns1
			Get ComColumns of hoFaceTree2 to voColumns1
			Handle hoColumns1
			Get Create (RefClass(cComColumns)) to hoColumns1
			Set pvComObject of hoColumns1 to voColumns1
				Variant voColumn
				Get ComItem of hoColumns1 0 to voColumn
				Handle hoColumn
				Get Create (RefClass(cComColumn)) to hoColumn
				Set pvComObject of hoColumn to voColumn
					Set ComFormatColumn of hoColumn to "(0:=(1989 + 5 * (0 index ``))) = 2016 ? `<b><sha ;;0>` + =:0 + `</b>` : =:0"
				Send Destroy to hoColumn
			Send Destroy to hoColumns1
			Variant voColumns2
			Get ComColumns of hoFaceTree2 to voColumns2
			Handle hoColumns2
			Get Create (RefClass(cComColumns)) to hoColumns2
			Set pvComObject of hoColumns2 to voColumns2
				Variant voColumn1
				Get ComItem of hoColumns2 1 to voColumn1
				Handle hoColumn1
				Get Create (RefClass(cComColumn)) to hoColumn1
				Set pvComObject of hoColumn1 to voColumn1
					Set ComFormatColumn of hoColumn1 to "(0:=(1990 + 5 * (0 index ``))) = 2016 ? `<b><sha ;;0>` + =:0 + `</b>` : =:0"
				Send Destroy to hoColumn1
			Send Destroy to hoColumns2
			Variant voColumns3
			Get ComColumns of hoFaceTree2 to voColumns3
			Handle hoColumns3
			Get Create (RefClass(cComColumns)) to hoColumns3
			Set pvComObject of hoColumns3 to voColumns3
				Variant voColumn2
				Get ComItem of hoColumns3 2 to voColumn2
				Handle hoColumn2
				Get Create (RefClass(cComColumn)) to hoColumn2
				Set pvComObject of hoColumn2 to voColumn2
					Set ComFormatColumn of hoColumn2 to "(0:=(1991 + 5 * (0 index ``))) = 2016 ? `<b><sha ;;0>` + =:0 + `</b>` : =:0"
				Send Destroy to hoColumn2
			Send Destroy to hoColumns3
			Variant voColumns4
			Get ComColumns of hoFaceTree2 to voColumns4
			Handle hoColumns4
			Get Create (RefClass(cComColumns)) to hoColumns4
			Set pvComObject of hoColumns4 to voColumns4
				Variant voColumn3
				Get ComItem of hoColumns4 3 to voColumn3
				Handle hoColumn3
				Get Create (RefClass(cComColumn)) to hoColumn3
				Set pvComObject of hoColumn3 to voColumn3
					Set ComFormatColumn of hoColumn3 to "(0:=(1992 + 5 * (0 index ``))) = 2016 ? `<b><sha ;;0>` + =:0 + `</b>` : =:0"
				Send Destroy to hoColumn3
			Send Destroy to hoColumns4
			Variant voColumns5
			Get ComColumns of hoFaceTree2 to voColumns5
			Handle hoColumns5
			Get Create (RefClass(cComColumns)) to hoColumns5
			Set pvComObject of hoColumns5 to voColumns5
				Variant voColumn4
				Get ComItem of hoColumns5 4 to voColumn4
				Handle hoColumn4
				Get Create (RefClass(cComColumn)) to hoColumn4
				Set pvComObject of hoColumn4 to voColumn4
					Set ComFormatColumn of hoColumn4 to "(0:=(1993 + 5 * (0 index ``))) = 2016 ? `<b><sha ;;0>` + =:0 + `</b>` : =:0"
				Send Destroy to hoColumn4
			Send Destroy to hoColumns5
		Send Destroy to hoFaceTree2
	Send Destroy to hoFace2
End_Procedure

// Notifies that the user selects a new item/column into a face of tree type.
Procedure OnComFaceTreeSelectionChanged Variant   llTree
	Forward Send OnComFaceTreeSelectionChanged llTree
	Variant v
	Variant voFace
	Get ComFrontFace to voFace
	Handle hoFace
	Get Create (RefClass(cComFace)) to hoFace
	Set pvComObject of hoFace to voFace
		Variant voFaceTree
		Get ComFaceTree of hoFace to voFaceTree
		Handle hoFaceTree
		Get Create (RefClass(cComFaceTree)) to hoFaceTree
		Set pvComObject of hoFaceTree to voFaceTree
			Get ComValue of hoFaceTree to v
		Send Destroy to hoFaceTree
	Send Destroy to hoFace
	Showln "Value" v
	Variant v1
	Variant voFace1
	Get ComFrontFace to voFace1
	Handle hoFace1
	Get Create (RefClass(cComFace)) to hoFace1
	Set pvComObject of hoFace1 to voFace1
		Variant voFaceTree1
		Get ComFaceTree of hoFace1 to voFaceTree1
		Handle hoFaceTree1
		Get Create (RefClass(cComFaceTree)) to hoFaceTree1
		Set pvComObject of hoFaceTree1 to voFaceTree1
			Get ComCaption of hoFaceTree1 to v1
		Send Destroy to hoFaceTree1
	Send Destroy to hoFace1
	Showln "Caption" v1
End_Procedure

Procedure OnCreate
	Forward Send OnCreate
	Set ComTexturePicturePath to ""
	Variant voFace2
	Get ComFrontFace to voFace2
	Handle hoFace2
	Get Create (RefClass(cComFace)) to hoFace2
	Set pvComObject of hoFace2 to voFace2
		Variant voFaceTree2
		Get ComCreateTree of hoFace2 to voFaceTree2
		Handle hoFaceTree2
		Get Create (RefClass(cComFaceTree)) to hoFaceTree2
		Set pvComObject of hoFaceTree2 to voFaceTree2
			Set ComItemPadding of hoFaceTree2 to 20
			Variant voColumns
			Get ComColumns of hoFaceTree2 to voColumns
			Handle hoColumns
			Get Create (RefClass(cComColumns)) to hoColumns
			Set pvComObject of hoColumns to voColumns
				Set ComCount of hoColumns to 5
			Send Destroy to hoColumns
			Set ComHeaderVisible of hoFaceTree2 to False
			Variant voItems
			Get ComItems of hoFaceTree2 to voItems
			Handle hoItems
			Get Create (RefClass(cComItems)) to hoItems
			Set pvComObject of hoItems to voItems
				Variant v2
					Variant voFace3
					Get ComFrontFace to voFace3
					Handle hoFace3
					Get Create (RefClass(cComFace)) to hoFace3
					Set pvComObject of hoFace3 to voFace3
						Variant voFaceTree3
						Get ComFaceTree of hoFace3 to voFaceTree3
						Handle hoFaceTree3
						Get Create (RefClass(cComFaceTree)) to hoFaceTree3
						Set pvComObject of hoFaceTree3 to voFaceTree3
							Get ComVisibleItemsCount of hoFaceTree3 to v2
						Send Destroy to hoFaceTree3
					Send Destroy to hoFace3
				Set ComCount of hoItems to v2
			Send Destroy to hoItems
			Variant voColumns1
			Get ComColumns of hoFaceTree2 to voColumns1
			Handle hoColumns1
			Get Create (RefClass(cComColumns)) to hoColumns1
			Set pvComObject of hoColumns1 to voColumns1
				Variant voColumn
				Get ComItem of hoColumns1 0 to voColumn
				Handle hoColumn
				Get Create (RefClass(cComColumn)) to hoColumn
				Set pvComObject of hoColumn to voColumn
					Set ComFormatColumn of hoColumn to "(0:=(1989 + 5 * (0 index ``))) = 2016 ? `<b><sha ;;0>` + =:0 + `</b>` : =:0"
				Send Destroy to hoColumn
			Send Destroy to hoColumns1
			Variant voColumns2
			Get ComColumns of hoFaceTree2 to voColumns2
			Handle hoColumns2
			Get Create (RefClass(cComColumns)) to hoColumns2
			Set pvComObject of hoColumns2 to voColumns2
				Variant voColumn1
				Get ComItem of hoColumns2 1 to voColumn1
				Handle hoColumn1
				Get Create (RefClass(cComColumn)) to hoColumn1
				Set pvComObject of hoColumn1 to voColumn1
					Set ComFormatColumn of hoColumn1 to "(0:=(1990 + 5 * (0 index ``))) = 2016 ? `<b><sha ;;0>` + =:0 + `</b>` : =:0"
				Send Destroy to hoColumn1
			Send Destroy to hoColumns2
			Variant voColumns3
			Get ComColumns of hoFaceTree2 to voColumns3
			Handle hoColumns3
			Get Create (RefClass(cComColumns)) to hoColumns3
			Set pvComObject of hoColumns3 to voColumns3
				Variant voColumn2
				Get ComItem of hoColumns3 2 to voColumn2
				Handle hoColumn2
				Get Create (RefClass(cComColumn)) to hoColumn2
				Set pvComObject of hoColumn2 to voColumn2
					Set ComFormatColumn of hoColumn2 to "(0:=(1991 + 5 * (0 index ``))) = 2016 ? `<b><sha ;;0>` + =:0 + `</b>` : =:0"
				Send Destroy to hoColumn2
			Send Destroy to hoColumns3
			Variant voColumns4
			Get ComColumns of hoFaceTree2 to voColumns4
			Handle hoColumns4
			Get Create (RefClass(cComColumns)) to hoColumns4
			Set pvComObject of hoColumns4 to voColumns4
				Variant voColumn3
				Get ComItem of hoColumns4 3 to voColumn3
				Handle hoColumn3
				Get Create (RefClass(cComColumn)) to hoColumn3
				Set pvComObject of hoColumn3 to voColumn3
					Set ComFormatColumn of hoColumn3 to "(0:=(1992 + 5 * (0 index ``))) = 2016 ? `<b><sha ;;0>` + =:0 + `</b>` : =:0"
				Send Destroy to hoColumn3
			Send Destroy to hoColumns4
			Variant voColumns5
			Get ComColumns of hoFaceTree2 to voColumns5
			Handle hoColumns5
			Get Create (RefClass(cComColumns)) to hoColumns5
			Set pvComObject of hoColumns5 to voColumns5
				Variant voColumn4
				Get ComItem of hoColumns5 4 to voColumn4
				Handle hoColumn4
				Get Create (RefClass(cComColumn)) to hoColumn4
				Set pvComObject of hoColumn4 to voColumn4
					Set ComFormatColumn of hoColumn4 to "(0:=(1993 + 5 * (0 index ``))) = 2016 ? `<b><sha ;;0>` + =:0 + `</b>` : =:0"
				Send Destroy to hoColumn4
			Send Destroy to hoColumns5
		Send Destroy to hoFaceTree2
	Send Destroy to hoFace2
End_Procedure

// Notifies that a cell of button's type has been clicked.
Procedure OnComFaceTreeButtonClick Variant   llTree Integer   llItem Integer   llColumn
	Forward Send OnComFaceTreeButtonClick llTree llItem llColumn
	Showln llItem llColumn
End_Procedure

Procedure OnCreate
	Forward Send OnCreate
	Set ComTexturePicturePath to ""
	Variant voFace
	Get ComFrontFace to voFace
	Handle hoFace
	Get Create (RefClass(cComFace)) to hoFace
	Set pvComObject of hoFace to voFace
		Variant voFaceTree
		Get ComCreateTree of hoFace to voFaceTree
		Handle hoFaceTree
		Get Create (RefClass(cComFaceTree)) to hoFaceTree
		Set pvComObject of hoFaceTree to voFaceTree
			Set ComDrawGridLines of hoFaceTree to OLEexNoLines
			Set ComItemPadding of hoFaceTree to 16
			Variant voColumns
			Get ComColumns of hoFaceTree to voColumns
			Handle hoColumns
			Get Create (RefClass(cComColumns)) to hoColumns
			Set pvComObject of hoColumns to voColumns
				Variant voColumn
				Get ComAdd of hoColumns "Buttons" to voColumn
				Handle hoColumn
				Get Create (RefClass(cComColumn)) to hoColumn
				Set pvComObject of hoColumn to voColumn
					Set ComFormatColumn of hoColumn to "1 index `A-Z`"
					Set ComDef of hoColumn OLEexCellHasButton to True
				Send Destroy to hoColumn
			Send Destroy to hoColumns
			Variant voItems
			Get ComItems of hoFaceTree to voItems
			Handle hoItems
			Get Create (RefClass(cComItems)) to hoItems
			Set pvComObject of hoItems to voItems
				Set ComCount of hoItems to 4
			Send Destroy to hoItems
		Send Destroy to hoFaceTree
	Send Destroy to hoFace
End_Procedure

Procedure OnCreate
	Forward Send OnCreate
	Variant voFace
	Get ComFrontFace to voFace
	Handle hoFace
	Get Create (RefClass(cComFace)) to hoFace
	Set pvComObject of hoFace to voFace
		Variant voFaceCalendar
		Get ComCreateCalendar of hoFace to voFaceCalendar
		Handle hoFaceCalendar
		Get Create (RefClass(cComFaceCalendar)) to hoFaceCalendar
		Set pvComObject of hoFaceCalendar to voFaceCalendar
			Set ComValue of hoFaceCalendar to "Jan 21"
		Send Destroy to hoFaceCalendar
	Send Destroy to hoFace
End_Procedure

Procedure OnCreate
	Forward Send OnCreate
	Variant voFace
	Get ComFrontFace to voFace
	Handle hoFace
	Get Create (RefClass(cComFace)) to hoFace
	Set pvComObject of hoFace to voFace
		Variant voFaceCalendar
		Get ComCreateCalendar of hoFace to voFaceCalendar
		Handle hoFaceCalendar
		Get Create (RefClass(cComFaceCalendar)) to hoFaceCalendar
		Set pvComObject of hoFaceCalendar to voFaceCalendar
			Set ComDate of hoFaceCalendar to "1/1/2001"
			Set ComSelDate of hoFaceCalendar to (ComDate(hoFaceCalendar))
		Send Destroy to hoFaceCalendar
	Send Destroy to hoFace
End_Procedure

// Occurs when an anchor element is clicked.
Procedure OnComAnchorClick OLEFaceEnum   llFace String   llAnchorID String   llOptions
	Forward Send OnComAnchorClick llFace llAnchorID llOptions
	Showln llFace llAnchorID llOptions
End_Procedure

Procedure OnCreate
	Forward Send OnCreate
	Variant voFace
	Get ComFrontFace to voFace
	Handle hoFace
	Get Create (RefClass(cComFace)) to hoFace
	Set pvComObject of hoFace to voFace
		Variant voFaceTree
		Get ComCreateTree of hoFace to voFaceTree
		Handle hoFaceTree
		Get Create (RefClass(cComFaceTree)) to hoFaceTree
		Set pvComObject of hoFaceTree to voFaceTree
			Set ComShowSelection of hoFaceTree to False
			Set ComHeaderVisible of hoFaceTree to False
			Set ComDrawGridLines of hoFaceTree to OLEexNoLines
			Variant voItems
			Get ComItems of hoFaceTree to voItems
			Handle hoItems
			Get Create (RefClass(cComItems)) to hoItems
			Set pvComObject of hoItems to voItems
				Set ComToString of hoItems to "<a A1\;options1>Item 1</a>,<a A2\;options2>Item 2</a>"
			Send Destroy to hoItems
		Send Destroy to hoFaceTree
	Send Destroy to hoFace
End_Procedure

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Set ComTexturePicturePath to ""
	Set ComHTMLPicture "DriveC" to "c:\exontrol\images\zipdisk.gif"
	Set ComHTMLPicture "DriveD" to "c:\exontrol\images\auction.gif"
	Set ComHTMLPicture "DriveE" to "c:\exontrol\images\colorize.gif"
	Variant voFace
	Get ComTopFace to voFace
	Handle hoFace
	Get Create (RefClass(cComFace)) to hoFace
	Set pvComObject of hoFace to voFace
		Set ComRelativeMargins of hoFace to "0,32,0,0"
		Variant voFaceTree
		Get ComCreateTree of hoFace to voFaceTree
		Handle hoFaceTree
		Get Create (RefClass(cComFaceTree)) to hoFaceTree
		Set pvComObject of hoFaceTree to voFaceTree
			Set ComHasLines of hoFaceTree to OLEexNoLine
			Set ComDrawGridLines of hoFaceTree to OLEexNoLines
			Set ComItemPadding of hoFaceTree to 24
			Set ComHeaderVisible of hoFaceTree to False
			Set ComShowSelection of hoFaceTree to True
			Set ComSelBackColor of hoFaceTree to (RGB(240,240,240))
			Variant voColumns
			Get ComColumns of hoFaceTree to voColumns
			Handle hoColumns
			Get Create (RefClass(cComColumns)) to hoColumns
			Set pvComObject of hoColumns to voColumns
				Variant voColumn
				Get ComAdd of hoColumns "Default" to voColumn
				Handle hoColumn
				Get Create (RefClass(cComColumn)) to hoColumn
				Set pvComObject of hoColumn to voColumn
					Set ComAlignment of hoColumn to OLELeftAlignment
				Send Destroy to hoColumn
			Send Destroy to hoColumns
			Variant voItems
			Get ComItems of hoFaceTree to voItems
			Handle hoItems
			Get Create (RefClass(cComItems)) to hoItems
			Set pvComObject of hoItems to voItems
				Variant voItem
				Get ComAdd of hoItems "Storage" to voItem
				Handle hoItem
				Get Create (RefClass(cComItem)) to hoItem
				Set pvComObject of hoItem to voItem
					Set ComDivider of hoItem to 0
					Set ComBold of hoItem to True
					Set ComSelectable of hoItem to False
				Send Destroy to hoItem
				Variant voItem1
				Get ComAdd of hoItems "Choose a drive to see what's taking up space." to voItem1
				Handle hoItem1
				Get Create (RefClass(cComItem)) to hoItem1
				Set pvComObject of hoItem1 to voItem1
					Set ComSelectable of hoItem1 to False
					Set ComSingleLine of hoItem1 0 to False
					Variant voItems1
					Get ComItems of hoItem1 to voItems1
					Handle hoItems1
					Get Create (RefClass(cComItems)) to hoItems1
					Set pvComObject of hoItems1 to voItems1
						Variant voItem2
						Get ComAdd of hoItems1 "<img>DriveC:64</img>" to voItem2
						Handle hoItem2
						Get Create (RefClass(cComItem)) to hoItem2
						Set pvComObject of hoItem2 to voItem2
							Set ComHeight of hoItem2 to 68
							Set ComBackgroundExt of hoItem2 0 to "none[(76,4,100%-76,100%-8)](client[text=``],bottom[16,back=RGB(204,204,204)](left[0%,back=RGB(0,120,215)]))"
							Set ComBackgroundExtValue of hoItem2 0 OLEexIndexExt2 OLEexTextExtWordWrap to True
							Set ComBackgroundExtValue of hoItem2 0 OLEexIndexExt2 OLEexTextExt to "<fgcolor=000000>LROG (C:)<br>58.7 GB used out of 150 GB"
							Set ComBackgroundExtValue of hoItem2 0 OLEexIndexExt4 OLEexClientExt to "39%"
						Send Destroy to hoItem2
					Send Destroy to hoItems1
					Variant voItems2
					Get ComItems of hoItem1 to voItems2
					Handle hoItems2
					Get Create (RefClass(cComItems)) to hoItems2
					Set pvComObject of hoItems2 to voItems2
						Variant voItem3
						Get ComAdd of hoItems2 "<img>DriveD:64</img>" to voItem3
						Handle hoItem3
						Get Create (RefClass(cComItem)) to hoItem3
						Set pvComObject of hoItem3 to voItem3
							Set ComHeight of hoItem3 to 68
							Set ComBackgroundExt of hoItem3 0 to "none[(76,4,100%-76,100%-8)](client[text=``],bottom[16,back=RGB(204,204,204)](left[0%,back=RGB(0,120,215)]))"
							Set ComBackgroundExtValue of hoItem3 0 OLEexIndexExt2 OLEexTextExtWordWrap to True
							Set ComBackgroundExtValue of hoItem3 0 OLEexIndexExt2 OLEexTextExt to "<fgcolor=000000>System (D:)<br>112 MB used out of 144 GB"
							Set ComBackgroundExtValue of hoItem3 0 OLEexIndexExt4 OLEexClientExt to "1%"
						Send Destroy to hoItem3
					Send Destroy to hoItems2
					Variant voItems3
					Get ComItems of hoItem1 to voItems3
					Handle hoItems3
					Get Create (RefClass(cComItems)) to hoItems3
					Set pvComObject of hoItems3 to voItems3
						Variant voItem4
						Get ComAdd of hoItems3 "<img>DriveD:64</img>" to voItem4
						Handle hoItem4
						Get Create (RefClass(cComItem)) to hoItem4
						Set pvComObject of hoItem4 to voItem4
							Set ComHeight of hoItem4 to 68
							Set ComBackgroundExt of hoItem4 0 to "none[(76,4,100%-76,100%-8)](client[text=``],bottom[16,back=RGB(204,204,204)](left[0%,back=RGB(0,120,215)]))"
							Set ComBackgroundExtValue of hoItem4 0 OLEexIndexExt2 OLEexTextExtWordWrap to True
							Set ComBackgroundExtValue of hoItem4 0 OLEexIndexExt2 OLEexTextExt to "<fgcolor=000000>Work (E:)<br>53.0 GB used out of 635 GB"
							Set ComBackgroundExtValue of hoItem4 0 OLEexIndexExt4 OLEexClientExt to "8%"
						Send Destroy to hoItem4
					Send Destroy to hoItems3
					Variant voItems4
					Get ComItems of hoItem1 to voItems4
					Handle hoItems4
					Get Create (RefClass(cComItems)) to hoItems4
					Set pvComObject of hoItems4 to voItems4
						Variant voItem5
						Get ComAdd of hoItems4 "<img>DriveE:64</img>" to voItem5
						Handle hoItem5
						Get Create (RefClass(cComItem)) to hoItem5
						Set pvComObject of hoItem5 to voItem5
							Set ComHeight of hoItem5 to 68
							Set ComBackgroundExt of hoItem5 0 to "none[(76,4,100%-76,100%-8)](client[text=``],bottom[16,back=RGB(204,204,204)](left[0%,back=RGB(0,120,215)]))"
							Set ComBackgroundExtValue of hoItem5 0 OLEexIndexExt2 OLEexTextExtWordWrap to True
							Set ComBackgroundExtValue of hoItem5 0 OLEexIndexExt2 OLEexTextExt to "<fgcolor=000000>DVD RW Drive (G:)<br>0.0 GB used out of 0.0 GB"
							Set ComBackgroundExtValue of hoItem5 0 OLEexIndexExt4 OLEexClientExt to "0%"
						Send Destroy to hoItem5
					Send Destroy to hoItems4
					Set ComExpanded of hoItem1 to True
				Send Destroy to hoItem1
				Variant voItem6
				Get ComAdd of hoItems "Save Locations" to voItem6
				Handle hoItem6
				Get Create (RefClass(cComItem)) to hoItem6
				Set pvComObject of hoItem6 to voItem6
					Set ComDivider of hoItem6 to 0
					Set ComBold of hoItem6 to True
					Set ComSelectable of hoItem6 to False
				Send Destroy to hoItem6
				Variant voItem7
				Get ComAdd of hoItems "Change where your apps, documents, music, pictures and videos are saved by default." to voItem7
				Handle hoItem7
				Get Create (RefClass(cComItem)) to hoItem7
				Set pvComObject of hoItem7 to voItem7
					Set ComSelectable of hoItem7 to False
					Set ComSingleLine of hoItem7 0 to False
					Variant voItems5
					Get ComItems of hoItem7 to voItems5
					Handle hoItems5
					Get Create (RefClass(cComItems)) to hoItems5
					Set pvComObject of hoItems5 to voItems5
						Variant voItem8
						Get ComAdd of hoItems5 "New apps will save to:" to voItem8
						Handle hoItem8
						Get Create (RefClass(cComItem)) to hoItem8
						Set pvComObject of hoItem8 to voItem8
							Set ComSelectable of hoItem8 to False
							Variant voItems6
							Get ComItems of hoItem8 to voItems6
							Handle hoItems6
							Get Create (RefClass(cComItems)) to hoItems6
							Set pvComObject of hoItems6 to voItems6
								Variant voItem9
								Get ComAdd of hoItems6 "Drive C" to voItem9
								Handle hoItem9
								Get Create (RefClass(cComItem)) to hoItem9
								Set pvComObject of hoItem9 to voItem9
									Set ComSelectable of hoItem9 to False
									Set ComHeight of hoItem9 to 24
									Set ComHasRadioButton of hoItem9 0 to True
									Set ComRadioGroup of hoItem9 0 to 1234
									Set ComState of hoItem9 0 to 1
									Variant s
									Get ComSplitCell of hoItem9 0 to s
									Set ComValue of hoItem9 s to "Drive D"
									Set ComHasRadioButton of hoItem9 s to True
									Set ComRadioGroup of hoItem9 s to 1234
									Get ComSplitCell of hoItem9 s to s
									Set ComValue of hoItem9 s to "Drive E"
									Set ComHasRadioButton of hoItem9 s to True
									Set ComRadioGroup of hoItem9 s to 1234
								Send Destroy to hoItem9
							Send Destroy to hoItems6
							Set ComExpanded of hoItem8 to True
						Send Destroy to hoItem8
					Send Destroy to hoItems5
					Variant voItems7
					Get ComItems of hoItem7 to voItems7
					Handle hoItems7
					Get Create (RefClass(cComItems)) to hoItems7
					Set pvComObject of hoItems7 to voItems7
						Variant voItem10
						Get ComAdd of hoItems7 "New documents will save to:" to voItem10
						Handle hoItem10
						Get Create (RefClass(cComItem)) to hoItem10
						Set pvComObject of hoItem10 to voItem10
							Set ComSelectable of hoItem10 to False
							Variant voItems8
							Get ComItems of hoItem10 to voItems8
							Handle hoItems8
							Get Create (RefClass(cComItems)) to hoItems8
							Set pvComObject of hoItems8 to voItems8
								Variant voItem11
								Get ComAdd of hoItems8 "Drive C" to voItem11
								Handle hoItem11
								Get Create (RefClass(cComItem)) to hoItem11
								Set pvComObject of hoItem11 to voItem11
									Set ComSelectable of hoItem11 to False
									Set ComHeight of hoItem11 to 24
									Set ComHasRadioButton of hoItem11 0 to True
									Set ComRadioGroup of hoItem11 0 to 1235
									Get ComSplitCell of hoItem11 0 to s
									Set ComValue of hoItem11 s to "Drive D"
									Set ComHasRadioButton of hoItem11 s to True
									Set ComRadioGroup of hoItem11 s to 1235
									Set ComState of hoItem11 s to 1
									Get ComSplitCell of hoItem11 s to s
									Set ComValue of hoItem11 s to "Drive E"
									Set ComHasRadioButton of hoItem11 s to True
									Set ComRadioGroup of hoItem11 s to 1235
								Send Destroy to hoItem11
							Send Destroy to hoItems8
							Set ComExpanded of hoItem10 to True
						Send Destroy to hoItem10
					Send Destroy to hoItems7
					Variant voItems9
					Get ComItems of hoItem7 to voItems9
					Handle hoItems9
					Get Create (RefClass(cComItems)) to hoItems9
					Set pvComObject of hoItems9 to voItems9
						Variant voItem12
						Get ComAdd of hoItems9 "New music will save to:" to voItem12
						Handle hoItem12
						Get Create (RefClass(cComItem)) to hoItem12
						Set pvComObject of hoItem12 to voItem12
							Set ComSelectable of hoItem12 to False
							Variant voItems10
							Get ComItems of hoItem12 to voItems10
							Handle hoItems10
							Get Create (RefClass(cComItems)) to hoItems10
							Set pvComObject of hoItems10 to voItems10
								Variant voItem13
								Get ComAdd of hoItems10 "Drive C" to voItem13
								Handle hoItem13
								Get Create (RefClass(cComItem)) to hoItem13
								Set pvComObject of hoItem13 to voItem13
									Set ComSelectable of hoItem13 to False
									Set ComHeight of hoItem13 to 24
									Set ComHasRadioButton of hoItem13 0 to True
									Set ComRadioGroup of hoItem13 0 to 1236
									Get ComSplitCell of hoItem13 0 to s
									Set ComValue of hoItem13 s to "Drive D"
									Set ComHasRadioButton of hoItem13 s to True
									Set ComRadioGroup of hoItem13 s to 1236
									Set ComState of hoItem13 s to 1
									Get ComSplitCell of hoItem13 s to s
									Set ComValue of hoItem13 s to "Drive E"
									Set ComHasRadioButton of hoItem13 s to True
									Set ComRadioGroup of hoItem13 s to 1236
								Send Destroy to hoItem13
							Send Destroy to hoItems10
							Set ComExpanded of hoItem12 to True
						Send Destroy to hoItem12
					Send Destroy to hoItems9
					Variant voItems11
					Get ComItems of hoItem7 to voItems11
					Handle hoItems11
					Get Create (RefClass(cComItems)) to hoItems11
					Set pvComObject of hoItems11 to voItems11
						Variant voItem14
						Get ComAdd of hoItems11 "New pictures will save to:" to voItem14
						Handle hoItem14
						Get Create (RefClass(cComItem)) to hoItem14
						Set pvComObject of hoItem14 to voItem14
							Set ComSelectable of hoItem14 to False
							Variant voItems12
							Get ComItems of hoItem14 to voItems12
							Handle hoItems12
							Get Create (RefClass(cComItems)) to hoItems12
							Set pvComObject of hoItems12 to voItems12
								Variant voItem15
								Get ComAdd of hoItems12 "Drive C" to voItem15
								Handle hoItem15
								Get Create (RefClass(cComItem)) to hoItem15
								Set pvComObject of hoItem15 to voItem15
									Set ComSelectable of hoItem15 to False
									Set ComHeight of hoItem15 to 24
									Set ComHasRadioButton of hoItem15 0 to True
									Set ComRadioGroup of hoItem15 0 to 1237
									Get ComSplitCell of hoItem15 0 to s
									Set ComValue of hoItem15 s to "Drive D"
									Set ComHasRadioButton of hoItem15 s to True
									Set ComRadioGroup of hoItem15 s to 1237
									Set ComState of hoItem15 s to 1
									Get ComSplitCell of hoItem15 s to s
									Set ComValue of hoItem15 s to "Drive E"
									Set ComHasRadioButton of hoItem15 s to True
									Set ComRadioGroup of hoItem15 s to 1237
								Send Destroy to hoItem15
							Send Destroy to hoItems12
							Set ComExpanded of hoItem14 to True
						Send Destroy to hoItem14
					Send Destroy to hoItems11
					Variant voItems13
					Get ComItems of hoItem7 to voItems13
					Handle hoItems13
					Get Create (RefClass(cComItems)) to hoItems13
					Set pvComObject of hoItems13 to voItems13
						Variant voItem16
						Get ComAdd of hoItems13 "New videos will save to:" to voItem16
						Handle hoItem16
						Get Create (RefClass(cComItem)) to hoItem16
						Set pvComObject of hoItem16 to voItem16
							Set ComSelectable of hoItem16 to False
							Variant voItems14
							Get ComItems of hoItem16 to voItems14
							Handle hoItems14
							Get Create (RefClass(cComItems)) to hoItems14
							Set pvComObject of hoItems14 to voItems14
								Variant voItem17
								Get ComAdd of hoItems14 "Drive C" to voItem17
								Handle hoItem17
								Get Create (RefClass(cComItem)) to hoItem17
								Set pvComObject of hoItem17 to voItem17
									Set ComSelectable of hoItem17 to False
									Set ComHeight of hoItem17 to 24
									Set ComHasRadioButton of hoItem17 0 to True
									Set ComRadioGroup of hoItem17 0 to 1238
									Get ComSplitCell of hoItem17 0 to s
									Set ComValue of hoItem17 s to "Drive D"
									Set ComHasRadioButton of hoItem17 s to True
									Set ComRadioGroup of hoItem17 s to 1238
									Set ComState of hoItem17 s to 1
									Get ComSplitCell of hoItem17 s to s
									Set ComValue of hoItem17 s to "Drive E"
									Set ComHasRadioButton of hoItem17 s to True
									Set ComRadioGroup of hoItem17 s to 1238
								Send Destroy to hoItem17
							Send Destroy to hoItems14
							Set ComExpanded of hoItem16 to True
						Send Destroy to hoItem16
					Send Destroy to hoItems13
					Set ComExpanded of hoItem7 to True
				Send Destroy to hoItem7
			Send Destroy to hoItems
			Send ComEnsureVisibleItem of hoFaceTree 0
		Send Destroy to hoFaceTree
	Send Destroy to hoFace
	Set ComEnsureVisibleFaceMargin to 0
	Send ComEnsureVisibleFace OLEexTopFace Nothing
	Set ComAlwaysEnsureVisibleFace to OLEexFitToEnsureFace
	Send ComEndUpdate
End_Procedure

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Set ComTexturePicturePath to ""
	Variant voFace
	Get ComBottomFace to voFace
	Handle hoFace
	Get Create (RefClass(cComFace)) to hoFace
	Set pvComObject of hoFace to voFace
		Set ComRelativeMargins of hoFace to "0,32,0,0"
		Set ComTitle of hoFace OLEexTitleFaceCaption to "<c><font ;18>Battery Saver"
		Set ComTitle of hoFace OLEexTitleFaceBackgroundExt to "bottom[2],bottom[4,back=RGB(0,0,0)]"
		Variant voFaceTree
		Get ComCreateTree of hoFace to voFaceTree
		Handle hoFaceTree
		Get Create (RefClass(cComFaceTree)) to hoFaceTree
		Set pvComObject of hoFaceTree to voFaceTree
			Set ComHasLines of hoFaceTree to OLEexNoLine
			Set ComDrawGridLines of hoFaceTree to OLEexNoLines
			Set ComItemPadding of hoFaceTree to 24
			Set ComHeaderVisible of hoFaceTree to False
			Set ComShowSelection of hoFaceTree to False
			Variant voColumns
			Get ComColumns of hoFaceTree to voColumns
			Handle hoColumns
			Get Create (RefClass(cComColumns)) to hoColumns
			Set pvComObject of hoColumns to voColumns
				Variant voColumn
				Get ComAdd of hoColumns "Default" to voColumn
				Handle hoColumn
				Get Create (RefClass(cComColumn)) to hoColumn
				Set pvComObject of hoColumn to voColumn
					Set ComAlignment of hoColumn to OLELeftAlignment
				Send Destroy to hoColumn
			Send Destroy to hoColumns
			Variant voItems
			Get ComItems of hoFaceTree to voItems
			Handle hoItems
			Get Create (RefClass(cComItems)) to hoItems
			Set pvComObject of hoItems to voItems
				Variant voItem
				Get ComAdd of hoItems "Overview" to voItem
				Handle hoItem
				Get Create (RefClass(cComItem)) to hoItem
				Set pvComObject of hoItem to voItem
					Set ComDivider of hoItem to 0
					Set ComBold of hoItem to True
				Send Destroy to hoItem
				Variant voItem1
				Get ComAdd of hoItems "Batter level (charging):" to voItem1
				Handle hoItem1
				Get Create (RefClass(cComItem)) to hoItem1
				Set pvComObject of hoItem1 to voItem1
					Set ComSingleLine of hoItem1 0 to False
					Variant voItems1
					Get ComItems of hoItem1 to voItems1
					Handle hoItems1
					Get Create (RefClass(cComItems)) to hoItems1
					Set pvComObject of hoItems1 to voItems1
						Variant voItem2
						Get ComAdd of hoItems1 "" to voItem2
						Handle hoItem2
						Get Create (RefClass(cComItem)) to hoItem2
						Set pvComObject of hoItem2 to voItem2
							Set ComBackgroundExt of hoItem2 0 to "none[(2,2,100%-4,100%-4)](top[24,text=`10%`],bottom[6,back=RGB(204,204,204)](left[10%,back=RGB(0,120,215)]))"
							Set ComBackgroundExtValue of hoItem2 0 OLEexIndexExt4 OLEexClientExt to "65%"
							Set ComBackgroundExtValue of hoItem2 0 OLEexIndexExt2 OLEexTextExt to (ComBackgroundExtValue(hoItem2,0,OLEexIndexExt4,OLEexClientExt))
						Send Destroy to hoItem2
					Send Destroy to hoItems1
					Set ComExpanded of hoItem1 to True
				Send Destroy to hoItem1
				Variant voItem3
				Get ComAdd of hoItems "Estimated time to full charge:" to voItem3
				Handle hoItem3
				Get Create (RefClass(cComItem)) to hoItem3
				Set pvComObject of hoItem3 to voItem3
					Variant voItems2
					Get ComItems of hoItem3 to voItems2
					Handle hoItems2
					Get Create (RefClass(cComItems)) to hoItems2
					Set pvComObject of hoItems2 to voItems2
						Variant voItem4
						Get ComAdd of hoItems2 0.15125 to voItem4
						Handle hoItem4
						Get Create (RefClass(cComItem)) to hoItem4
						Set pvComObject of hoItem4 to voItem4
							Set ComFormatCell of hoItem4 0 to "((1:=int(0:= (value))) != 0 ? (=:1 + ' day(s)') : '') + (=:1 ? ' ' : '' ) + ((1:=int(0:=((=:0 - =:1 + 1/24/60/60/2)*24))) != 0 ? =:1 + ' hour(s)' : '' ) + (=:1 ? ' ' : '' ) + ((1:=round((=:0 - =:1)*60)) != 0 ? =:1 + ' min(s)' : '')"
							Set ComHeight of hoItem4 to 24
						Send Destroy to hoItem4
					Send Destroy to hoItems2
					Set ComExpanded of hoItem3 to True
				Send Destroy to hoItem3
				Variant voItem5
				Get ComAdd of hoItems "Battery Saver" to voItem5
				Handle hoItem5
				Get Create (RefClass(cComItem)) to hoItem5
				Set pvComObject of hoItem5 to voItem5
					Set ComDivider of hoItem5 to 0
					Set ComBold of hoItem5 to True
				Send Destroy to hoItem5
				Variant voItem6
				Get ComAdd of hoItems "Extends battery life by limiting background activity and push notifications. " to voItem6
				Handle hoItem6
				Get Create (RefClass(cComItem)) to hoItem6
				Set pvComObject of hoItem6 to voItem6
					Set ComSingleLine of hoItem6 0 to False
				Send Destroy to hoItem6
				Variant voItem7
				Get ComAdd of hoItems "Batter saver is currently:" to voItem7
				Handle hoItem7
				Get Create (RefClass(cComItem)) to hoItem7
				Set pvComObject of hoItem7 to voItem7
					Set ComEnabled of hoItem7 to False
					Set ComSingleLine of hoItem7 0 to False
					Variant voItems3
					Get ComItems of hoItem7 to voItems3
					Handle hoItems3
					Get Create (RefClass(cComItems)) to hoItems3
					Set pvComObject of hoItems3 to voItems3
						Variant voItem8
						Get ComAdd of hoItems3 "" to voItem8
						Handle hoItem8
						Get Create (RefClass(cComItem)) to hoItem8
						Set pvComObject of hoItem8 to voItem8
							Set ComHeight of hoItem8 to 24
							Set ComHasCheckBox of hoItem8 0 to True
							Set ComState of hoItem8 0 to 2
							Set ComFormatCell of hoItem8 0 to "state = 1 ? `On` : `Off`"
							Set ComEnabled of hoItem8 to False
						Send Destroy to hoItem8
					Send Destroy to hoItems3
					Set ComExpanded of hoItem7 to True
				Send Destroy to hoItem7
				Variant voItem9
				Get ComAdd of hoItems "Battery Saver is off while charging.  Choose, when battery saver turns on automatically and how it affects your system." to voItem9
				Handle hoItem9
				Get Create (RefClass(cComItem)) to hoItem9
				Set pvComObject of hoItem9 to voItem9
					Set ComSingleLine of hoItem9 0 to False
				Send Destroy to hoItem9
				Variant voItem10
				Get ComAdd of hoItems "<c>Battery Saver Settings" to voItem10
				Handle hoItem10
				Get Create (RefClass(cComItem)) to hoItem10
				Set pvComObject of hoItem10 to voItem10
					Set ComSingleLine of hoItem10 0 to False
					Set ComHasButton of hoItem10 0 to True
				Send Destroy to hoItem10
			Send Destroy to hoItems
		Send Destroy to hoFaceTree
	Send Destroy to hoFace
	Set ComEnsureVisibleFaceMargin to 0
	Send ComEnsureVisibleFace OLEexBottomFace Nothing
	Set ComAlwaysEnsureVisibleFace to OLEexFitToEnsureFace
	Send ComEndUpdate
End_Procedure

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Set ComTexturePicturePath to ""
	Set ComCheckBoxWidth to 44
	Set ComCheckBoxHeight to 20
	Variant voAppearance
	Get ComVisualAppearance to voAppearance
	Handle hoAppearance
	Get Create (RefClass(cComAppearance)) to hoAppearance
	Set pvComObject of hoAppearance to voAppearance
		Get ComAdd of hoAppearance 1 "gBFLBCJwBAEHhEJAADhABJACg6AADACAxRDAMgBQKAAzQFAYaBsHCGAAGMZRZgmFgAQhFcZQSKUOQTDKMIziaQAGgkNQwCSLIxDFIsBxPFKCQChEZBUjKAwyDBIUzSDIUBhZBIKI7hGa3NBwJAAUTRch0j4iCRQGiYZyHKcxMYgIYCUBkERtMw0GyERQhGb4DoGA4IBhFZQVVLsRBIDh2bbuG4LSrWdJ3OyaN5EbbgZz9P7AMBwLA8EwXBqHYIUGJGbhlbTnR7HMhvDIsPDnFqIZhmOZZXjlfh7T7KNByO6LcI3AiDagtWpNTpjf5dV7YNh2LY9UzXNq3bI1W5aUqyAZ9QQpeB0LILYDbRp/FzyO5NNrHG6dZ7oOh1doOUItlaP5lgcPA7hEJ47H8SD0l4LwfhOSJ9nOIh9DefBREMKYMDaX59nsVhvlKdBpCGfgIl+L43lGG5lH+YAGlWZw/EYOAVH8ZQXncdBJDwIJGkiGYDlmUh2BKABhEgVJpgWX4BA4BxcAeWB1H8KJiAaSJJgiWZWAmVA0CEWIln8JYikWfZpCIXARE0fw3GMRpJnaCRYBGWg6gqI5HgoJxfkYCQFlkX5PhkFYyBAJIImGABpGOWQ1k8OxlAWfZ6BGJA1noRQ+GQeQmEoX4kkkOheG2JQDjYUh+iMGJODUbBjHkbAzg6BxpH4bhsmOdZ6EEGAbmIAR/gSCZWkmfYShwYJYlOH5mnoBYvCSaBFnyDYhlcKAll2AwPAaSggCiWZaD6AogiEc4mBmBpYnePZxGMHw3lUeoGGUN5aH8NJpDoBgDgERg6GGFICh2d4GiWK5cngDgvHqWInG0cIfFyBwpjqLArkcTZVHWV5nGaNhxA6VoVicahajaNo9gUHI2nIdRwBwJoOkSMJlFmKpWjWWY2HwPYwm2SxJHIe5sGsYpiGcXpHj6XYxA6NBFAkQBAIC" to Nothing
		Get ComAdd of hoAppearance 2 "gBFLBCJwBAEHhEJAADhABB4Cg6AADACAxRDAMgBQKAAzQFAYaBsHCGAAGMZRZgmFgAQhFcZQSKUOQTDKMIziaQAGgkNQwCSLIxDFIsBxPFKCQChEZBUjKAwyDBIUzSDIUBhZBIKI7hGa3NBwJAAUTRch0j4iCRQGiYZyHKcxMYgIYCUBkERtMw0GyERQhGb4DoGA4IBhFZQVVLsRBIDh2bbuG4LSrWdJ3Oy3KKiQy5cABPq/b6wDA8CwXAaHYRiGDYThmF4dRQAG6RcTLWrPFqVZheGYua4CLBxRrINA0LD9DyHJKnaZkDgpUQGN5dTS4GwPQCN3xRWzUyBaQzJfAZV7Lbw3PadX4XRLHcLwfAXFqWaaNZLneh5DouDz3P5YMuaRBicQ4nl6bpuBwKYRnuUY2jsfg9B0b43hOH5KjucQPnwOpMi+A4pnab5qB0a4znuf57n4f5gAeeJqC4R42mEcg5AoIRBnUfggkgLJiCaRA4AYEoEl+Y4AhcDpaFOGIrBgDYyBwHICmIB5djge4hEilY8g0MotiUZICkMYB6AEIgYDYIh0g+Q5cm+CYjgOfJ6DuDZ2hSWggkESI6DCDJjCkFZDg0Yx4mYJYOmOVoiD8BQhlgfhEgwZRGBoJISy0IgqGoIpDhCJAVCUWQaFMY5fAkYgBD+D5TmyYAlENPBnCsRhFkoYYcmYMAAmkLRHDmGZ9h2Rw4BkeBnFmeZWHSGIYHeQZuHoHonjGboamaVwYmIJwEEYbZNiCaRKAmdx1hyNZChWIQpjcKZYHAKQ6FqHIoh0Vp6hkcBqgoAodikKgmi2LYnmsCohkAXoXkqMojgMIpKh2Gw6lEFAlAEgIA==" to Nothing
	Send Destroy to hoAppearance
	Set ComBackground OLEexCheckBoxState0 to |CI$1000000
	Set ComBackground OLEexCheckBoxState1 to |CI$2000000
	Set ComBackground OLEexCheckBoxState2 to |CI$1f0f0f0
	Set ComRadioButtonWidth to 23
	Set ComRadioButtonHeight to 23
	Variant voAppearance1
	Get ComVisualAppearance to voAppearance1
	Handle hoAppearance1
	Get Create (RefClass(cComAppearance)) to hoAppearance1
	Set pvComObject of hoAppearance1 to voAppearance1
		Get ComAdd of hoAppearance1 3 "gBFLBCJwBAEHhEJAADhABNoCg6AADACAxRDAMgBQKAAzQFAYaBsHCGAAGMZRZgmFgAQhFcZQSKUOQTDKMIziaQIRDINQlSTJcQjKKEUQTFiXIyAKQobh2A42SDAcgSFIADRfFoWmxTdAcYSCGSZZrGOiQADIM40R7UAABPBNKR1BKmHZDQRAApqXIjVDAYIQSSBUlkHScRijDICXSIIQmbajIZoJCiVZ3VaGETnRQlJQuEgOHZwDAsBwPBqBPziLp4WzmGqhR5ichYHI8RYVTKXYy3DxZW7OO4PQjQM7hHL8fwlfTuagyGpZOxjP5cdrYHw2J7NUzJeDxbhrTb6Zh7ILVX7TNIwXAdD4PIKmNryORsC4XG5pZ7oOh6Lo3G4rhWZI2nOL4eBON4LkeRJvHWDxvB6G5Lmac56D0OY3hMU5bm6bRoiAeA9DMX5riydJ+D8P4vEeO4xkEcQfCYBZrHKXgzlme4BmCB4eAUZRbAaAZeGsDg4EYCYEmERoaBEOJaiMIY2EIXo2FYFYHmIBp1j8OoQhcYZNDiIgIiYE4Jl2BAlj0agOmiKgyH6Xo2jECYGE8WJmDODpehgFgZEIXI3DyfoQmQSQWEaEZkgkJhKhKZA2hmSxCEyGREnSFJkkkVhWwCCAthFKRjiIXhpiXOhihGYwJESSRCFuIxqGoPomkmDhuhWT45kSXYcl8UxdAkbgPBaMhTD0JApj4foRBoaJ5iqAxdmadhzDcWxpgIf4bhsY4Gg6GYYDcegNGUYg6VMIsBBmNg8CmRwuCOJBgBaAgXh6JQzl6JocE+OQQn+KpqkqNouivgQiiaLJPHaMZYHwQAHHIdRrA6ep2jMbYqx2RxzmqBpajOLxOnacYPHcHZnHGOlynmbo0jSbRLFaJoJlyNpplyKArhcGZcgMWpGjCXo4liM4ukiHpngkeJojiTZphmLIDG2Nwak2N4vEaAJsj2bpLgWFxlGGExOn4dgvHOMpxGgbwkAyaxEFCFAEICA=" to Nothing
		Get ComAdd of hoAppearance1 4 "gBFLBCJwBAEHhEJAADhABCEMACAADACAxRDAMgBQKAAzQFAYaBsHCGAAGMZRZgmFgAQhFcZQSKUOQTDKMIziaQIRDINQlSTJcQjKKEUQTFiXIyAKQobh2A42SDAcgSFIADRfFoWmxTdAcYSCGSZZrGOiQADINI0R7UAABPBIMSjAamHZDQRAApqXIjVaAhySQKksg6TiMUYZAbaRBCEzbUZDNBIopUQLVU5ABbUEqBIipIrEQLHNwPBaEYZiOIYW5re4cfzIMhyLI8Ob3CqHZhleTwTjWGYvSp1dBbTQ2QyVRanMDqOjsKxmW5Gbh5NhfHY8dxnDKcZ5jGSudrjEZ9VpmG74JzeEbjRj8chxT4PDxnBK/YDSWgdLo8VzXBpcG2MY4maXxzFKQRxHgOQeC8H4TkuZhzHoNR9kaXpNnONZsGGMo9B4A5bmuFZ7n4Pw/i+XpFmSVB/mAB41hsQJfBYOJXgGXAHm4CoCmCtYAHqXRWBGWB/F2Z5UnaAxZFOaJ2DuTpzHCOQ5gwcg8veDBjlCaA0mGBg6BYapcEONZiHYHADg4MoKE+U4QkEIINAISAig4Y44moPIPA4EpoHSBoOngNgyDiW5jCGShCF+VouA2EQNhKHBMg+Y5pFYPYVmOQxYiAD4kEgNZRHSTokCWax4A4KA2DaDglGkUhYhoZRph4DYZB6NAllEbwOmgKhEhqJ4JjIa4ek8c48mGAoflcAQJhITxaBYCoHEuGZmHuIooioIgKgWJIUCWXh4hkNhImkM4JloMh6iaJRzhySAkCkVhFhUd4QhMJomD0KtvBCCJMGocouh6KIKiifoKlodAmAAOgrgYVoVD7Y5AlMJhDAqPoLh6D4DkCYosicSoYkkQhcmMapOD6LQKkqHgkCwKhwmILpHFqSJ7jaTZbHYBw1lCFwwnEcAqgOUoUGSa5DxkLQGHsVhWhQRJKkmFYkBuaI1lgdBtlMdZKi6LoKnSZQwggOp+kGJpjiufIDiyGQXCiYZCmyJxeAQYQi0YYI+lieoqmmKwpHIdoskIGQGFWSg8DIBx6GCQ4AAYXhHjlo5fCqNpPjYRJ/kucwMkcMpM9GMwqk2Tx3AGa4AnIVpkm2N5cAgcJvk2XIsjGeYlF53hKk2dAnEGJR7nCdxlgYc4ajmEplk4NYNGcWpKiYRx5k4dYhC0RxggsTpXAGQA3jaBoEmuUIuFuCo4DoNoDHqShwCKXYPCSXYzmOMx6lwOwZoawrgkE0HwBY1xegdE2MMWQhBOhoEUBIQAgCAgA==" to Nothing
	Send Destroy to hoAppearance1
	Set ComBackground OLEexRadioButtonState0 to |CI$3000000
	Set ComBackground OLEexRadioButtonState1 to |CI$4000000
	Variant voFace
	Get ComRightFace to voFace
	Handle hoFace
	Get Create (RefClass(cComFace)) to hoFace
	Set pvComObject of hoFace to voFace
		Set ComRelativeMargins of hoFace to "0,32,0,0"
		Set ComTitle of hoFace OLEexTitleFaceCaption to "<c><font ;18>Table mode"
		Set ComTitle of hoFace OLEexTitleFaceBackgroundExt to "bottom[2],bottom[4,back=RGB(0,0,0)]"
		Variant voFaceTree
		Get ComCreateTree of hoFace to voFaceTree
		Handle hoFaceTree
		Get Create (RefClass(cComFaceTree)) to hoFaceTree
		Set pvComObject of hoFaceTree to voFaceTree
			Set ComHasLines of hoFaceTree to OLEexNoLine
			Set ComDrawGridLines of hoFaceTree to OLEexNoLines
			Set ComItemPadding of hoFaceTree to 24
			Set ComHeaderVisible of hoFaceTree to False
			Set ComShowSelection of hoFaceTree to False
			Variant voColumns
			Get ComColumns of hoFaceTree to voColumns
			Handle hoColumns
			Get Create (RefClass(cComColumns)) to hoColumns
			Set pvComObject of hoColumns to voColumns
				Variant voColumn
				Get ComAdd of hoColumns "Default" to voColumn
				Handle hoColumn
				Get Create (RefClass(cComColumn)) to hoColumn
				Set pvComObject of hoColumn to voColumn
					Set ComAlignment of hoColumn to OLELeftAlignment
				Send Destroy to hoColumn
			Send Destroy to hoColumns
			Variant voItems
			Get ComItems of hoFaceTree to voItems
			Handle hoItems
			Get Create (RefClass(cComItems)) to hoItems
			Set pvComObject of hoItems to voItems
				Variant voItem
				Get ComAdd of hoItems "Make windows more touch-friendly when using your device as a table" to voItem
				Handle hoItem
				Get Create (RefClass(cComItem)) to hoItem
				Set pvComObject of hoItem to voItem
					Set ComSingleLine of hoItem 0 to False
					Variant voItems1
					Get ComItems of hoItem to voItems1
					Handle hoItems1
					Get Create (RefClass(cComItems)) to hoItems1
					Set pvComObject of hoItems1 to voItems1
						Variant voItem1
						Get ComAdd of hoItems1 "" to voItem1
						Handle hoItem1
						Get Create (RefClass(cComItem)) to hoItem1
						Set pvComObject of hoItem1 to voItem1
							Set ComHeight of hoItem1 to 24
							Set ComHasCheckBox of hoItem1 0 to True
							Set ComState of hoItem1 0 to 0
							Set ComFormatCell of hoItem1 0 to "state = 0 ? `Off` : `On`"
						Send Destroy to hoItem1
					Send Destroy to hoItems1
					Set ComExpanded of hoItem to True
				Send Destroy to hoItem
				Variant voItem2
				Get ComAdd of hoItems "When I sign in" to voItem2
				Handle hoItem2
				Get Create (RefClass(cComItem)) to hoItem2
				Set pvComObject of hoItem2 to voItem2
					Set ComSingleLine of hoItem2 0 to False
					Variant voItems2
					Get ComItems of hoItem2 to voItems2
					Handle hoItems2
					Get Create (RefClass(cComItems)) to hoItems2
					Set pvComObject of hoItems2 to voItems2
						Variant voItem3
						Get ComAdd of hoItems2 "Automatically swicth to table mode" to voItem3
						Handle hoItem3
						Get Create (RefClass(cComItem)) to hoItem3
						Set pvComObject of hoItem3 to voItem3
							Set ComHeight of hoItem3 to 24
							Set ComHasRadioButton of hoItem3 0 to True
							Set ComRadioGroup of hoItem3 0 to 1234
						Send Destroy to hoItem3
					Send Destroy to hoItems2
					Variant voItems3
					Get ComItems of hoItem2 to voItems3
					Handle hoItems3
					Get Create (RefClass(cComItems)) to hoItems3
					Set pvComObject of hoItems3 to voItems3
						Variant voItem4
						Get ComAdd of hoItems3 "Go to the desktop" to voItem4
						Handle hoItem4
						Get Create (RefClass(cComItem)) to hoItem4
						Set pvComObject of hoItem4 to voItem4
							Set ComHeight of hoItem4 to 24
							Set ComHasRadioButton of hoItem4 0 to True
							Set ComRadioGroup of hoItem4 0 to 1234
						Send Destroy to hoItem4
					Send Destroy to hoItems3
					Variant voItems4
					Get ComItems of hoItem2 to voItems4
					Handle hoItems4
					Get Create (RefClass(cComItems)) to hoItems4
					Set pvComObject of hoItems4 to voItems4
						Variant voItem5
						Get ComAdd of hoItems4 "Remember what I used last" to voItem5
						Handle hoItem5
						Get Create (RefClass(cComItem)) to hoItem5
						Set pvComObject of hoItem5 to voItem5
							Set ComHeight of hoItem5 to 24
							Set ComHasRadioButton of hoItem5 0 to True
							Set ComRadioGroup of hoItem5 0 to 1234
							Set ComState of hoItem5 0 to 1
						Send Destroy to hoItem5
					Send Destroy to hoItems4
					Set ComExpanded of hoItem2 to True
				Send Destroy to hoItem2
				Variant voItem6
				Get ComAdd of hoItems "When this device automatically switches table mode on or off" to voItem6
				Handle hoItem6
				Get Create (RefClass(cComItem)) to hoItem6
				Set pvComObject of hoItem6 to voItem6
					Set ComSingleLine of hoItem6 0 to False
					Variant voItems5
					Get ComItems of hoItem6 to voItems5
					Handle hoItems5
					Get Create (RefClass(cComItems)) to hoItems5
					Set pvComObject of hoItems5 to voItems5
						Variant voItem7
						Get ComAdd of hoItems5 "Don't ask me and dont' switch" to voItem7
						Handle hoItem7
						Get Create (RefClass(cComItem)) to hoItem7
						Set pvComObject of hoItem7 to voItem7
							Set ComHeight of hoItem7 to 24
							Set ComHasRadioButton of hoItem7 0 to True
							Set ComRadioGroup of hoItem7 0 to 1235
						Send Destroy to hoItem7
					Send Destroy to hoItems5
					Variant voItems6
					Get ComItems of hoItem6 to voItems6
					Handle hoItems6
					Get Create (RefClass(cComItems)) to hoItems6
					Set pvComObject of hoItems6 to voItems6
						Variant voItem8
						Get ComAdd of hoItems6 "Always ask me before switching" to voItem8
						Handle hoItem8
						Get Create (RefClass(cComItem)) to hoItem8
						Set pvComObject of hoItem8 to voItem8
							Set ComHeight of hoItem8 to 24
							Set ComHasRadioButton of hoItem8 0 to True
							Set ComRadioGroup of hoItem8 0 to 1235
							Set ComState of hoItem8 0 to 1
						Send Destroy to hoItem8
					Send Destroy to hoItems6
					Variant voItems7
					Get ComItems of hoItem6 to voItems7
					Handle hoItems7
					Get Create (RefClass(cComItems)) to hoItems7
					Set pvComObject of hoItems7 to voItems7
						Variant voItem9
						Get ComAdd of hoItems7 "Don't ask me and always' switch" to voItem9
						Handle hoItem9
						Get Create (RefClass(cComItem)) to hoItem9
						Set pvComObject of hoItem9 to voItem9
							Set ComHeight of hoItem9 to 24
							Set ComHasRadioButton of hoItem9 0 to True
							Set ComRadioGroup of hoItem9 0 to 1235
						Send Destroy to hoItem9
					Send Destroy to hoItems7
					Set ComExpanded of hoItem6 to True
				Send Destroy to hoItem6
				Variant voItem10
				Get ComAdd of hoItems "Hide app icons on the taskbar in table mode" to voItem10
				Handle hoItem10
				Get Create (RefClass(cComItem)) to hoItem10
				Set pvComObject of hoItem10 to voItem10
					Set ComSingleLine of hoItem10 0 to False
					Variant voItems8
					Get ComItems of hoItem10 to voItems8
					Handle hoItems8
					Get Create (RefClass(cComItems)) to hoItems8
					Set pvComObject of hoItems8 to voItems8
						Variant voItem11
						Get ComAdd of hoItems8 "" to voItem11
						Handle hoItem11
						Get Create (RefClass(cComItem)) to hoItem11
						Set pvComObject of hoItem11 to voItem11
							Set ComHeight of hoItem11 to 24
							Set ComHasCheckBox of hoItem11 0 to True
							Set ComState of hoItem11 0 to 0
							Set ComFormatCell of hoItem11 0 to "state = 0 ? `Off` : `On`"
						Send Destroy to hoItem11
					Send Destroy to hoItems8
					Set ComExpanded of hoItem10 to True
				Send Destroy to hoItem10
			Send Destroy to hoItems
		Send Destroy to hoFaceTree
	Send Destroy to hoFace
	Set ComEnsureVisibleFaceMargin to 0
	Send ComEnsureVisibleFace OLEexRightFace Nothing
	Set ComAlwaysEnsureVisibleFace to OLEexFitToEnsureFace
	Send ComEndUpdate
End_Procedure

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Set ComTexturePicturePath to ""
	Variant voFace
	Get ComLeftFace to voFace
	Handle hoFace
	Get Create (RefClass(cComFace)) to hoFace
	Set pvComObject of hoFace to voFace
		Set ComRelativeMargins of hoFace to "0,32,0,0"
		Set ComTitle of hoFace OLEexTitleFaceCaption to "<c><font ;18>Multitasking"
		Set ComTitle of hoFace OLEexTitleFaceBackgroundExt to "bottom[2],bottom[4,back=RGB(0,0,0)]"
		Variant voFaceTree
		Get ComCreateTree of hoFace to voFaceTree
		Handle hoFaceTree
		Get Create (RefClass(cComFaceTree)) to hoFaceTree
		Set pvComObject of hoFaceTree to voFaceTree
			Set ComHasLines of hoFaceTree to OLEexNoLine
			Set ComDrawGridLines of hoFaceTree to OLEexNoLines
			Set ComItemPadding of hoFaceTree to 24
			Set ComHeaderVisible of hoFaceTree to False
			Set ComShowSelection of hoFaceTree to False
			Variant voColumns
			Get ComColumns of hoFaceTree to voColumns
			Handle hoColumns
			Get Create (RefClass(cComColumns)) to hoColumns
			Set pvComObject of hoColumns to voColumns
				Variant voColumn
				Get ComAdd of hoColumns "Default" to voColumn
				Handle hoColumn
				Get Create (RefClass(cComColumn)) to hoColumn
				Set pvComObject of hoColumn to voColumn
					Set ComAlignment of hoColumn to OLELeftAlignment
				Send Destroy to hoColumn
			Send Destroy to hoColumns
			Variant voItems
			Get ComItems of hoFaceTree to voItems
			Handle hoItems
			Get Create (RefClass(cComItems)) to hoItems
			Set pvComObject of hoItems to voItems
				Variant voItem
				Get ComAdd of hoItems "Snap" to voItem
				Handle hoItem
				Get Create (RefClass(cComItem)) to hoItem
				Set pvComObject of hoItem to voItem
					Set ComDivider of hoItem to 0
					Set ComBold of hoItem to True
				Send Destroy to hoItem
				Variant voItem1
				Get ComAdd of hoItems "Arrange windows automatically by dragging them to the sides of corners of the scree" to voItem1
				Handle hoItem1
				Get Create (RefClass(cComItem)) to hoItem1
				Set pvComObject of hoItem1 to voItem1
					Set ComSingleLine of hoItem1 0 to False
					Variant voItems1
					Get ComItems of hoItem1 to voItems1
					Handle hoItems1
					Get Create (RefClass(cComItems)) to hoItems1
					Set pvComObject of hoItems1 to voItems1
						Variant voItem2
						Get ComAdd of hoItems1 "" to voItem2
						Handle hoItem2
						Get Create (RefClass(cComItem)) to hoItem2
						Set pvComObject of hoItem2 to voItem2
							Set ComHeight of hoItem2 to 24
							Set ComHasCheckBox of hoItem2 0 to True
							Set ComState of hoItem2 0 to 1
							Set ComFormatCell of hoItem2 0 to "state = 0 ? `Off` : `On`"
						Send Destroy to hoItem2
					Send Destroy to hoItems1
					Set ComExpanded of hoItem1 to True
				Send Destroy to hoItem1
				Variant voItem3
				Get ComAdd of hoItems "When I snap more than one window, automatically adjust the size of the windows" to voItem3
				Handle hoItem3
				Get Create (RefClass(cComItem)) to hoItem3
				Set pvComObject of hoItem3 to voItem3
					Set ComSingleLine of hoItem3 0 to False
					Variant voItems2
					Get ComItems of hoItem3 to voItems2
					Handle hoItems2
					Get Create (RefClass(cComItems)) to hoItems2
					Set pvComObject of hoItems2 to voItems2
						Variant voItem4
						Get ComAdd of hoItems2 "" to voItem4
						Handle hoItem4
						Get Create (RefClass(cComItem)) to hoItem4
						Set pvComObject of hoItem4 to voItem4
							Set ComHeight of hoItem4 to 24
							Set ComHasCheckBox of hoItem4 0 to True
							Set ComState of hoItem4 0 to 1
							Set ComFormatCell of hoItem4 0 to "state = 0 ? `Off` : `On`"
						Send Destroy to hoItem4
					Send Destroy to hoItems2
					Set ComExpanded of hoItem3 to True
				Send Destroy to hoItem3
				Variant voItem5
				Get ComAdd of hoItems "When I snap a window, show what I can snap next to it" to voItem5
				Handle hoItem5
				Get Create (RefClass(cComItem)) to hoItem5
				Set pvComObject of hoItem5 to voItem5
					Set ComSingleLine of hoItem5 0 to False
					Variant voItems3
					Get ComItems of hoItem5 to voItems3
					Handle hoItems3
					Get Create (RefClass(cComItems)) to hoItems3
					Set pvComObject of hoItems3 to voItems3
						Variant voItem6
						Get ComAdd of hoItems3 "" to voItem6
						Handle hoItem6
						Get Create (RefClass(cComItem)) to hoItem6
						Set pvComObject of hoItem6 to voItem6
							Set ComHeight of hoItem6 to 24
							Set ComHasCheckBox of hoItem6 0 to True
							Set ComFormatCell of hoItem6 0 to "state = 0 ? `Off` : `On`"
						Send Destroy to hoItem6
					Send Destroy to hoItems3
					Set ComExpanded of hoItem5 to True
				Send Destroy to hoItem5
				Variant voItem7
				Get ComAdd of hoItems "Virtual desktops" to voItem7
				Handle hoItem7
				Get Create (RefClass(cComItem)) to hoItem7
				Set pvComObject of hoItem7 to voItem7
					Set ComDivider of hoItem7 to 0
					Set ComBold of hoItem7 to True
				Send Destroy to hoItem7
				Variant voItem8
				Get ComAdd of hoItems "On the taskbar, show windows that are open on:" to voItem8
				Handle hoItem8
				Get Create (RefClass(cComItem)) to hoItem8
				Set pvComObject of hoItem8 to voItem8
					Set ComSingleLine of hoItem8 0 to False
					Variant voItems4
					Get ComItems of hoItem8 to voItems4
					Handle hoItems4
					Get Create (RefClass(cComItems)) to hoItems4
					Set pvComObject of hoItems4 to voItems4
						Variant voItem9
						Get ComAdd of hoItems4 "Only the desktop I'm using" to voItem9
						Handle hoItem9
						Get Create (RefClass(cComItem)) to hoItem9
						Set pvComObject of hoItem9 to voItem9
							Set ComHeight of hoItem9 to 24
							Set ComHasRadioButton of hoItem9 0 to True
							Set ComRadioGroup of hoItem9 0 to 1234
							Set ComState of hoItem9 0 to 1
						Send Destroy to hoItem9
					Send Destroy to hoItems4
					Variant voItems5
					Get ComItems of hoItem8 to voItems5
					Handle hoItems5
					Get Create (RefClass(cComItems)) to hoItems5
					Set pvComObject of hoItems5 to voItems5
						Variant voItem10
						Get ComAdd of hoItems5 "All desktops" to voItem10
						Handle hoItem10
						Get Create (RefClass(cComItem)) to hoItem10
						Set pvComObject of hoItem10 to voItem10
							Set ComHeight of hoItem10 to 24
							Set ComHasRadioButton of hoItem10 0 to True
							Set ComRadioGroup of hoItem10 0 to 1234
						Send Destroy to hoItem10
					Send Destroy to hoItems5
					Set ComExpanded of hoItem8 to True
				Send Destroy to hoItem8
				Variant voItem11
				Get ComAdd of hoItems "Pressing ALT+TAB, show windows that are open on:" to voItem11
				Handle hoItem11
				Get Create (RefClass(cComItem)) to hoItem11
				Set pvComObject of hoItem11 to voItem11
					Set ComSingleLine of hoItem11 0 to False
					Variant voItems6
					Get ComItems of hoItem11 to voItems6
					Handle hoItems6
					Get Create (RefClass(cComItems)) to hoItems6
					Set pvComObject of hoItems6 to voItems6
						Variant voItem12
						Get ComAdd of hoItems6 "Only the desktop I'm using" to voItem12
						Handle hoItem12
						Get Create (RefClass(cComItem)) to hoItem12
						Set pvComObject of hoItem12 to voItem12
							Set ComHeight of hoItem12 to 24
							Set ComHasRadioButton of hoItem12 0 to True
							Set ComRadioGroup of hoItem12 0 to 1235
							Set ComState of hoItem12 0 to 1
						Send Destroy to hoItem12
					Send Destroy to hoItems6
					Variant voItems7
					Get ComItems of hoItem11 to voItems7
					Handle hoItems7
					Get Create (RefClass(cComItems)) to hoItems7
					Set pvComObject of hoItems7 to voItems7
						Variant voItem13
						Get ComAdd of hoItems7 "All desktops" to voItem13
						Handle hoItem13
						Get Create (RefClass(cComItem)) to hoItem13
						Set pvComObject of hoItem13 to voItem13
							Set ComHeight of hoItem13 to 24
							Set ComHasRadioButton of hoItem13 0 to True
							Set ComRadioGroup of hoItem13 0 to 1235
						Send Destroy to hoItem13
					Send Destroy to hoItems7
					Set ComExpanded of hoItem11 to True
				Send Destroy to hoItem11
			Send Destroy to hoItems
		Send Destroy to hoFaceTree
	Send Destroy to hoFace
	Set ComEnsureVisibleFaceMargin to 0
	Send ComEnsureVisibleFace OLEexLeftFace Nothing
	Set ComAlwaysEnsureVisibleFace to OLEexFitToEnsureFace
	Send ComEndUpdate
End_Procedure

// Notifies that a cell of button's type has been clicked.
Procedure OnComFaceTreeButtonClick Variant   llTree Integer   llItem Integer   llColumn
	Forward Send OnComFaceTreeButtonClick llTree llItem llColumn
	Showln "FaceTreeButtonClick"
End_Procedure

// Notifies that a cell changes its state into a face of tree type.
Procedure OnComFaceTreeStateChanged Variant   llTree Integer   llItem Integer   llColumn
	Forward Send OnComFaceTreeStateChanged llTree llItem llColumn
	Showln "FaceTreeStateChanged"
End_Procedure

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Set ComTexturePicturePath to ""
	Set ComHTMLPicture "P1" to "c:\exontrol\images\zipdisk.gif"
	Set ComHTMLPicture "P2" to "c:\exontrol\images\auction.gif"
	Set ComHTMLPicture "P3" to "c:\exontrol\images\colorize.gif"
	Set ComHTMLPicture "P4" to "c:\exontrol\images\auction.gif"
	Variant voFace
	Get ComFrontFace to voFace
	Handle hoFace
	Get Create (RefClass(cComFace)) to hoFace
	Set pvComObject of hoFace to voFace
		Set ComRelativeMargins of hoFace to "0,32,0,0"
		Set ComTitle of hoFace OLEexTitleFaceCaption to "<c><font ;18>Notifications"
		Set ComTitle of hoFace OLEexTitleFaceBackgroundExt to "bottom[2],bottom[4,back=RGB(0,0,0)]"
		Variant voFaceTree
		Get ComCreateTree of hoFace to voFaceTree
		Handle hoFaceTree
		Get Create (RefClass(cComFaceTree)) to hoFaceTree
		Set pvComObject of hoFaceTree to voFaceTree
			Set ComHasLines of hoFaceTree to OLEexNoLine
			Set ComDrawGridLines of hoFaceTree to OLEexNoLines
			Set ComItemPadding of hoFaceTree to 24
			Set ComHeaderVisible of hoFaceTree to False
			Set ComShowSelection of hoFaceTree to False
			Variant voColumns
			Get ComColumns of hoFaceTree to voColumns
			Handle hoColumns
			Get Create (RefClass(cComColumns)) to hoColumns
			Set pvComObject of hoColumns to voColumns
				Variant voColumn
				Get ComAdd of hoColumns "Default" to voColumn
				Handle hoColumn
				Get Create (RefClass(cComColumn)) to hoColumn
				Set pvComObject of hoColumn to voColumn
					Set ComAlignment of hoColumn to OLELeftAlignment
				Send Destroy to hoColumn
			Send Destroy to hoColumns
			Variant voItems
			Get ComItems of hoFaceTree to voItems
			Handle hoItems
			Get Create (RefClass(cComItems)) to hoItems
			Set pvComObject of hoItems to voItems
				Variant voItem
				Get ComAdd of hoItems "Choose your quick actions" to voItem
				Handle hoItem
				Get Create (RefClass(cComItem)) to hoItem
				Set pvComObject of hoItem to voItem
					Set ComSingleLine of hoItem 0 to False
					Variant voItems1
					Get ComItems of hoItem to voItems1
					Handle hoItems1
					Get Create (RefClass(cComItems)) to hoItems1
					Set pvComObject of hoItems1 to voItems1
						Variant voItem1
						Get ComAdd of hoItems1 "" to voItem1
						Handle hoItem1
						Get Create (RefClass(cComItem)) to hoItem1
						Set pvComObject of hoItem1 to voItem1
							Set ComHeight of hoItem1 to 48
							Variant s
							Move 0 to s
							Set ComValue of hoItem1 s to "<c><img>P1</img>"
							Set ComCellWidth of hoItem1 s to 48
							Set ComHasButton of hoItem1 s to True
							Get ComSplitCell of hoItem1 s to s
							Set ComValue of hoItem1 s to "<c><img>P2</img>"
							Set ComCellWidth of hoItem1 s to 48
							Set ComHasButton of hoItem1 s to True
							Get ComSplitCell of hoItem1 s to s
							Set ComValue of hoItem1 s to "<c><img>P3</img>"
							Set ComCellWidth of hoItem1 s to 48
							Set ComHasButton of hoItem1 s to True
							Get ComSplitCell of hoItem1 s to s
							Set ComValue of hoItem1 s to "<c><img>P4</img>"
							Set ComCellWidth of hoItem1 s to 48
							Set ComHasButton of hoItem1 s to True
							Get ComSplitCell of hoItem1 s to s
						Send Destroy to hoItem1
					Send Destroy to hoItems1
					Set ComExpanded of hoItem to True
				Send Destroy to hoItem
				Variant voItem2
				Get ComAdd of hoItems "Show me tips about Windows" to voItem2
				Handle hoItem2
				Get Create (RefClass(cComItem)) to hoItem2
				Set pvComObject of hoItem2 to voItem2
					Set ComSingleLine of hoItem2 0 to False
					Variant voItems2
					Get ComItems of hoItem2 to voItems2
					Handle hoItems2
					Get Create (RefClass(cComItems)) to hoItems2
					Set pvComObject of hoItems2 to voItems2
						Variant voItem3
						Get ComAdd of hoItems2 "" to voItem3
						Handle hoItem3
						Get Create (RefClass(cComItem)) to hoItem3
						Set pvComObject of hoItem3 to voItem3
							Set ComHeight of hoItem3 to 24
							Set ComHasCheckBox of hoItem3 0 to True
							Set ComState of hoItem3 0 to 1
							Set ComFormatCell of hoItem3 0 to "state = 0 ? `Off` : `On`"
						Send Destroy to hoItem3
					Send Destroy to hoItems2
					Set ComExpanded of hoItem2 to True
				Send Destroy to hoItem2
				Variant voItem4
				Get ComAdd of hoItems "Show app notifications	" to voItem4
				Handle hoItem4
				Get Create (RefClass(cComItem)) to hoItem4
				Set pvComObject of hoItem4 to voItem4
					Set ComSingleLine of hoItem4 0 to False
					Variant voItems3
					Get ComItems of hoItem4 to voItems3
					Handle hoItems3
					Get Create (RefClass(cComItems)) to hoItems3
					Set pvComObject of hoItems3 to voItems3
						Variant voItem5
						Get ComAdd of hoItems3 "" to voItem5
						Handle hoItem5
						Get Create (RefClass(cComItem)) to hoItem5
						Set pvComObject of hoItem5 to voItem5
							Set ComHeight of hoItem5 to 24
							Set ComHasCheckBox of hoItem5 0 to True
							Set ComState of hoItem5 0 to 1
							Set ComFormatCell of hoItem5 0 to "state = 0 ? `Off` : `On`"
						Send Destroy to hoItem5
					Send Destroy to hoItems3
					Set ComExpanded of hoItem4 to True
				Send Destroy to hoItem4
				Variant voItem6
				Get ComAdd of hoItems "Show notifications on lock screen" to voItem6
				Handle hoItem6
				Get Create (RefClass(cComItem)) to hoItem6
				Set pvComObject of hoItem6 to voItem6
					Set ComSingleLine of hoItem6 0 to False
					Variant voItems4
					Get ComItems of hoItem6 to voItems4
					Handle hoItems4
					Get Create (RefClass(cComItems)) to hoItems4
					Set pvComObject of hoItems4 to voItems4
						Variant voItem7
						Get ComAdd of hoItems4 "" to voItem7
						Handle hoItem7
						Get Create (RefClass(cComItem)) to hoItem7
						Set pvComObject of hoItem7 to voItem7
							Set ComHeight of hoItem7 to 24
							Set ComHasCheckBox of hoItem7 0 to True
							Set ComFormatCell of hoItem7 0 to "state = 0 ? `Off` : `On`"
						Send Destroy to hoItem7
					Send Destroy to hoItems4
					Set ComExpanded of hoItem6 to True
				Send Destroy to hoItem6
				Variant voItem8
				Get ComAdd of hoItems "Show alarms, reminders and incomming VOIP calls on the lock screen" to voItem8
				Handle hoItem8
				Get Create (RefClass(cComItem)) to hoItem8
				Set pvComObject of hoItem8 to voItem8
					Set ComSingleLine of hoItem8 0 to False
					Variant voItems5
					Get ComItems of hoItem8 to voItems5
					Handle hoItems5
					Get Create (RefClass(cComItems)) to hoItems5
					Set pvComObject of hoItems5 to voItems5
						Variant voItem9
						Get ComAdd of hoItems5 "" to voItem9
						Handle hoItem9
						Get Create (RefClass(cComItem)) to hoItem9
						Set pvComObject of hoItem9 to voItem9
							Set ComHeight of hoItem9 to 24
							Set ComHasCheckBox of hoItem9 0 to True
							Set ComState of hoItem9 0 to 1
							Set ComFormatCell of hoItem9 0 to "state = 0 ? `Off` : `On`"
						Send Destroy to hoItem9
					Send Destroy to hoItems5
					Set ComExpanded of hoItem8 to True
				Send Destroy to hoItem8
				Variant voItem10
				Get ComAdd of hoItems "Hide notications while presentation" to voItem10
				Handle hoItem10
				Get Create (RefClass(cComItem)) to hoItem10
				Set pvComObject of hoItem10 to voItem10
					Set ComSingleLine of hoItem10 0 to False
					Variant voItems6
					Get ComItems of hoItem10 to voItems6
					Handle hoItems6
					Get Create (RefClass(cComItems)) to hoItems6
					Set pvComObject of hoItems6 to voItems6
						Variant voItem11
						Get ComAdd of hoItems6 "" to voItem11
						Handle hoItem11
						Get Create (RefClass(cComItem)) to hoItem11
						Set pvComObject of hoItem11 to voItem11
							Set ComHeight of hoItem11 to 24
							Set ComHasCheckBox of hoItem11 0 to True
							Set ComState of hoItem11 0 to 0
							Set ComFormatCell of hoItem11 0 to "state = 0 ? `Off` : `On`"
						Send Destroy to hoItem11
					Send Destroy to hoItems6
					Set ComExpanded of hoItem10 to True
				Send Destroy to hoItem10
			Send Destroy to hoItems
		Send Destroy to hoFaceTree
	Send Destroy to hoFace
	Set ComEnsureVisibleFaceMargin to 0
	Send ComEnsureVisibleFace OLEexFrontFace Nothing
	Set ComAlwaysEnsureVisibleFace to OLEexFitToEnsureFace
	Send ComEndUpdate
End_Procedure

Procedure OnCreate
	Forward Send OnCreate
	Set ComTexturePicturePath to ""
	Variant voFace
	Get ComFrontFace to voFace
	Handle hoFace
	Get Create (RefClass(cComFace)) to hoFace
	Set pvComObject of hoFace to voFace
		Variant voFaceTree
		Get ComCreateTree of hoFace to voFaceTree
		Handle hoFaceTree
		Get Create (RefClass(cComFaceTree)) to hoFaceTree
		Set pvComObject of hoFaceTree to voFaceTree
			Set ComItemPadding of hoFaceTree to 16
			Variant voColumns
			Get ComColumns of hoFaceTree to voColumns
			Handle hoColumns
			Get Create (RefClass(cComColumns)) to hoColumns
			Set pvComObject of hoColumns to voColumns
				Variant voColumn
				Get ComAdd of hoColumns "Pos" to voColumn
				Handle hoColumn
				Get Create (RefClass(cComColumn)) to hoColumn
				Set pvComObject of hoColumn to voColumn
					Set ComFormatColumn of hoColumn to "1 pos ``"
					Set ComWidth of hoColumn to 8
				Send Destroy to hoColumn
			Send Destroy to hoColumns
			Variant voColumns1
			Get ComColumns of hoFaceTree to voColumns1
			Handle hoColumns1
			Get Create (RefClass(cComColumns)) to hoColumns1
			Set pvComObject of hoColumns1 to voColumns1
				Variant voColumn1
				Get ComAdd of hoColumns1 "Progress" to voColumn1
				Handle hoColumn1
				Get Create (RefClass(cComColumn)) to hoColumn1
				Set pvComObject of hoColumn1 to voColumn1
					Set ComAlignment of hoColumn1 to OLELeftAlignment
				Send Destroy to hoColumn1
			Send Destroy to hoColumns1
			Variant voItems
			Get ComItems of hoFaceTree to voItems
			Handle hoItems
			Get Create (RefClass(cComItems)) to hoItems
			Set pvComObject of hoItems to voItems
				Variant voItem
				Get ComAdd of hoItems "" to voItem
				Handle hoItem
				Get Create (RefClass(cComItem)) to hoItem
				Set pvComObject of hoItem to voItem
					Set ComBackgroundExt of hoItem 1 to "none[(2,2,100%-4,100%-4)](top[24,text=`10%`],bottom[6,back=RGB(204,204,204)](left[10%,back=RGB(0,120,215)]))"
					Set ComBackgroundExtValue of hoItem 1 OLEexIndexExt4 OLEexClientExt to "25%"
					Set ComBackgroundExtValue of hoItem 1 OLEexIndexExt2 OLEexTextExt to (ComBackgroundExtValue(hoItem,1,OLEexIndexExt4,OLEexClientExt))
				Send Destroy to hoItem
				Variant voItem1
				Get ComAdd of hoItems "" to voItem1
				Handle hoItem1
				Get Create (RefClass(cComItem)) to hoItem1
				Set pvComObject of hoItem1 to voItem1
					Set ComBackgroundExt of hoItem1 1 to "none[(2,2,100%-4,100%-4)](top[24,text=`10%`],bottom[6,back=RGB(204,204,204)](left[10%,back=RGB(0,120,215)]))"
					Set ComBackgroundExtValue of hoItem1 1 OLEexIndexExt4 OLEexClientExt to "15%"
					Set ComBackgroundExtValue of hoItem1 1 OLEexIndexExt2 OLEexTextExt to (ComBackgroundExtValue(hoItem1,1,OLEexIndexExt4,OLEexClientExt))
					Set ComBackgroundExtValue of hoItem1 1 OLEexIndexExt4 OLEexBackColorExt to 65280
				Send Destroy to hoItem1
				Variant voItem2
				Get ComAdd of hoItems "" to voItem2
				Handle hoItem2
				Get Create (RefClass(cComItem)) to hoItem2
				Set pvComObject of hoItem2 to voItem2
					Set ComBackgroundExt of hoItem2 1 to "none[(2,2,100%-4,100%-4)](top[24,text=`10%`],bottom[6,back=RGB(204,204,204)](left[10%,back=RGB(0,120,215)]))"
					Set ComBackgroundExtValue of hoItem2 1 OLEexIndexExt4 OLEexClientExt to "75%"
					Set ComBackgroundExtValue of hoItem2 1 OLEexIndexExt2 OLEexTextExt to (ComBackgroundExtValue(hoItem2,1,OLEexIndexExt4,OLEexClientExt))
				Send Destroy to hoItem2
				Variant voItem3
				Get ComAdd of hoItems "" to voItem3
				Handle hoItem3
				Get Create (RefClass(cComItem)) to hoItem3
				Set pvComObject of hoItem3 to voItem3
					Set ComBackgroundExt of hoItem3 1 to "none[(2,2,100%-4,100%-4)](top[24,text=`10%`],bottom[6,back=RGB(204,204,204)](left[10%,back=RGB(0,120,215)]))"
					Set ComBackgroundExtValue of hoItem3 1 OLEexIndexExt4 OLEexClientExt to "85%"
					Set ComBackgroundExtValue of hoItem3 1 OLEexIndexExt2 OLEexTextExt to (ComBackgroundExtValue(hoItem3,1,OLEexIndexExt4,OLEexClientExt))
				Send Destroy to hoItem3
				Variant voItem4
				Get ComAdd of hoItems "" to voItem4
				Handle hoItem4
				Get Create (RefClass(cComItem)) to hoItem4
				Set pvComObject of hoItem4 to voItem4
					Set ComBackgroundExt of hoItem4 1 to "none[(2,2,100%-4,100%-4)](top[24,text=`10%`],bottom[6,back=RGB(204,204,204)](left[10%,back=RGB(0,120,215)]))"
					Set ComBackgroundExtValue of hoItem4 1 OLEexIndexExt4 OLEexClientExt to "5%"
					Set ComBackgroundExtValue of hoItem4 1 OLEexIndexExt2 OLEexTextExt to (ComBackgroundExtValue(hoItem4,1,OLEexIndexExt4,OLEexClientExt))
					Set ComBackgroundExtValue of hoItem4 1 OLEexIndexExt4 OLEexBackColorExt to 255
				Send Destroy to hoItem4
			Send Destroy to hoItems
		Send Destroy to hoFaceTree
	Send Destroy to hoFace
End_Procedure

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Set ComTexturePicturePath to ""
	Set ComCheckBoxWidth to 32
	Set ComCheckBoxHeight to 29
	Variant voAppearance
	Get ComVisualAppearance to voAppearance
	Handle hoAppearance
	Get Create (RefClass(cComAppearance)) to hoAppearance
	Set pvComObject of hoAppearance to voAppearance
		Get ComAdd of hoAppearance 1 "gBFLBCJwBAEHhEJAADhABQACg6AADACAxRDAMgBQKAAzQFAYaBsHCGAAGMZRZgmFgAQhFcZQSKUOQTDKMIziaQAGgkNQwCSLIwjNIsBxPFIYRoAmCYZRnAYZIpjOZ5BiKAwgQiHMbwTLjfyMACjH7nnJEEigNIxToOU4jFDGIAWArAZBEbTENBtBIUIRoCA6CgOCAYRa4AJTdL1Er2ex2G7WMpWURkHTUJgGN4BVbdeoxPi/b6wDA8CwXAaHXpfbaKYQ7brYaikchyLI8Tq9bDNIgADLoYADJIoCRqEyudKQcrXJakaZqOoaXo+W5VVzWLpDVo0XBdTiLAAzKDgA6bRqBSjgMjuIpcbABazPJTwPJcXxnGyMehyWJ47KoKZOkoNRTiIRoCDgCZXm+eA6m0dQQj8MRInCUY7CIVoCEAFZonefApC2BQglWHIKAAPx/D4FoyHgTZsAIXwYAWYR8kMR5YAAP4PmOdZ7H8X54AoDhziASAaAiAoeAecZ+CQIAID4GhwGEF5eBOAphHgZgbgiWQYHYB4CGICA2CSCpPnMYIjgEYZoiIFYDCGCIyCsNgKCCRgSgyHZ4FoKoNiGOJgDKDphEidg0giJEnDiDojBkFZXg+IxZCYGoLgMOQSCmFBlCgOJZCmA4jDiCYJmSZw6FCEglheRhbA4ZZpgIV4ZCYV4+GeGhhniTghhsYAps+HBkGmTh0hmChpiId4PCSeQeHuHwnmmKhyg+aA3gYdohh2cxUhwCJNBIRZuiIXoDGiJwOkyWR9nkPwoiKFA2G2YBznaHIlB0cxGBiAYfAONJUCgIBmlAFg6k0AhaioJ5OkMTIdi0axzEyHmEBIYJpDMCJanyDowiwQwyq0LBbB6Sowg6KwYmoMxI26GwIBwU4Mj0GpgCOCI6BmG4mmYX4mG2a4GmCOAmhuFhfjmAALiKao5m6S4ml8bpNmKQBQgkFpzjSbg1koc44lYKQviKFp9j+TRrnsAZADALAXASQZwDwJp8xQc4uiSQ5xAwRwSkSYhDi0ERCFAECAg" to Nothing
		Get ComAdd of hoAppearance 2 "gBFLBCJwBAEHhEJAADhABZ8MACAADACAxRDAMgBQKAAzQFAYaBsHCGAAGMZRZgmFgAQhFcZQSKUOQTDKMIziaQAGgkNQwCSLIwjNIsBxPFIYRoAmCYZRnAYZIpjOZ5BiKAwgQiHMbwTLjfyMACjH7nnJEEigNIxToOU4jFDGIAWArAZBEbTENBtBIUIRoCA6CgOCAYRa4AJTdL1Er2ex2G7WMpWURkHTUJgGN4BVbdeoxPi/b6wDA8CwXAaHXpfbaKYQ7brYaikchyLI8Tq9bDNIgADLoYADJIoCRqEyudKQcrXJakaZqOoaXo+W5VVzWLpDVo0XBdTiLAAzKDgA6bRqBSjgMjuIpcbABazPJTwPJcXxnGyMehyWJ47KoKZOkoNRTiIRoCDgCZXm+eA6m0dQQj8MRInCUY7CIVoCEAFZonePwfA6fx7n2MIkBqM4REAB5vnOQpWCeAhnjACR9B4IoEC0OQMAGSZ0H2AxHmQAA/g+Y51n6AAgCgEZLDaChgmCUQkACAw8g4AJgjKEgNH6IQIEmYB/mAEhCAOBYZDMZIlA2TQSEQCheAGiwKDmTBiAWYYDCCaIWBOChijiMJ/DYXx4loNINBsQBdkWDpiCidgRg+YRYFoRANCMEAuEcXhlHiVISAMTgSlwXh1mOSISE+CZhEiKgLCiQw5FYWYaleFpQBiA4PhOSJhHMJgYD4Yx3mKn5fDYCgwkiUQkiUaRigIYhoEkZZUASTRiHAIodCSWYKCaHgmFkBh0CiAwZn6AYhGaUhcBiEhmkoEJQCOQBTiiTQjlwGZwDOE4oncXh5hmHIzGCIgMCkah0lMJYBFeMAHiyQRqmKMomiCY5wnoPUzFyuIMmIJh2ioXJqi6Ehkg0coEC6H7zHSUgkkCaxA42ToDmydw7GCahygODQNCIVASgoGQ7GyWAyEeaA9n2GQkAsBgGjQKBqGmwxNiKHA7HATxjiSTgzGwaY6h2J5AGOiwfFkM4UkEHQPiWQhQisD5zFyHwKimcAWgZhprBQAA6AyAgVleHILlucAAj+KA5joDhjg0VhOBEPpwjkBgQD+H5wh2bACBmYBBlwAQPGOKJRH0DwTHiNpHjICgSjiLYkCUGrzk4ApUFoNRJjCBxBGQTwjgCOpPBsWRnDGK4DAiMxDlKXp3ECRpFiuKgOh8AZODKcBqH0NR9GGdA+A6YxplMdRlHmPY4DsTRig2YXfECDg2lmJAjnCeQ8meOANwYwSBXEsDUeQZxdDxDgGwbY3QjjmHiKUcIwQnBfGADYZowR7B6E6E4MI2g1AUAsOkFwCwOhmECC0ZYkxzhhFME4egXQThHGkPUDoPwqtkE6E8LQaQJiHDiK4KYaBCiwFwOkaYVROhqXoIcdw9BzAcCKNAZg3Qbg2BsD0cY+BvBPEWOUfIHgziVHMOMYwWQEAACGAEZYgg7gaGKCUXQ6hoD7F2JwW5txIhPHYBQTwwQljzD6AYW4zx6h9B+F8bo9h/AfDONUZwkhziJF8FwHALBaCTAwIEG4CASDfC4FwAIRRHuhBAOUUwAxoAQH6C0eACgDAeAMGoGgGREDPAiKAAIVwBgYA2AUZ4QgEAOEGMANwCwIjWCIEgJIASAg==" to Nothing
		Get ComAdd of hoAppearance 3 "gBFLBCJwBAEHhEJAADhABT0MACAADACAxRDAMgBQKAAzQFAYaBsHCGAAGMZRZgmFgAQhFcZQSKUOQTDKMIziaQAGgkNQwCSLIwjNIsBxPFIYRoAmCYZRnAYZIpjOZ5BiKAwgQiHMbwTLjfyMACjH7nnJEEigNIxToOU4jFDGIAWArAZBEbTENBtBIUIRoCA6CgOCAYRa4AJTdL1Er2ex2G7WMpWURkHTUJgGN4BVbdeoxPi/b6wDA8CwXAaHXpfbaKYQ7brYaikchyLI8Tq9bDNIgADLoYADJIoCRqEyudKQcrXJakaZqOoaXo+W5VVzWLpDVo0XBdTiLAAzKDgA6bRqBSjgMjuIpcbABazPJTwPJcXxnGyMehyWJ47KoKZOkoNRTiIRoCDgCZXm+eA6m0dQQj8MRInCUY7CIVoCEAFZonePR+D6d57GESA1GcIoAA+X5fgW2oJh6QAlnMdZHlgFIogGXw3lQNB+AAA54n4PxflefgBgCXIyBIFgZmGAYOBqAhKEgLZ5gOIQHgGfoAAkCAKBQZJIDiJBogqRwYjYGAZksGJFmGAogkiAgRgkIhohyfwgiOSIsGiCxkAGRBwhCRgZBYM4HGMWA+DeBJhEIBhOg+JAZEYQAaGUQhyFYdZjEgfhKgiIQohWc4TggGRCFKGJkCkDBehmTpJiWTIWGCWRtl+CJkkcfIAhyZgphIdoLEaWZkHeHpmjkIhaggZp5HYORzCcMgCHWFIkDGQBviKZx4jQZIjkuKhFkENgKDCThJiAHR5kIXhykeeh2geFBGmqBBmiiaI6hQb4diiGYcF4PgqkYTJXCgApDDiCYbGmBw6hqIJZCGeo6hUBoZlgaovmOY5CkIPQsEqKoJh2J4RjQeYylkM5cm0NgMhGegNH8JZImGE4BEeWpygiEJhiGDIGjeXATgaYgXG4SweGQGRugKOpqGSThTAQdA+hcCQuhsP5HjuVoPBkJQqhaZAXEsO52hkNYNGEcwCjmJAaCaew5HCBhOA8PpvJQDg/iyMZmiMGYGv4dw4jGB5MlKRpwCEcwEhAKhcE4OhRisdwEhmSZHGyJwjGQTRMjcHZHmKXBUGuJxHniHwlkqXpzG8Oo+moWRKmgGRKC0BZzk2c/FmiUZkFGBohBuJQhH8TgxjUB4ElUJwCDMRIRHuNBYhyd5WmuTJKECQYuEuCJhHWTYShQNhtm0M5zFmSpvFGbgvkgKI9DgXw8jcRwwm0GoCgEAxhoAWB0MwgQWi7EmOcMIpgnDwC4CcA4wh4gcB+BUYYcROBPA0GkCYhw4iuCmDgEg1wWAwDmBQJwlw9ifD4OsTAcQLhDBmHQbg1gzBvCWNMegnQnhNGqHUDoXwujWHqAYLICAAAbCKDAOQ4BMD9GaFUUo2QYjzFcLcTovBIhODuBoYoJxEBSHwP4JIrRyB5D8FcTI5x8jeEeJsco7xSC5HEG8S4DgEjnHaNQWIfRJheDaH8BgTgoB8EqFYMoFxPg/CeMUeovAMDBGKJkBgXxGgLHsH4R4QQpj7EyP8ZI1hEChBQAggI" to Nothing
	Send Destroy to hoAppearance
	Set ComBackground OLEexCheckBoxState0 to |CI$1000000
	Set ComBackground OLEexCheckBoxState1 to |CI$2000000
	Set ComBackground OLEexCheckBoxState2 to |CI$3000000
	Variant voFace
	Get ComFrontFace to voFace
	Handle hoFace
	Get Create (RefClass(cComFace)) to hoFace
	Set pvComObject of hoFace to voFace
		Variant voFaceTree
		Get ComCreateTree of hoFace to voFaceTree
		Handle hoFaceTree
		Get Create (RefClass(cComFaceTree)) to hoFaceTree
		Set pvComObject of hoFaceTree to voFaceTree
			Set ComHasLines of hoFaceTree to OLEexThinLine
			Set ComShowSelection of hoFaceTree to False
			Set ComDrawGridLines of hoFaceTree to OLEexRowLines
			Set ComItemPadding of hoFaceTree to 16
			Variant voColumns
			Get ComColumns of hoFaceTree to voColumns
			Handle hoColumns
			Get Create (RefClass(cComColumns)) to hoColumns
			Set pvComObject of hoColumns to voColumns
				Variant voColumn
				Get ComAdd of hoColumns "<c><b>Partial Check" to voColumn
				Handle hoColumn
				Get Create (RefClass(cComColumn)) to hoColumn
				Set pvComObject of hoColumn to voColumn
					Set ComAlignment of hoColumn to OLELeftAlignment
					Set ComDef of hoColumn OLEexCellHasCheckBox to True
					Set ComFormatColumn of hoColumn to "`Check <b>` + 1 rpos `` + '</b> ' + (state=0 ? `<off 4>(off)` : (state=1 ? `<off 4>(on)` : ``))"
					Set ComPartialCheck of hoColumn to True
				Send Destroy to hoColumn
			Send Destroy to hoColumns
			Variant voItems
			Get ComItems of hoFaceTree to voItems
			Handle hoItems
			Get Create (RefClass(cComItems)) to hoItems
			Set pvComObject of hoItems to voItems
				Variant v
					Variant voFace1
					Get ComFrontFace to voFace1
					Handle hoFace1
					Get Create (RefClass(cComFace)) to hoFace1
					Set pvComObject of hoFace1 to voFace1
						Variant voFaceTree1
						Get ComFaceTree of hoFace1 to voFaceTree1
						Handle hoFaceTree1
						Get Create (RefClass(cComFaceTree)) to hoFaceTree1
						Set pvComObject of hoFaceTree1 to voFaceTree1
							Get ComVisibleItemsCount of hoFaceTree1 to v
						Send Destroy to hoFaceTree1
					Send Destroy to hoFace1
				Set ComCount of hoItems to v
			Send Destroy to hoItems
			Variant voItem
			Get ComItemByIndex of hoFaceTree 1 to voItem
			Handle hoItem
			Get Create (RefClass(cComItem)) to hoItem
			Set pvComObject of hoItem to voItem
				Variant voItems1
				Get ComItems of hoItem to voItems1
				Handle hoItems1
				Get Create (RefClass(cComItems)) to hoItems1
				Set pvComObject of hoItems1 to voItems1
					Set ComCount of hoItems1 to 3
				Send Destroy to hoItems1
				Set ComExpanded of hoItem to True
				Set ComState of hoItem 0 to 1
			Send Destroy to hoItem
			Variant voItem1
			Get ComItemByIndex of hoFaceTree 2 to voItem1
			Handle hoItem1
			Get Create (RefClass(cComItem)) to hoItem1
			Set pvComObject of hoItem1 to voItem1
				Variant voItems2
				Get ComItems of hoItem1 to voItems2
				Handle hoItems2
				Get Create (RefClass(cComItems)) to hoItems2
				Set pvComObject of hoItems2 to voItems2
					Set ComCount of hoItems2 to 3
				Send Destroy to hoItems2
				Set ComExpanded of hoItem1 to True
				Variant voItems3
				Get ComItems of hoItem1 to voItems3
				Handle hoItems3
				Get Create (RefClass(cComItems)) to hoItems3
				Set pvComObject of hoItems3 to voItems3
					Variant voItem2
					Get ComItem of hoItems3 1 to voItem2
					Handle hoItem2
					Get Create (RefClass(cComItem)) to hoItem2
					Set pvComObject of hoItem2 to voItem2
						Set ComState of hoItem2 0 to 1
					Send Destroy to hoItem2
				Send Destroy to hoItems3
			Send Destroy to hoItem1
		Send Destroy to hoFaceTree
	Send Destroy to hoFace
	Send ComEndUpdate
End_Procedure

Procedure OnCreate
	Forward Send OnCreate
	Variant voFace
	Get ComFrontFace to voFace
	Handle hoFace
	Get Create (RefClass(cComFace)) to hoFace
	Set pvComObject of hoFace to voFace
		Variant voFaceCalendar
		Get ComCreateCalendar of hoFace to voFaceCalendar
		Handle hoFaceCalendar
		Get Create (RefClass(cComFaceCalendar)) to hoFaceCalendar
		Set pvComObject of hoFaceCalendar to voFaceCalendar
			Set ComAutoSize of hoFaceCalendar to OLEexFitClient
			Set ComMaxMonthX of hoFaceCalendar to 1
			Set ComMaxMonthY of hoFaceCalendar to 1
		Send Destroy to hoFaceCalendar
	Send Destroy to hoFace
	Handle hoPrint
	Get Create (RefClass(cComPrint)) to hoPrint // Import the 'ExPrint 1.0 Control Library' library
		Set ComPrintExt of hoPrint to (pvComObject(Self))
		Send ComPreview of hoPrint
	Send Destroy to hoPrint
End_Procedure

// Occurs when the user moves the mouse.
Procedure OnComMouseMove Short   llButton Short   llShift OLE_XPOS_PIXELS   llX OLE_YPOS_PIXELS   llY
	Forward Send OnComMouseMove llButton llShift llX llY
	Variant v
	Variant voFace
	Get ComFrontFace to voFace
	Handle hoFace
	Get Create (RefClass(cComFace)) to hoFace
	Set pvComObject of hoFace to voFace
		Variant voFaceTree
		Get ComFaceTree of hoFace to voFaceTree
		Handle hoFaceTree
		Get Create (RefClass(cComFaceTree)) to hoFaceTree
		Set pvComObject of hoFaceTree to voFaceTree
			Get ComCaptionFromPoint of hoFaceTree -1 -1 to v
		Send Destroy to hoFaceTree
	Send Destroy to hoFace
	Showln v
End_Procedure

Procedure OnCreate
	Forward Send OnCreate
	Set ComTexturePicturePath to "C:\Program Files\Exontrol\ExTreeCube\Sample\Texture\Chapel"
	Variant voFace1
	Get ComFrontFace to voFace1
	Handle hoFace1
	Get Create (RefClass(cComFace)) to hoFace1
	Set pvComObject of hoFace1 to voFace1
		Variant voFaceTree1
		Get ComCreateTree of hoFace1 to voFaceTree1
		Handle hoFaceTree1
		Get Create (RefClass(cComFaceTree)) to hoFaceTree1
		Set pvComObject of hoFaceTree1 to voFaceTree1
			Set ComItemPadding of hoFaceTree1 to 16
			Set ComHeaderVisible of hoFaceTree1 to False
			Set ComForeColor of hoFaceTree1 to (RGB(255,255,255))
			Variant voItems
			Get ComItems of hoFaceTree1 to voItems
			Handle hoItems
			Get Create (RefClass(cComItems)) to hoItems
			Set pvComObject of hoItems to voItems
				Set ComToString of hoItems to "<sha \;\;0><font \;18>Place <b>A,<sha \;\;0><font \;18>Place <b>B,<sha \;\;0><font \;18>Place <b>C,<sha \;\;0><font \;18>Place <b>D,<sha \;\;0><font \;18>Place <b>E"
			Send Destroy to hoItems
		Send Destroy to hoFaceTree1
	Send Destroy to hoFace1
End_Procedure

// Occurs when the user moves the mouse.
Procedure OnComMouseMove Short   llButton Short   llShift OLE_XPOS_PIXELS   llX OLE_YPOS_PIXELS   llY
	Forward Send OnComMouseMove llButton llShift llX llY
	Variant v
	Variant voFace
	Get ComFrontFace to voFace
	Handle hoFace
	Get Create (RefClass(cComFace)) to hoFace
	Set pvComObject of hoFace to voFace
		Variant voFaceTree
		Get ComFaceTree of hoFace to voFaceTree
		Handle hoFaceTree
		Get Create (RefClass(cComFaceTree)) to hoFaceTree
		Set pvComObject of hoFaceTree to voFaceTree
			Get ComValueFromPoint of hoFaceTree -1 -1 to v
		Send Destroy to hoFaceTree
	Send Destroy to hoFace
	Showln v
End_Procedure

Procedure OnCreate
	Forward Send OnCreate
	Set ComTexturePicturePath to "C:\Program Files\Exontrol\ExTreeCube\Sample\Texture\Chapel"
	Variant voFace1
	Get ComFrontFace to voFace1
	Handle hoFace1
	Get Create (RefClass(cComFace)) to hoFace1
	Set pvComObject of hoFace1 to voFace1
		Variant voFaceTree1
		Get ComCreateTree of hoFace1 to voFaceTree1
		Handle hoFaceTree1
		Get Create (RefClass(cComFaceTree)) to hoFaceTree1
		Set pvComObject of hoFaceTree1 to voFaceTree1
			Set ComItemPadding of hoFaceTree1 to 16
			Set ComHeaderVisible of hoFaceTree1 to False
			Set ComForeColor of hoFaceTree1 to (RGB(255,255,255))
			Variant voItems
			Get ComItems of hoFaceTree1 to voItems
			Handle hoItems
			Get Create (RefClass(cComItems)) to hoItems
			Set pvComObject of hoItems to voItems
				Set ComToString of hoItems to "<sha \;\;0><font \;18>Place <b>A,<sha \;\;0><font \;18>Place <b>B,<sha \;\;0><font \;18>Place <b>C,<sha \;\;0><font \;18>Place <b>D,<sha \;\;0><font \;18>Place <b>E"
			Send Destroy to hoItems
		Send Destroy to hoFaceTree1
	Send Destroy to hoFace1
End_Procedure

// Occurs when the user moves the mouse.
Procedure OnComMouseMove Short   llButton Short   llShift OLE_XPOS_PIXELS   llX OLE_YPOS_PIXELS   llY
	Forward Send OnComMouseMove llButton llShift llX llY
	Variant v
	Variant voFace
	Get ComFrontFace to voFace
	Handle hoFace
	Get Create (RefClass(cComFace)) to hoFace
	Set pvComObject of hoFace to voFace
		Variant voFaceTree
		Get ComFaceTree of hoFace to voFaceTree
		Handle hoFaceTree
		Get Create (RefClass(cComFaceTree)) to hoFaceTree
		Set pvComObject of hoFaceTree to voFaceTree
			Get ComColumnFromPoint of hoFaceTree -1 -1 to v
		Send Destroy to hoFaceTree
	Send Destroy to hoFace
	Showln v
End_Procedure

Procedure OnCreate
	Forward Send OnCreate
	Variant voFace1
	Get ComFrontFace to voFace1
	Handle hoFace1
	Get Create (RefClass(cComFace)) to hoFace1
	Set pvComObject of hoFace1 to voFace1
		Variant voFaceTree1
		Get ComCreateTree of hoFace1 to voFaceTree1
		Handle hoFaceTree1
		Get Create (RefClass(cComFaceTree)) to hoFaceTree1
		Set pvComObject of hoFaceTree1 to voFaceTree1
			Set ComFullRowSelect of hoFaceTree1 to True
			Set ComDrawGridLines of hoFaceTree1 to OLEexRowLines
			Variant voColumns
			Get ComColumns of hoFaceTree1 to voColumns
			Handle hoColumns
			Get Create (RefClass(cComColumns)) to hoColumns
			Set pvComObject of hoColumns to voColumns
				Variant voColumn
				Get ComAdd of hoColumns "A" to voColumn
				Handle hoColumn
				Get Create (RefClass(cComColumn)) to hoColumn
				Set pvComObject of hoColumn to voColumn
					Set ComFormatColumn of hoColumn to "0 pos `A-Z`"
				Send Destroy to hoColumn
			Send Destroy to hoColumns
			Variant voColumns1
			Get ComColumns of hoFaceTree1 to voColumns1
			Handle hoColumns1
			Get Create (RefClass(cComColumns)) to hoColumns1
			Set pvComObject of hoColumns1 to voColumns1
				Variant voColumn1
				Get ComAdd of hoColumns1 "B" to voColumn1
				Handle hoColumn1
				Get Create (RefClass(cComColumn)) to hoColumn1
				Set pvComObject of hoColumn1 to voColumn1
					Set ComFormatColumn of hoColumn1 to "0 pos `B-Z`"
				Send Destroy to hoColumn1
			Send Destroy to hoColumns1
			Variant voColumns2
			Get ComColumns of hoFaceTree1 to voColumns2
			Handle hoColumns2
			Get Create (RefClass(cComColumns)) to hoColumns2
			Set pvComObject of hoColumns2 to voColumns2
				Variant voColumn2
				Get ComAdd of hoColumns2 "C" to voColumn2
				Handle hoColumn2
				Get Create (RefClass(cComColumn)) to hoColumn2
				Set pvComObject of hoColumn2 to voColumn2
					Set ComFormatColumn of hoColumn2 to "0 pos `C-Z`"
				Send Destroy to hoColumn2
			Send Destroy to hoColumns2
			Variant voColumns3
			Get ComColumns of hoFaceTree1 to voColumns3
			Handle hoColumns3
			Get Create (RefClass(cComColumns)) to hoColumns3
			Set pvComObject of hoColumns3 to voColumns3
				Variant voColumn3
				Get ComAdd of hoColumns3 "D" to voColumn3
				Handle hoColumn3
				Get Create (RefClass(cComColumn)) to hoColumn3
				Set pvComObject of hoColumn3 to voColumn3
					Set ComFormatColumn of hoColumn3 to "0 pos `D-Z`"
				Send Destroy to hoColumn3
			Send Destroy to hoColumns3
			Variant voItems
			Get ComItems of hoFaceTree1 to voItems
			Handle hoItems
			Get Create (RefClass(cComItems)) to hoItems
			Set pvComObject of hoItems to voItems
				Set ComCount of hoItems to 4
			Send Destroy to hoItems
		Send Destroy to hoFaceTree1
	Send Destroy to hoFace1
End_Procedure

// Occurs when the user moves the mouse.
Procedure OnComMouseMove Short   llButton Short   llShift OLE_XPOS_PIXELS   llX OLE_YPOS_PIXELS   llY
	Forward Send OnComMouseMove llButton llShift llX llY
	Variant v
	Variant voFace
	Get ComFrontFace to voFace
	Handle hoFace
	Get Create (RefClass(cComFace)) to hoFace
	Set pvComObject of hoFace to voFace
		Variant voFaceTree
		Get ComFaceTree of hoFace to voFaceTree
		Handle hoFaceTree
		Get Create (RefClass(cComFaceTree)) to hoFaceTree
		Set pvComObject of hoFaceTree to voFaceTree
			Get ComItemFromPoint of hoFaceTree -1 -1 to v
		Send Destroy to hoFaceTree
	Send Destroy to hoFace
	Showln v
End_Procedure

Procedure OnCreate
	Forward Send OnCreate
	Variant voFace1
	Get ComFrontFace to voFace1
	Handle hoFace1
	Get Create (RefClass(cComFace)) to hoFace1
	Set pvComObject of hoFace1 to voFace1
		Variant voFaceTree1
		Get ComCreateTree of hoFace1 to voFaceTree1
		Handle hoFaceTree1
		Get Create (RefClass(cComFaceTree)) to hoFaceTree1
		Set pvComObject of hoFaceTree1 to voFaceTree1
			Set ComFullRowSelect of hoFaceTree1 to True
			Set ComDrawGridLines of hoFaceTree1 to OLEexRowLines
			Variant voColumns
			Get ComColumns of hoFaceTree1 to voColumns
			Handle hoColumns
			Get Create (RefClass(cComColumns)) to hoColumns
			Set pvComObject of hoColumns to voColumns
				Variant voColumn
				Get ComAdd of hoColumns "A" to voColumn
				Handle hoColumn
				Get Create (RefClass(cComColumn)) to hoColumn
				Set pvComObject of hoColumn to voColumn
					Set ComFormatColumn of hoColumn to "0 pos `A-Z`"
				Send Destroy to hoColumn
			Send Destroy to hoColumns
			Variant voColumns1
			Get ComColumns of hoFaceTree1 to voColumns1
			Handle hoColumns1
			Get Create (RefClass(cComColumns)) to hoColumns1
			Set pvComObject of hoColumns1 to voColumns1
				Variant voColumn1
				Get ComAdd of hoColumns1 "B" to voColumn1
				Handle hoColumn1
				Get Create (RefClass(cComColumn)) to hoColumn1
				Set pvComObject of hoColumn1 to voColumn1
					Set ComFormatColumn of hoColumn1 to "0 pos `B-Z`"
				Send Destroy to hoColumn1
			Send Destroy to hoColumns1
			Variant voColumns2
			Get ComColumns of hoFaceTree1 to voColumns2
			Handle hoColumns2
			Get Create (RefClass(cComColumns)) to hoColumns2
			Set pvComObject of hoColumns2 to voColumns2
				Variant voColumn2
				Get ComAdd of hoColumns2 "C" to voColumn2
				Handle hoColumn2
				Get Create (RefClass(cComColumn)) to hoColumn2
				Set pvComObject of hoColumn2 to voColumn2
					Set ComFormatColumn of hoColumn2 to "0 pos `C-Z`"
				Send Destroy to hoColumn2
			Send Destroy to hoColumns2
			Variant voColumns3
			Get ComColumns of hoFaceTree1 to voColumns3
			Handle hoColumns3
			Get Create (RefClass(cComColumns)) to hoColumns3
			Set pvComObject of hoColumns3 to voColumns3
				Variant voColumn3
				Get ComAdd of hoColumns3 "D" to voColumn3
				Handle hoColumn3
				Get Create (RefClass(cComColumn)) to hoColumn3
				Set pvComObject of hoColumn3 to voColumn3
					Set ComFormatColumn of hoColumn3 to "0 pos `D-Z`"
				Send Destroy to hoColumn3
			Send Destroy to hoColumns3
			Variant voItems
			Get ComItems of hoFaceTree1 to voItems
			Handle hoItems
			Get Create (RefClass(cComItems)) to hoItems
			Set pvComObject of hoItems to voItems
				Set ComCount of hoItems to 4
			Send Destroy to hoItems
		Send Destroy to hoFaceTree1
	Send Destroy to hoFace1
End_Procedure

// Occurs when the user moves the mouse.
Procedure OnComMouseMove Short   llButton Short   llShift OLE_XPOS_PIXELS   llX OLE_YPOS_PIXELS   llY
	Forward Send OnComMouseMove llButton llShift llX llY
	Variant v
	Variant voFace
	Get ComFrontFace to voFace
	Handle hoFace
	Get Create (RefClass(cComFace)) to hoFace
	Set pvComObject of hoFace to voFace
		Variant voFaceCalendar
		Get ComFaceCalendar of hoFace to voFaceCalendar
		Handle hoFaceCalendar
		Get Create (RefClass(cComFaceCalendar)) to hoFaceCalendar
		Set pvComObject of hoFaceCalendar to voFaceCalendar
			Get ComValueFromPoint of hoFaceCalendar -1 -1 to v
		Send Destroy to hoFaceCalendar
	Send Destroy to hoFace
	Showln "Date:" v
End_Procedure

Procedure OnCreate
	Forward Send OnCreate
	Variant voFace1
	Get ComFrontFace to voFace1
	Handle hoFace1
	Get Create (RefClass(cComFace)) to hoFace1
	Set pvComObject of hoFace1 to voFace1
		Variant voFaceCalendar1
		Get ComCreateCalendar of hoFace1 to voFaceCalendar1
		Handle hoFaceCalendar1
		Get Create (RefClass(cComFaceCalendar)) to hoFaceCalendar1
		Set pvComObject of hoFaceCalendar1 to voFaceCalendar1
			Set ComAutoSize of hoFaceCalendar1 to OLEexFitClient
			Set ComMaxMonthX of hoFaceCalendar1 to 1
			Set ComMaxMonthY of hoFaceCalendar1 to 1
		Send Destroy to hoFaceCalendar1
	Send Destroy to hoFace1
End_Procedure

// Occurs when the user moves the mouse.
Procedure OnComMouseMove Short   llButton Short   llShift OLE_XPOS_PIXELS   llX OLE_YPOS_PIXELS   llY
	Forward Send OnComMouseMove llButton llShift llX llY
	Variant v
	Variant voFace
	Get ComFrontFace to voFace
	Handle hoFace
	Get Create (RefClass(cComFace)) to hoFace
	Set pvComObject of hoFace to voFace
		Variant voFaceCalendar
		Get ComFaceCalendar of hoFace to voFaceCalendar
		Handle hoFaceCalendar
		Get Create (RefClass(cComFaceCalendar)) to hoFaceCalendar
		Set pvComObject of hoFaceCalendar to voFaceCalendar
			Get ComDateFromPoint of hoFaceCalendar -1 -1 to v
		Send Destroy to hoFaceCalendar
	Send Destroy to hoFace
	Showln "Date:" v
End_Procedure

Procedure OnCreate
	Forward Send OnCreate
	Variant voFace1
	Get ComFrontFace to voFace1
	Handle hoFace1
	Get Create (RefClass(cComFace)) to hoFace1
	Set pvComObject of hoFace1 to voFace1
		Variant voFaceCalendar1
		Get ComCreateCalendar of hoFace1 to voFaceCalendar1
		Handle hoFaceCalendar1
		Get Create (RefClass(cComFaceCalendar)) to hoFaceCalendar1
		Set pvComObject of hoFaceCalendar1 to voFaceCalendar1
			Set ComAutoSize of hoFaceCalendar1 to OLEexFitClient
			Set ComMaxMonthX of hoFaceCalendar1 to 1
			Set ComMaxMonthY of hoFaceCalendar1 to 1
		Send Destroy to hoFaceCalendar1
	Send Destroy to hoFace1
End_Procedure

// Occurs when the user moves the mouse.
Procedure OnComMouseMove Short   llButton Short   llShift OLE_XPOS_PIXELS   llX OLE_YPOS_PIXELS   llY
	Forward Send OnComMouseMove llButton llShift llX llY
	Showln "Face:" (ComFaceFromPoint(Self,-1,-1))
End_Procedure

Procedure OnCreate
	Forward Send OnCreate
	Set ComIdentifyFace to OLEexIdentifyFaceCaption
End_Procedure

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Set ComTexturePicturePath to ""
	Set ComCheckBoxWidth to 32
	Set ComCheckBoxHeight to 29
	Variant voAppearance
	Get ComVisualAppearance to voAppearance
	Handle hoAppearance
	Get Create (RefClass(cComAppearance)) to hoAppearance
	Set pvComObject of hoAppearance to voAppearance
		Get ComAdd of hoAppearance 1 "gBFLBCJwBAEHhEJAADhABQACg6AADACAxRDAMgBQKAAzQFAYaBsHCGAAGMZRZgmFgAQhFcZQSKUOQTDKMIziaQAGgkNQwCSLIwjNIsBxPFIYRoAmCYZRnAYZIpjOZ5BiKAwgQiHMbwTLjfyMACjH7nnJEEigNIxToOU4jFDGIAWArAZBEbTENBtBIUIRoCA6CgOCAYRa4AJTdL1Er2ex2G7WMpWURkHTUJgGN4BVbdeoxPi/b6wDA8CwXAaHXpfbaKYQ7brYaikchyLI8Tq9bDNIgADLoYADJIoCRqEyudKQcrXJakaZqOoaXo+W5VVzWLpDVo0XBdTiLAAzKDgA6bRqBSjgMjuIpcbABazPJTwPJcXxnGyMehyWJ47KoKZOkoNRTiIRoCDgCZXm+eA6m0dQQj8MRInCUY7CIVoCEAFZonefApC2BQglWHIKAAPx/D4FoyHgTZsAIXwYAWYR8kMR5YAAP4PmOdZ7H8X54AoDhziASAaAiAoeAecZ+CQIAID4GhwGEF5eBOAphHgZgbgiWQYHYB4CGICA2CSCpPnMYIjgEYZoiIFYDCGCIyCsNgKCCRgSgyHZ4FoKoNiGOJgDKDphEidg0giJEnDiDojBkFZXg+IxZCYGoLgMOQSCmFBlCgOJZCmA4jDiCYJmSZw6FCEglheRhbA4ZZpgIV4ZCYV4+GeGhhniTghhsYAps+HBkGmTh0hmChpiId4PCSeQeHuHwnmmKhyg+aA3gYdohh2cxUhwCJNBIRZuiIXoDGiJwOkyWR9nkPwoiKFA2G2YBznaHIlB0cxGBiAYfAONJUCgIBmlAFg6k0AhaioJ5OkMTIdi0axzEyHmEBIYJpDMCJanyDowiwQwyq0LBbB6Sowg6KwYmoMxI26GwIBwU4Mj0GpgCOCI6BmG4mmYX4mG2a4GmCOAmhuFhfjmAALiKao5m6S4ml8bpNmKQBQgkFpzjSbg1koc44lYKQviKFp9j+TRrnsAZADALAXASQZwDwJp8xQc4uiSQ5xAwRwSkSYhDi0ERCFAECAg" to Nothing
		Get ComAdd of hoAppearance 2 "gBFLBCJwBAEHhEJAADhABZ8MACAADACAxRDAMgBQKAAzQFAYaBsHCGAAGMZRZgmFgAQhFcZQSKUOQTDKMIziaQAGgkNQwCSLIwjNIsBxPFIYRoAmCYZRnAYZIpjOZ5BiKAwgQiHMbwTLjfyMACjH7nnJEEigNIxToOU4jFDGIAWArAZBEbTENBtBIUIRoCA6CgOCAYRa4AJTdL1Er2ex2G7WMpWURkHTUJgGN4BVbdeoxPi/b6wDA8CwXAaHXpfbaKYQ7brYaikchyLI8Tq9bDNIgADLoYADJIoCRqEyudKQcrXJakaZqOoaXo+W5VVzWLpDVo0XBdTiLAAzKDgA6bRqBSjgMjuIpcbABazPJTwPJcXxnGyMehyWJ47KoKZOkoNRTiIRoCDgCZXm+eA6m0dQQj8MRInCUY7CIVoCEAFZonePwfA6fx7n2MIkBqM4REAB5vnOQpWCeAhnjACR9B4IoEC0OQMAGSZ0H2AxHmQAA/g+Y51n6AAgCgEZLDaChgmCUQkACAw8g4AJgjKEgNH6IQIEmYB/mAEhCAOBYZDMZIlA2TQSEQCheAGiwKDmTBiAWYYDCCaIWBOChijiMJ/DYXx4loNINBsQBdkWDpiCidgRg+YRYFoRANCMEAuEcXhlHiVISAMTgSlwXh1mOSISE+CZhEiKgLCiQw5FYWYaleFpQBiA4PhOSJhHMJgYD4Yx3mKn5fDYCgwkiUQkiUaRigIYhoEkZZUASTRiHAIodCSWYKCaHgmFkBh0CiAwZn6AYhGaUhcBiEhmkoEJQCOQBTiiTQjlwGZwDOE4oncXh5hmHIzGCIgMCkah0lMJYBFeMAHiyQRqmKMomiCY5wnoPUzFyuIMmIJh2ioXJqi6Ehkg0coEC6H7zHSUgkkCaxA42ToDmydw7GCahygODQNCIVASgoGQ7GyWAyEeaA9n2GQkAsBgGjQKBqGmwxNiKHA7HATxjiSTgzGwaY6h2J5AGOiwfFkM4UkEHQPiWQhQisD5zFyHwKimcAWgZhprBQAA6AyAgVleHILlucAAj+KA5joDhjg0VhOBEPpwjkBgQD+H5wh2bACBmYBBlwAQPGOKJRH0DwTHiNpHjICgSjiLYkCUGrzk4ApUFoNRJjCBxBGQTwjgCOpPBsWRnDGK4DAiMxDlKXp3ECRpFiuKgOh8AZODKcBqH0NR9GGdA+A6YxplMdRlHmPY4DsTRig2YXfECDg2lmJAjnCeQ8meOANwYwSBXEsDUeQZxdDxDgGwbY3QjjmHiKUcIwQnBfGADYZowR7B6E6E4MI2g1AUAsOkFwCwOhmECC0ZYkxzhhFME4egXQThHGkPUDoPwqtkE6E8LQaQJiHDiK4KYaBCiwFwOkaYVROhqXoIcdw9BzAcCKNAZg3Qbg2BsD0cY+BvBPEWOUfIHgziVHMOMYwWQEAACGAEZYgg7gaGKCUXQ6hoD7F2JwW5txIhPHYBQTwwQljzD6AYW4zx6h9B+F8bo9h/AfDONUZwkhziJF8FwHALBaCTAwIEG4CASDfC4FwAIRRHuhBAOUUwAxoAQH6C0eACgDAeAMGoGgGREDPAiKAAIVwBgYA2AUZ4QgEAOEGMANwCwIjWCIEgJIASAg==" to Nothing
		Get ComAdd of hoAppearance 3 "gBFLBCJwBAEHhEJAADhABT0MACAADACAxRDAMgBQKAAzQFAYaBsHCGAAGMZRZgmFgAQhFcZQSKUOQTDKMIziaQAGgkNQwCSLIwjNIsBxPFIYRoAmCYZRnAYZIpjOZ5BiKAwgQiHMbwTLjfyMACjH7nnJEEigNIxToOU4jFDGIAWArAZBEbTENBtBIUIRoCA6CgOCAYRa4AJTdL1Er2ex2G7WMpWURkHTUJgGN4BVbdeoxPi/b6wDA8CwXAaHXpfbaKYQ7brYaikchyLI8Tq9bDNIgADLoYADJIoCRqEyudKQcrXJakaZqOoaXo+W5VVzWLpDVo0XBdTiLAAzKDgA6bRqBSjgMjuIpcbABazPJTwPJcXxnGyMehyWJ47KoKZOkoNRTiIRoCDgCZXm+eA6m0dQQj8MRInCUY7CIVoCEAFZonePR+D6d57GESA1GcIoAA+X5fgW2oJh6QAlnMdZHlgFIogGXw3lQNB+AAA54n4PxflefgBgCXIyBIFgZmGAYOBqAhKEgLZ5gOIQHgGfoAAkCAKBQZJIDiJBogqRwYjYGAZksGJFmGAogkiAgRgkIhohyfwgiOSIsGiCxkAGRBwhCRgZBYM4HGMWA+DeBJhEIBhOg+JAZEYQAaGUQhyFYdZjEgfhKgiIQohWc4TggGRCFKGJkCkDBehmTpJiWTIWGCWRtl+CJkkcfIAhyZgphIdoLEaWZkHeHpmjkIhaggZp5HYORzCcMgCHWFIkDGQBviKZx4jQZIjkuKhFkENgKDCThJiAHR5kIXhykeeh2geFBGmqBBmiiaI6hQb4diiGYcF4PgqkYTJXCgApDDiCYbGmBw6hqIJZCGeo6hUBoZlgaovmOY5CkIPQsEqKoJh2J4RjQeYylkM5cm0NgMhGegNH8JZImGE4BEeWpygiEJhiGDIGjeXATgaYgXG4SweGQGRugKOpqGSThTAQdA+hcCQuhsP5HjuVoPBkJQqhaZAXEsO52hkNYNGEcwCjmJAaCaew5HCBhOA8PpvJQDg/iyMZmiMGYGv4dw4jGB5MlKRpwCEcwEhAKhcE4OhRisdwEhmSZHGyJwjGQTRMjcHZHmKXBUGuJxHniHwlkqXpzG8Oo+moWRKmgGRKC0BZzk2c/FmiUZkFGBohBuJQhH8TgxjUB4ElUJwCDMRIRHuNBYhyd5WmuTJKECQYuEuCJhHWTYShQNhtm0M5zFmSpvFGbgvkgKI9DgXw8jcRwwm0GoCgEAxhoAWB0MwgQWi7EmOcMIpgnDwC4CcA4wh4gcB+BUYYcROBPA0GkCYhw4iuCmDgEg1wWAwDmBQJwlw9ifD4OsTAcQLhDBmHQbg1gzBvCWNMegnQnhNGqHUDoXwujWHqAYLICAAAbCKDAOQ4BMD9GaFUUo2QYjzFcLcTovBIhODuBoYoJxEBSHwP4JIrRyB5D8FcTI5x8jeEeJsco7xSC5HEG8S4DgEjnHaNQWIfRJheDaH8BgTgoB8EqFYMoFxPg/CeMUeovAMDBGKJkBgXxGgLHsH4R4QQpj7EyP8ZI1hEChBQAggI" to Nothing
	Send Destroy to hoAppearance
	Set ComBackground OLEexCheckBoxState0 to |CI$1000000
	Set ComBackground OLEexCheckBoxState1 to |CI$2000000
	Set ComBackground OLEexCheckBoxState2 to |CI$3000000
	Variant voFace
	Get ComFrontFace to voFace
	Handle hoFace
	Get Create (RefClass(cComFace)) to hoFace
	Set pvComObject of hoFace to voFace
		Variant voFaceTree
		Get ComCreateTree of hoFace to voFaceTree
		Handle hoFaceTree
		Get Create (RefClass(cComFaceTree)) to hoFaceTree
		Set pvComObject of hoFaceTree to voFaceTree
			Set ComHasLines of hoFaceTree to OLEexThinLine
			Set ComShowSelection of hoFaceTree to False
			Set ComDrawGridLines of hoFaceTree to OLEexRowLines
			Set ComItemPadding of hoFaceTree to 16
			Variant voColumns
			Get ComColumns of hoFaceTree to voColumns
			Handle hoColumns
			Get Create (RefClass(cComColumns)) to hoColumns
			Set pvComObject of hoColumns to voColumns
				Variant voColumn
				Get ComAdd of hoColumns "<c><b>Partial Check" to voColumn
				Handle hoColumn
				Get Create (RefClass(cComColumn)) to hoColumn
				Set pvComObject of hoColumn to voColumn
					Set ComAlignment of hoColumn to OLELeftAlignment
					Set ComDef of hoColumn OLEexCellHasCheckBox to True
					Set ComFormatColumn of hoColumn to "`Check <b>` + 1 rpos ``"
					Set ComPartialCheck of hoColumn to True
				Send Destroy to hoColumn
			Send Destroy to hoColumns
			Variant voItems
			Get ComItems of hoFaceTree to voItems
			Handle hoItems
			Get Create (RefClass(cComItems)) to hoItems
			Set pvComObject of hoItems to voItems
				Variant v
					Variant voFace1
					Get ComFrontFace to voFace1
					Handle hoFace1
					Get Create (RefClass(cComFace)) to hoFace1
					Set pvComObject of hoFace1 to voFace1
						Variant voFaceTree1
						Get ComFaceTree of hoFace1 to voFaceTree1
						Handle hoFaceTree1
						Get Create (RefClass(cComFaceTree)) to hoFaceTree1
						Set pvComObject of hoFaceTree1 to voFaceTree1
							Get ComVisibleItemsCount of hoFaceTree1 to v
						Send Destroy to hoFaceTree1
					Send Destroy to hoFace1
				Set ComCount of hoItems to v
			Send Destroy to hoItems
			Variant voItem
			Get ComItemByIndex of hoFaceTree 1 to voItem
			Handle hoItem
			Get Create (RefClass(cComItem)) to hoItem
			Set pvComObject of hoItem to voItem
				Variant voItems1
				Get ComItems of hoItem to voItems1
				Handle hoItems1
				Get Create (RefClass(cComItems)) to hoItems1
				Set pvComObject of hoItems1 to voItems1
					Set ComCount of hoItems1 to 3
				Send Destroy to hoItems1
				Set ComExpanded of hoItem to True
				Set ComState of hoItem 0 to 1
			Send Destroy to hoItem
			Variant voItem1
			Get ComItemByIndex of hoFaceTree 2 to voItem1
			Handle hoItem1
			Get Create (RefClass(cComItem)) to hoItem1
			Set pvComObject of hoItem1 to voItem1
				Variant voItems2
				Get ComItems of hoItem1 to voItems2
				Handle hoItems2
				Get Create (RefClass(cComItems)) to hoItems2
				Set pvComObject of hoItems2 to voItems2
					Set ComCount of hoItems2 to 3
				Send Destroy to hoItems2
				Set ComExpanded of hoItem1 to True
				Variant voItems3
				Get ComItems of hoItem1 to voItems3
				Handle hoItems3
				Get Create (RefClass(cComItems)) to hoItems3
				Set pvComObject of hoItems3 to voItems3
					Variant voItem2
					Get ComItem of hoItems3 1 to voItem2
					Handle hoItem2
					Get Create (RefClass(cComItem)) to hoItem2
					Set pvComObject of hoItem2 to voItem2
						Set ComState of hoItem2 0 to 1
					Send Destroy to hoItem2
				Send Destroy to hoItems3
			Send Destroy to hoItem1
		Send Destroy to hoFaceTree
	Send Destroy to hoFace
	Send ComEndUpdate
End_Procedure

Procedure OnCreate
	Forward Send OnCreate
	Set ComTexturePicturePath to ""
	Variant voFace
	Get ComFrontFace to voFace
	Handle hoFace
	Get Create (RefClass(cComFace)) to hoFace
	Set pvComObject of hoFace to voFace
		Variant voFaceTree
		Get ComCreateTree of hoFace to voFaceTree
		Handle hoFaceTree
		Get Create (RefClass(cComFaceTree)) to hoFaceTree
		Set pvComObject of hoFaceTree to voFaceTree
			Set ComDrawGridLines of hoFaceTree to OLEexNoLines
			Set ComHeaderVisible of hoFaceTree to False
			Variant voColumns
			Get ComColumns of hoFaceTree to voColumns
			Handle hoColumns
			Get Create (RefClass(cComColumns)) to hoColumns
			Set pvComObject of hoColumns to voColumns
				Set ComCount of hoColumns to 4
			Send Destroy to hoColumns
			Variant voItems
			Get ComItems of hoFaceTree to voItems
			Handle hoItems
			Get Create (RefClass(cComItems)) to hoItems
			Set pvComObject of hoItems to voItems
				Set ComToString of hoItems to "1;2;3;4,5;6;7;8,9;10;11;12,13;14;15;16,17;18;29;20,21;22;23;24,25;26;27;28,29;30;31;32"
			Send Destroy to hoItems
		Send Destroy to hoFaceTree
	Send Destroy to hoFace
End_Procedure

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Set ComTexturePicturePath to ""
	Variant voFace
	Get ComFrontFace to voFace
	Handle hoFace
	Get Create (RefClass(cComFace)) to hoFace
	Set pvComObject of hoFace to voFace
		Variant voFaceTree
		Get ComCreateTree of hoFace to voFaceTree
		Handle hoFaceTree
		Get Create (RefClass(cComFaceTree)) to hoFaceTree
		Set pvComObject of hoFaceTree to voFaceTree
			Set ComDrawGridLines of hoFaceTree to OLEexRowLines
			Set ComItemPadding of hoFaceTree to 12
			Variant voColumns
			Get ComColumns of hoFaceTree to voColumns
			Handle hoColumns
			Get Create (RefClass(cComColumns)) to hoColumns
			Set pvComObject of hoColumns to voColumns
				Variant voColumn
				Get ComAdd of hoColumns "<c><b>Items" to voColumn
				Handle hoColumn
				Get Create (RefClass(cComColumn)) to hoColumn
				Set pvComObject of hoColumn to voColumn
					Set ComAlignment of hoColumn to OLELeftAlignment
					Set ComDef of hoColumn OLEexCellSingleLine to False
				Send Destroy to hoColumn
			Send Destroy to hoColumns
			Variant voItems
			Get ComItems of hoFaceTree to voItems
			Handle hoItems
			Get Create (RefClass(cComItems)) to hoItems
			Set pvComObject of hoItems to voItems
				Get ComAdd of hoItems "Short" to Nothing
				Get ComAdd of hoItems "The eXTreeCube library provides fish-eye representation / cube map texturing of different components such as calendar, multiple - columns tree view and so on. Cube map texturing is a form of environment texture mapping that uses a viewing direction (3D vector) to map into a view plane the six 2D textures arranged like the faces of a cube. " to Nothing
				Get ComAdd of hoItems "Short" to Nothing
			Send Destroy to hoItems
		Send Destroy to hoFaceTree
	Send Destroy to hoFace
	Send ComEndUpdate
End_Procedure

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Set ComTexturePicturePath to ""
	Set ComRadioButtonWidth to 23
	Set ComRadioButtonHeight to 23
	Variant voAppearance
	Get ComVisualAppearance to voAppearance
	Handle hoAppearance
	Get Create (RefClass(cComAppearance)) to hoAppearance
	Set pvComObject of hoAppearance to voAppearance
		Get ComAdd of hoAppearance 1 "gBFLBCJwBAEHhEJAADhABNoCg6AADACAxRDAMgBQKAAzQFAYaBsHCGAAGMZRZgmFgAQhFcZQSKUOQTDKMIziaQIRDINQlSTJcQjKKEUQTFiXIyAKQobh2A42SDAcgSFIADRfFoWmxTdAcYSCGSZZrGOiQADIM40R7UAABPBNKR1BKmHZDQRAApqXIjVDAYIQSSBUlkHScRijDICXSIIQmbajIZoJCiVZ3VaGETnRQlJQuEgOHZwDAsBwPBqBPziLp4WzmGqhR5ichYHI8RYVTKXYy3DxZW7OO4PQjQM7hHL8fwlfTuagyGpZOxjP5cdrYHw2J7NUzJeDxbhrTb6Zh7ILVX7TNIwXAdD4PIKmNryORsC4XG5pZ7oOh6Lo3G4rhWZI2nOL4eBON4LkeRJvHWDxvB6G5Lmac56D0OY3hMU5bm6bRoiAeA9DMX5riydJ+D8P4vEeO4xkEcQfCYBZrHKXgzlme4BmCB4eAUZRbAaAZeGsDg4EYCYEmERoaBEOJaiMIY2EIXo2FYFYHmIBp1j8OoQhcYZNDiIgIiYE4Jl2BAlj0agOmiKgyH6Xo2jECYGE8WJmDODpehgFgZEIXI3DyfoQmQSQWEaEZkgkJhKhKZA2hmSxCEyGREnSFJkkkVhWwCCAthFKRjiIXhpiXOhihGYwJESSRCFuIxqGoPomkmDhuhWT45kSXYcl8UxdAkbgPBaMhTD0JApj4foRBoaJ5iqAxdmadhzDcWxpgIf4bhsY4Gg6GYYDcegNGUYg6VMIsBBmNg8CmRwuCOJBgBaAgXh6JQzl6JocE+OQQn+KpqkqNouivgQiiaLJPHaMZYHwQAHHIdRrA6ep2jMbYqx2RxzmqBpajOLxOnacYPHcHZnHGOlynmbo0jSbRLFaJoJlyNpplyKArhcGZcgMWpGjCXo4liM4ukiHpngkeJojiTZphmLIDG2Nwak2N4vEaAJsj2bpLgWFxlGGExOn4dgvHOMpxGgbwkAyaxEFCFAEICA=" to Nothing
		Get ComAdd of hoAppearance 2 "gBFLBCJwBAEHhEJAADhABCEMACAADACAxRDAMgBQKAAzQFAYaBsHCGAAGMZRZgmFgAQhFcZQSKUOQTDKMIziaQIRDINQlSTJcQjKKEUQTFiXIyAKQobh2A42SDAcgSFIADRfFoWmxTdAcYSCGSZZrGOiQADINI0R7UAABPBIMSjAamHZDQRAApqXIjVaAhySQKksg6TiMUYZAbaRBCEzbUZDNBIopUQLVU5ABbUEqBIipIrEQLHNwPBaEYZiOIYW5re4cfzIMhyLI8Ob3CqHZhleTwTjWGYvSp1dBbTQ2QyVRanMDqOjsKxmW5Gbh5NhfHY8dxnDKcZ5jGSudrjEZ9VpmG74JzeEbjRj8chxT4PDxnBK/YDSWgdLo8VzXBpcG2MY4maXxzFKQRxHgOQeC8H4TkuZhzHoNR9kaXpNnONZsGGMo9B4A5bmuFZ7n4Pw/i+XpFmSVB/mAB41hsQJfBYOJXgGXAHm4CoCmCtYAHqXRWBGWB/F2Z5UnaAxZFOaJ2DuTpzHCOQ5gwcg8veDBjlCaA0mGBg6BYapcEONZiHYHADg4MoKE+U4QkEIINAISAig4Y44moPIPA4EpoHSBoOngNgyDiW5jCGShCF+VouA2EQNhKHBMg+Y5pFYPYVmOQxYiAD4kEgNZRHSTokCWax4A4KA2DaDglGkUhYhoZRph4DYZB6NAllEbwOmgKhEhqJ4JjIa4ek8c48mGAoflcAQJhITxaBYCoHEuGZmHuIooioIgKgWJIUCWXh4hkNhImkM4JloMh6iaJRzhySAkCkVhFhUd4QhMJomD0KtvBCCJMGocouh6KIKiifoKlodAmAAOgrgYVoVD7Y5AlMJhDAqPoLh6D4DkCYosicSoYkkQhcmMapOD6LQKkqHgkCwKhwmILpHFqSJ7jaTZbHYBw1lCFwwnEcAqgOUoUGSa5DxkLQGHsVhWhQRJKkmFYkBuaI1lgdBtlMdZKi6LoKnSZQwggOp+kGJpjiufIDiyGQXCiYZCmyJxeAQYQi0YYI+lieoqmmKwpHIdoskIGQGFWSg8DIBx6GCQ4AAYXhHjlo5fCqNpPjYRJ/kucwMkcMpM9GMwqk2Tx3AGa4AnIVpkm2N5cAgcJvk2XIsjGeYlF53hKk2dAnEGJR7nCdxlgYc4ajmEplk4NYNGcWpKiYRx5k4dYhC0RxggsTpXAGQA3jaBoEmuUIuFuCo4DoNoDHqShwCKXYPCSXYzmOMx6lwOwZoawrgkE0HwBY1xegdE2MMWQhBOhoEUBIQAgCAgA==" to Nothing
	Send Destroy to hoAppearance
	Set ComBackground OLEexRadioButtonState0 to |CI$1000000
	Set ComBackground OLEexRadioButtonState1 to |CI$2000000
	Variant voFace
	Get ComFrontFace to voFace
	Handle hoFace
	Get Create (RefClass(cComFace)) to hoFace
	Set pvComObject of hoFace to voFace
		Variant voFaceTree
		Get ComCreateTree of hoFace to voFaceTree
		Handle hoFaceTree
		Get Create (RefClass(cComFaceTree)) to hoFaceTree
		Set pvComObject of hoFaceTree to voFaceTree
			Set ComShowSelection of hoFaceTree to False
			Set ComDrawGridLines of hoFaceTree to OLEexRowLines
			Set ComItemPadding of hoFaceTree to 12
			Variant voColumns
			Get ComColumns of hoFaceTree to voColumns
			Handle hoColumns
			Get Create (RefClass(cComColumns)) to hoColumns
			Set pvComObject of hoColumns to voColumns
				Variant voColumn
				Get ComAdd of hoColumns "<c><b>Radio" to voColumn
				Handle hoColumn
				Get Create (RefClass(cComColumn)) to hoColumn
				Set pvComObject of hoColumn to voColumn
					Set ComAlignment of hoColumn to OLELeftAlignment
					Set ComDef of hoColumn OLEexCellHasRadioButton to True
				Send Destroy to hoColumn
			Send Destroy to hoColumns
			Variant voItems
			Get ComItems of hoFaceTree to voItems
			Handle hoItems
			Get Create (RefClass(cComItems)) to hoItems
			Set pvComObject of hoItems to voItems
				Set ComToString of hoItems to "Radio 1,Radio 2,Radio 3,Radio 4"
			Send Destroy to hoItems
			Variant voItem
			Get ComItemByIndex of hoFaceTree 1 to voItem
			Handle hoItem
			Get Create (RefClass(cComItem)) to hoItem
			Set pvComObject of hoItem to voItem
				Set ComState of hoItem 0 to 1
			Send Destroy to hoItem
		Send Destroy to hoFaceTree
	Send Destroy to hoFace
	Send ComEndUpdate
End_Procedure

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Set ComTexturePicturePath to ""
	Set ComCheckBoxWidth to 16
	Set ComCheckBoxHeight to 16
	Variant voAppearance
	Get ComVisualAppearance to voAppearance
	Handle hoAppearance
	Get Create (RefClass(cComAppearance)) to hoAppearance
	Set pvComObject of hoAppearance to voAppearance
		Get ComAdd of hoAppearance 1 "gBFLBCJwBAEHhEJAADhABKMGACAADACAxRDAMgBQKAAzQFAYaBsHCGAAGMZRZgmFgAQhFcZQSKUOQTDKMIziaQIRDINQlSTJcQjKKEUQTFiXIyAKQobh2A42SDAcgSFIACxfFoWRrnaA5QoGM4EDTRYADCKsaQ/J0LcI1FLUEyUf6sAArB74XiCIAIQiUBomGahajkMoYZAAaDCCI2a4aDZCIoVHalKgxC5oKSqCJqbptMZ/HrgJQYGRuC4NQ7CcDKDATbr9MZ9ZBCNZoPimEYtS7MMLyRB8QpyAytaBhRaaGwmSr3U7Oc50d69FYTIxcYZoCq1XBOGYMZLcNR3La9YYnBqMbRAeJYNped6NSDVcKxLgaa4fTrOZZzHL9HpviMWYBnWOr+kwJ4zlqY53CAZQ/B4GZzmab5qHyT4cDeDInkwPp8DCTI/h+Iw7nMZZhj4B5eGKL57gYGAgAadZoG8soBgYfxKjcSRYCCYJGGYDoDmCQgNh0ZIZAaSB2gWYJ2F4FwdhsJpuBQfRiAWdQJDqUQUCUASAgA==" to Nothing
		Get ComAdd of hoAppearance 2 "gBFLBCJwBAEHhEJAADhABV0GACAADACAxRDAMgBQKAAzQFAYaBsHCGAAGMZRZgmFgAQhFcZQSKUOQTDKMIziaQIRDINQlSTJcQjKKEUQTFiXIyAKQobh2A42SDAcgSFIACxfFoWRrnaA5QoGM4EDTRYADCKsaQ/J0LcI1FLUEyUf6sAArB74XiCIAIQiUBomGahajkMoYZAAaDCCI2a4aDZCIoVHalKgxC5oKSqCJqbptMZ/HrgJQYGRuC4NQ7CcDKDATbr9MZ9ZBCNZoPimEYtS7MMLQXK8QpyAytaBhRaaGwmSr3U7Oc50d69FYQXqvYZoCq1XBOGYMZLcNR3La9YYnBqMbRAeJYNpedy2YbkFC5LStHwbCrBVpxWotDxQjWVgrHYGI9iybhbiGUo+jafA6DKZxjkoVgxHoHR+iqXx2jMA52l8XJ/CMJ5TkaCp7nmOwHk+XovmECR8BWMYyAIHAgEOBgGFaSo4CWeQVgoSA0lOA5fEGEZQBSYRGBieYFlWMhiBoPZhkabI3geYIzDYIoHA8dxAH2CZYGMLgqHeW4zAYLgWCMB4gGIeoOjcQgJCqWBhgIOhvGKRhAn2D5blcWBaB+JBGi2EhWAgOQlhmEpYgiHB9DwJQCloUgWmUQoOFaEZXlaSB2haZJGF4WwdhsJRslmGJGDmFhYg8ZoHBiZYalCE4tBEQhQBAgI=" to Nothing
	Send Destroy to hoAppearance
	Set ComBackground OLEexCheckBoxState0 to |CI$1000000
	Set ComBackground OLEexCheckBoxState1 to |CI$2000000
	Variant voFace
	Get ComFrontFace to voFace
	Handle hoFace
	Get Create (RefClass(cComFace)) to hoFace
	Set pvComObject of hoFace to voFace
		Variant voFaceTree
		Get ComCreateTree of hoFace to voFaceTree
		Handle hoFaceTree
		Get Create (RefClass(cComFaceTree)) to hoFaceTree
		Set pvComObject of hoFaceTree to voFaceTree
			Set ComShowSelection of hoFaceTree to False
			Set ComDrawGridLines of hoFaceTree to OLEexRowLines
			Set ComItemPadding of hoFaceTree to 16
			Variant voColumns
			Get ComColumns of hoFaceTree to voColumns
			Handle hoColumns
			Get Create (RefClass(cComColumns)) to hoColumns
			Set pvComObject of hoColumns to voColumns
				Variant voColumn
				Get ComAdd of hoColumns "<c><b>Check" to voColumn
				Handle hoColumn
				Get Create (RefClass(cComColumn)) to hoColumn
				Set pvComObject of hoColumn to voColumn
					Set ComAlignment of hoColumn to OLELeftAlignment
					Set ComDef of hoColumn OLEexCellHasCheckBox to True
				Send Destroy to hoColumn
			Send Destroy to hoColumns
			Variant voItems
			Get ComItems of hoFaceTree to voItems
			Handle hoItems
			Get Create (RefClass(cComItems)) to hoItems
			Set pvComObject of hoItems to voItems
				Set ComToString of hoItems to "Check A,Check B,Check C,Check D"
			Send Destroy to hoItems
			Variant voItem
			Get ComItemByIndex of hoFaceTree 1 to voItem
			Handle hoItem
			Get Create (RefClass(cComItem)) to hoItem
			Set pvComObject of hoItem to voItem
				Set ComState of hoItem 0 to 1
			Send Destroy to hoItem
		Send Destroy to hoFaceTree
	Send Destroy to hoFace
	Send ComEndUpdate
End_Procedure

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Set ComTexturePicturePath to ""
	Set ComCheckBoxWidth to 24
	Set ComCheckBoxHeight to 24
	Variant voAppearance
	Get ComVisualAppearance to voAppearance
	Handle hoAppearance
	Get Create (RefClass(cComAppearance)) to hoAppearance
	Set pvComObject of hoAppearance to voAppearance
		Get ComAdd of hoAppearance 1 "gBFLBCJwBAEHhEJAADhABO8GACAADACAxRDAMgBQKAAzQFAYaBsHCGAAGMZRZgmFgAQhFcZQSKUOQTDKMIziaQIRDINQlSTJcQjKKEUQTFiXIyAKQobh2A42SDAcgSFIADRfFoWmxTdAcYSCGSZZrGOiQADIM40R7UAABPBNKR1DZ+KxAB76cheIIgAhCJQGSYZaDqOQyRhkBTqEIITZsRoNUIiRStayuDCLTwoSooXayfjHYAwOBYHgmC4NQ7EMRxLAmOw1ZKPQjgDDvDilM4tS7MMxzLK8cx3FjqaAyWhQTgePZNU7UNLwPRMCb3LqvbBsOxbHqma5tWjVYDwPZ9cz3Pq9biAG57fwnC59YLheK5Li9Q4jLbMdByXLMDxHiuRJpnWOw7k6RxrjuM5pj+PA+C8H4TkuZpznoPQ+H8B4rlubp3nsfYfA+H5Tl2cp6n4Pw+C+P5rnucx/B+aAFmqAAgCgFZlHSVZICYCoCmCSA2A6A5hAgPZTGWIQYFYFoFmCVsjj2YZIHYHoHmICIGCKCJiEiCZBGMTJjiIKoJGKSI2C6CBOjiRYSEITp4lWIgyhiOJmDqDpYHiIYgDqEITi0ERCFAECAg==" to Nothing
		Get ComAdd of hoAppearance 2 "gBFLBCJwBAEHhEJAADhABA4Cg6AADACAxRDAMgBQKAAzQFAYaBsHCGAAGMZRZgmFgAQhFcZQSKUOQTDKMIziaQIRDINQlSTJcQjKKEUQTFiXIyAKQobh2A42SDAcgSFIADRfFoWmxTdAcYSCGSZZrGOiQADIM40R7UAABPBNKR1DZ+KxAB76cheIIgAhCJQGSYZaDqOQyRhkBTqEIITZsRoNUIiRStayuDCLTwoSooXayfjHYAwOBYHgmC4NQ7EMRxLAmOw1ZKPQjgDDvDilM4tS7MMxzLK8cx3FjqaAyWhQTgePZNU7UNLwPRMCb3LqvbBsOxbHqma5tWjVYDwPZ9cz3Pq9biAG57fq7ZLEYziOR4Hg+JzFbDVKq0aYjA5RlCU5mm8OR6l6Q53pqaAkgQXgBBMeRmGabhtjsTAeGuaZsm+aQMDwfwvAuJYch2dBsj0XJWkqHIZnMCIOEMBICHiXwHFWVx+A+V5pj4eRGGefJvDcC4WjyXArEWF4OAyAgghYCYsDAT5oHYHoHmGU5sncPANGKAA+HiXJyi4IA/g8U4klQfAeDeVIdgqYxIlWaoNGMQ5gnAOIOHMIIQg4IZonSEIBB0OIInCEAjGgaY6GCJIJDYQIRiEOBVmEN5LEGHhOggIx5F4WoKmKWI9lOCgdAkahZhaZhIH4QoRAMCQaE2GJmFmFhQgUJQZgoShwiSSY2HaBxllmFZqFcJ5JnYfofmgCgGgKIJoCeKYWiEKIKCaCogBqd4oneI5pAoRoSiSaRKFaFolmkVwFg0M4OgodoYieagKgaFA6moRhJAkO5qgaCJKGKapKjaLhhmmNoAmoQhOjQRQJEAQCAg==" to Nothing
	Send Destroy to hoAppearance
	Set ComBackground OLEexCheckBoxState0 to |CI$1000000
	Set ComBackground OLEexCheckBoxState1 to |CI$2000000
	Variant voFace
	Get ComFrontFace to voFace
	Handle hoFace
	Get Create (RefClass(cComFace)) to hoFace
	Set pvComObject of hoFace to voFace
		Variant voFaceTree
		Get ComCreateTree of hoFace to voFaceTree
		Handle hoFaceTree
		Get Create (RefClass(cComFaceTree)) to hoFaceTree
		Set pvComObject of hoFaceTree to voFaceTree
			Set ComShowSelection of hoFaceTree to False
			Set ComDrawGridLines of hoFaceTree to OLEexRowLines
			Set ComItemPadding of hoFaceTree to 16
			Variant voColumns
			Get ComColumns of hoFaceTree to voColumns
			Handle hoColumns
			Get Create (RefClass(cComColumns)) to hoColumns
			Set pvComObject of hoColumns to voColumns
				Variant voColumn
				Get ComAdd of hoColumns "<c><b>Check" to voColumn
				Handle hoColumn
				Get Create (RefClass(cComColumn)) to hoColumn
				Set pvComObject of hoColumn to voColumn
					Set ComAlignment of hoColumn to OLELeftAlignment
					Set ComDef of hoColumn OLEexCellHasCheckBox to True
				Send Destroy to hoColumn
			Send Destroy to hoColumns
			Variant voItems
			Get ComItems of hoFaceTree to voItems
			Handle hoItems
			Get Create (RefClass(cComItems)) to hoItems
			Set pvComObject of hoItems to voItems
				Set ComToString of hoItems to "Check A,Check B,Check C,Check D"
			Send Destroy to hoItems
			Variant voItem
			Get ComItemByIndex of hoFaceTree 1 to voItem
			Handle hoItem
			Get Create (RefClass(cComItem)) to hoItem
			Set pvComObject of hoItem to voItem
				Set ComState of hoItem 0 to 1
			Send Destroy to hoItem
		Send Destroy to hoFaceTree
	Send Destroy to hoFace
	Send ComEndUpdate
End_Procedure

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Set ComTexturePicturePath to ""
	Set ComCheckBoxWidth to 32
	Set ComCheckBoxHeight to 32
	Variant voAppearance
	Get ComVisualAppearance to voAppearance
	Handle hoAppearance
	Get Create (RefClass(cComAppearance)) to hoAppearance
	Set pvComObject of hoAppearance to voAppearance
		Get ComAdd of hoAppearance 1 "gBFLBCJwBAEHhEJAADhABfICg6AADACAxRDAMgBQKAAzQFAYaBsHCGAAGMZRZgmFgAQhFcZQSKUOQTDKMIziaQAGgkNQwCSLIwjNIsBxPFKVQChEYxSjKA40SJNUgyj6CCY+QLIE5PfQgAL9I6eJABCCSQKkYx0HScRijDIAbAZAYhCZqaKhWgkKI/WBQIABRDVLx5ESiLRtKy7Mq2bpvXBcNxXHalaztO68LxvKyqHb5fJ/PpgL4YHgmC4NQ7EMRwF6rfbyfZ7Xg/ORPTijZ4sdzMHTzJyscx3HqfaBoOaZU5eMLceTUMofHIndxCcasPbsOatVqjG5sYjcGC3La9cz3Pq/bpuDCbMxuaK1TrYXr1TTrcofBDldAxXRKDxRDWVhLnYOw9i6XxzjuXprCaOoKB6EwbiCZZCGOdZYlcT4xHmbhMnwNxtn+G5bmqdZ7n4Pw/i+X5zm+dQ9g4CAFjsfAJheOI8HsDoWDWTB/lwSAQkmA5PEgRYoDyDwYFYFoFmGCBmBqBphDgRJ0gOTIYBGRB/lyRh0iSCZbjYWJzgWDwIjYLoLmMCJGDKDJjBgWgqG6YhyhGHRzA2aJ1mCABOAiOJvhCZBJBYRoRmSCQmEqEQimkAZgg8TZnDCV4UkmCUmBKZYJGYWoWCUUhiFMNZckNUh2GENoaGaGZmgmJhqhqZpGGIEx2GYIxSGGGJdggWJth2Z4JmYeoemeSZ2H6H4hGmQhihyTRHGYLg7CiCgmgqIpokoNoOiOaJ4jqAochqaZGgaCxpAoZoaiaaJqEmWIcGgShcnCJwqEqFoR3YOoFlgchflqNouiuawHmWSYqGkWZQhcatzmaOoumuSp2j6L5bBaKo0GQKRnGGCxqiyCwmkqMpsksNpOGUGI7A0ew1G0Rxlg0PptgsZuDG2Sx2l6N5tnYNZZjUDRXDCVo5l2FoymqOpukuNpujubwLjmWY5k0ZwxkaFxYlWdp6j6b5Lnafo/nABQdg2FxcUsY5BkmXAkmeQpckwNRrkKTh8CSHZBk4NwyC4KxxgMDwakOMZDn8GgwnGAo2C4cwthMcwmCcMoHBMHRehwTIghySYNksZwcH4HBMEsHx5hyPItiweYxnwSZEH4Mozn0fR+DMAo7EYJ50gkdZelKdNql2UgJn0GIukwH4HicQRai2GI4mSVpNl0dZGledgNgcYpYDWUx3FsOQi5YV5anaTY3G6W53A2RxylydxFjiaxEFCCgBBAQ==" to Nothing
		Get ComAdd of hoAppearance 2 ("gBFLBCJwBAEHhEJAADhABcoFg6AADACAxRDAMgBQKAAzQFAYaBsHCGAAGMZRZgmFgAQhFcZQSKUOQTDKMIziaQAGgkNQwCSLIwjNIsBxPFKVQChEYxSjKA40SJNUgyj6CCY+QLIE5PfQgAL9I6eJABCCSQKkYx0HScRijDIAbAZAYhCZqaKhWgkKI/WBQIABRDVLx5ESiLRtKy7Mq2bpvXBcNxXHalaztO68LxvKyqHb5fJ/PpgL4YHgmC4NQ7EMRwF6rfbyfZ7Xg/ORPTijZ4sdzMHTzJyscx3HqfaBoOaZU5eMLceTUMofHIndxCcasPbsLpOS5LNKsaxmWLYdhFdTxQi6LpvfA8BwXC6JY7heRYRbFbYxRjGNi1TS7G4nGKd5WGuL4UHwI4VkaYxii8V4pgQMgVBQdQ5iCTYGi8T4vlWbJ3nuPg+l+H5AlSCg6ByPBoE8Ap3jqYxhBido5g0OgOGOGI4CsSpCCAcgcAuEokiEN5NCKfJ9DyTRjnScg1CEYxOBmBpPCgagdgcIZoHoGIFA4AxQkCAxKAgKBwgGSpIBCZhjF2E5UnQPQMiMCJBCIBwxkSQgsgo+JtDKT4ziiQw+k6EwAnsOgLnkHI+yCQ4iEuE4klkPhShEJBpAoPgymOMoaDgHBjFMBgyD0HYTiCZSZhIIIGC4ChiHSew5kwM5omILZPiOBI0hwZw5kodIdA+M4Uj4PxOmMSJ9DuTQzmyZgviceZagaHVfj4awwmaAh2GUIYmCOEZZDaDRDFGdwcg4EwyHMN4LBOaJbCoaZqgKH8qkMfIyD8DozDyfA7A0Coui0OpMmOZJdCsahKg6NooioChwmEMxLEoXJbDUTRXGSUgykyMgQG0GpPHMdI3D4TRCgSeQ0kmaw+lGNAtCOZJVCiT5DhyRQwAqMg0EoDBBGEGAsASC5yiSCw+k4Mp6lWNQuksTpRjMTxDGzJwGmGMpDDKXYTECSAxl6Q5olkK4PgMMIVkASRMBMBgzEkaZEjsNALhIZA6AeQBgk0ZJEgAAJ0CIAgODMNIsD6DRih9uYwFyAwfCUb5ijmbI+gwdxkk8MZMGeMpPCkDxzBiC5MHMPJLDSSROFMLIoBEQogEMFJPnENYQGgE4DCOaJfC7tYkhGTQ0kyWwykuXpMiyRpKjKR4wngM4JmOWJACCdYtHMWw+Eych4nINYLAEYA8AgdAEEsQZajaQoog4GxPiMVIolcdxNG8XZVkmNoRwWRVBlFeFEeAZQJgnFiHgHwcAhjhHgGMSI5xki2CyA4EQsA3i0HkBsLwKRFgAHcPkHopBJBcBeDUYI7xyDOHqKkWo2hLCsDIBIY4qQ5A8DoMMYwOAqCSBGKgU4yB2iDBwIgB4hxQgAAWNgBoAgsBdEcBUQ4sQ9A/HqD0JI8RpBzH2OYVgahLBHFiJQJweQiDhDUE4SAARQAzFsG0EQwA6AOWSBkFgVAIBCHeGERQFQiCQHeFkC4vkiB8DyB4F4QxVDvGMNEOQexMjlBeOAKQiQLgfDA7QEAaRiBdEkH8TI7AZiFBAGYBIABWjYBiGACioQ4C1A+AMMgWhfgxHgPsT4URIB0COKgPgjRwiAB8AYUArxBgCF6J4GY5hrAOCAPAAoGRRCsCIMEXATXfgAF8BMJwURuEQDgD4Q4OBoAeHGFgLIwQrC2D0JoSQ+QvhrHoHERggR4A2GKMQH4FwBD0CgAgAAkAFhAEwEYAoYAiBeEUBEAYEBRI8EUCIcAVAEDQG0PcZYIBVgSHEAEGojB4j1AeFkHQ+wsBDBQGQTwyBdDREMAwNAjQhh+BoMYZA1wNhjEIG8QwwROAmEGCgBQCBgBQHKBoUYDQqiNEGNgGgowQjZA0MMHAZwWBgGsD4I4QBqAfDGJAMgrhAiRBGKQQgPRJAyB8EkJIWQUglGOBgZYFgGBYAIDsACmRgjgH0B4EYnQljIBiJwOwRh8DZA2CIGAOwDhRGEDQQwLAulGACJwZYOQ2gtDKMQWglwpDeC6AoUIJgPBiGAAACgggoBDAUPEHgJwShIGwDsEYtBnA" + ;
"JHiBoEQxRgCqAoCkeAbBUAhE2C8EwxBcibBkO0TgjxQjIBkIMIATwDCuGAB0QQEAJAtEKDgUQHgBi0DsJ0SI9AygkAwM0KQ4wIBcAUOEfQPRDgSB8BoZIrg1jNFSP0G4KACCzA4GMHgWqnjwHYAMDATgDhDHYMATokhpA9AaEAYoFwhDkHmAcHIogUBHAANsDIpR+B0EoEEbIRxUgAH+KMegihIDSB0E2X44BNgRFmAEZINhYhYBQIQYoDgUCFHsIgG1hQZhmDgIwCIoRwA7CQGMdYTxniVCAD4OQGhOiHDAJ4BowQSAFAIIAGAcxHBBGGEwRYVB3gfBmDAOoURIi0BsAYQA0KlA0DMA0IImQrhqH6F4VgFRHCxCtLYKwxgyhYYGFgNYjQQidCCICllpJUjVAUOwLwxQ2gwEwDUcwmBrh6H4F4BY6A02kAaNjMYYADBrH6IkF4FVPiDGgEgAYWwkUIGAGIYoWQpDuDkMUVARwCjgDMMMAIoRBAuAKIkNgHQyBEEIJACBAQA==") to Nothing
		Get ComAdd of hoAppearance 3 ("gBFLBCJwBAEHhEJAADhABQ4Fg6AADACAxRDAMgBQKAAzQFAYaBsHCGAAGMZRZgmFgAQhFcZQSKUOQTDKMIziaQAGgkNQwCSLIwjNIsBxPFKVQChEYxSjKA40SJNUgyj6CCY+QLIE5PfQgAL9I6eJABCCSQKkYx0HScRijDIAbAZAYhCZqaKhWgkKI/WBQIABRDVLx5ESiLRtKy7Mq2bpvXBcNxXHalaztO68LxvKyqHb5fJ/PpgL4YHgmC4NQ7EMRwF6rfbyfZ7Xg/ORPTijZ4sdzMHTzJyscx3HqfaBoOaZU5eMLceTUMofHIndxCcasPbsLpOS5LNKsaxmWLYdhFdTxQi6LpvfA8BwXC6JY7heRYRbFbYxRjGNi1TS7G4nGKd5WGuL4UHwI4VkaYxii8V4pgQMgVBQdQ5iCTYGi8T4vlWbJ3nuPg+l+H5AlSCg6ByPBoE8Ap3jqYxhBido5g0OgOGOGI4CsSpCCAcgcAuEosiYN5NHMOJ+D4TpTnSeQ7CEY4uBmBpPhgagdgcIZoHibIEyUBJZDQIJShoCgcCAcoyAQOYYlcZJ1D0DxDCiQgwEiAZMHEMJLFKPJ9D2DoDnidQ4k+Y5QmKEROBkIhKD0JIZDIS4TGUCQuEeEJjnOIg8CuY4RkYNgwGMM5RllGpThDRYIGKZIpCkJFUH0PINyWcQ3CaaZCG+HBnEOTJhD8Tx4GoeQ/GcaZSHOH5nCmQhshoZhihYYwhiYA4RlkNoNEMUZ3ByDjwEsPxOnMaJ9DuDR6F6GYmCmKh0nANtMioP4Gg8aoSiIO5NhodociqaY6GaFYkEyOg8lsNRNTaUgykyMgQG0GpPiONJbD8DpDEyfA6k0KwOkWMQsGsAJU0SagwkoJQJDIPISCQCJTGSUwyGaM4KkmMgtksHpFjAZ4TGCBAbgaSpcksdhNAMIJHHsD5TjSWWMAMOpwjyLwbk6cAz0KRJiDkDYzESCwiggcgcgYIQwCIEINCMCITj6TVxkMXp2j0cQLlCTo7E2F4ymkMZdhMPJHDGHpLAyVg+k4UwrCCSIyByDJ8DuDY8CiWY0kiXAXC6QJwFKGIjCeJpjgyezjlyDw6klHx5myRoMGwZwbkcToTEiew4kwbQfEmUgPkOKJUD4DpTHSHQmgkXI/ASTA1g0XIEDMTBimyfI7jSLYHEiUoPk0Fw/kadAsHGao8A0A5smEMJ2mNyg5gzJZwDgCpChyIZVyIZwFCMJEPASRkBqE+IcHInRcDxA2H4bIsx0AtDsIBpwZwYicD6BscwDwUBgHCIYaIfgtiVH2O4WgUwJjEFeAEQA7y4hMCiBMS4aRdB9A4CYE4LxljyBMHcDItBxinDCLcTYmgejBFQ9UTg9gFBOEmAQTI7A4iZGMGkQAWQ7jYA2HIL8BRAjDG4HcCwARbjZHiNoDw1nLDnGyNINQ+wjCpBMEgcovQUgICQJEcgWRuBvAyJ4d4ugpCUAINcHogxIgnDiM4N4axzD3F2JMTY/hRqYF6FsWIxhYAGGoAALQYgYirBwBEBwpAjBEAAIEIYsA2gOHCMAGgXAACIDmMITAUgFABH0D0I4WwvhNFGMAOIvxRD2GKNcMA8gjAPDCPwBogRPAxA8PgRwZRICYDED8RAXQEghEAN8DIgwIBdB4JYWwMgtiQHoFQKAiRFguFKGwGQhglDsEOVwEQQRkCKBwOIHgSREDRBYHEXQcQdD7GIGARQHRxipBrMobgewDCUCADsEYWAzgMHKHQDQxxsDzA6EMfAeQHB4GQDkUYPA0iECiKoGgRhcDdA2GMQA8AOCjDSPgHI4QnApAKBICwHg1A+BcAwcYsgbjGGQNkCIgRsA6EcBEWANADjsB0B8YYzQQDIGSBcEYZBCCPEkFIHQSgkgZAwG4IwBAbAYGGAgL4Ch4g8BOCQuFFBaDOASPcAALgChUDyB4cYtgiiOEyCcEopRCCvEsFIKomQEjnB4L8YgQBfgWEEMgPADhojaDsEcaIlBFiDBqEcRgQQ4ArEOPAfYQhUjmCsMsHIYwShmDmAoDYsRqj" + ;
"xAUAkHwPwDjYH2DsEopA9AaECIoFwhRkjmAcHIUAUBHABFsDMJY+B0goEGLIOozhoj/B2CcPg7hPATGdduAALgiiEBsBkd4Fg2iUCEPsG4RxKDDEoMIGARhDiAHaBcZ4rbeBUBQPkYo+gFAdE+AwKAEQhjGEUE8aQ1QYBQFCJwTgww1BDEaAEVQMwjBgGoBkSghhIjSBUEkJI6QagpFIHQPgZgojaBsDgIw8BvBgHYAG3QeAUhFFSMQfonwxg2D6E8ZQcwnjLG6DYCgjoAitB0IEKIyxigUA8DQZoq5tgiBICoIoUQXDjDgG4BouhFZdBQJEDYQw0BsEsMEawRAkBJACQEA==") to Nothing
	Send Destroy to hoAppearance
	Set ComBackground OLEexCheckBoxState0 to |CI$1000000
	Set ComBackground OLEexCheckBoxState1 to |CI$2000000
	Set ComBackground OLEexCheckBoxState2 to |CI$3000000
	Variant voFace
	Get ComFrontFace to voFace
	Handle hoFace
	Get Create (RefClass(cComFace)) to hoFace
	Set pvComObject of hoFace to voFace
		Variant voFaceTree
		Get ComCreateTree of hoFace to voFaceTree
		Handle hoFaceTree
		Get Create (RefClass(cComFaceTree)) to hoFaceTree
		Set pvComObject of hoFaceTree to voFaceTree
			Set ComShowSelection of hoFaceTree to False
			Set ComDrawGridLines of hoFaceTree to OLEexRowLines
			Set ComItemPadding of hoFaceTree to 16
			Variant voColumns
			Get ComColumns of hoFaceTree to voColumns
			Handle hoColumns
			Get Create (RefClass(cComColumns)) to hoColumns
			Set pvComObject of hoColumns to voColumns
				Variant voColumn
				Get ComAdd of hoColumns "<c><b>Check" to voColumn
				Handle hoColumn
				Get Create (RefClass(cComColumn)) to hoColumn
				Set pvComObject of hoColumn to voColumn
					Set ComAlignment of hoColumn to OLELeftAlignment
					Set ComDef of hoColumn OLEexCellHasCheckBox to True
				Send Destroy to hoColumn
			Send Destroy to hoColumns
			Variant voItems
			Get ComItems of hoFaceTree to voItems
			Handle hoItems
			Get Create (RefClass(cComItems)) to hoItems
			Set pvComObject of hoItems to voItems
				Set ComToString of hoItems to "Check A,Check B,Check C,Check D"
			Send Destroy to hoItems
			Variant voItem
			Get ComItemByIndex of hoFaceTree 1 to voItem
			Handle hoItem
			Get Create (RefClass(cComItem)) to hoItem
			Set pvComObject of hoItem to voItem
				Set ComState of hoItem 0 to 1
			Send Destroy to hoItem
		Send Destroy to hoFaceTree
	Send Destroy to hoFace
	Send ComEndUpdate
End_Procedure

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Set ComTexturePicturePath to ""
	Set ComCheckBoxWidth to 32
	Set ComCheckBoxHeight to 29
	Variant voAppearance
	Get ComVisualAppearance to voAppearance
	Handle hoAppearance
	Get Create (RefClass(cComAppearance)) to hoAppearance
	Set pvComObject of hoAppearance to voAppearance
		Get ComAdd of hoAppearance 1 "gBFLBCJwBAEHhEJAADhABQACg6AADACAxRDAMgBQKAAzQFAYaBsHCGAAGMZRZgmFgAQhFcZQSKUOQTDKMIziaQAGgkNQwCSLIwjNIsBxPFIYRoAmCYZRnAYZIpjOZ5BiKAwgQiHMbwTLjfyMACjH7nnJEEigNIxToOU4jFDGIAWArAZBEbTENBtBIUIRoCA6CgOCAYRa4AJTdL1Er2ex2G7WMpWURkHTUJgGN4BVbdeoxPi/b6wDA8CwXAaHXpfbaKYQ7brYaikchyLI8Tq9bDNIgADLoYADJIoCRqEyudKQcrXJakaZqOoaXo+W5VVzWLpDVo0XBdTiLAAzKDgA6bRqBSjgMjuIpcbABazPJTwPJcXxnGyMehyWJ47KoKZOkoNRTiIRoCDgCZXm+eA6m0dQQj8MRInCUY7CIVoCEAFZonefApC2BQglWHIKAAPx/D4FoyHgTZsAIXwYAWYR8kMR5YAAP4PmOdZ7H8X54AoDhziASAaAiAoeAecZ+CQIAID4GhwGEF5eBOAphHgZgbgiWQYHYB4CGICA2CSCpPnMYIjgEYZoiIFYDCGCIyCsNgKCCRgSgyHZ4FoKoNiGOJgDKDphEidg0giJEnDiDojBkFZXg+IxZCYGoLgMOQSCmFBlCgOJZCmA4jDiCYJmSZw6FCEglheRhbA4ZZpgIV4ZCYV4+GeGhhniTghhsYAps+HBkGmTh0hmChpiId4PCSeQeHuHwnmmKhyg+aA3gYdohh2cxUhwCJNBIRZuiIXoDGiJwOkyWR9nkPwoiKFA2G2YBznaHIlB0cxGBiAYfAONJUCgIBmlAFg6k0AhaioJ5OkMTIdi0axzEyHmEBIYJpDMCJanyDowiwQwyq0LBbB6Sowg6KwYmoMxI26GwIBwU4Mj0GpgCOCI6BmG4mmYX4mG2a4GmCOAmhuFhfjmAALiKao5m6S4ml8bpNmKQBQgkFpzjSbg1koc44lYKQviKFp9j+TRrnsAZADALAXASQZwDwJp8xQc4uiSQ5xAwRwSkSYhDi0ERCFAECAg" to Nothing
		Get ComAdd of hoAppearance 2 "gBFLBCJwBAEHhEJAADhABZ8MACAADACAxRDAMgBQKAAzQFAYaBsHCGAAGMZRZgmFgAQhFcZQSKUOQTDKMIziaQAGgkNQwCSLIwjNIsBxPFIYRoAmCYZRnAYZIpjOZ5BiKAwgQiHMbwTLjfyMACjH7nnJEEigNIxToOU4jFDGIAWArAZBEbTENBtBIUIRoCA6CgOCAYRa4AJTdL1Er2ex2G7WMpWURkHTUJgGN4BVbdeoxPi/b6wDA8CwXAaHXpfbaKYQ7brYaikchyLI8Tq9bDNIgADLoYADJIoCRqEyudKQcrXJakaZqOoaXo+W5VVzWLpDVo0XBdTiLAAzKDgA6bRqBSjgMjuIpcbABazPJTwPJcXxnGyMehyWJ47KoKZOkoNRTiIRoCDgCZXm+eA6m0dQQj8MRInCUY7CIVoCEAFZonePwfA6fx7n2MIkBqM4REAB5vnOQpWCeAhnjACR9B4IoEC0OQMAGSZ0H2AxHmQAA/g+Y51n6AAgCgEZLDaChgmCUQkACAw8g4AJgjKEgNH6IQIEmYB/mAEhCAOBYZDMZIlA2TQSEQCheAGiwKDmTBiAWYYDCCaIWBOChijiMJ/DYXx4loNINBsQBdkWDpiCidgRg+YRYFoRANCMEAuEcXhlHiVISAMTgSlwXh1mOSISE+CZhEiKgLCiQw5FYWYaleFpQBiA4PhOSJhHMJgYD4Yx3mKn5fDYCgwkiUQkiUaRigIYhoEkZZUASTRiHAIodCSWYKCaHgmFkBh0CiAwZn6AYhGaUhcBiEhmkoEJQCOQBTiiTQjlwGZwDOE4oncXh5hmHIzGCIgMCkah0lMJYBFeMAHiyQRqmKMomiCY5wnoPUzFyuIMmIJh2ioXJqi6Ehkg0coEC6H7zHSUgkkCaxA42ToDmydw7GCahygODQNCIVASgoGQ7GyWAyEeaA9n2GQkAsBgGjQKBqGmwxNiKHA7HATxjiSTgzGwaY6h2J5AGOiwfFkM4UkEHQPiWQhQisD5zFyHwKimcAWgZhprBQAA6AyAgVleHILlucAAj+KA5joDhjg0VhOBEPpwjkBgQD+H5wh2bACBmYBBlwAQPGOKJRH0DwTHiNpHjICgSjiLYkCUGrzk4ApUFoNRJjCBxBGQTwjgCOpPBsWRnDGK4DAiMxDlKXp3ECRpFiuKgOh8AZODKcBqH0NR9GGdA+A6YxplMdRlHmPY4DsTRig2YXfECDg2lmJAjnCeQ8meOANwYwSBXEsDUeQZxdDxDgGwbY3QjjmHiKUcIwQnBfGADYZowR7B6E6E4MI2g1AUAsOkFwCwOhmECC0ZYkxzhhFME4egXQThHGkPUDoPwqtkE6E8LQaQJiHDiK4KYaBCiwFwOkaYVROhqXoIcdw9BzAcCKNAZg3Qbg2BsD0cY+BvBPEWOUfIHgziVHMOMYwWQEAACGAEZYgg7gaGKCUXQ6hoD7F2JwW5txIhPHYBQTwwQljzD6AYW4zx6h9B+F8bo9h/AfDONUZwkhziJF8FwHALBaCTAwIEG4CASDfC4FwAIRRHuhBAOUUwAxoAQH6C0eACgDAeAMGoGgGREDPAiKAAIVwBgYA2AUZ4QgEAOEGMANwCwIjWCIEgJIASAg==" to Nothing
		Get ComAdd of hoAppearance 3 "gBFLBCJwBAEHhEJAADhABT0MACAADACAxRDAMgBQKAAzQFAYaBsHCGAAGMZRZgmFgAQhFcZQSKUOQTDKMIziaQAGgkNQwCSLIwjNIsBxPFIYRoAmCYZRnAYZIpjOZ5BiKAwgQiHMbwTLjfyMACjH7nnJEEigNIxToOU4jFDGIAWArAZBEbTENBtBIUIRoCA6CgOCAYRa4AJTdL1Er2ex2G7WMpWURkHTUJgGN4BVbdeoxPi/b6wDA8CwXAaHXpfbaKYQ7brYaikchyLI8Tq9bDNIgADLoYADJIoCRqEyudKQcrXJakaZqOoaXo+W5VVzWLpDVo0XBdTiLAAzKDgA6bRqBSjgMjuIpcbABazPJTwPJcXxnGyMehyWJ47KoKZOkoNRTiIRoCDgCZXm+eA6m0dQQj8MRInCUY7CIVoCEAFZonePR+D6d57GESA1GcIoAA+X5fgW2oJh6QAlnMdZHlgFIogGXw3lQNB+AAA54n4PxflefgBgCXIyBIFgZmGAYOBqAhKEgLZ5gOIQHgGfoAAkCAKBQZJIDiJBogqRwYjYGAZksGJFmGAogkiAgRgkIhohyfwgiOSIsGiCxkAGRBwhCRgZBYM4HGMWA+DeBJhEIBhOg+JAZEYQAaGUQhyFYdZjEgfhKgiIQohWc4TggGRCFKGJkCkDBehmTpJiWTIWGCWRtl+CJkkcfIAhyZgphIdoLEaWZkHeHpmjkIhaggZp5HYORzCcMgCHWFIkDGQBviKZx4jQZIjkuKhFkENgKDCThJiAHR5kIXhykeeh2geFBGmqBBmiiaI6hQb4diiGYcF4PgqkYTJXCgApDDiCYbGmBw6hqIJZCGeo6hUBoZlgaovmOY5CkIPQsEqKoJh2J4RjQeYylkM5cm0NgMhGegNH8JZImGE4BEeWpygiEJhiGDIGjeXATgaYgXG4SweGQGRugKOpqGSThTAQdA+hcCQuhsP5HjuVoPBkJQqhaZAXEsO52hkNYNGEcwCjmJAaCaew5HCBhOA8PpvJQDg/iyMZmiMGYGv4dw4jGB5MlKRpwCEcwEhAKhcE4OhRisdwEhmSZHGyJwjGQTRMjcHZHmKXBUGuJxHniHwlkqXpzG8Oo+moWRKmgGRKC0BZzk2c/FmiUZkFGBohBuJQhH8TgxjUB4ElUJwCDMRIRHuNBYhyd5WmuTJKECQYuEuCJhHWTYShQNhtm0M5zFmSpvFGbgvkgKI9DgXw8jcRwwm0GoCgEAxhoAWB0MwgQWi7EmOcMIpgnDwC4CcA4wh4gcB+BUYYcROBPA0GkCYhw4iuCmDgEg1wWAwDmBQJwlw9ifD4OsTAcQLhDBmHQbg1gzBvCWNMegnQnhNGqHUDoXwujWHqAYLICAAAbCKDAOQ4BMD9GaFUUo2QYjzFcLcTovBIhODuBoYoJxEBSHwP4JIrRyB5D8FcTI5x8jeEeJsco7xSC5HEG8S4DgEjnHaNQWIfRJheDaH8BgTgoB8EqFYMoFxPg/CeMUeovAMDBGKJkBgXxGgLHsH4R4QQpj7EyP8ZI1hEChBQAggI" to Nothing
	Send Destroy to hoAppearance
	Set ComBackground OLEexCheckBoxState0 to |CI$1000000
	Set ComBackground OLEexCheckBoxState1 to |CI$2000000
	Set ComBackground OLEexCheckBoxState2 to |CI$3000000
	Variant voFace
	Get ComFrontFace to voFace
	Handle hoFace
	Get Create (RefClass(cComFace)) to hoFace
	Set pvComObject of hoFace to voFace
		Variant voFaceTree
		Get ComCreateTree of hoFace to voFaceTree
		Handle hoFaceTree
		Get Create (RefClass(cComFaceTree)) to hoFaceTree
		Set pvComObject of hoFaceTree to voFaceTree
			Set ComShowSelection of hoFaceTree to False
			Set ComDrawGridLines of hoFaceTree to OLEexRowLines
			Set ComItemPadding of hoFaceTree to 16
			Variant voColumns
			Get ComColumns of hoFaceTree to voColumns
			Handle hoColumns
			Get Create (RefClass(cComColumns)) to hoColumns
			Set pvComObject of hoColumns to voColumns
				Variant voColumn
				Get ComAdd of hoColumns "<c><b>Check" to voColumn
				Handle hoColumn
				Get Create (RefClass(cComColumn)) to hoColumn
				Set pvComObject of hoColumn to voColumn
					Set ComAlignment of hoColumn to OLELeftAlignment
					Set ComDef of hoColumn OLEexCellHasCheckBox to True
				Send Destroy to hoColumn
			Send Destroy to hoColumns
			Variant voItems
			Get ComItems of hoFaceTree to voItems
			Handle hoItems
			Get Create (RefClass(cComItems)) to hoItems
			Set pvComObject of hoItems to voItems
				Set ComToString of hoItems to "Check A,Check B,Check C,Check D"
			Send Destroy to hoItems
			Variant voItem
			Get ComItemByIndex of hoFaceTree 1 to voItem
			Handle hoItem
			Get Create (RefClass(cComItem)) to hoItem
			Set pvComObject of hoItem to voItem
				Set ComState of hoItem 0 to 1
			Send Destroy to hoItem
		Send Destroy to hoFaceTree
	Send Destroy to hoFace
	Send ComEndUpdate
End_Procedure

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Set ComTexturePicturePath to ""
	Set ComCheckBoxWidth to 44
	Set ComCheckBoxHeight to 20
	Variant voAppearance
	Get ComVisualAppearance to voAppearance
	Handle hoAppearance
	Get Create (RefClass(cComAppearance)) to hoAppearance
	Set pvComObject of hoAppearance to voAppearance
		Get ComAdd of hoAppearance 1 "gBFLBCJwBAEHhEJAADhABJACg6AADACAxRDAMgBQKAAzQFAYaBsHCGAAGMZRZgmFgAQhFcZQSKUOQTDKMIziaQAGgkNQwCSLIxDFIsBxPFKCQChEZBUjKAwyDBIUzSDIUBhZBIKI7hGa3NBwJAAUTRch0j4iCRQGiYZyHKcxMYgIYCUBkERtMw0GyERQhGb4DoGA4IBhFZQVVLsRBIDh2bbuG4LSrWdJ3OyaN5EbbgZz9P7AMBwLA8EwXBqHYIUGJGbhlbTnR7HMhvDIsPDnFqIZhmOZZXjlfh7T7KNByO6LcI3AiDagtWpNTpjf5dV7YNh2LY9UzXNq3bI1W5aUqyAZ9QQpeB0LILYDbRp/FzyO5NNrHG6dZ7oOh1doOUItlaP5lgcPA7hEJ47H8SD0l4LwfhOSJ9nOIh9DefBREMKYMDaX59nsVhvlKdBpCGfgIl+L43lGG5lH+YAGlWZw/EYOAVH8ZQXncdBJDwIJGkiGYDlmUh2BKABhEgVJpgWX4BA4BxcAeWB1H8KJiAaSJJgiWZWAmVA0CEWIln8JYikWfZpCIXARE0fw3GMRpJnaCRYBGWg6gqI5HgoJxfkYCQFlkX5PhkFYyBAJIImGABpGOWQ1k8OxlAWfZ6BGJA1noRQ+GQeQmEoX4kkkOheG2JQDjYUh+iMGJODUbBjHkbAzg6BxpH4bhsmOdZ6EEGAbmIAR/gSCZWkmfYShwYJYlOH5mnoBYvCSaBFnyDYhlcKAll2AwPAaSggCiWZaD6AogiEc4mBmBpYnePZxGMHw3lUeoGGUN5aH8NJpDoBgDgERg6GGFICh2d4GiWK5cngDgvHqWInG0cIfFyBwpjqLArkcTZVHWV5nGaNhxA6VoVicahajaNo9gUHI2nIdRwBwJoOkSMJlFmKpWjWWY2HwPYwm2SxJHIe5sGsYpiGcXpHj6XYxA6NBFAkQBAIC" to Nothing
		Get ComAdd of hoAppearance 2 "gBFLBCJwBAEHhEJAADhABB4Cg6AADACAxRDAMgBQKAAzQFAYaBsHCGAAGMZRZgmFgAQhFcZQSKUOQTDKMIziaQAGgkNQwCSLIxDFIsBxPFKCQChEZBUjKAwyDBIUzSDIUBhZBIKI7hGa3NBwJAAUTRch0j4iCRQGiYZyHKcxMYgIYCUBkERtMw0GyERQhGb4DoGA4IBhFZQVVLsRBIDh2bbuG4LSrWdJ3Oy3KKiQy5cABPq/b6wDA8CwXAaHYRiGDYThmF4dRQAG6RcTLWrPFqVZheGYua4CLBxRrINA0LD9DyHJKnaZkDgpUQGN5dTS4GwPQCN3xRWzUyBaQzJfAZV7Lbw3PadX4XRLHcLwfAXFqWaaNZLneh5DouDz3P5YMuaRBicQ4nl6bpuBwKYRnuUY2jsfg9B0b43hOH5KjucQPnwOpMi+A4pnab5qB0a4znuf57n4f5gAeeJqC4R42mEcg5AoIRBnUfggkgLJiCaRA4AYEoEl+Y4AhcDpaFOGIrBgDYyBwHICmIB5djge4hEilY8g0MotiUZICkMYB6AEIgYDYIh0g+Q5cm+CYjgOfJ6DuDZ2hSWggkESI6DCDJjCkFZDg0Yx4mYJYOmOVoiD8BQhlgfhEgwZRGBoJISy0IgqGoIpDhCJAVCUWQaFMY5fAkYgBD+D5TmyYAlENPBnCsRhFkoYYcmYMAAmkLRHDmGZ9h2Rw4BkeBnFmeZWHSGIYHeQZuHoHonjGboamaVwYmIJwEEYbZNiCaRKAmdx1hyNZChWIQpjcKZYHAKQ6FqHIoh0Vp6hkcBqgoAodikKgmi2LYnmsCohkAXoXkqMojgMIpKh2Gw6lEFAlAEgIA==" to Nothing
	Send Destroy to hoAppearance
	Set ComBackground OLEexCheckBoxState0 to |CI$1000000
	Set ComBackground OLEexCheckBoxState1 to |CI$2000000
	Variant voFace
	Get ComFrontFace to voFace
	Handle hoFace
	Get Create (RefClass(cComFace)) to hoFace
	Set pvComObject of hoFace to voFace
		Variant voFaceTree
		Get ComCreateTree of hoFace to voFaceTree
		Handle hoFaceTree
		Get Create (RefClass(cComFaceTree)) to hoFaceTree
		Set pvComObject of hoFaceTree to voFaceTree
			Set ComShowSelection of hoFaceTree to False
			Set ComDrawGridLines of hoFaceTree to OLEexRowLines
			Set ComItemPadding of hoFaceTree to 16
			Variant voColumns
			Get ComColumns of hoFaceTree to voColumns
			Handle hoColumns
			Get Create (RefClass(cComColumns)) to hoColumns
			Set pvComObject of hoColumns to voColumns
				Variant voColumn
				Get ComAdd of hoColumns "<c><b>Check" to voColumn
				Handle hoColumn
				Get Create (RefClass(cComColumn)) to hoColumn
				Set pvComObject of hoColumn to voColumn
					Set ComAlignment of hoColumn to OLELeftAlignment
					Set ComDef of hoColumn OLEexCellHasCheckBox to True
				Send Destroy to hoColumn
			Send Destroy to hoColumns
			Variant voItems
			Get ComItems of hoFaceTree to voItems
			Handle hoItems
			Get Create (RefClass(cComItems)) to hoItems
			Set pvComObject of hoItems to voItems
				Set ComToString of hoItems to "Check A,Check B,Check C,Check D"
			Send Destroy to hoItems
			Variant voItem
			Get ComItemByIndex of hoFaceTree 1 to voItem
			Handle hoItem
			Get Create (RefClass(cComItem)) to hoItem
			Set pvComObject of hoItem to voItem
				Set ComState of hoItem 0 to 1
			Send Destroy to hoItem
		Send Destroy to hoFaceTree
	Send Destroy to hoFace
	Send ComEndUpdate
End_Procedure

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Set ComTexturePicturePath to ""
	Set ComCheckBoxWidth to 37
	Set ComCheckBoxHeight to 15
	Variant voAppearance
	Get ComVisualAppearance to voAppearance
	Handle hoAppearance
	Get Create (RefClass(cComAppearance)) to hoAppearance
	Set pvComObject of hoAppearance to voAppearance
		Get ComAdd of hoAppearance 1 "gBFLBCJwBAEHhEJAADhABOkGACAADACAxRDAMgBQKAAzQFAYaBsHCGAAGMZRZgmFgAQhFcZQSKUOQTDKMIziaQAGgkNQwCSLIwjQAsTRQFocAChEYxXjKBA1SJNUgyj6WCQPR7CM5OaDgSABIijJDoGAwIgkUBpGKdBynEYoYxAYySQAIIjaYhoNoJChCM7QHQEBwQDCLUgrGbIbCQHDtW5cFr3DaLEzsXi8FwvK67cr2fp/YBgOBYHbdcJ5OxkbouPC7Sa0AKKYywGRNFijV4se7MHzzLKHXxZa6UNJhGhaHomCYkYDILhxfDMGx7GqvbBsOxPXj2DZLW7cNIyDS3NyfLqzcBwOZZdrPC6NPzTdSuHQOC43Tqgcb0PDaVghmOVpnHYOAcE6FxzEuCAAGGOw+C2HhzjuZpRGGAAXj8H4zGWZ53mEPAXgyZ43kWZZ4H4L4ehwRp/muTh2l+F5ll8cpZEeeZYHQIEZEoW5MBgNZ9gGGpzioEoCF+GA0kGApYlYnY6iAaBtjaBQfAabYpgMIJWgIGx9BmNhiBsNBikiAZwgWIg2DoMRkAyKJWB+C4fAYGg1DKIw2DAAA6lEFAlAEgI=" to Nothing
		Get ComAdd of hoAppearance 2 "gBFLBCJwBAEHhEJAADhABC4Cg6AADACAxRDAMgBQKAAzQFAYaBsHCGAAGMZRZgmFgAQhFcZQSKUOQTDKMIziaQAGgkNQwCSLIwjQAsTRQFocAChEYxXjKBA1SJNUgyj6WCQPR7CM5OaDgSABIijJDoGAwIgkUBpGKdBynEYoYxAYySQAIIjaYhoNoJChCM7QHQEBwQDCLUgrGbIbCQHDtW5cFr3DaLKI0J5kUBENhjaBafJ+XzfeBYDgmAYNQbDcJxDC8KwWeQjXYTdyXHilZLaADJcqZVChSwzCafZ5oOK6Bodfq0VY2HabNgnYbNbT7bBrLq6UwWTjZTYZMxuHKMVyLJK/b5wOi3axKBBJWjYOR5Li+MbvNLFCRmO6ObpjgWHxsCiS5vleW5dkCOBBHWPA4F4Rw3kuZpYG0NwbjuD4LAyWhUho9BnmueZ4nof5+BwS40E+Nx9jYeaKAWNhulkF41m8fBfDOVJoDWDJCCALw7g0cphngP5OEMBISH8Wg3hI05ckaUYRAAGL8H4PpPgOVJnDUTIiBAKRfkwcZ0BuBAhCeYgVgWXA3AEfRsiGSJlkobIYnAAgYAWDJyEQPgyAgAIFh6CxBjOMJUCyrQckcJxjniahSHMF54gGRoPl4EZsBgOpNAKMhNDGSZnjYOIUmGRo0mwdAAAgFg1hYGIpGiagzgqE5onMOoelgahkgAIZll2U4bCMaZ2AYagnHgbgDFuXQ2GwM4fCiCYtmMapoBgdJaDAaBni2PYiifSR8HQDpqD6AYmEwFxBlIboWnoGoJiUahGHmNonCYZwmGaJwNiKKBriQWRaEmFooA6UxQhsFAdAqDo6iViJYFCLQdCOLQREIUAQICA=" to Nothing
	Send Destroy to hoAppearance
	Set ComBackground OLEexCheckBoxState0 to |CI$1000000
	Set ComBackground OLEexCheckBoxState1 to |CI$2000000
	Variant voFace
	Get ComFrontFace to voFace
	Handle hoFace
	Get Create (RefClass(cComFace)) to hoFace
	Set pvComObject of hoFace to voFace
		Variant voFaceTree
		Get ComCreateTree of hoFace to voFaceTree
		Handle hoFaceTree
		Get Create (RefClass(cComFaceTree)) to hoFaceTree
		Set pvComObject of hoFaceTree to voFaceTree
			Set ComShowSelection of hoFaceTree to False
			Set ComDrawGridLines of hoFaceTree to OLEexRowLines
			Set ComItemPadding of hoFaceTree to 12
			Variant voColumns
			Get ComColumns of hoFaceTree to voColumns
			Handle hoColumns
			Get Create (RefClass(cComColumns)) to hoColumns
			Set pvComObject of hoColumns to voColumns
				Variant voColumn
				Get ComAdd of hoColumns "<c><b>Check" to voColumn
				Handle hoColumn
				Get Create (RefClass(cComColumn)) to hoColumn
				Set pvComObject of hoColumn to voColumn
					Set ComAlignment of hoColumn to OLELeftAlignment
					Set ComDef of hoColumn OLEexCellHasCheckBox to True
				Send Destroy to hoColumn
			Send Destroy to hoColumns
			Variant voItems
			Get ComItems of hoFaceTree to voItems
			Handle hoItems
			Get Create (RefClass(cComItems)) to hoItems
			Set pvComObject of hoItems to voItems
				Set ComToString of hoItems to "Check A,Check B,Check C,Check D"
			Send Destroy to hoItems
			Variant voItem
			Get ComItemByIndex of hoFaceTree 1 to voItem
			Handle hoItem
			Get Create (RefClass(cComItem)) to hoItem
			Set pvComObject of hoItem to voItem
				Set ComState of hoItem 0 to 1
			Send Destroy to hoItem
		Send Destroy to hoFaceTree
	Send Destroy to hoFace
	Send ComEndUpdate
End_Procedure

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Set ComTexturePicturePath to ""
	Variant voFace
	Get ComFrontFace to voFace
	Handle hoFace
	Get Create (RefClass(cComFace)) to hoFace
	Set pvComObject of hoFace to voFace
		Variant voFaceTree
		Get ComCreateTree of hoFace to voFaceTree
		Handle hoFaceTree
		Get Create (RefClass(cComFaceTree)) to hoFaceTree
		Set pvComObject of hoFaceTree to voFaceTree
			Set ComHasLines of hoFaceTree to OLEexThinLine
			Set ComItemPadding of hoFaceTree to 10
			Set ComDrawGridLines of hoFaceTree to OLEexRowLines
			Variant voColumns
			Get ComColumns of hoFaceTree to voColumns
			Handle hoColumns
			Get Create (RefClass(cComColumns)) to hoColumns
			Set pvComObject of hoColumns to voColumns
				Variant voColumn
				Get ComAdd of hoColumns "<c>Default" to voColumn
				Handle hoColumn
				Get Create (RefClass(cComColumn)) to hoColumn
				Set pvComObject of hoColumn to voColumn
					Set ComAlignment of hoColumn to OLELeftAlignment
				Send Destroy to hoColumn
			Send Destroy to hoColumns
			Variant voColumns1
			Get ComColumns of hoFaceTree to voColumns1
			Handle hoColumns1
			Get Create (RefClass(cComColumns)) to hoColumns1
			Set pvComObject of hoColumns1 to voColumns1
				Variant voColumn1
				Get ComAdd of hoColumns1 "Pos" to voColumn1
				Handle hoColumn1
				Get Create (RefClass(cComColumn)) to hoColumn1
				Set pvComObject of hoColumn1 to voColumn1
					Set ComPosition of hoColumn1 to 0
					Set ComAlignment of hoColumn1 to OLELeftAlignment
					Set ComFormatColumn of hoColumn1 to "1 rpos ``"
					Set ComWidth of hoColumn1 to 24
				Send Destroy to hoColumn1
			Send Destroy to hoColumns1
			Variant voColumns2
			Get ComColumns of hoFaceTree to voColumns2
			Handle hoColumns2
			Get Create (RefClass(cComColumns)) to hoColumns2
			Set pvComObject of hoColumns2 to voColumns2
				Variant voColumn2
				Get ComAdd of hoColumns2 "Pos" to voColumn2
				Handle hoColumn2
				Get Create (RefClass(cComColumn)) to hoColumn2
				Set pvComObject of hoColumn2 to voColumn2
					Set ComAlignment of hoColumn2 to OLELeftAlignment
					Set ComFormatColumn of hoColumn2 to "1 rpos ``"
					Set ComWidth of hoColumn2 to 24
				Send Destroy to hoColumn2
			Send Destroy to hoColumns2
			Variant voItems
			Get ComItems of hoFaceTree to voItems
			Handle hoItems
			Get Create (RefClass(cComItems)) to hoItems
			Set pvComObject of hoItems to voItems
				Variant voItem
				Get ComAdd of hoItems "<r>Root 1" to voItem
				Handle hoItem
				Get Create (RefClass(cComItem)) to hoItem
				Set pvComObject of hoItem to voItem
					Set ComBold of hoItem to True
					Set ComDivider of hoItem to 0
					Set ComBackColor of hoItem to (RGB(240,240,240))
					Set ComSelectable of hoItem to False
					Variant voItems1
					Get ComItems of hoItem to voItems1
					Handle hoItems1
					Get Create (RefClass(cComItems)) to hoItems1
					Set pvComObject of hoItems1 to voItems1
						Get ComAdd of hoItems1 "Child 1" to Nothing
						Get ComAdd of hoItems1 "Child 2" to Nothing
						Get ComAdd of hoItems1 "Child 3" to Nothing
					Send Destroy to hoItems1
				Send Destroy to hoItem
				Variant voItem1
				Get ComAdd of hoItems "<r>Root 2" to voItem1
				Handle hoItem1
				Get Create (RefClass(cComItem)) to hoItem1
				Set pvComObject of hoItem1 to voItem1
					Set ComBold of hoItem1 to True
					Set ComDivider of hoItem1 to 0
					Set ComBackColor of hoItem1 to (RGB(240,240,240))
					Set ComSelectable of hoItem1 to False
					Variant voItems2
					Get ComItems of hoItem1 to voItems2
					Handle hoItems2
					Get Create (RefClass(cComItems)) to hoItems2
					Set pvComObject of hoItems2 to voItems2
						Get ComAdd of hoItems2 "Child 1" to Nothing
						Get ComAdd of hoItems2 "Child 2" to Nothing
						Get ComAdd of hoItems2 "Child 3" to Nothing
					Send Destroy to hoItems2
				Send Destroy to hoItem1
				Send ComExpandAll of hoItems
			Send Destroy to hoItems
		Send Destroy to hoFaceTree
	Send Destroy to hoFace
	Send ComEndUpdate
End_Procedure

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Set ComCheckBoxWidth to 32
	Set ComTexturePicturePath to ""
	Variant voFace
	Get ComFrontFace to voFace
	Handle hoFace
	Get Create (RefClass(cComFace)) to hoFace
	Set pvComObject of hoFace to voFace
		Variant voFaceTree
		Get ComCreateTree of hoFace to voFaceTree
		Handle hoFaceTree
		Get Create (RefClass(cComFaceTree)) to hoFaceTree
		Set pvComObject of hoFaceTree to voFaceTree
			Set ComShowSelection of hoFaceTree to False
			Set ComDrawGridLines of hoFaceTree to OLEexRowLines
			Set ComItemPadding of hoFaceTree to 10
			Variant voColumns
			Get ComColumns of hoFaceTree to voColumns
			Handle hoColumns
			Get Create (RefClass(cComColumns)) to hoColumns
			Set pvComObject of hoColumns to voColumns
				Variant voColumn
				Get ComAdd of hoColumns "<c><b>Check" to voColumn
				Handle hoColumn
				Get Create (RefClass(cComColumn)) to hoColumn
				Set pvComObject of hoColumn to voColumn
					Set ComAlignment of hoColumn to OLELeftAlignment
					Set ComDef of hoColumn OLEexCellHasCheckBox to True
				Send Destroy to hoColumn
			Send Destroy to hoColumns
			Variant voItems
			Get ComItems of hoFaceTree to voItems
			Handle hoItems
			Get Create (RefClass(cComItems)) to hoItems
			Set pvComObject of hoItems to voItems
				Set ComToString of hoItems to "Item A,Item B,Item C,Item D"
			Send Destroy to hoItems
			Variant voItem
			Get ComItemByIndex of hoFaceTree 1 to voItem
			Handle hoItem
			Get Create (RefClass(cComItem)) to hoItem
			Set pvComObject of hoItem to voItem
				Set ComState of hoItem 0 to 1
			Send Destroy to hoItem
		Send Destroy to hoFaceTree
	Send Destroy to hoFace
	Send ComEndUpdate
End_Procedure

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Set ComTexturePicturePath to ""
	Variant voFace
	Get ComFrontFace to voFace
	Handle hoFace
	Get Create (RefClass(cComFace)) to hoFace
	Set pvComObject of hoFace to voFace
		Variant voFaceTree
		Get ComCreateTree of hoFace to voFaceTree
		Handle hoFaceTree
		Get Create (RefClass(cComFaceTree)) to hoFaceTree
		Set pvComObject of hoFaceTree to voFaceTree
			Set ComShowSelection of hoFaceTree to False
			Set ComDrawGridLines of hoFaceTree to OLEexRowLines
			Set ComItemPadding of hoFaceTree to 10
			Variant voColumns
			Get ComColumns of hoFaceTree to voColumns
			Handle hoColumns
			Get Create (RefClass(cComColumns)) to hoColumns
			Set pvComObject of hoColumns to voColumns
				Variant voColumn
				Get ComAdd of hoColumns "<c><b>Def" to voColumn
				Handle hoColumn
				Get Create (RefClass(cComColumn)) to hoColumn
				Set pvComObject of hoColumn to voColumn
					Set ComAlignment of hoColumn to OLELeftAlignment
					Set ComDef of hoColumn OLEexCellPaddingLeft to 4
				Send Destroy to hoColumn
			Send Destroy to hoColumns
			Variant voItems
			Get ComItems of hoFaceTree to voItems
			Handle hoItems
			Get Create (RefClass(cComItems)) to hoItems
			Set pvComObject of hoItems to voItems
				Get ComAdd of hoItems "Item 1" to Nothing
				Variant voItem
				Get ComAdd of hoItems "Radio 1" to voItem
				Handle hoItem
				Get Create (RefClass(cComItem)) to hoItem
				Set pvComObject of hoItem to voItem
					Set ComHasRadioButton of hoItem 0 to True
					Set ComRadioGroup of hoItem 0 to 1234
				Send Destroy to hoItem
				Variant voItem1
				Get ComAdd of hoItems "Radio 2" to voItem1
				Handle hoItem1
				Get Create (RefClass(cComItem)) to hoItem1
				Set pvComObject of hoItem1 to voItem1
					Set ComHasRadioButton of hoItem1 0 to True
					Set ComRadioGroup of hoItem1 0 to 1234
					Set ComState of hoItem1 0 to True
				Send Destroy to hoItem1
				Variant voItem2
				Get ComAdd of hoItems "Radio 3" to voItem2
				Handle hoItem2
				Get Create (RefClass(cComItem)) to hoItem2
				Set pvComObject of hoItem2 to voItem2
					Set ComHasRadioButton of hoItem2 0 to True
					Set ComRadioGroup of hoItem2 0 to 1234
				Send Destroy to hoItem2
				Get ComAdd of hoItems "Item 1" to Nothing
			Send Destroy to hoItems
		Send Destroy to hoFaceTree
	Send Destroy to hoFace
	Send ComEndUpdate
End_Procedure

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Set ComTexturePicturePath to ""
	Variant voFace
	Get ComFrontFace to voFace
	Handle hoFace
	Get Create (RefClass(cComFace)) to hoFace
	Set pvComObject of hoFace to voFace
		Variant voFaceTree
		Get ComCreateTree of hoFace to voFaceTree
		Handle hoFaceTree
		Get Create (RefClass(cComFaceTree)) to hoFaceTree
		Set pvComObject of hoFaceTree to voFaceTree
			Set ComShowSelection of hoFaceTree to False
			Set ComDrawGridLines of hoFaceTree to OLEexRowLines
			Set ComItemPadding of hoFaceTree to 10
			Variant voColumns
			Get ComColumns of hoFaceTree to voColumns
			Handle hoColumns
			Get Create (RefClass(cComColumns)) to hoColumns
			Set pvComObject of hoColumns to voColumns
				Variant voColumn
				Get ComAdd of hoColumns "<c><b>Def" to voColumn
				Handle hoColumn
				Get Create (RefClass(cComColumn)) to hoColumn
				Set pvComObject of hoColumn to voColumn
					Set ComAlignment of hoColumn to OLELeftAlignment
					Set ComDef of hoColumn OLEexCellPaddingLeft to 4
				Send Destroy to hoColumn
			Send Destroy to hoColumns
			Variant voItems
			Get ComItems of hoFaceTree to voItems
			Handle hoItems
			Get Create (RefClass(cComItems)) to hoItems
			Set pvComObject of hoItems to voItems
				Get ComAdd of hoItems "Item 1" to Nothing
				Variant voItem
				Get ComAdd of hoItems "Check 1" to voItem
				Handle hoItem
				Get Create (RefClass(cComItem)) to hoItem
				Set pvComObject of hoItem to voItem
					Set ComHasCheckBox of hoItem 0 to True
				Send Destroy to hoItem
				Variant voItem1
				Get ComAdd of hoItems "Check 2" to voItem1
				Handle hoItem1
				Get Create (RefClass(cComItem)) to hoItem1
				Set pvComObject of hoItem1 to voItem1
					Set ComHasCheckBox of hoItem1 0 to True
					Set ComState of hoItem1 0 to 1
				Send Destroy to hoItem1
				Get ComAdd of hoItems "Item 1" to Nothing
			Send Destroy to hoItems
		Send Destroy to hoFaceTree
	Send Destroy to hoFace
	Send ComEndUpdate
End_Procedure

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Set ComTexturePicturePath to ""
	Variant voFace
	Get ComFrontFace to voFace
	Handle hoFace
	Get Create (RefClass(cComFace)) to hoFace
	Set pvComObject of hoFace to voFace
		Variant voFaceTree
		Get ComCreateTree of hoFace to voFaceTree
		Handle hoFaceTree
		Get Create (RefClass(cComFaceTree)) to hoFaceTree
		Set pvComObject of hoFaceTree to voFaceTree
			Set ComShowSelection of hoFaceTree to False
			Set ComDrawGridLines of hoFaceTree to OLEexRowLines
			Set ComItemPadding of hoFaceTree to 10
			Variant voColumns
			Get ComColumns of hoFaceTree to voColumns
			Handle hoColumns
			Get Create (RefClass(cComColumns)) to hoColumns
			Set pvComObject of hoColumns to voColumns
				Variant voColumn
				Get ComAdd of hoColumns "<c><b>Radio" to voColumn
				Handle hoColumn
				Get Create (RefClass(cComColumn)) to hoColumn
				Set pvComObject of hoColumn to voColumn
					Set ComAlignment of hoColumn to OLELeftAlignment
					Set ComDef of hoColumn OLEexCellHasRadioButton to True
				Send Destroy to hoColumn
			Send Destroy to hoColumns
			Variant voItems
			Get ComItems of hoFaceTree to voItems
			Handle hoItems
			Get Create (RefClass(cComItems)) to hoItems
			Set pvComObject of hoItems to voItems
				Set ComToString of hoItems to "Item A,Item B,Item C,Item D"
			Send Destroy to hoItems
			Variant voItem
			Get ComItemByIndex of hoFaceTree 1 to voItem
			Handle hoItem
			Get Create (RefClass(cComItem)) to hoItem
			Set pvComObject of hoItem to voItem
				Set ComState of hoItem 0 to 1
			Send Destroy to hoItem
		Send Destroy to hoFaceTree
	Send Destroy to hoFace
	Send ComEndUpdate
End_Procedure

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Set ComTexturePicturePath to ""
	Variant voFace
	Get ComFrontFace to voFace
	Handle hoFace
	Get Create (RefClass(cComFace)) to hoFace
	Set pvComObject of hoFace to voFace
		Variant voFaceTree
		Get ComCreateTree of hoFace to voFaceTree
		Handle hoFaceTree
		Get Create (RefClass(cComFaceTree)) to hoFaceTree
		Set pvComObject of hoFaceTree to voFaceTree
			Set ComShowSelection of hoFaceTree to False
			Set ComDrawGridLines of hoFaceTree to OLEexRowLines
			Set ComItemPadding of hoFaceTree to 10
			Variant voColumns
			Get ComColumns of hoFaceTree to voColumns
			Handle hoColumns
			Get Create (RefClass(cComColumns)) to hoColumns
			Set pvComObject of hoColumns to voColumns
				Variant voColumn
				Get ComAdd of hoColumns "<c><b>Check" to voColumn
				Handle hoColumn
				Get Create (RefClass(cComColumn)) to hoColumn
				Set pvComObject of hoColumn to voColumn
					Set ComAlignment of hoColumn to OLELeftAlignment
					Set ComDef of hoColumn OLEexCellHasCheckBox to True
				Send Destroy to hoColumn
			Send Destroy to hoColumns
			Variant voItems
			Get ComItems of hoFaceTree to voItems
			Handle hoItems
			Get Create (RefClass(cComItems)) to hoItems
			Set pvComObject of hoItems to voItems
				Set ComToString of hoItems to "Item A,Item B,Item C,Item D"
			Send Destroy to hoItems
			Variant voItem
			Get ComItemByIndex of hoFaceTree 1 to voItem
			Handle hoItem
			Get Create (RefClass(cComItem)) to hoItem
			Set pvComObject of hoItem to voItem
				Set ComState of hoItem 0 to 1
			Send Destroy to hoItem
		Send Destroy to hoFaceTree
	Send Destroy to hoFace
	Send ComEndUpdate
End_Procedure

Procedure OnCreate
	Forward Send OnCreate
	Set ComTexturePicturePath to "C:\Program Files\Exontrol\ExTreeCube\Sample\Texture\Chapel"
	Set ComBackground OLEexDateHeaderForeColor to (RGB(1,0,0))
	Variant voFace
	Get ComFrontFace to voFace
	Handle hoFace
	Get Create (RefClass(cComFace)) to hoFace
	Set pvComObject of hoFace to voFace
		Variant voFaceCalendar
		Get ComCreateCalendar of hoFace to voFaceCalendar
		Handle hoFaceCalendar
		Get Create (RefClass(cComFaceCalendar)) to hoFaceCalendar
		Set pvComObject of hoFaceCalendar to voFaceCalendar
			Set ComForeColor of hoFaceCalendar to (RGB(255,255,255))
			Set ComNonworkingDays of hoFaceCalendar to 0
			Set ComValue of hoFaceCalendar to "12/31/2016"
		Send Destroy to hoFaceCalendar
	Send Destroy to hoFace
End_Procedure

Procedure OnCreate
	Forward Send OnCreate
	Set ComTexturePicturePath to "C:\Program Files\Exontrol\ExTreeCube\Sample\Texture\JapanGarden"
	Variant voFace
	Get ComFrontFace to voFace
	Handle hoFace
	Get Create (RefClass(cComFace)) to hoFace
	Set pvComObject of hoFace to voFace
		Variant voFaceTree
		Get ComCreateTree of hoFace to voFaceTree
		Handle hoFaceTree
		Get Create (RefClass(cComFaceTree)) to hoFaceTree
		Set pvComObject of hoFaceTree to voFaceTree
			Set ComItemPadding of hoFaceTree to 40
			Set ComHeaderVisible of hoFaceTree to False
			Set ComForeColor of hoFaceTree to (RGB(255,255,255))
			Variant voItems
			Get ComItems of hoFaceTree to voItems
			Handle hoItems
			Get Create (RefClass(cComItems)) to hoItems
			Set pvComObject of hoItems to voItems
				Set ComToString of hoItems to ",<sha \;\;0><font \;18>Garden <b>A,<sha \;\;0><font \;18>Garden <b>B,<sha \;\;0><font \;18>Garden <b>C,"
			Send Destroy to hoItems
			Set ComCaption of hoFaceTree to "Garden B"
		Send Destroy to hoFaceTree
	Send Destroy to hoFace
End_Procedure

Procedure OnCreate
	Forward Send OnCreate
	Set ComTexturePicturePath to "C:\Program Files\Exontrol\ExTreeCube\Sample\Texture\JapanGarden"
	Variant voFace
	Get ComFrontFace to voFace
	Handle hoFace
	Get Create (RefClass(cComFace)) to hoFace
	Set pvComObject of hoFace to voFace
		Variant voFaceTree
		Get ComCreateTree of hoFace to voFaceTree
		Handle hoFaceTree
		Get Create (RefClass(cComFaceTree)) to hoFaceTree
		Set pvComObject of hoFaceTree to voFaceTree
			Set ComItemPadding of hoFaceTree to 40
			Set ComHeaderVisible of hoFaceTree to False
			Set ComForeColor of hoFaceTree to (RGB(255,255,255))
			Variant voItems
			Get ComItems of hoFaceTree to voItems
			Handle hoItems
			Get Create (RefClass(cComItems)) to hoItems
			Set pvComObject of hoItems to voItems
				Set ComToString of hoItems to ",<sha \;\;0><font \;18>Garden <b>A,<sha \;\;0><font \;18>Garden <b>B,<sha \;\;0><font \;18>Garden <b>C,"
			Send Destroy to hoItems
			Set ComValue of hoFaceTree to "<sha ;;0><font ;18>Garden <b>B"
		Send Destroy to hoFaceTree
	Send Destroy to hoFace
End_Procedure

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Set ComTexturePicturePath to ""
	Set ComHasButtons to OLEexArrow
	Variant voFace
	Get ComFrontFace to voFace
	Handle hoFace
	Get Create (RefClass(cComFace)) to hoFace
	Set pvComObject of hoFace to voFace
		Variant voFaceTree
		Get ComCreateTree of hoFace to voFaceTree
		Handle hoFaceTree
		Get Create (RefClass(cComFaceTree)) to hoFaceTree
		Set pvComObject of hoFaceTree to voFaceTree
			Set ComItemPadding of hoFaceTree to 10
			Set ComHeaderVisible of hoFaceTree to False
			Set ComHasLines of hoFaceTree to OLEexSolidLine
			Set ComLinesAtRoot of hoFaceTree to OLEexGroupLines
			Set ComGridLineStyle of hoFaceTree to OLEexGridLinesSolid
			Set ComDrawGridLines of hoFaceTree to OLEexAllLines
			Variant voColumns
			Get ComColumns of hoFaceTree to voColumns
			Handle hoColumns
			Get Create (RefClass(cComColumns)) to hoColumns
			Set pvComObject of hoColumns to voColumns
				Variant voColumn
				Get ComAdd of hoColumns "" to voColumn
				Handle hoColumn
				Get Create (RefClass(cComColumn)) to hoColumn
				Set pvComObject of hoColumn to voColumn
					Set ComAlignment of hoColumn to OLELeftAlignment
				Send Destroy to hoColumn
			Send Destroy to hoColumns
			Variant voColumns1
			Get ComColumns of hoFaceTree to voColumns1
			Handle hoColumns1
			Get Create (RefClass(cComColumns)) to hoColumns1
			Set pvComObject of hoColumns1 to voColumns1
				Variant voColumn1
				Get ComAdd of hoColumns1 "" to voColumn1
				Handle hoColumn1
				Get Create (RefClass(cComColumn)) to hoColumn1
				Set pvComObject of hoColumn1 to voColumn1
					Set ComAlignment of hoColumn1 to OLERightAlignment
					Set ComFormatColumn of hoColumn1 to "lower(%0) right 1"
				Send Destroy to hoColumn1
			Send Destroy to hoColumns1
			Variant voItems
			Get ComItems of hoFaceTree to voItems
			Handle hoItems
			Get Create (RefClass(cComItems)) to hoItems
			Set pvComObject of hoItems to voItems
				Variant voItem
				Get ComAdd of hoItems "Root <b>1" to voItem
				Handle hoItem
				Get Create (RefClass(cComItem)) to hoItem
				Set pvComObject of hoItem to voItem
					Variant voItems1
					Get ComItems of hoItem to voItems1
					Handle hoItems1
					Get Create (RefClass(cComItems)) to hoItems1
					Set pvComObject of hoItems1 to voItems1
						Get ComAdd of hoItems1 "Child 1" to Nothing
						Get ComAdd of hoItems1 "Child 2" to Nothing
						Get ComAdd of hoItems1 "Child 3" to Nothing
					Send Destroy to hoItems1
					Set ComExpanded of hoItem to True
				Send Destroy to hoItem
				Variant voItem1
				Get ComAdd of hoItems "Root <b>2" to voItem1
				Handle hoItem1
				Get Create (RefClass(cComItem)) to hoItem1
				Set pvComObject of hoItem1 to voItem1
					Variant voItems2
					Get ComItems of hoItem1 to voItems2
					Handle hoItems2
					Get Create (RefClass(cComItems)) to hoItems2
					Set pvComObject of hoItems2 to voItems2
						Get ComAdd of hoItems2 "Child 1" to Nothing
						Get ComAdd of hoItems2 "Child 2" to Nothing
						Get ComAdd of hoItems2 "Child 3" to Nothing
					Send Destroy to hoItems2
				Send Destroy to hoItem1
			Send Destroy to hoItems
		Send Destroy to hoFaceTree
	Send Destroy to hoFace
	Send ComEndUpdate
End_Procedure

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Variant voFace
	Get ComFrontFace to voFace
	Handle hoFace
	Get Create (RefClass(cComFace)) to hoFace
	Set pvComObject of hoFace to voFace
		Variant voFaceTree
		Get ComCreateTree of hoFace to voFaceTree
		Handle hoFaceTree
		Get Create (RefClass(cComFaceTree)) to hoFaceTree
		Set pvComObject of hoFaceTree to voFaceTree
			Set ComFullRowSelect of hoFaceTree to True
			Variant voColumns
			Get ComColumns of hoFaceTree to voColumns
			Handle hoColumns
			Get Create (RefClass(cComColumns)) to hoColumns
			Set pvComObject of hoColumns to voColumns
				Set ComCount of hoColumns to 3
			Send Destroy to hoColumns
			Variant voColumns1
			Get ComColumns of hoFaceTree to voColumns1
			Handle hoColumns1
			Get Create (RefClass(cComColumns)) to hoColumns1
			Set pvComObject of hoColumns1 to voColumns1
				Variant voColumn
				Get ComItem of hoColumns1 0 to voColumn
				Handle hoColumn
				Get Create (RefClass(cComColumn)) to hoColumn
				Set pvComObject of hoColumn to voColumn
					Set ComCaption of hoColumn to "<b><c>Pos"
					Set ComAlignment of hoColumn to OLELeftAlignment
					Set ComFormatColumn of hoColumn to "0 pos ``"
					Set ComWidth of hoColumn to 64
				Send Destroy to hoColumn
			Send Destroy to hoColumns1
			Variant voItems
			Get ComItems of hoFaceTree to voItems
			Handle hoItems
			Get Create (RefClass(cComItems)) to hoItems
			Set pvComObject of hoItems to voItems
				Variant v
					Variant voFace1
					Get ComFrontFace to voFace1
					Handle hoFace1
					Get Create (RefClass(cComFace)) to hoFace1
					Set pvComObject of hoFace1 to voFace1
						Variant voFaceTree1
						Get ComFaceTree of hoFace1 to voFaceTree1
						Handle hoFaceTree1
						Get Create (RefClass(cComFaceTree)) to hoFaceTree1
						Set pvComObject of hoFaceTree1 to voFaceTree1
							Get ComVisibleItemsCount of hoFaceTree1 to v
						Send Destroy to hoFaceTree1
					Send Destroy to hoFace1
				Set ComCount of hoItems to v
			Send Destroy to hoItems
			Set ComSelectItem of hoFaceTree to 1
		Send Destroy to hoFaceTree
	Send Destroy to hoFace
	Send ComEnsureVisibleFace OLEexFrontFace Nothing
	Send ComEndUpdate
End_Procedure

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Variant voAppearance
	Get ComVisualAppearance to voAppearance
	Handle hoAppearance
	Get Create (RefClass(cComAppearance)) to hoAppearance
	Set pvComObject of hoAppearance to voAppearance
		Get ComAdd of hoAppearance 1 "c:\exontrol\images\normal.ebn" to Nothing
	Send Destroy to hoAppearance
	Variant voFace
	Get ComFrontFace to voFace
	Handle hoFace
	Get Create (RefClass(cComFace)) to hoFace
	Set pvComObject of hoFace to voFace
		Variant voFaceTree
		Get ComCreateTree of hoFace to voFaceTree
		Handle hoFaceTree
		Get Create (RefClass(cComFaceTree)) to hoFaceTree
		Set pvComObject of hoFaceTree to voFaceTree
			Set ComBackColorHeader of hoFaceTree to |CI$1000000
			Variant voColumns
			Get ComColumns of hoFaceTree to voColumns
			Handle hoColumns
			Get Create (RefClass(cComColumns)) to hoColumns
			Set pvComObject of hoColumns to voColumns
				Set ComCount of hoColumns to 5
			Send Destroy to hoColumns
		Send Destroy to hoFaceTree
	Send Destroy to hoFace
	Send ComEnsureVisibleFace OLEexFrontFace Nothing
	Send ComEndUpdate
End_Procedure

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Variant voFace
	Get ComFrontFace to voFace
	Handle hoFace
	Get Create (RefClass(cComFace)) to hoFace
	Set pvComObject of hoFace to voFace
		Variant voFaceTree
		Get ComCreateTree of hoFace to voFaceTree
		Handle hoFaceTree
		Get Create (RefClass(cComFaceTree)) to hoFaceTree
		Set pvComObject of hoFaceTree to voFaceTree
			Set ComColumnAutoResize of hoFaceTree to False
			Variant voColumns
			Get ComColumns of hoFaceTree to voColumns
			Handle hoColumns
			Get Create (RefClass(cComColumns)) to hoColumns
			Set pvComObject of hoColumns to voColumns
				Set ComCount of hoColumns to 20
			Send Destroy to hoColumns
		Send Destroy to hoFaceTree
	Send Destroy to hoFace
	Send ComEnsureVisibleFace OLEexFrontFace Nothing
	Send ComEndUpdate
End_Procedure

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Variant voFace
	Get ComFrontFace to voFace
	Handle hoFace
	Get Create (RefClass(cComFace)) to hoFace
	Set pvComObject of hoFace to voFace
		Variant voFaceTree
		Get ComCreateTree of hoFace to voFaceTree
		Handle hoFaceTree
		Get Create (RefClass(cComFaceTree)) to hoFaceTree
		Set pvComObject of hoFaceTree to voFaceTree
			Set ComItemPadding of hoFaceTree to 10
			Set ComLinesAtRoot of hoFaceTree to OLEexGroupLines
			Set ComDrawGridLines of hoFaceTree to OLEexRowLines
			Variant voColumns
			Get ComColumns of hoFaceTree to voColumns
			Handle hoColumns
			Get Create (RefClass(cComColumns)) to hoColumns
			Set pvComObject of hoColumns to voColumns
				Variant voColumn
				Get ComAdd of hoColumns "Default" to voColumn
				Handle hoColumn
				Get Create (RefClass(cComColumn)) to hoColumn
				Set pvComObject of hoColumn to voColumn
					Set ComAlignment of hoColumn to OLELeftAlignment
				Send Destroy to hoColumn
			Send Destroy to hoColumns
			Variant voColumns1
			Get ComColumns of hoFaceTree to voColumns1
			Handle hoColumns1
			Get Create (RefClass(cComColumns)) to hoColumns1
			Set pvComObject of hoColumns1 to voColumns1
				Variant voColumn1
				Get ComAdd of hoColumns1 "Pos" to voColumn1
				Handle hoColumn1
				Get Create (RefClass(cComColumn)) to hoColumn1
				Set pvComObject of hoColumn1 to voColumn1
					Set ComPosition of hoColumn1 to 0
					Set ComAlignment of hoColumn1 to OLELeftAlignment
					Set ComFormatColumn of hoColumn1 to "1 rpos ``"
					Set ComWidth of hoColumn1 to 24
				Send Destroy to hoColumn1
			Send Destroy to hoColumns1
			Variant voItems
			Get ComItems of hoFaceTree to voItems
			Handle hoItems
			Get Create (RefClass(cComItems)) to hoItems
			Set pvComObject of hoItems to voItems
				Variant voItem
				Get ComAdd of hoItems "Root 1" to voItem
				Handle hoItem
				Get Create (RefClass(cComItem)) to hoItem
				Set pvComObject of hoItem to voItem
					Variant voItems1
					Get ComItems of hoItem to voItems1
					Handle hoItems1
					Get Create (RefClass(cComItems)) to hoItems1
					Set pvComObject of hoItems1 to voItems1
						Get ComAdd of hoItems1 "Child 1" to Nothing
						Get ComAdd of hoItems1 "Child 2" to Nothing
						Get ComAdd of hoItems1 "Child 3" to Nothing
					Send Destroy to hoItems1
				Send Destroy to hoItem
				Variant voItem1
				Get ComAdd of hoItems "Root 2" to voItem1
				Handle hoItem1
				Get Create (RefClass(cComItem)) to hoItem1
				Set pvComObject of hoItem1 to voItem1
					Variant voItems2
					Get ComItems of hoItem1 to voItems2
					Handle hoItems2
					Get Create (RefClass(cComItems)) to hoItems2
					Set pvComObject of hoItems2 to voItems2
						Get ComAdd of hoItems2 "Child 1" to Nothing
						Get ComAdd of hoItems2 "Child 2" to Nothing
						Get ComAdd of hoItems2 "Child 3" to Nothing
					Send Destroy to hoItems2
				Send Destroy to hoItem1
				Send ComExpandAll of hoItems
			Send Destroy to hoItems
		Send Destroy to hoFaceTree
	Send Destroy to hoFace
	Send ComEndUpdate
End_Procedure

// Notifies that an item has been expanded/collapsed into a face of tree type.
Procedure OnComFaceTreeExpandItem Variant   llTree Integer   llItem
	Forward Send OnComFaceTreeExpandItem llTree llItem
	Showln llItem
End_Procedure

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Variant voFace
	Get ComFrontFace to voFace
	Handle hoFace
	Get Create (RefClass(cComFace)) to hoFace
	Set pvComObject of hoFace to voFace
		Variant voFaceTree
		Get ComCreateTree of hoFace to voFaceTree
		Handle hoFaceTree
		Get Create (RefClass(cComFaceTree)) to hoFaceTree
		Set pvComObject of hoFaceTree to voFaceTree
			Set ComExpandOnDblClick of hoFaceTree to True
			Set ComItemPadding of hoFaceTree to 10
			Set ComHeaderVisible of hoFaceTree to False
			Set ComLinesAtRoot of hoFaceTree to OLEexGroupLines
			Set ComDrawGridLines of hoFaceTree to OLEexRowLines
			Variant voColumns
			Get ComColumns of hoFaceTree to voColumns
			Handle hoColumns
			Get Create (RefClass(cComColumns)) to hoColumns
			Set pvComObject of hoColumns to voColumns
				Variant voColumn
				Get ComAdd of hoColumns "" to voColumn
				Handle hoColumn
				Get Create (RefClass(cComColumn)) to hoColumn
				Set pvComObject of hoColumn to voColumn
					Set ComAlignment of hoColumn to OLELeftAlignment
				Send Destroy to hoColumn
			Send Destroy to hoColumns
			Variant voItems
			Get ComItems of hoFaceTree to voItems
			Handle hoItems
			Get Create (RefClass(cComItems)) to hoItems
			Set pvComObject of hoItems to voItems
				Variant voItem
				Get ComAdd of hoItems "Root 1" to voItem
				Handle hoItem
				Get Create (RefClass(cComItem)) to hoItem
				Set pvComObject of hoItem to voItem
					Variant voItems1
					Get ComItems of hoItem to voItems1
					Handle hoItems1
					Get Create (RefClass(cComItems)) to hoItems1
					Set pvComObject of hoItems1 to voItems1
						Get ComAdd of hoItems1 "Child 1" to Nothing
						Get ComAdd of hoItems1 "Child 2" to Nothing
						Get ComAdd of hoItems1 "Child 3" to Nothing
					Send Destroy to hoItems1
				Send Destroy to hoItem
				Variant voItem1
				Get ComAdd of hoItems "Root 2" to voItem1
				Handle hoItem1
				Get Create (RefClass(cComItem)) to hoItem1
				Set pvComObject of hoItem1 to voItem1
					Variant voItems2
					Get ComItems of hoItem1 to voItems2
					Handle hoItems2
					Get Create (RefClass(cComItems)) to hoItems2
					Set pvComObject of hoItems2 to voItems2
						Get ComAdd of hoItems2 "Child 1" to Nothing
						Get ComAdd of hoItems2 "Child 2" to Nothing
						Get ComAdd of hoItems2 "Child 3" to Nothing
					Send Destroy to hoItems2
				Send Destroy to hoItem1
				Send ComExpandAll of hoItems
			Send Destroy to hoItems
		Send Destroy to hoFaceTree
	Send Destroy to hoFace
	Send ComEndUpdate
End_Procedure

// Notifies that the user selects a new date/value into a face of the calendar type.
Procedure OnComFaceCalendarValueChanged Variant   llCalendar
	Forward Send OnComFaceCalendarValueChanged llCalendar
	Showln llCalendar
End_Procedure

Procedure OnCreate
	Forward Send OnCreate
	Variant voFace
	Get ComFrontFace to voFace
	Handle hoFace
	Get Create (RefClass(cComFace)) to hoFace
	Set pvComObject of hoFace to voFace
		Variant voFaceCalendar
		Get ComCreateCalendar of hoFace to voFaceCalendar
		Handle hoFaceCalendar
		Get Create (RefClass(cComFaceCalendar)) to hoFaceCalendar
		Set pvComObject of hoFaceCalendar to voFaceCalendar
			Set ComValue of hoFaceCalendar to "1/2/2001"
			Set ComMonthNames of hoFaceCalendar to (ComLocMonthNames(hoFaceCalendar,Nothing))
			Set ComWeekDays of hoFaceCalendar to (ComLocWeekDays(hoFaceCalendar,2))
			Set ComFirstWeekDay of hoFaceCalendar to (ComLocFirstWeekDay(hoFaceCalendar))
			Set ComAutoSize of hoFaceCalendar to OLEexFitClient
		Send Destroy to hoFaceCalendar
	Send Destroy to hoFace
End_Procedure

Procedure OnCreate
	Forward Send OnCreate
	Set ComTexturePicturePath to "C:\Program Files\Exontrol\ExTreeCube\Sample\Texture\Earth"
End_Procedure

Procedure OnCreate
	Forward Send OnCreate
	Set ComIdentifyFace to (OLEexIdentifyFaceFrame + OLEexIdentifyFaceName + OLEexIdentifyFaceCaption)
	Set ComTexturePicturePath to ""
End_Procedure

Procedure OnCreate
	Forward Send OnCreate
	Variant voFace
	Get ComFrontFace to voFace
	Handle hoFace
	Get Create (RefClass(cComFace)) to hoFace
	Set pvComObject of hoFace to voFace
		Variant voFaceTree
		Get ComCreateTree of hoFace to voFaceTree
		Handle hoFaceTree
		Get Create (RefClass(cComFaceTree)) to hoFaceTree
		Set pvComObject of hoFaceTree to voFaceTree
			Set ComItemPadding of hoFaceTree to 20
			Set ComHeaderVisible of hoFaceTree to False
			Set ComDrawGridLines of hoFaceTree to OLEexNoLines
			Variant voItems
			Get ComItems of hoFaceTree to voItems
			Handle hoItems
			Get Create (RefClass(cComItems)) to hoItems
			Set pvComObject of hoItems to voItems
				Get ComAdd of hoItems "Item A" to Nothing
				Get ComAdd of hoItems "Item B" to Nothing
				Get ComAdd of hoItems "Item C" to Nothing
			Send Destroy to hoItems
		Send Destroy to hoFaceTree
	Send Destroy to hoFace
End_Procedure

Procedure OnCreate
	Forward Send OnCreate
	Variant voFace
	Get ComFrontFace to voFace
	Handle hoFace
	Get Create (RefClass(cComFace)) to hoFace
	Set pvComObject of hoFace to voFace
		Variant voFaceTree
		Get ComCreateTree of hoFace to voFaceTree
		Handle hoFaceTree
		Get Create (RefClass(cComFaceTree)) to hoFaceTree
		Set pvComObject of hoFaceTree to voFaceTree
			Variant voItems
			Get ComItems of hoFaceTree to voItems
			Handle hoItems
			Get Create (RefClass(cComItems)) to hoItems
			Set pvComObject of hoItems to voItems
				Get ComAdd of hoItems "Item A" to Nothing
				Get ComAdd of hoItems "Item B" to Nothing
				Get ComAdd of hoItems "Item C" to Nothing
			Send Destroy to hoItems
		Send Destroy to hoFaceTree
	Send Destroy to hoFace
End_Procedure

Procedure OnCreate
	Forward Send OnCreate
	Variant voFace
	Get ComFrontFace to voFace
	Handle hoFace
	Get Create (RefClass(cComFace)) to hoFace
	Set pvComObject of hoFace to voFace
		Variant voFaceTree
		Get ComCreateTree of hoFace to voFaceTree
		Handle hoFaceTree
		Get Create (RefClass(cComFaceTree)) to hoFaceTree
		Set pvComObject of hoFaceTree to voFaceTree
			Variant voItems
			Get ComItems of hoFaceTree to voItems
			Handle hoItems
			Get Create (RefClass(cComItems)) to hoItems
			Set pvComObject of hoItems to voItems
				Set ComToString of hoItems to "Item A,Item B,Item C"
			Send Destroy to hoItems
		Send Destroy to hoFaceTree
	Send Destroy to hoFace
End_Procedure

// Notifies that the user selects a new item/column/value into a face of the tree type.
Procedure OnComFaceTreeValueChanged Variant   llTree
	Forward Send OnComFaceTreeValueChanged llTree
	// f.FaceCalendar.Year = Tree.Caption
	Variant f
	Get ComFace (ComVisibleFace(Self)) to f
	Get ComFrontFace to f
		Variant voFace
		Get ComNeighbor OLEexRotateLeft to voFace
		Handle hoFace
		Get Create (RefClass(cComFace)) to hoFace
		Set pvComObject of hoFace to voFace
			Variant voFaceCalendar
			Get ComFaceCalendar of hoFace to voFaceCalendar
			Handle hoFaceCalendar
			Get Create (RefClass(cComFaceCalendar)) to hoFaceCalendar
			Set pvComObject of hoFaceCalendar to voFaceCalendar
				Set ComDate of hoFaceCalendar to f
				Send ComMove of hoFaceCalendar OLEexRotateLeft Nothing
			Send Destroy to hoFaceCalendar
		Send Destroy to hoFace
		Variant voFace1
		Get ComNeighbor OLEexRotateRight to voFace1
		Handle hoFace1
		Get Create (RefClass(cComFace)) to hoFace1
		Set pvComObject of hoFace1 to voFace1
			Variant voFaceCalendar1
			Get ComFaceCalendar of hoFace1 to voFaceCalendar1
			Handle hoFaceCalendar1
			Get Create (RefClass(cComFaceCalendar)) to hoFaceCalendar1
			Set pvComObject of hoFaceCalendar1 to voFaceCalendar1
				Set ComDate of hoFaceCalendar1 to f
				Send ComMove of hoFaceCalendar1 OLEexRotateRight Nothing
			Send Destroy to hoFaceCalendar1
		Send Destroy to hoFace1
		Variant voFace2
		Get ComNeighbor OLEexRotateRight to voFace2
		Handle hoFace2
		Get Create (RefClass(cComFace)) to hoFace2
		Set pvComObject of hoFace2 to voFace2
			Variant voFace3
			Get ComNeighbor of hoFace2 OLEexRotateRight to voFace3
			Handle hoFace3
			Get Create (RefClass(cComFace)) to hoFace3
			Set pvComObject of hoFace3 to voFace3
				Variant voFaceCalendar2
				Get ComFaceCalendar of hoFace3 to voFaceCalendar2
				Handle hoFaceCalendar2
				Get Create (RefClass(cComFaceCalendar)) to hoFaceCalendar2
				Set pvComObject of hoFaceCalendar2 to voFaceCalendar2
					Set ComDate of hoFaceCalendar2 to f
					Send ComMove of hoFaceCalendar2 OLEexRotateRight Nothing
					Send ComMove of hoFaceCalendar2 OLEexRotateRight Nothing
				Send Destroy to hoFaceCalendar2
			Send Destroy to hoFace3
		Send Destroy to hoFace2
End_Procedure

// Occurs once a new face became visible, by moving/rotating from a face to another, into the giving direction.
Procedure OnComMove OLERotateEnum   llRotateDir OLEFaceEnum   llFromFace OLEFaceEnum   llToFace
	Forward Send OnComMove llRotateDir llFromFace llToFace
	Get ComFace llToFace to f
		Variant voFaceCalendar3
		Get ComFaceCalendar to voFaceCalendar3
		Handle hoFaceCalendar3
		Get Create (RefClass(cComFaceCalendar)) to hoFaceCalendar3
		Set pvComObject of hoFaceCalendar3 to voFaceCalendar3
			Variant v
				Variant voFace4
				Get ComFace llFromFace to voFace4
				Handle hoFace4
				Get Create (RefClass(cComFace)) to hoFace4
				Set pvComObject of hoFace4 to voFace4
					Variant voFaceCalendar4
					Get ComFaceCalendar of hoFace4 to voFaceCalendar4
					Handle hoFaceCalendar4
					Get Create (RefClass(cComFaceCalendar)) to hoFaceCalendar4
					Set pvComObject of hoFaceCalendar4 to voFaceCalendar4
						Get ComSelDate of hoFaceCalendar4 to v
					Send Destroy to hoFaceCalendar4
				Send Destroy to hoFace4
			Set ComSelDate of hoFaceCalendar3 to v
		Send Destroy to hoFaceCalendar3
	Variant voFace5
	Get ComFace llFromFace to voFace5
	Handle hoFace5
	Get Create (RefClass(cComFace)) to hoFace5
	Set pvComObject of hoFace5 to voFace5
		Variant voFaceCalendar5
		Get ComFaceCalendar of hoFace5 to voFaceCalendar5
		Handle hoFaceCalendar5
		Get Create (RefClass(cComFaceCalendar)) to hoFaceCalendar5
		Set pvComObject of hoFaceCalendar5 to voFaceCalendar5
			Send ComUnselectDate of hoFaceCalendar5
		Send Destroy to hoFaceCalendar5
	Send Destroy to hoFace5
		Variant voFace6
		Get ComNeighbor OLEexRotateLeft to voFace6
		Handle hoFace6
		Get Create (RefClass(cComFace)) to hoFace6
		Set pvComObject of hoFace6 to voFace6
			Variant voFaceCalendar6
			Get ComFaceCalendar of hoFace6 to voFaceCalendar6
			Handle hoFaceCalendar6
			Get Create (RefClass(cComFaceCalendar)) to hoFaceCalendar6
			Set pvComObject of hoFaceCalendar6 to voFaceCalendar6
				Set ComDate of hoFaceCalendar6 to f
				Send ComMove of hoFaceCalendar6 OLEexRotateLeft Nothing
			Send Destroy to hoFaceCalendar6
		Send Destroy to hoFace6
		Variant voFace7
		Get ComNeighbor OLEexRotateRight to voFace7
		Handle hoFace7
		Get Create (RefClass(cComFace)) to hoFace7
		Set pvComObject of hoFace7 to voFace7
			Variant voFaceCalendar7
			Get ComFaceCalendar of hoFace7 to voFaceCalendar7
			Handle hoFaceCalendar7
			Get Create (RefClass(cComFaceCalendar)) to hoFaceCalendar7
			Set pvComObject of hoFaceCalendar7 to voFaceCalendar7
				Set ComDate of hoFaceCalendar7 to f
				Send ComMove of hoFaceCalendar7 OLEexRotateRight Nothing
			Send Destroy to hoFaceCalendar7
		Send Destroy to hoFace7
End_Procedure

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Set ComTexturePicturePath to ""
	Set ComEnsureVisibleFaceMargin to 32
	Set ComEnsureVisibleFaceOnDblClick to False
	Set ComEnsureVisibleFaces to "0,2,1,3,4"
	Variant voFace8
	Get ComFrontFace to voFace8
	Handle hoFace8
	Get Create (RefClass(cComFace)) to hoFace8
	Set pvComObject of hoFace8 to voFace8
		Variant voFaceCalendar8
		Get ComCreateCalendar of hoFace8 to voFaceCalendar8
		Handle hoFaceCalendar8
		Get Create (RefClass(cComFaceCalendar)) to hoFaceCalendar8
		Set pvComObject of hoFaceCalendar8 to voFaceCalendar8
			Set ComDate of hoFaceCalendar8 to "1/1/2016"
			Set ComAutoSize of hoFaceCalendar8 to OLEexFitClient
			Set ComMaxMonthX of hoFaceCalendar8 to 1
			Set ComMaxMonthY of hoFaceCalendar8 to 1
			Set ComShowTodayButton of hoFaceCalendar8 to False
			Set ComFirstWeekDay of hoFaceCalendar8 to OLEexMonday
			Set ComSelBackColor of hoFaceCalendar8 to |CI$2000000
			Set ComSelForeColor of hoFaceCalendar8 to (RGB(0,0,0))
			Set ComShowNonMonthDays of hoFaceCalendar8 to True
		Send Destroy to hoFaceCalendar8
	Send Destroy to hoFace8
	Variant v1
		Variant voFace9
		Get ComFrontFace to voFace9
		Handle hoFace9
		Get Create (RefClass(cComFace)) to hoFace9
		Set pvComObject of hoFace9 to voFace9
			Variant voFaceCalendar9
			Get ComFaceCalendar of hoFace9 to voFaceCalendar9
			Handle hoFaceCalendar9
			Get Create (RefClass(cComFaceCalendar)) to hoFaceCalendar9
			Set pvComObject of hoFaceCalendar9 to voFaceCalendar9
				Get ComDate of hoFaceCalendar9 to v1
			Send Destroy to hoFaceCalendar9
		Send Destroy to hoFace9
	Variant d
	Move v1 to d
	Variant voFace10
	Get ComLeftFace to voFace10
	Handle hoFace10
	Get Create (RefClass(cComFace)) to hoFace10
	Set pvComObject of hoFace10 to voFace10
		Variant voFaceCalendar10
		Get ComCreateCalendar of hoFace10 to voFaceCalendar10
		Handle hoFaceCalendar10
		Get Create (RefClass(cComFaceCalendar)) to hoFaceCalendar10
		Set pvComObject of hoFaceCalendar10 to voFaceCalendar10
			Set ComDate of hoFaceCalendar10 to d
			Send ComMove of hoFaceCalendar10 OLEexRotateLeft Nothing
			Set ComAutoSize of hoFaceCalendar10 to OLEexFitClient
			Set ComMaxMonthX of hoFaceCalendar10 to 1
			Set ComMaxMonthY of hoFaceCalendar10 to 1
			Set ComShowTodayButton of hoFaceCalendar10 to False
			Set ComFirstWeekDay of hoFaceCalendar10 to OLEexMonday
			Set ComSelBackColor of hoFaceCalendar10 to |CI$2000000
			Set ComSelForeColor of hoFaceCalendar10 to (RGB(0,0,0))
			Set ComShowNonMonthDays of hoFaceCalendar10 to True
		Send Destroy to hoFaceCalendar10
	Send Destroy to hoFace10
	Variant voFace11
	Get ComRightFace to voFace11
	Handle hoFace11
	Get Create (RefClass(cComFace)) to hoFace11
	Set pvComObject of hoFace11 to voFace11
		Variant voFaceCalendar11
		Get ComCreateCalendar of hoFace11 to voFaceCalendar11
		Handle hoFaceCalendar11
		Get Create (RefClass(cComFaceCalendar)) to hoFaceCalendar11
		Set pvComObject of hoFaceCalendar11 to voFaceCalendar11
			Set ComDate of hoFaceCalendar11 to d
			Send ComMove of hoFaceCalendar11 OLEexRotateRight Nothing
			Set ComAutoSize of hoFaceCalendar11 to OLEexFitClient
			Set ComMaxMonthX of hoFaceCalendar11 to 1
			Set ComMaxMonthY of hoFaceCalendar11 to 1
			Set ComShowTodayButton of hoFaceCalendar11 to False
			Set ComFirstWeekDay of hoFaceCalendar11 to OLEexMonday
			Set ComSelBackColor of hoFaceCalendar11 to |CI$2000000
			Set ComSelForeColor of hoFaceCalendar11 to (RGB(0,0,0))
			Set ComShowNonMonthDays of hoFaceCalendar11 to True
		Send Destroy to hoFaceCalendar11
	Send Destroy to hoFace11
	Variant voFace12
	Get ComBottomFace to voFace12
	Handle hoFace12
	Get Create (RefClass(cComFace)) to hoFace12
	Set pvComObject of hoFace12 to voFace12
		Variant voFaceCalendar12
		Get ComCreateCalendar of hoFace12 to voFaceCalendar12
		Handle hoFaceCalendar12
		Get Create (RefClass(cComFaceCalendar)) to hoFaceCalendar12
		Set pvComObject of hoFaceCalendar12 to voFaceCalendar12
			Set ComDate of hoFaceCalendar12 to d
			Send ComMove of hoFaceCalendar12 OLEexRotateRight Nothing
			Send ComMove of hoFaceCalendar12 OLEexRotateRight Nothing
			Set ComAutoSize of hoFaceCalendar12 to OLEexFitClient
			Set ComMaxMonthX of hoFaceCalendar12 to 1
			Set ComMaxMonthY of hoFaceCalendar12 to 1
			Set ComShowTodayButton of hoFaceCalendar12 to False
			Set ComFirstWeekDay of hoFaceCalendar12 to OLEexMonday
			Set ComSelBackColor of hoFaceCalendar12 to |CI$2000000
			Set ComSelForeColor of hoFaceCalendar12 to (RGB(0,0,0))
			Set ComShowNonMonthDays of hoFaceCalendar12 to True
		Send Destroy to hoFaceCalendar12
	Send Destroy to hoFace12
	Variant voFace13
	Get ComTopFace to voFace13
	Handle hoFace13
	Get Create (RefClass(cComFace)) to hoFace13
	Set pvComObject of hoFace13 to voFace13
		Variant voFaceTree
		Get ComCreateTree of hoFace13 to voFaceTree
		Handle hoFaceTree
		Get Create (RefClass(cComFaceTree)) to hoFaceTree
		Set pvComObject of hoFaceTree to voFaceTree
			Set ComItemPadding of hoFaceTree to 20
			Set ComSelBackColor of hoFaceTree to |CI$2000000
			Set ComSelForeColor of hoFaceTree to (RGB(0,0,0))
			Variant voColumns
			Get ComColumns of hoFaceTree to voColumns
			Handle hoColumns
			Get Create (RefClass(cComColumns)) to hoColumns
			Set pvComObject of hoColumns to voColumns
				Set ComCount of hoColumns to 5
			Send Destroy to hoColumns
			Set ComHeaderVisible of hoFaceTree to False
			Variant voItems
			Get ComItems of hoFaceTree to voItems
			Handle hoItems
			Get Create (RefClass(cComItems)) to hoItems
			Set pvComObject of hoItems to voItems
				Variant v2
					Variant voFace14
					Get ComTopFace to voFace14
					Handle hoFace14
					Get Create (RefClass(cComFace)) to hoFace14
					Set pvComObject of hoFace14 to voFace14
						Variant voFaceTree1
						Get ComFaceTree of hoFace14 to voFaceTree1
						Handle hoFaceTree1
						Get Create (RefClass(cComFaceTree)) to hoFaceTree1
						Set pvComObject of hoFaceTree1 to voFaceTree1
							Get ComVisibleItemsCount of hoFaceTree1 to v2
						Send Destroy to hoFaceTree1
					Send Destroy to hoFace14
				Set ComCount of hoItems to v2
			Send Destroy to hoItems
			Variant voColumns1
			Get ComColumns of hoFaceTree to voColumns1
			Handle hoColumns1
			Get Create (RefClass(cComColumns)) to hoColumns1
			Set pvComObject of hoColumns1 to voColumns1
				Variant voColumn
				Get ComItem of hoColumns1 0 to voColumn
				Handle hoColumn
				Get Create (RefClass(cComColumn)) to hoColumn
				Set pvComObject of hoColumn to voColumn
					Set ComFormatColumn of hoColumn to "(0:=(1989 + 5 * (0 index ``))) = 2016 ? `<b><sha ;;0>` + =:0 + `</b>` : =:0"
				Send Destroy to hoColumn
			Send Destroy to hoColumns1
			Variant voColumns2
			Get ComColumns of hoFaceTree to voColumns2
			Handle hoColumns2
			Get Create (RefClass(cComColumns)) to hoColumns2
			Set pvComObject of hoColumns2 to voColumns2
				Variant voColumn1
				Get ComItem of hoColumns2 1 to voColumn1
				Handle hoColumn1
				Get Create (RefClass(cComColumn)) to hoColumn1
				Set pvComObject of hoColumn1 to voColumn1
					Set ComFormatColumn of hoColumn1 to "(0:=(1990 + 5 * (0 index ``))) = 2016 ? `<b><sha ;;0>` + =:0 + `</b>` : =:0"
				Send Destroy to hoColumn1
			Send Destroy to hoColumns2
			Variant voColumns3
			Get ComColumns of hoFaceTree to voColumns3
			Handle hoColumns3
			Get Create (RefClass(cComColumns)) to hoColumns3
			Set pvComObject of hoColumns3 to voColumns3
				Variant voColumn2
				Get ComItem of hoColumns3 2 to voColumn2
				Handle hoColumn2
				Get Create (RefClass(cComColumn)) to hoColumn2
				Set pvComObject of hoColumn2 to voColumn2
					Set ComFormatColumn of hoColumn2 to "(0:=(1991 + 5 * (0 index ``))) = 2016 ? `<b><sha ;;0>` + =:0 + `</b>` : =:0"
				Send Destroy to hoColumn2
			Send Destroy to hoColumns3
			Variant voColumns4
			Get ComColumns of hoFaceTree to voColumns4
			Handle hoColumns4
			Get Create (RefClass(cComColumns)) to hoColumns4
			Set pvComObject of hoColumns4 to voColumns4
				Variant voColumn3
				Get ComItem of hoColumns4 3 to voColumn3
				Handle hoColumn3
				Get Create (RefClass(cComColumn)) to hoColumn3
				Set pvComObject of hoColumn3 to voColumn3
					Set ComFormatColumn of hoColumn3 to "(0:=(1992 + 5 * (0 index ``))) = 2016 ? `<b><sha ;;0>` + =:0 + `</b>` : =:0"
				Send Destroy to hoColumn3
			Send Destroy to hoColumns4
			Variant voColumns5
			Get ComColumns of hoFaceTree to voColumns5
			Handle hoColumns5
			Get Create (RefClass(cComColumns)) to hoColumns5
			Set pvComObject of hoColumns5 to voColumns5
				Variant voColumn4
				Get ComItem of hoColumns5 4 to voColumn4
				Handle hoColumn4
				Get Create (RefClass(cComColumn)) to hoColumn4
				Set pvComObject of hoColumn4 to voColumn4
					Set ComFormatColumn of hoColumn4 to "(0:=(1993 + 5 * (0 index ``))) = 2016 ? `<b><sha ;;0>` + =:0 + `</b>` : =:0"
				Send Destroy to hoColumn4
			Send Destroy to hoColumns5
			Variant v3
				Variant voFace15
				Get ComFrontFace to voFace15
				Handle hoFace15
				Get Create (RefClass(cComFace)) to hoFace15
				Set pvComObject of hoFace15 to voFace15
					Variant voFaceCalendar13
					Get ComFaceCalendar of hoFace15 to voFaceCalendar13
					Handle hoFaceCalendar13
					Get Create (RefClass(cComFaceCalendar)) to hoFaceCalendar13
					Set pvComObject of hoFaceCalendar13 to voFaceCalendar13
						Get ComYear of hoFaceCalendar13 to v3
					Send Destroy to hoFaceCalendar13
				Send Destroy to hoFace15
			Set ComCaption of hoFaceTree to v3
		Send Destroy to hoFaceTree
	Send Destroy to hoFace13
	Variant voAppearance
	Get ComVisualAppearance to voAppearance
	Handle hoAppearance
	Get Create (RefClass(cComAppearance)) to hoAppearance
	Set pvComObject of hoAppearance to voAppearance
		Get ComAdd of hoAppearance 1 "gBFLBCJwBAEHhEJAADhABXgCg6AADACAxRDAMgBQKAAzQFAYaBsHCGAAGMZRZgmFgAQhFcZQSKUOQTDKMIziYBYfgkMIgSbJUgDIAkRRdDSOYDmGQYDiCIoRShOMIjHLUXxtDaIZZmWCQCglf5HABRb7xPLoARTAaeJKoWboJAiGwLQjQUyABSdEyRJSLYhGIZRFqKZIRDSMFiwTZNVypAaIYqqaA6qzfJymabAAZJEradozTLIE7xVLEVYNKCmZCwMAAcgmEQgSTAda2BYELTzECoYDGCrcKpWCaNQLWEB5BQeJSNL6kIqsazgAqPLJtWhaVwxXIEI5AAC5QA0S7pOxeO6JbRGdZbNrlbz1PTMaazTgYDzmWqiYxxMraXxSlmMprGsIpVl2LRnD0A5bnSN49mAARAlIYw6B0ThGFGDIBG0QghBMfZRiGNAkFECZoG6YQBgiOgCmuRRSg6GAElWAJMkgFgGgGYIIAyVQ7GCRhUAAOQhAMBgSDWIRDG4Fg3CGCBmBmBYNjgUJWDIIgIECZBCEsKIUkqCZhiiJgqgaYRjB4LguiMBAkiqDLenYrBjgiZg6gGIwyioMoNCAWJqEKEJjkiTg/CqIxZA4SoNmQWJ5AODxMlkRJehSZRJFYVoVmUEw2D2EZlhkXhehfURuE+DJllkfhmhUJgZBoYwqiWEx+G6G5nAmRhyhoZJgAIUIUGcKZmHqHQlkmYh6h+Zp5nIawzigQ4CgaIZogoJoKiEDJpgodoMmiSgqhKJNxDoPQzmmA4GhqJppkodoeiYDJ6FpaQpmqFomigKgiiqJIpiqShuiiGoonqKoZisapaj4dYl3WCo6i6a5KnaPotiQeoCj6MJsEsAhrDQLIDg6SoymySw2k6MgNAqJpQjOLRLFaUI0iyGxWlq/p6kIPY0m2Oxul2LZjDMRpmgiLoLiaaoIi4YxGinoY7kaauhnuGJlj2b4Lmaeo+m8Sx6mWOZhAubwCj2bpLhqKYJkyKTnECThYgoVJCCiYpPBIL5xEMLwWjsTQsGcGpGi6XBYkuRQLvcIhCE8DIWDCSZLiKdwqC+MpMjcLZKguXIcjiTJyFOQYnD+TYMmSLZOkmHJ3D6T50AybItiGYJji2MwABAECAg=" to Nothing
	Send Destroy to hoAppearance
	Variant voAppearance1
	Get ComVisualAppearance to voAppearance1
	Handle hoAppearance1
	Get Create (RefClass(cComAppearance)) to hoAppearance1
	Set pvComObject of hoAppearance1 to voAppearance1
		Get ComAdd of hoAppearance1 2 "gBFLBCJwBAEHhEJAADhABOkGACAADACAxRDAMgBQKAAzQFAYaBsHCGAAGMZRZgmFgAQhFcZQSpEEg7BKMYwjOJgFgmEYFDSAUIjKKkIhkGIYZBGQBJDjWGgyQjOEByDIMRwjE4YBpkGYYJDSIYHTZIUzTJAdGSVJKNKAoKCaEg2R4qsZCCKwUgmTo9VBJU9CFi6ZIRDSMFiyXZUIxHEKnIqrOjbBjaUpYABLErTBKUSzrEadAAwGbKJj+VJBULMVD2BDWGABOYAKarWa7fhaUqJUTVdI1VBOIYmADPcaqCxrLgMMpnWxpN42bjdPY7V6Bc7yXJsHimK5GUTQA4aFIENydJzINjsKBKBriLIybpeFr7BiME4/YLhAA0vZNUYsg0XguBqaAeEOIYUjqYQgGCCBJECUhjDoHROEYWooAGTRMCEEx9lGIY0CQUZOnuZQDBEdYFkeI5+H+igGAKAJgEgFgGgGUAzn4CoCmCSA2A6A5hAgCgQgSYRIE4EoFGGCBiBeBhhkgPgbgcYgICoH4IGGWIOCSBhiGiHgVgoYooFoAYLGIWI+DCCgjCiTgrgII4ImYOoOmOSJ1n4OpWmQDQBICA==" to Nothing
	Send Destroy to hoAppearance1
	Set ComBackground OLEexDateHeader to |CI$1000000
	Set ComBackground OLEexWeeksHeader to (RGB(250,250,250))
	Set ComBackground OLEexDaysHeader to (RGB(250,250,250))
	Set ComBackground OLEexDateTodayUp to |CI$2000000
	Set ComBackground OLEexDateTodayForeColor to (RGB(255,255,255))
	Send ComEnsureVisibleFace OLEexFrontFace Nothing
	Send ComEndUpdate
End_Procedure

Procedure OnCreate
	Forward Send OnCreate
	Variant voFace
	Get ComFrontFace to voFace
	Handle hoFace
	Get Create (RefClass(cComFace)) to hoFace
	Set pvComObject of hoFace to voFace
		Variant voFaceTree
		Get ComCreateTree of hoFace to voFaceTree
		Handle hoFaceTree
		Get Create (RefClass(cComFaceTree)) to hoFaceTree
		Set pvComObject of hoFaceTree to voFaceTree
			Variant voItems
			Get ComItems of hoFaceTree to voItems
			Handle hoItems
			Get Create (RefClass(cComItems)) to hoItems
			Set pvComObject of hoItems to voItems
				Set ComToString of hoItems to "Item <b>1,Item <b>2,Item <b>3"
			Send Destroy to hoItems
			Set ComSelectItem of hoFaceTree to 1
		Send Destroy to hoFaceTree
	Send Destroy to hoFace
End_Procedure

Procedure OnCreate
	Forward Send OnCreate
	Variant voFace
	Get ComFrontFace to voFace
	Handle hoFace
	Get Create (RefClass(cComFace)) to hoFace
	Set pvComObject of hoFace to voFace
		Set ComType of hoFace to OLEexFaceTree
		Variant voFaceTree
		Get ComFaceTree of hoFace to voFaceTree
		Handle hoFaceTree
		Get Create (RefClass(cComFaceTree)) to hoFaceTree
		Set pvComObject of hoFaceTree to voFaceTree
			Variant voItems
			Get ComItems of hoFaceTree to voItems
			Handle hoItems
			Get Create (RefClass(cComItems)) to hoItems
			Set pvComObject of hoItems to voItems
				Set ComToString of hoItems to "Item <b>1,Item <b>2,Item <b>3"
			Send Destroy to hoItems
			Set ComSelectItem of hoFaceTree to 1
		Send Destroy to hoFaceTree
	Send Destroy to hoFace
End_Procedure

Procedure OnCreate
	Forward Send OnCreate
	Variant voFace
	Get ComFrontFace to voFace
	Handle hoFace
	Get Create (RefClass(cComFace)) to hoFace
	Set pvComObject of hoFace to voFace
		Variant voFaceCalendar
		Get ComCreateCalendar of hoFace to voFaceCalendar
		Handle hoFaceCalendar
		Get Create (RefClass(cComFaceCalendar)) to hoFaceCalendar
		Set pvComObject of hoFaceCalendar to voFaceCalendar
			Set ComAutoSize of hoFaceCalendar to OLEexFitClient
			Set ComValue of hoFaceCalendar to "12/31/1971"
		Send Destroy to hoFaceCalendar
	Send Destroy to hoFace
End_Procedure

Procedure OnCreate
	Forward Send OnCreate
	Variant voFace
	Get ComFrontFace to voFace
	Handle hoFace
	Get Create (RefClass(cComFace)) to hoFace
	Set pvComObject of hoFace to voFace
		Set ComType of hoFace to OLEexFaceCalendar
		Variant voFaceCalendar
		Get ComFaceCalendar of hoFace to voFaceCalendar
		Handle hoFaceCalendar
		Get Create (RefClass(cComFaceCalendar)) to hoFaceCalendar
		Set pvComObject of hoFaceCalendar to voFaceCalendar
			Set ComAutoSize of hoFaceCalendar to OLEexFitClient
			Set ComValue of hoFaceCalendar to "12/31/1971"
		Send Destroy to hoFaceCalendar
	Send Destroy to hoFace
End_Procedure

Procedure OnCreate
	Forward Send OnCreate
	Set ComIdentifyFace to (OLEexIdentifyFaceFrame + OLEexIdentifyFaceName + OLEexIdentifyFaceCaption)
	Variant voFace
	Get ComFrontFace to voFace
	Handle hoFace
	Get Create (RefClass(cComFace)) to hoFace
	Set pvComObject of hoFace to voFace
		Variant voFacePicture
		Get ComCreatePicture of hoFace to voFacePicture
		Handle hoFacePicture
		Get Create (RefClass(cComFacePicture)) to hoFacePicture
		Set pvComObject of hoFacePicture to voFacePicture
			Variant vPicture
			Get ComExecuteTemplate "loadpicture(`c:\exontrol\images\zipdisk.gif`)" to vPicture
			Set ComPicture of hoFacePicture to (vPicture)
			Set ComPictureDisplay of hoFacePicture to OLETile
			Set ComWidth of hoFacePicture to "2 * pwidth"
			Set ComHeight of hoFacePicture to "2 * pheight"
			Set ComTop of hoFacePicture to "122"
			Set ComLeft of hoFacePicture to "46"
		Send Destroy to hoFacePicture
	Send Destroy to hoFace
End_Procedure

Procedure OnCreate
	Forward Send OnCreate
	Set ComIdentifyFace to (OLEexIdentifyFaceFrame + OLEexIdentifyFaceName + OLEexIdentifyFaceCaption)
	Variant voFace
	Get ComFrontFace to voFace
	Handle hoFace
	Get Create (RefClass(cComFace)) to hoFace
	Set pvComObject of hoFace to voFace
		Set ComType of hoFace to OLEexFacePicture
		Variant voFacePicture
		Get ComFacePicture of hoFace to voFacePicture
		Handle hoFacePicture
		Get Create (RefClass(cComFacePicture)) to hoFacePicture
		Set pvComObject of hoFacePicture to voFacePicture
			Variant vPicture
			Get ComExecuteTemplate "loadpicture(`c:\exontrol\images\zipdisk.gif`)" to vPicture
			Set ComPicture of hoFacePicture to (vPicture)
			Set ComPictureDisplay of hoFacePicture to OLETile
			Set ComWidth of hoFacePicture to "2 * pwidth"
			Set ComHeight of hoFacePicture to "2 * pheight"
			Set ComTop of hoFacePicture to "122"
			Set ComLeft of hoFacePicture to "46"
		Send Destroy to hoFacePicture
	Send Destroy to hoFace
End_Procedure

Procedure OnCreate
	Forward Send OnCreate
	Set ComEnsureVisibleFaces to "0"
End_Procedure

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Set ComTexturePicturePath to ""
	Set ComDefaultFaceType to OLEexFaceCalendar
	Set ComTransparentContent to 75
	Variant voFace
	Get ComFrontFace to voFace
	Handle hoFace
	Get Create (RefClass(cComFace)) to hoFace
	Set pvComObject of hoFace to voFace
		Set ComTransparentContent of hoFace to 0
	Send Destroy to hoFace
	Send ComEndUpdate
End_Procedure

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Set ComMargins to "0,0,0,0"
	Variant voFace
	Get ComFrontFace to voFace
	Handle hoFace
	Get Create (RefClass(cComFace)) to hoFace
	Set pvComObject of hoFace to voFace
		Set ComType of hoFace to OLEexFaceCalendar
		Variant voFaceCalendar
		Get ComFaceCalendar of hoFace to voFaceCalendar
		Handle hoFaceCalendar
		Get Create (RefClass(cComFaceCalendar)) to hoFaceCalendar
		Set pvComObject of hoFaceCalendar to voFaceCalendar
			Set ComShowNonMonthDays of hoFaceCalendar to True
			Set ComAutoSize of hoFaceCalendar to OLEexFitClient
		Send Destroy to hoFaceCalendar
	Send Destroy to hoFace
	Send ComEndUpdate
End_Procedure

// Notifies your application that a face changes its type, so you can initialize its content.
Procedure OnComInitFaceContent Variant   llFace
	Forward Send OnComInitFaceContent llFace
	// Face.FaceContent.ShowTodayButton = False
End_Procedure

Procedure OnCreate
	Forward Send OnCreate
	Set ComDefaultFaceType to OLEexFaceCalendar
End_Procedure

Procedure OnCreate
	Forward Send OnCreate
	Set ComOnMouseWheel to OLEexMouseWheelNothing
End_Procedure

// Occurs once a new face became visible, by moving/rotating from a face to another, into the giving direction.
Procedure OnComMove OLERotateEnum   llRotateDir OLEFaceEnum   llFromFace OLEFaceEnum   llToFace
	Forward Send OnComMove llRotateDir llFromFace llToFace
	Variant voFace
	Get ComFrontFace to voFace
	Handle hoFace
	Get Create (RefClass(cComFace)) to hoFace
	Set pvComObject of hoFace to voFace
		Variant voFaceCalendar
		Get ComFaceCalendar of hoFace to voFaceCalendar
		Handle hoFaceCalendar
		Get Create (RefClass(cComFaceCalendar)) to hoFaceCalendar
		Set pvComObject of hoFaceCalendar to voFaceCalendar
			Send ComMove of hoFaceCalendar llRotateDir Nothing
		Send Destroy to hoFaceCalendar
	Send Destroy to hoFace
	Variant voFace1
	Get ComLeftFace to voFace1
	Handle hoFace1
	Get Create (RefClass(cComFace)) to hoFace1
	Set pvComObject of hoFace1 to voFace1
		Variant voFaceCalendar1
		Get ComFaceCalendar of hoFace1 to voFaceCalendar1
		Handle hoFaceCalendar1
		Get Create (RefClass(cComFaceCalendar)) to hoFaceCalendar1
		Set pvComObject of hoFaceCalendar1 to voFaceCalendar1
			Variant v
				Variant voFace2
				Get ComFrontFace to voFace2
				Handle hoFace2
				Get Create (RefClass(cComFace)) to hoFace2
				Set pvComObject of hoFace2 to voFace2
					Variant voFaceCalendar2
					Get ComFaceCalendar of hoFace2 to voFaceCalendar2
					Handle hoFaceCalendar2
					Get Create (RefClass(cComFaceCalendar)) to hoFaceCalendar2
					Set pvComObject of hoFaceCalendar2 to voFaceCalendar2
						Get ComDate of hoFaceCalendar2 to v
					Send Destroy to hoFaceCalendar2
				Send Destroy to hoFace2
			Set ComDate of hoFaceCalendar1 to v
			Send ComPrevMonth of hoFaceCalendar1 Nothing
		Send Destroy to hoFaceCalendar1
	Send Destroy to hoFace1
	Variant voFace3
	Get ComRightFace to voFace3
	Handle hoFace3
	Get Create (RefClass(cComFace)) to hoFace3
	Set pvComObject of hoFace3 to voFace3
		Variant voFaceCalendar3
		Get ComFaceCalendar of hoFace3 to voFaceCalendar3
		Handle hoFaceCalendar3
		Get Create (RefClass(cComFaceCalendar)) to hoFaceCalendar3
		Set pvComObject of hoFaceCalendar3 to voFaceCalendar3
			Variant v1
				Variant voFace4
				Get ComFrontFace to voFace4
				Handle hoFace4
				Get Create (RefClass(cComFace)) to hoFace4
				Set pvComObject of hoFace4 to voFace4
					Variant voFaceCalendar4
					Get ComFaceCalendar of hoFace4 to voFaceCalendar4
					Handle hoFaceCalendar4
					Get Create (RefClass(cComFaceCalendar)) to hoFaceCalendar4
					Set pvComObject of hoFaceCalendar4 to voFaceCalendar4
						Get ComDate of hoFaceCalendar4 to v1
					Send Destroy to hoFaceCalendar4
				Send Destroy to hoFace4
			Set ComDate of hoFaceCalendar3 to v1
			Send ComNextMonth of hoFaceCalendar3 Nothing
		Send Destroy to hoFaceCalendar3
	Send Destroy to hoFace3
End_Procedure

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Set ComTexturePicturePath to ""
	Variant voAppearance
	Get ComVisualAppearance to voAppearance
	Handle hoAppearance
	Get Create (RefClass(cComAppearance)) to hoAppearance
	Set pvComObject of hoAppearance to voAppearance
		Get ComAdd of hoAppearance 1 ("gBFLBCJwBAEHhEJAADhABdQFg6AADACAxRDAMgBQKAAzQFAYaBsHCGAAGMZRZgmFgAQhFcZQSKUOQTDKMIziYBYJhEMQ1DBJQwwXBIZhgGIBIRgUBJCjWGodQLOEgwHIERQjEyUJAmCYhRiCB42TrNIJwSBUPwTGKBXZDQRAApKVIWUAMFBVg7GRYcVxIUgAdDYMyZJyBa4qapaTheEQyDSJNr3DCMUTlBK7IhsKCaLhqZIDUzGVpWbZdMRlFCVJYgOTqDgQMIkUhSE5TVIEew3H7DaymKrKeobFoaZ6AAL3ZBNTR5J6EbTwWRcZpuRJGWDGdhwTocB5MADbZAwOpNLgOc53TjdF4DBwAATzJCQL50KCbfziG67WxVeqQJgiggNpOAwbZjDGHoGC2IZAgAORbFiPxDHoAIsmIewdiGHpHEGTIzm2Nocn0TgSluBpgnEbgcF4PAPnkSQAA+c58AAVwcheiRzF4NIJiofYWgUJAIEIRQBiQYwdAcUZIGUV5QDKCAHECRAhDYGhGgMZAkCgaRiEaHAYEWRpIG2ERFkIQBwm2CxiniOgwgyYpjmoNg3g2YxwkwwYzCiSwyCOaQCD8MxjkibJLDMDJDCoPgyEyMwskkNpNjMaJ1hSYxIkYVoVEACRWFqC4OBOCJgCkShSgiCQiEgQZ8gAHpIAIBB8hoZo5iobIbmaaYqGZWByCCAwnkoAhwlQNQNCkbhXguJYYkqAoVguQpwjsIxIlIJNHksE4kmoOhgSsEokmkShUnCJZLzYOwigiIgYjULYLDmegwiAZ5zjSNwuAsYg8g8IplAMZoRhST1UCMJ5IGIqoiEiIgUgoIpIGqbo9i8JgyBaNQggmUh4hoOBOAOAoRDoLJCFSFQkgsQpQjGH4qEiQJJDITB6CCCQ7G2ShEjsLwLhGIBpBiBIhCwRAQEQIJsEIEJDkuLptjsLphAwRI7kOMQkEoEJFnGABaiyCZ6ESeI/kkAhAg2IRLikYgwDoToTiCEQkgiUxElEM5pBIbIcCYBQhEwTASASGB0E4EZEmEPBIkccZ8HsIJInILB4E2RpvasSwTAQUgIgMH5pVGYg4GuYx8l8NxqDiQoFC4SYSGiFokEyYw4kwFhF8GSQSkQPITCGUp0i0NwllKcoxBcJwRkqEooiaJBLCKSIvCp54aDYPoAAORJyDwSWUhENANAwQgBB6R4xlqcgPDSbQzE+XB3EweBGBGRABigawZE6GcLoHxCAQFICkAIvhOhgACM4OYnBhjQHsDoT4Zxsj0DYJsEwwBhJgMIOsXIcwOC+CCJMRA2BgCFFYJUegiBzA6AaMcDLuAAAdBiMUBQDWyhuC2JYTQiBMAmEQNwaw5xtjzB6MAPAHhDDEHyD4JwUgRiAHEDUTgNggABHEJwAYkBzA2GkDMAIRAQAIBCM8No3ERC4D4B8Q4FxygiBwI4IYbxIjjGyB4c4mQACUXaD8dYhh/CfGqNwNIXhfizCyPsPw7xfjkD4FQRo+R7h9D8K8bI3A+jeGoAIfAnxNjhD3JYLIvxDj2H8KAIYcQ/ivGCP8X4JxGD9AGIgNgUgRCECgIkaAegHiBFmPkQYTx4jsB+OEf4AAPAzBkBwEI1AdCHAqCIFYBQwCoAQIECgHwag4BuAIMA4AbgUBEIgJ4KQIDlAGIcg4HBRkyAOHAdwHBqCIGKBgUYCAVAFCgJwagYQ+AvD0YAKYCgwhGH4F4eYxg3ijFQEEWQ8RqDfEOGgdhUBYA2AMHYdwEARBMAOGkJgpAWiFGAKoGgRhIDQCkCEcAPQDhBGYDkQ4KAABrHaHAKYCwAhgBWKAEAnw5jOGaNoYwKB+DmA0JwFYBxhAsCMAgOoIgYjGBwMUCYAgyBKAeDEdAPBqggGsBoYYVAihICiOgHoRxRCRl6PQHgLhAB3A+CMBYmAuhgHZRgaAzhbgHDUJECQYgoBIAYFERgMQMjKEGBUUQtAqgKBiEoFAWREDjA4CsBktw4B/AUMEdARwEgBAMFAHYhhTDnFMAMdADwwjwB2IweIngZhUEUNECwSwKB" + ;
"NFePEeILApCyG4B0QQOAkAIGCHIFwxRdCRA+LMRwOwFDQH8B+B4aQ3huGYCIQYoA7AMHALgGwBwwDwA0EwEAggMhDBgGACAAgAA+BMUgHoqABCRCSKMEgRRECxAcLIIw+7RhoGCNMBwMQUgrAINATYEh5hZCQI8PQAQHDHBIM4DM9wwiMACIkCA6BwDACOGMFQEQHh6BYKQLQ/B/ARFEDgIoJRojAFqBUCQLgpDjF6J0U4MQnT5BGJADQ8w1BxEeOVTgRx6hBE2EMOAbhGihCyC0E42A+AWAEMQK4DhkCzCYEcNQ1RQhqAcKAR44RnA6AODgWoFhRDMCGAgMg1QZgDDQG4BoIRMAzEMBAZwGgBgVDIAwEIqAagGCAPIDwQxMCECYLUFgVhdChHyF0dQghRgdDIDAAgmhBAGAkAIPATgRBAoqB4mYYAWAQBmLAiQmgrj7AHXgFABhYD2B8MULAVAqAABYxMAACAfDHCwJsC4Xw2DtE0DwCwZhlCeA2CcMArBkgBICA") to Nothing
		Get ComAdd of hoAppearance 2 "CP:1 -6 0 6 0" to Nothing
	Send Destroy to hoAppearance
	Set ComBackground OLEexDateHeader to |CI$2000000
	Set ComBackground OLEexDateHeaderForeColor to (RGB(255,255,255))
	Set ComBackground OLEexWeeksHeader to (RGB(240,240,240))
	Set ComBackground OLEexDaysHeader to (RGB(240,240,240))
	Set ComBackground OLEexDateTodayUp to |CI$2000000
	Set ComBackground OLEexDateTodayForeColor to (RGB(255,255,255))
	Set ComAllowRotate to (OLEexRotateRight + OLEexRotateLeft)
	Set ComEnsureVisibleFaceOnDblClick to False
	Set ComDefaultFaceType to OLEexFaceCalendar
	Variant voFace5
	Get ComFrontFace to voFace5
	Handle hoFace5
	Get Create (RefClass(cComFace)) to hoFace5
	Set pvComObject of hoFace5 to voFace5
		Variant voFaceCalendar5
		Get ComFaceCalendar of hoFace5 to voFaceCalendar5
		Handle hoFaceCalendar5
		Get Create (RefClass(cComFaceCalendar)) to hoFaceCalendar5
		Set pvComObject of hoFaceCalendar5 to voFaceCalendar5
			Set ComDate of hoFaceCalendar5 to "1/1/2016"
		Send Destroy to hoFaceCalendar5
	Send Destroy to hoFace5
	Variant voFace6
	Get ComTopFace to voFace6
	Handle hoFace6
	Get Create (RefClass(cComFace)) to hoFace6
	Set pvComObject of hoFace6 to voFace6
		Set ComType of hoFace6 to OLEexFaceNone
	Send Destroy to hoFace6
	Variant voFace7
	Get ComDownFace to voFace7
	Handle hoFace7
	Get Create (RefClass(cComFace)) to hoFace7
	Set pvComObject of hoFace7 to voFace7
		Set ComType of hoFace7 to OLEexFaceNone
	Send Destroy to hoFace7
	Set ComAlwaysEnsureVisibleFace to (OLEexAlwaysVisibleFrontFace + OLEexFitToEnsureFace)
	Send ComEndUpdate
End_Procedure

// Notifies that the user browses for a new date into a face of calendar type.
Procedure OnComFaceCalendarDateChanged Variant   llCalendar
	Forward Send OnComFaceCalendarDateChanged llCalendar
	Variant v
	Variant voFace
	Get ComFrontFace to voFace
	Handle hoFace
	Get Create (RefClass(cComFace)) to hoFace
	Set pvComObject of hoFace to voFace
		Variant voFaceCalendar
		Get ComFaceCalendar of hoFace to voFaceCalendar
		Handle hoFaceCalendar
		Get Create (RefClass(cComFaceCalendar)) to hoFaceCalendar
		Set pvComObject of hoFaceCalendar to voFaceCalendar
			Get ComDate of hoFaceCalendar to v
		Send Destroy to hoFaceCalendar
	Send Destroy to hoFace
	Variant currentDate
	Move v to currentDate
	Variant voFace1
	Get ComLeftFace to voFace1
	Handle hoFace1
	Get Create (RefClass(cComFace)) to hoFace1
	Set pvComObject of hoFace1 to voFace1
		Variant voFaceCalendar1
		Get ComFaceCalendar of hoFace1 to voFaceCalendar1
		Handle hoFaceCalendar1
		Get Create (RefClass(cComFaceCalendar)) to hoFaceCalendar1
		Set pvComObject of hoFaceCalendar1 to voFaceCalendar1
			Set ComDate of hoFaceCalendar1 to currentDate
			Send ComPrevMonth of hoFaceCalendar1 Nothing
		Send Destroy to hoFaceCalendar1
	Send Destroy to hoFace1
	Variant voFace2
	Get ComRightFace to voFace2
	Handle hoFace2
	Get Create (RefClass(cComFace)) to hoFace2
	Set pvComObject of hoFace2 to voFace2
		Variant voFaceCalendar2
		Get ComFaceCalendar of hoFace2 to voFaceCalendar2
		Handle hoFaceCalendar2
		Get Create (RefClass(cComFaceCalendar)) to hoFaceCalendar2
		Set pvComObject of hoFaceCalendar2 to voFaceCalendar2
			Set ComDate of hoFaceCalendar2 to currentDate
			Send ComNextMonth of hoFaceCalendar2 Nothing
		Send Destroy to hoFaceCalendar2
	Send Destroy to hoFace2
	Variant voFace3
	Get ComTopFace to voFace3
	Handle hoFace3
	Get Create (RefClass(cComFace)) to hoFace3
	Set pvComObject of hoFace3 to voFace3
		Variant voFaceCalendar3
		Get ComFaceCalendar of hoFace3 to voFaceCalendar3
		Handle hoFaceCalendar3
		Get Create (RefClass(cComFaceCalendar)) to hoFaceCalendar3
		Set pvComObject of hoFaceCalendar3 to voFaceCalendar3
			Set ComDate of hoFaceCalendar3 to currentDate
			Send ComPrevYear of hoFaceCalendar3 Nothing
		Send Destroy to hoFaceCalendar3
	Send Destroy to hoFace3
	Variant voFace4
	Get ComDownFace to voFace4
	Handle hoFace4
	Get Create (RefClass(cComFace)) to hoFace4
	Set pvComObject of hoFace4 to voFace4
		Variant voFaceCalendar4
		Get ComFaceCalendar of hoFace4 to voFaceCalendar4
		Handle hoFaceCalendar4
		Get Create (RefClass(cComFaceCalendar)) to hoFaceCalendar4
		Set pvComObject of hoFaceCalendar4 to voFaceCalendar4
			Set ComDate of hoFaceCalendar4 to currentDate
			Send ComNextYear of hoFaceCalendar4 Nothing
		Send Destroy to hoFaceCalendar4
	Send Destroy to hoFace4
End_Procedure

// Notifies your application that a face changes its type to exFaceCalendar.
Procedure OnComInitFaceCalendar Variant   llCalendar
	Forward Send OnComInitFaceCalendar llCalendar
	Move to Calendar
End_Procedure

// Occurs once a new face became visible, by moving/rotating from a face to another, into the giving direction.
Procedure OnComMove OLERotateEnum   llRotateDir OLEFaceEnum   llFromFace OLEFaceEnum   llToFace
	Forward Send OnComMove llRotateDir llFromFace llToFace
	Variant voFace5
	Get ComFrontFace to voFace5
	Handle hoFace5
	Get Create (RefClass(cComFace)) to hoFace5
	Set pvComObject of hoFace5 to voFace5
		Variant voFaceCalendar5
		Get ComFaceCalendar of hoFace5 to voFaceCalendar5
		Handle hoFaceCalendar5
		Get Create (RefClass(cComFaceCalendar)) to hoFaceCalendar5
		Set pvComObject of hoFaceCalendar5 to voFaceCalendar5
			Send ComMove of hoFaceCalendar5 llRotateDir Nothing
		Send Destroy to hoFaceCalendar5
	Send Destroy to hoFace5
End_Procedure

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Variant voAppearance
	Get ComVisualAppearance to voAppearance
	Handle hoAppearance
	Get Create (RefClass(cComAppearance)) to hoAppearance
	Set pvComObject of hoAppearance to voAppearance
		Get ComAdd of hoAppearance 1 "gBFLBCJwBAEHhEJAADhABXgCg6AADACAxRDAMgBQKAAzQFAYaBsHCGAAGMZRZgmFgAQhFcZQSKUOQTDKMIziYBYfgkMIgSbJUgDIAkRRdDSOYDmGQYDiCIoRShOMIjHLUXxtDaIZZmWCQCglf5HABRb7xPLoARTAaeJKoWboJAiGwLQjQUyABSdEyRJSLYhGIZRFqKZIRDSMFiwTZNVypAaIYqqaA6qzfJymabAAZJEradozTLIE7xVLEVYNKCmZCwMAAcgmEQgSTAda2BYELTzECoYDGCrcKpWCaNQLWEB5BQeJSNL6kIqsazgAqPLJtWhaVwxXIEI5AAC5QA0S7pOxeO6JbRGdZbNrlbz1PTMaazTgYDzmWqiYxxMraXxSlmMprGsIpVl2LRnD0A5bnSN49mAARAlIYw6B0ThGFGDIBG0QghBMfZRiGNAkFECZoG6YQBgiOgCmuRRSg6GAElWAJMkgFgGgGYIIAyVQ7GCRhUAAOQhAMBgSDWIRDG4Fg3CGCBmBmBYNjgUJWDIIgIECZBCEsKIUkqCZhiiJgqgaYRjB4LguiMBAkiqDLenYrBjgiZg6gGIwyioMoNCAWJqEKEJjkiTg/CqIxZA4SoNmQWJ5AODxMlkRJehSZRJFYVoVmUEw2D2EZlhkXhehfURuE+DJllkfhmhUJgZBoYwqiWEx+G6G5nAmRhyhoZJgAIUIUGcKZmHqHQlkmYh6h+Zp5nIawzigQ4CgaIZogoJoKiEDJpgodoMmiSgqhKJNxDoPQzmmA4GhqJppkodoeiYDJ6FpaQpmqFomigKgiiqJIpiqShuiiGoonqKoZisapaj4dYl3WCo6i6a5KnaPotiQeoCj6MJsEsAhrDQLIDg6SoymySw2k6MgNAqJpQjOLRLFaUI0iyGxWlq/p6kIPY0m2Oxul2LZjDMRpmgiLoLiaaoIi4YxGinoY7kaauhnuGJlj2b4Lmaeo+m8Sx6mWOZhAubwCj2bpLhqKYJkyKTnECThYgoVJCCiYpPBIL5xEMLwWjsTQsGcGpGi6XBYkuRQLvcIhCE8DIWDCSZLiKdwqC+MpMjcLZKguXIcjiTJyFOQYnD+TYMmSLZOkmHJ3D6T50AybItiGYJji2MwABAECAg=" to Nothing
	Send Destroy to hoAppearance
	Set ComBackground OLEexDateHeader to |CI$1000000
	Set ComBackground OLEexWeeksHeader to (RGB(250,250,250))
	Set ComBackground OLEexDaysHeader to (RGB(250,250,250))
	Set ComBackground OLEexDateTodayUp to |CI$2000000
	Set ComBackground OLEexDateTodayForeColor to (RGB(255,255,255))
	Set ComTexturePicturePath to ""
	Set ComDefaultFaceType to OLEexFaceCalendar
	Set ComAlwaysEnsureVisibleFace to (OLEexAlwaysVisibleFrontFace + OLEexFitToEnsureFace)
	Variant voFace6
	Get ComFrontFace to voFace6
	Handle hoFace6
	Get Create (RefClass(cComFace)) to hoFace6
	Set pvComObject of hoFace6 to voFace6
		Variant voFaceCalendar6
		Get ComFaceCalendar of hoFace6 to voFaceCalendar6
		Handle hoFaceCalendar6
		Get Create (RefClass(cComFaceCalendar)) to hoFaceCalendar6
		Set pvComObject of hoFaceCalendar6 to voFaceCalendar6
			Set ComDate of hoFaceCalendar6 to "1/1/2016"
		Send Destroy to hoFaceCalendar6
	Send Destroy to hoFace6
	Send ComEndUpdate
End_Procedure

Procedure OnCreate
	Forward Send OnCreate
	Send ComEnsureVisibleFace OLEexDownFace False
	Set ComAlwaysEnsureVisibleFace to (OLEexAlwaysVisibleFrontFace + OLEexFitToEnsureFace)
End_Procedure

Procedure OnCreate
	Forward Send OnCreate
	Variant voFace
	Get ComFrontFace to voFace
	Handle hoFace
	Get Create (RefClass(cComFace)) to hoFace
	Set pvComObject of hoFace to voFace
		Set ComType of hoFace to OLEexFaceCalendar
		Variant voFaceCalendar
		Get ComFaceCalendar of hoFace to voFaceCalendar
		Handle hoFaceCalendar
		Get Create (RefClass(cComFaceCalendar)) to hoFaceCalendar
		Set pvComObject of hoFaceCalendar to voFaceCalendar
			Set ComDate of hoFaceCalendar to "1/1/2001"
			Set ComSelDate of hoFaceCalendar to (ComDate(hoFaceCalendar))
			Set ComMinDate of hoFaceCalendar to "1/1/2001"
			Set ComMaxDate of hoFaceCalendar to "1/31/2001"
			Set ComFirstWeekDay of hoFaceCalendar to OLEexMonday
			Set ComShowWeeks of hoFaceCalendar to False
			Set ComShowNonMonthDays of hoFaceCalendar to False
			Set ComShowTodayButton of hoFaceCalendar to False
			Set ComMaxMonthX of hoFaceCalendar to (ComMinMonthX(hoFaceCalendar))
			Set ComMaxMonthY of hoFaceCalendar to (ComMinMonthY(hoFaceCalendar))
		Send Destroy to hoFaceCalendar
	Send Destroy to hoFace
End_Procedure

Procedure OnCreate
	Forward Send OnCreate
	Variant voFace
	Get ComFrontFace to voFace
	Handle hoFace
	Get Create (RefClass(cComFace)) to hoFace
	Set pvComObject of hoFace to voFace
		Set ComType of hoFace to OLEexFaceCalendar
		Variant voFaceCalendar
		Get ComFaceCalendar of hoFace to voFaceCalendar
		Handle hoFaceCalendar
		Get Create (RefClass(cComFaceCalendar)) to hoFaceCalendar
		Set pvComObject of hoFaceCalendar to voFaceCalendar
			Set ComShowNonMonthDays of hoFaceCalendar to False
		Send Destroy to hoFaceCalendar
	Send Destroy to hoFace
End_Procedure

Procedure OnCreate
	Forward Send OnCreate
	Set ComEnsureVisibleFaceOnDblClick to False
End_Procedure

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Set ComHTMLPicture "logo" to "c:\exontrol\images\zipdisk.gif"
	Variant voFace
	Get ComFrontFace to voFace
	Handle hoFace
	Get Create (RefClass(cComFace)) to hoFace
	Set pvComObject of hoFace to voFace
		Set ComType of hoFace to OLEexFaceCalendar
		Variant voFaceCalendar
		Get ComFaceCalendar of hoFace to voFaceCalendar
		Handle hoFaceCalendar
		Get Create (RefClass(cComFaceCalendar)) to hoFaceCalendar
		Set pvComObject of hoFaceCalendar to voFaceCalendar
			Set ComShowTodayButton of hoFaceCalendar to False
		Send Destroy to hoFaceCalendar
		Set ComExtraTitle of hoFace "extra" OLEexTitleFaceCaption to "<img>logo</img>"
		Set ComExtraTitle of hoFace "extra" OLEexTitleFaceAnchor to 0
		Set ComExtraTitle of hoFace "extra" OLEexTitleFaceHTMLRotate to 0
		Set ComExtraTitle of hoFace "extra" OLEexTitleFaceHTMLRotate to 0
		Set ComExtraTitle of hoFace "extra" OLEexTitleFaceLeft to "(width-twidth)/2"
		Set ComExtraTitle of hoFace "extra" OLEexTitleFaceTop to "(height-theight)/2"
		Set ComExtraTitle of hoFace "extra" OLEexTitleFaceWidth to "twidth"
		Set ComExtraTitle of hoFace "extra" OLEexTitleFaceHeight to "theight"
		Set ComExtraTitle of hoFace "extra" OLEexTitleFaceVisible to 1
	Send Destroy to hoFace
	Variant voFace1
	Get ComFrontFace to voFace1
	Handle hoFace1
	Get Create (RefClass(cComFace)) to hoFace1
	Set pvComObject of hoFace1 to voFace1
		Variant voFaceCalendar1
		Get ComFaceCalendar of hoFace1 to voFaceCalendar1
		Handle hoFaceCalendar1
		Get Create (RefClass(cComFaceCalendar)) to hoFaceCalendar1
		Set pvComObject of hoFaceCalendar1 to voFaceCalendar1
			Set ComForeColor of hoFaceCalendar1 to (RGB(255,0,0))
		Send Destroy to hoFaceCalendar1
	Send Destroy to hoFace1
	Send ComEndUpdate
End_Procedure

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Set ComHTMLPicture "logo" to "c:\exontrol\images\zipdisk.gif"
	Variant voFace
	Get ComFrontFace to voFace
	Handle hoFace
	Get Create (RefClass(cComFace)) to hoFace
	Set pvComObject of hoFace to voFace
		Set ComType of hoFace to OLEexFaceCalendar
		Variant voFaceCalendar
		Get ComFaceCalendar of hoFace to voFaceCalendar
		Handle hoFaceCalendar
		Get Create (RefClass(cComFaceCalendar)) to hoFaceCalendar
		Set pvComObject of hoFaceCalendar to voFaceCalendar
			Set ComShowTodayButton of hoFaceCalendar to False
		Send Destroy to hoFaceCalendar
		Set ComExtraTitle of hoFace "extra" OLEexTitleFaceCaption to "<r><img>logo</img>"
		Set ComExtraTitle of hoFace "extra" OLEexTitleFaceAnchor to 2
		Set ComExtraTitle of hoFace "extra" OLEexTitleFaceHTMLRotate to 0
	Send Destroy to hoFace
	Send ComEndUpdate
End_Procedure

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Variant voFace
	Get ComFrontFace to voFace
	Handle hoFace
	Get Create (RefClass(cComFace)) to hoFace
	Set pvComObject of hoFace to voFace
		Set ComType of hoFace to OLEexFaceCalendar
		Variant voFaceCalendar
		Get ComFaceCalendar of hoFace to voFaceCalendar
		Handle hoFaceCalendar
		Get Create (RefClass(cComFaceCalendar)) to hoFaceCalendar
		Set pvComObject of hoFaceCalendar to voFaceCalendar
			Set ComShowTodayButton of hoFaceCalendar to False
		Send Destroy to hoFaceCalendar
		Set ComTitle of hoFace OLEexTitleFaceCaption to "<font ;18><c><fgcolor=0000FF>This is the title"
		Set ComExtraTitle of hoFace "extra" OLEexTitleFaceCaption to "<font ;18><c><fgcolor=FF0000>This is the extra title"
		Set ComExtraTitle of hoFace "extra" OLEexTitleFaceAnchor to 2
	Send Destroy to hoFace
	Send ComEndUpdate
End_Procedure

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Variant voFace
	Get ComFrontFace to voFace
	Handle hoFace
	Get Create (RefClass(cComFace)) to hoFace
	Set pvComObject of hoFace to voFace
		Set ComTitle of hoFace OLEexTitleFaceCaption to "<font ;18><c>This is the title"
		Set ComType of hoFace to OLEexFaceCalendar
		Variant voFaceCalendar
		Get ComFaceCalendar of hoFace to voFaceCalendar
		Handle hoFaceCalendar
		Get Create (RefClass(cComFaceCalendar)) to hoFaceCalendar
		Set pvComObject of hoFaceCalendar to voFaceCalendar
			Set ComShowTodayButton of hoFaceCalendar to False
		Send Destroy to hoFaceCalendar
		Set ComTitle of hoFace OLEexTitleFaceAnchor to 4
	Send Destroy to hoFace
	Send ComEndUpdate
End_Procedure

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Variant voFace
	Get ComFrontFace to voFace
	Handle hoFace
	Get Create (RefClass(cComFace)) to hoFace
	Set pvComObject of hoFace to voFace
		Set ComTitle of hoFace OLEexTitleFaceCaption to "<font ;18><c>This is the title"
		Set ComType of hoFace to OLEexFaceCalendar
		Variant voFaceCalendar
		Get ComFaceCalendar of hoFace to voFaceCalendar
		Handle hoFaceCalendar
		Get Create (RefClass(cComFaceCalendar)) to hoFaceCalendar
		Set pvComObject of hoFaceCalendar to voFaceCalendar
			Set ComShowTodayButton of hoFaceCalendar to False
		Send Destroy to hoFaceCalendar
		Set ComTitle of hoFace OLEexTitleFaceAnchor to 2
		Set ComTitle of hoFace OLEexTitleFaceHTMLRotate to 0
	Send Destroy to hoFace
	Send ComEndUpdate
End_Procedure

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Variant voFace
	Get ComFrontFace to voFace
	Handle hoFace
	Get Create (RefClass(cComFace)) to hoFace
	Set pvComObject of hoFace to voFace
		Set ComTitle of hoFace OLEexTitleFaceCaption to "<font ;18><c><bgcolor=FFFFFF>This is the title"
		Set ComType of hoFace to OLEexFaceCalendar
		Set ComTitle of hoFace OLEexTitleFaceVisible to -1
		Set ComTitle of hoFace OLEexTitleFaceTop to "(height-theight)/2"
	Send Destroy to hoFace
	Send ComEndUpdate
End_Procedure

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Variant voFace
	Get ComFrontFace to voFace
	Handle hoFace
	Get Create (RefClass(cComFace)) to hoFace
	Set pvComObject of hoFace to voFace
		Set ComTitle of hoFace OLEexTitleFaceCaption to "<font ;18><c>This is the title"
		Set ComType of hoFace to OLEexFaceCalendar
	Send Destroy to hoFace
	Send ComEndUpdate
End_Procedure

Procedure OnCreate
	Forward Send OnCreate
	Set ComIdentifyFace to (OLEexIdentifyFaceFrame + OLEexIdentifyFaceName + OLEexIdentifyFaceCaption)
	Variant voFace
	Get ComFrontFace to voFace
	Handle hoFace
	Get Create (RefClass(cComFace)) to hoFace
	Set pvComObject of hoFace to voFace
		Set ComType of hoFace to OLEexFacePicture
		Variant voFacePicture
		Get ComFacePicture of hoFace to voFacePicture
		Handle hoFacePicture
		Get Create (RefClass(cComFacePicture)) to hoFacePicture
		Set pvComObject of hoFacePicture to voFacePicture
			Variant vPicture
			Get ComExecuteTemplate "loadpicture(`c:\exontrol\images\zipdisk.gif`)" to vPicture
			Set ComPicture of hoFacePicture to (vPicture)
			Set ComPictureDisplay of hoFacePicture to OLETile
			Set ComWidth of hoFacePicture to "2 * pwidth"
			Set ComHeight of hoFacePicture to "2 * pheight"
			Set ComTop of hoFacePicture to "122"
			Set ComLeft of hoFacePicture to "46"
		Send Destroy to hoFacePicture
	Send Destroy to hoFace
End_Procedure

Procedure OnCreate
	Forward Send OnCreate
	Set ComIdentifyFace to (OLEexIdentifyFaceFrame + OLEexIdentifyFaceName + OLEexIdentifyFaceCaption)
	Variant voFace
	Get ComFrontFace to voFace
	Handle hoFace
	Get Create (RefClass(cComFace)) to hoFace
	Set pvComObject of hoFace to voFace
		Set ComType of hoFace to OLEexFacePicture
		Variant voFacePicture
		Get ComFacePicture of hoFace to voFacePicture
		Handle hoFacePicture
		Get Create (RefClass(cComFacePicture)) to hoFacePicture
		Set pvComObject of hoFacePicture to voFacePicture
			Variant vPicture
			Get ComExecuteTemplate "loadpicture(`c:\exontrol\images\zipdisk.gif`)" to vPicture
			Set ComPicture of hoFacePicture to (vPicture)
			Set ComPictureDisplay of hoFacePicture to OLELowerRight
			Set ComWidth of hoFacePicture to "width"
			Set ComHeight of hoFacePicture to "height"
			Set ComTop of hoFacePicture to "0"
			Set ComLeft of hoFacePicture to "0"
		Send Destroy to hoFacePicture
	Send Destroy to hoFace
End_Procedure

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Set ComTexturePicturePath to ""
	Variant voFace
	Get ComFace OLEexFrontFace to voFace
	Handle hoFace
	Get Create (RefClass(cComFace)) to hoFace
	Set pvComObject of hoFace to voFace
		Variant vPicture
		Get ComExecuteTemplate "loadpicture(`c:\exontrol\images\zipdisk.gif`)" to vPicture
		Set ComPicture of hoFace to (vPicture)
	Send Destroy to hoFace
	Variant voFace1
	Get ComFace OLEexBottomFace to voFace1
	Handle hoFace1
	Get Create (RefClass(cComFace)) to hoFace1
	Set pvComObject of hoFace1 to voFace1
		Variant vPicture1
		Get ComExecuteTemplate "loadpicture(`c:\exontrol\images\auction.gif`)" to vPicture1
		Set ComPicture of hoFace1 to (vPicture1)
	Send Destroy to hoFace1
	Variant voFace2
	Get ComFace OLEexRightFace to voFace2
	Handle hoFace2
	Get Create (RefClass(cComFace)) to hoFace2
	Set pvComObject of hoFace2 to voFace2
		Variant vPicture2
		Get ComExecuteTemplate "loadpicture(`c:\exontrol\images\colorize.gif`)" to vPicture2
		Set ComPicture of hoFace2 to (vPicture2)
	Send Destroy to hoFace2
	Variant voFace3
	Get ComFace OLEexLeftFace to voFace3
	Handle hoFace3
	Get Create (RefClass(cComFace)) to hoFace3
	Set pvComObject of hoFace3 to voFace3
		Variant vPicture3
		Get ComExecuteTemplate "loadpicture(`c:\exontrol\images\colorize.gif`)" to vPicture3
		Set ComPicture of hoFace3 to (vPicture3)
	Send Destroy to hoFace3
	Variant voFace4
	Get ComFace OLEexTopFace to voFace4
	Handle hoFace4
	Get Create (RefClass(cComFace)) to hoFace4
	Set pvComObject of hoFace4 to voFace4
		Variant vPicture4
		Get ComExecuteTemplate "loadpicture(`c:\exontrol\images\auction.gif`)" to vPicture4
		Set ComPicture of hoFace4 to (vPicture4)
	Send Destroy to hoFace4
	Variant voFace5
	Get ComFace OLEexDownFace to voFace5
	Handle hoFace5
	Get Create (RefClass(cComFace)) to hoFace5
	Set pvComObject of hoFace5 to voFace5
		Variant vPicture5
		Get ComExecuteTemplate "loadpicture(`c:\exontrol\images\zipdisk.gif`)" to vPicture5
		Set ComPicture of hoFace5 to (vPicture5)
	Send Destroy to hoFace5
	Set ComAlwaysEnsureVisibleFace to OLEexDisableEnsureVisibleFace
	Send ComEndUpdate
End_Procedure

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Set ComTransparent to 80
	Set ComTexturePicturePath to "C:\Program Files\Exontrol\ExTexture\Sample\Texture\VW"
	Set ComAlwaysEnsureVisibleFace to OLEexDisableEnsureVisibleFace
	Set ComIdentifyFace to OLEexIdentifyFaceFrame
	Variant voFace
	Get ComTopFace to voFace
	Handle hoFace
	Get Create (RefClass(cComFace)) to hoFace
	Set pvComObject of hoFace to voFace
		Set ComType of hoFace to OLEexFaceCalendar
		Variant voFaceCalendar
		Get ComFaceCalendar of hoFace to voFaceCalendar
		Handle hoFaceCalendar
		Get Create (RefClass(cComFaceCalendar)) to hoFaceCalendar
		Set pvComObject of hoFaceCalendar to voFaceCalendar
			Set ComDate of hoFaceCalendar to "2/1/2016"
			Set ComMaxMonthX of hoFaceCalendar to 1
			Set ComMaxMonthY of hoFaceCalendar to 1
		Send Destroy to hoFaceCalendar
	Send Destroy to hoFace
	Variant voFace1
	Get ComLeftFace to voFace1
	Handle hoFace1
	Get Create (RefClass(cComFace)) to hoFace1
	Set pvComObject of hoFace1 to voFace1
		Set ComType of hoFace1 to OLEexFaceCalendar
		Variant voFaceCalendar1
		Get ComFaceCalendar of hoFace1 to voFaceCalendar1
		Handle hoFaceCalendar1
		Get Create (RefClass(cComFaceCalendar)) to hoFaceCalendar1
		Set pvComObject of hoFaceCalendar1 to voFaceCalendar1
			Set ComDate of hoFaceCalendar1 to "3/1/2016"
			Set ComMaxMonthX of hoFaceCalendar1 to 1
			Set ComMaxMonthY of hoFaceCalendar1 to 1
		Send Destroy to hoFaceCalendar1
	Send Destroy to hoFace1
	Variant voFace2
	Get ComFrontFace to voFace2
	Handle hoFace2
	Get Create (RefClass(cComFace)) to hoFace2
	Set pvComObject of hoFace2 to voFace2
		Set ComType of hoFace2 to OLEexFaceCalendar
		Variant voFaceCalendar2
		Get ComFaceCalendar of hoFace2 to voFaceCalendar2
		Handle hoFaceCalendar2
		Get Create (RefClass(cComFaceCalendar)) to hoFaceCalendar2
		Set pvComObject of hoFaceCalendar2 to voFaceCalendar2
			Set ComDate of hoFaceCalendar2 to "4/1/2016"
			Set ComMaxMonthX of hoFaceCalendar2 to 1
			Set ComMaxMonthY of hoFaceCalendar2 to 1
		Send Destroy to hoFaceCalendar2
	Send Destroy to hoFace2
	Variant voFace3
	Get ComRightFace to voFace3
	Handle hoFace3
	Get Create (RefClass(cComFace)) to hoFace3
	Set pvComObject of hoFace3 to voFace3
		Set ComType of hoFace3 to OLEexFaceCalendar
		Variant voFaceCalendar3
		Get ComFaceCalendar of hoFace3 to voFaceCalendar3
		Handle hoFaceCalendar3
		Get Create (RefClass(cComFaceCalendar)) to hoFaceCalendar3
		Set pvComObject of hoFaceCalendar3 to voFaceCalendar3
			Set ComDate of hoFaceCalendar3 to "5/1/2016"
			Set ComMaxMonthX of hoFaceCalendar3 to 1
			Set ComMaxMonthY of hoFaceCalendar3 to 1
		Send Destroy to hoFaceCalendar3
	Send Destroy to hoFace3
	Set ComShowAs to OLEexFishEye
	Set ComAlwaysEnsureVisibleFace to OLEexDisableEnsureVisibleFace
	Set ComIdentifyFace to OLEexIdentifyFaceFrame
	Send ComEndUpdate
End_Procedure

Procedure OnCreate
	Forward Send OnCreate
	Set ComTexturePicturePath to "C:\Program Files\Exontrol\ExTexture\Sample\Texture\VW"
End_Procedure

Procedure OnCreate
	Forward Send OnCreate
	Set ComTexturePicturePath to ""
	Set ComIdentifyFace to (OLEexIdentifyFaceFrame + OLEexIdentifyFaceName + OLEexIdentifyFaceCaption)
	Set ComIdentifyFaceCaption to "<sha ;;0><fgcolor=000000>Face <%index%></font> <%name%>"
End_Procedure

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Set ComShowAs to OLEexFishEye
	Set ComInternals to "zoommin=1;zoomdefault=1;zoommax=1;zoomdivsmall=256;zoomdivlarge=48;fisheyepersp=4"
	Set ComIdentifyFace to OLEexIdentifyFaceFrame
	Variant voFace
	Get ComTopFace to voFace
	Handle hoFace
	Get Create (RefClass(cComFace)) to hoFace
	Set pvComObject of hoFace to voFace
		Set ComType of hoFace to OLEexFaceCalendar
	Send Destroy to hoFace
	Variant voFace1
	Get ComLeftFace to voFace1
	Handle hoFace1
	Get Create (RefClass(cComFace)) to hoFace1
	Set pvComObject of hoFace1 to voFace1
		Set ComType of hoFace1 to OLEexFaceCalendar
	Send Destroy to hoFace1
	Variant voFace2
	Get ComFrontFace to voFace2
	Handle hoFace2
	Get Create (RefClass(cComFace)) to hoFace2
	Set pvComObject of hoFace2 to voFace2
		Set ComType of hoFace2 to OLEexFaceCalendar
	Send Destroy to hoFace2
	Variant voFace3
	Get ComRightFace to voFace3
	Handle hoFace3
	Get Create (RefClass(cComFace)) to hoFace3
	Set pvComObject of hoFace3 to voFace3
		Set ComType of hoFace3 to OLEexFaceCalendar
	Send Destroy to hoFace3
	Send ComEndUpdate
End_Procedure

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Set ComShowAs to OLEexOrthographic
	Set ComAlwaysEnsureVisibleFace to OLEexDisableEnsureVisibleFace
	Set ComIdentifyFace to OLEexIdentifyFaceFrame
	Variant voFace
	Get ComTopFace to voFace
	Handle hoFace
	Get Create (RefClass(cComFace)) to hoFace
	Set pvComObject of hoFace to voFace
		Set ComType of hoFace to OLEexFaceCalendar
	Send Destroy to hoFace
	Variant voFace1
	Get ComLeftFace to voFace1
	Handle hoFace1
	Get Create (RefClass(cComFace)) to hoFace1
	Set pvComObject of hoFace1 to voFace1
		Set ComType of hoFace1 to OLEexFaceCalendar
	Send Destroy to hoFace1
	Variant voFace2
	Get ComFrontFace to voFace2
	Handle hoFace2
	Get Create (RefClass(cComFace)) to hoFace2
	Set pvComObject of hoFace2 to voFace2
		Set ComType of hoFace2 to OLEexFaceCalendar
	Send Destroy to hoFace2
	Variant voFace3
	Get ComRightFace to voFace3
	Handle hoFace3
	Get Create (RefClass(cComFace)) to hoFace3
	Set pvComObject of hoFace3 to voFace3
		Set ComType of hoFace3 to OLEexFaceCalendar
	Send Destroy to hoFace3
	Set ComRotX to 0.748933
	Set ComRotY to 0.617099
	Set ComZoom to 1
	Send ComEndUpdate
End_Procedure

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Set ComShowAs to OLEexFishEye
	Set ComAlwaysEnsureVisibleFace to OLEexDisableEnsureVisibleFace
	Set ComIdentifyFace to OLEexIdentifyFaceFrame
	Variant voFace
	Get ComTopFace to voFace
	Handle hoFace
	Get Create (RefClass(cComFace)) to hoFace
	Set pvComObject of hoFace to voFace
		Set ComType of hoFace to OLEexFaceCalendar
	Send Destroy to hoFace
	Variant voFace1
	Get ComLeftFace to voFace1
	Handle hoFace1
	Get Create (RefClass(cComFace)) to hoFace1
	Set pvComObject of hoFace1 to voFace1
		Set ComType of hoFace1 to OLEexFaceCalendar
	Send Destroy to hoFace1
	Variant voFace2
	Get ComFrontFace to voFace2
	Handle hoFace2
	Get Create (RefClass(cComFace)) to hoFace2
	Set pvComObject of hoFace2 to voFace2
		Set ComType of hoFace2 to OLEexFaceCalendar
	Send Destroy to hoFace2
	Variant voFace3
	Get ComRightFace to voFace3
	Handle hoFace3
	Get Create (RefClass(cComFace)) to hoFace3
	Set pvComObject of hoFace3 to voFace3
		Set ComType of hoFace3 to OLEexFaceCalendar
	Send Destroy to hoFace3
	Set ComRotX to 0
	Set ComRotY to 0.8
	Set ComZoom to 1
	Send ComEndUpdate
End_Procedure

Procedure OnCreate
	Forward Send OnCreate
	Set ComIdentifyFace to (OLEexIdentifyFaceFrame + OLEexIdentifyFaceName + OLEexIdentifyFaceCaption)
	Set ComRotX to 0.25
	Set ComRotY to 0.75
	Set ComZoom to 1
End_Procedure

Procedure OnCreate
	Forward Send OnCreate
	Variant vPicture
	Get ComExecuteTemplate "loadpicture(`c:\exontrol\images\zipdisk.gif`)" to vPicture
	Set ComPicture to (vPicture)
End_Procedure