|
142
|
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 ComToolTipFont 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
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$4f0f0f0
Set ComSelForeColor to (RGB(0,0,1))
Set ComHotBackColor to |CI$4f8f8f8
Set ComBackground OLEexCheckBoxState0 to |CI$1000000
Set ComBackground OLEexCheckBoxState1 to |CI$2000000
Set ComBackground OLEexCheckBoxState2 to |CI$3000000
Set ComExpandFolders to True
Set ComHasCheckBox to OLEPartialCheckBox
Set ComExploreFromHere to ""
Set ComSelect to "C:"
Send ComEndUpdate
End_Procedure
|
|
141
|
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$4f0f0f0
Set ComSelForeColor to (RGB(0,0,1))
Set ComHotBackColor to |CI$4f8f8f8
Set ComExpandFolders to True
Set ComHasCheckBox to OLEPartialCheckBox
Set ComExploreFromHere to ""
Set ComSelect to "C:"
Send ComEndUpdate
End_Procedure
|
|
140
|
How can I add a checkbox to each item
// Occurs once the user changed the view.
Procedure OnComViewEndChanging OLEViewOperationEnum llOperation
Forward Send OnComViewEndChanging llOperation
Showln (ComGet(Self,OLECheckItems))
End_Procedure
Procedure OnCreate
Forward Send OnCreate
Set ComHasCheckBox to OLEPartialCheckBox
Set ComExploreFromHere to "C:/"
End_Procedure
|
|
139
|
How do I get the selected file/files
// Occurs once the user changed the view.
Procedure OnComViewEndChanging OLEViewOperationEnum llOperation
Forward Send OnComViewEndChanging llOperation
Showln (ComSelect(Self))
End_Procedure
Procedure OnCreate
Forward Send OnCreate
Set ComExploreFromHere to "C:/"
End_Procedure
|
|
138
|
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 ComStatusBarVisible to OLEexStatusBarNone
Set ComMode to OLEexSingleCascadeMode
Send ComEndUpdate
End_Procedure
|
|
137
|
How can I specify my favorites folders
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Set ComHeaderVisible to False
Set ComExploreFromHere to "::{450d8fba-ad25-11d0-98a8-0800361b1103}|::{018D5C66-4533-4307-9B53-224DE2ED1FE6}|::{20D04FE0-3AEA-1069-A2D8-08002B30309D}|::{F02C1A0D-BE21-4350-88B0-7367FC96EF3C}"
Set ComSelect to "C:\Windows"
Send ComEndUpdate
End_Procedure
|
|
136
|
How can I add the "My Documents"
Procedure OnCreate
Forward Send OnCreate
Set ComExploreFromHere to "C:\|::{450d8fba-ad25-11d0-98a8-0800361b1103}>"
End_Procedure
|
|
135
|
How can I add the Printers and Faxes
Procedure OnCreate
Forward Send OnCreate
Set ComColumnsVisible to OLEexFileColumnName
Set ComExploreFromHere to "C:\|::{2227a280-3aea-1069-a2de-08002b30309d}>"
End_Procedure
|
|
134
|
How can I add the "Recycle Bin" folder
Procedure OnCreate
Forward Send OnCreate
Set ComExploreFromHere to "C:\|::{645FF040-5081-101B-9F08-00AA002F954E}>"
End_Procedure
|
|
133
|
How can I add the "Documents" folder
Procedure OnCreate
Forward Send OnCreate
Set ComExploreFromHere to "C:\|::{450D8FBA-AD25-11D0-98A8-0800361B1103}>"
End_Procedure
|
|
132
|
How can I add the Network folder
Procedure OnCreate
Forward Send OnCreate
Set ComExploreFromHere to "C:\|::{F02C1A0D-BE21-4350-88B0-7367FC96EF3C}>"
End_Procedure
|
|
131
|
How can I add the My Computer
Procedure OnCreate
Forward Send OnCreate
Set ComExploreFromHere to "C:\|::{20D04FE0-3AEA-1069-A2D8-08002B30309D}>"
End_Procedure
|
|
130
|
How can I add the My Network Places folder
Procedure OnCreate
Forward Send OnCreate
Set ComExploreFromHere to "C:\|::{208D2C60-3AEA-1069-A2D7-08002B30309D}>"
End_Procedure
|
|
129
|
How can I add the Desktop folder
Procedure OnCreate
Forward Send OnCreate
Set ComExploreFromHere to "C:\|::{00021400-0000-0000-C000-000000000046}>"
End_Procedure
|
|
128
|
How can I create my own favorites folders
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Set ComExploreFromHere to "::{450d8fba-ad25-11d0-98a8-0800361b1103}|C:\Temp><b>My Projects</b>|"
Set ComSelect to "C:\Temp"
Set ComColumnsVisible to OLEexFileColumnName
Set ComHeaderVisible to False
Set ComFitCascadeColumns to 3
Send ComEndUpdate
End_Procedure
|
|
127
|
How can change the explore from folder (sample 2)
Procedure OnCreate
Forward Send OnCreate
Set ComExploreFromHere to "C:\>"
Set ComLayout to "Expand0 = "C:\";SelectMode0 = 0"
End_Procedure
|
|
126
|
How can change the explore from folder (sample 1)
Procedure OnCreate
Forward Send OnCreate
Set ComExploreFromHere to "C:\"
End_Procedure
|
|
125
|
Is it possible to include more system drives as root folders (sample 2)
Procedure OnCreate
Forward Send OnCreate
Set ComExploreFromHere to "C:\>SYSTEM <off 4><b>1|D:\>SYSTEM <off 4><b>2|E:\>SYSTEM <off 4><b>3"
End_Procedure
|
|
124
|
Is it possible to include more system drives as root folders (sample 1)
Procedure OnCreate
Forward Send OnCreate
Set ComExploreFromHere to "C:\|D:\|E:\"
End_Procedure
|
|
123
|
How can I include a system drive as a root folder, instead lists its content
Procedure OnCreate
Forward Send OnCreate
Set ComExploreFromHere to "C:\>"
Set ComLayout to "Expand0 = "C:\";SelectMode0 = 0"
End_Procedure
|
|
122
|
How can I add the Desktop as a root folder (sample 3, rename, new display name, root)
Procedure OnCreate
Forward Send OnCreate
Set ComExploreFromHere to "::{20D04FE0-3AEA-1069-A2D8-08002B30309D}><sha ;;0>This <b>PC</b>"
End_Procedure
|
|
121
|
How can I add the Desktop as a root folder (sample 2)
Procedure OnCreate
Forward Send OnCreate
Set ComExploreFromHere to "::{20D04FE0-3AEA-1069-A2D8-08002B30309D}>"
End_Procedure
|
|
120
|
How can I add the Desktop as a root folder (sample 1)
Procedure OnCreate
Forward Send OnCreate
Set ComExploreFromHere to ">"
Set ComSelect to "::{20D04FE0-3AEA-1069-A2D8-08002B30309D}"
Set ComSelectMode to OLEexSelectModeList
End_Procedure
|
|
119
|
How can I browse the "Public" folder
Procedure OnCreate
Forward Send OnCreate
Set ComExploreFromHere to "::{4336a54d-038b-4685-ab02-99bb52d3fb8b}>"
End_Procedure
|
|
118
|
How can I browse the "Libraries" folder
Procedure OnCreate
Forward Send OnCreate
Set ComExploreFromHere to "::{031E4825-7B94-4dc3-B131-E946B44C8DD5}>"
End_Procedure
|
|
117
|
How can I browse the "HomeGroup" folder
Procedure OnCreate
Forward Send OnCreate
Set ComExploreFromHere to "::{B4FB3F98-C1EA-428d-A78A-D1F5659CBA93}>"
End_Procedure
|
|
116
|
How can I browse the "Games" folder
Procedure OnCreate
Forward Send OnCreate
Set ComExploreFromHere to "::{ED228FDF-9EA8-4870-83b1-96b02CFE0D52}>"
End_Procedure
|
|
115
|
How can I browse the "OneDrive" folder
Procedure OnCreate
Forward Send OnCreate
Set ComExploreFromHere to "::{018D5C66-4533-4307-9B53-224DE2ED1FE6}>"
End_Procedure
|
|
114
|
How can I browse the "Recycle Bin" folder
Procedure OnCreate
Forward Send OnCreate
Set ComExploreFromHere to "::{645FF040-5081-101B-9F08-00AA002F954E}"
End_Procedure
|
|
113
|
How can I browse the "Documents" folder
Procedure OnCreate
Forward Send OnCreate
Set ComExploreFromHere to "::{450D8FBA-AD25-11D0-98A8-0800361B1103}"
End_Procedure
|
|
112
|
How can I browse the Network folder
Procedure OnCreate
Forward Send OnCreate
Set ComExploreFromHere to "::{F02C1A0D-BE21-4350-88B0-7367FC96EF3C}"
End_Procedure
|
|
111
|
How can I browse the My Computer
Procedure OnCreate
Forward Send OnCreate
Set ComExploreFromHere to "::{20D04FE0-3AEA-1069-A2D8-08002B30309D}"
End_Procedure
|
|
110
|
How can I browse the My Network Places folder
Procedure OnCreate
Forward Send OnCreate
Set ComExploreFromHere to "::{208D2C60-3AEA-1069-A2D7-08002B30309D}"
End_Procedure
|
|
109
|
How can I browse the Desktop folder
Procedure OnCreate
Forward Send OnCreate
Set ComExploreFromHere to "::{00021400-0000-0000-C000-000000000046}"
End_Procedure
|
|
108
|
How can I select multiple files
Procedure OnCreate
Forward Send OnCreate
Set ComSelect to "C:\\r\nD:\\r\nE:\"
End_Procedure
|
|
107
|
How can I select a single file
Procedure OnCreate
Forward Send OnCreate
Set ComSelect to "C:\"
End_Procedure
|
|
106
|
Can I change the folder being explored
Procedure OnCreate
Forward Send OnCreate
Set ComExploreFromHere to "c:\Program Files"
End_Procedure
|
|
105
|
How can I turn on the Thumbnail mode
Procedure OnCreate
Forward Send OnCreate
Set ComSelect to "C:\"
Set ComSelectMode to OLEexSelectModeThumbnail
End_Procedure
|
|
104
|
How to turn off the Auto-Update feature
Procedure OnCreate
Forward Send OnCreate
Set ComAutoUpdate to False
End_Procedure
|
|
103
|
I can not make a column larger, by resizing its header, as it splits the control's header only. What can I do
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Set ComColumnAutoResize to False
Set ComStatusBarVisible to OLEexStatusBarNone
Set ComMode to OLEexSingleCascadeMode
Set ComSelect to "c:\Windows"
Send ComEndUpdate
End_Procedure
|
|
102
|
How can hide the column's header
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Set ComHeaderVisible to False
Set ComColumnsVisible to OLEexFileColumnName
Set ComSelect to "C:\Windows"
Set ComFitCascadeColumns to 3
Send ComEndUpdate
End_Procedure
|
|
101
|
How can hide the Modified, Size and Type columns
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Set ComColumnsVisible to OLEexFileColumnName
Set ComSelect to "C:\Windows"
Set ComFitCascadeColumns to 3
Send ComEndUpdate
End_Procedure
|
|
100
|
How can I hide the +/- buttons, so I can show just plain lists, no children
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Set ComColumnsVisible to OLEexFileColumnName
Set ComExpandFolders to False
Set ComHeaderVisible to False
Set ComSelect to "C:\Windows"
Set ComFitCascadeColumns to 3
Send ComEndUpdate
End_Procedure
|
|
99
|
A small rectangle is shown around the item that has the focus. Can I hide that
Procedure OnCreate
Forward Send OnCreate
Set ComShowFocusRect to False
End_Procedure
|
|
98
|
How can I get ride of the hot selection color
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Set ComHotBackColor to -1
Set ComHotForeColor to -1
Send ComEndUpdate
End_Procedure
|
|
97
|
How can I change the control's selection color (sample 3)
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 "XP:Button 1 2" to Nothing
Get ComAdd of hoAppearance 1 "CP:2 -1 0 1 0" to Nothing
Get ComAdd of hoAppearance 4 "XP:Button 1 1" to Nothing
Get ComAdd of hoAppearance 3 "CP:4 -1 0 1 0" to Nothing
Send Destroy to hoAppearance
Set ComFitCascadeColumns to 2
Set ComSelect to "c:\"
Set ComFullRowSelect to True
Set ComExpandFolders to False
Set ComSelBackColor to |CI$1000000
Set ComSelForeColor to (RGB(0,0,0))
Set ComHotBackColor to |CI$3000000
Set ComHotForeColor to (RGB(0,0,0))
Send ComEndUpdate
End_Procedure
|
|
96
|
How can I change the control's selection color (sample 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 "gBFLBCJwBAEHhEJAAEhABNACg6AADACAxRDgMQBQKAAzAJBIYhiG4cYCgMZhXDOCYXABCEYRXBIZQ7BKNIxjSJwFiCCQwSDKEjyCKcGRHF6MI6gOYpCgOIYjRJNIASVAceAAGaUZrjSgobjmOYhAJCKJUWAFFoVDCgZThGgJHomMIhBDHASQTQ8EytJqmKajCaRSDUJZkWZOIyjBd6a5tVbXEaVTAccxhOKeahvGo5Fred40TRINCWHI1d4NH69JbwMILSgME6FABXdhWFC+Ex9Kiea7kOqIJwyA5bY5kGRWDRkLzROAALJ1Cz7KqydpDYyAGbABagAYfPy8JzxHKNarfA5GZzuG4zdi8U41WCBdpnHQNS4KL6ndBbWrdFoiC8X4QnAOQ8B4dwiHQCIEhQDQmDOIZUmQZYDkIVRSmIEQ3lUGwbEIRQQh4ZpeEQGIMB0JZdkoc4XnqVB/k0CAGAKAJgEgFgGgGYBXnyVA5mCRQ4maA5NjgRJvgSTwoFYFoFmGCBmBqBphhgTJvDcIkFlWCJhmOLgmDoYoIiYKoKmKSI2C6CwiGOLJwgyTJ4lYAg8mOCI+DqDpjkiMJ0g+TJZAYN4OGOWQWEaCpjnOUhBDMZAzk4MYTmUCRGFKFJlEkRhJhKZJTjIWoWmWSR2F6F5mAmBhbhWZAoASdYZk6WYmGqGpmkmNhuhulQonaHJlgmGhnDuJ4JmYeoemeSZ2H6H5nhmTJ2h0TQKAoHohmiCgmgqIpokoJJ3iOaBKDydw8GkShWhaJZpgoZoaiaaRTmKHokGieJiiKKJqEqFomimaoKg6Hg+CgSouimK5rAqRg4D4axKjaHoSGuCpmjqLprkqdo6i0D4aBKQIgiwSwWkaMZsgsJpGD6LJLAqNIyi0CxGlKHJskOahLgKJhzlaK4gi2GxOl6MZtjmTJOjiX5ThSWo5mMM5CkCOpukuNpujubwLiYEY8k2NQ4mqPZNhuZgIj6b5LnaeQ2GXsJrGuQAEAQgI" to Nothing
Send Destroy to hoAppearance
Set ComFitCascadeColumns to 2
Set ComSelect to "c:\"
Set ComFullRowSelect to True
Set ComSelBackColor to |CI$1e0e0e0
Set ComSelForeColor to (RGB(0,0,0))
Send ComEndUpdate
End_Procedure
|
|
95
|
How can I change the control's selection color (sample 1)
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Set ComFitCascadeColumns to 2
Set ComSelect to "c:\"
Set ComFullRowSelect to True
Set ComSelBackColor to (RGB(0,0,0))
Set ComSelForeColor to (RGB(255,255,255))
Send ComEndUpdate
End_Procedure
|
|
94
|
How can I select the entire item, rather that name only
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Set ComSelect to "c:\|d:\|e:\"
Set ComSelectMode to OLEexSelectModeList
Set ComFullRowSelect to True
Send ComEndUpdate
End_Procedure
|
|
93
|
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 ComHideSelection to False
Set ComBackground |CI$a6 to (RGB(224,224,224))
Set ComBackground |CI$a7 to (RGB(64,64,64))
Set ComSelect to "c:\|d:\|e:\"
Set ComSelectMode to OLEexSelectModeList
Send ComEndUpdate
End_Procedure
|
|
92
|
The selection is still shown when the control loses the focus. Is it possible to hide it
Procedure OnCreate
Forward Send OnCreate
Set ComHideSelection to True
End_Procedure
|
|
91
|
How can I enable single-selection
Procedure OnCreate
Forward Send OnCreate
Set ComSingleSel to True
End_Procedure
|
|
90
|
Predefined Keywords of ShowContextMenu property
// Occurs once the user changed the view.
Procedure OnComViewEndChanging OLEViewOperationEnum llOperation
Forward Send OnComViewEndChanging llOperation
Set ComExecuteContextMenu to 0
End_Procedure
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Set ComScrollPartVisible OLEexVScroll OLEexExtentThumbPart to True
Set ComScrollPartVisible OLEexHScroll OLEexExtentThumbPart to True
Set ComScrollPartVisible OLEexScroll OLEexExtentThumbPart to True
Set ComScrollWidth to 4
Set ComBackground OLEexVSBack to (RGB(240,240,240))
Set ComBackground OLEexVSThumb to (RGB(128,128,128))
Set ComScrollHeight to 4
Set ComBackground OLEexHSBack to (ComBackground(Self,OLEexVSBack))
Set ComBackground OLEexHSThumb to (ComBackground(Self,OLEexVSThumb))
Set ComBackground OLEexScrollSizeGrip to (ComBackground(Self,OLEexVSBack))
Send ComEndUpdate
Set ComAllowSplitView to OLEexAllowTwoSplitView
Set ComFitCascadeColumns to 3
Set ComShowContextMenu to "`menu(` + menu + `)` + `,filecount=` + filecount + `,fileattr=` + hex(fileattr) + `,filename=` + filename + `,fileparsename=` + fileparsename + `,filefullname=` + filefullname + `,[sep]` + `,vlevels=` + vlevels + `,vlevel=` + vlevel + `,hlevels=` + hlevels + `,hlevel=` + hlevel + `,view=` + view + `,[sep]` + `,selectmode=` + selectmode"
Set ComSplitViewHeight to "256,256"
Set ComLayout to "Select1="C:\""
Set ComSelect to "C:\Windows"
End_Procedure
|
|
89
|
How can I display the identifiers of the control's context menu (debug)
// Occurs once the user changed the view.
Procedure OnComViewEndChanging OLEViewOperationEnum llOperation
Forward Send OnComViewEndChanging llOperation
Showln "Operation" llOperation
Showln "ExecuteContextMenu" (ComExecuteContextMenu(Self))
End_Procedure
Procedure OnCreate
Forward Send OnCreate
Set ComColumnsVisible to OLEexFileColumnName
Set ComMode to (OLEexDisableThumbnails + OLEexAutoFitOnResizeClient + OLEexSplitFixCascadeMode)
Set ComSingleSel to False
Set ComShowContextMenu to "`[debug]` + menu"
End_Procedure
|
|
88
|
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
Set ComSelect to "c:\Temp"
Send ComExecuteContextCommand "<selection>" True "Copy"
Send ComEndUpdate
End_Procedure
|
|
87
|
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
|
|
86
|
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
|
|
85
|
ShowContextMenu usage
// Occurs once the user changed the view.
Procedure OnComViewEndChanging OLEViewOperationEnum llOperation
Forward Send OnComViewEndChanging llOperation
Showln "Operation" llOperation
Showln "ExecuteContextMenu" (ComExecuteContextMenu(Self))
End_Procedure
Procedure OnCreate
Forward Send OnCreate
Set ComColumnsVisible to OLEexFileColumnName
Set ComMode to (OLEexDisableThumbnails + OLEexAutoFitOnResizeClient + OLEexSplitFixCascadeMode)
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
|
|
84
|
ShowContextMenu usage
// Occurs once the user changed the view.
Procedure OnComViewEndChanging OLEViewOperationEnum llOperation
Forward Send OnComViewEndChanging llOperation
Showln "Operation" llOperation
Showln "ExecuteContextMenu" (ComExecuteContextMenu(Self))
End_Procedure
Procedure OnCreate
Forward Send OnCreate
Set ComColumnsVisible to OLEexFileColumnName
Set ComMode to (OLEexDisableThumbnails + OLEexAutoFitOnResizeClient + OLEexSplitFixCascadeMode)
Set ComSingleSel to False
Set ComFullRowSelect to True
Set ComShowContextMenu to "filecount > 1 ? `multiple selection[dis]` : menu"
End_Procedure
|
|
83
|
ShowContextMenu usage
// Occurs once the user changed the view.
Procedure OnComViewEndChanging OLEViewOperationEnum llOperation
Forward Send OnComViewEndChanging llOperation
Showln "Operation" llOperation
Showln "ExecuteContextMenu" (ComExecuteContextMenu(Self))
End_Procedure
Procedure OnCreate
Forward Send OnCreate
Set ComColumnsVisible to OLEexFileColumnName
Set ComMode to (OLEexDisableThumbnails + OLEexAutoFitOnResizeClient + OLEexSplitFixCascadeMode)
Set ComSingleSel to False
Set ComFullRowSelect to True
Set ComShowContextMenu to "filecount > 1 ? `multiple selection[dis]` : menu"
End_Procedure
|
|
82
|
ShowContextMenu usage
// Occurs once the user changed the view.
Procedure OnComViewEndChanging OLEViewOperationEnum llOperation
Forward Send OnComViewEndChanging llOperation
Showln "Operation" llOperation
Showln "ExecuteContextMenu" (ComExecuteContextMenu(Self))
End_Procedure
Procedure OnCreate
Forward Send OnCreate
Set ComExploreFromHere to "c:\"
Set ComColumnsVisible to OLEexFileColumnName
Set ComMode to (OLEexDisableThumbnails + OLEexAutoFitOnResizeClient + OLEexSplitFixCascadeMode)
Set ComSingleSel to False
Set ComFullRowSelect to True
Set ComExpandFolders to True
Set ComShowContextMenu to "menu replace `Delete` with `Delete[dis]`"
End_Procedure
|
|
81
|
ShowContextMenu usage
// Occurs once the user changed the view.
Procedure OnComViewEndChanging OLEViewOperationEnum llOperation
Forward Send OnComViewEndChanging llOperation
Showln "Operation" llOperation
Showln "ExecuteContextMenu" (ComExecuteContextMenu(Self))
End_Procedure
Procedure OnCreate
Forward Send OnCreate
Set ComExploreFromHere to "c:\"
Set ComColumnsVisible to OLEexFileColumnName
Set ComMode to (OLEexDisableThumbnails + OLEexAutoFitOnResizeClient + OLEexSplitFixCascadeMode)
Set ComSingleSel to False
Set ComFullRowSelect to True
Set ComExpandFolders to True
Set ComShowContextMenu to "menu replace `&Delete` with ``"
End_Procedure
|
|
80
|
ShowContextMenu usage
// Occurs once the user changed the view.
Procedure OnComViewEndChanging OLEViewOperationEnum llOperation
Forward Send OnComViewEndChanging llOperation
Showln "Operation" llOperation
Showln "ExecuteContextMenu" (ComExecuteContextMenu(Self))
End_Procedure
Procedure OnCreate
Forward Send OnCreate
Set ComColumnsVisible to OLEexFileColumnName
Set ComMode to (OLEexDisableThumbnails + OLEexAutoFitOnResizeClient + OLEexSplitFixCascadeMode)
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
|
|
79
|
ShowContextMenu usage
// Occurs once the user changed the view.
Procedure OnComViewEndChanging OLEViewOperationEnum llOperation
Forward Send OnComViewEndChanging llOperation
Showln "Operation" llOperation
Showln "ExecuteContextMenu" (ComExecuteContextMenu(Self))
End_Procedure
Procedure OnCreate
Forward Send OnCreate
Set ComColumnsVisible to OLEexFileColumnName
Set ComMode to (OLEexDisableThumbnails + OLEexAutoFitOnResizeClient + OLEexSplitFixCascadeMode)
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
|
|
78
|
ShowContextMenu usage
// Occurs once the user changed the view.
Procedure OnComViewEndChanging OLEViewOperationEnum llOperation
Forward Send OnComViewEndChanging llOperation
Showln "Operation" llOperation
Showln "ExecuteContextMenu" (ComExecuteContextMenu(Self))
End_Procedure
Procedure OnCreate
Forward Send OnCreate
Set ComColumnsVisible to OLEexFileColumnName
Set ComMode to (OLEexDisableThumbnails + OLEexAutoFitOnResizeClient + OLEexSplitFixCascadeMode)
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
|
|
77
|
ShowContextMenu usage
// Occurs once the user changed the view.
Procedure OnComViewEndChanging OLEViewOperationEnum llOperation
Forward Send OnComViewEndChanging llOperation
Showln "Operation" llOperation
Showln "ExecuteContextMenu" (ComExecuteContextMenu(Self))
Showln "no context menu is generated, so nothing is displayed"
End_Procedure
Procedure OnCreate
Forward Send OnCreate
Set ComColumnsVisible to OLEexFileColumnName
Set ComMode to (OLEexDisableThumbnails + OLEexAutoFitOnResizeClient + OLEexSplitFixCascadeMode)
Set ComFullRowSelect to True
Set ComShowContextMenu to "``"
End_Procedure
|
|
76
|
How can I add new items to the default file's context menu
// Occurs once the user changed the view.
Procedure OnComViewEndChanging OLEViewOperationEnum llOperation
Forward Send OnComViewEndChanging llOperation
Showln "Operation" llOperation
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)),llOperation,Nothing))
Showln "Execute" (ComExecuteContextMenu(Self))
End_Procedure
Procedure OnCreate
Forward Send OnCreate
Set ComColumnsVisible to OLEexFileColumnName
Set ComMode to (OLEexDisableThumbnails + OLEexAutoFitOnResizeClient + OLEexSplitFixCascadeMode)
End_Procedure
|
|
75
|
Is it possible to display the item's identifiers in the file's context menu
// Occurs once the user changed the view.
Procedure OnComViewEndChanging OLEViewOperationEnum llOperation
Forward Send OnComViewEndChanging llOperation
Showln "Operation" llOperation
Showln "ContextMenu" (ComShowContextMenu(Self))
Set ComShowContextMenu to (ComFormatABC(Self,"B = 20 ? (`[debug]`+ value) : value ",(ComShowContextMenu(Self)),llOperation,Nothing))
End_Procedure
Procedure OnCreate
Forward Send OnCreate
Set ComColumnsVisible to OLEexFileColumnName
Set ComMode to (OLEexDisableThumbnails + OLEexAutoFitOnResizeClient + OLEexSplitFixCascadeMode)
End_Procedure
|
|
74
|
How can I remove the Delete command from the file's context menu
// Occurs once the user changed the view.
Procedure OnComViewEndChanging OLEViewOperationEnum llOperation
Forward Send OnComViewEndChanging llOperation
Showln "Operation" llOperation
Showln "ContextMenu" (ComShowContextMenu(Self))
Set ComShowContextMenu to (ComFormatABC(Self,"value replace `&Delete` with ``",(ComShowContextMenu(Self)),Nothing,Nothing))
End_Procedure
Procedure OnCreate
Forward Send OnCreate
Set ComColumnsVisible to OLEexFileColumnName
Set ComMode to (OLEexDisableThumbnails + OLEexAutoFitOnResizeClient + OLEexSplitFixCascadeMode)
End_Procedure
|
|
73
|
How can I provide my own context menu
// Occurs once the user changed the view.
Procedure OnComViewEndChanging OLEViewOperationEnum llOperation
Forward Send OnComViewEndChanging llOperation
Showln "Operation" llOperation
Showln "ContextMenu" (ComShowContextMenu(Self))
Set ComShowContextMenu to "Item 1[id=1][def],Item 2[id=2],[sep][id=3],Popup[id=4](Item 3[id=5],Item 4[id=6])"
Showln "ExecuteContextMenu" (ComExecuteContextMenu(Self))
End_Procedure
Procedure OnCreate
Forward Send OnCreate
Set ComColumnsVisible to OLEexFileColumnName
Set ComMode to (OLEexDisableThumbnails + OLEexAutoFitOnResizeClient + OLEexSplitFixCascadeMode)
End_Procedure
|
|
72
|
Is it possible to prevent executing a specific command from the object's context menu
// Occurs once the user changed the view.
Procedure OnComViewEndChanging OLEViewOperationEnum llOperation
Forward Send OnComViewEndChanging llOperation
Showln "Operation" llOperation
Showln "ContextMenu" (ComShowContextMenu(Self))
Showln "ExecuteContextMenu" (ComExecuteContextMenu(Self))
Set ComExecuteContextMenu to 0
End_Procedure
Procedure OnCreate
Forward Send OnCreate
Set ComColumnsVisible to OLEexFileColumnName
Set ComMode to (OLEexDisableThumbnails + OLEexAutoFitOnResizeClient + OLEexSplitFixCascadeMode)
End_Procedure
|
|
71
|
How can I disable the Delete command from the object's context menu
// Occurs once the user changed the view.
Procedure OnComViewEndChanging OLEViewOperationEnum llOperation
Forward Send OnComViewEndChanging llOperation
Showln "Operation" llOperation
Showln "ContextMenu" (ComShowContextMenu(Self))
Set ComShowContextMenu to (ComFormatABC(Self,"value replace `&Delete` with `&Delete[dis]`",(ComShowContextMenu(Self)),Nothing,Nothing))
End_Procedure
Procedure OnCreate
Forward Send OnCreate
Set ComColumnsVisible to OLEexFileColumnName
Set ComMode to (OLEexDisableThumbnails + OLEexAutoFitOnResizeClient + OLEexSplitFixCascadeMode)
End_Procedure
|
|
70
|
How can I turn off, disable the control's context menu
Procedure OnCreate
Forward Send OnCreate
Set ComAllowContextMenu to False
Set ComColumnsVisible to OLEexFileColumnName
End_Procedure
|
|
69
|
How can I decode the Layout property
Procedure OnCreate
Forward Send OnCreate
Set ComAllowSplitView to OLEexAllowTwoSplitView
Set ComSelect to "C:\"
Set ComSplitViewHeight to "256,256"
Variant sLayout
Get ComLayout to sLayout
Showln "Encoded:" sLayout
Handle hoPrint
Get Create (RefClass(cComPrint)) to hoPrint // Import the 'ExPrint 1.0 Control Library' library
Showln "Decoded: " (ComDecode64TextW(hoPrint,sLayout))
Send Destroy to hoPrint
End_Procedure
|
|
68
|
Is there any property I could use, so I can save the control's state, so I can restore once my application is re-started
Procedure OnCreate
Forward Send OnCreate
Variant sLayout
Get ComLayout to sLayout
Showln "Save" sLayout
Set ComSelect to "C:\"
Set ComLayout to sLayout
End_Procedure
|
|
67
|
Turn on the backcolor alternate feature
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Set ComBackColorAlternate to (RGB(240,240,240))
Set ComForeColorAlternate to (RGB(40,40,40))
Set ComSelect to "C:\Windows\System32"
Send ComEndUpdate
End_Procedure
|
|
66
|
Display HTML in the control's status bar
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Set ComStatusBarVisible to OLEexStatusBarAnchorTop
Set ComSelect to "C:\Windows\System32"
Set ComFitCascadeColumns to 3
Set ComStatusBarLabel to "Current: <b><%0%>"
Send ComEndUpdate
End_Procedure
|
|
65
|
Display relative name into the control's status bar
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Set ComExploreFromHere to "C:\"
Set ComStatusBarVisible to OLEexStatusBarAnchorTop
Set ComSelect to "C:\Windows"
Set ComFitCascadeColumns to 3
Set ComStatusBarLabel to "<%3%>"
Send ComEndUpdate
End_Procedure
|
|
64
|
Display parsed name into the control's status bar
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Set ComStatusBarVisible to OLEexStatusBarAnchorTop
Set ComSelect to "C:\Windows"
Set ComFitCascadeColumns to 3
Set ComStatusBarLabel to "<%2%> >"
Send ComEndUpdate
End_Procedure
|
|
63
|
Display name into the control's status bar (default)
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Set ComStatusBarVisible to OLEexStatusBarAnchorTop
Set ComSelect to "C:\Windows"
Set ComFitCascadeColumns to 3
Set ComStatusBarLabel to "<%1%> >"
Send ComEndUpdate
End_Procedure
|
|
62
|
Display full path into the control's status bar
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Set ComStatusBarVisible to OLEexStatusBarAnchorTop
Set ComSelect to "C:\Windows"
Set ComFitCascadeColumns to 3
Set ComStatusBarLabel to "<%0%>"
Send ComEndUpdate
End_Procedure
|
|
61
|
Removes the extra > shown at the end of the status label
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Set ComStatusBarVisible to OLEexStatusBarAnchorTop
Set ComSelect to "C:\Windows"
Set ComFitCascadeColumns to 3
Set ComBackground OLEexStatusPanelBackColor to (RGB(0,0,1))
Set ComBackground OLEexStatusForeColor to (RGB(255,255,255))
Set ComStatusBarLabel to "<%1%>"
Send ComEndUpdate
End_Procedure
|
|
60
|
Just wondering if I can show the status on the bottom side of the control
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Set ComSelect to "C:\Windows"
Set ComFitCascadeColumns to 3
Set ComStatusBarVisible to OLEexStatusBarAnchorBottom
Send ComEndUpdate
End_Procedure
|
|
59
|
How can I hide the control's status
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Set ComStatusBarVisible to OLEexStatusBarNone
Send ComEndUpdate
End_Procedure
|
|
58
|
I've noticed that if I use a second view, the selected path in the first view, ensures that fits the control's client are as soon as the user resizes the panels. Is it possible to prevent that
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Set ComMode to OLEexSplitFixCascadeMode
Set ComFitCascadeColumns to 3
Set ComAllowSplitView to OLEexAllowTwoSplitView
Set ComColumnsVisible to OLEexFileColumnName
Set ComHeaderVisible to False
Set ComSelect to "c:\Windows\System32"
Set ComSplitViewHeight to "256"
Send ComEndUpdate
End_Procedure
|
|
57
|
I've noticed the control splits the control in 4 parts, and displays each view, the question I have is it possible to have that changed, for instance 3 ( sample 2 )
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Set ComColumnsVisible to OLEexFileColumnName
Set ComHeaderVisible to False
Set ComSelect to "c:\Windows\System32"
Send ComFitToClient 3
Send ComEndUpdate
End_Procedure
|
|
56
|
I've noticed the control splits the control in 4 parts, and displays each view, the question I have is it possible to have that changed, for instance 3 ( sample 1 )
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Set ComColumnsVisible to OLEexFileColumnName
Set ComHeaderVisible to False
Set ComSelect to "c:\Windows\System32"
Send ComFitToClient 3
Send ComEndUpdate
End_Procedure
|
|
55
|
I am trying to use your control as a file-view, but without any generated thumbnail. Is this possible
// Occurs once the user changed the view.
Procedure OnComViewEndChanging OLEViewOperationEnum llOperation
Forward Send OnComViewEndChanging llOperation
Showln "ViewEndChanging: " llOperation
Showln (ComSelect(Self))
End_Procedure
// Occurs once the user is about to change the view.
Procedure OnComViewStartChanging OLEViewOperationEnum llOperation
Forward Send OnComViewStartChanging llOperation
Showln "ViewStartChanging: " llOperation
End_Procedure
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Set ComMode to (OLEexDisableThumbnails + OLEexSplitFixCascadeMode)
Set ComLayout to "Select0 = "c:\|d:\""
Send ComEndUpdate
End_Procedure
|
|
54
|
How can I prevent resizing the cascade columns, once the user resizes the entire control
// Occurs once the user changed the view.
Procedure OnComViewEndChanging OLEViewOperationEnum llOperation
Forward Send OnComViewEndChanging llOperation
Showln "ViewEndChanging: " llOperation
Showln (ComSelect(Self))
End_Procedure
// Occurs once the user is about to change the view.
Procedure OnComViewStartChanging OLEViewOperationEnum llOperation
Forward Send OnComViewStartChanging llOperation
Showln "ViewStartChanging: " llOperation
End_Procedure
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Send ComFitToClient 3
Set ComMode to OLEexSplitFixCascadeMode
Set ComSelect to "c:\Windows"
Send ComEndUpdate
End_Procedure
|
|
53
|
Is it possible to disable resizing the cascade columns
// Occurs once the user changed the view.
Procedure OnComViewEndChanging OLEViewOperationEnum llOperation
Forward Send OnComViewEndChanging llOperation
Showln "ViewEndChanging: " llOperation
Showln (ComSelect(Self))
End_Procedure
// Occurs once the user is about to change the view.
Procedure OnComViewStartChanging OLEViewOperationEnum llOperation
Forward Send OnComViewStartChanging llOperation
Showln "ViewStartChanging: " llOperation
End_Procedure
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Send ComFitToClient 3
Set ComMode to (OLEexAutoFitOnResizeClient + OLEexDisableResizeCascadeColumns + OLEexSplitFixCascadeMode)
Set ComSelect to "c:\Windows"
Send ComEndUpdate
End_Procedure
|
|
52
|
SplitFixCascadeMode Mode
// Occurs once the user changed the view.
Procedure OnComViewEndChanging OLEViewOperationEnum llOperation
Forward Send OnComViewEndChanging llOperation
Showln "ViewEndChanging: " llOperation
Showln (ComSelect(Self))
End_Procedure
// Occurs once the user is about to change the view.
Procedure OnComViewStartChanging OLEViewOperationEnum llOperation
Forward Send OnComViewStartChanging llOperation
Showln "ViewStartChanging: " llOperation
End_Procedure
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Set ComMode to OLEexSplitFixCascadeMode
Set ComSelect to "c:\"
Send ComEndUpdate
End_Procedure
|
|
51
|
FixCascadeMode Mode
// Occurs once the user changed the view.
Procedure OnComViewEndChanging OLEViewOperationEnum llOperation
Forward Send OnComViewEndChanging llOperation
Showln "ViewEndChanging: " llOperation
Showln (ComSelect(Self))
End_Procedure
// Occurs once the user is about to change the view.
Procedure OnComViewStartChanging OLEViewOperationEnum llOperation
Forward Send OnComViewStartChanging llOperation
Showln "ViewStartChanging: " llOperation
End_Procedure
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Set ComHeaderVisible to False
Set ComDefColumnWidth to 128
Set ComMode to OLEexFixCascadeMode
Set ComSelect to "c:\Windows"
Send ComEndUpdate
End_Procedure
|
|
50
|
SplitEqualCascadeMode Mode
// Occurs once the user changed the view.
Procedure OnComViewEndChanging OLEViewOperationEnum llOperation
Forward Send OnComViewEndChanging llOperation
Showln "ViewEndChanging: " llOperation
Showln (ComSelect(Self))
End_Procedure
// Occurs once the user is about to change the view.
Procedure OnComViewStartChanging OLEViewOperationEnum llOperation
Forward Send OnComViewStartChanging llOperation
Showln "ViewStartChanging: " llOperation
End_Procedure
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Set ComMode to OLEexSplitEqualCascadeMode
Set ComSelect to "c:\"
Send ComEndUpdate
End_Procedure
|
|
49
|
Default Mode
// Occurs once the user changed the view.
Procedure OnComViewEndChanging OLEViewOperationEnum llOperation
Forward Send OnComViewEndChanging llOperation
Showln "ViewEndChanging: " llOperation
Showln (ComSelect(Self))
End_Procedure
// Occurs once the user is about to change the view.
Procedure OnComViewStartChanging OLEViewOperationEnum llOperation
Forward Send OnComViewStartChanging llOperation
Showln "ViewStartChanging: " llOperation
End_Procedure
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Set ComSelect to "c:\Windows"
Send ComFitToClient 3
Send ComEndUpdate
End_Procedure
|
|
48
|
SingleCascadeMode ( folder view mode )
// Occurs once the user changed the view.
Procedure OnComViewEndChanging OLEViewOperationEnum llOperation
Forward Send OnComViewEndChanging llOperation
Showln "ViewEndChanging: " llOperation
Showln (ComSelect(Self))
End_Procedure
// Occurs once the user is about to change the view.
Procedure OnComViewStartChanging OLEViewOperationEnum llOperation
Forward Send OnComViewStartChanging llOperation
Showln "ViewStartChanging: " llOperation
End_Procedure
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Set ComStatusBarVisible to OLEexStatusBarNone
Set ComMode to OLEexSingleCascadeMode
Set ComSelect to "c:\Windows"
Send ComEndUpdate
End_Procedure
|
|
47
|
How to expand more folders, when single cascade mode is used
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Set ComStatusBarVisible to OLEexStatusBarNone
Set ComMode to OLEexSingleCascadeMode
Set ComLayout to "Expand0 = "c:\|d:\|e:\";SelectMode0 = 0"
Send ComEndUpdate
End_Procedure
|
|
46
|
Is it possible to programmatically selects more folders
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Set ComLayout to "Select0 = "c:\|d:\|e:\";SelectMode0 = 0"
Send ComEndUpdate
End_Procedure
|
|
45
|
Is it possible to programmatically expand a folder (sample 4, select, expand more)
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Set ComLayout to "Expand0 = "c:\|d:\|e:\";SelectMode0 = 0"
Send ComEndUpdate
End_Procedure
|
|
44
|
Is it possible to programmatically expand a folder (sample 3)
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Set ComLayout to "Expand0 = "c:\";SelectMode0 = 2"
Send ComEndUpdate
End_Procedure
|
|
43
|
Is it possible to programmatically expand a folder (sample 2)
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Set ComLayout to "Expand0 = "c:\";SelectMode0 = 1"
Send ComEndUpdate
End_Procedure
|