|
142
|
ImageSize property on 32 (specifies the size of control' icons/images/check-boxes/radio-buttons)
with thisform.CascadeFile1
.BeginUpdate
.ImageSize = 32
.DefaultItemHeight = 36
.HeaderHeight = .DefaultItemHeight
.Font.Size = 16
.ToolTipFont.Size = thisform.CascadeFile1.Font.Size
.Indent = 26
with .VisualAppearance
var_s = "gBFLBCJwBAEHhEJAAEhABfICg6AADACAxRDgMQBQKAAzQFAYbhkGCGAAGMZxRgmFgAQhFcZQSKUOQTDKMIziaQAGgkNQwCSLIwjNIsBxPFKVQChEYxSjKA40SJNUgyj6"
var_s = var_s + "CCY+QLIE5PfQgAL9I6eJABCCSQKkYx0HScRiwPBIbAZAYhCZqaKhWgkKI/WBQIABRDVLx5ESiLRtKy7Mq2bpvXBcNxXHalaztO68LxvKyqHb5fJ/PpgL4YHgmC4NQ7EM"
var_s = var_s + "RwF6rfbyfZ7Xg/ORPTijZ4sdzMHTzJyscx3HqfaBoOaZU5eMLceTUMofHIndxCcasPbsOatVqjG5sYjcGC3La9cz3Pq/bpuDCbMxuaK1TrYXr1TTrcofBDldAxXRKDxR"
var_s = var_s + "DWVhLnYOw9i6XxzjuXprCaOoKB6EwbiCZZCGOdZYlcT4xHmbhMnwNxtn+G5bmqdZ7n4Pw/i+X5zm+dQ9g4CAFjsfAJheOI8HsDoWDWTB/lwSAQkmA5PEgRYoDyDwYFYF"
var_s = var_s + "oFmGCBmBqBphDgRJ0gOTIYBGRB/lyRh0iSCZbjYWJzgWDwIjYLoLmMCJGDKDJjBgWgqG6YhyhGHRzA2aJ1mCABOAiOJvhCZBJBYRoRmSCQmEqEQimkAZgg8TZnDCV4Uk"
var_s = var_s + "mCUmBKZYJGYWoWCUUhiFMNZckNUh2GENoaGaGZmgmJhqhqZpGGIEx2GYIxSGGGJdggWJth2Z4JmYeoemeSZ2H6H4hGmQhihyTRHGYLg7CiCgmgqIpokoNoOiOaJ4jqAo"
var_s = var_s + "chqaZGgaCxpAoZoaiaaJqEmWIcGgShcnCJwqEqFoR3YOoFlgchflqNouiuawHmWSYqGkWZQhcatzmaOoumuSp2j6L5bBaKo0GQKRnGGCxqiyCwmkqMpsksNpOGUGI7A0"
var_s = var_s + "ew1G0Rxlg0PptgsZuDG2Sx2l6N5tnYNZZjUDRXDCVo5l2FoymqOpukuNpujubwLjmWY5k0ZwxkaFxYlWdp6j6b5Lnafo/nABQdg2FxcUsY5BkmXAkmeQpckwNRrkKTh8"
var_s = var_s + "CSHZBk4NwyC4KxxgMDwakOMZDn8GgwnGAo2C4cwthMcwmCcMoHBMHRehwTIghySYNksZwcH4HBMEsHx5hyPItiweYxnwSZEH4Mozn0fR+DMAo7EYJ50gkdZelKdNql2U"
var_s = var_s + "gJn0GIukwH4HicQRai2GI4mSVpNl0dZGledgNgcYpYDWUx3FsOQi5YV5anaTY3G6W53A2RxylydxFjiaxEFCCgBBAQ=="
.Add(1,var_s)
var_s1 = "gBFLBCJwBAEHhEJAAEhABcoFg6AADACAxRDgMQBQKAAzQFAYbhkGCGAAGMZxRgmFgAQhFcZQSKUOQTDKMIziaQAGgkNQwCSLIwjNIsBxPFKVQChEYxSjKA40SJNUgyj6"
var_s1 = var_s1 + "CCY+QLIE5PfQgAL9I6eJABCCSQKkYx0HScRiwPBIbAZAYhCZqaKhWgkKI/WBQIABRDVLx5ESiLRtKy7Mq2bpvXBcNxXHalaztO68LxvKyqHb5fJ/PpgL4YHgmC4NQ7EM"
var_s1 = var_s1 + "RwF6rfbyfZ7Xg/ORPTijZ4sdzMHTzJyscx3HqfaBoOaZU5eMLceTUMofHIndxCcasPbsLpOS5LNKsaxmWLYdhFdTxQi6LpvfA8BwXC6JY7heRYRbFbYxRjGNi1TS7G4n"
var_s1 = var_s1 + "GKd5WGuL4UHwI4VkaYxii8V4pgQMgVBQdQ5iCTYGi8T4vlWbJ3nuPg+l+H5AlSCg6ByPBoE8Ap3jqYxhBido5g0OgOGOGI4CsSpCCAcgcAuEokiEN5NCKfJ9DyTRjnSc"
var_s1 = var_s1 + "g1CEYxOBmBpPCgagdgcIZoHoGIFA4AxQkCAxKAgKBwgGSpIBCZhjF2E5UnQPQMiMCJBCIBwxkSQgsgo+JtDKT4ziiQw+k6EwAnsOgLnkHI+yCQ4iEuE4klkPhShEJBpA"
var_s1 = var_s1 + "oPgymOMoaDgHBjFMBgyD0HYTiCZSZhIIIGC4ChiHSew5kwM5omILZPiOBI0hwZw5kodIdA+M4Uj4PxOmMSJ9DuTQzmyZgviceZagaHVfj4awwmaAh2GUIYmCOEZZDaDR"
var_s1 = var_s1 + "DFGdwcg4EwyHMN4LBOaJbCoaZqgKH8qkMfIyD8DozDyfA7A0Coui0OpMmOZJdCsahKg6NooioChwmEMxLEoXJbDUTRXGSUgykyMgQG0GpPHMdI3D4TRCgSeQ0kmaw+lG"
var_s1 = var_s1 + "NAtCOZJVCiT5DhyRQwAqMg0EoDBBGEGAsASC5yiSCw+k4Mp6lWNQuksTpRjMTxDGzJwGmGMpDDKXYTECSAxl6Q5olkK4PgMMIVkASRMBMBgzEkaZEjsNALhIZA6AeQBg"
var_s1 = var_s1 + "k0ZJEgAAJ0CIAgODMNIsD6DRih9uYwFyAwfCUb5ijmbI+gwdxkk8MZMGeMpPCkDxzBiC5MHMPJLDSSROFMLIoBEQogEMFJPnENYQGgE4DCOaJfC7tYkhGTQ0kyWwykuX"
var_s1 = var_s1 + "pMiyRpKjKR4wngM4JmOWJACCdYtHMWw+Eych4nINYLAEYA8AgdAEEsQZajaQoog4GxPiMVIolcdxNG8XZVkmNoRwWRVBlFeFEeAZQJgnFiHgHwcAhjhHgGMSI5xki2Cy"
var_s1 = var_s1 + "A4EQsA3i0HkBsLwKRFgAHcPkHopBJBcBeDUYI7xyDOHqKkWo2hLCsDIBIY4qQ5A8DoMMYwOAqCSBGKgU4yB2iDBwIgB4hxQgAAWNgBoAgsBdEcBUQ4sQ9A/HqD0JI8Rp"
var_s1 = var_s1 + "BzH2OYVgahLBHFiJQJweQiDhDUE4SAARQAzFsG0EQwA6AOWSBkFgVAIBCHeGERQFQiCQHeFkC4vkiB8DyB4F4QxVDvGMNEOQexMjlBeOAKQiQLgfDA7QEAaRiBdEkH8T"
var_s1 = var_s1 + "I7AZiFBAGYBIABWjYBiGACioQ4C1A+AMMgWhfgxHgPsT4URIB0COKgPgjRwiAB8AYUArxBgCF6J4GY5hrAOCAPAAoGRRCsCIMEXATXfgAF8BMJwURuEQDgD4Q4OBoAeH"
var_s1 = var_s1 + "GFgLIwQrC2D0JoSQ+QvhrHoSgQI8AbDFGID8C4Ah6BQAQAASACwgCYCMAUMARAvCKAiAMCAokeCKBEOAKgCBoDaHuMsEAqwJDiACDURg8R6gPCyDofYWAhgoDIJ4ZAuh"
var_s1 = var_s1 + "oiGAYGgRoQw/A0GMMga4GwxiEDeIYYInATCDBQAoBAwAoDlA0KMBoVRGiDGwDQUYIRsgaGGDgM4LAwDWB8EcIA1APhjEgGQVwgRIgjFIIQHokgZA+CSEkLIKQSjHAwMs"
var_s1 = var_s1 + "CwDAsAEB2ABTIwRwD6A8CMToSxkAxE4HYIw+BsgbBEDAHYBwojCBoIYFgXSjABE4MsHIbQWhlGILQS4UhvBdAUKEEwHgxDAAABQQQUAhgKHiDwE4JS4A7BGLQZwCR4ga"
var_s1 = var_s1 + "BEMUYAqgKApHgGwVAIRNgvBMMQXImwZDtE4I8UIyAZCDCAE8AwrhgAdEEBACQLRCg4FEB4AYtA7CdEiPQMoJAMDNCkOMCAXAFDhH0D0Q4EgfAaGSK4NYzRUj9BuCgAgs"
var_s1 = var_s1 + "wOBjB4Fqpw8B2ADAwE4A4Qx2DAE6JIaQPQGhAGKBcIQ5B5gHByKIFARwADbAyKUfgdBKBBGyEcVIAB/ijHoIoSA0gdBNl+OATYERZgBGSDYWIWAUCEGKA4FAhR7CIBtY"
var_s1 = var_s1 + "QGYZg4CMAiKEcAOwkBjHWE8Z4lQgA+DkBoTohwwCeAaMEEgBQCCABgHMRwQRhhMEWFQd4HwZgwDqFESItAbAGEANCpINAzANCCJkK4ah+heFYBURwsQrS2CsMYMoWGBh"
var_s1 = var_s1 + "YDWI0EInQgiApXaOVI1QFDsC8MUNoMBMA1HMJga4eh+BeAWOgNNowGjYzCGAAwax+iJBeBVT4gxoBIAGFsJFBxgBiGKFkKQ7g5DFFQEcAo4AzDDACKEQQLgCiJDYB0Mg"
var_s1 = var_s1 + "RBCCQAgQEA=="
.Add(2,var_s1)
var_s2 = "gBFLBCJwBAEHhEJAAEhABQ4Fg6AADACAxRDgMQBQKAAzQFAYbhkGCGAAGMZxRgmFgAQhFcZQSKUOQTDKMIziaQAGgkNQwCSLIwjNIsBxPFKVQChEYxSjKA40SJNUgyj6"
var_s2 = var_s2 + "CCY+QLIE5PfQgAL9I6eJABCCSQKkYx0HScRiwPBIbAZAYhCZqaKhWgkKI/WBQIABRDVLx5ESiLRtKy7Mq2bpvXBcNxXHalaztO68LxvKyqHb5fJ/PpgL4YHgmC4NQ7EM"
var_s2 = var_s2 + "RwF6rfbyfZ7Xg/ORPTijZ4sdzMHTzJyscx3HqfaBoOaZU5eMLceTUMofHIndxCcasPbsLpOS5LNKsaxmWLYdhFdTxQi6LpvfA8BwXC6JY7heRYRbFbYxRjGNi1TS7G4n"
var_s2 = var_s2 + "GKd5WGuL4UHwI4VkaYxii8V4pgQMgVBQdQ5iCTYGi8T4vlWbJ3nuPg+l+H5AlSCg6ByPBoE8Ap3jqYxhBido5g0OgOGOGI4CsSpCCAcgcAuEosiYN5NHMOJ+D4TpTnSe"
var_s2 = var_s2 + "Q7CEY4uBmBpPhgagdgcIZoHibIEyUBJZDQIJShoCgcCAcoyAQOYYlcZJ1D0DxDCiQgwEiAZMHEMJLFKPJ9D2DoDnidQ4k+Y5QmKEROBkIhKD0JIZDIS4TGUCQuEeEJjn"
var_s2 = var_s2 + "OIg8CuY4RkYNgwGMM5RllGpThDRYIGKZIpCkJFUH0PINyWcQ3CaaZCG+HBnEOTJhD8Tx4GoeQ/GcaZSHOH5nCmQhshoZhihYYwhiYA4RlkNoNEMUZ3ByDjwEsPxOnMaJ"
var_s2 = var_s2 + "9DuDR6F6GYmCmKh0nANtMioP4Gg8aoSiIO5NhodociqaY6GaFYkEyOg8lsNRNTaUgykyMgQG0GpPiONJbD8DpDEyfA6k0KwOkWMQsGsAJU0SagwkoJQJDIPISCQCJTGS"
var_s2 = var_s2 + "UwyGaM4KkmMgtksHpFjAZ4TGCBAbgaSpcksdhNAMIJHHsD5TjSWWMAMOpwjyLwbk6cAz0KRJiDkDYzESCwiggcgcgYIQwCIEINCMCITj6TVxkMXp2j0cQLlCTo7E2F4y"
var_s2 = var_s2 + "mkMZdhMPJHDGHpLAyVg+k4UwrCCSIyByDJ8DuDY8CiWY0kiXAXC6QJwFKGIjCeJpjgyezjlyDw6klHx5myRoMGwZwbkcToTEiew4kwbQfEmUgPkOKJUD4DpTHSHQmgkX"
var_s2 = var_s2 + "I/ASTA1g0XIEDMTBimyfI7jSLYHEiUoPk0Fw/kadAsHGao8A0A5smEMJ2mNyg5gzJZwDgCpChyIZVyIZwFCMJEPASRkBqE+IcHInRcDxA2H4bIsx0AtDsIBpwZwYicD6"
var_s2 = var_s2 + "BscwDwUBgHCIYaIfgtiVH2O4WgUwJjEFeAEQA7y4hMCiBMS4aRdB9A4CYE4LxljyBMHcDItBxinDCLcTYmgejBFQ9UTg9gFBOEmAQTI7A4iZGMGkQAWQ7jYA2HIL8BRA"
var_s2 = var_s2 + "jDG4HcCwARbjZHiNoDw1nLDnGyNINQ+wjCpBMEgcovQUgICQJEcgWRuBvAyJ4d4ugpCUAINcHogxIgnDiM4N4axzD3F2JMTY/hRqYF6FsWIxhYAGGoAALQYgYirBwBEB"
var_s2 = var_s2 + "wpAjBEAAIEIYsA2gOHCMAGgXAACIDmMITAUgFABH0D0I4WwvhNFGMAOIvxRD2GKNcMA8gjAPDCPwBogRPAxA8PgRwZRICYDED8RAXQEghEAN8DIgwIBdB4JYWwMgtiQH"
var_s2 = var_s2 + "oFQKAiRFguFKGwGQhglDsEOVwEQQRkCKBwOIHgSREDRBYHEXQcQdD7GIGARQHRxipBrMobgewDCUCADsEYWAzgMHKHQDQxxsDzA6EMfAeQHB4GQDkUYPA0iECiKoGgRh"
var_s2 = var_s2 + "cDdA2GMQA8AOCjDSPgHI4QnApAKBICwHg1A+BcAwcYsgbjGGQNkCIgRsA6EcBEWANADjsB0B8YYzQQDIGSBcEYZBCCPEkFIHQSgkgZAwG4IwBAbAYGGAgL4Ch4g8BOCQ"
var_s2 = var_s2 + "AA2KKC0GcAke4AAXAFCoHkDw4xbBFEcJkE4JRSiEFeJYKQVRMgJHODwX4xAgC/AsIIZAeAHDRG0HYI40RKCLEGDUI4jAghwBWIceA+whCpHMFYZYOQxglDMHMBQGxYjV"
var_s2 = var_s2 + "HiAoBIPgfgHGwPsHYJRSB6A0IERQLhCjJHMA4OQoAoCOACLYGYSx8DpBQIMWQdRnDRH+DsE4fB3CeAmM67kAAXBFEIDYDI7wLBtEoEIfYNwjiUGGJQYQMAjCHEAO0C4z"
var_s2 = var_s2 + "xW29CoCgfIxR9AKA6J8BgUAIhDGMIoJ40hqgwCgKETgnBhhqCGI0AIqgZhGDANQDIlBDCRGkCoJISR0g1BSKQOgfAzBRG0DYHARh4DeDAOwANuw8ApCKKkYg/RPhjBsH"
var_s2 = var_s2 + "0J4yg5hPGWN0GwFBHQBFaDoQIURljFAoB4GgzRVzbBECQFQRQoguHGHANwDRdCKy8CgSIGwhhoDYJYYI1giBICSAEgI="
.Add(3,var_s2)
var_s3 = "gBFLBCJwBAEHhEJAAEhABUYCg6AADACAxRDgMQBQKAAzQFAYbhkGCGAAGMZxRgmFgAQhFcZQSKUOQTDKMIziYBYfgkMIgSbJUgDGAkRRdDSOYDmGQYDiCIoRShOMIjHL"
var_s3 = var_s3 + "UXxtDaIZwhEAoJb+RgAUY/cTzaAEUwHHiTKInaCQShsFYJUJAdRURQ9EwvCIZBpEWwLChENQwWLCNj2TScBwjCyqbale45ViqdoDU5EUiXJJ8ZxnECfYyrGjaMpCeKBU"
var_s3 = var_s3 + "rGYTVRBIMxLLSia5oeJqMrnBpNVrIUgXCAGFwHK6BcauXIIDp6XoWWRbAAWDpVVzNNC3YzkCIceADHKiXxmVz4JLdGZ1QTGID2XaYaxWK4oZjsVSc4KDHbETbHFi9Fo3"
var_s3 = var_s3 + "NaaxGisew+GYc4HlCR5NAAAIIEkQJSGMOgdE4RhYDwJJsAaAYQgmPpolCWgSCiBJzjcEIAkQXIBm8d5UhOQgCDUIBDDJDhgggJgKgKYJIDSVoDk8KBFF4OohEMZgWDsY"
var_s3 = var_s3 + "YDj4GoGmGSB2B6B5iAiBgYDsYRjGSbIJo4RgqDuIpIAoLoLmMCJGDKDJjJiLA7xqUAAgGTwYnYPoPmQCQGEKEJkEkFg9gGY44BoRoSmSSQ2EKEggHgRhShSZRJFYVoVm"
var_s3 = var_s3 + "WCRmFKFAgGOTheheZgJgYYoYmYSYWGaF4lkMMJ0hqZpJjYbobmcCZGHKHJmjmJh0h2Z4JmYcIaE8WZ2H6H5oAoBoCiCaBKBYfdjGoJoKiKaJKDaDojmkChGgmIgpCoVo"
var_s3 = var_s3 + "WiWaJZiSd4mmmSh2h6J5qAqBoiiiaY5iSeIpmqComiqKpqkqNouiuah6hqMIsmsSpWiuGhP1kOoumuSp2j6L5sAsBo54gKwWkaMZsgsJpKjKbJLDaRYxYWRpSjSbIZiS"
var_s3 = var_s3 + "e41m2CxmlqNptksdpejebR5iSfI4m4S4W16boLiaao6m5fJ9jubwLkaco8m8S5WnaPZunuOp4j6b5Lnac4SA0PAGlgP4wEwFwGkGcIMCcCpCnCCxiA8NYAAmMJfkSbhF"
var_s3 = var_s3 + "CcFpFnGDBnBqRpUhuEwTDeZ5lHCfw6HIQxLCaAxygyJwqgGcATE4FA6hWY4tjEAAQBAgIA=="
.Add(4,var_s3)
endwith
.BackColorHeader = 0x4c6c6c6
.SelBackColor = 0x4f0f0f0
.SelForeColor = RGB(0,0,1)
.HotBackColor = 0x4f8f8f8
.Object.Background(70) = 0x1000000
.Object.Background(71) = 0x2000000
.Object.Background(72) = 0x3000000
.ExpandFolders = .T.
.HasCheckBox = 1
.ExploreFromHere = ""
.Select = "C:"
.EndUpdate
endwith
|
|
141
|
ImageSize property on 16 (default) (specifies the size of control' icons/images/check-boxes/radio-buttons)
with thisform.CascadeFile1
.BeginUpdate
.ImageSize = 16
with .VisualAppearance
var_s = "gBFLBCJwBAEHhEJAAEhABUYCg6AADACAxRDgMQBQKAAzQFAYbhkGCGAAGMZxRgmFgAQhFcZQSKUOQTDKMIziYBYfgkMIgSbJUgDGAkRRdDSOYDmGQYDiCIoRShOMIjHL"
var_s = var_s + "UXxtDaIZwhEAoJb+RgAUY/cTzaAEUwHHiTKInaCQShsFYJUJAdRURQ9EwvCIZBpEWwLChENQwWLCNj2TScBwjCyqbale45ViqdoDU5EUiXJJ8ZxnECfYyrGjaMpCeKBU"
var_s = var_s + "rGYTVRBIMxLLSia5oeJqMrnBpNVrIUgXCAGFwHK6BcauXIIDp6XoWWRbAAWDpVVzNNC3YzkCIceADHKiXxmVz4JLdGZ1QTGID2XaYaxWK4oZjsVSc4KDHbETbHFi9Fo3"
var_s = var_s + "NaaxGisew+GYc4HlCR5NAAAIIEkQJSGMOgdE4RhYDwJJsAaAYQgmPpolCWgSCiBJzjcEIAkQXIBm8d5UhOQgCDUIBDDJDhgggJgKgKYJIDSVoDk8KBFF4OohEMZgWDsY"
var_s = var_s + "YDj4GoGmGSB2B6B5iAiBgYDsYRjGSbIJo4RgqDuIpIAoLoLmMCJGDKDJjJiLA7xqUAAgGTwYnYPoPmQCQGEKEJkEkFg9gGY44BoRoSmSSQ2EKEggHgRhShSZRJFYVoVm"
var_s = var_s + "WCRmFKFAgGOTheheZgJgYYoYmYSYWGaF4lkMMJ0hqZpJjYbobmcCZGHKHJmjmJh0h2Z4JmYcIaE8WZ2H6H5oAoBoCiCaBKBYfdjGoJoKiKaJKDaDojmkChGgmIgpCoVo"
var_s = var_s + "WiWaJZiSd4mmmSh2h6J5qAqBoiiiaY5iSeIpmqComiqKpqkqNouiuah6hqMIsmsSpWiuGhP1kOoumuSp2j6L5sAsBo54gKwWkaMZsgsJpKjKbJLDaRYxYWRpSjSbIZiS"
var_s = var_s + "e41m2CxmlqNptksdpejebR5iSfI4m4S4W16boLiaao6m5fJ9jubwLkaco8m8S5WnaPZunuOp4j6b5Lnac4SA0PAGlgP4wEwFwGkGcIMCcCpCnCCxiA8NYAAmMJfkSbhF"
var_s = var_s + "CcFpFnGDBnBqRpUhuEwTDeZ5lHCfw6HIQxLCaAxygyJwqgGcATE4FA6hWY4tjEAAQBAgIA=="
.Add(4,var_s)
endwith
.BackColorHeader = 0x4c6c6c6
.SelBackColor = 0x4f0f0f0
.SelForeColor = RGB(0,0,1)
.HotBackColor = 0x4f8f8f8
.ExpandFolders = .T.
.HasCheckBox = 1
.ExploreFromHere = ""
.Select = "C:"
.EndUpdate
endwith
|
|
140
|
How can I add a checkbox to each item
*** ViewEndChanging event - Occurs once the user changed the view. ***
LPARAMETERS Operation
with thisform.CascadeFile1
DEBUGOUT( .Get(2) )
endwith
with thisform.CascadeFile1
.HasCheckBox = 1
.ExploreFromHere = "C:/"
endwith
|
|
139
|
How do I get the selected file/files
*** ViewEndChanging event - Occurs once the user changed the view. ***
LPARAMETERS Operation
with thisform.CascadeFile1
DEBUGOUT( .Select )
endwith
with thisform.CascadeFile1
.ExploreFromHere = "C:/"
endwith
|
|
138
|
Is it possible to change the visual appearance of the position signs when user changes the column's position by drag and drop
with thisform.CascadeFile1
.BeginUpdate
with .VisualAppearance
var_s = "gBFLBCJwBAEHhEJAAEhABZEGACAADACAxRDgMQBQKAAzAJBIYhiG4cYCgMYxXDOCYXABCEYRXBIZQ7BKNIxjSJwFgmEgADKMA4SOKIZhrE4bBhGaQRUgyI43RhHUBzVI"
var_s = var_s + "UcQvE6TZRHCQYHgkNIhDJIM7TPLkeSVJaTIRoKhJUogApQThTMgVRDEThkGoSa6soSoYTDBKybLrSLKagOT5YUDKUqSdKEZRpEq1YztWbaQoCUoqVRRVIWfbNd4JJa4a"
var_s = var_s + "DhWpYdpeeY5R7bWLgBYVVABL7LLRsSxpHxPF6RXxaeI3GKsaS8G6ic6nPQMHj7I4NS5pUa6Rh2VYNSa8AAtETRYznOw4bTMXAjNIea5bAYIIR5HIoDzVbQcCQAHL9DBe"
var_s = var_s + "EMIQEEISgGhMGZQmocgymoYRRCIEQ0G2HYBnEIBig4V4zCQGINnmagCECY43medZ6H2Pw/g+X5fnueh/h+R5+AKABfkMWgGgGYA4AICoCGCE5WA4CphACMgSD2IRIDIB"
var_s = var_s + "ICmEd5YGCBpRjGBgegWIYIgWdgoGIRQsiKCZiAiJZ0gGQI4jUS4LECOAiBmDJflGfg2BSY4Al4OhGkOCJ2DgFJjGGfgqgiH5Ch4RhGkqOQmEOEpkFkHQYhJRYyESAokG"
var_s = var_s + "KHhIhKIxJEmf4VGUeRGFmF5iBkchPhYJQ5GoYIZg6Ug6GoFYmkmNhuhulRGHKGoImefh0BUZ4JmYeoemeSZ2H6HQmgoBgXDqXwUAQgI="
.Add(1,var_s)
.Add(2,"CP:1 0 -36 0 0")
endwith
.Object.Background(182) = 0x2000000
.StatusBarVisible = 0
.Mode = 1
.EndUpdate
endwith
|
|
137
|
How can I specify my favorites folders
with thisform.CascadeFile1
.BeginUpdate
.HeaderVisible = .F.
var_s = "::{450d8fba-ad25-11d0-98a8-0800361b1103}|::{018D5C66-4533-4307-9B53-224DE2ED1FE6}|::{20D04FE0-3AEA-1069-A2D8-08002B30309D}|::{F0"
var_s = var_s + "2C1A0D-BE21-4350-88B0-7367FC96EF3C}"
.ExploreFromHere = var_s
.Select = "C:\Windows"
.EndUpdate
endwith
|
|
136
|
How can I add the "My Documents"
with thisform.CascadeFile1
.ExploreFromHere = "C:\|::{450d8fba-ad25-11d0-98a8-0800361b1103}>"
endwith
|
|
135
|
How can I add the Printers and Faxes
with thisform.CascadeFile1
.ColumnsVisible = 2
.ExploreFromHere = "C:\|::{2227a280-3aea-1069-a2de-08002b30309d}>"
endwith
|
|
134
|
How can I add the "Recycle Bin" folder
with thisform.CascadeFile1
.ExploreFromHere = "C:\|::{645FF040-5081-101B-9F08-00AA002F954E}>"
endwith
|
|
133
|
How can I add the "Documents" folder
with thisform.CascadeFile1
.ExploreFromHere = "C:\|::{450D8FBA-AD25-11D0-98A8-0800361B1103}>"
endwith
|
|
132
|
How can I add the Network folder
with thisform.CascadeFile1
.ExploreFromHere = "C:\|::{F02C1A0D-BE21-4350-88B0-7367FC96EF3C}>"
endwith
|
|
131
|
How can I add the My Computer
with thisform.CascadeFile1
.ExploreFromHere = "C:\|::{20D04FE0-3AEA-1069-A2D8-08002B30309D}>"
endwith
|
|
130
|
How can I add the My Network Places folder
with thisform.CascadeFile1
.ExploreFromHere = "C:\|::{208D2C60-3AEA-1069-A2D7-08002B30309D}>"
endwith
|
|
129
|
How can I add the Desktop folder
with thisform.CascadeFile1
.ExploreFromHere = "C:\|::{00021400-0000-0000-C000-000000000046}>"
endwith
|
|
128
|
How can I create my own favorites folders
with thisform.CascadeFile1
.BeginUpdate
.ExploreFromHere = "::{450d8fba-ad25-11d0-98a8-0800361b1103}|C:\Temp><b>My Projects</b>|"
.Select = "C:\Temp"
.ColumnsVisible = 2
.HeaderVisible = .F.
.FitCascadeColumns = 3
.EndUpdate
endwith
|
|
127
|
How can change the explore from folder (sample 2)
with thisform.CascadeFile1
.ExploreFromHere = "C:\>"
.Layout = "Expand0 = "+chr(34)+"C:\"+chr(34)+";SelectMode0 = 0"
endwith
|
|
126
|
How can change the explore from folder (sample 1)
with thisform.CascadeFile1
.ExploreFromHere = "C:\"
endwith
|
|
125
|
Is it possible to include more system drives as root folders (sample 2)
with thisform.CascadeFile1
.ExploreFromHere = "C:\>SYSTEM <off 4><b>1|D:\>SYSTEM <off 4><b>2|E:\>SYSTEM <off 4><b>3"
endwith
|
|
124
|
Is it possible to include more system drives as root folders (sample 1)
with thisform.CascadeFile1
.ExploreFromHere = "C:\|D:\|E:\"
endwith
|
|
123
|
How can I include a system drive as a root folder, instead lists its content
with thisform.CascadeFile1
.ExploreFromHere = "C:\>"
.Layout = "Expand0 = "+chr(34)+"C:\"+chr(34)+";SelectMode0 = 0"
endwith
|
|
122
|
How can I add the Desktop as a root folder (sample 3, rename, new display name, root)
with thisform.CascadeFile1
.ExploreFromHere = "::{20D04FE0-3AEA-1069-A2D8-08002B30309D}><sha ;;0>This <b>PC</b>"
endwith
|
|
121
|
How can I add the Desktop as a root folder (sample 2)
with thisform.CascadeFile1
.ExploreFromHere = "::{20D04FE0-3AEA-1069-A2D8-08002B30309D}>"
endwith
|
|
120
|
How can I add the Desktop as a root folder (sample 1)
with thisform.CascadeFile1
.ExploreFromHere = ">"
.Select = "::{20D04FE0-3AEA-1069-A2D8-08002B30309D}"
.SelectMode = 1
endwith
|
|
119
|
How can I browse the "Public" folder
with thisform.CascadeFile1
.ExploreFromHere = "::{4336a54d-038b-4685-ab02-99bb52d3fb8b}>"
endwith
|
|
118
|
How can I browse the "Libraries" folder
with thisform.CascadeFile1
.ExploreFromHere = "::{031E4825-7B94-4dc3-B131-E946B44C8DD5}>"
endwith
|
|
117
|
How can I browse the "HomeGroup" folder
with thisform.CascadeFile1
.ExploreFromHere = "::{B4FB3F98-C1EA-428d-A78A-D1F5659CBA93}>"
endwith
|
|
116
|
How can I browse the "Games" folder
with thisform.CascadeFile1
.ExploreFromHere = "::{ED228FDF-9EA8-4870-83b1-96b02CFE0D52}>"
endwith
|
|
115
|
How can I browse the "OneDrive" folder
with thisform.CascadeFile1
.ExploreFromHere = "::{018D5C66-4533-4307-9B53-224DE2ED1FE6}>"
endwith
|
|
114
|
How can I browse the "Recycle Bin" folder
with thisform.CascadeFile1
.ExploreFromHere = "::{645FF040-5081-101B-9F08-00AA002F954E}"
endwith
|
|
113
|
How can I browse the "Documents" folder
with thisform.CascadeFile1
.ExploreFromHere = "::{450D8FBA-AD25-11D0-98A8-0800361B1103}"
endwith
|
|
112
|
How can I browse the Network folder
with thisform.CascadeFile1
.ExploreFromHere = "::{F02C1A0D-BE21-4350-88B0-7367FC96EF3C}"
endwith
|
|
111
|
How can I browse the My Computer
with thisform.CascadeFile1
.ExploreFromHere = "::{20D04FE0-3AEA-1069-A2D8-08002B30309D}"
endwith
|
|
110
|
How can I browse the My Network Places folder
with thisform.CascadeFile1
.ExploreFromHere = "::{208D2C60-3AEA-1069-A2D7-08002B30309D}"
endwith
|
|
109
|
How can I browse the Desktop folder
with thisform.CascadeFile1
.ExploreFromHere = "::{00021400-0000-0000-C000-000000000046}"
endwith
|
|
108
|
How can I select multiple files
with thisform.CascadeFile1
.Select = "C:\\r\nD:\\r\nE:\"
endwith
|
|
107
|
How can I select a single file
with thisform.CascadeFile1
.Select = "C:\"
endwith
|
|
106
|
Can I change the folder being explored
with thisform.CascadeFile1
.ExploreFromHere = "c:\Program Files"
endwith
|
|
105
|
How can I turn on the Thumbnail mode
with thisform.CascadeFile1
.Select = "C:\"
.SelectMode = 2
endwith
|
|
104
|
How to turn off the Auto-Update feature
with thisform.CascadeFile1
.AutoUpdate = .F.
endwith
|
|
103
|
I can not make a column larger, by resizing its header, as it splits the control's header only. What can I do
with thisform.CascadeFile1
.BeginUpdate
.ColumnAutoResize = .F.
.StatusBarVisible = 0
.Mode = 1
.Select = "c:\Windows"
.EndUpdate
endwith
|
|
102
|
How can hide the column's header
with thisform.CascadeFile1
.BeginUpdate
.HeaderVisible = .F.
.ColumnsVisible = 2
.Select = "C:\Windows"
.FitCascadeColumns = 3
.EndUpdate
endwith
|
|
101
|
How can hide the Modified, Size and Type columns
with thisform.CascadeFile1
.BeginUpdate
.ColumnsVisible = 2
.Select = "C:\Windows"
.FitCascadeColumns = 3
.EndUpdate
endwith
|
|
100
|
How can I hide the +/- buttons, so I can show just plain lists, no children
with thisform.CascadeFile1
.BeginUpdate
.ColumnsVisible = 2
.ExpandFolders = .F.
.HeaderVisible = .F.
.Select = "C:\Windows"
.FitCascadeColumns = 3
.EndUpdate
endwith
|
|
99
|
A small rectangle is shown around the item that has the focus. Can I hide that
with thisform.CascadeFile1
.ShowFocusRect = .F.
endwith
|
|
98
|
How can I get ride of the hot selection color
with thisform.CascadeFile1
.BeginUpdate
.HotBackColor = -1
.HotForeColor = -1
.EndUpdate
endwith
|
|
97
|
How can I change the control's selection color (sample 3)
with thisform.CascadeFile1
.BeginUpdate
with .VisualAppearance
.Add(2,"XP:Button 1 2")
.Add(1,"CP:2 -1 0 1 0")
.Add(4,"XP:Button 1 1")
.Add(3,"CP:4 -1 0 1 0")
endwith
.FitCascadeColumns = 2
.Select = "c:\"
.FullRowSelect = .T.
.ExpandFolders = .F.
.SelBackColor = 0x1000000
.SelForeColor = RGB(0,0,0)
.HotBackColor = 0x3000000
.HotForeColor = RGB(0,0,0)
.EndUpdate
endwith
|
|
96
|
How can I change the control's selection color (sample 2)
with thisform.CascadeFile1
.BeginUpdate
var_s = "gBFLBCJwBAEHhEJAAEhABNACg6AADACAxRDgMQBQKAAzAJBIYhiG4cYCgMZhXDOCYXABCEYRXBIZQ7BKNIxjSJwFiCCQwSDKEjyCKcGRHF6MI6gOYpCgOIYjRJNIASVA"
var_s = var_s + "ceAAGaUZrjSgobjmOYhAJCKJUWAFFoVDCgZThGgJHomMIhBDHASQTQ8EytJqmKajCaRSDUJZkWZOIyjBd6a5tVbXEaVTAccxhOKeahvGo5Fred40TRINCWHI1d4NH69J"
var_s = var_s + "bwMILSgME6FABXdhWFC+Ex9Kiea7kOqIJwyA5bY5kGRWDRkLzROAALJ1Cz7KqydpDYyAGbABagAYfPy8JzxHKNarfA5GZzuG4zdi8U41WCBdpnHQNS4KL6ndBbWrdFoi"
var_s = var_s + "C8X4QnAOQ8B4dwiHQCIEhQDQmDOIZUmQZYDkIVRSmIEQ3lUGwbEIRQQh4ZpeEQGIMB0JZdkoc4XnqVB/k0CAGAKAJgEgFgGgGYBXnyVA5mCRQ4maA5NjgRJvgSTwoFYF"
var_s = var_s + "oFmGCBmBqBphhgTJvDcIkFlWCJhmOLgmDoYoIiYKoKmKSI2C6CwiGOLJwgyTJ4lYAg8mOCI+DqDpjkiMJ0g+TJZAYN4OGOWQWEaCpjnOUhBDMZAzk4MYTmUCRGFKFJlE"
var_s = var_s + "kRhJhKZJTjIWoWmWSR2F6F5mAmBhbhWZAoASdYZk6WYmGqGpmkmNhuhulQonaHJlgmGhnDuJ4JmYeoemeSZ2H6H5nhmTJ2h0TQKAoHohmiCgmgqIpokoJJ3iOaBKDydw"
var_s = var_s + "8GkShWhaJZpgoZoaiaaRTmKHokGieJiiKKJqEqFomimaoKg6Hg+CgSouimK5rAqRg4D4axKjaHoSGuCpmjqLprkqdo6i0D4aBKQIgiwSwWkaMZsgsJpGD6LJLAqNIyi0"
var_s = var_s + "CxGlKHJskOahLgKJhzlaK4gi2GxOl6MZtjmTJOjiX5ThSWo5mMM5CkCOpukuNpujubwLiYEY8k2NQ4mqPZNhuZgIj6b5LnaeQ2GXsJrGuQAEAQgI"
.VisualAppearance.Add(1,var_s)
.FitCascadeColumns = 2
.Select = "c:\"
.FullRowSelect = .T.
.SelBackColor = 0x1e0e0e0
.SelForeColor = RGB(0,0,0)
.EndUpdate
endwith
|
|
95
|
How can I change the control's selection color (sample 1)
with thisform.CascadeFile1
.BeginUpdate
.FitCascadeColumns = 2
.Select = "c:\"
.FullRowSelect = .T.
.SelBackColor = RGB(0,0,0)
.SelForeColor = RGB(255,255,255)
.EndUpdate
endwith
|
|
94
|
How can I select the entire item, rather that name only
with thisform.CascadeFile1
.BeginUpdate
.Select = "c:\|d:\|e:\"
.SelectMode = 1
.FullRowSelect = .T.
.EndUpdate
endwith
|
|
93
|
Is it possible to show the selection with a different color, when the control loses the focus
with thisform.CascadeFile1
.BeginUpdate
.HideSelection = .F.
.Object.Background(166) = RGB(224,224,224) && 0xa6
.Object.Background(167) = RGB(64,64,64) && 0xa7
.Select = "c:\|d:\|e:\"
.SelectMode = 1
.EndUpdate
endwith
|
|
92
|
The selection is still shown when the control loses the focus. Is it possible to hide it
with thisform.CascadeFile1
.HideSelection = .T.
endwith
|
|
91
|
How can I enable single-selection
with thisform.CascadeFile1
.SingleSel = .T.
endwith
|
|
90
|
Predefined Keywords of ShowContextMenu property
*** ViewEndChanging event - Occurs once the user changed the view. ***
LPARAMETERS Operation
with thisform.CascadeFile1
.ExecuteContextMenu = 0
endwith
with thisform.CascadeFile1
.BeginUpdate
.Object.ScrollPartVisible(0,65536) = .T.
.Object.ScrollPartVisible(1,65536) = .T.
.Object.ScrollPartVisible(2,65536) = .T.
.ScrollWidth = 4
.Object.Background(276) = RGB(240,240,240)
.Object.Background(260) = RGB(128,128,128)
.ScrollHeight = 4
.Object.Background(404) = .Background(276)
.Object.Background(388) = .Background(260)
.Object.Background(511) = .Background(276)
.EndUpdate
.AllowSplitView = 2
.FitCascadeColumns = 3
var_s = "`menu(` + menu + `)` + `,filecount=` + filecount + `,fileattr=` + hex(fileattr) + `,filename=` + filename + `,fileparsename=` + "
var_s = var_s + "fileparsename + `,filefullname=` + filefullname + `,[sep]` + `,vlevels=` + vlevels + `,vlevel=` + vlevel + `,hlevels=` + hlevels"
var_s = var_s + " + `,hlevel=` + hlevel + `,view=` + view + `,[sep]` + `,selectmode=` + selectmode"
.ShowContextMenu = var_s
.SplitViewHeight = "256,256"
.Layout = "Select1="+chr(34)+"C:\"+chr(34)+""
.Select = "C:\Windows"
endwith
|
|
89
|
How can I display the identifiers of the control's context menu (debug)
*** ViewEndChanging event - Occurs once the user changed the view. ***
LPARAMETERS Operation
with thisform.CascadeFile1
DEBUGOUT( "Operation" )
DEBUGOUT( Operation )
DEBUGOUT( "ExecuteContextMenu" )
DEBUGOUT( .ExecuteContextMenu )
endwith
with thisform.CascadeFile1
.ColumnsVisible = 2
.Mode = 1539 && CascadeModeEnum.exDisableThumbnails Or CascadeModeEnum.exAutoFitOnResizeClient Or CascadeModeEnum.exSplitFixCascadeMode
.SingleSel = .F.
.ShowContextMenu = "`[debug]` + menu"
endwith
|
|
88
|
How can I copy/execute command a file/folder (selection)
with thisform.CascadeFile1
.BeginUpdate
.SingleSel = .F.
.ExploreFromHere = "c:\"
.ExpandFolders = .T.
.Select = "c:\Temp"
.ExecuteContextCommand("<selection>",.T.,"Copy")
.EndUpdate
endwith
|
|
87
|
How can I copy a file/folder (absolute name)
with thisform.CascadeFile1
.BeginUpdate
.ExploreFromHere = "c:\"
.ExecuteContextCommand("c:\Temp",.T.,"Copy")
.EndUpdate
endwith
|
|
86
|
How can I copy a file/folder (relative name)
with thisform.CascadeFile1
.BeginUpdate
.ExploreFromHere = "c:\"
.ExecuteContextCommand("Temp",.T.,"Copy")
.EndUpdate
endwith
|
|
85
|
ShowContextMenu usage
*** ViewEndChanging event - Occurs once the user changed the view. ***
LPARAMETERS Operation
with thisform.CascadeFile1
DEBUGOUT( "Operation" )
DEBUGOUT( Operation )
DEBUGOUT( "ExecuteContextMenu" )
DEBUGOUT( .ExecuteContextMenu )
endwith
with thisform.CascadeFile1
.ColumnsVisible = 2
.Mode = 1539 && CascadeModeEnum.exDisableThumbnails Or CascadeModeEnum.exAutoFitOnResizeClient Or CascadeModeEnum.exSplitFixCascadeMode
.SingleSel = .F.
.FullRowSelect = .T.
var_s = "filecount = 0 ? `Exit[id=1000]` : ( ( ( filecount = 1 ) ? `"+chr(34)+"` + filename + `"+chr(34)+"` : `multiple selection` ) + `[dis],[sep],` + menu)"
.ShowContextMenu = var_s
endwith
|
|
84
|
ShowContextMenu usage
*** ViewEndChanging event - Occurs once the user changed the view. ***
LPARAMETERS Operation
with thisform.CascadeFile1
DEBUGOUT( "Operation" )
DEBUGOUT( Operation )
DEBUGOUT( "ExecuteContextMenu" )
DEBUGOUT( .ExecuteContextMenu )
endwith
with thisform.CascadeFile1
.ColumnsVisible = 2
.Mode = 1539 && CascadeModeEnum.exDisableThumbnails Or CascadeModeEnum.exAutoFitOnResizeClient Or CascadeModeEnum.exSplitFixCascadeMode
.SingleSel = .F.
.FullRowSelect = .T.
.ShowContextMenu = "filecount > 1 ? `multiple selection[dis]` : menu"
endwith
|
|
83
|
ShowContextMenu usage
*** ViewEndChanging event - Occurs once the user changed the view. ***
LPARAMETERS Operation
with thisform.CascadeFile1
DEBUGOUT( "Operation" )
DEBUGOUT( Operation )
DEBUGOUT( "ExecuteContextMenu" )
DEBUGOUT( .ExecuteContextMenu )
endwith
with thisform.CascadeFile1
.ColumnsVisible = 2
.Mode = 1539 && CascadeModeEnum.exDisableThumbnails Or CascadeModeEnum.exAutoFitOnResizeClient Or CascadeModeEnum.exSplitFixCascadeMode
.SingleSel = .F.
.FullRowSelect = .T.
.ShowContextMenu = "filecount > 1 ? `multiple selection[dis]` : menu"
endwith
|
|
82
|
ShowContextMenu usage
*** ViewEndChanging event - Occurs once the user changed the view. ***
LPARAMETERS Operation
with thisform.CascadeFile1
DEBUGOUT( "Operation" )
DEBUGOUT( Operation )
DEBUGOUT( "ExecuteContextMenu" )
DEBUGOUT( .ExecuteContextMenu )
endwith
with thisform.CascadeFile1
.ExploreFromHere = "c:\"
.ColumnsVisible = 2
.Mode = 1539 && CascadeModeEnum.exDisableThumbnails Or CascadeModeEnum.exAutoFitOnResizeClient Or CascadeModeEnum.exSplitFixCascadeMode
.SingleSel = .F.
.FullRowSelect = .T.
.ExpandFolders = .T.
.ShowContextMenu = "menu replace `Delete` with `Delete[dis]`"
endwith
|
|
81
|
ShowContextMenu usage
*** ViewEndChanging event - Occurs once the user changed the view. ***
LPARAMETERS Operation
with thisform.CascadeFile1
DEBUGOUT( "Operation" )
DEBUGOUT( Operation )
DEBUGOUT( "ExecuteContextMenu" )
DEBUGOUT( .ExecuteContextMenu )
endwith
with thisform.CascadeFile1
.ExploreFromHere = "c:\"
.ColumnsVisible = 2
.Mode = 1539 && CascadeModeEnum.exDisableThumbnails Or CascadeModeEnum.exAutoFitOnResizeClient Or CascadeModeEnum.exSplitFixCascadeMode
.SingleSel = .F.
.FullRowSelect = .T.
.ExpandFolders = .T.
.ShowContextMenu = "menu replace `&Delete` with ``"
endwith
|
|
80
|
ShowContextMenu usage
*** ViewEndChanging event - Occurs once the user changed the view. ***
LPARAMETERS Operation
with thisform.CascadeFile1
DEBUGOUT( "Operation" )
DEBUGOUT( Operation )
DEBUGOUT( "ExecuteContextMenu" )
DEBUGOUT( .ExecuteContextMenu )
endwith
with thisform.CascadeFile1
.ColumnsVisible = 2
.Mode = 1539 && CascadeModeEnum.exDisableThumbnails Or CascadeModeEnum.exAutoFitOnResizeClient Or CascadeModeEnum.exSplitFixCascadeMode
.SingleSel = .F.
.FullRowSelect = .T.
.ShowContextMenu = "`Popup(Item 1[id=1001],Item 2[id=1002],Item 3[id=1003]),` + menu + `,Exit[id=1000]`"
endwith
|
|
79
|
ShowContextMenu usage
*** ViewEndChanging event - Occurs once the user changed the view. ***
LPARAMETERS Operation
with thisform.CascadeFile1
DEBUGOUT( "Operation" )
DEBUGOUT( Operation )
DEBUGOUT( "ExecuteContextMenu" )
DEBUGOUT( .ExecuteContextMenu )
endwith
with thisform.CascadeFile1
.ColumnsVisible = 2
.Mode = 1539 && CascadeModeEnum.exDisableThumbnails Or CascadeModeEnum.exAutoFitOnResizeClient Or CascadeModeEnum.exSplitFixCascadeMode
.SingleSel = .F.
.FullRowSelect = .T.
.ShowContextMenu = "filecount = 0 ? `Popup(Item 1[id=1001],Item 2[id=1002],Item 3[id=1003]),[sep],Exit[def][id=1000]` : menu"
endwith
|
|
78
|
ShowContextMenu usage
*** ViewEndChanging event - Occurs once the user changed the view. ***
LPARAMETERS Operation
with thisform.CascadeFile1
DEBUGOUT( "Operation" )
DEBUGOUT( Operation )
DEBUGOUT( "ExecuteContextMenu" )
DEBUGOUT( .ExecuteContextMenu )
endwith
with thisform.CascadeFile1
.ColumnsVisible = 2
.Mode = 1539 && CascadeModeEnum.exDisableThumbnails Or CascadeModeEnum.exAutoFitOnResizeClient Or CascadeModeEnum.exSplitFixCascadeMode
.FullRowSelect = .T.
.ShowContextMenu = "Popup(Item 1[id=1001],Item 2[id=1002],Item 3[id=1003]),[sep],Exit[def][id=1000]"
endwith
|
|
77
|
ShowContextMenu usage
*** ViewEndChanging event - Occurs once the user changed the view. ***
LPARAMETERS Operation
with thisform.CascadeFile1
DEBUGOUT( "Operation" )
DEBUGOUT( Operation )
DEBUGOUT( "ExecuteContextMenu" )
DEBUGOUT( .ExecuteContextMenu )
DEBUGOUT( "no context menu is generated, so nothing is displayed" )
endwith
with thisform.CascadeFile1
.ColumnsVisible = 2
.Mode = 1539 && CascadeModeEnum.exDisableThumbnails Or CascadeModeEnum.exAutoFitOnResizeClient Or CascadeModeEnum.exSplitFixCascadeMode
.FullRowSelect = .T.
.ShowContextMenu = "``"
endwith
|
|
76
|
How can I add new items to the default file's context menu
*** ViewEndChanging event - Occurs once the user changed the view. ***
LPARAMETERS Operation
with thisform.CascadeFile1
DEBUGOUT( "Operation" )
DEBUGOUT( Operation )
DEBUGOUT( "ContextMenu" )
DEBUGOUT( .ShowContextMenu )
.ShowContextMenu = .FormatABC("B = 20 ? ( `My First Popup[def](A,B,C),[sep],`+ value + `,[sep],My Last Popup[def](A,B,C)` ) : value",.ShowContextMenu,Operation)
DEBUGOUT( "Execute" )
DEBUGOUT( .ExecuteContextMenu )
endwith
with thisform.CascadeFile1
.ColumnsVisible = 2
.Mode = 1539 && CascadeModeEnum.exDisableThumbnails Or CascadeModeEnum.exAutoFitOnResizeClient Or CascadeModeEnum.exSplitFixCascadeMode
endwith
|
|
75
|
Is it possible to display the item's identifiers in the file's context menu
*** ViewEndChanging event - Occurs once the user changed the view. ***
LPARAMETERS Operation
with thisform.CascadeFile1
DEBUGOUT( "Operation" )
DEBUGOUT( Operation )
DEBUGOUT( "ContextMenu" )
DEBUGOUT( .ShowContextMenu )
.ShowContextMenu = .FormatABC("B = 20 ? (`[debug]`+ value) : value ",.ShowContextMenu,Operation)
endwith
with thisform.CascadeFile1
.ColumnsVisible = 2
.Mode = 1539 && CascadeModeEnum.exDisableThumbnails Or CascadeModeEnum.exAutoFitOnResizeClient Or CascadeModeEnum.exSplitFixCascadeMode
endwith
|
|
74
|
How can I remove the Delete command from the file's context menu
*** ViewEndChanging event - Occurs once the user changed the view. ***
LPARAMETERS Operation
with thisform.CascadeFile1
DEBUGOUT( "Operation" )
DEBUGOUT( Operation )
DEBUGOUT( "ContextMenu" )
DEBUGOUT( .ShowContextMenu )
.ShowContextMenu = .FormatABC("value replace `&Delete` with ``",.ShowContextMenu)
endwith
with thisform.CascadeFile1
.ColumnsVisible = 2
.Mode = 1539 && CascadeModeEnum.exDisableThumbnails Or CascadeModeEnum.exAutoFitOnResizeClient Or CascadeModeEnum.exSplitFixCascadeMode
endwith
|
|
73
|
How can I provide my own context menu
*** ViewEndChanging event - Occurs once the user changed the view. ***
LPARAMETERS Operation
with thisform.CascadeFile1
DEBUGOUT( "Operation" )
DEBUGOUT( Operation )
DEBUGOUT( "ContextMenu" )
DEBUGOUT( .ShowContextMenu )
.ShowContextMenu = "Item 1[id=1][def],Item 2[id=2],[sep][id=3],Popup[id=4](Item 3[id=5],Item 4[id=6])"
DEBUGOUT( "ExecuteContextMenu" )
DEBUGOUT( .ExecuteContextMenu )
endwith
with thisform.CascadeFile1
.ColumnsVisible = 2
.Mode = 1539 && CascadeModeEnum.exDisableThumbnails Or CascadeModeEnum.exAutoFitOnResizeClient Or CascadeModeEnum.exSplitFixCascadeMode
endwith
|
|
72
|
Is it possible to prevent executing a specific command from the object's context menu
*** ViewEndChanging event - Occurs once the user changed the view. ***
LPARAMETERS Operation
with thisform.CascadeFile1
DEBUGOUT( "Operation" )
DEBUGOUT( Operation )
DEBUGOUT( "ContextMenu" )
DEBUGOUT( .ShowContextMenu )
DEBUGOUT( "ExecuteContextMenu" )
DEBUGOUT( .ExecuteContextMenu )
.ExecuteContextMenu = 0
endwith
with thisform.CascadeFile1
.ColumnsVisible = 2
.Mode = 1539 && CascadeModeEnum.exDisableThumbnails Or CascadeModeEnum.exAutoFitOnResizeClient Or CascadeModeEnum.exSplitFixCascadeMode
endwith
|
|
71
|
How can I disable the Delete command from the object's context menu
*** ViewEndChanging event - Occurs once the user changed the view. ***
LPARAMETERS Operation
with thisform.CascadeFile1
DEBUGOUT( "Operation" )
DEBUGOUT( Operation )
DEBUGOUT( "ContextMenu" )
DEBUGOUT( .ShowContextMenu )
.ShowContextMenu = .FormatABC("value replace `&Delete` with `&Delete[dis]`",.ShowContextMenu)
endwith
with thisform.CascadeFile1
.ColumnsVisible = 2
.Mode = 1539 && CascadeModeEnum.exDisableThumbnails Or CascadeModeEnum.exAutoFitOnResizeClient Or CascadeModeEnum.exSplitFixCascadeMode
endwith
|
|
70
|
How can I turn off, disable the control's context menu
with thisform.CascadeFile1
.AllowContextMenu = .F.
.ColumnsVisible = 2
endwith
|
|
69
|
How can I decode the Layout property
with thisform.CascadeFile1
.AllowSplitView = 2
.Select = "C:\"
.SplitViewHeight = "256,256"
sLayout = .Layout
DEBUGOUT( "Encoded:" )
DEBUGOUT( sLayout )
with CreateObject("Exontrol.Print")
DEBUGOUT( "Decoded: " )
DEBUGOUT( .Decode64TextW(sLayout) )
endwith
endwith
|
|
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
with thisform.CascadeFile1
sLayout = .Layout
DEBUGOUT( "Save" )
DEBUGOUT( sLayout )
.Select = "C:\"
.Layout = sLayout
endwith
|
|
67
|
Turn on the backcolor alternate feature
with thisform.CascadeFile1
.BeginUpdate
.BackColorAlternate = RGB(240,240,240)
.ForeColorAlternate = RGB(40,40,40)
.Select = "C:\Windows\System32"
.EndUpdate
endwith
|
|
66
|
Display HTML in the control's status bar
with thisform.CascadeFile1
.BeginUpdate
.StatusBarVisible = 2
.Select = "C:\Windows\System32"
.FitCascadeColumns = 3
.StatusBarLabel = "Current: <b><%0%>"
.EndUpdate
endwith
|
|
65
|
Display relative name into the control's status bar
with thisform.CascadeFile1
.BeginUpdate
.ExploreFromHere = "C:\"
.StatusBarVisible = 2
.Select = "C:\Windows"
.FitCascadeColumns = 3
.StatusBarLabel = "<%3%>"
.EndUpdate
endwith
|
|
64
|
Display parsed name into the control's status bar
with thisform.CascadeFile1
.BeginUpdate
.StatusBarVisible = 2
.Select = "C:\Windows"
.FitCascadeColumns = 3
.StatusBarLabel = "<%2%> >"
.EndUpdate
endwith
|
|
63
|
Display name into the control's status bar (default)
with thisform.CascadeFile1
.BeginUpdate
.StatusBarVisible = 2
.Select = "C:\Windows"
.FitCascadeColumns = 3
.StatusBarLabel = "<%1%> >"
.EndUpdate
endwith
|
|
62
|
Display full path into the control's status bar
with thisform.CascadeFile1
.BeginUpdate
.StatusBarVisible = 2
.Select = "C:\Windows"
.FitCascadeColumns = 3
.StatusBarLabel = "<%0%>"
.EndUpdate
endwith
|
|
61
|
Removes the extra > shown at the end of the status label
with thisform.CascadeFile1
.BeginUpdate
.StatusBarVisible = 2
.Select = "C:\Windows"
.FitCascadeColumns = 3
.Object.Background(174) = RGB(0,0,1)
.Object.Background(169) = RGB(255,255,255)
.StatusBarLabel = "<%1%>"
.EndUpdate
endwith
|
|
60
|
Just wondering if I can show the status on the bottom side of the control
with thisform.CascadeFile1
.BeginUpdate
.Select = "C:\Windows"
.FitCascadeColumns = 3
.StatusBarVisible = 1
.EndUpdate
endwith
|
|
59
|
How can I hide the control's status
with thisform.CascadeFile1
.BeginUpdate
.StatusBarVisible = 0
.EndUpdate
endwith
|
|
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
with thisform.CascadeFile1
.BeginUpdate
.Mode = 3
.FitCascadeColumns = 3
.AllowSplitView = 2
.ColumnsVisible = 2
.HeaderVisible = .F.
.Select = "c:\Windows\System32"
.SplitViewHeight = "256"
.EndUpdate
endwith
|
|
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 )
with thisform.CascadeFile1
.BeginUpdate
.ColumnsVisible = 2
.HeaderVisible = .F.
.Select = "c:\Windows\System32"
.FitToClient(3)
.EndUpdate
endwith
|
|
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 )
with thisform.CascadeFile1
.BeginUpdate
.ColumnsVisible = 2
.HeaderVisible = .F.
.Select = "c:\Windows\System32"
.FitToClient(3)
.EndUpdate
endwith
|
|
55
|
I am trying to use your control as a file-view, but without any generated thumbnail. Is this possible
*** ViewEndChanging event - Occurs once the user changed the view. ***
LPARAMETERS Operation
with thisform.CascadeFile1
DEBUGOUT( "ViewEndChanging: " )
DEBUGOUT( Operation )
DEBUGOUT( .Select )
endwith
*** ViewStartChanging event - Occurs once the user is about to change the view. ***
LPARAMETERS Operation
with thisform.CascadeFile1
DEBUGOUT( "ViewStartChanging: " )
DEBUGOUT( Operation )
endwith
with thisform.CascadeFile1
.BeginUpdate
.Mode = 1027 && CascadeModeEnum.exDisableThumbnails Or CascadeModeEnum.exSplitFixCascadeMode
.Layout = "Select0 = "+chr(34)+"c:\|d:\"+chr(34)+""
.EndUpdate
endwith
|
|
54
|
How can I prevent resizing the cascade columns, once the user resizes the entire control
*** ViewEndChanging event - Occurs once the user changed the view. ***
LPARAMETERS Operation
with thisform.CascadeFile1
DEBUGOUT( "ViewEndChanging: " )
DEBUGOUT( Operation )
DEBUGOUT( .Select )
endwith
*** ViewStartChanging event - Occurs once the user is about to change the view. ***
LPARAMETERS Operation
with thisform.CascadeFile1
DEBUGOUT( "ViewStartChanging: " )
DEBUGOUT( Operation )
endwith
with thisform.CascadeFile1
.BeginUpdate
.FitToClient(3)
.Mode = 3
.Select = "c:\Windows"
.EndUpdate
endwith
|
|
53
|
Is it possible to disable resizing the cascade columns
*** ViewEndChanging event - Occurs once the user changed the view. ***
LPARAMETERS Operation
with thisform.CascadeFile1
DEBUGOUT( "ViewEndChanging: " )
DEBUGOUT( Operation )
DEBUGOUT( .Select )
endwith
*** ViewStartChanging event - Occurs once the user is about to change the view. ***
LPARAMETERS Operation
with thisform.CascadeFile1
DEBUGOUT( "ViewStartChanging: " )
DEBUGOUT( Operation )
endwith
with thisform.CascadeFile1
.BeginUpdate
.FitToClient(3)
.Mode = 771 && CascadeModeEnum.exAutoFitOnResizeClient Or CascadeModeEnum.exDisableResizeCascadeColumns Or CascadeModeEnum.exSplitFixCascadeMode
.Select = "c:\Windows"
.EndUpdate
endwith
|
|
52
|
SplitFixCascadeMode Mode
*** ViewEndChanging event - Occurs once the user changed the view. ***
LPARAMETERS Operation
with thisform.CascadeFile1
DEBUGOUT( "ViewEndChanging: " )
DEBUGOUT( Operation )
DEBUGOUT( .Select )
endwith
*** ViewStartChanging event - Occurs once the user is about to change the view. ***
LPARAMETERS Operation
with thisform.CascadeFile1
DEBUGOUT( "ViewStartChanging: " )
DEBUGOUT( Operation )
endwith
with thisform.CascadeFile1
.BeginUpdate
.Mode = 3
.Select = "c:\"
.EndUpdate
endwith
|
|
51
|
FixCascadeMode Mode
*** ViewEndChanging event - Occurs once the user changed the view. ***
LPARAMETERS Operation
with thisform.CascadeFile1
DEBUGOUT( "ViewEndChanging: " )
DEBUGOUT( Operation )
DEBUGOUT( .Select )
endwith
*** ViewStartChanging event - Occurs once the user is about to change the view. ***
LPARAMETERS Operation
with thisform.CascadeFile1
DEBUGOUT( "ViewStartChanging: " )
DEBUGOUT( Operation )
endwith
with thisform.CascadeFile1
.BeginUpdate
.HeaderVisible = .F.
.DefColumnWidth = 128
.Mode = 0
.Select = "c:\Windows"
.EndUpdate
endwith
|
|
50
|
SplitEqualCascadeMode Mode
*** ViewEndChanging event - Occurs once the user changed the view. ***
LPARAMETERS Operation
with thisform.CascadeFile1
DEBUGOUT( "ViewEndChanging: " )
DEBUGOUT( Operation )
DEBUGOUT( .Select )
endwith
*** ViewStartChanging event - Occurs once the user is about to change the view. ***
LPARAMETERS Operation
with thisform.CascadeFile1
DEBUGOUT( "ViewStartChanging: " )
DEBUGOUT( Operation )
endwith
with thisform.CascadeFile1
.BeginUpdate
.Mode = 2
.Select = "c:\"
.EndUpdate
endwith
|
|
49
|
Default Mode
*** ViewEndChanging event - Occurs once the user changed the view. ***
LPARAMETERS Operation
with thisform.CascadeFile1
DEBUGOUT( "ViewEndChanging: " )
DEBUGOUT( Operation )
DEBUGOUT( .Select )
endwith
*** ViewStartChanging event - Occurs once the user is about to change the view. ***
LPARAMETERS Operation
with thisform.CascadeFile1
DEBUGOUT( "ViewStartChanging: " )
DEBUGOUT( Operation )
endwith
with thisform.CascadeFile1
.BeginUpdate
.Select = "c:\Windows"
.FitToClient(3)
.EndUpdate
endwith
|
|
48
|
SingleCascadeMode ( folder view mode )
*** ViewEndChanging event - Occurs once the user changed the view. ***
LPARAMETERS Operation
with thisform.CascadeFile1
DEBUGOUT( "ViewEndChanging: " )
DEBUGOUT( Operation )
DEBUGOUT( .Select )
endwith
*** ViewStartChanging event - Occurs once the user is about to change the view. ***
LPARAMETERS Operation
with thisform.CascadeFile1
DEBUGOUT( "ViewStartChanging: " )
DEBUGOUT( Operation )
endwith
with thisform.CascadeFile1
.BeginUpdate
.StatusBarVisible = 0
.Mode = 1
.Select = "c:\Windows"
.EndUpdate
endwith
|
|
47
|
How to expand more folders, when single cascade mode is used
with thisform.CascadeFile1
.BeginUpdate
.StatusBarVisible = 0
.Mode = 1
.Layout = "Expand0 = "+chr(34)+"c:\|d:\|e:\"+chr(34)+";SelectMode0 = 0"
.EndUpdate
endwith
|
|
46
|
Is it possible to programmatically selects more folders
with thisform.CascadeFile1
.BeginUpdate
.Layout = "Select0 = "+chr(34)+"c:\|d:\|e:\"+chr(34)+";SelectMode0 = 0"
.EndUpdate
endwith
|
|
45
|
Is it possible to programmatically expand a folder (sample 4, select, expand more)
with thisform.CascadeFile1
.BeginUpdate
.Layout = "Expand0 = "+chr(34)+"c:\|d:\|e:\"+chr(34)+";SelectMode0 = 0"
.EndUpdate
endwith
|
|
44
|
Is it possible to programmatically expand a folder (sample 3)
with thisform.CascadeFile1
.BeginUpdate
.Layout = "Expand0 = "+chr(34)+"c:\"+chr(34)+";SelectMode0 = 2"
.EndUpdate
endwith
|
|
43
|
Is it possible to programmatically expand a folder (sample 2)
with thisform.CascadeFile1
.BeginUpdate
.Layout = "Expand0 = "+chr(34)+"c:\"+chr(34)+";SelectMode0 = 1"
.EndUpdate
endwith
|