|
147
|
ADOR, MDB (JET)
Procedure OnCreate
Forward Send OnCreate
Variant rs
Get Comcreateobject "ADOR.Recordset" to rs
Send ComOpen "Data" "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Program Files\Exontrol\ExPivot\Sample\Access\sample.mdb" OLEadOpenStatic OLEadLockOptimistic Nothing
Set ComDataSource to rs
End_Procedure
|
|
146
|
ImageSize property on 32 (specifies the size of control' icons/images/check-boxes/radio-buttons)
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Set ComImageSize to 32
Set ComDefaultItemHeight to 36
Set ComHeaderHeight to (ComDefaultItemHeight(Self))
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
Variant voStdFont1
Get ComFilterBarFont to voStdFont1
Handle hoStdFont1
Get Create (RefClass(cComStdFont)) to hoStdFont1
Set pvComObject of hoStdFont1 to voStdFont1
Variant v
Variant voStdFont2
Get ComFont to voStdFont2
Handle hoStdFont2
Get Create (RefClass(cComStdFont)) to hoStdFont2
Set pvComObject of hoStdFont2 to voStdFont2
Get ComSize of hoStdFont2 to v
Send Destroy to hoStdFont2
Set ComSize of hoStdFont1 to v
Send Destroy to hoStdFont1
Variant voStdFont3
Get ComToolTipFont to voStdFont3
Handle hoStdFont3
Get Create (RefClass(cComStdFont)) to hoStdFont3
Set pvComObject of hoStdFont3 to voStdFont3
Variant v1
Variant voStdFont4
Get ComFont to voStdFont4
Handle hoStdFont4
Get Create (RefClass(cComStdFont)) to hoStdFont4
Set pvComObject of hoStdFont4 to voStdFont4
Get ComSize of hoStdFont4 to v1
Send Destroy to hoStdFont4
Set ComSize of hoStdFont3 to v1
Send Destroy to hoStdFont3
Set ComIndent to 26
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
Get ComAdd of hoAppearance 4 "gBFLBCJwBAEHhEJAAEhABUYCg6AADACAxRDgMQBQKAAzQFAYbhkGCGAAGMZxRgmFgAQhFcZQSKUOQTDKMIziYBYfgkMIgSbJUgDGAkRRdDSOYDmGQYDiCIoRShOMIjHLUXxtDaIZwhEAoJb+RgAUY/cTzaAEUwHHiTKInaCQShsFYJUJAdRURQ9EwvCIZBpEWwLChENQwWLCNj2TScBwjCyqbale45ViqdoDU5EUiXJJ8ZxnECfYyrGjaMpCeKBUrGYTVRBIMxLLSia5oeJqMrnBpNVrIUgXCAGFwHK6BcauXIIDp6XoWWRbAAWDpVVzNNC3YzkCIceADHKiXxmVz4JLdGZ1QTGID2XaYaxWK4oZjsVSc4KDHbETbHFi9Fo3NaaxGisew+GYc4HlCR5NAAAIIEkQJSGMOgdE4RhYDwJJsAaAYQgmPpolCWgSCiBJzjcEIAkQXIBm8d5UhOQgCDUIBDDJDhgggJgKgKYJIDSVoDk8KBFF4OohEMZgWDsYYDj4GoGmGSB2B6B5iAiBgYDsYRjGSbIJo4RgqDuIpIAoLoLmMCJGDKDJjJiLA7xqUAAgGTwYnYPoPmQCQGEKEJkEkFg9gGY44BoRoSmSSQ2EKEggHgRhShSZRJFYVoVmWCRmFKFAgGOTheheZgJgYYoYmYSYWGaF4lkMMJ0hqZpJjYbobmcCZGHKHJmjmJh0h2Z4JmYcIaE8WZ2H6H5oAoBoCiCaBKBYfdjGoJoKiKaJKDaDojmkChGgmIgpCoVoWiWaJZiSd4mmmSh2h6J5qAqBoiiiaY5iSeIpmqComiqKpqkqNouiuah6hqMIsmsSpWiuGhP1kOoumuSp2j6L5sAsBo54gKwWkaMZsgsJpKjKbJLDaRYxYWRpSjSbIZiSe41m2CxmlqNptksdpejebR5iSfI4m4S4W16boLiaao6m5fJ9jubwLkaco8m8S5WnaPZunuOp4j6b5Lnac4SA0PAGlgP4wEwFwGkGcIMCcCpCnCCxiA8NYAAmMJfkSbhFCcFpFnGDBnBqRpUhuEwTDeZ5lHCfw6HIQxLCaAxygyJwqgGcATE4FA6hWY4tjEAAQBAgIA==" to Nothing
Send Destroy to hoAppearance
Set ComBackColorHeader to |CI$4c6c6c6
Set ComSelBackColor to |CI$4000000
Set ComSelForeColor to (RGB(0,0,1))
Set ComCheckImage OLEUnchecked to 16777216
Set ComCheckImage OLEChecked to 33554432
Set ComCheckImage OLEPartialChecked to 50331648
Set ComBackground OLEexSelBackColorFilter to (ComSelBackColor(Self))
Set ComBackground OLEexSelForeColorFilter to (ComSelForeColor(Self))
Set ComBackground OLEexBackColorFilter to (ComBackColor(Self))
Set ComBackground OLEexForeColorFilter to (ComForeColor(Self))
Set ComBackground OLEexCursorHoverColumn to -1
Set ComBackground OLEexHeaderFilterBarButton to |CI$4000000
Set ComBackground OLEexHeaderFilterBarActive to |CI$4010101
Set ComBackground OLEexFooterFilterBarButton to |CI$40000ff
Set ComHeaderAppearance to OLEEtched
Set ComGridLineStyle to OLEexGridLinesGeometric
Send ComImages "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
Get ComImport "C:\Program Files\Exontrol\ExPivot\Sample\data.txt" Nothing to Nothing
Set ComPivotRows to "12,0"
Set ComPivotColumns to "sum(5)"
Set ComPivotTotals to "/sum"
Variant voColumns
Get ComDataColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Variant voColumn
Get ComItem of hoColumns 0 to voColumn
Handle hoColumn
Get Create (RefClass(cComColumn)) to hoColumn
Set pvComObject of hoColumn to voColumn
Set ComFormatImage of hoColumn to "value case (default: -1;'Germany': 1;'USA': 2;'Mexico': 3)"
Send Destroy to hoColumn
Send Destroy to hoColumns
Send ComEndUpdate
End_Procedure
|
|
145
|
ImageSize property on 16 (default) (specifies the size of control' icons/images/check-boxes/radio-buttons)
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
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 voAppearance
Get ComVisualAppearance to voAppearance
Handle hoAppearance
Get Create (RefClass(cComAppearance)) to hoAppearance
Set pvComObject of hoAppearance to voAppearance
Get ComAdd of hoAppearance 4 "gBFLBCJwBAEHhEJAAEhABUYCg6AADACAxRDgMQBQKAAzQFAYbhkGCGAAGMZxRgmFgAQhFcZQSKUOQTDKMIziYBYfgkMIgSbJUgDGAkRRdDSOYDmGQYDiCIoRShOMIjHLUXxtDaIZwhEAoJb+RgAUY/cTzaAEUwHHiTKInaCQShsFYJUJAdRURQ9EwvCIZBpEWwLChENQwWLCNj2TScBwjCyqbale45ViqdoDU5EUiXJJ8ZxnECfYyrGjaMpCeKBUrGYTVRBIMxLLSia5oeJqMrnBpNVrIUgXCAGFwHK6BcauXIIDp6XoWWRbAAWDpVVzNNC3YzkCIceADHKiXxmVz4JLdGZ1QTGID2XaYaxWK4oZjsVSc4KDHbETbHFi9Fo3NaaxGisew+GYc4HlCR5NAAAIIEkQJSGMOgdE4RhYDwJJsAaAYQgmPpolCWgSCiBJzjcEIAkQXIBm8d5UhOQgCDUIBDDJDhgggJgKgKYJIDSVoDk8KBFF4OohEMZgWDsYYDj4GoGmGSB2B6B5iAiBgYDsYRjGSbIJo4RgqDuIpIAoLoLmMCJGDKDJjJiLA7xqUAAgGTwYnYPoPmQCQGEKEJkEkFg9gGY44BoRoSmSSQ2EKEggHgRhShSZRJFYVoVmWCRmFKFAgGOTheheZgJgYYoYmYSYWGaF4lkMMJ0hqZpJjYbobmcCZGHKHJmjmJh0h2Z4JmYcIaE8WZ2H6H5oAoBoCiCaBKBYfdjGoJoKiKaJKDaDojmkChGgmIgpCoVoWiWaJZiSd4mmmSh2h6J5qAqBoiiiaY5iSeIpmqComiqKpqkqNouiuah6hqMIsmsSpWiuGhP1kOoumuSp2j6L5sAsBo54gKwWkaMZsgsJpKjKbJLDaRYxYWRpSjSbIZiSe41m2CxmlqNptksdpejebR5iSfI4m4S4W16boLiaao6m5fJ9jubwLkaco8m8S5WnaPZunuOp4j6b5Lnac4SA0PAGlgP4wEwFwGkGcIMCcCpCnCCxiA8NYAAmMJfkSbhFCcFpFnGDBnBqRpUhuEwTDeZ5lHCfw6HIQxLCaAxygyJwqgGcATE4FA6hWY4tjEAAQBAgIA==" to Nothing
Send Destroy to hoAppearance
Set ComBackColorHeader to |CI$4c6c6c6
Set ComSelBackColor to |CI$4000000
Set ComSelForeColor to (RGB(0,0,1))
Set ComBackground OLEexSelBackColorFilter to (ComSelBackColor(Self))
Set ComBackground OLEexSelForeColorFilter to (ComSelForeColor(Self))
Set ComBackground OLEexBackColorFilter to (ComBackColor(Self))
Set ComBackground OLEexForeColorFilter to (ComForeColor(Self))
Set ComBackground OLEexCursorHoverColumn to -1
Set ComBackground OLEexHeaderFilterBarButton to |CI$4000000
Set ComBackground OLEexHeaderFilterBarActive to |CI$4010101
Set ComBackground OLEexFooterFilterBarButton to |CI$40000ff
Set ComHeaderAppearance to OLEEtched
Set ComGridLineStyle to OLEexGridLinesGeometric
Get ComImport "C:\Program Files\Exontrol\ExPivot\Sample\data.txt" Nothing to Nothing
Set ComPivotRows to "12,0"
Set ComPivotColumns to "sum(5)"
Set ComPivotTotals to "/sum"
Variant voColumns
Get ComDataColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Variant voColumn
Get ComItem of hoColumns 0 to voColumn
Handle hoColumn
Get Create (RefClass(cComColumn)) to hoColumn
Set pvComObject of hoColumn to voColumn
Set ComFormatImage of hoColumn to "value case (default: -1;'Germany': 1;'USA': 2;'Mexico': 3)"
Send Destroy to hoColumn
Send Destroy to hoColumns
Send ComEndUpdate
End_Procedure
|
|
144
|
Is it possible to view all events the control fires
// Notifies the application once the control fires an event.
Procedure OnComEvent Integer llEventID
Forward Send OnComEvent llEventID
Showln (ComEventParam(Self,-2))
End_Procedure
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Get ComImport "C:\Program Files\Exontrol\ExPivot\Sample\data.txt" Nothing to Nothing
Set ComPivotBarVisible to (OLEexPivotBarAllowFormatConditionalAppearance + OLEexPivotBarAllowResizeColumns + OLEexPivotBarAllowUndoRedo + OLEexPivotBarAllowFormatContent + OLEexPivotBarAllowFormatAppearance + OLEexPivotBarAllowValues + OLEexPivotBarShowTotals + OLEexPivotBarAutoFit + OLEexPivotBarSizable + OLEexPivotBarVisible)
Send ComEndUpdate
End_Procedure
|
|
143
|
Does your control support images
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Send ComImages "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
Get ComImport "C:\Program Files\Exontrol\ExPivot\Sample\data.txt" Nothing to Nothing
Variant voColumns
Get ComDataColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Variant voColumn
Get ComItem of hoColumns 0 to voColumn
Handle hoColumn
Get Create (RefClass(cComColumn)) to hoColumn
Set pvComObject of hoColumn to voColumn
Set ComFormatImage of hoColumn to "value case (default: -1;'Germany': 1;'USA': 2;'Mexico': 3)"
Send Destroy to hoColumn
Send Destroy to hoColumns
Send ComEndUpdate
End_Procedure
|
|
142
|
Is it possible to rename the generated-columns
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Set ComHeaderAppearance to OLEEtched
Set ComHeaderHeight to 24
Get ComImport "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" to Nothing
Set ComPivotRows to 0
Set ComPivotColumns to "sum(1),sum(2),sum(3)"
Set ComFormatPivotHeader to "(iaggregate ? (proper(aggregate) + ` <off -4>` + (caption case (default:`None`; 1:`Sunday`; 2:`Monday`; 3:`Tuesday`; 4:`Wednesday`; 5:`Thursday`; 6:`Friday`; 7:`Saturday`)) + `</b>`) : caption)"
Send ComEndUpdate
End_Procedure
|
|
141
|
Is it possible to rename the columns
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Get ComAppendData "C:\Program Files\Exontrol\ExPivot\Sample\data.txt" Nothing to Nothing
Variant voColumns
Get ComDataColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Variant voColumn
Get ComItem of hoColumns 0 to voColumn
Handle hoColumn
Get Create (RefClass(cComColumn)) to hoColumn
Set pvComObject of hoColumn to voColumn
Set ComCaption of hoColumn to "<b>Nation"
Send Destroy to hoColumn
Send Destroy to hoColumns
Send ComRefresh
Send ComEndUpdate
End_Procedure
|
|
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
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Get ComAppendData "Def" Nothing to Nothing
Get ComAppendData "A" Nothing to Nothing
Get ComAppendData "A" Nothing to Nothing
Get ComAppendData "A" Nothing to Nothing
Set ComPivotRows to 0
Set ComPivotColumns to "count(0)"
Variant s
Get ComLayout to s
Get ComAppendData "B" Nothing to Nothing
Get ComAppendData "B" Nothing to Nothing
Set ComLayout to s
Send ComEndUpdate
End_Procedure
|
|
139
|
Is it possible to add data without clearing the previously data
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Get ComAppendData "Column" Nothing to Nothing
Get ComAppendData "1" Nothing to Nothing
Get ComAppendData "2" Nothing to Nothing
Get ComAppendData "3" Nothing to Nothing
Send ComEndUpdate
End_Procedure
|
|
138
|
How can I change the visual appearance of the Total button
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 2 "gBFLBCJwBAEHhEJAAEhABAoCg6AADACAxRDgMQBQKAAzQFAcDBvBgABoGEZIJhUAIIRZGMIjFDcEwxC6NIpjeIBSDUJYkSZEAyjBI8ExXFqMQCkGKocgONYgQLHcgxeA0XRYFoYRinWA5PoAMoyTYMdIAnTOM4eU6AATwTSccw0fisAAfeq4Wh+HwIQiUBomGahajkMqDYRVagyCI2a4ZDZCIoVJalLAxCw8KDqGJnMr1R5/MDgOBYogXBqHYhiOAsdhjSYdBK/WLeHI6Y1GS7MMxzLK8cxVaqfMpoMI4FjuS5NU7TMC0PAXdy3LqvbBsOxbHqma5nVSBcC2ba9cz3PK4ABuW7bM6TRKNYbkOA4LiNQaxVSrNKmIwPI5DJ5Ml2co1h0d5vBWDJQEkCI7mIJpykyTZblqdhYDyR5TlmX5RBgeI+D4BxLDkO5nlieh5g2FQ5DOZAiDkDASAmYh7l0RxZncPxfhadZkBmH5jvKLhamMcItBYXgoC4B4CBgFoskEP4hkgdgegcD4zlycA1goAJ5mIc4KjgfJ+D0ToTFGbx4h8Qh2CqDJjEeJg0gyT4DkCYg5kyAhCDeBxjkIQgDHSIgTkIP4NGGFplgGEZkkifhFgSIRHgCXwtAYeQ2B+DYlGkZgqgsIpnEoJxzmWGRiFqGJhmkBhDAwJBZDIYoZCYSQ+BOFAmBkJZBhKZpJlYHIXCYR4lFuHpnkmdh+h+aAKAaAogF6FhWgOIZogoJh/GuHoTl6DojmkChGhKJJpEoVoWiUHAGDCTg6CmSheh6J5qAoTJriiWQUCSb4ploEwpgq4BKjWBomhmc4pAkOpRAQJQBICA==" to Nothing
Get ComAdd of hoAppearance 1 "CP:2 -10 -6 8 8" to Nothing
Send Destroy to hoAppearance
Set ComBackground OLEexPivotBarTotal to |CI$1000000
Get ComImport "C:\Program Files\Exontrol\ExPivot\Sample\data.txt" Nothing to Nothing
Send ComEndUpdate
End_Procedure
|
|
137
|
Is it possible to highlight the column's header once a filter is applied
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 2 "gBFLBCJwBAEHhEJAAEhABX8GACAADACAxSDEMQBQKAAzQFAYbhgHCGAAGQaBUgmFgAQhFcZQSKUOQTDKNYykCIRSDUJYkSZEIyjBI8ExXFqNACkGKwYgmNYiTLAcgANJ0WBaGIZJ4gOT5fDKMoEDRRYADFCscwxJybQAqGQKKb+VgAVY/cTyBIAEQSKA0TDOQ5TSKWB4JPZQRBEbZMNBtBIUJquKaqShdQJCU5FdY3Xblez9P7AMBwLFEC4NQ8YNYuPhjR4dRTIMhvVAsUArFh8Zg9GZZFjmDIDT4ydBLTQwcyVIKnP5qOa6XbmPoCQDYKxZHYxPzVDa3axuL76dqCAT7XrXNy1TbNRrzQKfcJqfCbdw2YaDZLOOT3fjuI4hhKaRzFAHJ+jYQ4xHuY4gHuGIXGeExqC8Tp6C+PoEm+G5ImycRgh0XwvDGa5rgOeoejyXwnFeQp2mkf5ClgBB9gCWIYAwfYAEKV58mkdwOggNArgOXY2EWLoDkKOA0mgbhOGgZApgaSBIHWSYHSmbApgYThmESZYJkIeIkgeCpfliLIHgpMIcmUYYYmODAlg2SI4mWfRfGOEguDcCRjFYAJihCQhJBSDoRmONgKEcI4kFCEJhhOVYTmYnAlEAQhWBMJYJGYWoWmWSR2F6F5lnkWAQhUAgpEieRWEuSYkjWGpmkmNhuhuZwJkYcocmaaYkjyEhngnUA6lEFAlAEgI=" to Nothing
Get ComAdd of hoAppearance 1 "CP:2 -8 -4 2 4" to Nothing
Send Destroy to hoAppearance
Set ComHeaderHeight to 28
Set ComBackground OLEexHeaderFilterBarButton to |CI$1fefefe
Set ComBackground OLEexHeaderFilterBarActive to |CI$1010101
Set ComBackground OLEexCursorHoverColumn to -1
Get ComImport "C:\Program Files\Exontrol\ExPivot\Sample\data.txt" Nothing to Nothing
Set ComFilterBarFont to (ComFont(Self))
Set ComDescription OLEexFilterBarAnd to (ComFormatABC(Self,"`<fgcolor=808080> ` + value + ` </fgcolor>`",(ComDescription(Self,OLEexFilterBarAnd)),Nothing,Nothing))
Set ComFilterBarCaption to "(( ( value replace `[<b>` with `<bgcolor=000000><fgcolor=FFFFFF><b> ` replace `</b>]` with ` </b></bgcolor></fgcolor>` replace `[<s>` with `<bgcolor=C0C0C0><fgcolor=FFFFFF> ` replace `</s>]` with ` </fgcolor></bgcolor>` ) + `<r><fgcolor=808080>` + ( matchitemcount < 0 ? ( ( len(value) ? `` : `` ) + `<r>` + abs(matchitemcount + 1) + ` result(s)` ) : (`<r><fgcolor=808080>`+ itemcount + ` item(s)`) )))"
Set ComFilterBarPromptVisible to (OLEexFilterBarCompact + OLEexFilterBarShowCloseIfRequired + OLEexFilterBarSingleLine + OLEexFilterBarCaptionVisible + OLEexFilterBarVisible + OLEexFilterBarPromptVisible)
Send ComEndUpdate
End_Procedure
|
|
136
|
How can I change the format the column displays (for instance, displaying no 0:00:00)
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Get ComImport "C:\Program Files\Exontrol\ExPivot\Sample\data.txt" Nothing to Nothing
Variant voFormatContents
Get ComFormatContents to voFormatContents
Handle hoFormatContents
Get Create (RefClass(cComFormatContents)) to hoFormatContents
Set pvComObject of hoFormatContents to voFormatContents
Get ComAdd of hoFormatContents "notime" "value replace `0:00:00` with ``" Nothing to Nothing
Send Destroy to hoFormatContents
Set ComPivotRows to "9[content=notime]"
Send ComEndUpdate
End_Procedure
|
|
135
|
Is it possible to show the filterbar on top of the rows
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Get ComImport "C:\Program Files\Exontrol\ExPivot\Sample\data.txt" Nothing to Nothing
Set ComFilterBarPromptVisible to (OLEexFilterBarTop + OLEexFilterBarShowCloseIfRequired + OLEexFilterBarPromptVisible)
Send ComEndUpdate
End_Procedure
|
|
134
|
How can I uses the control in window-less mode (with no user interface, option 3)
Procedure OnCreate
Forward Send OnCreate
Handle hoPivot
Get Create (RefClass(cComPivot)) to hoPivot // Import the 'ExPivot 1.0 Control Library' library
Get ComImport of hoPivot "C:\Program Files\Exontrol\ExPivot\Sample\data.txt" Nothing to Nothing
Set ComPivotRows of hoPivot to "0"
Set ComPivotColumns of hoPivot to "avg(5)"
Showln (ComExport(hoPivot,Nothing,Nothing))
Send Destroy to hoPivot
End_Procedure
|
|
133
|
How can I uses the control in window-less mode (with no user interface, option 2)
Procedure OnCreate
Forward Send OnCreate
Handle hoPivot
Get Create (RefClass(cComPivot)) to hoPivot // Import the 'ExPivot 1.0 Control Library' library
Variant rs
Get Comcreateobject of hoPivot "ADOR.Recordset" to rs
Send ComOpen of hoPivot "Data" "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Program Files\Exontrol\ExPivot\Sample\Access\sample.accdb" OLEadOpenStatic OLEadLockOptimistic Nothing
Send Destroy to hoPivot
Set ComDataSource to rs
Set ComPivotRows to "0"
Set ComPivotColumns to "max(5)"
Showln (ComExport(Self,Nothing,Nothing))
End_Procedure
|
|
132
|
How can I uses the control in window-less mode (with no user interface, option 1)
Procedure OnCreate
Forward Send OnCreate
Handle hoPivot
Get Create (RefClass(cComPivot)) to hoPivot // Import the 'ExPivot 1.0 Control Library' library
Get ComLoadXML of hoPivot "http://www.exontrol.net/testing.xml" to Nothing
Set ComPivotRows of hoPivot to "1"
Set ComPivotColumns of hoPivot to "max(6)"
Showln (ComExport(hoPivot,Nothing,Nothing))
Send Destroy to hoPivot
End_Procedure
|
|
131
|
How can I connect to a DBF file
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Variant rs
Get Comcreateobject "ADODB.Recordset" to rs
Send ComOpen "Select * From foxcode.DBF" "Provider=vfpoledb;Data Source=C:\Program Files\Microsoft Visual FoxPro 9\" OLEadOpenStatic OLEadLockOptimistic Nothing
Set ComDataSource to rs
Set ComPivotRows to "0"
Set ComPivotColumns to "count(0)[content=numeric],avg(7)[negative,content=numeric]"
Send ComEndUpdate
End_Procedure
|
|
130
|
Export Data in HTML format
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Get ComImport "C:\Program Files\Exontrol\ExPivot\Sample\data.txt" Nothing to Nothing
Set ComDescription OLEexFilterBarAnd to (ComFormatABC(Self,"`<fgcolor=808080> ` + value + ` </fgcolor>`",(ComDescription(Self,OLEexFilterBarAnd)),Nothing,Nothing))
Set ComFilterBarCaption to "(( ( value replace `[<b>` with `<bgcolor=000000><fgcolor=FFFFFF><b> ` replace `</b>]` with ` </b></bgcolor></fgcolor>` replace `[<s>` with `<bgcolor=C0C0C0><fgcolor=FFFFFF> ` replace `</s>]` with ` </fgcolor></bgcolor>` ) + `<r><fgcolor=808080>` + ( matchitemcount < 0 ? ( ( len(value) ? `` : `` ) + `<r>` + abs(matchitemcount + 1) + ` result(s)` ) : (`<r><fgcolor=808080>`+ itemcount + ` item(s)`) )))"
Set ComFilterBarPromptVisible to (OLEexFilterBarCompact + OLEexFilterBarShowCloseIfRequired + OLEexFilterBarSingleLine + OLEexFilterBarCaptionVisible + OLEexFilterBarVisible + OLEexFilterBarPromptVisible)
Variant voFormatConditionalAppearances
Get ComFormatConditionalAppearances to voFormatConditionalAppearances
Handle hoFormatConditionalAppearances
Get Create (RefClass(cComFormatConditionalAppearances)) to hoFormatConditionalAppearances
Set pvComObject of hoFormatConditionalAppearances to voFormatConditionalAppearances
Variant voFormatConditionalAppearance
Get ComAdd of hoFormatConditionalAppearances "G1000" "> 1000" "value > 1000" to voFormatConditionalAppearance
Handle hoFormatConditionalAppearance
Get Create (RefClass(cComFormatConditionalAppearance)) to hoFormatConditionalAppearance
Set pvComObject of hoFormatConditionalAppearance to voFormatConditionalAppearance
Set ComForeColor of hoFormatConditionalAppearance to (RGB(0,0,255))
Send Destroy to hoFormatConditionalAppearance
Variant voFormatConditionalAppearance1
Get ComAdd of hoFormatConditionalAppearances "L1000" "< 1000" "value < 1000" to voFormatConditionalAppearance1
Handle hoFormatConditionalAppearance1
Get Create (RefClass(cComFormatConditionalAppearance)) to hoFormatConditionalAppearance1
Set pvComObject of hoFormatConditionalAppearance1 to voFormatConditionalAppearance1
Set ComForeColor of hoFormatConditionalAppearance1 to (RGB(255,0,0))
Send Destroy to hoFormatConditionalAppearance1
Variant voFormatConditionalAppearance2
Get ComAdd of hoFormatConditionalAppearances "Zero" "zero" "value = 0" to voFormatConditionalAppearance2
Handle hoFormatConditionalAppearance2
Get Create (RefClass(cComFormatConditionalAppearance)) to hoFormatConditionalAppearance2
Set pvComObject of hoFormatConditionalAppearance2 to voFormatConditionalAppearance2
Set ComBackColor of hoFormatConditionalAppearance2 to (RGB(224,224,224))
Send Destroy to hoFormatConditionalAppearance2
Send Destroy to hoFormatConditionalAppearances
Variant voFormatAppearances
Get ComFormatAppearances to voFormatAppearances
Handle hoFormatAppearances
Get Create (RefClass(cComFormatAppearances)) to hoFormatAppearances
Set pvComObject of hoFormatAppearances to voFormatAppearances
Variant voFormatAppearance
Get ComAdd of hoFormatAppearances "grayed" Nothing to voFormatAppearance
Handle hoFormatAppearance
Get Create (RefClass(cComFormatAppearance)) to hoFormatAppearance
Set pvComObject of hoFormatAppearance to voFormatAppearance
Set ComForeColor of hoFormatAppearance to (RGB(128,128,128))
Send Destroy to hoFormatAppearance
Variant voFormatAppearance1
Get ComAdd of hoFormatAppearances "red" Nothing to voFormatAppearance1
Handle hoFormatAppearance1
Get Create (RefClass(cComFormatAppearance)) to hoFormatAppearance1
Set pvComObject of hoFormatAppearance1 to voFormatAppearance1
Set ComForeColor of hoFormatAppearance1 to (RGB(255,0,0))
Send Destroy to hoFormatAppearance1
Variant voFormatAppearance2
Get ComAdd of hoFormatAppearances "green" Nothing to voFormatAppearance2
Handle hoFormatAppearance2
Get Create (RefClass(cComFormatAppearance)) to hoFormatAppearance2
Set pvComObject of hoFormatAppearance2 to voFormatAppearance2
Set ComForeColor of hoFormatAppearance2 to (RGB(0,255,0))
Send Destroy to hoFormatAppearance2
Variant voFormatAppearance3
Get ComAdd of hoFormatAppearances "blue" Nothing to voFormatAppearance3
Handle hoFormatAppearance3
Get Create (RefClass(cComFormatAppearance)) to hoFormatAppearance3
Set pvComObject of hoFormatAppearance3 to voFormatAppearance3
Set ComForeColor of hoFormatAppearance3 to (RGB(0,0,255))
Send Destroy to hoFormatAppearance3
Variant voFormatAppearance4
Get ComAdd of hoFormatAppearances "bgrayed" Nothing to voFormatAppearance4
Handle hoFormatAppearance4
Get Create (RefClass(cComFormatAppearance)) to hoFormatAppearance4
Set pvComObject of hoFormatAppearance4 to voFormatAppearance4
Set ComBackColor of hoFormatAppearance4 to (RGB(128,128,128))
Send Destroy to hoFormatAppearance4
Variant voFormatAppearance5
Get ComAdd of hoFormatAppearances "bred" Nothing to voFormatAppearance5
Handle hoFormatAppearance5
Get Create (RefClass(cComFormatAppearance)) to hoFormatAppearance5
Set pvComObject of hoFormatAppearance5 to voFormatAppearance5
Set ComBackColor of hoFormatAppearance5 to (RGB(255,0,0))
Send Destroy to hoFormatAppearance5
Variant voFormatAppearance6
Get ComAdd of hoFormatAppearances "bgreen" Nothing to voFormatAppearance6
Handle hoFormatAppearance6
Get Create (RefClass(cComFormatAppearance)) to hoFormatAppearance6
Set pvComObject of hoFormatAppearance6 to voFormatAppearance6
Set ComBackColor of hoFormatAppearance6 to (RGB(0,255,0))
Send Destroy to hoFormatAppearance6
Variant voFormatAppearance7
Get ComAdd of hoFormatAppearances "bblue" Nothing to voFormatAppearance7
Handle hoFormatAppearance7
Get Create (RefClass(cComFormatAppearance)) to hoFormatAppearance7
Set pvComObject of hoFormatAppearance7 to voFormatAppearance7
Set ComBackColor of hoFormatAppearance7 to (RGB(0,0,255))
Send Destroy to hoFormatAppearance7
Send Destroy to hoFormatAppearances
Set ComPivotRows to "0[bold],2[grayed]"
Set ComPivotColumns to "sum(5)[L1000],sum(5)[G1000]/12:A"
Set ComPivotTotals to "sum[bold,content=currency,bgrayed]"
Set ComAutoDrag to OLEexAutoDragScroll
Set ComBackColorAlternate to (RGB(240,240,240))
Set ComFilterBarPromptType to OLEexFilterPromptContainsAny
Set ComFilterBarPromptPattern to "France Germany"
Send ComEndUpdate
Showln (ComExport(Self,"htm",Nothing))
End_Procedure
|
|
129
|
Export Data in HTML format (IE)
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Get ComImport "C:\Program Files\Exontrol\ExPivot\Sample\data.txt" Nothing to Nothing
Set ComDescription OLEexFilterBarAnd to (ComFormatABC(Self,"`<fgcolor=808080> ` + value + ` </fgcolor>`",(ComDescription(Self,OLEexFilterBarAnd)),Nothing,Nothing))
Set ComFilterBarCaption to "(( ( value replace `[<b>` with `<bgcolor=000000><fgcolor=FFFFFF><b> ` replace `</b>]` with ` </b></bgcolor></fgcolor>` replace `[<s>` with `<bgcolor=C0C0C0><fgcolor=FFFFFF> ` replace `</s>]` with ` </fgcolor></bgcolor>` ) + `<r><fgcolor=808080>` + ( matchitemcount < 0 ? ( ( len(value) ? `` : `` ) + `<r>` + abs(matchitemcount + 1) + ` result(s)` ) : (`<r><fgcolor=808080>`+ itemcount + ` item(s)`) )))"
Set ComFilterBarPromptVisible to (OLEexFilterBarCompact + OLEexFilterBarShowCloseIfRequired + OLEexFilterBarSingleLine + OLEexFilterBarCaptionVisible + OLEexFilterBarVisible + OLEexFilterBarPromptVisible)
Variant voFormatConditionalAppearances
Get ComFormatConditionalAppearances to voFormatConditionalAppearances
Handle hoFormatConditionalAppearances
Get Create (RefClass(cComFormatConditionalAppearances)) to hoFormatConditionalAppearances
Set pvComObject of hoFormatConditionalAppearances to voFormatConditionalAppearances
Variant voFormatConditionalAppearance
Get ComAdd of hoFormatConditionalAppearances "G1000" "> 1000" "value > 1000" to voFormatConditionalAppearance
Handle hoFormatConditionalAppearance
Get Create (RefClass(cComFormatConditionalAppearance)) to hoFormatConditionalAppearance
Set pvComObject of hoFormatConditionalAppearance to voFormatConditionalAppearance
Set ComForeColor of hoFormatConditionalAppearance to (RGB(0,0,255))
Send Destroy to hoFormatConditionalAppearance
Variant voFormatConditionalAppearance1
Get ComAdd of hoFormatConditionalAppearances "L1000" "< 1000" "value < 1000" to voFormatConditionalAppearance1
Handle hoFormatConditionalAppearance1
Get Create (RefClass(cComFormatConditionalAppearance)) to hoFormatConditionalAppearance1
Set pvComObject of hoFormatConditionalAppearance1 to voFormatConditionalAppearance1
Set ComForeColor of hoFormatConditionalAppearance1 to (RGB(255,0,0))
Send Destroy to hoFormatConditionalAppearance1
Variant voFormatConditionalAppearance2
Get ComAdd of hoFormatConditionalAppearances "Zero" "zero" "value = 0" to voFormatConditionalAppearance2
Handle hoFormatConditionalAppearance2
Get Create (RefClass(cComFormatConditionalAppearance)) to hoFormatConditionalAppearance2
Set pvComObject of hoFormatConditionalAppearance2 to voFormatConditionalAppearance2
Set ComBackColor of hoFormatConditionalAppearance2 to (RGB(224,224,224))
Send Destroy to hoFormatConditionalAppearance2
Send Destroy to hoFormatConditionalAppearances
Variant voFormatAppearances
Get ComFormatAppearances to voFormatAppearances
Handle hoFormatAppearances
Get Create (RefClass(cComFormatAppearances)) to hoFormatAppearances
Set pvComObject of hoFormatAppearances to voFormatAppearances
Variant voFormatAppearance
Get ComAdd of hoFormatAppearances "grayed" Nothing to voFormatAppearance
Handle hoFormatAppearance
Get Create (RefClass(cComFormatAppearance)) to hoFormatAppearance
Set pvComObject of hoFormatAppearance to voFormatAppearance
Set ComForeColor of hoFormatAppearance to (RGB(128,128,128))
Send Destroy to hoFormatAppearance
Variant voFormatAppearance1
Get ComAdd of hoFormatAppearances "red" Nothing to voFormatAppearance1
Handle hoFormatAppearance1
Get Create (RefClass(cComFormatAppearance)) to hoFormatAppearance1
Set pvComObject of hoFormatAppearance1 to voFormatAppearance1
Set ComForeColor of hoFormatAppearance1 to (RGB(255,0,0))
Send Destroy to hoFormatAppearance1
Variant voFormatAppearance2
Get ComAdd of hoFormatAppearances "green" Nothing to voFormatAppearance2
Handle hoFormatAppearance2
Get Create (RefClass(cComFormatAppearance)) to hoFormatAppearance2
Set pvComObject of hoFormatAppearance2 to voFormatAppearance2
Set ComForeColor of hoFormatAppearance2 to (RGB(0,255,0))
Send Destroy to hoFormatAppearance2
Variant voFormatAppearance3
Get ComAdd of hoFormatAppearances "blue" Nothing to voFormatAppearance3
Handle hoFormatAppearance3
Get Create (RefClass(cComFormatAppearance)) to hoFormatAppearance3
Set pvComObject of hoFormatAppearance3 to voFormatAppearance3
Set ComForeColor of hoFormatAppearance3 to (RGB(0,0,255))
Send Destroy to hoFormatAppearance3
Variant voFormatAppearance4
Get ComAdd of hoFormatAppearances "bgrayed" Nothing to voFormatAppearance4
Handle hoFormatAppearance4
Get Create (RefClass(cComFormatAppearance)) to hoFormatAppearance4
Set pvComObject of hoFormatAppearance4 to voFormatAppearance4
Set ComBackColor of hoFormatAppearance4 to (RGB(128,128,128))
Send Destroy to hoFormatAppearance4
Variant voFormatAppearance5
Get ComAdd of hoFormatAppearances "bred" Nothing to voFormatAppearance5
Handle hoFormatAppearance5
Get Create (RefClass(cComFormatAppearance)) to hoFormatAppearance5
Set pvComObject of hoFormatAppearance5 to voFormatAppearance5
Set ComBackColor of hoFormatAppearance5 to (RGB(255,0,0))
Send Destroy to hoFormatAppearance5
Variant voFormatAppearance6
Get ComAdd of hoFormatAppearances "bgreen" Nothing to voFormatAppearance6
Handle hoFormatAppearance6
Get Create (RefClass(cComFormatAppearance)) to hoFormatAppearance6
Set pvComObject of hoFormatAppearance6 to voFormatAppearance6
Set ComBackColor of hoFormatAppearance6 to (RGB(0,255,0))
Send Destroy to hoFormatAppearance6
Variant voFormatAppearance7
Get ComAdd of hoFormatAppearances "bblue" Nothing to voFormatAppearance7
Handle hoFormatAppearance7
Get Create (RefClass(cComFormatAppearance)) to hoFormatAppearance7
Set pvComObject of hoFormatAppearance7 to voFormatAppearance7
Set ComBackColor of hoFormatAppearance7 to (RGB(0,0,255))
Send Destroy to hoFormatAppearance7
Send Destroy to hoFormatAppearances
Set ComShowBranchRows to (OLEexBranchIncludeAggregate + OLEexBranchTree)
Set ComPivotRows to "0[bold],2[grayed]"
Set ComPivotColumns to "sum(5)[L1000],sum(5)[G1000]/12:A"
Set ComPivotTotals to "/sum[bold,content=currency,bgrayed]"
Set ComAutoDrag to OLEexAutoDragScroll
Set ComBackColorAlternate to (RGB(240,240,240))
Set ComFilterBarPromptType to OLEexFilterPromptContainsAny
Set ComFilterBarPromptPattern to "France Germany"
Send ComEndUpdate
Variant sFile
Move "c:/temp/export.htm" to sFile
Get ComExport sFile "vis" to Nothing
pvComObject(Self)End_Procedure
|
|
128
|
Export Data in CSV format
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Get ComImport "C:\Program Files\Exontrol\ExPivot\Sample\data.txt" Nothing to Nothing
Set ComPivotRows to "0"
Set ComPivotColumns to "sum(5),sum(5)/12:A"
Set ComPivotTotals to "sum[bold,content=currency]"
Set ComAutoDrag to OLEexAutoDragScroll
Set ComBackColorAlternate to (RGB(240,240,240))
Send ComEndUpdate
Showln (ComExport(Self,Nothing,Nothing))
End_Procedure
|
|
127
|
Is it possible to change the visual appearance of the update / reload button being displayed in the control's pivot bar
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 "gBFLBCJwBAEHhEJAAEhABMsGACAADACAxRDgMQBQKAAzAJBIYhiG4cYCgMYxXDOCYXABCEYRXBIZQ7BKNIxjSJwCgkBYJDSMAiiaLETwHFKVRwkWBBWjMAAxDZFcggA77fwxHaOAghGgobjaPY+UbGERAAKQahLJamablCSqLjCS4kSLHEbQHTcRSzLKQZBBCCSQKkYx0HScRiwPBIbQkIQmbajOaYDCiQ53QLCAYRXS9PwvI7AMBwLA8EwXBo9DZiIy4WyuGj3R4WchAbIwIxUK6XHhmLjZXg+Bz9T6LQZ0JStEx2SYjAJqOiKU62W9xbAUOxQTpIBJXW7Oc7GTa8dQfPoJaIDLicHgoZ6NLIcOR0abSO42CRrdByfRYMwvisCQKnYOh9i4LwbBINpBHeBxeC6X4TAIEpzkIWgei8L4Qk2boEhWPg9C4SJijIOZ7mEXA/iAX5yBKDx/lmVhEC0Z5ZlKHgGAAYIHkGcQxiCQ5eA4PghAKNgSG0VYXEiJYFl+QAtiCBpdjcDJkB0IgAiYIgBmIQAWCYCoigYZB4DQYpAjoLh3h6SJFgcOpXlAAQBICA==" to Nothing
Send Destroy to hoAppearance
Set ComBackground OLEexPivotBarReload to |CI$1000000
Get ComImport "C:\Program Files\Exontrol\ExPivot\Sample\data.txt" Nothing to Nothing
Set ComPivotBarVisible to (OLEexPivotBarAllowFormatConditionalAppearance + OLEexPivotBarAllowResizeColumns + OLEexPivotBarAllowUndoRedo + OLEexPivotBarAllowFormatContent + OLEexPivotBarAllowFormatAppearance + OLEexPivotBarAllowValues + OLEexPivotBarShowTotals + OLEexPivotBarAutoFit + OLEexPivotBarSizable + OLEexPivotBarVisible)
Send ComEndUpdate
End_Procedure
|
|
126
|
Is it possible to change the visual appearance of the plus/add new button being displayed in the control's pivot bar
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 "gBFLBCJwBAEHhEJAAEhABDwCg6AADACAxRDgMQBQKAAzAJBIYhiG4cYCgMYxXDOCYXABCEYRXBIZQ7BKNIxjSJ5BhIAAyDSJMjSRJUEhqGCWYDleYYYAKHIMQLJQKQSBcQR9EaBZBAWTpQC0OJDTJRI4TNAgbSYAAYRqoCb6loTKypaxjCQQIgkUBpGKdBynEYsDwSGyJCCJWyIbpKAwoVbcs4AYhuJpaQi+d5PFbjVT8dLAMBwLA8EwXAJ+OpfDxXU7eFKpR5fchXTI8UxXFqXZhkeQrfh7KYVRBKdBQRBEFQPJqnahqOpaXo2RoLUJKcQwHTmHYNQTALyuTALZrWeZ3XrgN74LbtZzVQauYRpbCMEr6bpoWLnFi6Ho1U4llWah1jqSweFqfxPgQQRphi+Yak0YIuqUfJegef4zluaJ3nqPJeCYH4BAeX5TDLBpVGqKRRnwf4flefZtHsX54BYAR/F+EwVnUd5eAMMJKDIChygyIQpAoEh4iIJ5JlgXIcgCXpIGoFwnGEQh6BEKBgmMIICHgIJCAiUAzgyUoAhwJohkiRgygwYpiGoKwzGIcgKCkNQNCMRIbCYCRYk4QoMiOchWDwNBjhiJJaDYTRiGiFwlCQAhOE8JBJHITIRgwZRZFCFCZBkOIUhKTRpCWAwgGYQ4El4NxlBifIWCcCYCFoaoMGaKYyG6GxlBmGJdhkCAWBIeA5g4U4QhMJAImkPIShRVxGgQJRlCIUISh+SJpnCZIeBgFgiHgO4OlOMINCISByECDQikkGhuh2JwpmqBogCKaYiC6FwhmkQ4yHgYgYiaHopiuaRakCbIsisSpGjYOwaHYKYMCkK5CA2IxrCwCwFigaJrkLTI6lcdANAEgIA=" to Nothing
Send Destroy to hoAppearance
Set ComBackground OLEexPivotBarAddNew to |CI$1000000
Get ComImport "C:\Program Files\Exontrol\ExPivot\Sample\data.txt" Nothing to Nothing
Send ComEndUpdate
End_Procedure
|
|
125
|
Is it possible to change the visual appearance of the position signs when user changes the column's position by drag and drop
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Set ComHeaderAppearance to OLEEtched
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 "gBFLBCJwBAEHhEJAAEhABZEGACAADACAxRDgMQBQKAAzAJBIYhiG4cYCgMYxXDOCYXABCEYRXBIZQ7BKNIxjSJwFgmEgADKMA4SOKIZhrE4bBhGaQRUgyI43RhHUBzVIUcQvE6TZRHCQYHgkNIhDJIM7TPLkeSVJaTIRoKhJUogApQThTMgVRDEThkGoSa6soSoYTDBKybLrSLKagOT5YUDKUqSdKEZRpEq1YztWbaQoCUoqVRRVIWfbNd4JJa4aDhWpYdpeeY5R7bWLgBYVVABL7LLRsSxpHxPF6RXxaeI3GKsaS8G6ic6nPQMHj7I4NS5pUa6Rh2VYNSa8AAtETRYznOw4bTMXAjNIea5bAYIIR5HIoDzVbQcCQAHL9DBeEMIQEEISgGhMGZQmocgymoYRRCIEQ0G2HYBnEIBig4V4zCQGINnmagCECY43medZ6H2Pw/g+X5fnueh/h+R5+AKABfkMWgGgGYA4AICoCGCE5WA4CphACMgSD2IRIDIBICmEd5YGCBpRjGBgegWIYIgWdgoGIRQsiKCZiAiJZ0gGQI4jUS4LECOAiBmDJflGfg2BSY4Al4OhGkOCJ2DgFJjGGfgqgiH5Ch4RhGkqOQmEOEpkFkHQYhJRYyESAokGKHhIhKIxJEmf4VGUeRGFmF5iBkchPhYJQ5GoYIZg6Ug6GoFYmkmNhuhulRGHKGoImefh0BUZ4JmYeoemeSZ2H6HQmgoBgXDqXwUAQgI=" to Nothing
Get ComAdd of hoAppearance 2 "CP:1 0 -36 0 0" to Nothing
Send Destroy to hoAppearance
Set ComBackground OLEexColumnsPositionSign to |CI$2000000
Get ComImport "C:\Program Files\Exontrol\ExPivot\Sample\data.txt" Nothing to Nothing
Send ComEndUpdate
End_Procedure
|
|
124
|
FilterBarCaption ALL Keyword ( sample 2, result )
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Get ComImport "C:\Program Files\Exontrol\ExPivot\Sample\data.txt" Nothing to Nothing
Set ComFilterBarFont to (ComFont(Self))
Set ComDescription OLEexFilterBarAnd to (ComFormatABC(Self,"`<fgcolor=808080> ` + value + ` </fgcolor>`",(ComDescription(Self,OLEexFilterBarAnd)),Nothing,Nothing))
Set ComFilterBarCaption to "(( ( value replace `[<b>` with `<bgcolor=000000><fgcolor=FFFFFF><b> ` replace `</b>]` with ` </b></bgcolor></fgcolor>` replace `[<s>` with `<bgcolor=C0C0C0><fgcolor=FFFFFF> ` replace `</s>]` with ` </fgcolor></bgcolor>` ) + `<r><fgcolor=808080>` + ( matchitemcount < 0 ? ( ( len(value) ? `` : `` ) + `<r>` + abs(matchitemcount + 1) + ` result(s)` ) : (`<r><fgcolor=808080>`+ itemcount + ` item(s)`) )))"
Set ComFilterBarPromptVisible to (OLEexFilterBarCompact + OLEexFilterBarShowCloseIfRequired + OLEexFilterBarSingleLine + OLEexFilterBarCaptionVisible + OLEexFilterBarVisible + OLEexFilterBarPromptVisible)
Send ComEndUpdate
End_Procedure
|
|
123
|
FilterBarCaption ALL Keyword ( sample 1 )
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Get ComImport "C:\Program Files\Exontrol\ExPivot\Sample\data.txt" Nothing to Nothing
Set ComFilterBarFont to (ComFont(Self))
Set ComDescription OLEexFilterBarAnd to (ComFormatABC(Self,"`<fgcolor=808080> ` + value + ` </fgcolor>`",(ComDescription(Self,OLEexFilterBarAnd)),Nothing,Nothing))
Set ComFilterBarCaption to "all"
Set ComFilterBarPromptVisible to (OLEexFilterBarVisible + OLEexFilterBarPromptVisible)
Send ComEndUpdate
End_Procedure
|
|
122
|
FilterBarCaption ALLUI Keyword ( sample 2, result )
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Get ComImport "C:\Program Files\Exontrol\ExPivot\Sample\data.txt" Nothing to Nothing
Set ComFilterBarFont to (ComFont(Self))
Set ComDescription OLEexFilterBarAnd to (ComFormatABC(Self,"`<fgcolor=808080> ` + value + ` </fgcolor>`",(ComDescription(Self,OLEexFilterBarAnd)),Nothing,Nothing))
Set ComFilterBarCaption to "(( ( allui replace `[<b>` with `<bgcolor=000000><fgcolor=FFFFFF><b> ` replace `</b>]` with ` </b></bgcolor></fgcolor>` replace `[<s>` with `<bgcolor=C0C0C0><fgcolor=FFFFFF> ` replace `</s>]` with ` </fgcolor></bgcolor>` ) + `<r><fgcolor=808080>` + ( matchitemcount < 0 ? ( ( len(value) ? `` : `` ) + `<r>` + abs(matchitemcount + 1) + ` result(s)` ) : (`<r><fgcolor=808080>`+ itemcount + ` item(s)`) )))"
Set ComFilterBarPromptVisible to (OLEexFilterBarVisible + OLEexFilterBarPromptVisible)
Send ComEndUpdate
End_Procedure
|
|
121
|
FilterBarCaption ALLUI Keyword ( sample 1 )
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Get ComImport "C:\Program Files\Exontrol\ExPivot\Sample\data.txt" Nothing to Nothing
Set ComFilterBarFont to (ComFont(Self))
Set ComDescription OLEexFilterBarAnd to (ComFormatABC(Self,"`<fgcolor=808080> ` + value + ` </fgcolor>`",(ComDescription(Self,OLEexFilterBarAnd)),Nothing,Nothing))
Set ComFilterBarCaption to "allui"
Set ComFilterBarPromptVisible to (OLEexFilterBarVisible + OLEexFilterBarPromptVisible)
Send ComEndUpdate
End_Procedure
|
|
120
|
FilterBarCaption AVAILABLE Keyword ( sample 2, result )
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Get ComImport "C:\Program Files\Exontrol\ExPivot\Sample\data.txt" Nothing to Nothing
Set ComFilterBarFont to (ComFont(Self))
Set ComDescription OLEexFilterBarAnd to (ComFormatABC(Self,"`<fgcolor=808080> ` + value + ` </fgcolor>`",(ComDescription(Self,OLEexFilterBarAnd)),Nothing,Nothing))
Set ComFilterBarCaption to "(( ( value replace `[` with `<bgcolor=000000><fgcolor=FFFFFF><b> ` replace `]` with ` </b></bgcolor></fgcolor>` ) + ` ` + ( available replace `[` with `<bgcolor=C0C0C0><fgcolor=FFFFFF><b> ` replace `]` with ` </b></bgcolor></fgcolor>` replace `<s>` with `` replace `</s>` with `` ) + `<fgcolor=808080>` + ( matchitemcount < 0 ? ( ( len(value) ? `` : `` ) + `<r>` + abs(matchitemcount + 1) + ` result(s)` ) : (`<r><fgcolor=808080>`+ itemcount + ` item(s)`) )))"
Set ComFilterBarPromptVisible to (OLEexFilterBarVisible + OLEexFilterBarPromptVisible)
Send ComEndUpdate
End_Procedure
|
|
119
|
FilterBarCaption AVAILABLE Keyword ( sample 1 )
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Get ComImport "C:\Program Files\Exontrol\ExPivot\Sample\data.txt" Nothing to Nothing
Set ComFilterBarFont to (ComFont(Self))
Set ComDescription OLEexFilterBarAnd to (ComFormatABC(Self,"`<fgcolor=808080> ` + value + ` </fgcolor>`",(ComDescription(Self,OLEexFilterBarAnd)),Nothing,Nothing))
Set ComFilterBarCaption to "value + ` ` + available"
Set ComFilterBarPromptVisible to (OLEexFilterBarVisible + OLEexFilterBarPromptVisible)
Send ComEndUpdate
End_Procedure
|
|
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 )
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Get ComImport "C:\Program Files\Exontrol\ExPivot\Sample\data.txt" Nothing to Nothing
Set ComFilterBarFont to (ComFont(Self))
Set ComDescription OLEexFilterBarAnd to (ComFormatABC(Self,"`<fgcolor=808080>` + value + `</fgcolor>`",(ComDescription(Self,OLEexFilterBarAnd)),Nothing,Nothing))
Set ComFilterBarCaption to "(`<b>` + value + `</b><fgcolor=808080>` + ( matchitemcount < 0 ? ( ( len(value) ? `` : `` ) + `<r>` + abs(matchitemcount + 1) + ` result(s)` ) : (`<fgcolor=808080>`+ itemcount + ` item(s)`) )) replace `[` with `<bgcolor=000000><fgcolor=FFFFFF><b> ` replace `]` with ` </b></bgcolor></fgcolor>`"
Set ComFilterBarPromptVisible to OLEexFilterBarToggle
Send ComEndUpdate
End_Procedure
|
|
117
|
Is it possible to somehow highlight the column's name different than its filter value in the control's filter bar ( sample 2 )
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Get ComImport "C:\Program Files\Exontrol\ExPivot\Sample\data.txt" Nothing to Nothing
Set ComFilterBarFont to (ComFont(Self))
Set ComDescription OLEexFilterBarAnd to (ComFormatABC(Self,"`<fgcolor=808080>` + value + `</fgcolor>`",(ComDescription(Self,OLEexFilterBarAnd)),Nothing,Nothing))
Set ComFilterBarCaption to "value replace `[` with `<bgcolor=000000><fgcolor=FFFFFF><b> ` replace `]` with ` </b></bgcolor></fgcolor>`"
Set ComFilterBarPromptVisible to OLEexFilterBarToggle
Send ComEndUpdate
End_Procedure
|
|
116
|
Is it possible to somehow highlight the column's name different than its filter value in the control's filter bar ( sample 1 )
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Get ComImport "C:\Program Files\Exontrol\ExPivot\Sample\data.txt" Nothing to Nothing
Set ComDescription OLEexFilterBarAnd to (ComFormatABC(Self,"`<fgcolor=808080>` + value + `</fgcolor>`",(ComDescription(Self,OLEexFilterBarAnd)),Nothing,Nothing))
Set ComFilterBarCaption to "value replace `[` with `<fgcolor=808080>[` replace `]` with `]</fgcolor>`"
Set ComFilterBarPromptVisible to OLEexFilterBarToggle
Send ComEndUpdate
End_Procedure
|
|
115
|
Is it possible to automatically displays the control's filter label to the right
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Get ComImport "C:\Program Files\Exontrol\ExPivot\Sample\data.txt" Nothing to Nothing
Set ComFilterBarCaption to "`<r>` + value"
Set ComFilterBarPromptVisible to (OLEexFilterBarShowCloseOnRight + OLEexFilterBarToggle)
Send ComEndUpdate
End_Procedure
|
|
114
|
How can I get the number of results/items being shown in the control's filter bar (sample 4)
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Get ComImport "C:\Program Files\Exontrol\ExPivot\Sample\data.txt" Nothing to Nothing
Set ComFilterBarFont to (ComFont(Self))
Set ComFilterBarPrompt to (ComFormatABC(Self,"`<b>` + value",(ComFilterBarPrompt(Self)),Nothing,Nothing))
Set ComFilterBarCaption to "`<b><r>` + value + `</b><fgcolor=808080>` + ( matchitemcount < 0 ? ( ( len(value) ? `<br>` : `` ) + `<r>` + abs(matchitemcount + 1) + ` result(s)` ) : (`<fgcolor=808080>`+ itemcount + ` item(s)`) )"
Set ComFilterBarPromptVisible to (OLEexFilterBarCompact + OLEexFilterBarShowCloseOnRight + OLEexFilterBarShowCloseIfRequired + OLEexFilterBarCaptionVisible + OLEexFilterBarVisible + OLEexFilterBarPromptVisible)
Send ComEndUpdate
End_Procedure
|
|
113
|
How can I get the number of results being shown in the control's filter bar (sample 3)
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Get ComImport "C:\Program Files\Exontrol\ExPivot\Sample\data.txt" Nothing to Nothing
Set ComFilterBarFont to (ComFont(Self))
Set ComFilterBarCaption to "`<b><r>` + value + `</b><fgcolor=808080>` + ( matchitemcount < 0 ? ( ( len(value) ? `<br>` : `` ) + `<r>` + abs(matchitemcount + 1) + ` result(s)` ) : ``)"
Set ComFilterBarPromptVisible to (OLEexFilterBarCompact + OLEexFilterBarCaptionVisible + OLEexFilterBarVisible + OLEexFilterBarPromptVisible)
Send ComEndUpdate
End_Procedure
|
|
112
|
How can I get the number of results being shown in the control's filter bar (sample 2, compact)
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Get ComImport "C:\Program Files\Exontrol\ExPivot\Sample\data.txt" Nothing to Nothing
Set ComFilterBarFont to (ComFont(Self))
Set ComFilterBarCaption to "`<b><r>` + value + `</b><fgcolor=808080>` + ( matchitemcount < 0 ? `<off -4> ` + abs(matchitemcount + 1) + ` result(s)` : ``)"
Set ComFilterBarPromptVisible to (OLEexFilterBarCompact + OLEexFilterBarSingleLine + OLEexFilterBarCaptionVisible + OLEexFilterBarVisible + OLEexFilterBarPromptVisible)
Send ComEndUpdate
End_Procedure
|
|
111
|
How can I get the number of results being shown in the control's filter bar (sample 1)
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Get ComImport "C:\Program Files\Exontrol\ExPivot\Sample\data.txt" Nothing to Nothing
Set ComFilterBarFont to (ComFont(Self))
Set ComFilterBarCaption to "`<b>` + value + `</b><r><fgcolor=808080>` + ( matchitemcount < 0 ? abs(matchitemcount + 1) + ` result(s)` : ``)"
Set ComFilterBarPromptVisible to (OLEexFilterBarCaptionVisible + OLEexFilterBarVisible + OLEexFilterBarPromptVisible)
Send ComEndUpdate
End_Procedure
|
|
110
|
FilterBarCaption Predefined Keywords
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Get ComImport "C:\Program Files\Exontrol\ExPivot\Sample\data.txt" Nothing to Nothing
Set ComLinesAtRoot to OLEexLinesAtRoot
Set ComFilterInclude to OLEexItemsWithChilds
Set ComFilterBarFont to (ComFont(Self))
Set ComFilterBarCaption to "`<fgcolor=0000FF><i>value/current</i></fgcolor>: <fgcolor=808080>` + value + `</fgcolor>` + `<br><fgcolor=0000FF><i>available</i></fgcolor>: ` + available + `<br><fgcolor=0000FF><i>allui</i></fgcolor>: ` + allui + `<br><fgcolor=0000FF><i>all</i></fgcolor>: ` + all + `<br><fgcolor=0000FF><i>itemcount</i></fgcolor>: <fgcolor=808080>` + itemcount + `</fgcolor>`+ `<br><fgcolor=0000FF><i>visibleitemcount</i></fgcolor>: <fgcolor=808080>` + visibleitemcount + `</fgcolor>`+ `<br><fgcolor=0000FF><i>matchitemcount</i></fgcolor>: <fgcolor=808080>` + matchitemcount + `</fgcolor>`+ `<br><fgcolor=0000FF><i>promptpattern</i></fgcolor>: <fgcolor=808080>` + promptpattern + `</fgcolor>`+ `<br><fgcolor=0000FF><i>leafitemcount</i></fgcolor>: <fgcolor=808080>` + leafitemcount + `</fgcolor>`"
Set ComFilterBarPromptPattern to "USA"
Set ComFilterBarPromptVisible to (OLEexFilterBarCaptionVisible + OLEexFilterBarVisible + OLEexFilterBarPromptVisible)
Send ComEndUpdate
End_Procedure
|
|
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
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Get ComImport "C:\Program Files\Exontrol\ExPivot\Sample\data.txt" Nothing to Nothing
Set ComFilterBarFont to (ComFont(Self))
Set ComFilterBarCaption to "`<r><i><fgcolor=808080><upline><solidline><sha ;;0>` + value"
Set ComFilterBarPromptPattern to "USA"
Set ComFilterBarPromptVisible to (OLEexFilterBarCompact + OLEexFilterBarSingleLine + OLEexFilterBarVisible + OLEexFilterBarPromptVisible)
Send ComEndUpdate
End_Procedure
|
|
108
|
Just wondering if it is possible to show the filter bar's close button on the right ( sample 2 )
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Get ComImport "C:\Program Files\Exontrol\ExPivot\Sample\data.txt" Nothing to Nothing
Set ComFilterBarPromptVisible to (OLEexFilterBarShowCloseOnRight + OLEexFilterBarToggle + OLEexFilterBarPromptVisible)
Set ComFilterBarPrompt to (ComFormatABC(Self,"`<r>` + value",(ComFilterBarPrompt(Self)),Nothing,Nothing))
Send ComEndUpdate
End_Procedure
|
|
107
|
How can I change the visual appearance of the filter bar's close button (EBN)
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 "gBFLBCJwBAEHhEJAAEhABHQDg6AADACAxRDgMQBQKAAzAJBIYhiG4cYCgMZhXDOCYXABCEYRXBIZQ7BKNIxjSJ5BhIAAyDSJMjSRJUEhqGCWYDleYYYAKHIMQLOg7IJjyI4/SJAYCydKAWhxIaZKJHCZoEDaTAADCNVAQp6MEIJVbVEI0e79OgBLp/Z7kECIJJAaRjHQdJxGLA8EhtCQhCZteK6SgMKJYXhWQYRXI1JwvMBrWrdQjiOYELQtMKmSZNLYGG4dR5SVJbcYhSYsRRFMoyDIOXYDLKsdYqSpXIThObEGgaPqJYjsUjCMKnR7HVIURrBPC9TBPE69ZgmC6ucKPX51ShKFaBWDZcwFAS+UBuYCAILiEAQGZ1XT8OROicbgJgSTJRlCaZeDsHY7QGR4xkSYp3CaExZAQMgalQYAwjCAAfBANxcA2TgKAUOpDCGFhKg0RpXCwCwDHQHQHEyAIkCkOhbFOGA8A8DohBgRg9AccZcn8EpEjMLI2C2DYxAgQgvAIUIVkoAAPBQDJlECTZ3CCYwDACQwUA8A5MCAWAWDiQi4l8aQOEgLJuBgBgDmYFAzEoIoIl0WALgKYJbBABADAAHgHg8VAMmqCQQDMXABAATYwTmNwBDATJXAiAgjHmNQ5lgQ5QEQEQMmcWg/GwD5ylyNw2gMcJcjsBgBgOQQDDhRpVAMMwnDBFw1B0Ax8D0DxOmmJJIGQTY5hGMAwkwM4CAYLZAmAOJnAqAojiIGg6iieYkmeAYOHaKJDCyCwjH6AoggsQpQliAJLhgaJ0CESBTnyDwjk+cg4g4P5IHIHJ+BWRRzlYWAxiOUxihsY4KjKLJRGqC44FCegkkkM58iAKAPnIWIWD8SRSFSfQnkmewUhYP4GiGKJ7G0TIbCSUoggqUo0lAQ4LnEcBcD8Coiiif4nE+eAAn2HpOkcFJqi4T5SkyMw/kqQown8IBIBOdA+A+DJrBqVxXEqYo4lCApLhGHBnD8S4ymyfxmg+cwQkQP5egOUZIWoEAkjIeIPBMBJBD+TBjBifwvkuc58hQJQPmFrYykkchclSApKjGOBuD+TRDFCfw3mmIxNi8FxFlOXhVC4aYDFyPgvg2YBcBcLZGCGCJ0DSLRzGSWQ/lmY5+mEP5gmMDBZRSMRsFsOxMhMJJ/DsTpTnwaQaE+N5ojuNhdEYNI5C4TZJO1GRDmCaxnA2Yx4n8IpIjOTBQBQC5TgyYw7gUYRYikC0BYRwsDQBoB8eA6Q2hsE0BUXgywZtYCyHMKwnxSAhAQHkIQhRrBaDsCwA4ERiB2EWAIYIXhhiVEgAEUYwwYjyASLge4FhHgRDkM8OQih0jWPkGgBBAQ" to Nothing
Send Destroy to hoAppearance
Get ComImport "C:\Program Files\Exontrol\ExPivot\Sample\data.txt" Nothing to Nothing
Set ComFilterBarPromptVisible to (OLEexFilterBarToggle + OLEexFilterBarPromptVisible)
Set ComBackground OLEexFooterFilterBarButton to |CI$1000000
Send ComEndUpdate
End_Procedure
|
|
106
|
How can I change the visual appearance of the filter bar's close button (solid)
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Get ComImport "C:\Program Files\Exontrol\ExPivot\Sample\data.txt" Nothing to Nothing
Set ComFilterBarPromptVisible to OLEexFilterBarPromptVisible
Set ComBackground OLEexFooterFilterBarButton to (RGB(255,0,0))
Send ComEndUpdate
End_Procedure
|
|
105
|
Is it possible to prevent definitely showing the filter bar's close button
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Get ComImport "C:\Program Files\Exontrol\ExPivot\Sample\data.txt" Nothing to Nothing
Set ComFilterBarPromptVisible to OLEexFilterBarPromptVisible
Set ComBackground OLEexFooterFilterBarButton to -1
Send ComEndUpdate
End_Procedure
|
|
104
|
Is it possible to show the close button only if there is a filter applied
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Get ComImport "C:\Program Files\Exontrol\ExPivot\Sample\data.txt" Nothing to Nothing
Set ComFilterBarPromptVisible to (OLEexFilterBarShowCloseIfRequired + OLEexFilterBarPromptVisible)
Send ComEndUpdate
End_Procedure
|
|
103
|
The control's filter bar is not closed once I click the close button (toggle)
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Get ComImport "C:\Program Files\Exontrol\ExPivot\Sample\data.txt" Nothing to Nothing
Set ComFilterBarCaption to "`<r><fgcolor=808080>` + value"
Set ComFilterBarPromptPattern to "USA"
Set ComFilterBarPromptVisible to (OLEexFilterBarCompact + OLEexFilterBarToggle + OLEexFilterBarSingleLine + OLEexFilterBarVisible + OLEexFilterBarPromptVisible)
Send ComEndUpdate
End_Procedure
|
|
102
|
How can I display the control's filter on a single line
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Get ComImport "C:\Program Files\Exontrol\ExPivot\Sample\data.txt" Nothing to Nothing
Set ComFilterBarCaption to "len(value) ? `filter for: <fgcolor 808080>` + value : `<fgcolor 808080>no filter`"
Set ComFilterBarPromptVisible to (OLEexFilterBarSingleLine + OLEexFilterBarVisible)
Send ComEndUpdate
End_Procedure
|
|
101
|
How can I display the control's filter on a single line (prompt-combined)
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Get ComImport "C:\Program Files\Exontrol\ExPivot\Sample\data.txt" Nothing to Nothing
Set ComFilterBarCaption to "`<r>` + value"
Set ComFilterBarPromptVisible to (OLEexFilterBarCompact + OLEexFilterBarSingleLine + OLEexFilterBarVisible + OLEexFilterBarPromptVisible)
Send ComEndUpdate
End_Procedure
|
|
100
|
How can I programmatically clear the control's filter
// Occurs when the user presses and then releases the left mouse button over the control.
Procedure OnComClick
Forward Send OnComClick
Send ComClearFilter
End_Procedure
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Get ComImport "C:\Program Files\Exontrol\ExPivot\Sample\data.txt" Nothing to Nothing
Set ComFilterBarPromptVisible to OLEexFilterBarPromptVisible
Set ComFilterBarPromptPattern to "USA"
Send ComEndUpdate
End_Procedure
|
|
99
|
Is it possible to prevent closing the control's filter bar, so it is always shown (prompt-combined)
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Get ComImport "C:\Program Files\Exontrol\ExPivot\Sample\data.txt" Nothing to Nothing
Set ComFilterBarPromptPattern to "USA"
Set ComFilterBarPromptVisible to (OLEexFilterBarVisible + OLEexFilterBarPromptVisible)
Send ComEndUpdate
End_Procedure
|
|
98
|
Is it possible to prevent closing the control's filter bar, so it is always shown (prompt)
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Get ComImport "C:\Program Files\Exontrol\ExPivot\Sample\data.txt" Nothing to Nothing
Set ComFilterBarPromptVisible to OLEexFilterBarPromptVisible
Set ComFilterBarPromptPattern to "USA"
Send ComEndUpdate
End_Procedure
|
|
97
|
Is it possible to prevent closing the control's filter bar, so it is always shown
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Get ComImport "C:\Program Files\Exontrol\ExPivot\Sample\data.txt" Nothing to Nothing
Set ComFilterBarCaption to "len(value) = 0 ? `<fgcolor=808080>no filter` : value"
Set ComFilterBarPromptVisible to OLEexFilterBarVisible
Send ComEndUpdate
End_Procedure
|
|
96
|
How can I find if the control is running in DPI mode
Procedure OnCreate
Forward Send OnCreate
Showln (ComFormatABC(Self,"dpi = 1 ? `normal/stretch mode` : `dpi mode`",Nothing,Nothing,Nothing))
End_Procedure
|
|
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
Procedure OnCreate
Forward Send OnCreate
Set ComDisplayPivotData to -1
Get ComImport "C:\Program Files\Exontrol\ExPivot\Sample\data.txt" Nothing to Nothing
End_Procedure
|
|
94
|
How do I change the drop down filter icon/button (white)
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 2 "gBFLBCJwBAEHhEJAAEhABX8GACAADACAxSDEMQBQKAAzQFAYbhgHCGAAGQaBUgmFgAQhFcZQSKUOQTDKNYykCIRSDUJYkSZEIyjBI8ExXFqNACkGKwYgmNYiTLAcgANJ0WBaGIZJ4gOT5fDKMoEDRRYADFCscwxJybQAqGQKKb+VgAVY/cTyBIAEQSKA0TDOQ5TSKWB4JPZQRBEbZMNBtBIUJquKaqShdQJCU5FdY3Xblez9P7AMBwLFEC4NQ8YNYuPhjR4dRTIMhvVAsUArFh8Zg9GZZFjmDIDT4ydBLTQwcyVIKnP5qOa6XbmPoCQDYKxZHYxPzVDa3axuL76dqCAT7XrXNy1TbNRrzQKfcJqfCbdw2YaDZLOOT3fjuI4hhKaRzFAHJ+jYQ4xHuY4gHuGIXGeExqC8Tp6C+PoEm+G5ImycRgh0XwvDGa5rgOeoejyXwnFeQp2mkf5ClgBB9gCWIYAwfYAEKV58mkdwOggNArgOXY2EWLoDkKOA0mgbhOGgZApgaSBIHWSYHSmbApgYThmESZYJkIeIkgeCpfliLIHgpMIcmUYYYmODAlg2SI4mWfRfGOEguDcCRjFYAJihCQhJBSDoRmONgKEcI4kFCEJhhOVYTmYnAlEAQhWBMJYJGYWoWmWSR2F6F5lnkWAQhUAgpEieRWEuSYkjWGpmkmNhuhuZwJkYcocmaaYkjyEhngnUA6lEFAlAEgI=" to Nothing
Get ComAdd of hoAppearance 1 "CP:2 -6 -4 2 4" to Nothing
Send Destroy to hoAppearance
Set ComBackground OLEexHeaderFilterBarButton to |CI$1000000
Set ComBackground OLEexCursorHoverColumn to (ComBackColor(Self))
Set ComHeaderVisible to True
Set ComHeaderHeight to 24
Get ComImport "C:\Program Files\Exontrol\ExPivot\Sample\data.txt" Nothing to Nothing
Set ComDisplayFilterList to (OLEexShowCheckBox + OLEexSortItemsAsc)
Set ComPivotBarVisible to OLEexPivotBarVisible
Send ComEndUpdate
End_Procedure
|
|
93
|
How do I change the drop down filter icon/button (black)
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 "gBFLBCJwBAEHhEJAAEhABXUIQAAYAQGKIcBiAKBQAGYBIJDEMgzDDAUBjKKocQTC4AIQjCK4JDKHYJRpHEZyCA8EhqGASRAFUQBYiWE4oSpLABQaK0ZwIGyRIrkGQgQgmPYDSDNU4zVIEEglBI0TDNczhNDENgtGYaJqHIYpZBcM40TKkEZoSIITZcRrOEBiRL1S0RBhGcRUHZlWzdN64LhuK47UrWdD/XhdVzXRbjfz1Oq+bxve48Br7A5yYThdr4LhOFQ3RjIL4xbIcUwGe6VZhjOLZXjmO49T69HTtOCYBEBA" to Nothing
Send Destroy to hoAppearance
Set ComBackground OLEexHeaderFilterBarButton to |CI$1000000
Set ComBackground OLEexCursorHoverColumn to -1
Set ComBackColorHeader to (RGB(0,0,0))
Set ComForeColorHeader to (RGB(255,255,255))
Set ComHeaderVisible to True
Set ComHeaderHeight to 22
Get ComImport "C:\Program Files\Exontrol\ExPivot\Sample\data.txt" Nothing to Nothing
Set ComDisplayFilterList to (OLEexShowCheckBox + OLEexSortItemsAsc)
Send ComEndUpdate
End_Procedure
|
|
92
|
How do I prevent showing the control's BackColorAlternate property on empty / non-items part of the control
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Set ComBackColorAlternate to |CI$7ff0f0f0
Get ComImport "C:\Program Files\Exontrol\ExPivot\Sample\data.txt" Nothing to Nothing
Set ComPivotRows to "12"
Set ComPivotColumns to "sum(5)"
Send ComEndUpdate
End_Procedure
|
|
91
|
How can I find out if the user clicks the grid's header
// 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 "Type of ColumnFromPoint: " (ComColumnFromPoint(Self,-1,-1)) " should not be VT_NULL"
Showln "Type of ValueFromPoint: " (ComValueFromPoint(Self,-1,-1)) " should be VT_NULL"
End_Procedure
Procedure OnCreate
Forward Send OnCreate
Get ComImport "C:\Program Files\Exontrol\ExPivot\Sample\data.txt" Nothing to Nothing
Set ComPivotRows to "0"
Set ComPivotColumns to "sum(5)"
End_Procedure
|
|
90
|
What should I set FormatPivotHeader to, to show it on the columns header only
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Get ComImport "C:\Program Files\Exontrol\ExPivot\Sample\data.txt" Nothing to Nothing
Set ComPivotRows to "0"
Set ComPivotColumns to "sum(5)/12"
Set ComFormatPivotHeader to "(iaggregate ? ( caption + ` <off -6><font ;6>(` + lower(caggregate) + ')</off></font>') : caption) + ( ( display=1 ? `<c>Date: <b><upline><dotline>` + date(`now`) : `` ) + `</dotline> </b>` )"
Send ComEndUpdate
End_Procedure
|
|
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)
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Get ComImport "C:\Program Files\Exontrol\ExPivot\Sample\data.txt" Nothing to Nothing
Set ComPivotRows to "0"
Set ComPivotColumns to "sum(5)/12"
Set ComFormatPivotHeader to "(iaggregate ? (`<b>` + caption + `</b> <off -6><font ;6>(` + lower(caggregate) + ')</off></font>') : caption) + `<r>ReportDate: ` + date(`now`)"
Send ComEndUpdate
End_Procedure
|
|
88
|
Is it possible to display aggregate result on parent rows as well
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Set ComHeaderHeight to 22
Set ComDefaultItemHeight to 20
Get ComImport "C:\Program Files\Exontrol\ExPivot\Sample\data.txt" Nothing to Nothing
Set ComPivotRows to "12[bold],0"
Variant voFormatConditionalAppearances
Get ComFormatConditionalAppearances to voFormatConditionalAppearances
Handle hoFormatConditionalAppearances
Get Create (RefClass(cComFormatConditionalAppearances)) to hoFormatConditionalAppearances
Set pvComObject of hoFormatConditionalAppearances to voFormatConditionalAppearances
Variant voFormatConditionalAppearance
Get ComAdd of hoFormatConditionalAppearances "nempty" "not empty" "" to voFormatConditionalAppearance
Handle hoFormatConditionalAppearance
Get Create (RefClass(cComFormatConditionalAppearance)) to hoFormatConditionalAppearance
Set pvComObject of hoFormatConditionalAppearance to voFormatConditionalAppearance
Set ComExpression of hoFormatConditionalAppearance to "len(value) != 0"
Set ComBackColor of hoFormatConditionalAppearance to (RGB(240,240,240))
Send Destroy to hoFormatConditionalAppearance
Send Destroy to hoFormatConditionalAppearances
Set ComPivotColumns to "sum(5)[nempty]/6"
Set ComIncludeExpandColumn to OLEexIncludeExpandColumn
Set ComDrawGridLines to OLEexNoLines
Set ComShowBranchRows to (OLEexBranchIncludeAggregate + OLEexBranchTree)
Send ComEndUpdate
End_Procedure
|
|
87
|
How do I show expanded/collapsed rows
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Set ComHeaderHeight to 22
Set ComDefaultItemHeight to 20
Get ComImport "C:\Program Files\Exontrol\ExPivot\Sample\data.txt" Nothing to Nothing
Set ComPivotRows to "12[bold],0"
Variant voFormatConditionalAppearances
Get ComFormatConditionalAppearances to voFormatConditionalAppearances
Handle hoFormatConditionalAppearances
Get Create (RefClass(cComFormatConditionalAppearances)) to hoFormatConditionalAppearances
Set pvComObject of hoFormatConditionalAppearances to voFormatConditionalAppearances
Variant voFormatConditionalAppearance
Get ComAdd of hoFormatConditionalAppearances "nempty" "not empty" "" to voFormatConditionalAppearance
Handle hoFormatConditionalAppearance
Get Create (RefClass(cComFormatConditionalAppearance)) to hoFormatConditionalAppearance
Set pvComObject of hoFormatConditionalAppearance to voFormatConditionalAppearance
Set ComExpression of hoFormatConditionalAppearance to "len(value) != 0"
Set ComBackColor of hoFormatConditionalAppearance to (RGB(240,240,240))
Send Destroy to hoFormatConditionalAppearance
Send Destroy to hoFormatConditionalAppearances
Set ComPivotColumns to "sum(5)[nempty]/6"
Set ComIncludeExpandColumn to OLEexIncludeExpandColumn
Set ComDrawGridLines to OLEexNoLines
Send ComEndUpdate
End_Procedure
|
|
86
|
How do I show expanded/collapsed columns
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Set ComHeaderHeight to 22
Set ComDefaultItemHeight to 20
Get ComImport "C:\Program Files\Exontrol\ExPivot\Sample\data.txt" Nothing to Nothing
Set ComPivotRows to "0"
Variant voFormatConditionalAppearances
Get ComFormatConditionalAppearances to voFormatConditionalAppearances
Handle hoFormatConditionalAppearances
Get Create (RefClass(cComFormatConditionalAppearances)) to hoFormatConditionalAppearances
Set pvComObject of hoFormatConditionalAppearances to voFormatConditionalAppearances
Variant voFormatConditionalAppearance
Get ComAdd of hoFormatConditionalAppearances "nempty" "not empty" "" to voFormatConditionalAppearance
Handle hoFormatConditionalAppearance
Get Create (RefClass(cComFormatConditionalAppearance)) to hoFormatConditionalAppearance
Set pvComObject of hoFormatConditionalAppearance to voFormatConditionalAppearance
Set ComExpression of hoFormatConditionalAppearance to "len(value) != 0"
Set ComBackColor of hoFormatConditionalAppearance to (RGB(240,240,240))
Send Destroy to hoFormatConditionalAppearance
Send Destroy to hoFormatConditionalAppearances
Set ComPivotColumns to "sum(5)[nempty]/12"
Set ComFormatPivotHeader to "(iaggregate ? ( caption + ` <r>[` + lower(caggregate) + `]` ) : caption)"
Set ComIncludeExpandColumn to OLEexIncludeExpandColumn
Send ComEndUpdate
End_Procedure
|
|
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
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Get ComImport "C:\Program Files\Exontrol\ExPivot\Sample\data.txt" Nothing to Nothing
Set ComPivotRows to "0"
Variant voFormatConditionalAppearances
Get ComFormatConditionalAppearances to voFormatConditionalAppearances
Handle hoFormatConditionalAppearances
Get Create (RefClass(cComFormatConditionalAppearances)) to hoFormatConditionalAppearances
Set pvComObject of hoFormatConditionalAppearances to voFormatConditionalAppearances
Variant voFormatConditionalAppearance
Get ComAdd of hoFormatConditionalAppearances "nempty" "not empty" "" to voFormatConditionalAppearance
Handle hoFormatConditionalAppearance
Get Create (RefClass(cComFormatConditionalAppearance)) to hoFormatConditionalAppearance
Set pvComObject of hoFormatConditionalAppearance to voFormatConditionalAppearance
Set ComExpression of hoFormatConditionalAppearance to "len(value) != 0"
Set ComBackColor of hoFormatConditionalAppearance to (RGB(240,240,240))
Send Destroy to hoFormatConditionalAppearance
Send Destroy to hoFormatConditionalAppearances
Set ComPivotColumns to "sum(5)[nempty]/12"
Set ComFormatPivotHeader to "(iaggregate ? (`<b>` + caption + `</b> <off -6><font ;6>(` + lower(caggregate) + ' )') : caption)"
Send ComEndUpdate
End_Procedure
|
|
84
|
How can I get the data column from the cursor
// 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 "DataColumn" (ComDataColumnFromPoint(Self,-1,-1))
End_Procedure
Procedure OnCreate
Forward Send OnCreate
Get ComImport "C:\Program Files\Exontrol\ExPivot\Sample\data.txt" Nothing to Nothing
Set ComPivotRows to "0"
Set ComPivotColumns to "sum(5)[content=numeric]"
Send ComRefresh
End_Procedure
|
|
83
|
Is there any way for the user to change the alignment at runtime (using excontextmenu)
// Occurs once the user right clicks the control.
Procedure OnComRClick
Forward Send OnComRClick
// 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()
Variant v
Variant voColumns
Get ComDataColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Variant voColumn
Get ComItem of hoColumns 5 to voColumn
Handle hoColumn
Get Create (RefClass(cComColumn)) to hoColumn
Set pvComObject of hoColumn to voColumn
Get ComAlignment of hoColumn to v
Send Destroy to hoColumn
Send Destroy to hoColumns
Variant h
Move v to h
Variant c
Move to cVariant voColumns1
Get ComDataColumns to voColumns1
Handle hoColumns1
Get Create (RefClass(cComColumns)) to hoColumns1
Set pvComObject of hoColumns1 to voColumns1
Variant voColumn1
Get ComItem of hoColumns1 5 to voColumn1
Handle hoColumn1
Get Create (RefClass(cComColumn)) to hoColumn1
Set pvComObject of hoColumn1 to voColumn1
Set ComAlignment of hoColumn1 to h
Set ComHeaderAlignment of hoColumn1 to h
Send Destroy to hoColumn1
Send Destroy to hoColumns1
Send ComRefresh
End_Procedure
Procedure OnCreate
Forward Send OnCreate
Set ComPivotBarVisible to (OLEexPivotBarAllowResizeColumns + OLEexPivotBarAllowUndoRedo + OLEexPivotBarAutoUpdate + OLEexPivotBarShowTotals + OLEexPivotBarAutoFit + OLEexPivotBarVisible)
Get ComImport "C:\Program Files\Exontrol\ExPivot\Sample\data.txt" Nothing to Nothing
Variant voColumns2
Get ComDataColumns to voColumns2
Handle hoColumns2
Get Create (RefClass(cComColumns)) to hoColumns2
Set pvComObject of hoColumns2 to voColumns2
Variant voColumn2
Get ComItem of hoColumns2 5 to voColumn2
Handle hoColumn2
Get Create (RefClass(cComColumn)) to hoColumn2
Set pvComObject of hoColumn2 to voColumn2
Set ComAlignment of hoColumn2 to OLERightAlignment
Set ComHeaderAlignment of hoColumn2 to OLERightAlignment
Send Destroy to hoColumn2
Send Destroy to hoColumns2
Set ComPivotRows to "0"
Set ComPivotColumns to "sum(5)[content=numeric]"
Send ComRefresh
End_Procedure
|
|
82
|
Is there any way for the user to change the alignment at runtime
// Occurs once the user right clicks the control.
Procedure OnComRClick
Forward Send OnComRClick
Showln "The column gets aligned to the center"
Variant voColumns
Get ComDataColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Variant voColumn
Get ComItem of hoColumns 5 to voColumn
Handle hoColumn
Get Create (RefClass(cComColumn)) to hoColumn
Set pvComObject of hoColumn to voColumn
Set ComAlignment of hoColumn to OLECenterAlignment
Set ComHeaderAlignment of hoColumn to OLECenterAlignment
Send Destroy to hoColumn
Send Destroy to hoColumns
Send ComRefresh
End_Procedure
Procedure OnCreate
Forward Send OnCreate
Get ComImport "C:\Program Files\Exontrol\ExPivot\Sample\data.txt" Nothing to Nothing
Variant voColumns1
Get ComDataColumns to voColumns1
Handle hoColumns1
Get Create (RefClass(cComColumns)) to hoColumns1
Set pvComObject of hoColumns1 to voColumns1
Variant voColumn1
Get ComItem of hoColumns1 5 to voColumn1
Handle hoColumn1
Get Create (RefClass(cComColumn)) to hoColumn1
Set pvComObject of hoColumn1 to voColumn1
Set ComAlignment of hoColumn1 to OLERightAlignment
Set ComHeaderAlignment of hoColumn1 to OLERightAlignment
Send Destroy to hoColumn1
Send Destroy to hoColumns1
Set ComPivotRows to "0"
Set ComPivotColumns to "sum(5)[content=numeric]"
Send ComRefresh
End_Procedure
|
|
81
|
How can I align a column to the right
Procedure OnCreate
Forward Send OnCreate
Get ComImport "C:\Program Files\Exontrol\ExPivot\Sample\data.txt" Nothing to Nothing
Variant voColumns
Get ComDataColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Variant voColumn
Get ComItem of hoColumns 5 to voColumn
Handle hoColumn
Get Create (RefClass(cComColumn)) to hoColumn
Set pvComObject of hoColumn to voColumn
Set ComAlignment of hoColumn to OLERightAlignment
Set ComHeaderAlignment of hoColumn to OLERightAlignment
Send Destroy to hoColumn
Send Destroy to hoColumns
Set ComPivotRows to "0"
Set ComPivotColumns to "sum(5)[content=numeric]"
Send ComRefresh
End_Procedure
|
|
80
|
How can I display the control's content on an single A3 paper size, when using PDF format
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
Get ComImport "C:\Program Files\Exontrol\ExPivot\Sample\data.txt" Nothing to Nothing
Variant voFormatConditionalAppearances
Get ComFormatConditionalAppearances to voFormatConditionalAppearances
Handle hoFormatConditionalAppearances
Get Create (RefClass(cComFormatConditionalAppearances)) to hoFormatConditionalAppearances
Set pvComObject of hoFormatConditionalAppearances to voFormatConditionalAppearances
Variant voFormatConditionalAppearance
Get ComItem of hoFormatConditionalAppearances "positive" to voFormatConditionalAppearance
Handle hoFormatConditionalAppearance
Get Create (RefClass(cComFormatConditionalAppearance)) to hoFormatConditionalAppearance
Set pvComObject of hoFormatConditionalAppearance to voFormatConditionalAppearance
Set ComBackColor of hoFormatConditionalAppearance to |CI$100ff00
Send Destroy to hoFormatConditionalAppearance
Send Destroy to hoFormatConditionalAppearances
Variant voFormatConditionalAppearances1
Get ComFormatConditionalAppearances to voFormatConditionalAppearances1
Handle hoFormatConditionalAppearances1
Get Create (RefClass(cComFormatConditionalAppearances)) to hoFormatConditionalAppearances1
Set pvComObject of hoFormatConditionalAppearances1 to voFormatConditionalAppearances1
Variant voFormatConditionalAppearance1
Get ComItem of hoFormatConditionalAppearances1 "negative" to voFormatConditionalAppearance1
Handle hoFormatConditionalAppearance1
Get Create (RefClass(cComFormatConditionalAppearance)) to hoFormatConditionalAppearance1
Set pvComObject of hoFormatConditionalAppearance1 to voFormatConditionalAppearance1
Set ComBackColor of hoFormatConditionalAppearance1 to |CI$10000ff
Send Destroy to hoFormatConditionalAppearance1
Send Destroy to hoFormatConditionalAppearances1
Set ComPivotRows to "0"
Set ComPivotColumns to "sum(5)[positive,negative]/12"
Send ComExpandAll
Variant var_CopyTo
Get ComCopyTo "C:\Temp\Preview.pdf|11.69 in x 16.53 in||single" to var_CopyTo
Showln "Look for C:\Temp\Preview.pd file."
Send ComEndUpdate
End_Procedure
|
|
79
|
How can I display the control's content on an A3 paper size, when using PDF format
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
Get ComImport "C:\Program Files\Exontrol\ExPivot\Sample\data.txt" Nothing to Nothing
Variant voFormatConditionalAppearances
Get ComFormatConditionalAppearances to voFormatConditionalAppearances
Handle hoFormatConditionalAppearances
Get Create (RefClass(cComFormatConditionalAppearances)) to hoFormatConditionalAppearances
Set pvComObject of hoFormatConditionalAppearances to voFormatConditionalAppearances
Variant voFormatConditionalAppearance
Get ComItem of hoFormatConditionalAppearances "positive" to voFormatConditionalAppearance
Handle hoFormatConditionalAppearance
Get Create (RefClass(cComFormatConditionalAppearance)) to hoFormatConditionalAppearance
Set pvComObject of hoFormatConditionalAppearance to voFormatConditionalAppearance
Set ComBackColor of hoFormatConditionalAppearance to |CI$100ff00
Send Destroy to hoFormatConditionalAppearance
Send Destroy to hoFormatConditionalAppearances
Variant voFormatConditionalAppearances1
Get ComFormatConditionalAppearances to voFormatConditionalAppearances1
Handle hoFormatConditionalAppearances1
Get Create (RefClass(cComFormatConditionalAppearances)) to hoFormatConditionalAppearances1
Set pvComObject of hoFormatConditionalAppearances1 to voFormatConditionalAppearances1
Variant voFormatConditionalAppearance1
Get ComItem of hoFormatConditionalAppearances1 "negative" to voFormatConditionalAppearance1
Handle hoFormatConditionalAppearance1
Get Create (RefClass(cComFormatConditionalAppearance)) to hoFormatConditionalAppearance1
Set pvComObject of hoFormatConditionalAppearance1 to voFormatConditionalAppearance1
Set ComBackColor of hoFormatConditionalAppearance1 to |CI$10000ff
Send Destroy to hoFormatConditionalAppearance1
Send Destroy to hoFormatConditionalAppearances1
Set ComPivotRows to "0"
Set ComPivotColumns to "sum(5)[positive,negative]/12"
Send ComExpandAll
Variant var_CopyTo
Get ComCopyTo "C:\Temp\Preview.pdf|11.69 in x 16.53 in" to var_CopyTo
Showln "Look for C:\Temp\Preview.pd file."
Send ComEndUpdate
End_Procedure
|
|
78
|
How can I export the control's content to a PDF document (method 1)
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
Get ComImport "C:\Program Files\Exontrol\ExPivot\Sample\data.txt" Nothing to Nothing
Variant voFormatConditionalAppearances
Get ComFormatConditionalAppearances to voFormatConditionalAppearances
Handle hoFormatConditionalAppearances
Get Create (RefClass(cComFormatConditionalAppearances)) to hoFormatConditionalAppearances
Set pvComObject of hoFormatConditionalAppearances to voFormatConditionalAppearances
Variant voFormatConditionalAppearance
Get ComItem of hoFormatConditionalAppearances "positive" to voFormatConditionalAppearance
Handle hoFormatConditionalAppearance
Get Create (RefClass(cComFormatConditionalAppearance)) to hoFormatConditionalAppearance
Set pvComObject of hoFormatConditionalAppearance to voFormatConditionalAppearance
Set ComBackColor of hoFormatConditionalAppearance to |CI$100ff00
Send Destroy to hoFormatConditionalAppearance
Send Destroy to hoFormatConditionalAppearances
Variant voFormatConditionalAppearances1
Get ComFormatConditionalAppearances to voFormatConditionalAppearances1
Handle hoFormatConditionalAppearances1
Get Create (RefClass(cComFormatConditionalAppearances)) to hoFormatConditionalAppearances1
Set pvComObject of hoFormatConditionalAppearances1 to voFormatConditionalAppearances1
Variant voFormatConditionalAppearance1
Get ComItem of hoFormatConditionalAppearances1 "negative" to voFormatConditionalAppearance1
Handle hoFormatConditionalAppearance1
Get Create (RefClass(cComFormatConditionalAppearance)) to hoFormatConditionalAppearance1
Set pvComObject of hoFormatConditionalAppearance1 to voFormatConditionalAppearance1
Set ComBackColor of hoFormatConditionalAppearance1 to |CI$10000ff
Send Destroy to hoFormatConditionalAppearance1
Send Destroy to hoFormatConditionalAppearances1
Set ComPivotRows to "0"
Set ComPivotColumns to "sum(5)[positive,negative]/12"
Send ComExpandAll
Send ComEndUpdate
Handle hoPrint
Get Create (RefClass(cComPrint)) to hoPrint // Import the 'ExPrint 1.0 Control Library' library
Set ComPrintExt of hoPrint to (pvComObject(Self))
Get ComCopyTo of hoPrint "c:/temp/xtest.pdf" to Nothing
Send Destroy to hoPrint
Showln "Look for C:\Temp\xtest.pdf file."
Send ComEndUpdate
End_Procedure
|
|
77
|
How can I export the control's content to a PDF document (method 2)
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
Get ComImport "C:\Program Files\Exontrol\ExPivot\Sample\data.txt" Nothing to Nothing
Variant voFormatConditionalAppearances
Get ComFormatConditionalAppearances to voFormatConditionalAppearances
Handle hoFormatConditionalAppearances
Get Create (RefClass(cComFormatConditionalAppearances)) to hoFormatConditionalAppearances
Set pvComObject of hoFormatConditionalAppearances to voFormatConditionalAppearances
Variant voFormatConditionalAppearance
Get ComItem of hoFormatConditionalAppearances "positive" to voFormatConditionalAppearance
Handle hoFormatConditionalAppearance
Get Create (RefClass(cComFormatConditionalAppearance)) to hoFormatConditionalAppearance
Set pvComObject of hoFormatConditionalAppearance to voFormatConditionalAppearance
Set ComBackColor of hoFormatConditionalAppearance to |CI$100ff00
Send Destroy to hoFormatConditionalAppearance
Send Destroy to hoFormatConditionalAppearances
Variant voFormatConditionalAppearances1
Get ComFormatConditionalAppearances to voFormatConditionalAppearances1
Handle hoFormatConditionalAppearances1
Get Create (RefClass(cComFormatConditionalAppearances)) to hoFormatConditionalAppearances1
Set pvComObject of hoFormatConditionalAppearances1 to voFormatConditionalAppearances1
Variant voFormatConditionalAppearance1
Get ComItem of hoFormatConditionalAppearances1 "negative" to voFormatConditionalAppearance1
Handle hoFormatConditionalAppearance1
Get Create (RefClass(cComFormatConditionalAppearance)) to hoFormatConditionalAppearance1
Set pvComObject of hoFormatConditionalAppearance1 to voFormatConditionalAppearance1
Set ComBackColor of hoFormatConditionalAppearance1 to |CI$10000ff
Send Destroy to hoFormatConditionalAppearance1
Send Destroy to hoFormatConditionalAppearances1
Set ComPivotRows to "0"
Set ComPivotColumns to "sum(5)[positive,negative]/12"
Send ComExpandAll
Variant var_CopyTo
Get ComCopyTo "c:/temp/xtest.pdf" to var_CopyTo
Showln "Look for C:\Temp\xtest.pdf file."
Send ComEndUpdate
End_Procedure
|
|
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
Procedure OnCreate
Forward Send OnCreate
Get ComImport "C:\Program Files\Exontrol\ExPivot\Sample\data.txt" Nothing to Nothing
Set ComPivotRows to "0"
Set ComPivotColumns to "sum(5)[content=numeric]"
Set ComDisplayFilterList to OLEexNoItems
Set ComPivotBarVisible to (OLEexPivotBarReadOnly + OLEexPivotBarAutoUpdate + OLEexPivotBarAutoFit + OLEexPivotBarVisible)
Send ComRefresh
End_Procedure
|
|
75
|
Is it possible to edit the conditional-expression at runtime
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Get ComImport "C:\Program Files\Exontrol\ExPivot\Sample\data.txt" Nothing to Nothing
Variant voFormatConditionalAppearances
Get ComFormatConditionalAppearances to voFormatConditionalAppearances
Handle hoFormatConditionalAppearances
Get Create (RefClass(cComFormatConditionalAppearances)) to hoFormatConditionalAppearances
Set pvComObject of hoFormatConditionalAppearances to voFormatConditionalAppearances
Variant voFormatConditionalAppearance
Get ComAdd of hoFormatConditionalAppearances "custom" "custom" "" to voFormatConditionalAppearance
Handle hoFormatConditionalAppearance
Get Create (RefClass(cComFormatConditionalAppearance)) to hoFormatConditionalAppearance
Set pvComObject of hoFormatConditionalAppearance to voFormatConditionalAppearance
Set ComBold of hoFormatConditionalAppearance to True
Set ComFontSize of hoFormatConditionalAppearance to 12
Set ComExpression of hoFormatConditionalAppearance to "value > 2000"
Set ComContextEditExpression of hoFormatConditionalAppearance to True
Send Destroy to hoFormatConditionalAppearance
Send Destroy to hoFormatConditionalAppearances
Set ComPivotRows to "0"
Set ComPivotColumns to "sum(5)[custom]/12"
Send ComEndUpdate
End_Procedure
|
|
74
|
How can I highlight values using EBN colors
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
Get ComImport "C:\Program Files\Exontrol\ExPivot\Sample\data.txt" Nothing to Nothing
Variant voFormatConditionalAppearances
Get ComFormatConditionalAppearances to voFormatConditionalAppearances
Handle hoFormatConditionalAppearances
Get Create (RefClass(cComFormatConditionalAppearances)) to hoFormatConditionalAppearances
Set pvComObject of hoFormatConditionalAppearances to voFormatConditionalAppearances
Variant voFormatConditionalAppearance
Get ComItem of hoFormatConditionalAppearances "positive" to voFormatConditionalAppearance
Handle hoFormatConditionalAppearance
Get Create (RefClass(cComFormatConditionalAppearance)) to hoFormatConditionalAppearance
Set pvComObject of hoFormatConditionalAppearance to voFormatConditionalAppearance
Set ComBackColor of hoFormatConditionalAppearance to |CI$100ff00
Send Destroy to hoFormatConditionalAppearance
Send Destroy to hoFormatConditionalAppearances
Variant voFormatConditionalAppearances1
Get ComFormatConditionalAppearances to voFormatConditionalAppearances1
Handle hoFormatConditionalAppearances1
Get Create (RefClass(cComFormatConditionalAppearances)) to hoFormatConditionalAppearances1
Set pvComObject of hoFormatConditionalAppearances1 to voFormatConditionalAppearances1
Variant voFormatConditionalAppearance1
Get ComItem of hoFormatConditionalAppearances1 "negative" to voFormatConditionalAppearance1
Handle hoFormatConditionalAppearance1
Get Create (RefClass(cComFormatConditionalAppearance)) to hoFormatConditionalAppearance1
Set pvComObject of hoFormatConditionalAppearance1 to voFormatConditionalAppearance1
Set ComBackColor of hoFormatConditionalAppearance1 to |CI$10000ff
Send Destroy to hoFormatConditionalAppearance1
Send Destroy to hoFormatConditionalAppearances1
Set ComPivotRows to "0"
Set ComPivotColumns to "sum(5)[positive,negative]/12"
Send ComEndUpdate
End_Procedure
|
|
73
|
How do I mark not-empty values in the chart
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Get ComImport "C:\Program Files\Exontrol\ExPivot\Sample\data.txt" Nothing to Nothing
Set ComPivotRows to "0"
Variant voFormatConditionalAppearances
Get ComFormatConditionalAppearances to voFormatConditionalAppearances
Handle hoFormatConditionalAppearances
Get Create (RefClass(cComFormatConditionalAppearances)) to hoFormatConditionalAppearances
Set pvComObject of hoFormatConditionalAppearances to voFormatConditionalAppearances
Variant voFormatConditionalAppearance
Get ComAdd of hoFormatConditionalAppearances "nempty" "not empty" "" to voFormatConditionalAppearance
Handle hoFormatConditionalAppearance
Get Create (RefClass(cComFormatConditionalAppearance)) to hoFormatConditionalAppearance
Set pvComObject of hoFormatConditionalAppearance to voFormatConditionalAppearance
Set ComExpression of hoFormatConditionalAppearance to "len(value) != 0"
Set ComBackColor of hoFormatConditionalAppearance to (RGB(240,240,240))
Send Destroy to hoFormatConditionalAppearance
Send Destroy to hoFormatConditionalAppearances
Set ComPivotColumns to "sum(5)[nempty]/12"
Send ComEndUpdate
End_Procedure
|
|
72
|
How can I highlight negative and positive values in the same chart
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Get ComImport "C:\Program Files\Exontrol\ExPivot\Sample\data.txt" Nothing to Nothing
Set ComPivotRows to "0"
Set ComPivotColumns to "sum(5)[negative,positive]/12"
Send ComEndUpdate
End_Procedure
|
|
71
|
How can I highlight values that starts with a letter
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Variant voFormatConditionalAppearances
Get ComFormatConditionalAppearances to voFormatConditionalAppearances
Handle hoFormatConditionalAppearances
Get Create (RefClass(cComFormatConditionalAppearances)) to hoFormatConditionalAppearances
Set pvComObject of hoFormatConditionalAppearances to voFormatConditionalAppearances
Variant voFormatConditionalAppearance
Get ComAdd of hoFormatConditionalAppearances "f" "starts with f" "lower(value) startwith `f`" to voFormatConditionalAppearance
Handle hoFormatConditionalAppearance
Get Create (RefClass(cComFormatConditionalAppearance)) to hoFormatConditionalAppearance
Set pvComObject of hoFormatConditionalAppearance to voFormatConditionalAppearance
Set ComExpression of hoFormatConditionalAppearance to "lower(value) startwith `f`"
Set ComShadow of hoFormatConditionalAppearance to (RGB(1,0,0))
Set ComShadowOffset of hoFormatConditionalAppearance to 0
Send Destroy to hoFormatConditionalAppearance
Send Destroy to hoFormatConditionalAppearances
Get ComImport "C:\Program Files\Exontrol\ExPivot\Sample\data.txt" Nothing to Nothing
Set ComPivotRows to "0[f]"
Send ComEndUpdate
End_Procedure
|
|
70
|
How can I mark values greater than a value, 100 for instance
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Variant voFormatConditionalAppearances
Get ComFormatConditionalAppearances to voFormatConditionalAppearances
Handle hoFormatConditionalAppearances
Get Create (RefClass(cComFormatConditionalAppearances)) to hoFormatConditionalAppearances
Set pvComObject of hoFormatConditionalAppearances to voFormatConditionalAppearances
Variant voFormatConditionalAppearance
Get ComAdd of hoFormatConditionalAppearances "greater100" ">100" "value > 100" to voFormatConditionalAppearance
Handle hoFormatConditionalAppearance
Get Create (RefClass(cComFormatConditionalAppearance)) to hoFormatConditionalAppearance
Set pvComObject of hoFormatConditionalAppearance to voFormatConditionalAppearance
Set ComExpression of hoFormatConditionalAppearance to "( dbl(value) != 0 ) ? (value > 100) : 0"
Set ComForeColor of hoFormatConditionalAppearance to (RGB(255,0,0))
Send Destroy to hoFormatConditionalAppearance
Send Destroy to hoFormatConditionalAppearances
Get ComImport "C:\Program Files\Exontrol\ExPivot\Sample\data.txt" Nothing to Nothing
Set ComPivotRows to "0"
Set ComPivotColumns to "sum(5)[greater100,content=numeric]"
Send ComEndUpdate
End_Procedure
|
|
69
|
How can I remove the Conditional context-menu
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Set ComPivotBarVisible to (OLEexPivotBarAllowResizeColumns + OLEexPivotBarAllowUndoRedo + OLEexPivotBarAutoUpdate + OLEexPivotBarAllowFormatContent + OLEexPivotBarAllowFormatAppearance + OLEexPivotBarAllowValues + OLEexPivotBarShowTotals + OLEexPivotBarAutoFit + OLEexPivotBarSizable + OLEexPivotBarVisible)
Get ComImport "C:\Program Files\Exontrol\ExPivot\Sample\data.txt" Nothing to Nothing
Set ComPivotRows to "0"
Set ComPivotColumns to "sum(5)[content=numeric]"
Send ComEndUpdate
End_Procedure
|
|
68
|
How do change the way the negative/positive numbers show when using conditional-format
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Get ComImport "C:\Program Files\Exontrol\ExPivot\Sample\data.txt" Nothing to Nothing
Variant voFormatConditionalAppearances
Get ComFormatConditionalAppearances to voFormatConditionalAppearances
Handle hoFormatConditionalAppearances
Get Create (RefClass(cComFormatConditionalAppearances)) to hoFormatConditionalAppearances
Set pvComObject of hoFormatConditionalAppearances to voFormatConditionalAppearances
Variant voFormatConditionalAppearance
Get ComItem of hoFormatConditionalAppearances "negative" to voFormatConditionalAppearance
Handle hoFormatConditionalAppearance
Get Create (RefClass(cComFormatConditionalAppearance)) to hoFormatConditionalAppearance
Set pvComObject of hoFormatConditionalAppearance to voFormatConditionalAppearance
Set ComBackColor of hoFormatConditionalAppearance to (RGB(0,0,0))
Set ComForeColor of hoFormatConditionalAppearance to (RGB(128,128,128))
Set ComFontSize of hoFormatConditionalAppearance to 8
Send Destroy to hoFormatConditionalAppearance
Send Destroy to hoFormatConditionalAppearances
Variant voFormatConditionalAppearances1
Get ComFormatConditionalAppearances to voFormatConditionalAppearances1
Handle hoFormatConditionalAppearances1
Get Create (RefClass(cComFormatConditionalAppearances)) to hoFormatConditionalAppearances1
Set pvComObject of hoFormatConditionalAppearances1 to voFormatConditionalAppearances1
Variant voFormatConditionalAppearance1
Get ComItem of hoFormatConditionalAppearances1 "positive" to voFormatConditionalAppearance1
Handle hoFormatConditionalAppearance1
Get Create (RefClass(cComFormatConditionalAppearance)) to hoFormatConditionalAppearance1
Set pvComObject of hoFormatConditionalAppearance1 to voFormatConditionalAppearance1
Set ComBackColor of hoFormatConditionalAppearance1 to (RGB(0,0,0))
Set ComForeColor of hoFormatConditionalAppearance1 to (RGB(1,0,0))
Set ComFontSize of hoFormatConditionalAppearance1 to 11
Send Destroy to hoFormatConditionalAppearance1
Send Destroy to hoFormatConditionalAppearances1
Set ComPivotRows to "0"
Set ComPivotColumns to "sum(5)[negative,positive,content=numeric]"
Send ComEndUpdate
End_Procedure
|
|
67
|
How do I highlight the negative values with white color or black
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Get ComImport "C:\Program Files\Exontrol\ExPivot\Sample\data.txt" Nothing to Nothing
Variant voFormatConditionalAppearances
Get ComFormatConditionalAppearances to voFormatConditionalAppearances
Handle hoFormatConditionalAppearances
Get Create (RefClass(cComFormatConditionalAppearances)) to hoFormatConditionalAppearances
Set pvComObject of hoFormatConditionalAppearances to voFormatConditionalAppearances
Variant voFormatConditionalAppearance
Get ComItem of hoFormatConditionalAppearances "negative" to voFormatConditionalAppearance
Handle hoFormatConditionalAppearance
Get Create (RefClass(cComFormatConditionalAppearance)) to hoFormatConditionalAppearance
Set pvComObject of hoFormatConditionalAppearance to voFormatConditionalAppearance
Set ComBackColor of hoFormatConditionalAppearance to (RGB(1,0,0))
Set ComForeColor of hoFormatConditionalAppearance to (RGB(255,255,255))
Send Destroy to hoFormatConditionalAppearance
Send Destroy to hoFormatConditionalAppearances
Set ComPivotRows to "0"
Set ComPivotColumns to "sum(5)[negative,content=numeric]"
Send ComEndUpdate
End_Procedure
|
|
66
|
Does your control support conditional-format, so I can highlight certain values
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Get ComImport "C:\Program Files\Exontrol\ExPivot\Sample\data.txt" Nothing to Nothing
Set ComPivotRows to "0"
Set ComPivotColumns to "sum(5)[negative,content=numeric]"
Send ComEndUpdate
End_Procedure
|
|
65
|
How do I add a computed column/field, like VAT for instance (method 2)
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Variant voAggregates
Get ComAggregates to voAggregates
Handle hoAggregates
Get Create (RefClass(cComAggregates)) to hoAggregates
Set pvComObject of hoAggregates to voAggregates
Variant voAggregate
Get ComAdd of hoAggregates "vat19" "sum" "VAT 19%" "VAT 19%" to voAggregate
Handle hoAggregate
Get Create (RefClass(cComAggregate)) to hoAggregate
Set pvComObject of hoAggregate to voAggregate
Set ComFormatValue of hoAggregate to "value * 0.19"
Send Destroy to hoAggregate
Variant voAggregate1
Get ComAdd of hoAggregates "vat24" "sum" "VAT 24%" "VAT 24%" to voAggregate1
Handle hoAggregate1
Get Create (RefClass(cComAggregate)) to hoAggregate1
Set pvComObject of hoAggregate1 to voAggregate1
Set ComFormatValue of hoAggregate1 to "value * 0.24"
Send Destroy to hoAggregate1
Send Destroy to hoAggregates
Get ComImport "C:\Program Files\Exontrol\ExPivot\Sample\data.txt" Nothing to Nothing
Set ComPivotRows to "0"
Set ComPivotColumns to "sum(5)[content=numeric],vat19(5)[bold,content=numeric],vat24(5)[bold,content=numeric]"
Send ComEndUpdate
End_Procedure
|
|
64
|
How do I add a computed column/field, like VAT for instance (method 1)
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Variant voFormatContents
Get ComFormatContents to voFormatContents
Handle hoFormatContents
Get Create (RefClass(cComFormatContents)) to hoFormatContents
Set pvComObject of hoFormatContents to voFormatContents
Variant voFormatContent
Get ComAdd of hoFormatContents "vat19" "VAT 19%" Nothing to voFormatContent
Handle hoFormatContent
Get Create (RefClass(cComFormatContent)) to hoFormatContent
Set pvComObject of hoFormatContent to voFormatContent
Set ComExpression of hoFormatContent to "len(value) ? ((value * 1.19) format '') : ''"
Send Destroy to hoFormatContent
Send Destroy to hoFormatContents
Variant voFormatContents1
Get ComFormatContents to voFormatContents1
Handle hoFormatContents1
Get Create (RefClass(cComFormatContents)) to hoFormatContents1
Set pvComObject of hoFormatContents1 to voFormatContents1
Variant voFormatContent1
Get ComAdd of hoFormatContents1 "vat24" "VAT 24%" Nothing to voFormatContent1
Handle hoFormatContent1
Get Create (RefClass(cComFormatContent)) to hoFormatContent1
Set pvComObject of hoFormatContent1 to voFormatContent1
Set ComExpression of hoFormatContent1 to "len(value) ? ((value * 1.24) format '') : ''"
Send Destroy to hoFormatContent1
Send Destroy to hoFormatContents1
Get ComImport "C:\Program Files\Exontrol\ExPivot\Sample\data.txt" Nothing to Nothing
Set ComPivotRows to "0"
Set ComPivotColumns to "sum(5)[content=numeric],sum(5)[bold,content=vat19],sum(5)[bold,content=vat24]"
Send ComEndUpdate
End_Procedure
|
|
63
|
How can I hide some values for instance negative values
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Variant voFormatContents
Get ComFormatContents to voFormatContents
Handle hoFormatContents
Get Create (RefClass(cComFormatContents)) to hoFormatContents
Set pvComObject of hoFormatContents to voFormatContents
Variant voFormatContent
Get ComAdd of hoFormatContents "hiden" "hide negative" Nothing to voFormatContent
Handle hoFormatContent
Get Create (RefClass(cComFormatContent)) to hoFormatContent
Set pvComObject of hoFormatContent to voFormatContent
Set ComExpression of hoFormatContent to "value < 0 ? `` : value"
Send Destroy to hoFormatContent
Send Destroy to hoFormatContents
Variant voFormatContents1
Get ComFormatContents to voFormatContents1
Handle hoFormatContents1
Get Create (RefClass(cComFormatContents)) to hoFormatContents1
Set pvComObject of hoFormatContents1 to voFormatContents1
Variant voFormatContent1
Get ComAdd of hoFormatContents1 "hidep" "hide positive" Nothing to voFormatContent1
Handle hoFormatContent1
Get Create (RefClass(cComFormatContent)) to hoFormatContent1
Set pvComObject of hoFormatContent1 to voFormatContent1
Set ComExpression of hoFormatContent1 to "value > 0 ? `` : value"
Send Destroy to hoFormatContent1
Send Destroy to hoFormatContents1
Get ComImport "C:\Program Files\Exontrol\ExPivot\Sample\data.txt" Nothing to Nothing
Set ComPivotRows to "0"
Set ComPivotColumns to "sum(5)[bold],sum(5)[content=hiden],sum(5)[content=hidep]"
Send ComEndUpdate
End_Procedure
|
|
62
|
How can I decode the Layout property
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Get ComImport "C:\Program Files\Exontrol\ExPivot\Sample\data.txt" Nothing to Nothing
Set ComPivotRows to "0"
Set ComPivotColumns to "sum(5)/12"
Set ComLayout to "Columns =1;C0.Width = 64"
Handle hoPrint
Get Create (RefClass(cComPrint)) to hoPrint // Import the 'ExPrint 1.0 Control Library' library
Variant vText64
Get ComLayout to vText64
Showln (ComDecode64TextW(hoPrint,vText64))
Send Destroy to hoPrint
Send ComEndUpdate
End_Procedure
|
|
61
|
How can I specify the sorting type, so the column gets sorted as numeric for instance
Procedure OnCreate
Forward Send OnCreate
Get ComImport "1,1#11,11#101,101" "eor='#' eof=',' hdr=0" to Nothing
Variant voColumns
Get ComDataColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Variant voColumn
Get ComItem of hoColumns 0 to voColumn
Handle hoColumn
Get Create (RefClass(cComColumn)) to hoColumn
Set pvComObject of hoColumn to voColumn
Set ComCaption of hoColumn to "Numeric"
Set ComSortType of hoColumn to OLESortNumeric
Send Destroy to hoColumn
Send Destroy to hoColumns
Variant voColumns1
Get ComDataColumns to voColumns1
Handle hoColumns1
Get Create (RefClass(cComColumns)) to hoColumns1
Set pvComObject of hoColumns1 to voColumns1
Variant voColumn1
Get ComItem of hoColumns1 1 to voColumn1
Handle hoColumn1
Get Create (RefClass(cComColumn)) to hoColumn1
Set pvComObject of hoColumn1 to voColumn1
Set ComCaption of hoColumn1 to "String (default)"
Send Destroy to hoColumn1
Send Destroy to hoColumns1
Set ComPivotRows to "0"
Send ComRefresh
End_Procedure
|
|
60
|
How can I disable the control's context menu
Procedure OnCreate
Forward Send OnCreate
Get ComImport "C:\Program Files\Exontrol\ExPivot\Sample\data.txt" Nothing to Nothing
Set ComPivotRows to "0"
Set ComPivotBarVisible to (OLEexPivotBarAllowResizeColumns + OLEexPivotBarAllowUndoRedo + OLEexPivotBarAutoUpdate + OLEexPivotBarAllowValues + OLEexPivotBarShowTotals + OLEexPivotBarAutoFit + OLEexPivotBarSizable + OLEexPivotBarVisible)
End_Procedure
|
|
59
|
How do I get the captions of the columns
Procedure OnCreate
Forward Send OnCreate
Get ComImport "C:\Program Files\Exontrol\ExPivot\Sample\data.txt" Nothing to Nothing
Variant v
Variant voColumns
Get ComDataColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComCount of hoColumns to v
Send Destroy to hoColumns
Showln v
Variant v1
Variant voColumns1
Get ComDataColumns 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
Get ComPivotCaption of hoColumn to v1
Send Destroy to hoColumn
Send Destroy to hoColumns1
Showln v1
Variant v2
Variant voColumns2
Get ComDataColumns to voColumns2
Handle hoColumns2
Get Create (RefClass(cComColumns)) to hoColumns2
Set pvComObject of hoColumns2 to voColumns2
Variant voColumn1
Get ComItem of hoColumns2 0 to voColumn1
Handle hoColumn1
Get Create (RefClass(cComColumn)) to hoColumn1
Set pvComObject of hoColumn1 to voColumn1
Get ComCaption of hoColumn1 to v2
Send Destroy to hoColumn1
Send Destroy to hoColumns2
Showln v2
Variant v3
Variant voColumns3
Get ComDataColumns to voColumns3
Handle hoColumns3
Get Create (RefClass(cComColumns)) to hoColumns3
Set pvComObject of hoColumns3 to voColumns3
Variant voColumn2
Get ComItem of hoColumns3 1 to voColumn2
Handle hoColumn2
Get Create (RefClass(cComColumn)) to hoColumn2
Set pvComObject of hoColumn2 to voColumn2
Get ComPivotCaption of hoColumn2 to v3
Send Destroy to hoColumn2
Send Destroy to hoColumns3
Showln v3
Variant v4
Variant voColumns4
Get ComDataColumns to voColumns4
Handle hoColumns4
Get Create (RefClass(cComColumns)) to hoColumns4
Set pvComObject of hoColumns4 to voColumns4
Variant voColumn3
Get ComItem of hoColumns4 1 to voColumn3
Handle hoColumn3
Get Create (RefClass(cComColumn)) to hoColumn3
Set pvComObject of hoColumn3 to voColumn3
Get ComCaption of hoColumn3 to v4
Send Destroy to hoColumn3
Send Destroy to hoColumns4
Showln v4
End_Procedure
|
|
58
|
How can I specify the default-format for a specified column, so it always shows as numeric for instance
Procedure OnCreate
Forward Send OnCreate
Get ComImport "C:\Program Files\Exontrol\ExPivot\Sample\data.txt" Nothing to Nothing
Variant voColumns
Get ComDataColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Variant voColumn
Get ComItem of hoColumns "Freight" to voColumn
Handle hoColumn
Get Create (RefClass(cComColumn)) to hoColumn
Set pvComObject of hoColumn to voColumn
Set ComDefaultFormatContent of hoColumn to "numeric"
Set ComDefaultFormatAppearances of hoColumn to "bold"
Set ComSortOrder of hoColumn to OLESortAscending
Set ComSortType of hoColumn to OLESortNumeric
Send Destroy to hoColumn
Send Destroy to hoColumns
Set ComPivotTotalDefaultFormatContent to "currency"
Set ComPivotTotalDefaultFormatAppearances to "strikeout,bold"
Set ComPivotRows to "0"
Set ComPivotColumns to "sum(5)[bold,content=numeric]"
Set ComPivotTotals to "sum[strikeout,bold,content=currency]"
Set ComPivotColumnsFloatBarVisible to True
Send ComRefresh
End_Procedure
|
|
57
|
How can I display the percentage column
Procedure OnCreate
Forward Send OnCreate
Variant voFormatContents
Get ComFormatContents to voFormatContents
Handle hoFormatContents
Get Create (RefClass(cComFormatContents)) to hoFormatContents
Set pvComObject of hoFormatContents to voFormatContents
Get ComAdd of hoFormatContents "percent" "value + `%`" Nothing to Nothing
Send Destroy to hoFormatContents
Get ComImport "C:\Program Files\Exontrol\ExPivot\Sample\data.txt" Nothing to Nothing
Set ComPivotRows to "5[content=percent]"
Send ComRefresh
End_Procedure
|
|
56
|
How do I change the name for months in the drop-down filter window (localization)
Procedure OnCreate
Forward Send OnCreate
Showln (ComDescription(Self,OLEexFilterBarDateMonths))
Set ComDescription OLEexFilterBarDateMonths to "Ianuarie Februarie Martie Aprilie Mai Iunie Iulie August Septembrie Octombrie Noiembrie Decembrie"
Set ComDescription OLEexFilterBarAll to "(Toate)"
Set ComDescription OLEexFilterBarBlanks to "(Gol)"
Set ComDescription OLEexFilterBarNonBlanks to "(Plin)"
Set ComDescription OLEexFilterBarFilterForCaption to "Filtreaza:"
Set ComDescription OLEexFilterBarDateTodayCaption to "Azi"
Set ComDescription OLEexFilterBarDateWeekDays to "D L Ma Mi J V S"
Set ComDescription OLEexFilterBarExclude to "Exclud"
Set ComDescription OLEexColumnsFloatBar to "Coloane"
Set ComDescription OLEexFilterBarAnd to "si"
Set ComDescription OLEexFilterBarDate to "Data:"
Set ComDescription OLEexFilterBarDateTitle to "Data"
Set ComDescription OLEexFilterBarDateTo to "la"
Set ComDescription OLEexFilterBarNot to "nu"
Set ComDescription OLEexFilterBarOr to "sau"
Get ComImport "C:\Program Files\Exontrol\ExPivot\Sample\data.txt" Nothing to Nothing
Variant voColumns
Get ComDataColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Variant voColumn
Get ComItem of hoColumns "OrderDate" to voColumn
Handle hoColumn
Get Create (RefClass(cComColumn)) to hoColumn
Set pvComObject of hoColumn to voColumn
Set ComSortType of hoColumn to OLESortDate
Send Destroy to hoColumn
Send Destroy to hoColumns
Set ComPivotRows to "9"
Send ComRefresh
End_Procedure
|
|
55
|
How can I scale and print programmatically the pivot table, to fit on one axis eg FitPageHeight but infinite width etc
Procedure OnCreate
Forward Send OnCreate
Get ComImport "C:\Program Files\Exontrol\ExPivot\Sample\data.txt" Nothing to Nothing
Set ComPivotRows to "6"
Set ComPivotColumns to "sum(5)/3"
Send ComRefresh
Handle hoPrint
Get Create (RefClass(cComPrint)) to hoPrint // Import the 'ExPrint 1.0 Control Library' library
Set ComOptions of hoPrint to "FitToPage = x 5"
Set ComPrintExts of hoPrint to (pvComObject(Self))
Send ComPreview of hoPrint
Send Destroy to hoPrint
End_Procedure
|
|
54
|
How can I scale and print programmatically the pivot table, to fit on one axis eg FitPageWidth but infinite height etc
Procedure OnCreate
Forward Send OnCreate
Get ComImport "C:\Program Files\Exontrol\ExPivot\Sample\data.txt" Nothing to Nothing
Set ComPivotRows to "6"
Set ComPivotColumns to "sum(5)/3"
Send ComRefresh
Handle hoPrint
Get Create (RefClass(cComPrint)) to hoPrint // Import the 'ExPrint 1.0 Control Library' library
Set ComOptions of hoPrint to "FitToPage = 5 x"
Set ComPrintExts of hoPrint to (pvComObject(Self))
Send ComPreview of hoPrint
Send Destroy to hoPrint
End_Procedure
|
|
53
|
How can I get the column from the cursor
// 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 (ComColumnFromPoint(Self,-1,-1))
End_Procedure
Procedure OnCreate
Forward Send OnCreate
Get ComImport "C:\Program Files\Exontrol\ExPivot\Sample\data.txt" Nothing to Nothing
Send ComRefresh
End_Procedure
|
|
52
|
How can I get the value from the cursor
// 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 (ComValueFromPoint(Self,-1,-1))
End_Procedure
Procedure OnCreate
Forward Send OnCreate
Get ComImport "C:\Program Files\Exontrol\ExPivot\Sample\data.txt" Nothing to Nothing
Send ComRefresh
End_Procedure
|
|
51
|
How can I specify a column to display HTML format
Procedure OnCreate
Forward Send OnCreate
Get ComImport "Bold <b>1,Bold <b>2#Bold <b>3,Bold <b>4#Bold <b>5,Bold <b>6" "eor='#' eof=',' hdr=0" to Nothing
Variant voColumns
Get ComDataColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Variant voColumn
Get ComItem of hoColumns 0 to voColumn
Handle hoColumn
Get Create (RefClass(cComColumn)) to hoColumn
Set pvComObject of hoColumn to voColumn
Set ComHTML of hoColumn to True
Send Destroy to hoColumn
Send Destroy to hoColumns
Variant voColumns1
Get ComDataColumns to voColumns1
Handle hoColumns1
Get Create (RefClass(cComColumns)) to hoColumns1
Set pvComObject of hoColumns1 to voColumns1
Variant voColumn1
Get ComItem of hoColumns1 1 to voColumn1
Handle hoColumn1
Get Create (RefClass(cComColumn)) to hoColumn1
Set pvComObject of hoColumn1 to voColumn1
Set ComHTML of hoColumn1 to True
Send Destroy to hoColumn1
Send Destroy to hoColumns1
Set ComPivotRows to "0"
Send ComRefresh
End_Procedure
|
|
50
|
Does your control supports scrolling by touching the screen
Procedure OnCreate
Forward Send OnCreate
Variant rs
Get Comcreateobject "ADOR.Recordset" to rs
Send ComOpen "Data" "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Program Files\Exontrol\ExPivot\Sample\Access\sample.accdb" OLEadOpenStatic OLEadLockOptimistic Nothing
Set ComDataSource to rs
Set ComAutoDrag to (OLEexAutoDragScrollOnShortTouch + OLEexAutoDragScroll)
End_Procedure
|
|
49
|
How can I specify programatically the width of the pivot column ( first column )
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Get ComImport "C:\Program Files\Exontrol\ExPivot\Sample\data.txt" Nothing to Nothing
Set ComPivotRows to "0"
Set ComPivotColumns to "sum(5)/12"
Set ComLayout to "Columns =1;C0.Width = 64"
Send ComEndUpdate
End_Procedure
|
|
48
|
How can I show the total of each row, when columns are shown as expanded
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Set ComIncludeExpandColumn to OLEexIncludeExpandColumn
Get ComImport "C:\Program Files\Exontrol\ExPivot\Sample\data.txt" Nothing to Nothing
Set ComPivotRows to "0"
Set ComPivotColumns to "sum(5)/12"
Send ComEndUpdate
End_Procedure
|