|
297
|
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
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 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 OLEexHeaderFilterBarButton to |CI$4000000
Set ComBackground OLEexHeaderFilterBarActive to |CI$4010101
Set ComBackground OLEexFooterFilterBarButton to |CI$40000ff
Set ComBackground OLEexCheckBoxState0 to |CI$1000000
Set ComBackground OLEexCheckBoxState1 to |CI$2000000
Set ComBackground OLEexCheckBoxState2 to |CI$3000000
Set ComExpandFolders to True
Set ComFilterBarPromptVisible to (|CI$ffffd0e8 + OLEexFilterBarTop + OLEexFilterBarCompact + OLEexFilterBarShowCloseOnRight + OLEexFilterBarShowCloseIfRequired + OLEexFilterBarToggle + OLEexFilterBarSingleLine + OLEexFilterBarCaptionVisible + OLEexFilterBarVisible + OLEexFilterBarPromptVisible)
Set ComHasCheckBox to OLEPartialCheckBox
Set ComExploreFromHere to ""
Send ComExpand "C:"
Set ComColumnFilterButton "Type" to True
Send ComEndUpdate
End_Procedure
|
|
296
|
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
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 ComExpandFolders to True
Set ComFilterBarPromptVisible to (|CI$ffffd0e8 + OLEexFilterBarTop + OLEexFilterBarCompact + OLEexFilterBarShowCloseOnRight + OLEexFilterBarShowCloseIfRequired + OLEexFilterBarToggle + OLEexFilterBarSingleLine + OLEexFilterBarCaptionVisible + OLEexFilterBarVisible + OLEexFilterBarPromptVisible)
Set ComHasCheckBox to OLEPartialCheckBox
Set ComExploreFromHere to ""
Send ComExpand "C:"
Set ComColumnFilterButton "Type" to True
Send ComEndUpdate
End_Procedure
|
|
295
|
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
|
|
294
|
Is there any event to notify that the control still loading files and/or folders
// Fired while the control's state has been changed.
Procedure OnComStateChange OLEStateChangeEnum llState
Forward Send OnComStateChange llState
Showln (ComFormatABC(Self,"value = 22 ? `LoadingState` : (value = 9 ? `BeforeLoadState` : (value = 10 ? `AfterLoadState` : ``))",llState,Nothing,Nothing))
End_Procedure
|
|
293
|
How to initiate the OLE drag and drop support for the control
// Occurs when the OLEDrag method is called.
Procedure OnComOLEStartDrag Variant llData Integer llAllowedEffects
Forward Send OnComOLEStartDrag llData llAllowedEffects
// Data.SetData("files to drag")
Move 1 to AllowedEffects
End_Procedure
Procedure OnCreate
Forward Send OnCreate
Set ComOLEDropMode to OLEexOLEDropManual
Set ComSingleSel to False
End_Procedure
|
|
292
|
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 ComBackground OLEexHeaderFilterBarButton to |CI$1fefefe
Set ComBackground OLEexHeaderFilterBarActive to |CI$1010101
Set ComBackground OLEexCursorHoverColumn to -1
Set ComExploreFromHere to ""
Set ComColumnFilterButton "Name" to True
Set ComColumnFilterButton "Type" to True
Set ComFilterBarFont to (ComFont(Self))
Set ComDescription (|CI$8 + OLEexFilterBarPatternFilterTitle) to (ComFormatABC(Self,"`<fgcolor=808080> ` + value + ` </fgcolor>`",(ComDescription(Self,(|CI$8 + OLEexFilterBarPatternFilterTitle))),Nothing,Nothing))
Set ComFilterBarCaption to "(( ( all 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
|
|
291
|
How can I get the file being dropped by drag and drop
// Occurs when a source component is dropped onto a target component when the source component determines that a drop can occur.
Procedure OnComOLEDragDrop Variant llData Integer llEffect Short llButton Short llShift OLE_XPOS_PIXELS llX OLE_YPOS_PIXELS llY
Forward Send OnComOLEDragDrop llData llEffect llButton llShift llX llY
Showln llData
End_Procedure
Procedure OnCreate
Forward Send OnCreate
Set ComExploreFromHere to ""
Set ComOLEDropMode to OLEexOLEDropManual
End_Procedure
|
|
290
|
Is it possible to show the filterbar on top of the rows
Procedure OnCreate
Forward Send OnCreate
Set ComFilterBarPromptVisible to (OLEexFilterBarTop + OLEexFilterBarShowCloseIfRequired + OLEexFilterBarPromptVisible)
End_Procedure
|
|
289
|
Computers and Devices
Procedure OnCreate
Forward Send OnCreate
Set ComExploreFromHere to "::{F02C1A0D-BE21-4350-88B0-7367FC96EF3C}"
End_Procedure
|
|
288
|
StreamBackedFolder
Procedure OnCreate
Forward Send OnCreate
Set ComExploreFromHere to "::{EDC978D6-4D53-4b2f-A265-5805674BE568}"
End_Procedure
|
|
287
|
Games Explorer
Procedure OnCreate
Forward Send OnCreate
Set ComExploreFromHere to "::{ED228FDF-9EA8-4870-83b1-96b02CFE0D52}"
End_Procedure
|
|
286
|
CLSID_StartMenuPathCompleteProviderFolder
Procedure OnCreate
Forward Send OnCreate
Set ComExploreFromHere to "::{e345f35f-9397-435c-8f95-4e922c26259e}"
End_Procedure
|
|
285
|
CLSID_StartMenuProviderFolder
Procedure OnCreate
Forward Send OnCreate
Set ComExploreFromHere to "::{daf95313-e44d-46af-be1b-cbacea2c3065}"
End_Procedure
|
|
284
|
Offline Files
Procedure OnCreate
Forward Send OnCreate
Set ComExploreFromHere to "::{BD7A2E7B-21CB-41b2-A086-B309680C6B7E}"
End_Procedure
|
|
283
|
Other Users Folder
Procedure OnCreate
Forward Send OnCreate
Set ComExploreFromHere to "::{B4FB3F98-C1EA-428d-A78A-D1F5659CBA93}"
End_Procedure
|
|
282
|
CLSID_StartMenuCommandingProviderFolder
Procedure OnCreate
Forward Send OnCreate
Set ComExploreFromHere to "::{a00ee528-ebd9-48b8-944a-8942113d46ac}"
End_Procedure
|
|
281
|
CLSID_StartMenuLauncherProviderFolder
Procedure OnCreate
Forward Send OnCreate
Set ComExploreFromHere to "::{98f275b4-4fff-11e0-89e2-7b86dfd72085}"
End_Procedure
|
|
280
|
Search Home
Procedure OnCreate
Forward Send OnCreate
Set ComExploreFromHere to "::{9343812e-1c37-4a49-a12e-4b2d810d956b}"
End_Procedure
|
|
279
|
CLSID_AppInstanceFolder
Procedure OnCreate
Forward Send OnCreate
Set ComExploreFromHere to "::{64693913-1c21-4f30-a98f-4e52906d3b56}"
End_Procedure
|
|
278
|
Control Panel command object for Start menu and desktop
Procedure OnCreate
Forward Send OnCreate
Set ComExploreFromHere to "::{5399E694-6CE5-4D6C-8FCE-1D8870FDCBA0}"
End_Procedure
|
|
277
|
This PC
Procedure OnCreate
Forward Send OnCreate
Set ComExploreFromHere to "::{20D04FE0-3AEA-1069-A2D8-08002B30309D}"
End_Procedure
|
|
276
|
IE History and Feeds Shell Data Source for Windows Search
Procedure OnCreate
Forward Send OnCreate
Set ComExploreFromHere to "::{11016101-E366-4D22-BC06-4ADA335C892B}"
End_Procedure
|
|
275
|
Search Folder
Procedure OnCreate
Forward Send OnCreate
Set ComExploreFromHere to "::{04731b67-d933-450a-90e6-4acd2e9408fe}"
End_Procedure
|
|
274
|
OneDrive
Procedure OnCreate
Forward Send OnCreate
Set ComExploreFromHere to "::{018D5C66-4533-4307-9B53-224DE2ED1FE6}"
End_Procedure
|
|
273
|
Internet Explorer (Homepage)
Procedure OnCreate
Forward Send OnCreate
Set ComExploreFromHere to "::{871c5380-42a0-1069-a2ea-08002b30309d}"
End_Procedure
|
|
272
|
Public Libraries
Procedure OnCreate
Forward Send OnCreate
Set ComExploreFromHere to "::{5b934b42-522b-4c34-bbfe-37a3ef7b9c90}"
End_Procedure
|
|
271
|
Shared Documents Folder (Users Files)
Procedure OnCreate
Forward Send OnCreate
Set ComExploreFromHere to "::{59031a47-3f72-44a7-89c5-5595fe6b30ee}"
End_Procedure
|
|
270
|
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
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
Set ComExploreFromHere to ""
Send ComEndUpdate
End_Procedure
|
|
269
|
Displays the time without seconds, smaller and with a different color
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Set ComExploreFromHere to ""
Set ComExpandFolders to True
Set ComColumnFilterButton "Name" to True
Set ComOption OLEexModifiedDaysAgo to "(((valueS left ( valueS rfind `:` )) + (valueS right ( len(valueS) - ( valueS rfind ` ` ) )) replace ` ` with `<fgcolor=808080><font ;6> ` ))"
Set ComColumnsVisible to (OLEexFileColumnModified + OLEexFileColumnType + OLEexFileColumnName)
Set ComModifiedDaysAgo to -1
Send ComEndUpdate
End_Procedure
|
|
268
|
Displays the date-time with no seconds part
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Set ComExploreFromHere to ""
Set ComExpandFolders to True
Set ComColumnFilterButton "Name" to True
Set ComOption OLEexModifiedDaysAgo to "(valueS left ( valueS rfind `:` )) + (valueS right ( len(valueS) - ( valueS rfind ` ` ) ))"
Set ComColumnsVisible to (OLEexFileColumnModified + OLEexFileColumnType + OLEexFileColumnName)
Set ComModifiedDaysAgo to -1
Send ComEndUpdate
End_Procedure
|
|
267
|
Displays the Modified column in long date format, as specified in the control's panel ( no time is displayed )
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Set ComExploreFromHere to ""
Set ComExpandFolders to True
Set ComColumnFilterButton "Name" to True
Set ComOption OLEexModifiedDaysAgo to "longdate(value)"
Set ComColumnsVisible to (OLEexFileColumnModified + OLEexFileColumnType + OLEexFileColumnName)
Set ComModifiedDaysAgo to -1
Send ComEndUpdate
End_Procedure
|
|
266
|
Displays the modified date in "MM/DD/YYYY HH:MM:SS" format, so 1/1/2001 will be displayed such as 01/01/2001
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Set ComExploreFromHere to ""
Set ComExpandFolders to True
Set ComColumnFilterButton "Name" to True
Set ComOption OLEexModifiedDaysAgo to "dateF(value)"
Set ComColumnsVisible to (OLEexFileColumnModified + OLEexFileColumnType + OLEexFileColumnName)
Set ComModifiedDaysAgo to -1
Send ComEndUpdate
End_Procedure
|
|
265
|
Displays the modified date without the time
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Set ComExploreFromHere to ""
Set ComExpandFolders to True
Set ComColumnFilterButton "Name" to True
Set ComOption OLEexModifiedDaysAgo to "date(int(value))"
Set ComColumnsVisible to (OLEexFileColumnModified + OLEexFileColumnType + OLEexFileColumnName)
Set ComModifiedDaysAgo to -1
Send ComEndUpdate
End_Procedure
|
|
264
|
Displayes the modified time with a different color
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Set ComExploreFromHere to ""
Set ComExpandFolders to True
Set ComColumnFilterButton "Name" to True
Set ComOption OLEexModifiedDaysAgo to "valueS replace ` ` with `<off -4><fgcolor=808080><font ;6> `"
Set ComColumnsVisible to (OLEexFileColumnModified + OLEexFileColumnType + OLEexFileColumnName)
Set ComModifiedDaysAgo to -1
Send ComEndUpdate
End_Procedure
|
|
263
|
Displays all files/folders modified n days ago, with white on a black background
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Set ComExploreFromHere to ""
Set ComExpandFolders to True
Set ComColumnFilterButton "Name" to True
Set ComOption OLEexModifiedDaysAgo to "`<bgcolor=000000><fgcolor=FFFFFF>` + valueS"
Set ComModifiedDaysAgo to 31
Set ComColumnsVisible to (OLEexFileColumnModified + OLEexFileColumnType + OLEexFileColumnName)
Send ComEndUpdate
End_Procedure
|
|
262
|
Displays today for all files/folders modified today, yesterday for all files modified yesterday, else "%i day(s) ago"
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Set ComExploreFromHere to ""
Set ComExpandFolders to True
Set ComColumnFilterButton "Name" to True
Set ComOption OLEexModifiedDaysAgo to "daysago = 0 ? `today` : (daysago = 1 ? `yesterday` : (daysago + ` day(s) ago`))"
Set ComModifiedDaysAgo to 31
Set ComColumnsVisible to (OLEexFileColumnModified + OLEexFileColumnType + OLEexFileColumnName)
Send ComEndUpdate
End_Procedure
|
|
261
|
Displays today for all files/folders else "%i day(s) ago"
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Set ComExploreFromHere to ""
Set ComExpandFolders to True
Set ComColumnFilterButton "Name" to True
Set ComModifiedDaysAgo to 31
Set ComColumnsVisible to (OLEexFileColumnModified + OLEexFileColumnType + OLEexFileColumnName)
Send ComEndUpdate
End_Procedure
|
|
260
|
FilterBarCaption ALL Keyword ( sample 2, result )
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Set ComExploreFromHere to ""
Set ComColumnFilterButton "Name" to True
Set ComFilterBarFont to (ComFont(Self))
Set ComDescription (|CI$8 + OLEexFilterBarPatternFilterTitle) to (ComFormatABC(Self,"`<fgcolor=808080> ` + value + ` </fgcolor>`",(ComDescription(Self,(|CI$8 + OLEexFilterBarPatternFilterTitle))),Nothing,Nothing))
Set ComFilterBarCaption to "(( ( all 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
|
|
259
|
FilterBarCaption ALL Keyword ( sample 1 )
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Set ComExploreFromHere to ""
Set ComColumnFilterButton "Name" to True
Set ComFilterBarFont to (ComFont(Self))
Set ComDescription (|CI$8 + OLEexFilterBarPatternFilterTitle) to (ComFormatABC(Self,"`<fgcolor=808080> ` + value + ` </fgcolor>`",(ComDescription(Self,(|CI$8 + OLEexFilterBarPatternFilterTitle))),Nothing,Nothing))
Set ComFilterBarCaption to "all"
Set ComFilterBarPromptVisible to (OLEexFilterBarVisible + OLEexFilterBarPromptVisible)
Send ComEndUpdate
End_Procedure
|
|
258
|
FilterBarCaption ALLUI Keyword ( sample 2, result )
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Set ComExploreFromHere to ""
Set ComColumnFilterButton "Name" to True
Set ComFilterBarFont to (ComFont(Self))
Set ComDescription (|CI$8 + OLEexFilterBarPatternFilterTitle) to (ComFormatABC(Self,"`<fgcolor=808080> ` + value + ` </fgcolor>`",(ComDescription(Self,(|CI$8 + OLEexFilterBarPatternFilterTitle))),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
|
|
257
|
FilterBarCaption ALLUI Keyword ( sample 1 )
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Set ComExploreFromHere to ""
Set ComColumnFilterButton "Name" to True
Set ComFilterBarFont to (ComFont(Self))
Set ComDescription (|CI$8 + OLEexFilterBarPatternFilterTitle) to (ComFormatABC(Self,"`<fgcolor=808080> ` + value + ` </fgcolor>`",(ComDescription(Self,(|CI$8 + OLEexFilterBarPatternFilterTitle))),Nothing,Nothing))
Set ComFilterBarCaption to "allui"
Set ComFilterBarPromptVisible to (OLEexFilterBarVisible + OLEexFilterBarPromptVisible)
Send ComEndUpdate
End_Procedure
|
|
256
|
FilterBarCaption AVAILABLE Keyword ( sample 2, result )
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Set ComExploreFromHere to ""
Set ComColumnFilterButton "Name" to True
Set ComFilterBarFont to (ComFont(Self))
Set ComDescription (|CI$8 + OLEexFilterBarPatternFilterTitle) to (ComFormatABC(Self,"`<fgcolor=808080> ` + value + ` </fgcolor>`",(ComDescription(Self,(|CI$8 + OLEexFilterBarPatternFilterTitle))),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
|
|
255
|
FilterBarCaption AVAILABLE Keyword ( sample 1 )
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Set ComExploreFromHere to ""
Set ComColumnFilterButton "Name" to True
Set ComFilterBarFont to (ComFont(Self))
Set ComDescription (|CI$8 + OLEexFilterBarPatternFilterTitle) to (ComFormatABC(Self,"`<fgcolor=808080> ` + value + ` </fgcolor>`",(ComDescription(Self,(|CI$8 + OLEexFilterBarPatternFilterTitle))),Nothing,Nothing))
Set ComFilterBarCaption to "value + ` ` + available"
Set ComFilterBarPromptVisible to (OLEexFilterBarVisible + OLEexFilterBarPromptVisible)
Send ComEndUpdate
End_Procedure
|
|
254
|
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
Set ComExploreFromHere to ""
Set ComColumnFilterButton "Name" to True
Set ComFilterBarFont to (ComFont(Self))
Set ComDescription (|CI$8 + OLEexFilterBarPatternFilterTitle) to (ComFormatABC(Self,"`<fgcolor=808080>` + value + `</fgcolor>`",(ComDescription(Self,(|CI$8 + OLEexFilterBarPatternFilterTitle))),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
|
|
253
|
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
Set ComExploreFromHere to ""
Set ComColumnFilterButton "Name" to True
Set ComFilterBarFont to (ComFont(Self))
Set ComDescription (|CI$8 + OLEexFilterBarPatternFilterTitle) to (ComFormatABC(Self,"`<fgcolor=808080>` + value + `</fgcolor>`",(ComDescription(Self,(|CI$8 + OLEexFilterBarPatternFilterTitle))),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
|
|
252
|
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
Set ComExploreFromHere to ""
Set ComColumnFilterButton "Name" to True
Set ComDescription (|CI$8 + OLEexFilterBarPatternFilterTitle) to (ComFormatABC(Self,"`<fgcolor=808080>` + value + `</fgcolor>`",(ComDescription(Self,(|CI$8 + OLEexFilterBarPatternFilterTitle))),Nothing,Nothing))
Set ComFilterBarCaption to "value replace `[` with `<fgcolor=808080>[` replace `]` with `]</fgcolor>`"
Set ComFilterBarPromptVisible to OLEexFilterBarToggle
Send ComEndUpdate
End_Procedure
|
|
251
|
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
Set ComExploreFromHere to ""
Set ComColumnFilterButton "Name" to True
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
|
|
250
|
FilterBarCaption Predefined Keywords
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Set ComExploreFromHere to ""
Set ComColumnFilterButton "Name" to True
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 ComFilterBarPromptVisible to (OLEexFilterBarCaptionVisible + OLEexFilterBarVisible + OLEexFilterBarPromptVisible)
Send ComEndUpdate
End_Procedure
|
|
249
|
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
Set ComExploreFromHere to ""
Set ComColumnFilterButton "Name" to True
Set ComFilterBarFont to (ComFont(Self))
Set ComFilterBarCaption to "`<r><i><fgcolor=808080><upline><solidline><sha ;;0>` + value"
Set ComFilterBarPromptVisible to (OLEexFilterBarCompact + OLEexFilterBarSingleLine + OLEexFilterBarVisible + OLEexFilterBarPromptVisible)
Send ComEndUpdate
End_Procedure
|
|
248
|
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
Set ComExploreFromHere to ""
Set ComColumnFilterButton "Name" to True
Set ComFilterBarPromptVisible to (OLEexFilterBarShowCloseOnRight + OLEexFilterBarToggle + OLEexFilterBarPromptVisible)
Set ComFilterBarPrompt to (ComFormatABC(Self,"`<r>` + value",(ComFilterBarPrompt(Self)),Nothing,Nothing))
Send ComEndUpdate
End_Procedure
|
|
247
|
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
Set ComExploreFromHere to ""
Set ComColumnFilterButton "Name" to True
Set ComFilterBarPromptVisible to (OLEexFilterBarToggle + OLEexFilterBarPromptVisible)
Set ComBackground OLEexFooterFilterBarButton to |CI$1000000
Send ComEndUpdate
End_Procedure
|
|
246
|
How can I change the visual appearance of the filter bar's close button (solid)
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Set ComExploreFromHere to ""
Set ComColumnFilterButton "Name" to True
Set ComFilterBarPromptVisible to OLEexFilterBarPromptVisible
Set ComBackground OLEexFooterFilterBarButton to (RGB(255,0,0))
Send ComEndUpdate
End_Procedure
|
|
245
|
Is it possible to prevent definitely showing the filter bar's close button
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Set ComExploreFromHere to ""
Set ComColumnFilterButton "Name" to True
Set ComFilterBarPromptVisible to OLEexFilterBarPromptVisible
Set ComBackground OLEexFooterFilterBarButton to -1
Send ComEndUpdate
End_Procedure
|
|
244
|
Is it possible to show the close button only if there is a filter applied
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Set ComExploreFromHere to ""
Set ComColumnFilterButton "Name" to True
Set ComFilterBarPromptVisible to (OLEexFilterBarShowCloseIfRequired + OLEexFilterBarPromptVisible)
Send ComEndUpdate
End_Procedure
|
|
243
|
The control's filter bar is not closed once I click the close button (toggle)
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Set ComExploreFromHere to ""
Set ComColumnFilterButton "Name" to True
Set ComFilterBarCaption to "`<r><fgcolor=808080>` + value"
Set ComFilterBarPromptVisible to (OLEexFilterBarCompact + OLEexFilterBarToggle + OLEexFilterBarSingleLine + OLEexFilterBarVisible + OLEexFilterBarPromptVisible)
Send ComEndUpdate
End_Procedure
|
|
242
|
How can I display the control's filter on a single line
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Set ComExploreFromHere to ""
Set ComColumnFilterButton "Name" to True
Set ComFilterBarCaption to "len(value) ? `filter for: <fgcolor 808080>` + value : `<fgcolor 808080>no filter`"
Set ComFilterBarPromptVisible to (OLEexFilterBarSingleLine + OLEexFilterBarVisible)
Send ComEndUpdate
End_Procedure
|
|
241
|
How can I display the control's filter on a single line (prompt-combined)
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Set ComExploreFromHere to ""
Set ComColumnFilterButton "Name" to True
Set ComFilterBarCaption to "`<r>` + value"
Set ComFilterBarPromptVisible to (OLEexFilterBarCompact + OLEexFilterBarSingleLine + OLEexFilterBarVisible + OLEexFilterBarPromptVisible)
Send ComEndUpdate
End_Procedure
|
|
240
|
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
Set ComExploreFromHere to ""
Set ComColumnFilterButton "Name" to True
Set ComFilterBarPromptVisible to (OLEexFilterBarVisible + OLEexFilterBarPromptVisible)
Send ComEndUpdate
End_Procedure
|
|
239
|
Is it possible to prevent closing the control's filter bar, so it is always shown (prompt)
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Set ComExploreFromHere to ""
Set ComColumnFilterButton "Name" to True
Set ComFilterBarPromptVisible to OLEexFilterBarPromptVisible
Send ComEndUpdate
End_Procedure
|
|
238
|
Is it possible to prevent closing the control's filter bar, so it is always shown
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Set ComExploreFromHere to ""
Set ComColumnFilterButton "Name" to True
Set ComFilterBarCaption to "len(value) = 0 ? `<fgcolor=808080>no filter` : value"
Set ComFilterBarPromptVisible to OLEexFilterBarVisible
Send ComEndUpdate
End_Procedure
|
|
237
|
Is it possible to show the selection with a different color, when the control loses the focus
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Set ComSingleSel to False
Set ComExploreFromHere to ""
Set ComHideSelection to False
Set ComBackground OLEexSelBackColorHide to (RGB(224,224,224))
Set ComBackground OLEexSelForeColorHide to (RGB(64,64,64))
Send ComEndUpdate
End_Procedure
|
|
236
|
Predefined Keywords of ShowContextMenu property
// Fired while the control's state has been changed.
Procedure OnComStateChange OLEStateChangeEnum llState
Forward Send OnComStateChange llState
Set ComExecuteContextMenu to 0
End_Procedure
Procedure OnCreate
Forward Send OnCreate
Set ComExploreFromHere to ""
Set ComShowContextMenu to "`menu(` + menu + `)` + `,filecount=` + filecount + `,fileattr=` + hex(fileattr) + `,filename=` + filename + `,fileparsename=` + fileparsename + `,filefullname=` + filefullname"
End_Procedure
|
|
235
|
How can I change the visual appearance of the +/- buttons, open/close glyphs as current visual theme
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Set ComExpandFolders to True
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 "XP:TREEVIEW 2 1" to Nothing
Get ComAdd of hoAppearance 2 "XP:TREEVIEW 2 2" to Nothing
Send Destroy to hoAppearance
Set ComBackground OLEexTreeGlyphOpen to |CI$1000000
Set ComBackground OLEexTreeGlyphClose to |CI$2000000
Send ComEndUpdate
End_Procedure
|
|
234
|
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
|
|
233
|
How can I change the visual appearance of the +/- buttons
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Set ComExpandFolders to True
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 "gBFLBCJwBAEHhEJAAEhABDwCg6AADACAxRDgMQBQKAAzAJBIYhiG4cYCgMZhXDOCYXABCEYRXBIZQ7BKNIxjSJ5BhIAAyDSJMjSRJUEhqGCWYDleYYYAKHIMQLJQKQSBcQR9EaBZBAWTpQC0OJDTJRI4TNAgbSYAAYRqoCb6loTKypaxjCQQIgkUBpGKdBynEYsDwSGyJCCJWyIbpKAwoVbcs4AYhuJpaQi+d5PFbjVT8dLAMBwLA8EwXAJ+OpfDxXU7eFKpR5fchXTI8UxXFqXZhkeQrfh7KYVRBKdBQRBEFQPJqnahqOpaXo2RoLUJKcQwHTmHYNQTALyuTALZrWeZ3XrgN74LbtZzVQauYRpbCMEr6bpoWLnFi6Ho1U4llWah1jqSweFqfxPgQQRphi+Yak0YIuqUfJegef4zluaJ3nqPJeCYH4BAeX5TDLBpVGqKRRnwf4flefZtHsX54BYAR/F+EwVnUd5eAMMJKDIChygyIQpAoEh4iIJ5JlgXIcgCXpIGoFwnGEQh6BEKBgmMIICHgIJCAiUAzgyUoAhwJohkiRgygwYpiGoKwzGIcgKCkNQNCMRIbCYCRYk4QoMiOchWDwNBjhiJJaDYTRiGiFwlCQAhOE8JBJHITIRgwZRZFCFCZBkOIUhKTRpCWAwgGYQ4El4NxlBifIWCcCYCFoaoMGaKYyG6GxlBmGJdhkCAWBIeA5g4U4QhMJAImkPIShRVxGgQJRlCIUISh+SJpnCZIeBgFgiHgO4OlOMINCISByECDQikkGhuh2JwpmqBogCKaYiC6FwhmkQ4yHgYgYiaHopiuaRakCbIsisSpGjYOwaHYKYMCkK5CA2IxrCwCwFigaJrkLTI6lcdANAEgIA=" to Nothing
Get ComAdd of hoAppearance 2 "gBFLBCJwBAEHhEJAAEhABEICg6AADACAxRDgMQBQKAAzAJBIYhiG4cYCgMZhXDOCYXABCEYRXBIZQ7BKNIxjSJ5BhIAAyDSJMjSRJUEhqGCWYDleYYYAKHIMQLJQKQSBcQR9EaBZBAWTpQC0OJDTJRI4TNAgbSYAAYRqoCb6loTKypaxjCQQIgkUBpGKdBynEYsDwSGyJCCJWyIbpKAwoVbcs4AYhuJpaQi+d5PFbjVT8dLAMBwLA8EwXAJ+OpfDxXU7eFKpR5fchXTI8UxXFqXZhkeQrfh7KYVRBKdBQRBEFQPJqnahqOpaXo2RoLUJKcQwHTmHYNQTALyuTALZrWeZ3XrgN74LbtZzVQauYRpbCMEr6bpoWLnFi6Ho1U4llWah1jqSweFqfxPgQQRphi+Yak0YIuqUfJeg8X4rluaZ3niGB+AQHx/EyShjjEVYqiUR5rnmex/GAB5+AIf4gEeXJFHyXZ3gCTAygyAociMKBKEKBIeCiCZyHYFAnCEeBkh+BghFgRIegOCgYCySAgh4CAkgINAMmMNIgCcCYjn4LoLmMCJGDKC5ijIagoDMYhCAoJg1A0IxEhsJgJFiThChCY5yFYPA0GOGIYloNhNGIaIXCUJACE4TwkEkchOFSFYlFkXhUCUCQZEYTglCSMxaEkYJIBmFJhDeDZZEYPwlgmQhghaGqVDoa4bGaeY6FGGZNlmFIBGEJ4jhiZQ5AkMhAg6E5JCkRoGCUSQ6B6CYiSCBIOh+DhJmmARiWQOJtDsCJSCSBwkXSLIRicaZ6HqIIomoIguhwIpphIHoWDsJ4mCGChpmqOpGheLIOkqUo2iya4DjGJxihiQoSj4IJaDaMpCjCWoGg6PgpBiQ4tHcQJQBAgI=" to Nothing
Send Destroy to hoAppearance
Set ComBackground OLEexTreeGlyphOpen to |CI$1000000
Set ComBackground OLEexTreeGlyphClose to |CI$2000000
Send ComEndUpdate
End_Procedure
|
|
232
|
How can I copy/execute command a file/folder as path (selection)
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Set ComSingleSel to False
Set ComExploreFromHere to ""
Set ComExpandFolders to True
Send ComSelect "*"
Send ComExecuteContextCommand "<selection>" True "Copy As Path"
Send ComEndUpdate
End_Procedure
|
|
231
|
How can I programmatically selects all items
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Set ComExpandFolders to True
Set ComSingleSel to False
Set ComExploreFromHere to ""
Send ComSelect "*"
Send ComEndUpdate
End_Procedure
|
|
230
|
How can I clear the current selection
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Set ComExpandFolders to True
Set ComExploreFromHere to ""
Set ComSingleSel to False
Send ComSelect ""
Send ComEndUpdate
End_Procedure
|
|
229
|
I know the Expand method selects a folder, the question is if it is possible to prevent expanding it, so just select it
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Set ComExpandFolders to True
Set ComExploreFromHere to "c:\"
Set ComSingleSel to False
Send ComSelect "Temp"
Send ComSelect "Windows"
Send ComEndUpdate
End_Procedure
|
|
228
|
How can I display the identifiers of the control's context menu (debug)
// Fired while the control's state has been changed.
Procedure OnComStateChange OLEStateChangeEnum llState
Forward Send OnComStateChange llState
Showln "State" llState
Showln "ExecuteContextMenu" (ComExecuteContextMenu(Self))
End_Procedure
Procedure OnCreate
Forward Send OnCreate
Set ComExploreFromHere to ""
Set ComSingleSel to False
Set ComShowContextMenu to "`[debug]` + menu"
End_Procedure
|
|
227
|
How can I copy/execute command a file/folder (selection)
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Set ComSingleSel to False
Set ComExploreFromHere to "c:\"
Set ComExpandFolders to True
Send ComExpand "c:\Temp"
Send ComExecuteContextCommand "<selection>" True "Copy"
Send ComEndUpdate
End_Procedure
|
|
226
|
How can I copy a file/folder (absolute name)
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Set ComExploreFromHere to "c:\"
Send ComExecuteContextCommand "c:\Temp" True "Copy"
Send ComEndUpdate
End_Procedure
|
|
225
|
How can I copy a file/folder (relative name)
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Set ComExploreFromHere to "c:\"
Send ComExecuteContextCommand "Temp" True "Copy"
Send ComEndUpdate
End_Procedure
|
|
224
|
ShowContextMenu usage
// Fired while the control's state has been changed.
Procedure OnComStateChange OLEStateChangeEnum llState
Forward Send OnComStateChange llState
Showln "State" llState
Showln "ExecuteContextMenu" (ComExecuteContextMenu(Self))
End_Procedure
Procedure OnCreate
Forward Send OnCreate
Set ComSingleSel to False
Set ComFullRowSelect to True
Set ComShowContextMenu to "filecount = 0 ? `Exit[id=1000]` : ( ( ( filecount = 1 ) ? filename : `multiple selection` ) + `[dis],[sep],` + menu)"
End_Procedure
|
|
223
|
ShowContextMenu usage
// Fired while the control's state has been changed.
Procedure OnComStateChange OLEStateChangeEnum llState
Forward Send OnComStateChange llState
Showln "State" llState
Showln "ExecuteContextMenu" (ComExecuteContextMenu(Self))
End_Procedure
Procedure OnCreate
Forward Send OnCreate
Set ComExploreFromHere to ""
Set ComSingleSel to False
Set ComFullRowSelect to True
Set ComShowContextMenu to "filecount > 1 ? `multiple selection[dis]` : menu"
End_Procedure
|
|
222
|
ShowContextMenu usage
// Fired while the control's state has been changed.
Procedure OnComStateChange OLEStateChangeEnum llState
Forward Send OnComStateChange llState
Showln "State" llState
Showln "ExecuteContextMenu" (ComExecuteContextMenu(Self))
End_Procedure
Procedure OnCreate
Forward Send OnCreate
Set ComExploreFromHere to ""
Set ComSingleSel to False
Set ComFullRowSelect to True
Set ComShowContextMenu to "filecount > 1 ? `multiple selection[dis]` : menu"
End_Procedure
|
|
221
|
ShowContextMenu usage
// Fired while the control's state has been changed.
Procedure OnComStateChange OLEStateChangeEnum llState
Forward Send OnComStateChange llState
Showln "State" llState
Showln "ExecuteContextMenu" (ComExecuteContextMenu(Self))
End_Procedure
Procedure OnCreate
Forward Send OnCreate
Set ComExploreFromHere to ""
Set ComSingleSel to False
Set ComFullRowSelect to True
Set ComExpandFolders to True
Set ComIncludeFilesInFolder to True
Set ComShowContextMenu to "menu replace `Delete` with `Delete[dis]`"
End_Procedure
|
|
220
|
ShowContextMenu usage
// Fired while the control's state has been changed.
Procedure OnComStateChange OLEStateChangeEnum llState
Forward Send OnComStateChange llState
Showln "State" llState
Showln "ExecuteContextMenu" (ComExecuteContextMenu(Self))
End_Procedure
Procedure OnCreate
Forward Send OnCreate
Set ComExploreFromHere to ""
Set ComSingleSel to False
Set ComFullRowSelect to True
Set ComExpandFolders to True
Set ComIncludeFilesInFolder to True
Set ComShowContextMenu to "menu replace `&Delete` with ``"
End_Procedure
|
|
219
|
ShowContextMenu usage
// Fired while the control's state has been changed.
Procedure OnComStateChange OLEStateChangeEnum llState
Forward Send OnComStateChange llState
Showln "State" llState
Showln "ExecuteContextMenu" (ComExecuteContextMenu(Self))
End_Procedure
Procedure OnCreate
Forward Send OnCreate
Set ComExploreFromHere to ""
Set ComSingleSel to False
Set ComFullRowSelect to True
Set ComShowContextMenu to "`Popup(Item 1[id=1001],Item 2[id=1002],Item 3[id=1003]),` + menu + `,Exit[id=1000]`"
End_Procedure
|
|
218
|
ShowContextMenu usage
// Fired while the control's state has been changed.
Procedure OnComStateChange OLEStateChangeEnum llState
Forward Send OnComStateChange llState
Showln "State" llState
Showln "ExecuteContextMenu" (ComExecuteContextMenu(Self))
End_Procedure
Procedure OnCreate
Forward Send OnCreate
Set ComExploreFromHere to ""
Set ComSingleSel to False
Set ComFullRowSelect to True
Set ComShowContextMenu to "filecount = 0 ? `Popup(Item 1[id=1001],Item 2[id=1002],Item 3[id=1003]),[sep],Exit[def][id=1000]` : menu"
End_Procedure
|
|
217
|
ShowContextMenu usage
// Fired while the control's state has been changed.
Procedure OnComStateChange OLEStateChangeEnum llState
Forward Send OnComStateChange llState
Showln "State" llState
Showln "ExecuteContextMenu" (ComExecuteContextMenu(Self))
End_Procedure
Procedure OnCreate
Forward Send OnCreate
Set ComExploreFromHere to ""
Set ComFullRowSelect to True
Set ComShowContextMenu to "Popup(Item 1[id=1001],Item 2[id=1002],Item 3[id=1003]),[sep],Exit[def][id=1000]"
End_Procedure
|
|
216
|
ShowContextMenu usage
// Fired while the control's state has been changed.
Procedure OnComStateChange OLEStateChangeEnum llState
Forward Send OnComStateChange llState
Showln "State" llState
Showln "ExecuteContextMenu" (ComExecuteContextMenu(Self))
Showln "no context menu is generated, so nothing is displayed"
End_Procedure
Procedure OnCreate
Forward Send OnCreate
Set ComExploreFromHere to ""
Set ComFullRowSelect to True
Set ComShowContextMenu to "``"
End_Procedure
|
|
215
|
How can I add new items to the default file's context menu
// Fired while the control's state has been changed.
Procedure OnComStateChange OLEStateChangeEnum llState
Forward Send OnComStateChange llState
Showln "State " llState
Showln "ContextMenu" (ComShowContextMenu(Self))
Set ComShowContextMenu to (ComFormatABC(Self,"B = 20 ? ( `My First Popup[def](A,B,C),[sep],`+ value + `,[sep],My Last Popup[def](A,B,C)` ) : value",(ComShowContextMenu(Self)),llState,Nothing))
Showln "Execute" (ComExecuteContextMenu(Self))
End_Procedure
Procedure OnCreate
Forward Send OnCreate
Set ComExploreFromHere to ""
End_Procedure
|
|
214
|
Is it possible to display the item's identifiers in the file's context menu
// Fired while the control's state has been changed.
Procedure OnComStateChange OLEStateChangeEnum llState
Forward Send OnComStateChange llState
Showln "State " llState
Showln "ContextMenu" (ComShowContextMenu(Self))
Set ComShowContextMenu to (ComFormatABC(Self,"B = 20 ? (`[debug]`+ value) : value ",(ComShowContextMenu(Self)),llState,Nothing))
End_Procedure
|
|
213
|
How can I remove the Delete command from the file's context menu
// Fired while the control's state has been changed.
Procedure OnComStateChange OLEStateChangeEnum llState
Forward Send OnComStateChange llState
Showln "State " llState
Showln "ContextMenu" (ComShowContextMenu(Self))
Set ComShowContextMenu to (ComFormatABC(Self,"value replace `&Delete` with ``",(ComShowContextMenu(Self)),Nothing,Nothing))
End_Procedure
|
|
212
|
How do I execute a command from the file's content menu (sample 2)
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Set ComExploreFromHere to ""
Send ComExecuteContextCommand "C:\" True "20"
Send ComEndUpdate
End_Procedure
|
|
211
|
How can I simulate the left-side of the Windows Explorer
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Set ComColumnsVisible to OLEexFileColumnName
Set ComExpandFolders to True
Set ComExploreFromHere to "::{450d8fba-ad25-11d0-98a8-0800361b1103}|::{018D5C66-4533-4307-9B53-224DE2ED1FE6}|::{20D04FE0-3AEA-1069-A2D8-08002B30309D}|::{F02C1A0D-BE21-4350-88B0-7367FC96EF3C}"
Send ComExpand "::{20D04FE0-3AEA-1069-A2D8-08002B30309D}"
Send ComEndUpdate
End_Procedure
|
|
210
|
How can I add the "Control Panel" folder
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Set ComColumnsVisible to OLEexFileColumnName
Set ComExpandFolders to True
Set ComExploreFromHere to "::{26EE0668-A00A-44D7-9371-BEB064C98683}>"
Send ComEndUpdate
End_Procedure
|
|
209
|
How can I add the "My Documents"
Procedure OnCreate
Forward Send OnCreate
Set ComIncludeFilesInFolder to True
Set ComExpandFolders to True
Set ComExploreFromHere to "::{450d8fba-ad25-11d0-98a8-0800361b1103}>"
End_Procedure
|
|
208
|
How can I add the Printers and Faxes
Procedure OnCreate
Forward Send OnCreate
Set ComExpandFolders to True
Set ComColumnsVisible to OLEexFileColumnName
Set ComIncludeFilesInFolder to True
Set ComExploreFromHere to "::{2227a280-3aea-1069-a2de-08002b30309d}>"
End_Procedure
|
|
207
|
How can I add the Network Connections
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Set ComExpandFolders to True
Set ComColumnsVisible to OLEexFileColumnName
Set ComIncludeFilesInFolder to True
Set ComExploreFromHere to "::{7007acc7-3202-11d1-aad2-00805fc1270e}>"
Send ComEndUpdate
End_Procedure
|
|
206
|
How can I add the "Recycle Bin" folder
Procedure OnCreate
Forward Send OnCreate
Set ComExpandFolders to True
Set ComIncludeFilesInFolder to True
Set ComExploreFromHere to "::{645FF040-5081-101B-9F08-00AA002F954E}>"
End_Procedure
|
|
205
|
How can I add the "Documents" folder
Procedure OnCreate
Forward Send OnCreate
Set ComExpandFolders to True
Set ComExploreFromHere to "::{450D8FBA-AD25-11D0-98A8-0800361B1103}>"
End_Procedure
|
|
204
|
How can I add the "Control Panel" folder
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Set ComColumnsVisible to OLEexFileColumnName
Set ComExpandFolders to True
Set ComIncludeFilesInFolder to True
Set ComExploreFromHere to "::{21EC2020-3AEA-1069-A2DD-08002b30309d}>"
Send ComEndUpdate
End_Procedure
|
|
203
|
How can I add the Network folder
Procedure OnCreate
Forward Send OnCreate
Set ComExpandFolders to True
Set ComExploreFromHere to "::{F02C1A0D-BE21-4350-88B0-7367FC96EF3C}>"
End_Procedure
|
|
202
|
How can I add the My Computer
Procedure OnCreate
Forward Send OnCreate
Set ComExpandFolders to True
Set ComExploreFromHere to "::{20D04FE0-3AEA-1069-A2D8-08002B30309D}>"
End_Procedure
|
|
201
|
How can I add the My Network Places folder
Procedure OnCreate
Forward Send OnCreate
Set ComExpandFolders to True
Set ComExploreFromHere to "::{208D2C60-3AEA-1069-A2D7-08002B30309D}>"
End_Procedure
|