147
ADOR, MDB (JET)

with thisform.Pivot1
	rs = CreateObject("ADOR.Recordset")
	with rs
		.Open("Data","Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Program Files\Exontrol\ExPivot\Sample\Access\sample.mdb",3,3)
	endwith
	.DataSource = rs
endwith
146
ImageSize property on 32 (specifies the size of control' icons/images/check-boxes/radio-buttons)

with thisform.Pivot1
	.BeginUpdate
	.ImageSize = 32
	.DefaultItemHeight = 36
	.HeaderHeight = .DefaultItemHeight
	.Font.Size = 16
	.FilterBarFont.Size = thisform.Pivot1.Font.Size
	.ToolTipFont.Size = thisform.Pivot1.Font.Size
	.Indent = 26
	var_s = "gBJJgBAIDAAEg4AEEKAD/hz/EMNh8TIRNGwAjEZAEXjAojKAjMLjABhkaABAk0plUrlktl0vmExmUzmk1m03nE5nU7nk9miAoE+oVDolFo1HpFJpU5h8Sf9OqFNqUOqN"
	var_s = var_s + "UqdPq9VrFWrlbr1QpdhAFAkFis1ntFptVrtkrpszrNvmVxqk3uVtm1kmF3sdBvF/wGBmV+j9BYGHwWJulfxdax2NyFdx2JlV6l9Nw7AAGZymdz2Cy2GxErvWcz9ivlwy"
	var_s = var_s + "V21cuxugwktzGIzmvwtl0+53U5y0a0Wazmmyu/3dCyOMyXHx/J5nIr9q3uyqnBxFN3G46ma4vb7mD2Ng4nZze00fDkHC7t7us2rOX5tguetpHRlmz4HVqnXk1PjHO+CM"
	var_s = var_s + "Po9MBMC+j2vC8j7wS8cFNI4kBo05UIvfCT/NsnsApU+0Fqg/T+oy/kPxC0sEQfErKQK96+w28UWRI8UGvO8sTLS9r2PWmsMJTDTask3CsIbIEQRA3shOXEEAO/GclJ9F"
	var_s = var_s + "EKrrA8FRbKMXRIlb0JxCkjS1LMswhCcvuel0cv26cSMa8Ufx+2sQwhEUoSXOCjSbLcnxjKc7sdKUVyq28NtVI71P9P7JxtQEapjQ6fzfM8zPfNE2PhIsLL63E40slk5y"
	var_s = var_s + "7N89LcyU9SvMb3SdUc6VJLj5VLVLfO/PS9KzNFHUa/0XyBD0dxlS9cxhMlTRSoNXypPErWDPyfNS+MwprRNO0FD8wVVZ1AI08URwVRjtJ1WCn21QkkUrXVLVPQS/XIkF"
	var_s = var_s + "gTxT9iONZ9xVTdq+L1eKg3kkF6Upe68XtfV51/MtrVjBlwYFL1ev8y1/P6/lyzzYl02wntj0RVFmS1Qa+M5as93QxEUW9e993rfmQ2+vy65M/mL1lhl/2bj2ByVduMtN"
	var_s = var_s + "hCJT9hdz41nN14Ld12Z9UjfI/oUAaGseiw6+uFLLhcVabJOS5RqOE0BHlZ5VnEr5fOMs3st+aa/bbRzrJGV51Y0b0DbqaWXZD90hIsPbjWu52+6Wyadpe66hhO+P/Xio"
	var_s = var_s + "W5rD8ZbrUZuVg6n1dsE/cXmewu1m9PVwnd35/nueXho/NaJzmjc61W76esuT77eG8pTquy9TwWH8LEzG8RDfFalx3Gcfvna9rvG/cptGLd9tuI6TZOP5Fiqi99vea+X4"
	var_s = var_s + "VRcBq/JZZtVQ9cwSs5lsXE372+a9z7PbfB3VVqHyvMctLto8uob6eV0m/cD6MN2v+T33t6sBut42vdv2bJ8a997x2maFJfK+qArbGJPEKE+1qTflMsIdW/GCJX17KcT6"
	var_s = var_s + "/czr/X+u1g29B7j/4BQfWkkx4zIHisjhPCmE0K4SwtXM+d4BvHRwNZOoBph9IJvPek9d40FoMJxf691jj2ywQQcHEWET4XJwkTszlVqm2GokewxtBT1DpQjRxDN0rUVD"
	var_s = var_s + "NKdC3lb6tzNOwh6upMSSYfv4YBCl/bsn9PxiFCEo7SI6Obc9HeOrnY8x4jtHtdpN4GRbaorhsbu18Pph5CiHymI0RpSXGJ/z2oUOxYxG858AyiI+bfJtuTcG5yelBJyT"
	var_s = var_s + "8okhqFd4a5yxL0rvulYtKCsZiWxWkc1s1cRoxxwhA31DLE0mR9l9HqX8fJgTDmFMVH0MIsRzVYnwnMi1dyzmhLt2kS2pxIiU62Wj5ptQGlSYFakLonTUJNLKaM5Wzlff"
	var_s = var_s + "EkuFkk5wTrhVO2eE7G6lJhxFFYUZ55zmn0WuBCD4pzhirFCKkbomsOoIYmZx5p90LoYWGPdD5g0QmJRKYxbZ6zYoVQ2jVGylSak7KSkFH6RSjpHKFuU+YMyNo5SulkC6"
	var_s = var_s + "I0vonTCitMXPoEpVS2H5FQfEqp2R1opIgAEkJISYARTCukOhmPNI5Ex/wzGHUsicMwA1LHgQ90Y/KpoQHAD+pB/R4NzIaMAB9Xaw1gqaAOsh/A/ptIkWUfhGK1kZH8Rg"
	var_s = var_s + "H5GqvgArqRmt4AAPrTroRofBGADkqr6Rmu4D7CEaHARiwpJrEEZsXXwlVjyMWRsaRqwdkLGNBABZmytmyMnaINZqyVpLR2ftKAAAdd6h2osbaskdiq4EZtgSmyNcbVWR"
	var_s = var_s + "JNXe3AA7REar3b0stlAAXBtoRmvJGLjEYAHUWsFcwCD/rnaop9aEICMAPdK5hT6xpeuzdOtAgKuJeGfdq6ggEbkTvAP+p9UCHXrvKkcgIA=="
	.Images(var_s)
	with .VisualAppearance
		var_s1 = "gBFLBCJwBAEHhEJAAEhABfICg6AADACAxRDgMQBQKAAzQFAYbhkGCGAAGMZxRgmFgAQhFcZQSKUOQTDKMIziaQAGgkNQwCSLIwjNIsBxPFKVQChEYxSjKA40SJNUgyj6"
		var_s1 = var_s1 + "CCY+QLIE5PfQgAL9I6eJABCCSQKkYx0HScRiwPBIbAZAYhCZqaKhWgkKI/WBQIABRDVLx5ESiLRtKy7Mq2bpvXBcNxXHalaztO68LxvKyqHb5fJ/PpgL4YHgmC4NQ7EM"
		var_s1 = var_s1 + "RwF6rfbyfZ7Xg/ORPTijZ4sdzMHTzJyscx3HqfaBoOaZU5eMLceTUMofHIndxCcasPbsOatVqjG5sYjcGC3La9cz3Pq/bpuDCbMxuaK1TrYXr1TTrcofBDldAxXRKDxR"
		var_s1 = var_s1 + "DWVhLnYOw9i6XxzjuXprCaOoKB6EwbiCZZCGOdZYlcT4xHmbhMnwNxtn+G5bmqdZ7n4Pw/i+X5zm+dQ9g4CAFjsfAJheOI8HsDoWDWTB/lwSAQkmA5PEgRYoDyDwYFYF"
		var_s1 = var_s1 + "oFmGCBmBqBphDgRJ0gOTIYBGRB/lyRh0iSCZbjYWJzgWDwIjYLoLmMCJGDKDJjBgWgqG6YhyhGHRzA2aJ1mCABOAiOJvhCZBJBYRoRmSCQmEqEQimkAZgg8TZnDCV4Uk"
		var_s1 = var_s1 + "mCUmBKZYJGYWoWCUUhiFMNZckNUh2GENoaGaGZmgmJhqhqZpGGIEx2GYIxSGGGJdggWJth2Z4JmYeoemeSZ2H6H4hGmQhihyTRHGYLg7CiCgmgqIpokoNoOiOaJ4jqAo"
		var_s1 = var_s1 + "chqaZGgaCxpAoZoaiaaJqEmWIcGgShcnCJwqEqFoR3YOoFlgchflqNouiuawHmWSYqGkWZQhcatzmaOoumuSp2j6L5bBaKo0GQKRnGGCxqiyCwmkqMpsksNpOGUGI7A0"
		var_s1 = var_s1 + "ew1G0Rxlg0PptgsZuDG2Sx2l6N5tnYNZZjUDRXDCVo5l2FoymqOpukuNpujubwLjmWY5k0ZwxkaFxYlWdp6j6b5Lnafo/nABQdg2FxcUsY5BkmXAkmeQpckwNRrkKTh8"
		var_s1 = var_s1 + "CSHZBk4NwyC4KxxgMDwakOMZDn8GgwnGAo2C4cwthMcwmCcMoHBMHRehwTIghySYNksZwcH4HBMEsHx5hyPItiweYxnwSZEH4Mozn0fR+DMAo7EYJ50gkdZelKdNql2U"
		var_s1 = var_s1 + "gJn0GIukwH4HicQRai2GI4mSVpNl0dZGledgNgcYpYDWUx3FsOQi5YV5anaTY3G6W53A2RxylydxFjiaxEFCCgBBAQ=="
		.Add(1,var_s1)
		var_s2 = "gBFLBCJwBAEHhEJAAEhABcoFg6AADACAxRDgMQBQKAAzQFAYbhkGCGAAGMZxRgmFgAQhFcZQSKUOQTDKMIziaQAGgkNQwCSLIwjNIsBxPFKVQChEYxSjKA40SJNUgyj6"
		var_s2 = var_s2 + "CCY+QLIE5PfQgAL9I6eJABCCSQKkYx0HScRiwPBIbAZAYhCZqaKhWgkKI/WBQIABRDVLx5ESiLRtKy7Mq2bpvXBcNxXHalaztO68LxvKyqHb5fJ/PpgL4YHgmC4NQ7EM"
		var_s2 = var_s2 + "RwF6rfbyfZ7Xg/ORPTijZ4sdzMHTzJyscx3HqfaBoOaZU5eMLceTUMofHIndxCcasPbsLpOS5LNKsaxmWLYdhFdTxQi6LpvfA8BwXC6JY7heRYRbFbYxRjGNi1TS7G4n"
		var_s2 = var_s2 + "GKd5WGuL4UHwI4VkaYxii8V4pgQMgVBQdQ5iCTYGi8T4vlWbJ3nuPg+l+H5AlSCg6ByPBoE8Ap3jqYxhBido5g0OgOGOGI4CsSpCCAcgcAuEokiEN5NCKfJ9DyTRjnSc"
		var_s2 = var_s2 + "g1CEYxOBmBpPCgagdgcIZoHoGIFA4AxQkCAxKAgKBwgGSpIBCZhjF2E5UnQPQMiMCJBCIBwxkSQgsgo+JtDKT4ziiQw+k6EwAnsOgLnkHI+yCQ4iEuE4klkPhShEJBpA"
		var_s2 = var_s2 + "oPgymOMoaDgHBjFMBgyD0HYTiCZSZhIIIGC4ChiHSew5kwM5omILZPiOBI0hwZw5kodIdA+M4Uj4PxOmMSJ9DuTQzmyZgviceZagaHVfj4awwmaAh2GUIYmCOEZZDaDR"
		var_s2 = var_s2 + "DFGdwcg4EwyHMN4LBOaJbCoaZqgKH8qkMfIyD8DozDyfA7A0Coui0OpMmOZJdCsahKg6NooioChwmEMxLEoXJbDUTRXGSUgykyMgQG0GpPHMdI3D4TRCgSeQ0kmaw+lG"
		var_s2 = var_s2 + "NAtCOZJVCiT5DhyRQwAqMg0EoDBBGEGAsASC5yiSCw+k4Mp6lWNQuksTpRjMTxDGzJwGmGMpDDKXYTECSAxl6Q5olkK4PgMMIVkASRMBMBgzEkaZEjsNALhIZA6AeQBg"
		var_s2 = var_s2 + "k0ZJEgAAJ0CIAgODMNIsD6DRih9uYwFyAwfCUb5ijmbI+gwdxkk8MZMGeMpPCkDxzBiC5MHMPJLDSSROFMLIoBEQogEMFJPnENYQGgE4DCOaJfC7tYkhGTQ0kyWwykuX"
		var_s2 = var_s2 + "pMiyRpKjKR4wngM4JmOWJACCdYtHMWw+Eych4nINYLAEYA8AgdAEEsQZajaQoog4GxPiMVIolcdxNG8XZVkmNoRwWRVBlFeFEeAZQJgnFiHgHwcAhjhHgGMSI5xki2Cy"
		var_s2 = var_s2 + "A4EQsA3i0HkBsLwKRFgAHcPkHopBJBcBeDUYI7xyDOHqKkWo2hLCsDIBIY4qQ5A8DoMMYwOAqCSBGKgU4yB2iDBwIgB4hxQgAAWNgBoAgsBdEcBUQ4sQ9A/HqD0JI8Rp"
		var_s2 = var_s2 + "BzH2OYVgahLBHFiJQJweQiDhDUE4SAARQAzFsG0EQwA6AOWSBkFgVAIBCHeGERQFQiCQHeFkC4vkiB8DyB4F4QxVDvGMNEOQexMjlBeOAKQiQLgfDA7QEAaRiBdEkH8T"
		var_s2 = var_s2 + "I7AZiFBAGYBIABWjYBiGACioQ4C1A+AMMgWhfgxHgPsT4URIB0COKgPgjRwiAB8AYUArxBgCF6J4GY5hrAOCAPAAoGRRCsCIMEXATXfgAF8BMJwURuEQDgD4Q4OBoAeH"
		var_s2 = var_s2 + "GFgLIwQrC2D0JoSQ+QvhrHoSgQI8AbDFGID8C4Ah6BQAQAASACwgCYCMAUMARAvCKAiAMCAokeCKBEOAKgCBoDaHuMsEAqwJDiACDURg8R6gPCyDofYWAhgoDIJ4ZAuh"
		var_s2 = var_s2 + "oiGAYGgRoQw/A0GMMga4GwxiEDeIYYInATCDBQAoBAwAoDlA0KMBoVRGiDGwDQUYIRsgaGGDgM4LAwDWB8EcIA1APhjEgGQVwgRIgjFIIQHokgZA+CSEkLIKQSjHAwMs"
		var_s2 = var_s2 + "CwDAsAEB2ABTIwRwD6A8CMToSxkAxE4HYIw+BsgbBEDAHYBwojCBoIYFgXSjABE4MsHIbQWhlGILQS4UhvBdAUKEEwHgxDAAABQQQUAhgKHiDwE4JS4A7BGLQZwCR4ga"
		var_s2 = var_s2 + "BEMUYAqgKApHgGwVAIRNgvBMMQXImwZDtE4I8UIyAZCDCAE8AwrhgAdEEBACQLRCg4FEB4AYtA7CdEiPQMoJAMDNCkOMCAXAFDhH0D0Q4EgfAaGSK4NYzRUj9BuCgAgs"
		var_s2 = var_s2 + "wOBjB4Fqpw8B2ADAwE4A4Qx2DAE6JIaQPQGhAGKBcIQ5B5gHByKIFARwADbAyKUfgdBKBBGyEcVIAB/ijHoIoSA0gdBNl+OATYERZgBGSDYWIWAUCEGKA4FAhR7CIBtY"
		var_s2 = var_s2 + "QGYZg4CMAiKEcAOwkBjHWE8Z4lQgA+DkBoTohwwCeAaMEEgBQCCABgHMRwQRhhMEWFQd4HwZgwDqFESItAbAGEANCpINAzANCCJkK4ah+heFYBURwsQrS2CsMYMoWGBh"
		var_s2 = var_s2 + "YDWI0EInQgiApXaOVI1QFDsC8MUNoMBMA1HMJga4eh+BeAWOgNNowGjYzCGAAwax+iJBeBVT4gxoBIAGFsJFBxgBiGKFkKQ7g5DFFQEcAo4AzDDACKEQQLgCiJDYB0Mg"
		var_s2 = var_s2 + "RBCCQAgQEA=="
		.Add(2,var_s2)
		var_s3 = "gBFLBCJwBAEHhEJAAEhABQ4Fg6AADACAxRDgMQBQKAAzQFAYbhkGCGAAGMZxRgmFgAQhFcZQSKUOQTDKMIziaQAGgkNQwCSLIwjNIsBxPFKVQChEYxSjKA40SJNUgyj6"
		var_s3 = var_s3 + "CCY+QLIE5PfQgAL9I6eJABCCSQKkYx0HScRiwPBIbAZAYhCZqaKhWgkKI/WBQIABRDVLx5ESiLRtKy7Mq2bpvXBcNxXHalaztO68LxvKyqHb5fJ/PpgL4YHgmC4NQ7EM"
		var_s3 = var_s3 + "RwF6rfbyfZ7Xg/ORPTijZ4sdzMHTzJyscx3HqfaBoOaZU5eMLceTUMofHIndxCcasPbsLpOS5LNKsaxmWLYdhFdTxQi6LpvfA8BwXC6JY7heRYRbFbYxRjGNi1TS7G4n"
		var_s3 = var_s3 + "GKd5WGuL4UHwI4VkaYxii8V4pgQMgVBQdQ5iCTYGi8T4vlWbJ3nuPg+l+H5AlSCg6ByPBoE8Ap3jqYxhBido5g0OgOGOGI4CsSpCCAcgcAuEosiYN5NHMOJ+D4TpTnSe"
		var_s3 = var_s3 + "Q7CEY4uBmBpPhgagdgcIZoHibIEyUBJZDQIJShoCgcCAcoyAQOYYlcZJ1D0DxDCiQgwEiAZMHEMJLFKPJ9D2DoDnidQ4k+Y5QmKEROBkIhKD0JIZDIS4TGUCQuEeEJjn"
		var_s3 = var_s3 + "OIg8CuY4RkYNgwGMM5RllGpThDRYIGKZIpCkJFUH0PINyWcQ3CaaZCG+HBnEOTJhD8Tx4GoeQ/GcaZSHOH5nCmQhshoZhihYYwhiYA4RlkNoNEMUZ3ByDjwEsPxOnMaJ"
		var_s3 = var_s3 + "9DuDR6F6GYmCmKh0nANtMioP4Gg8aoSiIO5NhodociqaY6GaFYkEyOg8lsNRNTaUgykyMgQG0GpPiONJbD8DpDEyfA6k0KwOkWMQsGsAJU0SagwkoJQJDIPISCQCJTGS"
		var_s3 = var_s3 + "UwyGaM4KkmMgtksHpFjAZ4TGCBAbgaSpcksdhNAMIJHHsD5TjSWWMAMOpwjyLwbk6cAz0KRJiDkDYzESCwiggcgcgYIQwCIEINCMCITj6TVxkMXp2j0cQLlCTo7E2F4y"
		var_s3 = var_s3 + "mkMZdhMPJHDGHpLAyVg+k4UwrCCSIyByDJ8DuDY8CiWY0kiXAXC6QJwFKGIjCeJpjgyezjlyDw6klHx5myRoMGwZwbkcToTEiew4kwbQfEmUgPkOKJUD4DpTHSHQmgkX"
		var_s3 = var_s3 + "I/ASTA1g0XIEDMTBimyfI7jSLYHEiUoPk0Fw/kadAsHGao8A0A5smEMJ2mNyg5gzJZwDgCpChyIZVyIZwFCMJEPASRkBqE+IcHInRcDxA2H4bIsx0AtDsIBpwZwYicD6"
		var_s3 = var_s3 + "BscwDwUBgHCIYaIfgtiVH2O4WgUwJjEFeAEQA7y4hMCiBMS4aRdB9A4CYE4LxljyBMHcDItBxinDCLcTYmgejBFQ9UTg9gFBOEmAQTI7A4iZGMGkQAWQ7jYA2HIL8BRA"
		var_s3 = var_s3 + "jDG4HcCwARbjZHiNoDw1nLDnGyNINQ+wjCpBMEgcovQUgICQJEcgWRuBvAyJ4d4ugpCUAINcHogxIgnDiM4N4axzD3F2JMTY/hRqYF6FsWIxhYAGGoAALQYgYirBwBEB"
		var_s3 = var_s3 + "wpAjBEAAIEIYsA2gOHCMAGgXAACIDmMITAUgFABH0D0I4WwvhNFGMAOIvxRD2GKNcMA8gjAPDCPwBogRPAxA8PgRwZRICYDED8RAXQEghEAN8DIgwIBdB4JYWwMgtiQH"
		var_s3 = var_s3 + "oFQKAiRFguFKGwGQhglDsEOVwEQQRkCKBwOIHgSREDRBYHEXQcQdD7GIGARQHRxipBrMobgewDCUCADsEYWAzgMHKHQDQxxsDzA6EMfAeQHB4GQDkUYPA0iECiKoGgRh"
		var_s3 = var_s3 + "cDdA2GMQA8AOCjDSPgHI4QnApAKBICwHg1A+BcAwcYsgbjGGQNkCIgRsA6EcBEWANADjsB0B8YYzQQDIGSBcEYZBCCPEkFIHQSgkgZAwG4IwBAbAYGGAgL4Ch4g8BOCQ"
		var_s3 = var_s3 + "AA2KKC0GcAke4AAXAFCoHkDw4xbBFEcJkE4JRSiEFeJYKQVRMgJHODwX4xAgC/AsIIZAeAHDRG0HYI40RKCLEGDUI4jAghwBWIceA+whCpHMFYZYOQxglDMHMBQGxYjV"
		var_s3 = var_s3 + "HiAoBIPgfgHGwPsHYJRSB6A0IERQLhCjJHMA4OQoAoCOACLYGYSx8DpBQIMWQdRnDRH+DsE4fB3CeAmM67kAAXBFEIDYDI7wLBtEoEIfYNwjiUGGJQYQMAjCHEAO0C4z"
		var_s3 = var_s3 + "xW29CoCgfIxR9AKA6J8BgUAIhDGMIoJ40hqgwCgKETgnBhhqCGI0AIqgZhGDANQDIlBDCRGkCoJISR0g1BSKQOgfAzBRG0DYHARh4DeDAOwANuw8ApCKKkYg/RPhjBsH"
		var_s3 = var_s3 + "0J4yg5hPGWN0GwFBHQBFaDoQIURljFAoB4GgzRVzbBECQFQRQoguHGHANwDRdCKy8CgSIGwhhoDYJYYI1giBICSAEgI="
		.Add(3,var_s3)
		var_s4 = "gBFLBCJwBAEHhEJAAEhABUYCg6AADACAxRDgMQBQKAAzQFAYbhkGCGAAGMZxRgmFgAQhFcZQSKUOQTDKMIziYBYfgkMIgSbJUgDGAkRRdDSOYDmGQYDiCIoRShOMIjHL"
		var_s4 = var_s4 + "UXxtDaIZwhEAoJb+RgAUY/cTzaAEUwHHiTKInaCQShsFYJUJAdRURQ9EwvCIZBpEWwLChENQwWLCNj2TScBwjCyqbale45ViqdoDU5EUiXJJ8ZxnECfYyrGjaMpCeKBU"
		var_s4 = var_s4 + "rGYTVRBIMxLLSia5oeJqMrnBpNVrIUgXCAGFwHK6BcauXIIDp6XoWWRbAAWDpVVzNNC3YzkCIceADHKiXxmVz4JLdGZ1QTGID2XaYaxWK4oZjsVSc4KDHbETbHFi9Fo3"
		var_s4 = var_s4 + "NaaxGisew+GYc4HlCR5NAAAIIEkQJSGMOgdE4RhYDwJJsAaAYQgmPpolCWgSCiBJzjcEIAkQXIBm8d5UhOQgCDUIBDDJDhgggJgKgKYJIDSVoDk8KBFF4OohEMZgWDsY"
		var_s4 = var_s4 + "YDj4GoGmGSB2B6B5iAiBgYDsYRjGSbIJo4RgqDuIpIAoLoLmMCJGDKDJjJiLA7xqUAAgGTwYnYPoPmQCQGEKEJkEkFg9gGY44BoRoSmSSQ2EKEggHgRhShSZRJFYVoVm"
		var_s4 = var_s4 + "WCRmFKFAgGOTheheZgJgYYoYmYSYWGaF4lkMMJ0hqZpJjYbobmcCZGHKHJmjmJh0h2Z4JmYcIaE8WZ2H6H5oAoBoCiCaBKBYfdjGoJoKiKaJKDaDojmkChGgmIgpCoVo"
		var_s4 = var_s4 + "WiWaJZiSd4mmmSh2h6J5qAqBoiiiaY5iSeIpmqComiqKpqkqNouiuah6hqMIsmsSpWiuGhP1kOoumuSp2j6L5sAsBo54gKwWkaMZsgsJpKjKbJLDaRYxYWRpSjSbIZiS"
		var_s4 = var_s4 + "e41m2CxmlqNptksdpejebR5iSfI4m4S4W16boLiaao6m5fJ9jubwLkaco8m8S5WnaPZunuOp4j6b5Lnac4SA0PAGlgP4wEwFwGkGcIMCcCpCnCCxiA8NYAAmMJfkSbhF"
		var_s4 = var_s4 + "CcFpFnGDBnBqRpUhuEwTDeZ5lHCfw6HIQxLCaAxygyJwqgGcATE4FA6hWY4tjEAAQBAgIA=="
		.Add(4,var_s4)
	endwith
	.BackColorHeader = 0x4c6c6c6
	.SelBackColor = 0x4000000
	.SelForeColor = RGB(0,0,1)
	.Object.CheckImage(0) = 16777216
	.Object.CheckImage(1) = 33554432
	.Object.CheckImage(2) = 50331648
	.Object.Background(20) = .SelBackColor
	.Object.Background(21) = .SelForeColor
	.Object.Background(26) = .BackColor
	.Object.Background(27) = .ForeColor
	.Object.Background(32) = -1
	.Object.Background(0) = 0x4000000
	.Object.Background(41) = 0x4010101
	.Object.Background(1) = 0x40000ff
	.HeaderAppearance = 4
	.GridLineStyle = 512
	var_s5 = "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTql"
	var_s5 = var_s5 + "Vq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0"
	var_s5 = var_s5 + "ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yN"
	var_s5 = var_s5 + "AOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
	.Images(var_s5)
	.Import("C:\Program Files\Exontrol\ExPivot\Sample\data.txt")
	.PivotRows = "12,0"
	.PivotColumns = "sum(5)"
	.PivotTotals = "/sum"
	.DataColumns.Item(0).FormatImage = "value case (default: -1;'Germany': 1;'USA': 2;'Mexico': 3)"
	.EndUpdate
endwith
145
ImageSize property on 16 (default) (specifies the size of control' icons/images/check-boxes/radio-buttons)

with thisform.Pivot1
	.BeginUpdate
	.ImageSize = 16
	var_s = "gBJJgBAIDAAEg4ACEKAD/hz/EMNh8TIRNGwAjEZAEXjAojJAjMLjABAAgjUYkUnlUrlktl0vmExmUzmk1m03nE5nU7nkrQCAntBoVDolFo1HoM/ADAplLptImdMYFOqd"
	var_s = var_s + "SqlXq1QrVbrlGpVWsFNrNdnNjsk7pQAtNroFnt0sh8Yr9iulTuNxs1Eu8OiT/vsnsNVutXlk/oGGtVKxGLxWNtsZtN8iUYuNvy0Zvd+xNYwdwvl4p870GCqc8vOeuVtt"
	var_s = var_s + "mp1knyOayWVy+WzN/ze1wOElenm+12WUz/Bv2/3UyyWrzeutux2GSyGP2dQ33C1ur3GD3M4zUNzHdlWjq/E3nGzVpjWv4HA7fRy/Tv2IrN8rPW6nZ3ve7mUlfu20Z8ac"
	var_s = var_s + "vQyb+vY9jasYoDwMm+LytVBDqKG3z8O3Cb8P+mkAuY9cCQ2uL4KaxDKvkp8RNLEjqugnrwQo/UWPzFyeQw5sNLZFENrI4kOqU66pw8uzmOKvTqNqjULJvGL1JO48GtTG"
	var_s = var_s + "sbLdEL3scxLlyiw8dQeoUVxdLTtyKmUjwGlslRPJsnK1HbAKbKCrsQo8uQk/CeP44iaR/ATnTNPLvyxPU+z9P9AUDQVBowiofJXQ6Oo+kKMpIkjztE4TKn4P6JowfgPn"
	var_s = var_s + "wD5/nAjB8AOeAPo0eAA1IAFH07UhAIMpYAVIYFHqBUhwVjV1S1EtQAHxW65V0AZwAeuQAnwB5gAPYViEDVhwAHTQBkCjB4gOhwDmCyhH0sACAg=="
	.Images(var_s)
	with .VisualAppearance
		var_s1 = "gBFLBCJwBAEHhEJAAEhABUYCg6AADACAxRDgMQBQKAAzQFAYbhkGCGAAGMZxRgmFgAQhFcZQSKUOQTDKMIziYBYfgkMIgSbJUgDGAkRRdDSOYDmGQYDiCIoRShOMIjHL"
		var_s1 = var_s1 + "UXxtDaIZwhEAoJb+RgAUY/cTzaAEUwHHiTKInaCQShsFYJUJAdRURQ9EwvCIZBpEWwLChENQwWLCNj2TScBwjCyqbale45ViqdoDU5EUiXJJ8ZxnECfYyrGjaMpCeKBU"
		var_s1 = var_s1 + "rGYTVRBIMxLLSia5oeJqMrnBpNVrIUgXCAGFwHK6BcauXIIDp6XoWWRbAAWDpVVzNNC3YzkCIceADHKiXxmVz4JLdGZ1QTGID2XaYaxWK4oZjsVSc4KDHbETbHFi9Fo3"
		var_s1 = var_s1 + "NaaxGisew+GYc4HlCR5NAAAIIEkQJSGMOgdE4RhYDwJJsAaAYQgmPpolCWgSCiBJzjcEIAkQXIBm8d5UhOQgCDUIBDDJDhgggJgKgKYJIDSVoDk8KBFF4OohEMZgWDsY"
		var_s1 = var_s1 + "YDj4GoGmGSB2B6B5iAiBgYDsYRjGSbIJo4RgqDuIpIAoLoLmMCJGDKDJjJiLA7xqUAAgGTwYnYPoPmQCQGEKEJkEkFg9gGY44BoRoSmSSQ2EKEggHgRhShSZRJFYVoVm"
		var_s1 = var_s1 + "WCRmFKFAgGOTheheZgJgYYoYmYSYWGaF4lkMMJ0hqZpJjYbobmcCZGHKHJmjmJh0h2Z4JmYcIaE8WZ2H6H5oAoBoCiCaBKBYfdjGoJoKiKaJKDaDojmkChGgmIgpCoVo"
		var_s1 = var_s1 + "WiWaJZiSd4mmmSh2h6J5qAqBoiiiaY5iSeIpmqComiqKpqkqNouiuah6hqMIsmsSpWiuGhP1kOoumuSp2j6L5sAsBo54gKwWkaMZsgsJpKjKbJLDaRYxYWRpSjSbIZiS"
		var_s1 = var_s1 + "e41m2CxmlqNptksdpejebR5iSfI4m4S4W16boLiaao6m5fJ9jubwLkaco8m8S5WnaPZunuOp4j6b5Lnac4SA0PAGlgP4wEwFwGkGcIMCcCpCnCCxiA8NYAAmMJfkSbhF"
		var_s1 = var_s1 + "CcFpFnGDBnBqRpUhuEwTDeZ5lHCfw6HIQxLCaAxygyJwqgGcATE4FA6hWY4tjEAAQBAgIA=="
		.Add(4,var_s1)
	endwith
	.BackColorHeader = 0x4c6c6c6
	.SelBackColor = 0x4000000
	.SelForeColor = RGB(0,0,1)
	.Object.Background(20) = .SelBackColor
	.Object.Background(21) = .SelForeColor
	.Object.Background(26) = .BackColor
	.Object.Background(27) = .ForeColor
	.Object.Background(32) = -1
	.Object.Background(0) = 0x4000000
	.Object.Background(41) = 0x4010101
	.Object.Background(1) = 0x40000ff
	.HeaderAppearance = 4
	.GridLineStyle = 512
	.Import("C:\Program Files\Exontrol\ExPivot\Sample\data.txt")
	.PivotRows = "12,0"
	.PivotColumns = "sum(5)"
	.PivotTotals = "/sum"
	.DataColumns.Item(0).FormatImage = "value case (default: -1;'Germany': 1;'USA': 2;'Mexico': 3)"
	.EndUpdate
endwith
144
Is it possible to view all events the control fires
*** Event event - Notifies the application once the control fires an event. ***
LPARAMETERS EventID
	with thisform.Pivot1
		DEBUGOUT( .EventParam(-2) )
	endwith

with thisform.Pivot1
	.BeginUpdate
	.Import("C:\Program Files\Exontrol\ExPivot\Sample\data.txt")
	.PivotBarVisible = 16780763 && PivotBarVisibleEnum.exPivotBarAllowFormatConditionalAppearance Or PivotBarVisibleEnum.exPivotBarAllowResizeColumns Or PivotBarVisibleEnum.exPivotBarAllowUndoRedo Or PivotBarVisibleEnum.exPivotBarAllowFormatContent Or PivotBarVisibleEnum.exPivotBarAllowFormatAppearance Or PivotBarVisibleEnum.exPivotBarAllowValues Or PivotBarVisibleEnum.exPivotBarShowTotals Or PivotBarVisibleEnum.exPivotBarAutoFit Or PivotBarVisibleEnum.exPivotBarSizable Or PivotBarVisibleEnum.exPivotBarVisible
	.EndUpdate
endwith
143
Does your control support images

with thisform.Pivot1
	.BeginUpdate
	var_s = "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTql"
	var_s = var_s + "Vq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0"
	var_s = var_s + "ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yN"
	var_s = var_s + "AOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
	.Images(var_s)
	.Import("C:\Program Files\Exontrol\ExPivot\Sample\data.txt")
	.DataColumns.Item(0).FormatImage = "value case (default: -1;'Germany': 1;'USA': 2;'Mexico': 3)"
	.EndUpdate
endwith
142
Is it possible to rename the generated-columns

with thisform.Pivot1
	.BeginUpdate
	.HeaderAppearance = 4
	.HeaderHeight = 24
	.Import("Item;1;2;3#A;10;20;30#A;20;40;50#A;20;30;20#B;10;10;10#B;20;50;30","str=`'` eor='#' eof=';' hdr=1")
	.PivotRows = 0
	.PivotColumns = "sum(1),sum(2),sum(3)"
	var_s = "(iaggregate ? (proper(aggregate) + ` <off -4>` + (caption case (default:`None`; 1:`Sunday`; 2:`Monday`; 3:`Tuesday`; 4:`Wednesda"
	var_s = var_s + "y`; 5:`Thursday`; 6:`Friday`; 7:`Saturday`))  + `</b>`) : caption)"
	.FormatPivotHeader = var_s
	.EndUpdate
endwith
141
Is it possible to rename the columns

with thisform.Pivot1
	.BeginUpdate
	.AppendData("C:\Program Files\Exontrol\ExPivot\Sample\data.txt")
	.DataColumns.Item(0).Caption = "<b>Nation"
	.Refresh
	.EndUpdate
endwith
140
The pivot's rows and columns arer lost once I call the AppendData. Can I add/append data in the background so the layout of the pivot is not lost

with thisform.Pivot1
	.BeginUpdate
	.AppendData("Def")
	.AppendData("A")
	.AppendData("A")
	.AppendData("A")
	.PivotRows = 0
	.PivotColumns = "count(0)"
	s = .Layout
	.AppendData("B")
	.AppendData("B")
	.Layout = s
	.EndUpdate
endwith
139
Is it possible to add data without clearing the previously data

with thisform.Pivot1
	.BeginUpdate
	.AppendData("Column")
	.AppendData("1")
	.AppendData("2")
	.AppendData("3")
	.EndUpdate
endwith
138
How can I change the visual appearance of the Total button

with thisform.Pivot1
	.BeginUpdate
	with .VisualAppearance
		var_s = "gBFLBCJwBAEHhEJAAEhABAoCg6AADACAxRDgMQBQKAAzQFAcDBvBgABoGEZIJhUAIIRZGMIjFDcEwxC6NIpjeIBSDUJYkSZEAyjBI8ExXFqMQCkGKocgONYgQLHcgxeA"
		var_s = var_s + "0XRYFoYRinWA5PoAMoyTYMdIAnTOM4eU6AATwTSccw0fisAAfeq4Wh+HwIQiUBomGahajkMqDYRVagyCI2a4ZDZCIoVJalLAxCw8KDqGJnMr1R5/MDgOBYogXBqHYhiO"
		var_s = var_s + "AsdhjSYdBK/WLeHI6Y1GS7MMxzLK8cxVaqfMpoMI4FjuS5NU7TMC0PAXdy3LqvbBsOxbHqma5nVSBcC2ba9cz3PK4ABuW7bM6TRKNYbkOA4LiNQaxVSrNKmIwPI5DJ5M"
		var_s = var_s + "l2co1h0d5vBWDJQEkCI7mIJpykyTZblqdhYDyR5TlmX5RBgeI+D4BxLDkO5nlieh5g2FQ5DOZAiDkDASAmYh7l0RxZncPxfhadZkBmH5jvKLhamMcItBYXgoC4B4CBgF"
		var_s = var_s + "oskEP4hkgdgegcD4zlycA1goAJ5mIc4KjgfJ+D0ToTFGbx4h8Qh2CqDJjEeJg0gyT4DkCYg5kyAhCDeBxjkIQgDHSIgTkIP4NGGFplgGEZkkifhFgSIRHgCXwtAYeQ2B"
		var_s = var_s + "+DYlGkZgqgsIpnEoJxzmWGRiFqGJhmkBhDAwJBZDIYoZCYSQ+BOFAmBkJZBhKZpJlYHIXCYR4lFuHpnkmdh+h+aAKAaAogF6FhWgOIZogoJh/GuHoTl6DojmkChGhKJJ"
		var_s = var_s + "pEoVoWiUHAGDCTg6CmSheh6J5qAoTJriiWQUCSb4ploEwpgq4BKjWBomhmc4pAkOpRAQJQBICA=="
		.Add(2,var_s)
		.Add(1,"CP:2 -10 -6 8 8")
	endwith
	.Object.Background(185) = 0x1000000
	.Import("C:\Program Files\Exontrol\ExPivot\Sample\data.txt")
	.EndUpdate
endwith
137
Is it possible to highlight the column's header once a filter is applied

with thisform.Pivot1
	.BeginUpdate
	with .VisualAppearance
		var_s = "gBFLBCJwBAEHhEJAAEhABX8GACAADACAxSDEMQBQKAAzQFAYbhgHCGAAGQaBUgmFgAQhFcZQSKUOQTDKNYykCIRSDUJYkSZEIyjBI8ExXFqNACkGKwYgmNYiTLAcgANJ"
		var_s = var_s + "0WBaGIZJ4gOT5fDKMoEDRRYADFCscwxJybQAqGQKKb+VgAVY/cTyBIAEQSKA0TDOQ5TSKWB4JPZQRBEbZMNBtBIUJquKaqShdQJCU5FdY3Xblez9P7AMBwLFEC4NQ8YN"
		var_s = var_s + "YuPhjR4dRTIMhvVAsUArFh8Zg9GZZFjmDIDT4ydBLTQwcyVIKnP5qOa6XbmPoCQDYKxZHYxPzVDa3axuL76dqCAT7XrXNy1TbNRrzQKfcJqfCbdw2YaDZLOOT3fjuI4h"
		var_s = var_s + "hKaRzFAHJ+jYQ4xHuY4gHuGIXGeExqC8Tp6C+PoEm+G5ImycRgh0XwvDGa5rgOeoejyXwnFeQp2mkf5ClgBB9gCWIYAwfYAEKV58mkdwOggNArgOXY2EWLoDkKOA0mgb"
		var_s = var_s + "hOGgZApgaSBIHWSYHSmbApgYThmESZYJkIeIkgeCpfliLIHgpMIcmUYYYmODAlg2SI4mWfRfGOEguDcCRjFYAJihCQhJBSDoRmONgKEcI4kFCEJhhOVYTmYnAlEAQhWB"
		var_s = var_s + "MJYJGYWoWmWSR2F6F5lnkWAQhUAgpEieRWEuSYkjWGpmkmNhuhuZwJkYcocmaaYkjyEhngnUA6lEFAlAEgI="
		.Add(2,var_s)
		.Add(1,"CP:2 -8 -4 2 4")
	endwith
	.HeaderHeight = 28
	.Object.Background(0) = 0x1fefefe
	.Object.Background(41) = 0x1010101
	.Object.Background(32) = -1
	.Import("C:\Program Files\Exontrol\ExPivot\Sample\data.txt")
	.FilterBarFont = .Font
	.Object.Description(11) = .FormatABC("`<fgcolor=808080> ` + value + ` </fgcolor>`",.Description(11))
	var_s1 = "(( ( value replace `[<b>` with `<bgcolor=000000><fgcolor=FFFFFF><b> ` replace `</b>]` with ` </b></bgcolor></fgcolor>` replace `"
	var_s1 = var_s1 + "[<s>` with `<bgcolor=C0C0C0><fgcolor=FFFFFF> ` replace `</s>]` with ` </fgcolor></bgcolor>` )  + `<r><fgcolor=808080>` + ( match"
	var_s1 = var_s1 + "itemcount < 0 ? ( ( len(value) ? `` : `` ) + `<r>` + abs(matchitemcount + 1) + ` result(s)` ) : (`<r><fgcolor=808080>`+ itemcoun"
	var_s1 = var_s1 + "t + ` item(s)`) )))"
	.FilterBarCaption = var_s1
	.FilterBarPromptVisible = 2583 && FilterBarVisibleEnum.exFilterBarCompact Or FilterBarVisibleEnum.exFilterBarShowCloseIfRequired Or FilterBarVisibleEnum.exFilterBarSingleLine Or FilterBarVisibleEnum.exFilterBarCaptionVisible Or FilterBarVisibleEnum.exFilterBarVisible Or FilterBarVisibleEnum.exFilterBarPromptVisible
	.EndUpdate
endwith
136
How can I change the format the column displays (for instance, displaying no 0:00:00)

with thisform.Pivot1
	.BeginUpdate
	.Import("C:\Program Files\Exontrol\ExPivot\Sample\data.txt")
	.FormatContents.Add("notime","value replace `0:00:00` with ``")
	.PivotRows = "9[content=notime]"
	.EndUpdate
endwith
135
Is it possible to show the filterbar on top of the rows

with thisform.Pivot1
	.BeginUpdate
	.Import("C:\Program Files\Exontrol\ExPivot\Sample\data.txt")
	.FilterBarPromptVisible = 8705 && FilterBarVisibleEnum.exFilterBarTop Or FilterBarVisibleEnum.exFilterBarShowCloseIfRequired Or FilterBarVisibleEnum.exFilterBarPromptVisible
	.EndUpdate
endwith
134
How can I uses the control in window-less mode (with no user interface, option 3)

with thisform.Pivot1
	with CreateObject("Exontrol.Pivot")
		.Import("C:\Program Files\Exontrol\ExPivot\Sample\data.txt")
		.PivotRows = "0"
		.PivotColumns = "avg(5)"
		DEBUGOUT( .Export() )
	endwith
endwith
133
How can I uses the control in window-less mode (with no user interface, option 2)

with thisform.Pivot1
	with CreateObject("Exontrol.Pivot")
		rs = CreateObject("ADOR.Recordset")
		with rs
			.Open("Data","Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Program Files\Exontrol\ExPivot\Sample\Access\sample.accdb",3,3)
		endwith
		.DataSource = rs
		.PivotRows = "0"
		.PivotColumns = "max(5)"
		DEBUGOUT( .Export() )
	endwith
endwith
132
How can I uses the control in window-less mode (with no user interface, option 1)

with thisform.Pivot1
	with CreateObject("Exontrol.Pivot")
		.LoadXML("http://www.exontrol.net/testing.xml")
		.PivotRows = "1"
		.PivotColumns = "max(6)"
		DEBUGOUT( .Export() )
	endwith
endwith
131
How can I connect to a DBF file

with thisform.Pivot1
	.BeginUpdate
	rs = CreateObject("ADODB.Recordset")
	with rs
		.Open("Select * From foxcode.DBF","Provider=vfpoledb;Data Source=C:\Program Files\Microsoft Visual FoxPro 9\",3,3)
	endwith
	.DataSource = rs
	.PivotRows = "0"
	.PivotColumns = "count(0)[content=numeric],avg(7)[negative,content=numeric]"
	.EndUpdate
endwith
130
Export Data in HTML format

with thisform.Pivot1
	.BeginUpdate
	.Import("C:\Program Files\Exontrol\ExPivot\Sample\data.txt")
	.Object.Description(11) = .FormatABC("`<fgcolor=808080> ` + value + ` </fgcolor>`",.Description(11))
	var_s = "(( ( value replace `[<b>` with `<bgcolor=000000><fgcolor=FFFFFF><b> ` replace `</b>]` with ` </b></bgcolor></fgcolor>` replace `"
	var_s = var_s + "[<s>` with `<bgcolor=C0C0C0><fgcolor=FFFFFF> ` replace `</s>]` with ` </fgcolor></bgcolor>` )  + `<r><fgcolor=808080>` + ( match"
	var_s = var_s + "itemcount < 0 ? ( ( len(value) ? `` : `` ) + `<r>` + abs(matchitemcount + 1) + ` result(s)` ) : (`<r><fgcolor=808080>`+ itemcoun"
	var_s = var_s + "t + ` item(s)`) )))"
	.FilterBarCaption = var_s
	.FilterBarPromptVisible = 2583 && FilterBarVisibleEnum.exFilterBarCompact Or FilterBarVisibleEnum.exFilterBarShowCloseIfRequired Or FilterBarVisibleEnum.exFilterBarSingleLine Or FilterBarVisibleEnum.exFilterBarCaptionVisible Or FilterBarVisibleEnum.exFilterBarVisible Or FilterBarVisibleEnum.exFilterBarPromptVisible
	with .FormatConditionalAppearances
		.Add("G1000","> 1000","value > 1000").ForeColor = RGB(0,0,255)
		.Add("L1000","< 1000","value < 1000").ForeColor = RGB(255,0,0)
		.Add("Zero","zero","value = 0").BackColor = RGB(224,224,224)
	endwith
	with .FormatAppearances
		.Add("grayed").ForeColor = RGB(128,128,128)
		.Add("red").ForeColor = RGB(255,0,0)
		.Add("green").ForeColor = RGB(0,255,0)
		.Add("blue").ForeColor = RGB(0,0,255)
		.Add("bgrayed").BackColor = RGB(128,128,128)
		.Add("bred").BackColor = RGB(255,0,0)
		.Add("bgreen").BackColor = RGB(0,255,0)
		.Add("bblue").BackColor = RGB(0,0,255)
	endwith
	.PivotRows = "0[bold],2[grayed]"
	.PivotColumns = "sum(5)[L1000],sum(5)[G1000]/12:A"
	.PivotTotals = "sum[bold,content=currency,bgrayed]"
	.AutoDrag = 16
	.BackColorAlternate = RGB(240,240,240)
	.FilterBarPromptType = 2
	.FilterBarPromptPattern = "France Germany"
	.EndUpdate
	DEBUGOUT( .Export("htm") )
endwith
129
Export Data in HTML format (IE)

with thisform.Pivot1
	.BeginUpdate
	.Import("C:\Program Files\Exontrol\ExPivot\Sample\data.txt")
	.Object.Description(11) = .FormatABC("`<fgcolor=808080> ` + value + ` </fgcolor>`",.Description(11))
	var_s = "(( ( value replace `[<b>` with `<bgcolor=000000><fgcolor=FFFFFF><b> ` replace `</b>]` with ` </b></bgcolor></fgcolor>` replace `"
	var_s = var_s + "[<s>` with `<bgcolor=C0C0C0><fgcolor=FFFFFF> ` replace `</s>]` with ` </fgcolor></bgcolor>` )  + `<r><fgcolor=808080>` + ( match"
	var_s = var_s + "itemcount < 0 ? ( ( len(value) ? `` : `` ) + `<r>` + abs(matchitemcount + 1) + ` result(s)` ) : (`<r><fgcolor=808080>`+ itemcoun"
	var_s = var_s + "t + ` item(s)`) )))"
	.FilterBarCaption = var_s
	.FilterBarPromptVisible = 2583 && FilterBarVisibleEnum.exFilterBarCompact Or FilterBarVisibleEnum.exFilterBarShowCloseIfRequired Or FilterBarVisibleEnum.exFilterBarSingleLine Or FilterBarVisibleEnum.exFilterBarCaptionVisible Or FilterBarVisibleEnum.exFilterBarVisible Or FilterBarVisibleEnum.exFilterBarPromptVisible
	with .FormatConditionalAppearances
		.Add("G1000","> 1000","value > 1000").ForeColor = RGB(0,0,255)
		.Add("L1000","< 1000","value < 1000").ForeColor = RGB(255,0,0)
		.Add("Zero","zero","value = 0").BackColor = RGB(224,224,224)
	endwith
	with .FormatAppearances
		.Add("grayed").ForeColor = RGB(128,128,128)
		.Add("red").ForeColor = RGB(255,0,0)
		.Add("green").ForeColor = RGB(0,255,0)
		.Add("blue").ForeColor = RGB(0,0,255)
		.Add("bgrayed").BackColor = RGB(128,128,128)
		.Add("bred").BackColor = RGB(255,0,0)
		.Add("bgreen").BackColor = RGB(0,255,0)
		.Add("bblue").BackColor = RGB(0,0,255)
	endwith
	.ShowBranchRows = 33 && ShowBranchRowsEnum.exBranchIncludeAggregate Or ShowBranchRowsEnum.exBranchTree
	.PivotRows = "0[bold],2[grayed]"
	.PivotColumns = "sum(5)[L1000],sum(5)[G1000]/12:A"
	.PivotTotals = "/sum[bold,content=currency,bgrayed]"
	.AutoDrag = 16
	.BackColorAlternate = RGB(240,240,240)
	.FilterBarPromptType = 2
	.FilterBarPromptPattern = "France Germany"
	.EndUpdate
	sFile = "c:/temp/export.htm"
	.Export(sFile,"vis")
	with CreateObject("InternetExplorer.Application")
	endwith
endwith
128
Export Data in CSV format

with thisform.Pivot1
	.BeginUpdate
	.Import("C:\Program Files\Exontrol\ExPivot\Sample\data.txt")
	.PivotRows = "0"
	.PivotColumns = "sum(5),sum(5)/12:A"
	.PivotTotals = "sum[bold,content=currency]"
	.AutoDrag = 16
	.BackColorAlternate = RGB(240,240,240)
	.EndUpdate
	DEBUGOUT( .Export() )
endwith
127
Is it possible to change the visual appearance of the update / reload button being displayed in the control's pivot bar

with thisform.Pivot1
	.BeginUpdate
	with .VisualAppearance
		var_s = "gBFLBCJwBAEHhEJAAEhABMsGACAADACAxRDgMQBQKAAzAJBIYhiG4cYCgMYxXDOCYXABCEYRXBIZQ7BKNIxjSJwCgkBYJDSMAiiaLETwHFKVRwkWBBWjMAAxDZFcggA7"
		var_s = var_s + "7fwxHaOAghGgobjaPY+UbGERAAKQahLJamablCSqLjCS4kSLHEbQHTcRSzLKQZBBCCSQKkYx0HScRiwPBIbQkIQmbajOaYDCiQ53QLCAYRXS9PwvI7AMBwLA8EwXBo9D"
		var_s = var_s + "ZiIy4WyuGj3R4WchAbIwIxUK6XHhmLjZXg+Bz9T6LQZ0JStEx2SYjAJqOiKU62W9xbAUOxQTpIBJXW7Oc7GTa8dQfPoJaIDLicHgoZ6NLIcOR0abSO42CRrdByfRYMwv"
		var_s = var_s + "isCQKnYOh9i4LwbBINpBHeBxeC6X4TAIEpzkIWgei8L4Qk2boEhWPg9C4SJijIOZ7mEXA/iAX5yBKDx/lmVhEC0Z5ZlKHgGAAYIHkGcQxiCQ5eA4PghAKNgSG0VYXEiJ"
		var_s = var_s + "YFl+QAtiCBpdjcDJkB0IgAiYIgBmIQAWCYCoigYZB4DQYpAjoLh3h6SJFgcOpXlAAQBICA=="
		.Add(1,var_s)
	endwith
	.Object.Background(184) = 0x1000000
	.Import("C:\Program Files\Exontrol\ExPivot\Sample\data.txt")
	.PivotBarVisible = 16780763 && PivotBarVisibleEnum.exPivotBarAllowFormatConditionalAppearance Or PivotBarVisibleEnum.exPivotBarAllowResizeColumns Or PivotBarVisibleEnum.exPivotBarAllowUndoRedo Or PivotBarVisibleEnum.exPivotBarAllowFormatContent Or PivotBarVisibleEnum.exPivotBarAllowFormatAppearance Or PivotBarVisibleEnum.exPivotBarAllowValues Or PivotBarVisibleEnum.exPivotBarShowTotals Or PivotBarVisibleEnum.exPivotBarAutoFit Or PivotBarVisibleEnum.exPivotBarSizable Or PivotBarVisibleEnum.exPivotBarVisible
	.EndUpdate
endwith
126
Is it possible to change the visual appearance of the plus/add new button being displayed in the control's pivot bar

with thisform.Pivot1
	.BeginUpdate
	with .VisualAppearance
		var_s = "gBFLBCJwBAEHhEJAAEhABDwCg6AADACAxRDgMQBQKAAzAJBIYhiG4cYCgMYxXDOCYXABCEYRXBIZQ7BKNIxjSJ5BhIAAyDSJMjSRJUEhqGCWYDleYYYAKHIMQLJQKQSB"
		var_s = var_s + "cQR9EaBZBAWTpQC0OJDTJRI4TNAgbSYAAYRqoCb6loTKypaxjCQQIgkUBpGKdBynEYsDwSGyJCCJWyIbpKAwoVbcs4AYhuJpaQi+d5PFbjVT8dLAMBwLA8EwXAJ+OpfD"
		var_s = var_s + "xXU7eFKpR5fchXTI8UxXFqXZhkeQrfh7KYVRBKdBQRBEFQPJqnahqOpaXo2RoLUJKcQwHTmHYNQTALyuTALZrWeZ3XrgN74LbtZzVQauYRpbCMEr6bpoWLnFi6Ho1U4l"
		var_s = var_s + "lWah1jqSweFqfxPgQQRphi+Yak0YIuqUfJegef4zluaJ3nqPJeCYH4BAeX5TDLBpVGqKRRnwf4flefZtHsX54BYAR/F+EwVnUd5eAMMJKDIChygyIQpAoEh4iIJ5JlgX"
		var_s = var_s + "IcgCXpIGoFwnGEQh6BEKBgmMIICHgIJCAiUAzgyUoAhwJohkiRgygwYpiGoKwzGIcgKCkNQNCMRIbCYCRYk4QoMiOchWDwNBjhiJJaDYTRiGiFwlCQAhOE8JBJHITIRg"
		var_s = var_s + "wZRZFCFCZBkOIUhKTRpCWAwgGYQ4El4NxlBifIWCcCYCFoaoMGaKYyG6GxlBmGJdhkCAWBIeA5g4U4QhMJAImkPIShRVxGgQJRlCIUISh+SJpnCZIeBgFgiHgO4OlOMI"
		var_s = var_s + "NCISByECDQikkGhuh2JwpmqBogCKaYiC6FwhmkQ4yHgYgYiaHopiuaRakCbIsisSpGjYOwaHYKYMCkK5CA2IxrCwCwFigaJrkLTI6lcdANAEgIA="
		.Add(1,var_s)
	endwith
	.Object.Background(183) = 0x1000000
	.Import("C:\Program Files\Exontrol\ExPivot\Sample\data.txt")
	.EndUpdate
endwith
125
Is it possible to change the visual appearance of the position signs when user changes the column's position by drag and drop

with thisform.Pivot1
	.BeginUpdate
	.HeaderAppearance = 4
	with .VisualAppearance
		var_s = "gBFLBCJwBAEHhEJAAEhABZEGACAADACAxRDgMQBQKAAzAJBIYhiG4cYCgMYxXDOCYXABCEYRXBIZQ7BKNIxjSJwFgmEgADKMA4SOKIZhrE4bBhGaQRUgyI43RhHUBzVI"
		var_s = var_s + "UcQvE6TZRHCQYHgkNIhDJIM7TPLkeSVJaTIRoKhJUogApQThTMgVRDEThkGoSa6soSoYTDBKybLrSLKagOT5YUDKUqSdKEZRpEq1YztWbaQoCUoqVRRVIWfbNd4JJa4a"
		var_s = var_s + "DhWpYdpeeY5R7bWLgBYVVABL7LLRsSxpHxPF6RXxaeI3GKsaS8G6ic6nPQMHj7I4NS5pUa6Rh2VYNSa8AAtETRYznOw4bTMXAjNIea5bAYIIR5HIoDzVbQcCQAHL9DBe"
		var_s = var_s + "EMIQEEISgGhMGZQmocgymoYRRCIEQ0G2HYBnEIBig4V4zCQGINnmagCECY43medZ6H2Pw/g+X5fnueh/h+R5+AKABfkMWgGgGYA4AICoCGCE5WA4CphACMgSD2IRIDIB"
		var_s = var_s + "ICmEd5YGCBpRjGBgegWIYIgWdgoGIRQsiKCZiAiJZ0gGQI4jUS4LECOAiBmDJflGfg2BSY4Al4OhGkOCJ2DgFJjGGfgqgiH5Ch4RhGkqOQmEOEpkFkHQYhJRYyESAokG"
		var_s = var_s + "KHhIhKIxJEmf4VGUeRGFmF5iBkchPhYJQ5GoYIZg6Ug6GoFYmkmNhuhulRGHKGoImefh0BUZ4JmYeoemeSZ2H6HQmgoBgXDqXwUAQgI="
		.Add(1,var_s)
		.Add(2,"CP:1 0 -36 0 0")
	endwith
	.Object.Background(182) = 0x2000000
	.Import("C:\Program Files\Exontrol\ExPivot\Sample\data.txt")
	.EndUpdate
endwith
124
FilterBarCaption ALL Keyword ( sample 2, result )

with thisform.Pivot1
	.BeginUpdate
	.Import("C:\Program Files\Exontrol\ExPivot\Sample\data.txt")
	.FilterBarFont = .Font
	.Object.Description(11) = .FormatABC("`<fgcolor=808080> ` + value + ` </fgcolor>`",.Description(11))
	var_s = "(( ( value replace `[<b>` with `<bgcolor=000000><fgcolor=FFFFFF><b> ` replace `</b>]` with ` </b></bgcolor></fgcolor>` replace `"
	var_s = var_s + "[<s>` with `<bgcolor=C0C0C0><fgcolor=FFFFFF> ` replace `</s>]` with ` </fgcolor></bgcolor>` )  + `<r><fgcolor=808080>` + ( match"
	var_s = var_s + "itemcount < 0 ? ( ( len(value) ? `` : `` ) + `<r>` + abs(matchitemcount + 1) + ` result(s)` ) : (`<r><fgcolor=808080>`+ itemcoun"
	var_s = var_s + "t + ` item(s)`) )))"
	.FilterBarCaption = var_s
	.FilterBarPromptVisible = 2583 && FilterBarVisibleEnum.exFilterBarCompact Or FilterBarVisibleEnum.exFilterBarShowCloseIfRequired Or FilterBarVisibleEnum.exFilterBarSingleLine Or FilterBarVisibleEnum.exFilterBarCaptionVisible Or FilterBarVisibleEnum.exFilterBarVisible Or FilterBarVisibleEnum.exFilterBarPromptVisible
	.EndUpdate
endwith
123
FilterBarCaption ALL Keyword ( sample 1 )

with thisform.Pivot1
	.BeginUpdate
	.Import("C:\Program Files\Exontrol\ExPivot\Sample\data.txt")
	.FilterBarFont = .Font
	.Object.Description(11) = .FormatABC("`<fgcolor=808080> ` + value + ` </fgcolor>`",.Description(11))
	.FilterBarCaption = "all"
	.FilterBarPromptVisible = 3 && FilterBarVisibleEnum.exFilterBarVisible Or FilterBarVisibleEnum.exFilterBarPromptVisible
	.EndUpdate
endwith
122
FilterBarCaption ALLUI Keyword ( sample 2, result )

with thisform.Pivot1
	.BeginUpdate
	.Import("C:\Program Files\Exontrol\ExPivot\Sample\data.txt")
	.FilterBarFont = .Font
	.Object.Description(11) = .FormatABC("`<fgcolor=808080> ` + value + ` </fgcolor>`",.Description(11))
	var_s = "(( ( allui replace `[<b>` with `<bgcolor=000000><fgcolor=FFFFFF><b> ` replace `</b>]` with ` </b></bgcolor></fgcolor>` replace `"
	var_s = var_s + "[<s>` with `<bgcolor=C0C0C0><fgcolor=FFFFFF> ` replace `</s>]` with ` </fgcolor></bgcolor>` )  + `<r><fgcolor=808080>` + ( match"
	var_s = var_s + "itemcount < 0 ? ( ( len(value) ? `` : `` ) + `<r>` + abs(matchitemcount + 1) + ` result(s)` ) : (`<r><fgcolor=808080>`+ itemcoun"
	var_s = var_s + "t + ` item(s)`) )))"
	.FilterBarCaption = var_s
	.FilterBarPromptVisible = 3 && FilterBarVisibleEnum.exFilterBarVisible Or FilterBarVisibleEnum.exFilterBarPromptVisible
	.EndUpdate
endwith
121
FilterBarCaption ALLUI Keyword ( sample 1 )

with thisform.Pivot1
	.BeginUpdate
	.Import("C:\Program Files\Exontrol\ExPivot\Sample\data.txt")
	.FilterBarFont = .Font
	.Object.Description(11) = .FormatABC("`<fgcolor=808080> ` + value + ` </fgcolor>`",.Description(11))
	.FilterBarCaption = "allui"
	.FilterBarPromptVisible = 3 && FilterBarVisibleEnum.exFilterBarVisible Or FilterBarVisibleEnum.exFilterBarPromptVisible
	.EndUpdate
endwith
120
FilterBarCaption AVAILABLE Keyword ( sample 2, result )

with thisform.Pivot1
	.BeginUpdate
	.Import("C:\Program Files\Exontrol\ExPivot\Sample\data.txt")
	.FilterBarFont = .Font
	.Object.Description(11) = .FormatABC("`<fgcolor=808080> ` + value + ` </fgcolor>`",.Description(11))
	var_s = "(( ( value replace `[` with `<bgcolor=000000><fgcolor=FFFFFF><b> ` replace `]` with ` </b></bgcolor></fgcolor>` ) + ` ` + ( avai"
	var_s = var_s + "lable replace `[` with `<bgcolor=C0C0C0><fgcolor=FFFFFF><b> ` replace `]` with ` </b></bgcolor></fgcolor>` replace `<s>` with ``"
	var_s = var_s + " replace `</s>` with `` ) + `<fgcolor=808080>` + ( matchitemcount < 0 ? ( ( len(value) ? `` : `` ) + `<r>` + abs(matchitemcount "
	var_s = var_s + "+ 1) + ` result(s)` ) : (`<r><fgcolor=808080>`+ itemcount + ` item(s)`) )))"
	.FilterBarCaption = var_s
	.FilterBarPromptVisible = 3 && FilterBarVisibleEnum.exFilterBarVisible Or FilterBarVisibleEnum.exFilterBarPromptVisible
	.EndUpdate
endwith
119
FilterBarCaption AVAILABLE Keyword ( sample 1 )

with thisform.Pivot1
	.BeginUpdate
	.Import("C:\Program Files\Exontrol\ExPivot\Sample\data.txt")
	.FilterBarFont = .Font
	.Object.Description(11) = .FormatABC("`<fgcolor=808080> ` + value + ` </fgcolor>`",.Description(11))
	.FilterBarCaption = "value + ` ` + available"
	.FilterBarPromptVisible = 3 && FilterBarVisibleEnum.exFilterBarVisible Or FilterBarVisibleEnum.exFilterBarPromptVisible
	.EndUpdate
endwith
118
Is it possible to somehow highlight the column's name different than its filter value in the control's filter bar ( sample 3, results )

with thisform.Pivot1
	.BeginUpdate
	.Import("C:\Program Files\Exontrol\ExPivot\Sample\data.txt")
	.FilterBarFont = .Font
	.Object.Description(11) = .FormatABC("`<fgcolor=808080>` + value + `</fgcolor>`",.Description(11))
	var_s = "(`<b>` + value + `</b><fgcolor=808080>` + ( matchitemcount < 0 ? ( ( len(value) ? `` : `` ) + `<r>` + abs(matchitemcount + 1) + "
	var_s = var_s + "` result(s)` ) : (`<fgcolor=808080>`+ itemcount + ` item(s)`) )) replace `[` with `<bgcolor=000000><fgcolor=FFFFFF><b> ` replace"
	var_s = var_s + " `]` with ` </b></bgcolor></fgcolor>`"
	.FilterBarCaption = var_s
	.FilterBarPromptVisible = 256
	.EndUpdate
endwith
117
Is it possible to somehow highlight the column's name different than its filter value in the control's filter bar ( sample 2 )

with thisform.Pivot1
	.BeginUpdate
	.Import("C:\Program Files\Exontrol\ExPivot\Sample\data.txt")
	.FilterBarFont = .Font
	.Object.Description(11) = .FormatABC("`<fgcolor=808080>` + value + `</fgcolor>`",.Description(11))
	.FilterBarCaption = "value replace `[` with `<bgcolor=000000><fgcolor=FFFFFF><b> ` replace `]` with ` </b></bgcolor></fgcolor>`"
	.FilterBarPromptVisible = 256
	.EndUpdate
endwith
116
Is it possible to somehow highlight the column's name different than its filter value in the control's filter bar ( sample 1 )

with thisform.Pivot1
	.BeginUpdate
	.Import("C:\Program Files\Exontrol\ExPivot\Sample\data.txt")
	.Object.Description(11) = .FormatABC("`<fgcolor=808080>` + value + `</fgcolor>`",.Description(11))
	.FilterBarCaption = "value replace `[` with `<fgcolor=808080>[` replace `]` with `]</fgcolor>`"
	.FilterBarPromptVisible = 256
	.EndUpdate
endwith
115
Is it possible to automatically displays the control's filter label to the right

with thisform.Pivot1
	.BeginUpdate
	.Import("C:\Program Files\Exontrol\ExPivot\Sample\data.txt")
	.FilterBarCaption = "`<r>` + value"
	.FilterBarPromptVisible = 1280 && FilterBarVisibleEnum.exFilterBarShowCloseOnRight Or FilterBarVisibleEnum.exFilterBarToggle
	.EndUpdate
endwith
114
How can I get the number of results/items being shown in the control's filter bar (sample 4)

with thisform.Pivot1
	.BeginUpdate
	.Import("C:\Program Files\Exontrol\ExPivot\Sample\data.txt")
	.FilterBarFont = .Font
	.FilterBarPrompt = .FormatABC("`<b>` + value",.FilterBarPrompt)
	var_s = "`<b><r>` + value + `</b><fgcolor=808080>` + ( matchitemcount < 0 ? ( ( len(value) ? `<br>` : `` ) + `<r>` + abs(matchitemcount +"
	var_s = var_s + " 1) + ` result(s)` ) : (`<fgcolor=808080>`+ itemcount + ` item(s)`) )"
	.FilterBarCaption = var_s
	.FilterBarPromptVisible = 3591 && FilterBarVisibleEnum.exFilterBarCompact Or FilterBarVisibleEnum.exFilterBarShowCloseOnRight Or FilterBarVisibleEnum.exFilterBarShowCloseIfRequired Or FilterBarVisibleEnum.exFilterBarCaptionVisible Or FilterBarVisibleEnum.exFilterBarVisible Or FilterBarVisibleEnum.exFilterBarPromptVisible
	.EndUpdate
endwith
113
How can I get the number of results being shown in the control's filter bar (sample 3)

with thisform.Pivot1
	.BeginUpdate
	.Import("C:\Program Files\Exontrol\ExPivot\Sample\data.txt")
	.FilterBarFont = .Font
	var_s = "`<b><r>` + value + `</b><fgcolor=808080>` + ( matchitemcount < 0 ? ( ( len(value) ? `<br>` : `` ) + `<r>` + abs(matchitemcount +"
	var_s = var_s + " 1) + ` result(s)` ) : ``)"
	.FilterBarCaption = var_s
	.FilterBarPromptVisible = 2055 && FilterBarVisibleEnum.exFilterBarCompact Or FilterBarVisibleEnum.exFilterBarCaptionVisible Or FilterBarVisibleEnum.exFilterBarVisible Or FilterBarVisibleEnum.exFilterBarPromptVisible
	.EndUpdate
endwith
112
How can I get the number of results being shown in the control's filter bar (sample 2, compact)

with thisform.Pivot1
	.BeginUpdate
	.Import("C:\Program Files\Exontrol\ExPivot\Sample\data.txt")
	.FilterBarFont = .Font
	.FilterBarCaption = "`<b><r>` + value + `</b><fgcolor=808080>` + ( matchitemcount < 0 ? `<off -4> ` + abs(matchitemcount + 1) + ` result(s)` : ``)"
	.FilterBarPromptVisible = 2071 && FilterBarVisibleEnum.exFilterBarCompact Or FilterBarVisibleEnum.exFilterBarSingleLine Or FilterBarVisibleEnum.exFilterBarCaptionVisible Or FilterBarVisibleEnum.exFilterBarVisible Or FilterBarVisibleEnum.exFilterBarPromptVisible
	.EndUpdate
endwith
111
How can I get the number of results being shown in the control's filter bar (sample 1)

with thisform.Pivot1
	.BeginUpdate
	.Import("C:\Program Files\Exontrol\ExPivot\Sample\data.txt")
	.FilterBarFont = .Font
	.FilterBarCaption = "`<b>` + value + `</b><r><fgcolor=808080>` + ( matchitemcount < 0 ? abs(matchitemcount + 1) + ` result(s)` : ``)"
	.FilterBarPromptVisible = 7 && FilterBarVisibleEnum.exFilterBarCaptionVisible Or FilterBarVisibleEnum.exFilterBarVisible Or FilterBarVisibleEnum.exFilterBarPromptVisible
	.EndUpdate
endwith
110
FilterBarCaption Predefined Keywords

with thisform.Pivot1
	.BeginUpdate
	.Import("C:\Program Files\Exontrol\ExPivot\Sample\data.txt")
	.LinesAtRoot = -1
	.FilterInclude = 1
	.FilterBarFont = .Font
	var_s = "`<fgcolor=0000FF><i>value/current</i></fgcolor>: <fgcolor=808080>` + value + `</fgcolor>` + `<br><fgcolor=0000FF><i>available</i"
	var_s = var_s + "></fgcolor>: ` + available + `<br><fgcolor=0000FF><i>allui</i></fgcolor>: ` + allui + `<br><fgcolor=0000FF><i>all</i></fgcolor>:"
	var_s = var_s + " ` + all + `<br><fgcolor=0000FF><i>itemcount</i></fgcolor>: <fgcolor=808080>` + itemcount + `</fgcolor>`+ `<br><fgcolor=0000FF><"
	var_s = var_s + "i>visibleitemcount</i></fgcolor>: <fgcolor=808080>` + visibleitemcount + `</fgcolor>`+ `<br><fgcolor=0000FF><i>matchitemcount</i"
	var_s = var_s + "></fgcolor>: <fgcolor=808080>` + matchitemcount + `</fgcolor>`+ `<br><fgcolor=0000FF><i>promptpattern</i></fgcolor>: <fgcolor=80"
	var_s = var_s + "8080>` + promptpattern + `</fgcolor>`+ `<br><fgcolor=0000FF><i>leafitemcount</i></fgcolor>: <fgcolor=808080>` + leafitemcount + "
	var_s = var_s + "`</fgcolor>`"
	.FilterBarCaption = var_s
	.FilterBarPromptPattern = "USA"
	.FilterBarPromptVisible = 7 && FilterBarVisibleEnum.exFilterBarCaptionVisible Or FilterBarVisibleEnum.exFilterBarVisible Or FilterBarVisibleEnum.exFilterBarPromptVisible
	.EndUpdate
endwith
109
I am using filter prompt feature, and also column's filter, just wondering if possible to compact displaying the filter bar so it won't show on multiple lines

with thisform.Pivot1
	.BeginUpdate
	.Import("C:\Program Files\Exontrol\ExPivot\Sample\data.txt")
	.FilterBarFont = .Font
	.FilterBarCaption = "`<r><i><fgcolor=808080><upline><solidline><sha ;;0>` + value"
	.FilterBarPromptPattern = "USA"
	.FilterBarPromptVisible = 2067 && FilterBarVisibleEnum.exFilterBarCompact Or FilterBarVisibleEnum.exFilterBarSingleLine Or FilterBarVisibleEnum.exFilterBarVisible Or FilterBarVisibleEnum.exFilterBarPromptVisible
	.EndUpdate
endwith
108
Just wondering if it is possible to show the filter bar's close button on the right ( sample 2 )

with thisform.Pivot1
	.BeginUpdate
	.Import("C:\Program Files\Exontrol\ExPivot\Sample\data.txt")
	.FilterBarPromptVisible = 1281 && FilterBarVisibleEnum.exFilterBarShowCloseOnRight Or FilterBarVisibleEnum.exFilterBarToggle Or FilterBarVisibleEnum.exFilterBarPromptVisible
	.FilterBarPrompt = .FormatABC("`<r>` + value",.FilterBarPrompt)
	.EndUpdate
endwith
107
How can I change the visual appearance of the filter bar's close button (EBN)

with thisform.Pivot1
	.BeginUpdate
	with .VisualAppearance
		var_s = "gBFLBCJwBAEHhEJAAEhABHQDg6AADACAxRDgMQBQKAAzAJBIYhiG4cYCgMZhXDOCYXABCEYRXBIZQ7BKNIxjSJ5BhIAAyDSJMjSRJUEhqGCWYDleYYYAKHIMQLOg7IJj"
		var_s = var_s + "yI4/SJAYCydKAWhxIaZKJHCZoEDaTAADCNVAQp6MEIJVbVEI0e79OgBLp/Z7kECIJJAaRjHQdJxGLA8EhtCQhCZteK6SgMKJYXhWQYRXI1JwvMBrWrdQjiOYELQtMKmS"
		var_s = var_s + "ZNLYGG4dR5SVJbcYhSYsRRFMoyDIOXYDLKsdYqSpXIThObEGgaPqJYjsUjCMKnR7HVIURrBPC9TBPE69ZgmC6ucKPX51ShKFaBWDZcwFAS+UBuYCAILiEAQGZ1XT8ORO"
		var_s = var_s + "icbgJgSTJRlCaZeDsHY7QGR4xkSYp3CaExZAQMgalQYAwjCAAfBANxcA2TgKAUOpDCGFhKg0RpXCwCwDHQHQHEyAIkCkOhbFOGA8A8DohBgRg9AccZcn8EpEjMLI2C2D"
		var_s = var_s + "YxAgQgvAIUIVkoAAPBQDJlECTZ3CCYwDACQwUA8A5MCAWAWDiQi4l8aQOEgLJuBgBgDmYFAzEoIoIl0WALgKYJbBABADAAHgHg8VAMmqCQQDMXABAATYwTmNwBDATJXA"
		var_s = var_s + "iAgjHmNQ5lgQ5QEQEQMmcWg/GwD5ylyNw2gMcJcjsBgBgOQQDDhRpVAMMwnDBFw1B0Ax8D0DxOmmJJIGQTY5hGMAwkwM4CAYLZAmAOJnAqAojiIGg6iieYkmeAYOHaKJ"
		var_s = var_s + "DCyCwjH6AoggsQpQliAJLhgaJ0CESBTnyDwjk+cg4g4P5IHIHJ+BWRRzlYWAxiOUxihsY4KjKLJRGqC44FCegkkkM58iAKAPnIWIWD8SRSFSfQnkmewUhYP4GiGKJ7G0"
		var_s = var_s + "TIbCSUoggqUo0lAQ4LnEcBcD8Coiiif4nE+eAAn2HpOkcFJqi4T5SkyMw/kqQown8IBIBOdA+A+DJrBqVxXEqYo4lCApLhGHBnD8S4ymyfxmg+cwQkQP5egOUZIWoEAk"
		var_s = var_s + "jIeIPBMBJBD+TBjBifwvkuc58hQJQPmFrYykkchclSApKjGOBuD+TRDFCfw3mmIxNi8FxFlOXhVC4aYDFyPgvg2YBcBcLZGCGCJ0DSLRzGSWQ/lmY5+mEP5gmMDBZRSM"
		var_s = var_s + "RsFsOxMhMJJ/DsTpTnwaQaE+N5ojuNhdEYNI5C4TZJO1GRDmCaxnA2Yx4n8IpIjOTBQBQC5TgyYw7gUYRYikC0BYRwsDQBoB8eA6Q2hsE0BUXgywZtYCyHMKwnxSAhAQ"
		var_s = var_s + "HkIQhRrBaDsCwA4ERiB2EWAIYIXhhiVEgAEUYwwYjyASLge4FhHgRDkM8OQih0jWPkGgBBAQ"
		.Add(1,var_s)
	endwith
	.Import("C:\Program Files\Exontrol\ExPivot\Sample\data.txt")
	.FilterBarPromptVisible = 257 && FilterBarVisibleEnum.exFilterBarToggle Or FilterBarVisibleEnum.exFilterBarPromptVisible
	.Object.Background(1) = 0x1000000
	.EndUpdate
endwith
106
How can I change the visual appearance of the filter bar's close button (solid)

with thisform.Pivot1
	.BeginUpdate
	.Import("C:\Program Files\Exontrol\ExPivot\Sample\data.txt")
	.FilterBarPromptVisible = 1
	.Object.Background(1) = RGB(255,0,0)
	.EndUpdate
endwith
105
Is it possible to prevent definitely showing the filter bar's close button

with thisform.Pivot1
	.BeginUpdate
	.Import("C:\Program Files\Exontrol\ExPivot\Sample\data.txt")
	.FilterBarPromptVisible = 1
	.Object.Background(1) = -1
	.EndUpdate
endwith
104
Is it possible to show the close button only if there is a filter applied

with thisform.Pivot1
	.BeginUpdate
	.Import("C:\Program Files\Exontrol\ExPivot\Sample\data.txt")
	.FilterBarPromptVisible = 513 && FilterBarVisibleEnum.exFilterBarShowCloseIfRequired Or FilterBarVisibleEnum.exFilterBarPromptVisible
	.EndUpdate
endwith
103
The control's filter bar is not closed once I click the close button (toggle)
with thisform.Pivot1
	.BeginUpdate
	.Import("C:\Program Files\Exontrol\ExPivot\Sample\data.txt")
	.FilterBarCaption = "`<r><fgcolor=808080>` + value"
	.FilterBarPromptPattern = "USA"
	.FilterBarPromptVisible = 2323 && FilterBarVisibleEnum.exFilterBarCompact Or FilterBarVisibleEnum.exFilterBarToggle Or FilterBarVisibleEnum.exFilterBarSingleLine Or FilterBarVisibleEnum.exFilterBarVisible Or FilterBarVisibleEnum.exFilterBarPromptVisible
	.EndUpdate
endwith
102
How can I display the control's filter on a single line

with thisform.Pivot1
	.BeginUpdate
	.Import("C:\Program Files\Exontrol\ExPivot\Sample\data.txt")
	.FilterBarCaption = "len(value) ? `filter for: <fgcolor 808080>` + value  : `<fgcolor 808080>no filter`"
	.FilterBarPromptVisible = 18 && FilterBarVisibleEnum.exFilterBarSingleLine Or FilterBarVisibleEnum.exFilterBarVisible
	.EndUpdate
endwith
101
How can I display the control's filter on a single line (prompt-combined)

with thisform.Pivot1
	.BeginUpdate
	.Import("C:\Program Files\Exontrol\ExPivot\Sample\data.txt")
	.FilterBarCaption = "`<r>` + value"
	.FilterBarPromptVisible = 2067 && FilterBarVisibleEnum.exFilterBarCompact Or FilterBarVisibleEnum.exFilterBarSingleLine Or FilterBarVisibleEnum.exFilterBarVisible Or FilterBarVisibleEnum.exFilterBarPromptVisible
	.EndUpdate
endwith
100
How can I programmatically clear the control's filter
*** Click event - Occurs when the user presses and then releases the left mouse button over the control. ***
LPARAMETERS nop
	with thisform.Pivot1
		.ClearFilter
	endwith

with thisform.Pivot1
	.BeginUpdate
	.Import("C:\Program Files\Exontrol\ExPivot\Sample\data.txt")
	.FilterBarPromptVisible = 1
	.FilterBarPromptPattern = "USA"
	.EndUpdate
endwith
99
Is it possible to prevent closing the control's filter bar, so it is always shown (prompt-combined)

with thisform.Pivot1
	.BeginUpdate
	.Import("C:\Program Files\Exontrol\ExPivot\Sample\data.txt")
	.FilterBarPromptPattern = "USA"
	.FilterBarPromptVisible = 3 && FilterBarVisibleEnum.exFilterBarVisible Or FilterBarVisibleEnum.exFilterBarPromptVisible
	.EndUpdate
endwith
98
Is it possible to prevent closing the control's filter bar, so it is always shown (prompt)

with thisform.Pivot1
	.BeginUpdate
	.Import("C:\Program Files\Exontrol\ExPivot\Sample\data.txt")
	.FilterBarPromptVisible = 1
	.FilterBarPromptPattern = "USA"
	.EndUpdate
endwith
97
Is it possible to prevent closing the control's filter bar, so it is always shown

with thisform.Pivot1
	.BeginUpdate
	.Import("C:\Program Files\Exontrol\ExPivot\Sample\data.txt")
	.FilterBarCaption = "len(value) = 0 ? `<fgcolor=808080>no filter` : value"
	.FilterBarPromptVisible = 2
	.EndUpdate
endwith
96
How can I find if the control is running in DPI mode
with thisform.Pivot1
	DEBUGOUT( .FormatABC("dpi = 1 ? `normal/stretch mode` : `dpi mode`") )
endwith
95
If I connect it to a datasource, all works perfectly but the records that I see in the control is a little number of total of the recordset. I need to show all 60.000 rows of the recordset without click on the [...] button. It’s possible to setting up this parameters
with thisform.Pivot1
	.DisplayPivotData = -1
	.Import("C:\Program Files\Exontrol\ExPivot\Sample\data.txt")
endwith
94
How do I change the drop down filter icon/button (white)

with thisform.Pivot1
	.BeginUpdate
	with .VisualAppearance
		var_s = "gBFLBCJwBAEHhEJAAEhABX8GACAADACAxSDEMQBQKAAzQFAYbhgHCGAAGQaBUgmFgAQhFcZQSKUOQTDKNYykCIRSDUJYkSZEIyjBI8ExXFqNACkGKwYgmNYiTLAcgANJ"
		var_s = var_s + "0WBaGIZJ4gOT5fDKMoEDRRYADFCscwxJybQAqGQKKb+VgAVY/cTyBIAEQSKA0TDOQ5TSKWB4JPZQRBEbZMNBtBIUJquKaqShdQJCU5FdY3Xblez9P7AMBwLFEC4NQ8YN"
		var_s = var_s + "YuPhjR4dRTIMhvVAsUArFh8Zg9GZZFjmDIDT4ydBLTQwcyVIKnP5qOa6XbmPoCQDYKxZHYxPzVDa3axuL76dqCAT7XrXNy1TbNRrzQKfcJqfCbdw2YaDZLOOT3fjuI4h"
		var_s = var_s + "hKaRzFAHJ+jYQ4xHuY4gHuGIXGeExqC8Tp6C+PoEm+G5ImycRgh0XwvDGa5rgOeoejyXwnFeQp2mkf5ClgBB9gCWIYAwfYAEKV58mkdwOggNArgOXY2EWLoDkKOA0mgb"
		var_s = var_s + "hOGgZApgaSBIHWSYHSmbApgYThmESZYJkIeIkgeCpfliLIHgpMIcmUYYYmODAlg2SI4mWfRfGOEguDcCRjFYAJihCQhJBSDoRmONgKEcI4kFCEJhhOVYTmYnAlEAQhWB"
		var_s = var_s + "MJYJGYWoWmWSR2F6F5lnkWAQhUAgpEieRWEuSYkjWGpmkmNhuhuZwJkYcocmaaYkjyEhngnUA6lEFAlAEgI="
		.Add(2,var_s)
		.Add(1,"CP:2 -6 -4 2 4")
	endwith
	.Object.Background(0) = 0x1000000
	.Object.Background(32) = .BackColor
	.HeaderVisible = .T.
	.HeaderHeight = 24
	.Import("C:\Program Files\Exontrol\ExPivot\Sample\data.txt")
	.DisplayFilterList = 288 && FilterListEnum.exShowCheckBox Or FilterListEnum.exSortItemsAsc
	.PivotBarVisible = 1
	.EndUpdate
endwith
93
How do I change the drop down filter icon/button (black)

with thisform.Pivot1
	.BeginUpdate
	with .VisualAppearance
		var_s = "gBFLBCJwBAEHhEJAAEhABXUIQAAYAQGKIcBiAKBQAGYBIJDEMgzDDAUBjKKocQTC4AIQjCK4JDKHYJRpHEZyCA8EhqGASRAFUQBYiWE4oSpLABQaK0ZwIGyRIrkGQgQg"
		var_s = var_s + "mPYDSDNU4zVIEEglBI0TDNczhNDENgtGYaJqHIYpZBcM40TKkEZoSIITZcRrOEBiRL1S0RBhGcRUHZlWzdN64LhuK47UrWdD/XhdVzXRbjfz1Oq+bxve48Br7A5yYThd"
		var_s = var_s + "r4LhOFQ3RjIL4xbIcUwGe6VZhjOLZXjmO49T69HTtOCYBEBA"
		.Add(1,var_s)
	endwith
	.Object.Background(0) = 0x1000000
	.Object.Background(32) = -1
	.BackColorHeader = RGB(0,0,0)
	.ForeColorHeader = RGB(255,255,255)
	.HeaderVisible = .T.
	.HeaderHeight = 22
	.Import("C:\Program Files\Exontrol\ExPivot\Sample\data.txt")
	.DisplayFilterList = 288 && FilterListEnum.exShowCheckBox Or FilterListEnum.exSortItemsAsc
	.EndUpdate
endwith
92
How do I prevent showing the control's BackColorAlternate property on empty / non-items part of the control

with thisform.Pivot1
	.BeginUpdate
	.BackColorAlternate = 0x7ff0f0f0
	.Import("C:\Program Files\Exontrol\ExPivot\Sample\data.txt")
	.PivotRows = "12"
	.PivotColumns = "sum(5)"
	.EndUpdate
endwith
91
How can I find out if the user clicks the grid's header
*** MouseMove event - Occurs when the user moves the mouse. ***
LPARAMETERS Button,Shift,X,Y
	with thisform.Pivot1
		DEBUGOUT( "Type of ColumnFromPoint: " )
		DEBUGOUT( .ColumnFromPoint(-1,-1) )
		DEBUGOUT( " should not be VT_NULL" )
		DEBUGOUT( "Type of ValueFromPoint: " )
		DEBUGOUT( .ValueFromPoint(-1,-1) )
		DEBUGOUT( " should be VT_NULL" )
	endwith

with thisform.Pivot1
	.Import("C:\Program Files\Exontrol\ExPivot\Sample\data.txt")
	.PivotRows = "0"
	.PivotColumns = "sum(5)"
endwith
90
What should I set FormatPivotHeader to, to show it on the columns header only

with thisform.Pivot1
	.BeginUpdate
	.Import("C:\Program Files\Exontrol\ExPivot\Sample\data.txt")
	.PivotRows = "0"
	.PivotColumns = "sum(5)/12"
	var_s = "(iaggregate ? ( caption + ` <off -6><font ;6>(` + lower(caggregate) + ')</off></font>') : caption) + ( ( display=1 ? `<c>Date: <"
	var_s = var_s + "b><upline><dotline>` + date(`now`) : `` ) + `</dotline> </b>` )"
	.FormatPivotHeader = var_s
	.EndUpdate
endwith
89
What should I set FormatPivotHeader to, to show "Report Generated on 7/9/2016 14:20" etc when the report is executed (ie the date and time will change)

with thisform.Pivot1
	.BeginUpdate
	.Import("C:\Program Files\Exontrol\ExPivot\Sample\data.txt")
	.PivotRows = "0"
	.PivotColumns = "sum(5)/12"
	var_s = "(iaggregate ? (`<b>` + caption + `</b> <off -6><font ;6>(` + lower(caggregate) + ')</off></font>') : caption) + `<r>ReportDate: "
	var_s = var_s + "` + date(`now`)"
	.FormatPivotHeader = var_s
	.EndUpdate
endwith
88
Is it possible to display aggregate result on parent rows as well

with thisform.Pivot1
	.BeginUpdate
	.HeaderHeight = 22
	.DefaultItemHeight = 20
	.Import("C:\Program Files\Exontrol\ExPivot\Sample\data.txt")
	.PivotRows = "12[bold],0"
	with .FormatConditionalAppearances.Add("nempty","not empty","")
		.Expression = "len(value) != 0"
		.BackColor = RGB(240,240,240)
	endwith
	.PivotColumns = "sum(5)[nempty]/6"
	.IncludeExpandColumn = 1
	.DrawGridLines = 0
	.ShowBranchRows = 33 && ShowBranchRowsEnum.exBranchIncludeAggregate Or ShowBranchRowsEnum.exBranchTree
	.EndUpdate
endwith
87
How do I show expanded/collapsed rows

with thisform.Pivot1
	.BeginUpdate
	.HeaderHeight = 22
	.DefaultItemHeight = 20
	.Import("C:\Program Files\Exontrol\ExPivot\Sample\data.txt")
	.PivotRows = "12[bold],0"
	with .FormatConditionalAppearances.Add("nempty","not empty","")
		.Expression = "len(value) != 0"
		.BackColor = RGB(240,240,240)
	endwith
	.PivotColumns = "sum(5)[nempty]/6"
	.IncludeExpandColumn = 1
	.DrawGridLines = 0
	.EndUpdate
endwith
86
How do I show expanded/collapsed columns

with thisform.Pivot1
	.BeginUpdate
	.HeaderHeight = 22
	.DefaultItemHeight = 20
	.Import("C:\Program Files\Exontrol\ExPivot\Sample\data.txt")
	.PivotRows = "0"
	with .FormatConditionalAppearances.Add("nempty","not empty","")
		.Expression = "len(value) != 0"
		.BackColor = RGB(240,240,240)
	endwith
	.PivotColumns = "sum(5)[nempty]/12"
	.FormatPivotHeader = "(iaggregate ? ( caption + ` <r>[` + lower(caggregate) + `]` ) : caption)"
	.IncludeExpandColumn = 1
	.EndUpdate
endwith
85
Where you have say "Sum of ...." as the first row heading of the pivot are there and options to be able to change this text as a whole

with thisform.Pivot1
	.BeginUpdate
	.Import("C:\Program Files\Exontrol\ExPivot\Sample\data.txt")
	.PivotRows = "0"
	with .FormatConditionalAppearances.Add("nempty","not empty","")
		.Expression = "len(value) != 0"
		.BackColor = RGB(240,240,240)
	endwith
	.PivotColumns = "sum(5)[nempty]/12"
	.FormatPivotHeader = "(iaggregate ? (`<b>` + caption + `</b> <off -6><font ;6>(` + lower(caggregate) + ' )') : caption)"
	.EndUpdate
endwith
84
How can I get the data column from the cursor
*** MouseMove event - Occurs when the user moves the mouse. ***
LPARAMETERS Button,Shift,X,Y
	with thisform.Pivot1
		DEBUGOUT( "DataColumn" )
		DEBUGOUT( .DataColumnFromPoint(-1,-1) )
	endwith

with thisform.Pivot1
	.Import("C:\Program Files\Exontrol\ExPivot\Sample\data.txt")
	.PivotRows = "0"
	.PivotColumns = "sum(5)[content=numeric]"
	.Refresh
endwith
83
Is there any way for the user to change the alignment at runtime (using excontextmenu)

*** RClick event - Occurs once the user right clicks the control. ***
LPARAMETERS nop
	*** FlatImageWidth = 0
	*** ToString = "Alignment[align=1][dis],[group=0x71](Left[typ=2][grp=100][close=0][id=0],Center[typ=2][grp=100][close=0][id=1],Right[typ=2][grp=100][close=0][id=2])"
	*** item(h).Checked = True
	*** h = Select()
	with thisform.Pivot1
		h = .DataColumns.Item(5).Alignment && .DataColumns.Item(5).Alignment
		with c
		endwith
		with .DataColumns.Item(5)
			.Alignment = h && h
			.HeaderAlignment = h && h
		endwith
		.Refresh
	endwith

with thisform.Pivot1
	.PivotBarVisible = 3609 && PivotBarVisibleEnum.exPivotBarAllowResizeColumns Or PivotBarVisibleEnum.exPivotBarAllowUndoRedo Or PivotBarVisibleEnum.exPivotBarAutoUpdate Or PivotBarVisibleEnum.exPivotBarShowTotals Or PivotBarVisibleEnum.exPivotBarAutoFit Or PivotBarVisibleEnum.exPivotBarVisible
	.Import("C:\Program Files\Exontrol\ExPivot\Sample\data.txt")
	with .DataColumns.Item(5)
		.Alignment = 2
		.HeaderAlignment = 2
	endwith
	.PivotRows = "0"
	.PivotColumns = "sum(5)[content=numeric]"
	.Refresh
endwith
82
Is there any way for the user to change the alignment at runtime

*** RClick event - Occurs once the user right clicks the control. ***
LPARAMETERS nop
	with thisform.Pivot1
		DEBUGOUT( "The column gets aligned to the center" )
		with .DataColumns.Item(5)
			.Alignment = 1
			.HeaderAlignment = 1
		endwith
		.Refresh
	endwith

with thisform.Pivot1
	.Import("C:\Program Files\Exontrol\ExPivot\Sample\data.txt")
	with .DataColumns.Item(5)
		.Alignment = 2
		.HeaderAlignment = 2
	endwith
	.PivotRows = "0"
	.PivotColumns = "sum(5)[content=numeric]"
	.Refresh
endwith
81
How can I align a column to the right

with thisform.Pivot1
	.Import("C:\Program Files\Exontrol\ExPivot\Sample\data.txt")
	with .DataColumns.Item(5)
		.Alignment = 2
		.HeaderAlignment = 2
	endwith
	.PivotRows = "0"
	.PivotColumns = "sum(5)[content=numeric]"
	.Refresh
endwith
80
How can I display the control's content on an single A3 paper size, when using PDF format
with thisform.Pivot1
	.BeginUpdate
	.VisualAppearance.Add(1,"c:\exontrol\images\normal.ebn")
	.Import("C:\Program Files\Exontrol\ExPivot\Sample\data.txt")
	.FormatConditionalAppearances.Item("positive").BackColor = 0x100ff00
	.FormatConditionalAppearances.Item("negative").BackColor = 0x10000ff
	.PivotRows = "0"
	.PivotColumns = "sum(5)[positive,negative]/12"
	.ExpandAll
	var_CopyTo = .CopyTo("C:\Temp\Preview.pdf|11.69 in x 16.53 in||single")
	DEBUGOUT( "Look for C:\Temp\Preview.pd file." )
	.EndUpdate
endwith
79
How can I display the control's content on an A3 paper size, when using PDF format
with thisform.Pivot1
	.BeginUpdate
	.VisualAppearance.Add(1,"c:\exontrol\images\normal.ebn")
	.Import("C:\Program Files\Exontrol\ExPivot\Sample\data.txt")
	.FormatConditionalAppearances.Item("positive").BackColor = 0x100ff00
	.FormatConditionalAppearances.Item("negative").BackColor = 0x10000ff
	.PivotRows = "0"
	.PivotColumns = "sum(5)[positive,negative]/12"
	.ExpandAll
	var_CopyTo = .CopyTo("C:\Temp\Preview.pdf|11.69 in x 16.53 in")
	DEBUGOUT( "Look for C:\Temp\Preview.pd file." )
	.EndUpdate
endwith
78
How can I export the control's content to a PDF document (method 1)
with thisform.Pivot1
	.BeginUpdate
	.VisualAppearance.Add(1,"c:\exontrol\images\normal.ebn")
	.Import("C:\Program Files\Exontrol\ExPivot\Sample\data.txt")
	.FormatConditionalAppearances.Item("positive").BackColor = 0x100ff00
	.FormatConditionalAppearances.Item("negative").BackColor = 0x10000ff
	.PivotRows = "0"
	.PivotColumns = "sum(5)[positive,negative]/12"
	.ExpandAll
	.EndUpdate
	with CreateObject("Exontrol.Print")
		.PrintExt = thisform.Pivot1.Object
		.CopyTo("c:/temp/xtest.pdf")
	endwith
	DEBUGOUT( "Look for C:\Temp\xtest.pdf file." )
	.EndUpdate
endwith
77
How can I export the control's content to a PDF document (method 2)
with thisform.Pivot1
	.BeginUpdate
	.VisualAppearance.Add(1,"c:\exontrol\images\normal.ebn")
	.Import("C:\Program Files\Exontrol\ExPivot\Sample\data.txt")
	.FormatConditionalAppearances.Item("positive").BackColor = 0x100ff00
	.FormatConditionalAppearances.Item("negative").BackColor = 0x10000ff
	.PivotRows = "0"
	.PivotColumns = "sum(5)[positive,negative]/12"
	.ExpandAll
	var_CopyTo = .CopyTo("c:/temp/xtest.pdf")
	DEBUGOUT( "Look for C:\Temp\xtest.pdf file." )
	.EndUpdate
endwith
76
Does / could the control have a read-only mode by where I could load the data and layout and just use the control to display it and allow the user to scroll around it / print it but not change it
with thisform.Pivot1
	.Import("C:\Program Files\Exontrol\ExPivot\Sample\data.txt")
	.PivotRows = "0"
	.PivotColumns = "sum(5)[content=numeric]"
	.DisplayFilterList = 2
	.PivotBarVisible = 268435977 && PivotBarVisibleEnum.exPivotBarReadOnly Or PivotBarVisibleEnum.exPivotBarAutoUpdate Or PivotBarVisibleEnum.exPivotBarAutoFit Or PivotBarVisibleEnum.exPivotBarVisible
	.Refresh
endwith
75
Is it possible to edit the conditional-expression at runtime

with thisform.Pivot1
	.BeginUpdate
	.Import("C:\Program Files\Exontrol\ExPivot\Sample\data.txt")
	with .FormatConditionalAppearances.Add("custom","custom","")
		.Bold = .T.
		.FontSize = 12
		.Expression = "value > 2000"
		.ContextEditExpression = .T.
	endwith
	.PivotRows = "0"
	.PivotColumns = "sum(5)[custom]/12"
	.EndUpdate
endwith
74
How can I highlight values using EBN colors

with thisform.Pivot1
	.BeginUpdate
	.VisualAppearance.Add(1,"c:\exontrol\images\normal.ebn")
	.Import("C:\Program Files\Exontrol\ExPivot\Sample\data.txt")
	.FormatConditionalAppearances.Item("positive").BackColor = 0x100ff00
	.FormatConditionalAppearances.Item("negative").BackColor = 0x10000ff
	.PivotRows = "0"
	.PivotColumns = "sum(5)[positive,negative]/12"
	.EndUpdate
endwith
73
How do I mark not-empty values in the chart

with thisform.Pivot1
	.BeginUpdate
	.Import("C:\Program Files\Exontrol\ExPivot\Sample\data.txt")
	.PivotRows = "0"
	with .FormatConditionalAppearances.Add("nempty","not empty","")
		.Expression = "len(value) != 0"
		.BackColor = RGB(240,240,240)
	endwith
	.PivotColumns = "sum(5)[nempty]/12"
	.EndUpdate
endwith
72
How can I highlight negative and positive values in the same chart

with thisform.Pivot1
	.BeginUpdate
	.Import("C:\Program Files\Exontrol\ExPivot\Sample\data.txt")
	.PivotRows = "0"
	.PivotColumns = "sum(5)[negative,positive]/12"
	.EndUpdate
endwith
71
How can I highlight values that starts with a letter

with thisform.Pivot1
	.BeginUpdate
	with .FormatConditionalAppearances.Add("f","starts with f","lower(value) startwith `f`")
		.Expression = "lower(value) startwith `f`"
		.Shadow = RGB(1,0,0)
		.ShadowOffset = 0
	endwith
	.Import("C:\Program Files\Exontrol\ExPivot\Sample\data.txt")
	.PivotRows = "0[f]"
	.EndUpdate
endwith
70
How can I mark values greater than a value, 100 for instance

with thisform.Pivot1
	.BeginUpdate
	with .FormatConditionalAppearances.Add("greater100",">100","value > 100")
		.Expression = "( dbl(value) != 0 ) ? (value > 100) : 0"
		.ForeColor = RGB(255,0,0)
	endwith
	.Import("C:\Program Files\Exontrol\ExPivot\Sample\data.txt")
	.PivotRows = "0"
	.PivotColumns = "sum(5)[greater100,content=numeric]"
	.EndUpdate
endwith
69
How can I remove the Conditional context-menu

with thisform.Pivot1
	.BeginUpdate
	.PivotBarVisible = 4059 && PivotBarVisibleEnum.exPivotBarAllowResizeColumns Or PivotBarVisibleEnum.exPivotBarAllowUndoRedo Or PivotBarVisibleEnum.exPivotBarAutoUpdate Or PivotBarVisibleEnum.exPivotBarAllowFormatContent Or PivotBarVisibleEnum.exPivotBarAllowFormatAppearance Or PivotBarVisibleEnum.exPivotBarAllowValues Or PivotBarVisibleEnum.exPivotBarShowTotals Or PivotBarVisibleEnum.exPivotBarAutoFit Or PivotBarVisibleEnum.exPivotBarSizable Or PivotBarVisibleEnum.exPivotBarVisible
	.Import("C:\Program Files\Exontrol\ExPivot\Sample\data.txt")
	.PivotRows = "0"
	.PivotColumns = "sum(5)[content=numeric]"
	.EndUpdate
endwith
68
How do change the way the negative/positive numbers show when using conditional-format

with thisform.Pivot1
	.BeginUpdate
	.Import("C:\Program Files\Exontrol\ExPivot\Sample\data.txt")
	with .FormatConditionalAppearances.Item("negative")
		.BackColor = RGB(0,0,0)
		.ForeColor = RGB(128,128,128)
		.FontSize = 8
	endwith
	with .FormatConditionalAppearances.Item("positive")
		.BackColor = RGB(0,0,0)
		.ForeColor = RGB(1,0,0)
		.FontSize = 11
	endwith
	.PivotRows = "0"
	.PivotColumns = "sum(5)[negative,positive,content=numeric]"
	.EndUpdate
endwith
67
How do I highlight the negative values with white color or black

with thisform.Pivot1
	.BeginUpdate
	.Import("C:\Program Files\Exontrol\ExPivot\Sample\data.txt")
	with .FormatConditionalAppearances.Item("negative")
		.BackColor = RGB(1,0,0)
		.ForeColor = RGB(255,255,255)
	endwith
	.PivotRows = "0"
	.PivotColumns = "sum(5)[negative,content=numeric]"
	.EndUpdate
endwith
66
Does your control support conditional-format, so I can highlight certain values

with thisform.Pivot1
	.BeginUpdate
	.Import("C:\Program Files\Exontrol\ExPivot\Sample\data.txt")
	.PivotRows = "0"
	.PivotColumns = "sum(5)[negative,content=numeric]"
	.EndUpdate
endwith
65
How do I add a computed column/field, like VAT for instance (method 2)

with thisform.Pivot1
	.BeginUpdate
	with .Aggregates
		.Add("vat19","sum","VAT 19%","VAT 19%").FormatValue = "value * 0.19"
		.Add("vat24","sum","VAT 24%","VAT 24%").FormatValue = "value * 0.24"
	endwith
	.Import("C:\Program Files\Exontrol\ExPivot\Sample\data.txt")
	.PivotRows = "0"
	.PivotColumns = "sum(5)[content=numeric],vat19(5)[bold,content=numeric],vat24(5)[bold,content=numeric]"
	.EndUpdate
endwith
64
How do I add a computed column/field, like VAT for instance (method 1)

with thisform.Pivot1
	.BeginUpdate
	with .FormatContents.Add("vat19","VAT 19%")
		.Expression = "len(value) ? ((value * 1.19) format '') : ''"
	endwith
	with .FormatContents.Add("vat24","VAT 24%")
		.Expression = "len(value) ? ((value * 1.24) format '') : ''"
	endwith
	.Import("C:\Program Files\Exontrol\ExPivot\Sample\data.txt")
	.PivotRows = "0"
	.PivotColumns = "sum(5)[content=numeric],sum(5)[bold,content=vat19],sum(5)[bold,content=vat24]"
	.EndUpdate
endwith
63
How can I hide some values for instance negative values

with thisform.Pivot1
	.BeginUpdate
	with .FormatContents.Add("hiden","hide negative")
		.Expression = "value < 0 ? `` : value"
	endwith
	with .FormatContents.Add("hidep","hide positive")
		.Expression = "value > 0 ? `` : value"
	endwith
	.Import("C:\Program Files\Exontrol\ExPivot\Sample\data.txt")
	.PivotRows = "0"
	.PivotColumns = "sum(5)[bold],sum(5)[content=hiden],sum(5)[content=hidep]"
	.EndUpdate
endwith
62
How can I decode the Layout property

with thisform.Pivot1
	.BeginUpdate
	.Import("C:\Program Files\Exontrol\ExPivot\Sample\data.txt")
	.PivotRows = "0"
	.PivotColumns = "sum(5)/12"
	.Layout = "Columns =1;C0.Width = 64"
	with CreateObject("Exontrol.Print")
		DEBUGOUT( .Decode64TextW(thisform.Pivot1.Layout) )
	endwith
	.EndUpdate
endwith
61
How can I specify the sorting type, so the column gets sorted as numeric for instance

with thisform.Pivot1
	.Import("1,1#11,11#101,101","eor='#' eof=',' hdr=0")
	with .DataColumns.Item(0)
		.Caption = "Numeric"
		.SortType = 1
	endwith
	.DataColumns.Item(1).Caption = "String (default)"
	.PivotRows = "0"
	.Refresh
endwith
60
How can I disable the control's context menu
with thisform.Pivot1
	.Import("C:\Program Files\Exontrol\ExPivot\Sample\data.txt")
	.PivotRows = "0"
	.PivotBarVisible = 3675 && PivotBarVisibleEnum.exPivotBarAllowResizeColumns Or PivotBarVisibleEnum.exPivotBarAllowUndoRedo Or PivotBarVisibleEnum.exPivotBarAutoUpdate Or PivotBarVisibleEnum.exPivotBarAllowValues Or PivotBarVisibleEnum.exPivotBarShowTotals Or PivotBarVisibleEnum.exPivotBarAutoFit Or PivotBarVisibleEnum.exPivotBarSizable Or PivotBarVisibleEnum.exPivotBarVisible
endwith
59
How do I get the captions of the columns
with thisform.Pivot1
	.Import("C:\Program Files\Exontrol\ExPivot\Sample\data.txt")
	DEBUGOUT( .DataColumns.Count )
	DEBUGOUT( .DataColumns.Item(0).PivotCaption )
	DEBUGOUT( .DataColumns.Item(0).Caption )
	DEBUGOUT( .DataColumns.Item(1).PivotCaption )
	DEBUGOUT( .DataColumns.Item(1).Caption )
endwith
58
How can I specify the default-format for a specified column, so it always shows as numeric for instance
with thisform.Pivot1
	.Import("C:\Program Files\Exontrol\ExPivot\Sample\data.txt")
	with .DataColumns.Item("Freight")
		.DefaultFormatContent = "numeric"
		.DefaultFormatAppearances = "bold"
		.SortOrder = 1
		.SortType = 1
	endwith
	.PivotTotalDefaultFormatContent = "currency"
	.PivotTotalDefaultFormatAppearances = "strikeout,bold"
	.PivotRows = "0"
	.PivotColumns = "sum(5)[bold,content=numeric]"
	.PivotTotals = "sum[strikeout,bold,content=currency]"
	.PivotColumnsFloatBarVisible = .T.
	.Refresh
endwith
57
How can I display the percentage column

with thisform.Pivot1
	.FormatContents.Add("percent","value + `%`")
	.Import("C:\Program Files\Exontrol\ExPivot\Sample\data.txt")
	.PivotRows = "5[content=percent]"
	.Refresh
endwith
56
How do I change the name for months in the drop-down filter window (localization)

with thisform.Pivot1
	DEBUGOUT( .Description(17) )
	.Object.Description(17) = "Ianuarie Februarie Martie Aprilie Mai Iunie Iulie August Septembrie Octombrie Noiembrie Decembrie"
	.Object.Description(0) = "(Toate)"
	.Object.Description(1) = "(Gol)"
	.Object.Description(2) = "(Plin)"
	.Object.Description(3) = "Filtreaza:"
	.Object.Description(16) = "Azi"
	.Object.Description(18) = "D L Ma Mi J V S"
	.Object.Description(25) = "Exclud"
	.Object.Description(26) = "Coloane"
	.Object.Description(11) = "si"
	.Object.Description(12) = "Data:"
	.Object.Description(15) = "Data"
	.Object.Description(13) = "la"
	.Object.Description(24) = "nu"
	.Object.Description(23) = "sau"
	.Import("C:\Program Files\Exontrol\ExPivot\Sample\data.txt")
	.DataColumns.Item("OrderDate").SortType = 2
	.PivotRows = "9"
	.Refresh
endwith
55
How can I scale and print programmatically the pivot table, to fit on one axis eg FitPageHeight but infinite width etc
with thisform.Pivot1
	.Import("C:\Program Files\Exontrol\ExPivot\Sample\data.txt")
	.PivotRows = "6"
	.PivotColumns = "sum(5)/3"
	.Refresh
	with CreateObject("Exontrol.Print")
		.Options = "FitToPage = x 5"
		.PrintExts = thisform.Pivot1
		.Preview
	endwith
endwith
54
How can I scale and print programmatically the pivot table, to fit on one axis eg FitPageWidth but infinite height etc
with thisform.Pivot1
	.Import("C:\Program Files\Exontrol\ExPivot\Sample\data.txt")
	.PivotRows = "6"
	.PivotColumns = "sum(5)/3"
	.Refresh
	with CreateObject("Exontrol.Print")
		.Options = "FitToPage = 5 x"
		.PrintExts = thisform.Pivot1
		.Preview
	endwith
endwith
53
How can I get the column from the cursor
*** MouseMove event - Occurs when the user moves the mouse. ***
LPARAMETERS Button,Shift,X,Y
	with thisform.Pivot1
		DEBUGOUT( .ColumnFromPoint(-1,-1) )
	endwith

with thisform.Pivot1
	.Import("C:\Program Files\Exontrol\ExPivot\Sample\data.txt")
	.Refresh
endwith
52
How can I get the value from the cursor
*** MouseMove event - Occurs when the user moves the mouse. ***
LPARAMETERS Button,Shift,X,Y
	with thisform.Pivot1
		DEBUGOUT( .ValueFromPoint(-1,-1) )
	endwith

with thisform.Pivot1
	.Import("C:\Program Files\Exontrol\ExPivot\Sample\data.txt")
	.Refresh
endwith
51
How can I specify a column to display HTML format

with thisform.Pivot1
	.Import("Bold <b>1,Bold <b>2#Bold <b>3,Bold <b>4#Bold <b>5,Bold <b>6","eor='#' eof=',' hdr=0")
	.DataColumns.Item(0).HTML = .T.
	.DataColumns.Item(1).HTML = .T.
	.PivotRows = "0"
	.Refresh
endwith
50
Does your control supports scrolling by touching the screen

with thisform.Pivot1
	rs = CreateObject("ADOR.Recordset")
	with rs
		.Open("Data","Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Program Files\Exontrol\ExPivot\Sample\Access\sample.accdb",3,3)
	endwith
	.DataSource = rs
	.AutoDrag = 4112 && AutoDragEnum.exAutoDragScrollOnShortTouch Or AutoDragEnum.exAutoDragScroll
endwith
49
How can I specify programatically the width of the pivot column ( first column )

with thisform.Pivot1
	.BeginUpdate
	.Import("C:\Program Files\Exontrol\ExPivot\Sample\data.txt")
	.PivotRows = "0"
	.PivotColumns = "sum(5)/12"
	.Layout = "Columns =1;C0.Width = 64"
	.EndUpdate
endwith
48
How can I show the total of each row, when columns are shown as expanded

with thisform.Pivot1
	.BeginUpdate
	.IncludeExpandColumn = 1
	.Import("C:\Program Files\Exontrol\ExPivot\Sample\data.txt")
	.PivotRows = "0"
	.PivotColumns = "sum(5)/12"
	.EndUpdate
endwith