|
142
|
ImageSize property on 32 (specifies the size of control' icons/images/check-boxes/radio-buttons)
local var_Appearance as IAppearance
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:ImageSize := 32
oDCOCX_Exontrol1:DefaultItemHeight := 36
oDCOCX_Exontrol1:HeaderHeight := oDCOCX_Exontrol1:DefaultItemHeight
oDCOCX_Exontrol1:Font:Size := 16
oDCOCX_Exontrol1:ToolTipFont:Size := oDCOCX_Exontrol1:Font:Size
oDCOCX_Exontrol1:Indent := 26
var_Appearance := oDCOCX_Exontrol1:VisualAppearance
var_Appearance:Add(1,"gBFLBCJwBAEHhEJAAEhABfICg6AADACAxRDgMQBQKAAzQFAYbhkGCGAAGMZxRgmFgAQhFcZQSKUOQTDKMIziaQAGgkNQwCSLIwjNIsBxPFKVQChEYxSjKA40SJNUgyj6CCY+QLIE5PfQgAL9I6eJABCCSQKkYx0HScRiwPBIbAZAYhCZqaKhWgkKI/WBQIABRDVLx5ESiLRtKy7Mq2bpvXBcNxXHalaztO68LxvKyqHb5fJ/PpgL4YHgmC4NQ7EMRwF6rfbyfZ7Xg/ORPTijZ4sdzMHTzJyscx3HqfaBoOaZU5eMLceTUMofHIndxCcasPbsOatVqjG5sYjcGC3La9cz3Pq/bpuDCbMxuaK1TrYXr1TTrcofBDldAxXRKDxRDWVhLnYOw9i6XxzjuXprCaOoKB6EwbiCZZCGOdZYlcT4xHmbhMnwNxtn+G5bmqdZ7n4Pw/i+X5zm+dQ9g4CAFjsfAJheOI8HsDoWDWTB/lwSAQkmA5PEgRYoDyDwYFYFoFmGCBmBqBphDgRJ0gOTIYBGRB/lyRh0iSCZbjYWJzgWDwIjYLoLmMCJGDKDJjBgWgqG6YhyhGHRzA2aJ1mCABOAiOJvhCZBJBYRoRmSCQmEqEQimkAZgg8TZnDCV4UkmCUmBKZYJGYWoWCUUhiFMNZckNUh2GENoaGaGZmgmJhqhqZpGGIEx2GYIxSGGGJdggWJth2Z4JmYeoemeSZ2H6H4hGmQhihyTRHGYLg7CiCgmgqIpokoNoOiOaJ4jqAochqaZGgaCxpAoZoaiaaJqEmWIcGgShcnCJwqEqFoR3YOoFlgchflqNouiuawHmWSYqGkWZQhcatzmaOoumuSp2j6L5bBaKo0GQKRnGGCxqiyCwmkqMpsksNpOGUGI7A0ew1G0Rxlg0PptgsZuDG2Sx2l6N5tnYNZZjUDRXDCVo5l2FoymqOpukuNpujubwLjmWY5k0ZwxkaFxYlWdp6j6b5Lnafo/nABQdg2FxcUsY5BkmXAkmeQpckwNRrkKTh8CSHZBk4NwyC4KxxgMDwakOMZDn8GgwnGAo2C4cwthMcwmCcMoHBMHRehwTIghySYNksZwcH4HBMEsHx5hyPItiweYxnwSZEH4Mozn0fR+DMAo7EYJ50gkdZelKdNql2UgJn0GIukwH4HicQRai2GI4mSVpNl0dZGledgNgcYpYDWUx3FsOQi5YV5anaTY3G6W53A2RxylydxFjiaxEFCCgBBAQ==")
var_Appearance:Add(2,"gBFLBCJwBAEHhEJAAEhABcoFg6AADACAxRDgMQBQKAAzQFAYbhkGCGAAGMZxRgmFgAQhFcZQSKUOQTDKMIziaQAGgkNQwCSLIwjNIsBxPFKVQChEYxSjKA40SJNUgyj6CCY+QLIE5PfQgAL9I6eJABCCSQKkYx0HScRiwPBIbAZAYhCZqaKhWgkKI/WBQIABRDVLx5ESiLRtKy7Mq2bpvXBcNxXHalaztO68LxvKyqHb5fJ/PpgL4YHgmC4NQ7EMRwF6rfbyfZ7Xg/ORPTijZ4sdzMHTzJyscx3HqfaBoOaZU5eMLceTUMofHIndxCcasPbsLpOS5LNKsaxmWLYdhFdTxQi6LpvfA8BwXC6JY7heRYRbFbYxRjGNi1TS7G4nGKd5WGuL4UHwI4VkaYxii8V4pgQMgVBQdQ5iCTYGi8T4vlWbJ3nuPg+l+H5AlSCg6ByPBoE8Ap3jqYxhBido5g0OgOGOGI4CsSpCCAcgcAuEokiEN5NCKfJ9DyTRjnScg1CEYxOBmBpPCgagdgcIZoHoGIFA4AxQkCAxKAgKBwgGSpIBCZhjF2E5UnQPQMiMCJBCIBwxkSQgsgo+JtDKT4ziiQw+k6EwAnsOgLnkHI+yCQ4iEuE4klkPhShEJBpAoPgymOMoaDgHBjFMBgyD0HYTiCZSZhIIIGC4ChiHSew5kwM5omILZPiOBI0hwZw5kodIdA+M4Uj4PxOmMSJ9DuTQzmyZgviceZagaHVfj4awwmaAh2GUIYmCOEZZDaDRDFGdwcg4EwyHMN4LBOaJbCoaZqgKH8qkMfIyD8DozDyfA7A0Coui0OpMmOZJdCsahKg6NooioChwmEMxLEoXJbDUTRXGSUgykyMgQG0GpPHMdI3D4TRCgSeQ0kmaw+lGNAtCOZJVCiT5DhyRQwAqMg0EoDBBGEGAsASC5yiSCw+k4Mp6lWNQuksTpRjMTxDGzJwGmGMpDDKXYTECSAxl6Q5olkK4PgMMIVkASRMBMBgzEkaZEjsNALhIZA6AeQBgk0ZJEgAAJ0CIAgODMNIsD6DRih9uYwFyAwfCUb5ijmbI+gwdxkk8MZMGeMpPCkDxzBiC5MHMPJLDSSROFMLIoBEQogEMFJPnENYQGgE4DCOaJfC7tYkhGTQ0kyWwykuXpMiyRpKjKR4wngM4JmOWJACCdYtHMWw+Eych4nINYLAEYA8AgdAEEsQZajaQoog4GxPiMVIolcdxNG8XZVkmNoRwWRVBlFeFEeAZQJgnFiHgHwcAhjhHgGMSI5xki2CyA4EQsA3i0HkBsLwKRFgAHcPkHopBJBcBeDUYI7xyDOHqKkWo2hLCsDIBIY4qQ5A8DoMMYwOAqCSBGKgU4yB2iDBwIgB4hxQgAAWNgBoAgsBdEcBUQ4sQ9A/HqD0JI8RpBzH2OYVgahLBHFiJQJweQiDhDUE4SAARQAzFsG0EQwA6AOWSBkFgVAIBCHeGERQFQiCQHeFkC4vkiB8DyB4F4QxVDvGMNEOQexMjlBeOAKQiQLgfDA7QEAaRiBdEkH8TI7AZiFBAGYBIABWjYBiGACioQ4C1A+AMMgWhfgxHgPsT4URIB0COKgPgjRwiAB8AYUArxBgCF6J4GY5hrAOCAPAAoGRRCsCIMEXATXfgAF8BMJwURuEQDgD4Q4OBoAeHGFgLIwQrC2D0JoSQ+QvhrHoSgQI8AbDFGID8C4Ah6BQAQAASACwgCYCMAUMARAvCKAiAMCAokeCKBEOAKgCBoDaHuMsEAqwJDiACDURg8R6gPCyDofYWAhgoDIJ4ZAuhoiGAYGgRoQw/A0GMMga4GwxiEDeIYYInATCDBQAoBAwAoDlA0KMBoVRGiDGwDQUYIRsgaGGDgM4LAwDWB8EcIA1APhjEgGQVwgRIgjFIIQHokgZA+CSEkLIKQSjHAwMsCwDAsAEB2ABTIwRwD6A8CMToSxkAxE4HYIw+BsgbBEDAHYBwojCBoIYFgXSjABE4MsHIbQWhlGILQS4UhvBdAUKEEwHgxDAAABQQQUAhgKHiDwE4JS4A7BGLQZwCR4gaBEMUYAqgKApHgGwVAIRNgvBMMQXImwZDtE4I8UIyAZCDCAE8AwrhgAdEEBACQLRCg4FEB4AYtA7CdEiPQMoJAMDNCkOMCAXAFDhH0D0Q4EgfAaGSK4NYzRUj9BuCgAgswOBjB4Fqpw8B2ADAwE4A4Qx2DAE6JIaQPQGhAGKBcIQ5B5gHByKIFARwADbAyKUfgdBKBBGyEcVIAB/ijHoIoSA0gdBNl+OATYERZgBGSDYWIWAUCEGKA4FAhR7CIBtYQGYZg4CMAiKEcAOwkBjHWE8Z4lQgA+DkBoTohwwCeAaMEEgBQCCABgHMRwQRhhMEWFQd4HwZgwDqFESItAbAGEANCpINAzANCCJkK4ah+heFYBURwsQrS2CsMYMoWGBhYDWI0EInQgiApXaOVI1QFDsC8MUNoMBMA1HMJga4eh+BeAWOgNNowGjYzCGAAwax+iJBeBVT4gxoBIAGFsJFBxgBiGKFkKQ7g5DFFQEcAo4AzDDACKEQQLgCiJDYB0MgRBCCQAgQEA==")
var_Appearance:Add(3,"gBFLBCJwBAEHhEJAAEhABQ4Fg6AADACAxRDgMQBQKAAzQFAYbhkGCGAAGMZxRgmFgAQhFcZQSKUOQTDKMIziaQAGgkNQwCSLIwjNIsBxPFKVQChEYxSjKA40SJNUgyj6CCY+QLIE5PfQgAL9I6eJABCCSQKkYx0HScRiwPBIbAZAYhCZqaKhWgkKI/WBQIABRDVLx5ESiLRtKy7Mq2bpvXBcNxXHalaztO68LxvKyqHb5fJ/PpgL4YHgmC4NQ7EMRwF6rfbyfZ7Xg/ORPTijZ4sdzMHTzJyscx3HqfaBoOaZU5eMLceTUMofHIndxCcasPbsLpOS5LNKsaxmWLYdhFdTxQi6LpvfA8BwXC6JY7heRYRbFbYxRjGNi1TS7G4nGKd5WGuL4UHwI4VkaYxii8V4pgQMgVBQdQ5iCTYGi8T4vlWbJ3nuPg+l+H5AlSCg6ByPBoE8Ap3jqYxhBido5g0OgOGOGI4CsSpCCAcgcAuEosiYN5NHMOJ+D4TpTnSeQ7CEY4uBmBpPhgagdgcIZoHibIEyUBJZDQIJShoCgcCAcoyAQOYYlcZJ1D0DxDCiQgwEiAZMHEMJLFKPJ9D2DoDnidQ4k+Y5QmKEROBkIhKD0JIZDIS4TGUCQuEeEJjnOIg8CuY4RkYNgwGMM5RllGpThDRYIGKZIpCkJFUH0PINyWcQ3CaaZCG+HBnEOTJhD8Tx4GoeQ/GcaZSHOH5nCmQhshoZhihYYwhiYA4RlkNoNEMUZ3ByDjwEsPxOnMaJ9DuDR6F6GYmCmKh0nANtMioP4Gg8aoSiIO5NhodociqaY6GaFYkEyOg8lsNRNTaUgykyMgQG0GpPiONJbD8DpDEyfA6k0KwOkWMQsGsAJU0SagwkoJQJDIPISCQCJTGSUwyGaM4KkmMgtksHpFjAZ4TGCBAbgaSpcksdhNAMIJHHsD5TjSWWMAMOpwjyLwbk6cAz0KRJiDkDYzESCwiggcgcgYIQwCIEINCMCITj6TVxkMXp2j0cQLlCTo7E2F4ymkMZdhMPJHDGHpLAyVg+k4UwrCCSIyByDJ8DuDY8CiWY0kiXAXC6QJwFKGIjCeJpjgyezjlyDw6klHx5myRoMGwZwbkcToTEiew4kwbQfEmUgPkOKJUD4DpTHSHQmgkXI/ASTA1g0XIEDMTBimyfI7jSLYHEiUoPk0Fw/kadAsHGao8A0A5smEMJ2mNyg5gzJZwDgCpChyIZVyIZwFCMJEPASRkBqE+IcHInRcDxA2H4bIsx0AtDsIBpwZwYicD6BscwDwUBgHCIYaIfgtiVH2O4WgUwJjEFeAEQA7y4hMCiBMS4aRdB9A4CYE4LxljyBMHcDItBxinDCLcTYmgejBFQ9UTg9gFBOEmAQTI7A4iZGMGkQAWQ7jYA2HIL8BRAjDG4HcCwARbjZHiNoDw1nLDnGyNINQ+wjCpBMEgcovQUgICQJEcgWRuBvAyJ4d4ugpCUAINcHogxIgnDiM4N4axzD3F2JMTY/hRqYF6FsWIxhYAGGoAALQYgYirBwBEBwpAjBEAAIEIYsA2gOHCMAGgXAACIDmMITAUgFABH0D0I4WwvhNFGMAOIvxRD2GKNcMA8gjAPDCPwBogRPAxA8PgRwZRICYDED8RAXQEghEAN8DIgwIBdB4JYWwMgtiQHoFQKAiRFguFKGwGQhglDsEOVwEQQRkCKBwOIHgSREDRBYHEXQcQdD7GIGARQHRxipBrMobgewDCUCADsEYWAzgMHKHQDQxxsDzA6EMfAeQHB4GQDkUYPA0iECiKoGgRhcDdA2GMQA8AOCjDSPgHI4QnApAKBICwHg1A+BcAwcYsgbjGGQNkCIgRsA6EcBEWANADjsB0B8YYzQQDIGSBcEYZBCCPEkFIHQSgkgZAwG4IwBAbAYGGAgL4Ch4g8BOCQAA2KKC0GcAke4AAXAFCoHkDw4xbBFEcJkE4JRSiEFeJYKQVRMgJHODwX4xAgC/AsIIZAeAHDRG0HYI40RKCLEGDUI4jAghwBWIceA+whCpHMFYZYOQxglDMHMBQGxYjVHiAoBIPgfgHGwPsHYJRSB6A0IERQLhCjJHMA4OQoAoCOACLYGYSx8DpBQIMWQdRnDRH+DsE4fB3CeAmM67kAAXBFEIDYDI7wLBtEoEIfYNwjiUGGJQYQMAjCHEAO0C4zxW29CoCgfIxR9AKA6J8BgUAIhDGMIoJ40hqgwCgKETgnBhhqCGI0AIqgZhGDANQDIlBDCRGkCoJISR0g1BSKQOgfAzBRG0DYHARh4DeDAOwANuw8ApCKKkYg/RPhjBsH0J4yg5hPGWN0GwFBHQBFaDoQIURljFAoB4GgzRVzbBECQFQRQoguHGHANwDRdCKy8CgSIGwhhoDYJYYI1giBICSAEgI=")
var_Appearance:Add(4,"gBFLBCJwBAEHhEJAAEhABUYCg6AADACAxRDgMQBQKAAzQFAYbhkGCGAAGMZxRgmFgAQhFcZQSKUOQTDKMIziYBYfgkMIgSbJUgDGAkRRdDSOYDmGQYDiCIoRShOMIjHLUXxtDaIZwhEAoJb+RgAUY/cTzaAEUwHHiTKInaCQShsFYJUJAdRURQ9EwvCIZBpEWwLChENQwWLCNj2TScBwjCyqbale45ViqdoDU5EUiXJJ8ZxnECfYyrGjaMpCeKBUrGYTVRBIMxLLSia5oeJqMrnBpNVrIUgXCAGFwHK6BcauXIIDp6XoWWRbAAWDpVVzNNC3YzkCIceADHKiXxmVz4JLdGZ1QTGID2XaYaxWK4oZjsVSc4KDHbETbHFi9Fo3NaaxGisew+GYc4HlCR5NAAAIIEkQJSGMOgdE4RhYDwJJsAaAYQgmPpolCWgSCiBJzjcEIAkQXIBm8d5UhOQgCDUIBDDJDhgggJgKgKYJIDSVoDk8KBFF4OohEMZgWDsYYDj4GoGmGSB2B6B5iAiBgYDsYRjGSbIJo4RgqDuIpIAoLoLmMCJGDKDJjJiLA7xqUAAgGTwYnYPoPmQCQGEKEJkEkFg9gGY44BoRoSmSSQ2EKEggHgRhShSZRJFYVoVmWCRmFKFAgGOTheheZgJgYYoYmYSYWGaF4lkMMJ0hqZpJjYbobmcCZGHKHJmjmJh0h2Z4JmYcIaE8WZ2H6H5oAoBoCiCaBKBYfdjGoJoKiKaJKDaDojmkChGgmIgpCoVoWiWaJZiSd4mmmSh2h6J5qAqBoiiiaY5iSeIpmqComiqKpqkqNouiuah6hqMIsmsSpWiuGhP1kOoumuSp2j6L5sAsBo54gKwWkaMZsgsJpKjKbJLDaRYxYWRpSjSbIZiSe41m2CxmlqNptksdpejebR5iSfI4m4S4W16boLiaao6m5fJ9jubwLkaco8m8S5WnaPZunuOp4j6b5Lnac4SA0PAGlgP4wEwFwGkGcIMCcCpCnCCxiA8NYAAmMJfkSbhFCcFpFnGDBnBqRpUhuEwTDeZ5lHCfw6HIQxLCaAxygyJwqgGcATE4FA6hWY4tjEAAQBAgIA==")
oDCOCX_Exontrol1:BackColorHeader := 0x4c6c6c6
oDCOCX_Exontrol1:SelBackColor := 0x4f0f0f0
oDCOCX_Exontrol1:SelForeColor := RGB(0,0,1)
oDCOCX_Exontrol1:HotBackColor := 0x4f8f8f8
oDCOCX_Exontrol1:[Background,exCheckBoxState0] := 0x1000000
oDCOCX_Exontrol1:[Background,exCheckBoxState1] := 0x2000000
oDCOCX_Exontrol1:[Background,exCheckBoxState2] := 0x3000000
oDCOCX_Exontrol1:ExpandFolders := true
oDCOCX_Exontrol1:HasCheckBox := PartialCheckBox
oDCOCX_Exontrol1:ExploreFromHere := ""
oDCOCX_Exontrol1:Select := "C:"
oDCOCX_Exontrol1:EndUpdate()
|
|
141
|
ImageSize property on 16 (default) (specifies the size of control' icons/images/check-boxes/radio-buttons)
local var_Appearance as IAppearance
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:ImageSize := 16
var_Appearance := oDCOCX_Exontrol1:VisualAppearance
var_Appearance:Add(4,"gBFLBCJwBAEHhEJAAEhABUYCg6AADACAxRDgMQBQKAAzQFAYbhkGCGAAGMZxRgmFgAQhFcZQSKUOQTDKMIziYBYfgkMIgSbJUgDGAkRRdDSOYDmGQYDiCIoRShOMIjHLUXxtDaIZwhEAoJb+RgAUY/cTzaAEUwHHiTKInaCQShsFYJUJAdRURQ9EwvCIZBpEWwLChENQwWLCNj2TScBwjCyqbale45ViqdoDU5EUiXJJ8ZxnECfYyrGjaMpCeKBUrGYTVRBIMxLLSia5oeJqMrnBpNVrIUgXCAGFwHK6BcauXIIDp6XoWWRbAAWDpVVzNNC3YzkCIceADHKiXxmVz4JLdGZ1QTGID2XaYaxWK4oZjsVSc4KDHbETbHFi9Fo3NaaxGisew+GYc4HlCR5NAAAIIEkQJSGMOgdE4RhYDwJJsAaAYQgmPpolCWgSCiBJzjcEIAkQXIBm8d5UhOQgCDUIBDDJDhgggJgKgKYJIDSVoDk8KBFF4OohEMZgWDsYYDj4GoGmGSB2B6B5iAiBgYDsYRjGSbIJo4RgqDuIpIAoLoLmMCJGDKDJjJiLA7xqUAAgGTwYnYPoPmQCQGEKEJkEkFg9gGY44BoRoSmSSQ2EKEggHgRhShSZRJFYVoVmWCRmFKFAgGOTheheZgJgYYoYmYSYWGaF4lkMMJ0hqZpJjYbobmcCZGHKHJmjmJh0h2Z4JmYcIaE8WZ2H6H5oAoBoCiCaBKBYfdjGoJoKiKaJKDaDojmkChGgmIgpCoVoWiWaJZiSd4mmmSh2h6J5qAqBoiiiaY5iSeIpmqComiqKpqkqNouiuah6hqMIsmsSpWiuGhP1kOoumuSp2j6L5sAsBo54gKwWkaMZsgsJpKjKbJLDaRYxYWRpSjSbIZiSe41m2CxmlqNptksdpejebR5iSfI4m4S4W16boLiaao6m5fJ9jubwLkaco8m8S5WnaPZunuOp4j6b5Lnac4SA0PAGlgP4wEwFwGkGcIMCcCpCnCCxiA8NYAAmMJfkSbhFCcFpFnGDBnBqRpUhuEwTDeZ5lHCfw6HIQxLCaAxygyJwqgGcATE4FA6hWY4tjEAAQBAgIA==")
oDCOCX_Exontrol1:BackColorHeader := 0x4c6c6c6
oDCOCX_Exontrol1:SelBackColor := 0x4f0f0f0
oDCOCX_Exontrol1:SelForeColor := RGB(0,0,1)
oDCOCX_Exontrol1:HotBackColor := 0x4f8f8f8
oDCOCX_Exontrol1:ExpandFolders := true
oDCOCX_Exontrol1:HasCheckBox := PartialCheckBox
oDCOCX_Exontrol1:ExploreFromHere := ""
oDCOCX_Exontrol1:Select := "C:"
oDCOCX_Exontrol1:EndUpdate()
|
|
140
|
How can I add a checkbox to each item
METHOD OCX_Exontrol1ViewEndChanging(Operation) CLASS MainDialog
// ViewEndChanging event - Occurs once the user changed the view.
OutputDebugString(String2Psz( AsString(oDCOCX_Exontrol1:[Get,CheckItems]) ))
RETURN NIL
oDCOCX_Exontrol1:HasCheckBox := PartialCheckBox
oDCOCX_Exontrol1:ExploreFromHere := "C:/"
|
|
139
|
How do I get the selected file/files
METHOD OCX_Exontrol1ViewEndChanging(Operation) CLASS MainDialog
// ViewEndChanging event - Occurs once the user changed the view.
OutputDebugString(String2Psz( oDCOCX_Exontrol1:Select ))
RETURN NIL
oDCOCX_Exontrol1:ExploreFromHere := "C:/"
|
|
138
|
Is it possible to change the visual appearance of the position signs when user changes the column's position by drag and drop
local var_Appearance as IAppearance
oDCOCX_Exontrol1:BeginUpdate()
var_Appearance := oDCOCX_Exontrol1:VisualAppearance
var_Appearance:Add(1,"gBFLBCJwBAEHhEJAAEhABZEGACAADACAxRDgMQBQKAAzAJBIYhiG4cYCgMYxXDOCYXABCEYRXBIZQ7BKNIxjSJwFgmEgADKMA4SOKIZhrE4bBhGaQRUgyI43RhHUBzVIUcQvE6TZRHCQYHgkNIhDJIM7TPLkeSVJaTIRoKhJUogApQThTMgVRDEThkGoSa6soSoYTDBKybLrSLKagOT5YUDKUqSdKEZRpEq1YztWbaQoCUoqVRRVIWfbNd4JJa4aDhWpYdpeeY5R7bWLgBYVVABL7LLRsSxpHxPF6RXxaeI3GKsaS8G6ic6nPQMHj7I4NS5pUa6Rh2VYNSa8AAtETRYznOw4bTMXAjNIea5bAYIIR5HIoDzVbQcCQAHL9DBeEMIQEEISgGhMGZQmocgymoYRRCIEQ0G2HYBnEIBig4V4zCQGINnmagCECY43medZ6H2Pw/g+X5fnueh/h+R5+AKABfkMWgGgGYA4AICoCGCE5WA4CphACMgSD2IRIDIBICmEd5YGCBpRjGBgegWIYIgWdgoGIRQsiKCZiAiJZ0gGQI4jUS4LECOAiBmDJflGfg2BSY4Al4OhGkOCJ2DgFJjGGfgqgiH5Ch4RhGkqOQmEOEpkFkHQYhJRYyESAokGKHhIhKIxJEmf4VGUeRGFmF5iBkchPhYJQ5GoYIZg6Ug6GoFYmkmNhuhulRGHKGoImefh0BUZ4JmYeoemeSZ2H6HQmgoBgXDqXwUAQgI=")
var_Appearance:Add(2,"CP:1 0 -36 0 0")
oDCOCX_Exontrol1:[Background,exColumnsPositionSign] := 0x2000000
oDCOCX_Exontrol1:StatusBarVisible := exStatusBarNone
oDCOCX_Exontrol1:Mode := exSingleCascadeMode
oDCOCX_Exontrol1:EndUpdate()
|
|
137
|
How can I specify my favorites folders
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:HeaderVisible := false
oDCOCX_Exontrol1:ExploreFromHere := "::{450d8fba-ad25-11d0-98a8-0800361b1103}|::{018D5C66-4533-4307-9B53-224DE2ED1FE6}|::{20D04FE0-3AEA-1069-A2D8-08002B30309D}|::{F02C1A0D-BE21-4350-88B0-7367FC96EF3C}"
oDCOCX_Exontrol1:Select := "C:\Windows"
oDCOCX_Exontrol1:EndUpdate()
|
|
136
|
How can I add the "My Documents"
oDCOCX_Exontrol1:ExploreFromHere := "C:\|::{450d8fba-ad25-11d0-98a8-0800361b1103}>"
|
|
135
|
How can I add the Printers and Faxes
oDCOCX_Exontrol1:ColumnsVisible := exFileColumnName
oDCOCX_Exontrol1:ExploreFromHere := "C:\|::{2227a280-3aea-1069-a2de-08002b30309d}>"
|
|
134
|
How can I add the "Recycle Bin" folder
oDCOCX_Exontrol1:ExploreFromHere := "C:\|::{645FF040-5081-101B-9F08-00AA002F954E}>"
|
|
133
|
How can I add the "Documents" folder
oDCOCX_Exontrol1:ExploreFromHere := "C:\|::{450D8FBA-AD25-11D0-98A8-0800361B1103}>"
|
|
132
|
How can I add the Network folder
oDCOCX_Exontrol1:ExploreFromHere := "C:\|::{F02C1A0D-BE21-4350-88B0-7367FC96EF3C}>"
|
|
131
|
How can I add the My Computer
oDCOCX_Exontrol1:ExploreFromHere := "C:\|::{20D04FE0-3AEA-1069-A2D8-08002B30309D}>"
|
|
130
|
How can I add the My Network Places folder
oDCOCX_Exontrol1:ExploreFromHere := "C:\|::{208D2C60-3AEA-1069-A2D7-08002B30309D}>"
|
|
129
|
How can I add the Desktop folder
oDCOCX_Exontrol1:ExploreFromHere := "C:\|::{00021400-0000-0000-C000-000000000046}>"
|
|
128
|
How can I create my own favorites folders
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:ExploreFromHere := "::{450d8fba-ad25-11d0-98a8-0800361b1103}|C:\Temp><b>My Projects</b>|"
oDCOCX_Exontrol1:Select := "C:\Temp"
oDCOCX_Exontrol1:ColumnsVisible := exFileColumnName
oDCOCX_Exontrol1:HeaderVisible := false
oDCOCX_Exontrol1:FitCascadeColumns := 3
oDCOCX_Exontrol1:EndUpdate()
|
|
127
|
How can change the explore from folder (sample 2)
oDCOCX_Exontrol1:ExploreFromHere := "C:\>"
oDCOCX_Exontrol1:Layout := "Expand0 = " + CHR(34) + "C:\" + CHR(34) + ";SelectMode0 = 0"
|
|
126
|
How can change the explore from folder (sample 1)
oDCOCX_Exontrol1:ExploreFromHere := "C:\"
|
|
125
|
Is it possible to include more system drives as root folders (sample 2)
oDCOCX_Exontrol1:ExploreFromHere := "C:\>SYSTEM <off 4><b>1|D:\>SYSTEM <off 4><b>2|E:\>SYSTEM <off 4><b>3"
|
|
124
|
Is it possible to include more system drives as root folders (sample 1)
oDCOCX_Exontrol1:ExploreFromHere := "C:\|D:\|E:\"
|
|
123
|
How can I include a system drive as a root folder, instead lists its content
oDCOCX_Exontrol1:ExploreFromHere := "C:\>"
oDCOCX_Exontrol1:Layout := "Expand0 = " + CHR(34) + "C:\" + CHR(34) + ";SelectMode0 = 0"
|
|
122
|
How can I add the Desktop as a root folder (sample 3, rename, new display name, root)
oDCOCX_Exontrol1:ExploreFromHere := "::{20D04FE0-3AEA-1069-A2D8-08002B30309D}><sha ;;0>This <b>PC</b>"
|
|
121
|
How can I add the Desktop as a root folder (sample 2)
oDCOCX_Exontrol1:ExploreFromHere := "::{20D04FE0-3AEA-1069-A2D8-08002B30309D}>"
|
|
120
|
How can I add the Desktop as a root folder (sample 1)
oDCOCX_Exontrol1:ExploreFromHere := ">"
oDCOCX_Exontrol1:Select := "::{20D04FE0-3AEA-1069-A2D8-08002B30309D}"
oDCOCX_Exontrol1:SelectMode := exSelectModeList
|
|
119
|
How can I browse the "Public" folder
oDCOCX_Exontrol1:ExploreFromHere := "::{4336a54d-038b-4685-ab02-99bb52d3fb8b}>"
|
|
118
|
How can I browse the "Libraries" folder
oDCOCX_Exontrol1:ExploreFromHere := "::{031E4825-7B94-4dc3-B131-E946B44C8DD5}>"
|
|
117
|
How can I browse the "HomeGroup" folder
oDCOCX_Exontrol1:ExploreFromHere := "::{B4FB3F98-C1EA-428d-A78A-D1F5659CBA93}>"
|
|
116
|
How can I browse the "Games" folder
oDCOCX_Exontrol1:ExploreFromHere := "::{ED228FDF-9EA8-4870-83b1-96b02CFE0D52}>"
|
|
115
|
How can I browse the "OneDrive" folder
oDCOCX_Exontrol1:ExploreFromHere := "::{018D5C66-4533-4307-9B53-224DE2ED1FE6}>"
|
|
114
|
How can I browse the "Recycle Bin" folder
oDCOCX_Exontrol1:ExploreFromHere := "::{645FF040-5081-101B-9F08-00AA002F954E}"
|
|
113
|
How can I browse the "Documents" folder
oDCOCX_Exontrol1:ExploreFromHere := "::{450D8FBA-AD25-11D0-98A8-0800361B1103}"
|
|
112
|
How can I browse the Network folder
oDCOCX_Exontrol1:ExploreFromHere := "::{F02C1A0D-BE21-4350-88B0-7367FC96EF3C}"
|
|
111
|
How can I browse the My Computer
oDCOCX_Exontrol1:ExploreFromHere := "::{20D04FE0-3AEA-1069-A2D8-08002B30309D}"
|
|
110
|
How can I browse the My Network Places folder
oDCOCX_Exontrol1:ExploreFromHere := "::{208D2C60-3AEA-1069-A2D7-08002B30309D}"
|
|
109
|
How can I browse the Desktop folder
oDCOCX_Exontrol1:ExploreFromHere := "::{00021400-0000-0000-C000-000000000046}"
|
|
108
|
How can I select multiple files
oDCOCX_Exontrol1:Select := "C:\\r\nD:\\r\nE:\"
|
|
107
|
How can I select a single file
oDCOCX_Exontrol1:Select := "C:\"
|
|
106
|
Can I change the folder being explored
oDCOCX_Exontrol1:ExploreFromHere := "c:\Program Files"
|
|
105
|
How can I turn on the Thumbnail mode
oDCOCX_Exontrol1:Select := "C:\"
oDCOCX_Exontrol1:SelectMode := exSelectModeThumbnail
|
|
104
|
How to turn off the Auto-Update feature
oDCOCX_Exontrol1:AutoUpdate := false
|
|
103
|
I can not make a column larger, by resizing its header, as it splits the control's header only. What can I do
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:ColumnAutoResize := false
oDCOCX_Exontrol1:StatusBarVisible := exStatusBarNone
oDCOCX_Exontrol1:Mode := exSingleCascadeMode
oDCOCX_Exontrol1:Select := "c:\Windows"
oDCOCX_Exontrol1:EndUpdate()
|
|
102
|
How can hide the column's header
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:HeaderVisible := false
oDCOCX_Exontrol1:ColumnsVisible := exFileColumnName
oDCOCX_Exontrol1:Select := "C:\Windows"
oDCOCX_Exontrol1:FitCascadeColumns := 3
oDCOCX_Exontrol1:EndUpdate()
|
|
101
|
How can hide the Modified, Size and Type columns
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:ColumnsVisible := exFileColumnName
oDCOCX_Exontrol1:Select := "C:\Windows"
oDCOCX_Exontrol1:FitCascadeColumns := 3
oDCOCX_Exontrol1:EndUpdate()
|
|
100
|
How can I hide the +/- buttons, so I can show just plain lists, no children
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:ColumnsVisible := exFileColumnName
oDCOCX_Exontrol1:ExpandFolders := false
oDCOCX_Exontrol1:HeaderVisible := false
oDCOCX_Exontrol1:Select := "C:\Windows"
oDCOCX_Exontrol1:FitCascadeColumns := 3
oDCOCX_Exontrol1:EndUpdate()
|
|
99
|
A small rectangle is shown around the item that has the focus. Can I hide that
oDCOCX_Exontrol1:ShowFocusRect := false
|
|
98
|
How can I get ride of the hot selection color
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:HotBackColor := -1
oDCOCX_Exontrol1:HotForeColor := -1
oDCOCX_Exontrol1:EndUpdate()
|
|
97
|
How can I change the control's selection color (sample 3)
local var_Appearance as IAppearance
oDCOCX_Exontrol1:BeginUpdate()
var_Appearance := oDCOCX_Exontrol1:VisualAppearance
var_Appearance:Add(2,"XP:Button 1 2")
var_Appearance:Add(1,"CP:2 -1 0 1 0")
var_Appearance:Add(4,"XP:Button 1 1")
var_Appearance:Add(3,"CP:4 -1 0 1 0")
oDCOCX_Exontrol1:FitCascadeColumns := 2
oDCOCX_Exontrol1:Select := "c:\"
oDCOCX_Exontrol1:FullRowSelect := true
oDCOCX_Exontrol1:ExpandFolders := false
oDCOCX_Exontrol1:SelBackColor := 0x1000000
oDCOCX_Exontrol1:SelForeColor := RGB(0,0,0)
oDCOCX_Exontrol1:HotBackColor := 0x3000000
oDCOCX_Exontrol1:HotForeColor := RGB(0,0,0)
oDCOCX_Exontrol1:EndUpdate()
|
|
96
|
How can I change the control's selection color (sample 2)
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:VisualAppearance:Add(1,"gBFLBCJwBAEHhEJAAEhABNACg6AADACAxRDgMQBQKAAzAJBIYhiG4cYCgMZhXDOCYXABCEYRXBIZQ7BKNIxjSJwFiCCQwSDKEjyCKcGRHF6MI6gOYpCgOIYjRJNIASVAceAAGaUZrjSgobjmOYhAJCKJUWAFFoVDCgZThGgJHomMIhBDHASQTQ8EytJqmKajCaRSDUJZkWZOIyjBd6a5tVbXEaVTAccxhOKeahvGo5Fred40TRINCWHI1d4NH69JbwMILSgME6FABXdhWFC+Ex9Kiea7kOqIJwyA5bY5kGRWDRkLzROAALJ1Cz7KqydpDYyAGbABagAYfPy8JzxHKNarfA5GZzuG4zdi8U41WCBdpnHQNS4KL6ndBbWrdFoiC8X4QnAOQ8B4dwiHQCIEhQDQmDOIZUmQZYDkIVRSmIEQ3lUGwbEIRQQh4ZpeEQGIMB0JZdkoc4XnqVB/k0CAGAKAJgEgFgGgGYBXnyVA5mCRQ4maA5NjgRJvgSTwoFYFoFmGCBmBqBphhgTJvDcIkFlWCJhmOLgmDoYoIiYKoKmKSI2C6CwiGOLJwgyTJ4lYAg8mOCI+DqDpjkiMJ0g+TJZAYN4OGOWQWEaCpjnOUhBDMZAzk4MYTmUCRGFKFJlEkRhJhKZJTjIWoWmWSR2F6F5mAmBhbhWZAoASdYZk6WYmGqGpmkmNhuhulQonaHJlgmGhnDuJ4JmYeoemeSZ2H6H5nhmTJ2h0TQKAoHohmiCgmgqIpokoJJ3iOaBKDydw8GkShWhaJZpgoZoaiaaRTmKHokGieJiiKKJqEqFomimaoKg6Hg+CgSouimK5rAqRg4D4axKjaHoSGuCpmjqLprkqdo6i0D4aBKQIgiwSwWkaMZsgsJpGD6LJLAqNIyi0CxGlKHJskOahLgKJhzlaK4gi2GxOl6MZtjmTJOjiX5ThSWo5mMM5CkCOpukuNpujubwLiYEY8k2NQ4mqPZNhuZgIj6b5LnaeQ2GXsJrGuQAEAQgI")
oDCOCX_Exontrol1:FitCascadeColumns := 2
oDCOCX_Exontrol1:Select := "c:\"
oDCOCX_Exontrol1:FullRowSelect := true
oDCOCX_Exontrol1:SelBackColor := 0x1e0e0e0
oDCOCX_Exontrol1:SelForeColor := RGB(0,0,0)
oDCOCX_Exontrol1:EndUpdate()
|
|
95
|
How can I change the control's selection color (sample 1)
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:FitCascadeColumns := 2
oDCOCX_Exontrol1:Select := "c:\"
oDCOCX_Exontrol1:FullRowSelect := true
oDCOCX_Exontrol1:SelBackColor := RGB(0,0,0)
oDCOCX_Exontrol1:SelForeColor := RGB(255,255,255)
oDCOCX_Exontrol1:EndUpdate()
|
|
94
|
How can I select the entire item, rather that name only
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:Select := "c:\|d:\|e:\"
oDCOCX_Exontrol1:SelectMode := exSelectModeList
oDCOCX_Exontrol1:FullRowSelect := true
oDCOCX_Exontrol1:EndUpdate()
|
|
93
|
Is it possible to show the selection with a different color, when the control loses the focus
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:HideSelection := false
oDCOCX_Exontrol1:[Background,0xa6 | ] := RGB(224,224,224)
oDCOCX_Exontrol1:[Background,0xa7 | ] := RGB(64,64,64)
oDCOCX_Exontrol1:Select := "c:\|d:\|e:\"
oDCOCX_Exontrol1:SelectMode := exSelectModeList
oDCOCX_Exontrol1:EndUpdate()
|
|
92
|
The selection is still shown when the control loses the focus. Is it possible to hide it
oDCOCX_Exontrol1:HideSelection := true
|
|
91
|
How can I enable single-selection
oDCOCX_Exontrol1:SingleSel := true
|
|
90
|
Predefined Keywords of ShowContextMenu property
METHOD OCX_Exontrol1ViewEndChanging(Operation) CLASS MainDialog
// ViewEndChanging event - Occurs once the user changed the view.
oDCOCX_Exontrol1:ExecuteContextMenu := 0
RETURN NIL
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:[ScrollPartVisible,exVScroll,exExtentThumbPart] := true
oDCOCX_Exontrol1:[ScrollPartVisible,exHScroll,exExtentThumbPart] := true
oDCOCX_Exontrol1:[ScrollPartVisible,exScroll,exExtentThumbPart] := true
oDCOCX_Exontrol1:ScrollWidth := 4
oDCOCX_Exontrol1:[Background,exVSBack] := RGB(240,240,240)
oDCOCX_Exontrol1:[Background,exVSThumb] := RGB(128,128,128)
oDCOCX_Exontrol1:ScrollHeight := 4
oDCOCX_Exontrol1:[Background,exHSBack] := oDCOCX_Exontrol1:[Background,exVSBack]
oDCOCX_Exontrol1:[Background,exHSThumb] := oDCOCX_Exontrol1:[Background,exVSThumb]
oDCOCX_Exontrol1:[Background,exScrollSizeGrip] := oDCOCX_Exontrol1:[Background,exVSBack]
oDCOCX_Exontrol1:EndUpdate()
oDCOCX_Exontrol1:AllowSplitView := exAllowTwoSplitView
oDCOCX_Exontrol1:FitCascadeColumns := 3
oDCOCX_Exontrol1:ShowContextMenu := "`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"
oDCOCX_Exontrol1:SplitViewHeight := "256,256"
oDCOCX_Exontrol1:Layout := "Select1=" + CHR(34) + "C:\" + CHR(34) + ""
oDCOCX_Exontrol1:Select := "C:\Windows"
|
|
89
|
How can I display the identifiers of the control's context menu (debug)
METHOD OCX_Exontrol1ViewEndChanging(Operation) CLASS MainDialog
// ViewEndChanging event - Occurs once the user changed the view.
OutputDebugString(String2Psz( "Operation" ))
OutputDebugString(String2Psz( AsString(Operation) ))
OutputDebugString(String2Psz( "ExecuteContextMenu" ))
OutputDebugString(String2Psz( AsString(oDCOCX_Exontrol1:ExecuteContextMenu) ))
RETURN NIL
oDCOCX_Exontrol1:ColumnsVisible := exFileColumnName
oDCOCX_Exontrol1:Mode := exDisableThumbnails | exAutoFitOnResizeClient | exSplitFixCascadeMode
oDCOCX_Exontrol1:SingleSel := false
oDCOCX_Exontrol1:ShowContextMenu := "`[debug]` + menu"
|
|
88
|
How can I copy/execute command a file/folder (selection)
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:SingleSel := false
oDCOCX_Exontrol1:ExploreFromHere := "c:\"
oDCOCX_Exontrol1:ExpandFolders := true
oDCOCX_Exontrol1:Select := "c:\Temp"
oDCOCX_Exontrol1:ExecuteContextCommand("<selection>",true,"Copy")
oDCOCX_Exontrol1:EndUpdate()
|
|
87
|
How can I copy a file/folder (absolute name)
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:ExploreFromHere := "c:\"
oDCOCX_Exontrol1:ExecuteContextCommand("c:\Temp",true,"Copy")
oDCOCX_Exontrol1:EndUpdate()
|
|
86
|
How can I copy a file/folder (relative name)
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:ExploreFromHere := "c:\"
oDCOCX_Exontrol1:ExecuteContextCommand("Temp",true,"Copy")
oDCOCX_Exontrol1:EndUpdate()
|
|
85
|
ShowContextMenu usage
METHOD OCX_Exontrol1ViewEndChanging(Operation) CLASS MainDialog
// ViewEndChanging event - Occurs once the user changed the view.
OutputDebugString(String2Psz( "Operation" ))
OutputDebugString(String2Psz( AsString(Operation) ))
OutputDebugString(String2Psz( "ExecuteContextMenu" ))
OutputDebugString(String2Psz( AsString(oDCOCX_Exontrol1:ExecuteContextMenu) ))
RETURN NIL
oDCOCX_Exontrol1:ColumnsVisible := exFileColumnName
oDCOCX_Exontrol1:Mode := exDisableThumbnails | exAutoFitOnResizeClient | exSplitFixCascadeMode
oDCOCX_Exontrol1:SingleSel := false
oDCOCX_Exontrol1:FullRowSelect := true
oDCOCX_Exontrol1:ShowContextMenu := "filecount = 0 ? `Exit[id=1000]` : ( ( ( filecount = 1 ) ? `" + CHR(34) + "` + filename + `" + CHR(34) + "` : `multiple selection` ) + `[dis],[sep],` + menu)"
|
|
84
|
ShowContextMenu usage
METHOD OCX_Exontrol1ViewEndChanging(Operation) CLASS MainDialog
// ViewEndChanging event - Occurs once the user changed the view.
OutputDebugString(String2Psz( "Operation" ))
OutputDebugString(String2Psz( AsString(Operation) ))
OutputDebugString(String2Psz( "ExecuteContextMenu" ))
OutputDebugString(String2Psz( AsString(oDCOCX_Exontrol1:ExecuteContextMenu) ))
RETURN NIL
oDCOCX_Exontrol1:ColumnsVisible := exFileColumnName
oDCOCX_Exontrol1:Mode := exDisableThumbnails | exAutoFitOnResizeClient | exSplitFixCascadeMode
oDCOCX_Exontrol1:SingleSel := false
oDCOCX_Exontrol1:FullRowSelect := true
oDCOCX_Exontrol1:ShowContextMenu := "filecount > 1 ? `multiple selection[dis]` : menu"
|
|
83
|
ShowContextMenu usage
METHOD OCX_Exontrol1ViewEndChanging(Operation) CLASS MainDialog
// ViewEndChanging event - Occurs once the user changed the view.
OutputDebugString(String2Psz( "Operation" ))
OutputDebugString(String2Psz( AsString(Operation) ))
OutputDebugString(String2Psz( "ExecuteContextMenu" ))
OutputDebugString(String2Psz( AsString(oDCOCX_Exontrol1:ExecuteContextMenu) ))
RETURN NIL
oDCOCX_Exontrol1:ColumnsVisible := exFileColumnName
oDCOCX_Exontrol1:Mode := exDisableThumbnails | exAutoFitOnResizeClient | exSplitFixCascadeMode
oDCOCX_Exontrol1:SingleSel := false
oDCOCX_Exontrol1:FullRowSelect := true
oDCOCX_Exontrol1:ShowContextMenu := "filecount > 1 ? `multiple selection[dis]` : menu"
|
|
82
|
ShowContextMenu usage
METHOD OCX_Exontrol1ViewEndChanging(Operation) CLASS MainDialog
// ViewEndChanging event - Occurs once the user changed the view.
OutputDebugString(String2Psz( "Operation" ))
OutputDebugString(String2Psz( AsString(Operation) ))
OutputDebugString(String2Psz( "ExecuteContextMenu" ))
OutputDebugString(String2Psz( AsString(oDCOCX_Exontrol1:ExecuteContextMenu) ))
RETURN NIL
oDCOCX_Exontrol1:ExploreFromHere := "c:\"
oDCOCX_Exontrol1:ColumnsVisible := exFileColumnName
oDCOCX_Exontrol1:Mode := exDisableThumbnails | exAutoFitOnResizeClient | exSplitFixCascadeMode
oDCOCX_Exontrol1:SingleSel := false
oDCOCX_Exontrol1:FullRowSelect := true
oDCOCX_Exontrol1:ExpandFolders := true
oDCOCX_Exontrol1:ShowContextMenu := "menu replace `Delete` with `Delete[dis]`"
|
|
81
|
ShowContextMenu usage
METHOD OCX_Exontrol1ViewEndChanging(Operation) CLASS MainDialog
// ViewEndChanging event - Occurs once the user changed the view.
OutputDebugString(String2Psz( "Operation" ))
OutputDebugString(String2Psz( AsString(Operation) ))
OutputDebugString(String2Psz( "ExecuteContextMenu" ))
OutputDebugString(String2Psz( AsString(oDCOCX_Exontrol1:ExecuteContextMenu) ))
RETURN NIL
oDCOCX_Exontrol1:ExploreFromHere := "c:\"
oDCOCX_Exontrol1:ColumnsVisible := exFileColumnName
oDCOCX_Exontrol1:Mode := exDisableThumbnails | exAutoFitOnResizeClient | exSplitFixCascadeMode
oDCOCX_Exontrol1:SingleSel := false
oDCOCX_Exontrol1:FullRowSelect := true
oDCOCX_Exontrol1:ExpandFolders := true
oDCOCX_Exontrol1:ShowContextMenu := "menu replace `&Delete` with ``"
|
|
80
|
ShowContextMenu usage
METHOD OCX_Exontrol1ViewEndChanging(Operation) CLASS MainDialog
// ViewEndChanging event - Occurs once the user changed the view.
OutputDebugString(String2Psz( "Operation" ))
OutputDebugString(String2Psz( AsString(Operation) ))
OutputDebugString(String2Psz( "ExecuteContextMenu" ))
OutputDebugString(String2Psz( AsString(oDCOCX_Exontrol1:ExecuteContextMenu) ))
RETURN NIL
oDCOCX_Exontrol1:ColumnsVisible := exFileColumnName
oDCOCX_Exontrol1:Mode := exDisableThumbnails | exAutoFitOnResizeClient | exSplitFixCascadeMode
oDCOCX_Exontrol1:SingleSel := false
oDCOCX_Exontrol1:FullRowSelect := true
oDCOCX_Exontrol1:ShowContextMenu := "`Popup(Item 1[id=1001],Item 2[id=1002],Item 3[id=1003]),` + menu + `,Exit[id=1000]`"
|
|
79
|
ShowContextMenu usage
METHOD OCX_Exontrol1ViewEndChanging(Operation) CLASS MainDialog
// ViewEndChanging event - Occurs once the user changed the view.
OutputDebugString(String2Psz( "Operation" ))
OutputDebugString(String2Psz( AsString(Operation) ))
OutputDebugString(String2Psz( "ExecuteContextMenu" ))
OutputDebugString(String2Psz( AsString(oDCOCX_Exontrol1:ExecuteContextMenu) ))
RETURN NIL
oDCOCX_Exontrol1:ColumnsVisible := exFileColumnName
oDCOCX_Exontrol1:Mode := exDisableThumbnails | exAutoFitOnResizeClient | exSplitFixCascadeMode
oDCOCX_Exontrol1:SingleSel := false
oDCOCX_Exontrol1:FullRowSelect := true
oDCOCX_Exontrol1:ShowContextMenu := "filecount = 0 ? `Popup(Item 1[id=1001],Item 2[id=1002],Item 3[id=1003]),[sep],Exit[def][id=1000]` : menu"
|
|
78
|
ShowContextMenu usage
METHOD OCX_Exontrol1ViewEndChanging(Operation) CLASS MainDialog
// ViewEndChanging event - Occurs once the user changed the view.
OutputDebugString(String2Psz( "Operation" ))
OutputDebugString(String2Psz( AsString(Operation) ))
OutputDebugString(String2Psz( "ExecuteContextMenu" ))
OutputDebugString(String2Psz( AsString(oDCOCX_Exontrol1:ExecuteContextMenu) ))
RETURN NIL
oDCOCX_Exontrol1:ColumnsVisible := exFileColumnName
oDCOCX_Exontrol1:Mode := exDisableThumbnails | exAutoFitOnResizeClient | exSplitFixCascadeMode
oDCOCX_Exontrol1:FullRowSelect := true
oDCOCX_Exontrol1:ShowContextMenu := "Popup(Item 1[id=1001],Item 2[id=1002],Item 3[id=1003]),[sep],Exit[def][id=1000]"
|
|
77
|
ShowContextMenu usage
METHOD OCX_Exontrol1ViewEndChanging(Operation) CLASS MainDialog
// ViewEndChanging event - Occurs once the user changed the view.
OutputDebugString(String2Psz( "Operation" ))
OutputDebugString(String2Psz( AsString(Operation) ))
OutputDebugString(String2Psz( "ExecuteContextMenu" ))
OutputDebugString(String2Psz( AsString(oDCOCX_Exontrol1:ExecuteContextMenu) ))
OutputDebugString(String2Psz( "no context menu is generated, so nothing is displayed" ))
RETURN NIL
oDCOCX_Exontrol1:ColumnsVisible := exFileColumnName
oDCOCX_Exontrol1:Mode := exDisableThumbnails | exAutoFitOnResizeClient | exSplitFixCascadeMode
oDCOCX_Exontrol1:FullRowSelect := true
oDCOCX_Exontrol1:ShowContextMenu := "``"
|
|
76
|
How can I add new items to the default file's context menu
METHOD OCX_Exontrol1ViewEndChanging(Operation) CLASS MainDialog
// ViewEndChanging event - Occurs once the user changed the view.
OutputDebugString(String2Psz( "Operation" ))
OutputDebugString(String2Psz( AsString(Operation) ))
OutputDebugString(String2Psz( "ContextMenu" ))
OutputDebugString(String2Psz( oDCOCX_Exontrol1:ShowContextMenu ))
oDCOCX_Exontrol1:ShowContextMenu := AsString(oDCOCX_Exontrol1:FormatABC("B = 20 ? ( `My First Popup[def](A,B,C),[sep],`+ value + `,[sep],My Last Popup[def](A,B,C)` ) : value",oDCOCX_Exontrol1:ShowContextMenu,Operation,nil))
OutputDebugString(String2Psz( "Execute" ))
OutputDebugString(String2Psz( AsString(oDCOCX_Exontrol1:ExecuteContextMenu) ))
RETURN NIL
oDCOCX_Exontrol1:ColumnsVisible := exFileColumnName
oDCOCX_Exontrol1:Mode := exDisableThumbnails | exAutoFitOnResizeClient | exSplitFixCascadeMode
|
|
75
|
Is it possible to display the item's identifiers in the file's context menu
METHOD OCX_Exontrol1ViewEndChanging(Operation) CLASS MainDialog
// ViewEndChanging event - Occurs once the user changed the view.
OutputDebugString(String2Psz( "Operation" ))
OutputDebugString(String2Psz( AsString(Operation) ))
OutputDebugString(String2Psz( "ContextMenu" ))
OutputDebugString(String2Psz( oDCOCX_Exontrol1:ShowContextMenu ))
oDCOCX_Exontrol1:ShowContextMenu := AsString(oDCOCX_Exontrol1:FormatABC("B = 20 ? (`[debug]`+ value) : value ",oDCOCX_Exontrol1:ShowContextMenu,Operation,nil))
RETURN NIL
oDCOCX_Exontrol1:ColumnsVisible := exFileColumnName
oDCOCX_Exontrol1:Mode := exDisableThumbnails | exAutoFitOnResizeClient | exSplitFixCascadeMode
|
|
74
|
How can I remove the Delete command from the file's context menu
METHOD OCX_Exontrol1ViewEndChanging(Operation) CLASS MainDialog
// ViewEndChanging event - Occurs once the user changed the view.
OutputDebugString(String2Psz( "Operation" ))
OutputDebugString(String2Psz( AsString(Operation) ))
OutputDebugString(String2Psz( "ContextMenu" ))
OutputDebugString(String2Psz( oDCOCX_Exontrol1:ShowContextMenu ))
oDCOCX_Exontrol1:ShowContextMenu := AsString(oDCOCX_Exontrol1:FormatABC("value replace `&Delete` with ``",oDCOCX_Exontrol1:ShowContextMenu,nil,nil))
RETURN NIL
oDCOCX_Exontrol1:ColumnsVisible := exFileColumnName
oDCOCX_Exontrol1:Mode := exDisableThumbnails | exAutoFitOnResizeClient | exSplitFixCascadeMode
|
|
73
|
How can I provide my own context menu
METHOD OCX_Exontrol1ViewEndChanging(Operation) CLASS MainDialog
// ViewEndChanging event - Occurs once the user changed the view.
OutputDebugString(String2Psz( "Operation" ))
OutputDebugString(String2Psz( AsString(Operation) ))
OutputDebugString(String2Psz( "ContextMenu" ))
OutputDebugString(String2Psz( oDCOCX_Exontrol1:ShowContextMenu ))
oDCOCX_Exontrol1:ShowContextMenu := "Item 1[id=1][def],Item 2[id=2],[sep][id=3],Popup[id=4](Item 3[id=5],Item 4[id=6])"
OutputDebugString(String2Psz( "ExecuteContextMenu" ))
OutputDebugString(String2Psz( AsString(oDCOCX_Exontrol1:ExecuteContextMenu) ))
RETURN NIL
oDCOCX_Exontrol1:ColumnsVisible := exFileColumnName
oDCOCX_Exontrol1:Mode := exDisableThumbnails | exAutoFitOnResizeClient | exSplitFixCascadeMode
|
|
72
|
Is it possible to prevent executing a specific command from the object's context menu
METHOD OCX_Exontrol1ViewEndChanging(Operation) CLASS MainDialog
// ViewEndChanging event - Occurs once the user changed the view.
OutputDebugString(String2Psz( "Operation" ))
OutputDebugString(String2Psz( AsString(Operation) ))
OutputDebugString(String2Psz( "ContextMenu" ))
OutputDebugString(String2Psz( oDCOCX_Exontrol1:ShowContextMenu ))
OutputDebugString(String2Psz( "ExecuteContextMenu" ))
OutputDebugString(String2Psz( AsString(oDCOCX_Exontrol1:ExecuteContextMenu) ))
oDCOCX_Exontrol1:ExecuteContextMenu := 0
RETURN NIL
oDCOCX_Exontrol1:ColumnsVisible := exFileColumnName
oDCOCX_Exontrol1:Mode := exDisableThumbnails | exAutoFitOnResizeClient | exSplitFixCascadeMode
|
|
71
|
How can I disable the Delete command from the object's context menu
METHOD OCX_Exontrol1ViewEndChanging(Operation) CLASS MainDialog
// ViewEndChanging event - Occurs once the user changed the view.
OutputDebugString(String2Psz( "Operation" ))
OutputDebugString(String2Psz( AsString(Operation) ))
OutputDebugString(String2Psz( "ContextMenu" ))
OutputDebugString(String2Psz( oDCOCX_Exontrol1:ShowContextMenu ))
oDCOCX_Exontrol1:ShowContextMenu := AsString(oDCOCX_Exontrol1:FormatABC("value replace `&Delete` with `&Delete[dis]`",oDCOCX_Exontrol1:ShowContextMenu,nil,nil))
RETURN NIL
oDCOCX_Exontrol1:ColumnsVisible := exFileColumnName
oDCOCX_Exontrol1:Mode := exDisableThumbnails | exAutoFitOnResizeClient | exSplitFixCascadeMode
|
|
70
|
How can I turn off, disable the control's context menu
oDCOCX_Exontrol1:AllowContextMenu := false
oDCOCX_Exontrol1:ColumnsVisible := exFileColumnName
|
|
69
|
How can I decode the Layout property
local var_Print as IExPrint
local sLayout as USUAL
oDCOCX_Exontrol1:AllowSplitView := exAllowTwoSplitView
oDCOCX_Exontrol1:Select := "C:\"
oDCOCX_Exontrol1:SplitViewHeight := "256,256"
sLayout := oDCOCX_Exontrol1:Layout
OutputDebugString(String2Psz( "Encoded:" ))
OutputDebugString(String2Psz( AsString(sLayout) ))
// Generate Source for 'ExPrint 1.0 Control Library(ExPrint.dll)' server from Tools\Automation Server...
var_Print := IExPrint{"Exontrol.Print"}
OutputDebugString(String2Psz( "Decoded: " ))
OutputDebugString(String2Psz( var_Print:[Decode64TextW,AsString(sLayout)] ))
|
|
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
local sLayout as USUAL
sLayout := oDCOCX_Exontrol1:Layout
OutputDebugString(String2Psz( "Save" ))
OutputDebugString(String2Psz( AsString(sLayout) ))
oDCOCX_Exontrol1:Select := "C:\"
oDCOCX_Exontrol1:Layout := AsString(sLayout)
|
|
67
|
Turn on the backcolor alternate feature
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:BackColorAlternate := RGB(240,240,240)
oDCOCX_Exontrol1:ForeColorAlternate := RGB(40,40,40)
oDCOCX_Exontrol1:Select := "C:\Windows\System32"
oDCOCX_Exontrol1:EndUpdate()
|
|
66
|
Display HTML in the control's status bar
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:StatusBarVisible := exStatusBarAnchorTop
oDCOCX_Exontrol1:Select := "C:\Windows\System32"
oDCOCX_Exontrol1:FitCascadeColumns := 3
oDCOCX_Exontrol1:StatusBarLabel := "Current: <b><%0%>"
oDCOCX_Exontrol1:EndUpdate()
|
|
65
|
Display relative name into the control's status bar
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:ExploreFromHere := "C:\"
oDCOCX_Exontrol1:StatusBarVisible := exStatusBarAnchorTop
oDCOCX_Exontrol1:Select := "C:\Windows"
oDCOCX_Exontrol1:FitCascadeColumns := 3
oDCOCX_Exontrol1:StatusBarLabel := "<%3%>"
oDCOCX_Exontrol1:EndUpdate()
|
|
64
|
Display parsed name into the control's status bar
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:StatusBarVisible := exStatusBarAnchorTop
oDCOCX_Exontrol1:Select := "C:\Windows"
oDCOCX_Exontrol1:FitCascadeColumns := 3
oDCOCX_Exontrol1:StatusBarLabel := "<%2%> >"
oDCOCX_Exontrol1:EndUpdate()
|
|
63
|
Display name into the control's status bar (default)
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:StatusBarVisible := exStatusBarAnchorTop
oDCOCX_Exontrol1:Select := "C:\Windows"
oDCOCX_Exontrol1:FitCascadeColumns := 3
oDCOCX_Exontrol1:StatusBarLabel := "<%1%> >"
oDCOCX_Exontrol1:EndUpdate()
|
|
62
|
Display full path into the control's status bar
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:StatusBarVisible := exStatusBarAnchorTop
oDCOCX_Exontrol1:Select := "C:\Windows"
oDCOCX_Exontrol1:FitCascadeColumns := 3
oDCOCX_Exontrol1:StatusBarLabel := "<%0%>"
oDCOCX_Exontrol1:EndUpdate()
|
|
61
|
Removes the extra > shown at the end of the status label
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:StatusBarVisible := exStatusBarAnchorTop
oDCOCX_Exontrol1:Select := "C:\Windows"
oDCOCX_Exontrol1:FitCascadeColumns := 3
oDCOCX_Exontrol1:[Background,exStatusPanelBackColor] := RGB(0,0,1)
oDCOCX_Exontrol1:[Background,exStatusForeColor] := RGB(255,255,255)
oDCOCX_Exontrol1:StatusBarLabel := "<%1%>"
oDCOCX_Exontrol1:EndUpdate()
|
|
60
|
Just wondering if I can show the status on the bottom side of the control
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:Select := "C:\Windows"
oDCOCX_Exontrol1:FitCascadeColumns := 3
oDCOCX_Exontrol1:StatusBarVisible := exStatusBarAnchorBottom
oDCOCX_Exontrol1:EndUpdate()
|
|
59
|
How can I hide the control's status
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:StatusBarVisible := exStatusBarNone
oDCOCX_Exontrol1:EndUpdate()
|
|
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
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:Mode := exSplitFixCascadeMode
oDCOCX_Exontrol1:FitCascadeColumns := 3
oDCOCX_Exontrol1:AllowSplitView := exAllowTwoSplitView
oDCOCX_Exontrol1:ColumnsVisible := exFileColumnName
oDCOCX_Exontrol1:HeaderVisible := false
oDCOCX_Exontrol1:Select := "c:\Windows\System32"
oDCOCX_Exontrol1:SplitViewHeight := "256"
oDCOCX_Exontrol1:EndUpdate()
|
|
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 )
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:ColumnsVisible := exFileColumnName
oDCOCX_Exontrol1:HeaderVisible := false
oDCOCX_Exontrol1:Select := "c:\Windows\System32"
oDCOCX_Exontrol1:FitToClient(3)
oDCOCX_Exontrol1:EndUpdate()
|
|
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 )
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:ColumnsVisible := exFileColumnName
oDCOCX_Exontrol1:HeaderVisible := false
oDCOCX_Exontrol1:Select := "c:\Windows\System32"
oDCOCX_Exontrol1:FitToClient(3)
oDCOCX_Exontrol1:EndUpdate()
|
|
55
|
I am trying to use your control as a file-view, but without any generated thumbnail. Is this possible
METHOD OCX_Exontrol1ViewEndChanging(Operation) CLASS MainDialog
// ViewEndChanging event - Occurs once the user changed the view.
OutputDebugString(String2Psz( "ViewEndChanging: " ))
OutputDebugString(String2Psz( AsString(Operation) ))
OutputDebugString(String2Psz( oDCOCX_Exontrol1:Select ))
RETURN NIL
METHOD OCX_Exontrol1ViewStartChanging(Operation) CLASS MainDialog
// ViewStartChanging event - Occurs once the user is about to change the view.
OutputDebugString(String2Psz( "ViewStartChanging: " ))
OutputDebugString(String2Psz( AsString(Operation) ))
RETURN NIL
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:Mode := exDisableThumbnails | exSplitFixCascadeMode
oDCOCX_Exontrol1:Layout := "Select0 = " + CHR(34) + "c:\|d:\" + CHR(34) + ""
oDCOCX_Exontrol1:EndUpdate()
|
|
54
|
How can I prevent resizing the cascade columns, once the user resizes the entire control
METHOD OCX_Exontrol1ViewEndChanging(Operation) CLASS MainDialog
// ViewEndChanging event - Occurs once the user changed the view.
OutputDebugString(String2Psz( "ViewEndChanging: " ))
OutputDebugString(String2Psz( AsString(Operation) ))
OutputDebugString(String2Psz( oDCOCX_Exontrol1:Select ))
RETURN NIL
METHOD OCX_Exontrol1ViewStartChanging(Operation) CLASS MainDialog
// ViewStartChanging event - Occurs once the user is about to change the view.
OutputDebugString(String2Psz( "ViewStartChanging: " ))
OutputDebugString(String2Psz( AsString(Operation) ))
RETURN NIL
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:FitToClient(3)
oDCOCX_Exontrol1:Mode := exSplitFixCascadeMode
oDCOCX_Exontrol1:Select := "c:\Windows"
oDCOCX_Exontrol1:EndUpdate()
|
|
53
|
Is it possible to disable resizing the cascade columns
METHOD OCX_Exontrol1ViewEndChanging(Operation) CLASS MainDialog
// ViewEndChanging event - Occurs once the user changed the view.
OutputDebugString(String2Psz( "ViewEndChanging: " ))
OutputDebugString(String2Psz( AsString(Operation) ))
OutputDebugString(String2Psz( oDCOCX_Exontrol1:Select ))
RETURN NIL
METHOD OCX_Exontrol1ViewStartChanging(Operation) CLASS MainDialog
// ViewStartChanging event - Occurs once the user is about to change the view.
OutputDebugString(String2Psz( "ViewStartChanging: " ))
OutputDebugString(String2Psz( AsString(Operation) ))
RETURN NIL
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:FitToClient(3)
oDCOCX_Exontrol1:Mode := exAutoFitOnResizeClient | exDisableResizeCascadeColumns | exSplitFixCascadeMode
oDCOCX_Exontrol1:Select := "c:\Windows"
oDCOCX_Exontrol1:EndUpdate()
|
|
52
|
SplitFixCascadeMode Mode
METHOD OCX_Exontrol1ViewEndChanging(Operation) CLASS MainDialog
// ViewEndChanging event - Occurs once the user changed the view.
OutputDebugString(String2Psz( "ViewEndChanging: " ))
OutputDebugString(String2Psz( AsString(Operation) ))
OutputDebugString(String2Psz( oDCOCX_Exontrol1:Select ))
RETURN NIL
METHOD OCX_Exontrol1ViewStartChanging(Operation) CLASS MainDialog
// ViewStartChanging event - Occurs once the user is about to change the view.
OutputDebugString(String2Psz( "ViewStartChanging: " ))
OutputDebugString(String2Psz( AsString(Operation) ))
RETURN NIL
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:Mode := exSplitFixCascadeMode
oDCOCX_Exontrol1:Select := "c:\"
oDCOCX_Exontrol1:EndUpdate()
|
|
51
|
FixCascadeMode Mode
METHOD OCX_Exontrol1ViewEndChanging(Operation) CLASS MainDialog
// ViewEndChanging event - Occurs once the user changed the view.
OutputDebugString(String2Psz( "ViewEndChanging: " ))
OutputDebugString(String2Psz( AsString(Operation) ))
OutputDebugString(String2Psz( oDCOCX_Exontrol1:Select ))
RETURN NIL
METHOD OCX_Exontrol1ViewStartChanging(Operation) CLASS MainDialog
// ViewStartChanging event - Occurs once the user is about to change the view.
OutputDebugString(String2Psz( "ViewStartChanging: " ))
OutputDebugString(String2Psz( AsString(Operation) ))
RETURN NIL
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:HeaderVisible := false
oDCOCX_Exontrol1:DefColumnWidth := 128
oDCOCX_Exontrol1:Mode := exFixCascadeMode
oDCOCX_Exontrol1:Select := "c:\Windows"
oDCOCX_Exontrol1:EndUpdate()
|
|
50
|
SplitEqualCascadeMode Mode
METHOD OCX_Exontrol1ViewEndChanging(Operation) CLASS MainDialog
// ViewEndChanging event - Occurs once the user changed the view.
OutputDebugString(String2Psz( "ViewEndChanging: " ))
OutputDebugString(String2Psz( AsString(Operation) ))
OutputDebugString(String2Psz( oDCOCX_Exontrol1:Select ))
RETURN NIL
METHOD OCX_Exontrol1ViewStartChanging(Operation) CLASS MainDialog
// ViewStartChanging event - Occurs once the user is about to change the view.
OutputDebugString(String2Psz( "ViewStartChanging: " ))
OutputDebugString(String2Psz( AsString(Operation) ))
RETURN NIL
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:Mode := exSplitEqualCascadeMode
oDCOCX_Exontrol1:Select := "c:\"
oDCOCX_Exontrol1:EndUpdate()
|
|
49
|
Default Mode
METHOD OCX_Exontrol1ViewEndChanging(Operation) CLASS MainDialog
// ViewEndChanging event - Occurs once the user changed the view.
OutputDebugString(String2Psz( "ViewEndChanging: " ))
OutputDebugString(String2Psz( AsString(Operation) ))
OutputDebugString(String2Psz( oDCOCX_Exontrol1:Select ))
RETURN NIL
METHOD OCX_Exontrol1ViewStartChanging(Operation) CLASS MainDialog
// ViewStartChanging event - Occurs once the user is about to change the view.
OutputDebugString(String2Psz( "ViewStartChanging: " ))
OutputDebugString(String2Psz( AsString(Operation) ))
RETURN NIL
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:Select := "c:\Windows"
oDCOCX_Exontrol1:FitToClient(3)
oDCOCX_Exontrol1:EndUpdate()
|
|
48
|
SingleCascadeMode ( folder view mode )
METHOD OCX_Exontrol1ViewEndChanging(Operation) CLASS MainDialog
// ViewEndChanging event - Occurs once the user changed the view.
OutputDebugString(String2Psz( "ViewEndChanging: " ))
OutputDebugString(String2Psz( AsString(Operation) ))
OutputDebugString(String2Psz( oDCOCX_Exontrol1:Select ))
RETURN NIL
METHOD OCX_Exontrol1ViewStartChanging(Operation) CLASS MainDialog
// ViewStartChanging event - Occurs once the user is about to change the view.
OutputDebugString(String2Psz( "ViewStartChanging: " ))
OutputDebugString(String2Psz( AsString(Operation) ))
RETURN NIL
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:StatusBarVisible := exStatusBarNone
oDCOCX_Exontrol1:Mode := exSingleCascadeMode
oDCOCX_Exontrol1:Select := "c:\Windows"
oDCOCX_Exontrol1:EndUpdate()
|
|
47
|
How to expand more folders, when single cascade mode is used
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:StatusBarVisible := exStatusBarNone
oDCOCX_Exontrol1:Mode := exSingleCascadeMode
oDCOCX_Exontrol1:Layout := "Expand0 = " + CHR(34) + "c:\|d:\|e:\" + CHR(34) + ";SelectMode0 = 0"
oDCOCX_Exontrol1:EndUpdate()
|
|
46
|
Is it possible to programmatically selects more folders
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:Layout := "Select0 = " + CHR(34) + "c:\|d:\|e:\" + CHR(34) + ";SelectMode0 = 0"
oDCOCX_Exontrol1:EndUpdate()
|
|
45
|
Is it possible to programmatically expand a folder (sample 4, select, expand more)
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:Layout := "Expand0 = " + CHR(34) + "c:\|d:\|e:\" + CHR(34) + ";SelectMode0 = 0"
oDCOCX_Exontrol1:EndUpdate()
|
|
44
|
Is it possible to programmatically expand a folder (sample 3)
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:Layout := "Expand0 = " + CHR(34) + "c:\" + CHR(34) + ";SelectMode0 = 2"
oDCOCX_Exontrol1:EndUpdate()
|
|
43
|
Is it possible to programmatically expand a folder (sample 2)
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:Layout := "Expand0 = " + CHR(34) + "c:\" + CHR(34) + ";SelectMode0 = 1"
oDCOCX_Exontrol1:EndUpdate()
|