|
297
|
ImageSize property on 32 (specifies the size of control' icons/images/check-boxes/radio-buttons)
with ExFileView1 do
begin
BeginUpdate();
ImageSize := 32;
DefaultItemHeight := 36;
HeaderHeight := DefaultItemHeight;
Font.Size := 16;
FilterBarFont.Size := ExFileView1.Font.Size;
ToolTipFont.Size := ExFileView1.Font.Size;
Indent := 26;
with VisualAppearance do
begin
Add(1,'gBFLBCJwBAEHhEJAAEhABfICg6AADACAxRDgMQBQKAAzQFAYbhkGCGAAGMZxRgmFgAQhFcZQSKUOQTDKMIziaQAGgkNQwCSLIwjNIsBxPFKVQChEYxSjKA40SJNUgyj6' +
'CCY+QLIE5PfQgAL9I6eJABCCSQKkYx0HScRiwPBIbAZAYhCZqaKhWgkKI/WBQIABRDVLx5ESiLRtKy7Mq2bpvXBcNxXHalaztO68LxvKyqHb5fJ/PpgL4YHgmC4NQ7EM' +
'RwF6rfbyfZ7Xg/ORPTijZ4sdzMHTzJyscx3HqfaBoOaZU5eMLceTUMofHIndxCcasPbsOatVqjG5sYjcGC3La9cz3Pq/bpuDCbMxuaK1TrYXr1TTrcofBDldAxXRKDxR' +
'DWVhLnYOw9i6XxzjuXprCaOoKB6EwbiCZZCGOdZYlcT4xHmbhMnwNxtn+G5bmqdZ7n4Pw/i+X5zm+dQ9g4CAFjsfAJheOI8HsDoWDWTB/lwSAQkmA5PEgRYoDyDwYFYF' +
'oFmGCBmBqBphDgRJ0gOTIYBGRB/lyRh0iSCZbjYWJzgWDwIjYLoLmMCJGDKDJjBgWgqG6YhyhGHRzA2aJ1mCABOAiOJvhCZBJBYRoRmSCQmEqEQimkAZgg8TZnDCV4Uk' +
'mCUmBKZYJGYWoWCUUhiFMNZckNUh2GENoaGaGZmgmJhqhqZpGGIEx2GYIxSGGGJdggWJth2Z4JmYeoemeSZ2H6H4hGmQhihyTRHGYLg7CiCgmgqIpokoNoOiOaJ4jqAo' +
'chqaZGgaCxpAoZoaiaaJqEmWIcGgShcnCJwqEqFoR3YOoFlgchflqNouiuawHmWSYqGkWZQhcatzmaOoumuSp2j6L5bBaKo0GQKRnGGCxqiyCwmkqMpsksNpOGUGI7A0' +
'ew1G0Rxlg0PptgsZuDG2Sx2l6N5tnYNZZjUDRXDCVo5l2FoymqOpukuNpujubwLjmWY5k0ZwxkaFxYlWdp6j6b5Lnafo/nABQdg2FxcUsY5BkmXAkmeQpckwNRrkKTh8' +
'CSHZBk4NwyC4KxxgMDwakOMZDn8GgwnGAo2C4cwthMcwmCcMoHBMHRehwTIghySYNksZwcH4HBMEsHx5hyPItiweYxnwSZEH4Mozn0fR+DMAo7EYJ50gkdZelKdNql2U' +
'gJn0GIukwH4HicQRai2GI4mSVpNl0dZGledgNgcYpYDWUx3FsOQi5YV5anaTY3G6W53A2RxylydxFjiaxEFCCgBBAQ==');
Add(2,'gBFLBCJwBAEHhEJAAEhABcoFg6AADACAxRDgMQBQKAAzQFAYbhkGCGAAGMZxRgmFgAQhFcZQSKUOQTDKMIziaQAGgkNQwCSLIwjNIsBxPFKVQChEYxSjKA40SJNUgyj6' +
'CCY+QLIE5PfQgAL9I6eJABCCSQKkYx0HScRiwPBIbAZAYhCZqaKhWgkKI/WBQIABRDVLx5ESiLRtKy7Mq2bpvXBcNxXHalaztO68LxvKyqHb5fJ/PpgL4YHgmC4NQ7EM' +
'RwF6rfbyfZ7Xg/ORPTijZ4sdzMHTzJyscx3HqfaBoOaZU5eMLceTUMofHIndxCcasPbsLpOS5LNKsaxmWLYdhFdTxQi6LpvfA8BwXC6JY7heRYRbFbYxRjGNi1TS7G4n' +
'GKd5WGuL4UHwI4VkaYxii8V4pgQMgVBQdQ5iCTYGi8T4vlWbJ3nuPg+l+H5AlSCg6ByPBoE8Ap3jqYxhBido5g0OgOGOGI4CsSpCCAcgcAuEokiEN5NCKfJ9DyTRjnSc' +
'g1CEYxOBmBpPCgagdgcIZoHoGIFA4AxQkCAxKAgKBwgGSpIBCZhjF2E5UnQPQMiMCJBCIBwxkSQgsgo+JtDKT4ziiQw+k6EwAnsOgLnkHI+yCQ4iEuE4klkPhShEJBpA' +
'oPgymOMoaDgHBjFMBgyD0HYTiCZSZhIIIGC4ChiHSew5kwM5omILZPiOBI0hwZw5kodIdA+M4Uj4PxOmMSJ9DuTQzmyZgviceZagaHVfj4awwmaAh2GUIYmCOEZZDaDR' +
'DFGdwcg4EwyHMN4LBOaJbCoaZqgKH8qkMfIyD8DozDyfA7A0Coui0OpMmOZJdCsahKg6NooioChwmEMxLEoXJbDUTRXGSUgykyMgQG0GpPHMdI3D4TRCgSeQ0kmaw+lG' +
'NAtCOZJVCiT5DhyRQwAqMg0EoDBBGEGAsASC5yiSCw+k4Mp6lWNQuksTpRjMTxDGzJwGmGMpDDKXYTECSAxl6Q5olkK4PgMMIVkASRMBMBgzEkaZEjsNALhIZA6AeQBg' +
'k0ZJEgAAJ0CIAgODMNIsD6DRih9uYwFyAwfCUb5ijmbI+gwdxkk8MZMGeMpPCkDxzBiC5MHMPJLDSSROFMLIoBEQogEMFJPnENYQGgE4DCOaJfC7tYkhGTQ0kyWwykuX' +
'pMiyRpKjKR4wngM4JmOWJACCdYtHMWw+Eych4nINYLAEYA8AgdAEEsQZajaQoog4GxPiMVIolcdxNG8XZVkmNoRwWRVBlFeFEeAZQJgnFiHgHwcAhjhHgGMSI5xki2Cy' +
'A4EQsA3i0HkBsLwKRFgAHcPkHopBJBcBeDUYI7xyDOHqKkWo2hLCsDIBIY4qQ5A8DoMMYwOAqCSBGKgU4yB2iDBwIgB4hxQgAAWNgBoAgsBdEcBUQ4sQ9A/HqD0JI8Rp' +
'BzH2OYVgahLBHFiJQJweQiDhDUE4SAARQAzFsG0EQwA6AOWSBkFgVAIBCHeGERQFQiCQHeFkC4vkiB8DyB4F4QxVDvGMNEOQexMjlBeOAKQiQLgfDA7QEAaRiBdEkH8T' +
'I7AZiFBAGYBIABWjYBiGACioQ4C1A+AMMgWhfgxHgPsT4URIB0COKgPgjRwiAB8AYUArxBgCF6J4GY5hrAOCAPAAoGRRCsCIMEXATXfgAF8BMJwURuEQDgD4Q4OBoAeH' +
'GFgLIwQrC2D0JoSQ+QvhrHoSgQI8AbDFGID8C4Ah6BQAQAASACwgCYCMAUMARAvCKAiAMCAokeCKBEOAKgCBoDaHuMsEAqwJDiACDURg8R6gPCyDofYWAhgoDIJ4ZAuh' +
'oiGAYGgRoQw/A0GMMga4GwxiEDeIYYInATCDBQAoBAwAoDlA0KMBoVRGiDGwDQUYIRsgaGGDgM4LAwDWB8EcIA1APhjEgGQVwgRIgjFIIQHokgZA+CSEkLIKQSjHAwMs' +
'CwDAsAEB2ABTIwRwD6A8CMToSxkAxE4HYIw+BsgbBEDAHYBwojCBoIYFgXSjABE4MsHIbQWhlGILQS4UhvBdAUKEEwHgxDAAABQQQUAhgKHiDwE4JS4A7BGLQZwCR4ga' +
'BEMUYAqgKApHgGwVAIRNgvBMMQXImwZDtE4I8UIyAZCDCAE8AwrhgAdEEBACQLRCg4FEB4AYtA7CdEiPQMoJAMDNCkOMCAXAFDhH0D0Q4EgfAaGSK4NYzRUj9BuCgAgs' +
'wOBjB4Fqpw8B2ADAwE4A4Qx2DAE6JIaQPQGhAGKBcIQ5B5gHByKIFARwADbAyKUfgdBKBBGyEcVIAB/ijHoIoSA0gdBNl+OATYERZgBGSDYWIWAUCEGKA4FAhR7CIBtY' +
'QGYZg4CMAiKEcAOwkBjHWE8Z4lQgA+DkBoTohwwCeAaMEEgBQCCABgHMRwQRhhMEWFQd4HwZgwDqFESItAbAGEANCpINAzANCCJkK4ah+heFYBURwsQrS2CsMYMoWGBh' +
'YDWI0EInQgiApXaOVI1QFDsC8MUNoMBMA1HMJga4eh+BeAWOgNNowGjYzCGAAwax+iJBeBVT4gxoBIAGFsJFBxgBiGKFkKQ7g5DFFQEcAo4AzDDACKEQQLgCiJDYB0Mg' +
'RBCCQAgQEA==');
Add(3,'gBFLBCJwBAEHhEJAAEhABQ4Fg6AADACAxRDgMQBQKAAzQFAYbhkGCGAAGMZxRgmFgAQhFcZQSKUOQTDKMIziaQAGgkNQwCSLIwjNIsBxPFKVQChEYxSjKA40SJNUgyj6' +
'CCY+QLIE5PfQgAL9I6eJABCCSQKkYx0HScRiwPBIbAZAYhCZqaKhWgkKI/WBQIABRDVLx5ESiLRtKy7Mq2bpvXBcNxXHalaztO68LxvKyqHb5fJ/PpgL4YHgmC4NQ7EM' +
'RwF6rfbyfZ7Xg/ORPTijZ4sdzMHTzJyscx3HqfaBoOaZU5eMLceTUMofHIndxCcasPbsLpOS5LNKsaxmWLYdhFdTxQi6LpvfA8BwXC6JY7heRYRbFbYxRjGNi1TS7G4n' +
'GKd5WGuL4UHwI4VkaYxii8V4pgQMgVBQdQ5iCTYGi8T4vlWbJ3nuPg+l+H5AlSCg6ByPBoE8Ap3jqYxhBido5g0OgOGOGI4CsSpCCAcgcAuEosiYN5NHMOJ+D4TpTnSe' +
'Q7CEY4uBmBpPhgagdgcIZoHibIEyUBJZDQIJShoCgcCAcoyAQOYYlcZJ1D0DxDCiQgwEiAZMHEMJLFKPJ9D2DoDnidQ4k+Y5QmKEROBkIhKD0JIZDIS4TGUCQuEeEJjn' +
'OIg8CuY4RkYNgwGMM5RllGpThDRYIGKZIpCkJFUH0PINyWcQ3CaaZCG+HBnEOTJhD8Tx4GoeQ/GcaZSHOH5nCmQhshoZhihYYwhiYA4RlkNoNEMUZ3ByDjwEsPxOnMaJ' +
'9DuDR6F6GYmCmKh0nANtMioP4Gg8aoSiIO5NhodociqaY6GaFYkEyOg8lsNRNTaUgykyMgQG0GpPiONJbD8DpDEyfA6k0KwOkWMQsGsAJU0SagwkoJQJDIPISCQCJTGS' +
'UwyGaM4KkmMgtksHpFjAZ4TGCBAbgaSpcksdhNAMIJHHsD5TjSWWMAMOpwjyLwbk6cAz0KRJiDkDYzESCwiggcgcgYIQwCIEINCMCITj6TVxkMXp2j0cQLlCTo7E2F4y' +
'mkMZdhMPJHDGHpLAyVg+k4UwrCCSIyByDJ8DuDY8CiWY0kiXAXC6QJwFKGIjCeJpjgyezjlyDw6klHx5myRoMGwZwbkcToTEiew4kwbQfEmUgPkOKJUD4DpTHSHQmgkX' +
'I/ASTA1g0XIEDMTBimyfI7jSLYHEiUoPk0Fw/kadAsHGao8A0A5smEMJ2mNyg5gzJZwDgCpChyIZVyIZwFCMJEPASRkBqE+IcHInRcDxA2H4bIsx0AtDsIBpwZwYicD6' +
'BscwDwUBgHCIYaIfgtiVH2O4WgUwJjEFeAEQA7y4hMCiBMS4aRdB9A4CYE4LxljyBMHcDItBxinDCLcTYmgejBFQ9UTg9gFBOEmAQTI7A4iZGMGkQAWQ7jYA2HIL8BRA' +
'jDG4HcCwARbjZHiNoDw1nLDnGyNINQ+wjCpBMEgcovQUgICQJEcgWRuBvAyJ4d4ugpCUAINcHogxIgnDiM4N4axzD3F2JMTY/hRqYF6FsWIxhYAGGoAALQYgYirBwBEB' +
'wpAjBEAAIEIYsA2gOHCMAGgXAACIDmMITAUgFABH0D0I4WwvhNFGMAOIvxRD2GKNcMA8gjAPDCPwBogRPAxA8PgRwZRICYDED8RAXQEghEAN8DIgwIBdB4JYWwMgtiQH' +
'oFQKAiRFguFKGwGQhglDsEOVwEQQRkCKBwOIHgSREDRBYHEXQcQdD7GIGARQHRxipBrMobgewDCUCADsEYWAzgMHKHQDQxxsDzA6EMfAeQHB4GQDkUYPA0iECiKoGgRh' +
'cDdA2GMQA8AOCjDSPgHI4QnApAKBICwHg1A+BcAwcYsgbjGGQNkCIgRsA6EcBEWANADjsB0B8YYzQQDIGSBcEYZBCCPEkFIHQSgkgZAwG4IwBAbAYGGAgL4Ch4g8BOCQ' +
'AA2KKC0GcAke4AAXAFCoHkDw4xbBFEcJkE4JRSiEFeJYKQVRMgJHODwX4xAgC/AsIIZAeAHDRG0HYI40RKCLEGDUI4jAghwBWIceA+whCpHMFYZYOQxglDMHMBQGxYjV' +
'HiAoBIPgfgHGwPsHYJRSB6A0IERQLhCjJHMA4OQoAoCOACLYGYSx8DpBQIMWQdRnDRH+DsE4fB3CeAmM67kAAXBFEIDYDI7wLBtEoEIfYNwjiUGGJQYQMAjCHEAO0C4z' +
'xW29CoCgfIxR9AKA6J8BgUAIhDGMIoJ40hqgwCgKETgnBhhqCGI0AIqgZhGDANQDIlBDCRGkCoJISR0g1BSKQOgfAzBRG0DYHARh4DeDAOwANuw8ApCKKkYg/RPhjBsH' +
'0J4yg5hPGWN0GwFBHQBFaDoQIURljFAoB4GgzRVzbBECQFQRQoguHGHANwDRdCKy8CgSIGwhhoDYJYYI1giBICSAEgI=');
Add(4,'gBFLBCJwBAEHhEJAAEhABUYCg6AADACAxRDgMQBQKAAzQFAYbhkGCGAAGMZxRgmFgAQhFcZQSKUOQTDKMIziYBYfgkMIgSbJUgDGAkRRdDSOYDmGQYDiCIoRShOMIjHL' +
'UXxtDaIZwhEAoJb+RgAUY/cTzaAEUwHHiTKInaCQShsFYJUJAdRURQ9EwvCIZBpEWwLChENQwWLCNj2TScBwjCyqbale45ViqdoDU5EUiXJJ8ZxnECfYyrGjaMpCeKBU' +
'rGYTVRBIMxLLSia5oeJqMrnBpNVrIUgXCAGFwHK6BcauXIIDp6XoWWRbAAWDpVVzNNC3YzkCIceADHKiXxmVz4JLdGZ1QTGID2XaYaxWK4oZjsVSc4KDHbETbHFi9Fo3' +
'NaaxGisew+GYc4HlCR5NAAAIIEkQJSGMOgdE4RhYDwJJsAaAYQgmPpolCWgSCiBJzjcEIAkQXIBm8d5UhOQgCDUIBDDJDhgggJgKgKYJIDSVoDk8KBFF4OohEMZgWDsY' +
'YDj4GoGmGSB2B6B5iAiBgYDsYRjGSbIJo4RgqDuIpIAoLoLmMCJGDKDJjJiLA7xqUAAgGTwYnYPoPmQCQGEKEJkEkFg9gGY44BoRoSmSSQ2EKEggHgRhShSZRJFYVoVm' +
'WCRmFKFAgGOTheheZgJgYYoYmYSYWGaF4lkMMJ0hqZpJjYbobmcCZGHKHJmjmJh0h2Z4JmYcIaE8WZ2H6H5oAoBoCiCaBKBYfdjGoJoKiKaJKDaDojmkChGgmIgpCoVo' +
'WiWaJZiSd4mmmSh2h6J5qAqBoiiiaY5iSeIpmqComiqKpqkqNouiuah6hqMIsmsSpWiuGhP1kOoumuSp2j6L5sAsBo54gKwWkaMZsgsJpKjKbJLDaRYxYWRpSjSbIZiS' +
'e41m2CxmlqNptksdpejebR5iSfI4m4S4W16boLiaao6m5fJ9jubwLkaco8m8S5WnaPZunuOp4j6b5Lnac4SA0PAGlgP4wEwFwGkGcIMCcCpCnCCxiA8NYAAmMJfkSbhF' +
'CcFpFnGDBnBqRpUhuEwTDeZ5lHCfw6HIQxLCaAxygyJwqgGcATE4FA6hWY4tjEAAQBAgIA==');
end;
BackColorHeader := $4c6c6c6;
SelBackColor := $4000000;
SelForeColor := RGB(0,0,1);
Background[EXFILEVIEWLib_TLB.exSelBackColorFilter] := SelBackColor;
Background[EXFILEVIEWLib_TLB.exSelForeColorFilter] := SelForeColor;
Background[EXFILEVIEWLib_TLB.exBackColorFilter] := BackColor;
Background[EXFILEVIEWLib_TLB.exForeColorFilter] := ForeColor;
Background[EXFILEVIEWLib_TLB.exHeaderFilterBarButton] := $4000000;
Background[EXFILEVIEWLib_TLB.exHeaderFilterBarActive] := $4010101;
Background[EXFILEVIEWLib_TLB.exFooterFilterBarButton] := $40000ff;
Background[EXFILEVIEWLib_TLB.exCheckBoxState0] := $1000000;
Background[EXFILEVIEWLib_TLB.exCheckBoxState1] := $2000000;
Background[EXFILEVIEWLib_TLB.exCheckBoxState2] := $3000000;
ExpandFolders := True;
FilterBarPromptVisible := EXFILEVIEWLib_TLB.FilterBarVisibleEnum($ffffd0e8 Or Integer(EXFILEVIEWLib_TLB.exFilterBarTop) Or Integer(EXFILEVIEWLib_TLB.exFilterBarCompact) Or Integer(EXFILEVIEWLib_TLB.exFilterBarShowCloseOnRight) Or Integer(EXFILEVIEWLib_TLB.exFilterBarShowCloseIfRequired) Or Integer(EXFILEVIEWLib_TLB.exFilterBarToggle) Or Integer(EXFILEVIEWLib_TLB.exFilterBarSingleLine) Or Integer(EXFILEVIEWLib_TLB.exFilterBarCaptionVisible) Or Integer(EXFILEVIEWLib_TLB.exFilterBarVisible) Or Integer(EXFILEVIEWLib_TLB.exFilterBarPromptVisible));
HasCheckBox := EXFILEVIEWLib_TLB.PartialCheckBox;
ExploreFromHere := '';
Expand('C:');
ColumnFilterButton['Type'] := True;
EndUpdate();
end
|
|
296
|
ImageSize property on 16 (default) (specifies the size of control' icons/images/check-boxes/radio-buttons)
with ExFileView1 do
begin
BeginUpdate();
ImageSize := 16;
with VisualAppearance do
begin
Add(4,'gBFLBCJwBAEHhEJAAEhABUYCg6AADACAxRDgMQBQKAAzQFAYbhkGCGAAGMZxRgmFgAQhFcZQSKUOQTDKMIziYBYfgkMIgSbJUgDGAkRRdDSOYDmGQYDiCIoRShOMIjHL' +
'UXxtDaIZwhEAoJb+RgAUY/cTzaAEUwHHiTKInaCQShsFYJUJAdRURQ9EwvCIZBpEWwLChENQwWLCNj2TScBwjCyqbale45ViqdoDU5EUiXJJ8ZxnECfYyrGjaMpCeKBU' +
'rGYTVRBIMxLLSia5oeJqMrnBpNVrIUgXCAGFwHK6BcauXIIDp6XoWWRbAAWDpVVzNNC3YzkCIceADHKiXxmVz4JLdGZ1QTGID2XaYaxWK4oZjsVSc4KDHbETbHFi9Fo3' +
'NaaxGisew+GYc4HlCR5NAAAIIEkQJSGMOgdE4RhYDwJJsAaAYQgmPpolCWgSCiBJzjcEIAkQXIBm8d5UhOQgCDUIBDDJDhgggJgKgKYJIDSVoDk8KBFF4OohEMZgWDsY' +
'YDj4GoGmGSB2B6B5iAiBgYDsYRjGSbIJo4RgqDuIpIAoLoLmMCJGDKDJjJiLA7xqUAAgGTwYnYPoPmQCQGEKEJkEkFg9gGY44BoRoSmSSQ2EKEggHgRhShSZRJFYVoVm' +
'WCRmFKFAgGOTheheZgJgYYoYmYSYWGaF4lkMMJ0hqZpJjYbobmcCZGHKHJmjmJh0h2Z4JmYcIaE8WZ2H6H5oAoBoCiCaBKBYfdjGoJoKiKaJKDaDojmkChGgmIgpCoVo' +
'WiWaJZiSd4mmmSh2h6J5qAqBoiiiaY5iSeIpmqComiqKpqkqNouiuah6hqMIsmsSpWiuGhP1kOoumuSp2j6L5sAsBo54gKwWkaMZsgsJpKjKbJLDaRYxYWRpSjSbIZiS' +
'e41m2CxmlqNptksdpejebR5iSfI4m4S4W16boLiaao6m5fJ9jubwLkaco8m8S5WnaPZunuOp4j6b5Lnac4SA0PAGlgP4wEwFwGkGcIMCcCpCnCCxiA8NYAAmMJfkSbhF' +
'CcFpFnGDBnBqRpUhuEwTDeZ5lHCfw6HIQxLCaAxygyJwqgGcATE4FA6hWY4tjEAAQBAgIA==');
end;
BackColorHeader := $4c6c6c6;
SelBackColor := $4000000;
SelForeColor := RGB(0,0,1);
ExpandFolders := True;
FilterBarPromptVisible := EXFILEVIEWLib_TLB.FilterBarVisibleEnum($ffffd0e8 Or Integer(EXFILEVIEWLib_TLB.exFilterBarTop) Or Integer(EXFILEVIEWLib_TLB.exFilterBarCompact) Or Integer(EXFILEVIEWLib_TLB.exFilterBarShowCloseOnRight) Or Integer(EXFILEVIEWLib_TLB.exFilterBarShowCloseIfRequired) Or Integer(EXFILEVIEWLib_TLB.exFilterBarToggle) Or Integer(EXFILEVIEWLib_TLB.exFilterBarSingleLine) Or Integer(EXFILEVIEWLib_TLB.exFilterBarCaptionVisible) Or Integer(EXFILEVIEWLib_TLB.exFilterBarVisible) Or Integer(EXFILEVIEWLib_TLB.exFilterBarPromptVisible));
HasCheckBox := EXFILEVIEWLib_TLB.PartialCheckBox;
ExploreFromHere := '';
Expand('C:');
ColumnFilterButton['Type'] := True;
EndUpdate();
end
|
|
295
|
Is it possible to view all events the control fires
// Event event - Notifies the application once the control fires an event.
procedure TForm1.ExFileView1Event(ASender: TObject; EventID : Integer);
begin
with ExFileView1 do
begin
OutputDebugString( EventParam[-2] );
end
end;
|
|
294
|
Is there any event to notify that the control still loading files and/or folders
// StateChange event - Fired while the control's state has been changed.
procedure TForm1.ExFileView1StateChange(ASender: TObject; State : StateChangeEnum);
begin
with ExFileView1 do
begin
OutputDebugString( FormatABC('value = 22 ? `LoadingState` : (value = 9 ? `BeforeLoadState` : (value = 10 ? `AfterLoadState` : ``))',OleVariant(State),Null,Null) );
end
end;
|
|
293
|
How to initiate the OLE drag and drop support for the control
// OLEStartDrag event - Occurs when the OLEDrag method is called.
procedure TForm1.ExFileView1OLEStartDrag(ASender: TObject; Data : IExDataObject;var AllowedEffects : Integer);
begin
// Data.SetData("files to drag")
with ExFileView1 do
begin
AllowedEffects := 1;
end
end;
with ExFileView1 do
begin
OLEDropMode := EXFILEVIEWLib_TLB.exOLEDropManual;
SingleSel := False;
end
|
|
292
|
Is it possible to highlight the column's header once a filter is applied
with ExFileView1 do
begin
BeginUpdate();
with VisualAppearance do
begin
Add(2,'gBFLBCJwBAEHhEJAAEhABX8GACAADACAxSDEMQBQKAAzQFAYbhgHCGAAGQaBUgmFgAQhFcZQSKUOQTDKNYykCIRSDUJYkSZEIyjBI8ExXFqNACkGKwYgmNYiTLAcgANJ' +
'0WBaGIZJ4gOT5fDKMoEDRRYADFCscwxJybQAqGQKKb+VgAVY/cTyBIAEQSKA0TDOQ5TSKWB4JPZQRBEbZMNBtBIUJquKaqShdQJCU5FdY3Xblez9P7AMBwLFEC4NQ8YN' +
'YuPhjR4dRTIMhvVAsUArFh8Zg9GZZFjmDIDT4ydBLTQwcyVIKnP5qOa6XbmPoCQDYKxZHYxPzVDa3axuL76dqCAT7XrXNy1TbNRrzQKfcJqfCbdw2YaDZLOOT3fjuI4h' +
'hKaRzFAHJ+jYQ4xHuY4gHuGIXGeExqC8Tp6C+PoEm+G5ImycRgh0XwvDGa5rgOeoejyXwnFeQp2mkf5ClgBB9gCWIYAwfYAEKV58mkdwOggNArgOXY2EWLoDkKOA0mgb' +
'hOGgZApgaSBIHWSYHSmbApgYThmESZYJkIeIkgeCpfliLIHgpMIcmUYYYmODAlg2SI4mWfRfGOEguDcCRjFYAJihCQhJBSDoRmONgKEcI4kFCEJhhOVYTmYnAlEAQhWB' +
'MJYJGYWoWmWSR2F6F5lnkWAQhUAgpEieRWEuSYkjWGpmkmNhuhuZwJkYcocmaaYkjyEhngnUA6lEFAlAEgI=');
Add(1,'CP:2 -8 -4 2 4');
end;
Background[EXFILEVIEWLib_TLB.exHeaderFilterBarButton] := $1fefefe;
Background[EXFILEVIEWLib_TLB.exHeaderFilterBarActive] := $1010101;
Background[EXFILEVIEWLib_TLB.exCursorHoverColumn] := $ffffffff;
ExploreFromHere := '';
ColumnFilterButton['Name'] := True;
ColumnFilterButton['Type'] := True;
FilterBarFont := (IUnknown(Font) as stdole_TLB.StdFont);
Description[EXFILEVIEWLib_TLB.DescriptionTypeEnum($8 Or Integer(EXFILEVIEWLib_TLB.exFilterBarPatternFilterTitle))] := FormatABC('`<fgcolor=808080> ` + value + ` </fgcolor>`',OleVariant(Description[EXFILEVIEWLib_TLB.DescriptionTypeEnum($8 Or Integer(EXFILEVIEWLib_TLB.exFilterBarPatternFilterTitle))]),Null,Null);
FilterBarCaption := '(( ( all replace `[<b>` with `<bgcolor=000000><fgcolor=FFFFFF><b> ` replace `</b>]` with ` </b></bgcolor></fgcolor>` replace `[<' +
's>` with `<bgcolor=C0C0C0><fgcolor=FFFFFF> ` replace `</s>]` with ` </fgcolor></bgcolor>` ) + `<r><fgcolor=808080>` + ( matchit' +
'emcount < 0 ? ( ( len(value) ? `` : `` ) + `<r>` + abs(matchitemcount + 1) + ` result(s)` ) : (`<r><fgcolor=808080>`+ itemcount ' +
'+ ` item(s)`) )))';
FilterBarPromptVisible := Integer(EXFILEVIEWLib_TLB.exFilterBarVisible) Or Integer(EXFILEVIEWLib_TLB.exFilterBarPromptVisible);
EndUpdate();
end
|
|
291
|
How can I get the file being dropped by drag and drop
// OLEDragDrop event - Occurs when a source component is dropped onto a target component when the source component determines that a drop can occur.
procedure TForm1.ExFileView1OLEDragDrop(ASender: TObject; Data : IExDataObject;var Effect : Integer;Button : Smallint;Shift : Smallint;X : Integer;Y : Integer);
begin
with ExFileView1 do
begin
OutputDebugString( Data );
end
end;
with ExFileView1 do
begin
ExploreFromHere := '';
OLEDropMode := EXFILEVIEWLib_TLB.exOLEDropManual;
end
|
|
290
|
Is it possible to show the filterbar on top of the rows
with ExFileView1 do
begin
FilterBarPromptVisible := Integer(EXFILEVIEWLib_TLB.exFilterBarTop) Or Integer(EXFILEVIEWLib_TLB.exFilterBarShowCloseIfRequired) Or Integer(EXFILEVIEWLib_TLB.exFilterBarPromptVisible);
end
|
|
289
|
Computers and Devices
with ExFileView1 do
begin
ExploreFromHere := '::{F02C1A0D-BE21-4350-88B0-7367FC96EF3C}';
end
|
|
288
|
StreamBackedFolder
with ExFileView1 do
begin
ExploreFromHere := '::{EDC978D6-4D53-4b2f-A265-5805674BE568}';
end
|
|
287
|
Games Explorer
with ExFileView1 do
begin
ExploreFromHere := '::{ED228FDF-9EA8-4870-83b1-96b02CFE0D52}';
end
|
|
286
|
CLSID_StartMenuPathCompleteProviderFolder
with ExFileView1 do
begin
ExploreFromHere := '::{e345f35f-9397-435c-8f95-4e922c26259e}';
end
|
|
285
|
CLSID_StartMenuProviderFolder
with ExFileView1 do
begin
ExploreFromHere := '::{daf95313-e44d-46af-be1b-cbacea2c3065}';
end
|
|
284
|
Offline Files
with ExFileView1 do
begin
ExploreFromHere := '::{BD7A2E7B-21CB-41b2-A086-B309680C6B7E}';
end
|
|
283
|
Other Users Folder
with ExFileView1 do
begin
ExploreFromHere := '::{B4FB3F98-C1EA-428d-A78A-D1F5659CBA93}';
end
|
|
282
|
CLSID_StartMenuCommandingProviderFolder
with ExFileView1 do
begin
ExploreFromHere := '::{a00ee528-ebd9-48b8-944a-8942113d46ac}';
end
|
|
281
|
CLSID_StartMenuLauncherProviderFolder
with ExFileView1 do
begin
ExploreFromHere := '::{98f275b4-4fff-11e0-89e2-7b86dfd72085}';
end
|
|
280
|
Search Home
with ExFileView1 do
begin
ExploreFromHere := '::{9343812e-1c37-4a49-a12e-4b2d810d956b}';
end
|
|
279
|
CLSID_AppInstanceFolder
with ExFileView1 do
begin
ExploreFromHere := '::{64693913-1c21-4f30-a98f-4e52906d3b56}';
end
|
|
278
|
Control Panel command object for Start menu and desktop
with ExFileView1 do
begin
ExploreFromHere := '::{5399E694-6CE5-4D6C-8FCE-1D8870FDCBA0}';
end
|
|
277
|
This PC
with ExFileView1 do
begin
ExploreFromHere := '::{20D04FE0-3AEA-1069-A2D8-08002B30309D}';
end
|
|
276
|
IE History and Feeds Shell Data Source for Windows Search
with ExFileView1 do
begin
ExploreFromHere := '::{11016101-E366-4D22-BC06-4ADA335C892B}';
end
|
|
275
|
Search Folder
with ExFileView1 do
begin
ExploreFromHere := '::{04731b67-d933-450a-90e6-4acd2e9408fe}';
end
|
|
274
|
OneDrive
with ExFileView1 do
begin
ExploreFromHere := '::{018D5C66-4533-4307-9B53-224DE2ED1FE6}';
end
|
|
273
|
Internet Explorer (Homepage)
with ExFileView1 do
begin
ExploreFromHere := '::{871c5380-42a0-1069-a2ea-08002b30309d}';
end
|
|
272
|
Public Libraries
with ExFileView1 do
begin
ExploreFromHere := '::{5b934b42-522b-4c34-bbfe-37a3ef7b9c90}';
end
|
|
271
|
Shared Documents Folder (Users Files)
with ExFileView1 do
begin
ExploreFromHere := '::{59031a47-3f72-44a7-89c5-5595fe6b30ee}';
end
|
|
270
|
Is it possible to change the visual appearance of the position signs when user changes the column's position by drag and drop
with ExFileView1 do
begin
BeginUpdate();
with VisualAppearance do
begin
Add(1,'gBFLBCJwBAEHhEJAAEhABZEGACAADACAxRDgMQBQKAAzAJBIYhiG4cYCgMYxXDOCYXABCEYRXBIZQ7BKNIxjSJwFgmEgADKMA4SOKIZhrE4bBhGaQRUgyI43RhHUBzVI' +
'UcQvE6TZRHCQYHgkNIhDJIM7TPLkeSVJaTIRoKhJUogApQThTMgVRDEThkGoSa6soSoYTDBKybLrSLKagOT5YUDKUqSdKEZRpEq1YztWbaQoCUoqVRRVIWfbNd4JJa4a' +
'DhWpYdpeeY5R7bWLgBYVVABL7LLRsSxpHxPF6RXxaeI3GKsaS8G6ic6nPQMHj7I4NS5pUa6Rh2VYNSa8AAtETRYznOw4bTMXAjNIea5bAYIIR5HIoDzVbQcCQAHL9DBe' +
'EMIQEEISgGhMGZQmocgymoYRRCIEQ0G2HYBnEIBig4V4zCQGINnmagCECY43medZ6H2Pw/g+X5fnueh/h+R5+AKABfkMWgGgGYA4AICoCGCE5WA4CphACMgSD2IRIDIB' +
'ICmEd5YGCBpRjGBgegWIYIgWdgoGIRQsiKCZiAiJZ0gGQI4jUS4LECOAiBmDJflGfg2BSY4Al4OhGkOCJ2DgFJjGGfgqgiH5Ch4RhGkqOQmEOEpkFkHQYhJRYyESAokG' +
'KHhIhKIxJEmf4VGUeRGFmF5iBkchPhYJQ5GoYIZg6Ug6GoFYmkmNhuhulRGHKGoImefh0BUZ4JmYeoemeSZ2H6HQmgoBgXDqXwUAQgI=');
Add(2,'CP:1 0 -36 0 0');
end;
Background[EXFILEVIEWLib_TLB.exColumnsPositionSign] := $2000000;
ExploreFromHere := '';
EndUpdate();
end
|
|
269
|
Displays the time without seconds, smaller and with a different color
with ExFileView1 do
begin
BeginUpdate();
ExploreFromHere := '';
ExpandFolders := True;
ColumnFilterButton['Name'] := True;
Option[EXFILEVIEWLib_TLB.exModifiedDaysAgo] := '(((valueS left ( valueS rfind `:` )) + (valueS right ( len(valueS) - ( valueS rfind ` ` ) )) replace ` ` with `<fgcolor=808080><' +
'font ;6> ` ))';
ColumnsVisible := Integer(EXFILEVIEWLib_TLB.exFileColumnModified) Or Integer(EXFILEVIEWLib_TLB.exFileColumnType) Or Integer(EXFILEVIEWLib_TLB.exFileColumnName);
ModifiedDaysAgo := -1;
EndUpdate();
end
|
|
268
|
Displays the date-time with no seconds part
with ExFileView1 do
begin
BeginUpdate();
ExploreFromHere := '';
ExpandFolders := True;
ColumnFilterButton['Name'] := True;
Option[EXFILEVIEWLib_TLB.exModifiedDaysAgo] := '(valueS left ( valueS rfind `:` )) + (valueS right ( len(valueS) - ( valueS rfind ` ` ) ))';
ColumnsVisible := Integer(EXFILEVIEWLib_TLB.exFileColumnModified) Or Integer(EXFILEVIEWLib_TLB.exFileColumnType) Or Integer(EXFILEVIEWLib_TLB.exFileColumnName);
ModifiedDaysAgo := -1;
EndUpdate();
end
|
|
267
|
Displays the Modified column in long date format, as specified in the control's panel ( no time is displayed )
with ExFileView1 do
begin
BeginUpdate();
ExploreFromHere := '';
ExpandFolders := True;
ColumnFilterButton['Name'] := True;
Option[EXFILEVIEWLib_TLB.exModifiedDaysAgo] := 'longdate(value)';
ColumnsVisible := Integer(EXFILEVIEWLib_TLB.exFileColumnModified) Or Integer(EXFILEVIEWLib_TLB.exFileColumnType) Or Integer(EXFILEVIEWLib_TLB.exFileColumnName);
ModifiedDaysAgo := -1;
EndUpdate();
end
|
|
266
|
Displays the modified date in "MM/DD/YYYY HH:MM:SS" format, so 1/1/2001 will be displayed such as 01/01/2001
with ExFileView1 do
begin
BeginUpdate();
ExploreFromHere := '';
ExpandFolders := True;
ColumnFilterButton['Name'] := True;
Option[EXFILEVIEWLib_TLB.exModifiedDaysAgo] := 'dateF(value)';
ColumnsVisible := Integer(EXFILEVIEWLib_TLB.exFileColumnModified) Or Integer(EXFILEVIEWLib_TLB.exFileColumnType) Or Integer(EXFILEVIEWLib_TLB.exFileColumnName);
ModifiedDaysAgo := -1;
EndUpdate();
end
|
|
265
|
Displays the modified date without the time
with ExFileView1 do
begin
BeginUpdate();
ExploreFromHere := '';
ExpandFolders := True;
ColumnFilterButton['Name'] := True;
Option[EXFILEVIEWLib_TLB.exModifiedDaysAgo] := 'date(int(value))';
ColumnsVisible := Integer(EXFILEVIEWLib_TLB.exFileColumnModified) Or Integer(EXFILEVIEWLib_TLB.exFileColumnType) Or Integer(EXFILEVIEWLib_TLB.exFileColumnName);
ModifiedDaysAgo := -1;
EndUpdate();
end
|
|
264
|
Displayes the modified time with a different color
with ExFileView1 do
begin
BeginUpdate();
ExploreFromHere := '';
ExpandFolders := True;
ColumnFilterButton['Name'] := True;
Option[EXFILEVIEWLib_TLB.exModifiedDaysAgo] := 'valueS replace ` ` with `<off -4><fgcolor=808080><font ;6> `';
ColumnsVisible := Integer(EXFILEVIEWLib_TLB.exFileColumnModified) Or Integer(EXFILEVIEWLib_TLB.exFileColumnType) Or Integer(EXFILEVIEWLib_TLB.exFileColumnName);
ModifiedDaysAgo := -1;
EndUpdate();
end
|
|
263
|
Displays all files/folders modified n days ago, with white on a black background
with ExFileView1 do
begin
BeginUpdate();
ExploreFromHere := '';
ExpandFolders := True;
ColumnFilterButton['Name'] := True;
Option[EXFILEVIEWLib_TLB.exModifiedDaysAgo] := '`<bgcolor=000000><fgcolor=FFFFFF>` + valueS';
ModifiedDaysAgo := 31;
ColumnsVisible := Integer(EXFILEVIEWLib_TLB.exFileColumnModified) Or Integer(EXFILEVIEWLib_TLB.exFileColumnType) Or Integer(EXFILEVIEWLib_TLB.exFileColumnName);
EndUpdate();
end
|
|
262
|
Displays today for all files/folders modified today, yesterday for all files modified yesterday, else "%i day(s) ago"
with ExFileView1 do
begin
BeginUpdate();
ExploreFromHere := '';
ExpandFolders := True;
ColumnFilterButton['Name'] := True;
Option[EXFILEVIEWLib_TLB.exModifiedDaysAgo] := 'daysago = 0 ? `today` : (daysago = 1 ? `yesterday` : (daysago + ` day(s) ago`))';
ModifiedDaysAgo := 31;
ColumnsVisible := Integer(EXFILEVIEWLib_TLB.exFileColumnModified) Or Integer(EXFILEVIEWLib_TLB.exFileColumnType) Or Integer(EXFILEVIEWLib_TLB.exFileColumnName);
EndUpdate();
end
|
|
261
|
Displays today for all files/folders else "%i day(s) ago"
with ExFileView1 do
begin
BeginUpdate();
ExploreFromHere := '';
ExpandFolders := True;
ColumnFilterButton['Name'] := True;
ModifiedDaysAgo := 31;
ColumnsVisible := Integer(EXFILEVIEWLib_TLB.exFileColumnModified) Or Integer(EXFILEVIEWLib_TLB.exFileColumnType) Or Integer(EXFILEVIEWLib_TLB.exFileColumnName);
EndUpdate();
end
|
|
260
|
FilterBarCaption ALL Keyword ( sample 2, result )
with ExFileView1 do
begin
BeginUpdate();
ExploreFromHere := '';
ColumnFilterButton['Name'] := True;
FilterBarFont := (IUnknown(Font) as stdole_TLB.StdFont);
Description[EXFILEVIEWLib_TLB.DescriptionTypeEnum($8 Or Integer(EXFILEVIEWLib_TLB.exFilterBarPatternFilterTitle))] := FormatABC('`<fgcolor=808080> ` + value + ` </fgcolor>`',OleVariant(Description[EXFILEVIEWLib_TLB.DescriptionTypeEnum($8 Or Integer(EXFILEVIEWLib_TLB.exFilterBarPatternFilterTitle))]),Null,Null);
FilterBarCaption := '(( ( all replace `[<b>` with `<bgcolor=000000><fgcolor=FFFFFF><b> ` replace `</b>]` with ` </b></bgcolor></fgcolor>` replace `[<' +
's>` with `<bgcolor=C0C0C0><fgcolor=FFFFFF> ` replace `</s>]` with ` </fgcolor></bgcolor>` ) + `<r><fgcolor=808080>` + ( matchit' +
'emcount < 0 ? ( ( len(value) ? `` : `` ) + `<r>` + abs(matchitemcount + 1) + ` result(s)` ) : (`<r><fgcolor=808080>`+ itemcount ' +
'+ ` item(s)`) )))';
FilterBarPromptVisible := Integer(EXFILEVIEWLib_TLB.exFilterBarVisible) Or Integer(EXFILEVIEWLib_TLB.exFilterBarPromptVisible);
EndUpdate();
end
|
|
259
|
FilterBarCaption ALL Keyword ( sample 1 )
with ExFileView1 do
begin
BeginUpdate();
ExploreFromHere := '';
ColumnFilterButton['Name'] := True;
FilterBarFont := (IUnknown(Font) as stdole_TLB.StdFont);
Description[EXFILEVIEWLib_TLB.DescriptionTypeEnum($8 Or Integer(EXFILEVIEWLib_TLB.exFilterBarPatternFilterTitle))] := FormatABC('`<fgcolor=808080> ` + value + ` </fgcolor>`',OleVariant(Description[EXFILEVIEWLib_TLB.DescriptionTypeEnum($8 Or Integer(EXFILEVIEWLib_TLB.exFilterBarPatternFilterTitle))]),Null,Null);
FilterBarCaption := 'all';
FilterBarPromptVisible := Integer(EXFILEVIEWLib_TLB.exFilterBarVisible) Or Integer(EXFILEVIEWLib_TLB.exFilterBarPromptVisible);
EndUpdate();
end
|
|
258
|
FilterBarCaption ALLUI Keyword ( sample 2, result )
with ExFileView1 do
begin
BeginUpdate();
ExploreFromHere := '';
ColumnFilterButton['Name'] := True;
FilterBarFont := (IUnknown(Font) as stdole_TLB.StdFont);
Description[EXFILEVIEWLib_TLB.DescriptionTypeEnum($8 Or Integer(EXFILEVIEWLib_TLB.exFilterBarPatternFilterTitle))] := FormatABC('`<fgcolor=808080> ` + value + ` </fgcolor>`',OleVariant(Description[EXFILEVIEWLib_TLB.DescriptionTypeEnum($8 Or Integer(EXFILEVIEWLib_TLB.exFilterBarPatternFilterTitle))]),Null,Null);
FilterBarCaption := '(( ( allui replace `[<b>` with `<bgcolor=000000><fgcolor=FFFFFF><b> ` replace `</b>]` with ` </b></bgcolor></fgcolor>` replace `' +
'[<s>` with `<bgcolor=C0C0C0><fgcolor=FFFFFF> ` replace `</s>]` with ` </fgcolor></bgcolor>` ) + `<r><fgcolor=808080>` + ( match' +
'itemcount < 0 ? ( ( len(value) ? `` : `` ) + `<r>` + abs(matchitemcount + 1) + ` result(s)` ) : (`<r><fgcolor=808080>`+ itemcoun' +
't + ` item(s)`) )))';
FilterBarPromptVisible := Integer(EXFILEVIEWLib_TLB.exFilterBarVisible) Or Integer(EXFILEVIEWLib_TLB.exFilterBarPromptVisible);
EndUpdate();
end
|
|
257
|
FilterBarCaption ALLUI Keyword ( sample 1 )
with ExFileView1 do
begin
BeginUpdate();
ExploreFromHere := '';
ColumnFilterButton['Name'] := True;
FilterBarFont := (IUnknown(Font) as stdole_TLB.StdFont);
Description[EXFILEVIEWLib_TLB.DescriptionTypeEnum($8 Or Integer(EXFILEVIEWLib_TLB.exFilterBarPatternFilterTitle))] := FormatABC('`<fgcolor=808080> ` + value + ` </fgcolor>`',OleVariant(Description[EXFILEVIEWLib_TLB.DescriptionTypeEnum($8 Or Integer(EXFILEVIEWLib_TLB.exFilterBarPatternFilterTitle))]),Null,Null);
FilterBarCaption := 'allui';
FilterBarPromptVisible := Integer(EXFILEVIEWLib_TLB.exFilterBarVisible) Or Integer(EXFILEVIEWLib_TLB.exFilterBarPromptVisible);
EndUpdate();
end
|
|
256
|
FilterBarCaption AVAILABLE Keyword ( sample 2, result )
with ExFileView1 do
begin
BeginUpdate();
ExploreFromHere := '';
ColumnFilterButton['Name'] := True;
FilterBarFont := (IUnknown(Font) as stdole_TLB.StdFont);
Description[EXFILEVIEWLib_TLB.DescriptionTypeEnum($8 Or Integer(EXFILEVIEWLib_TLB.exFilterBarPatternFilterTitle))] := FormatABC('`<fgcolor=808080> ` + value + ` </fgcolor>`',OleVariant(Description[EXFILEVIEWLib_TLB.DescriptionTypeEnum($8 Or Integer(EXFILEVIEWLib_TLB.exFilterBarPatternFilterTitle))]),Null,Null);
FilterBarCaption := '(( ( value replace `[` with `<bgcolor=000000><fgcolor=FFFFFF><b> ` replace `]` with ` </b></bgcolor></fgcolor>` ) + ` ` + ( avai' +
'lable replace `[` with `<bgcolor=C0C0C0><fgcolor=FFFFFF><b> ` replace `]` with ` </b></bgcolor></fgcolor>` replace `<s>` with ``' +
' replace `</s>` with `` ) + `<fgcolor=808080>` + ( matchitemcount < 0 ? ( ( len(value) ? `` : `` ) + `<r>` + abs(matchitemcount ' +
'+ 1) + ` result(s)` ) : (`<r><fgcolor=808080>`+ itemcount + ` item(s)`) )))';
FilterBarPromptVisible := Integer(EXFILEVIEWLib_TLB.exFilterBarVisible) Or Integer(EXFILEVIEWLib_TLB.exFilterBarPromptVisible);
EndUpdate();
end
|
|
255
|
FilterBarCaption AVAILABLE Keyword ( sample 1 )
with ExFileView1 do
begin
BeginUpdate();
ExploreFromHere := '';
ColumnFilterButton['Name'] := True;
FilterBarFont := (IUnknown(Font) as stdole_TLB.StdFont);
Description[EXFILEVIEWLib_TLB.DescriptionTypeEnum($8 Or Integer(EXFILEVIEWLib_TLB.exFilterBarPatternFilterTitle))] := FormatABC('`<fgcolor=808080> ` + value + ` </fgcolor>`',OleVariant(Description[EXFILEVIEWLib_TLB.DescriptionTypeEnum($8 Or Integer(EXFILEVIEWLib_TLB.exFilterBarPatternFilterTitle))]),Null,Null);
FilterBarCaption := 'value + ` ` + available';
FilterBarPromptVisible := Integer(EXFILEVIEWLib_TLB.exFilterBarVisible) Or Integer(EXFILEVIEWLib_TLB.exFilterBarPromptVisible);
EndUpdate();
end
|
|
254
|
Is it possible to somehow highlight the column's name different than its filter value in the control's filter bar ( sample 3, results )
with ExFileView1 do
begin
BeginUpdate();
ExploreFromHere := '';
ColumnFilterButton['Name'] := True;
FilterBarFont := (IUnknown(Font) as stdole_TLB.StdFont);
Description[EXFILEVIEWLib_TLB.DescriptionTypeEnum($8 Or Integer(EXFILEVIEWLib_TLB.exFilterBarPatternFilterTitle))] := FormatABC('`<fgcolor=808080>` + value + `</fgcolor>`',OleVariant(Description[EXFILEVIEWLib_TLB.DescriptionTypeEnum($8 Or Integer(EXFILEVIEWLib_TLB.exFilterBarPatternFilterTitle))]),Null,Null);
FilterBarCaption := '(`<b>` + value + `</b><fgcolor=808080>` + ( matchitemcount < 0 ? ( ( len(value) ? `` : `` ) + `<r>` + abs(matchitemcount + 1) + ' +
'` result(s)` ) : (`<fgcolor=808080>`+ itemcount + ` item(s)`) )) replace `[` with `<bgcolor=000000><fgcolor=FFFFFF><b> ` replace' +
' `]` with ` </b></bgcolor></fgcolor>`';
FilterBarPromptVisible := EXFILEVIEWLib_TLB.exFilterBarToggle;
EndUpdate();
end
|
|
253
|
Is it possible to somehow highlight the column's name different than its filter value in the control's filter bar ( sample 2 )
with ExFileView1 do
begin
BeginUpdate();
ExploreFromHere := '';
ColumnFilterButton['Name'] := True;
FilterBarFont := (IUnknown(Font) as stdole_TLB.StdFont);
Description[EXFILEVIEWLib_TLB.DescriptionTypeEnum($8 Or Integer(EXFILEVIEWLib_TLB.exFilterBarPatternFilterTitle))] := FormatABC('`<fgcolor=808080>` + value + `</fgcolor>`',OleVariant(Description[EXFILEVIEWLib_TLB.DescriptionTypeEnum($8 Or Integer(EXFILEVIEWLib_TLB.exFilterBarPatternFilterTitle))]),Null,Null);
FilterBarCaption := 'value replace `[` with `<bgcolor=000000><fgcolor=FFFFFF><b> ` replace `]` with ` </b></bgcolor></fgcolor>`';
FilterBarPromptVisible := EXFILEVIEWLib_TLB.exFilterBarToggle;
EndUpdate();
end
|
|
252
|
Is it possible to somehow highlight the column's name different than its filter value in the control's filter bar ( sample 1 )
with ExFileView1 do
begin
BeginUpdate();
ExploreFromHere := '';
ColumnFilterButton['Name'] := True;
Description[EXFILEVIEWLib_TLB.DescriptionTypeEnum($8 Or Integer(EXFILEVIEWLib_TLB.exFilterBarPatternFilterTitle))] := FormatABC('`<fgcolor=808080>` + value + `</fgcolor>`',OleVariant(Description[EXFILEVIEWLib_TLB.DescriptionTypeEnum($8 Or Integer(EXFILEVIEWLib_TLB.exFilterBarPatternFilterTitle))]),Null,Null);
FilterBarCaption := 'value replace `[` with `<fgcolor=808080>[` replace `]` with `]</fgcolor>`';
FilterBarPromptVisible := EXFILEVIEWLib_TLB.exFilterBarToggle;
EndUpdate();
end
|
|
251
|
How can I get the number of results/items being shown in the control's filter bar (sample 4)
with ExFileView1 do
begin
BeginUpdate();
ExploreFromHere := '';
ColumnFilterButton['Name'] := True;
FilterBarFont := (IUnknown(Font) as stdole_TLB.StdFont);
FilterBarPrompt := FormatABC('`<b>` + value',OleVariant(FilterBarPrompt),Null,Null);
FilterBarCaption := '`<b><r>` + value + `</b><fgcolor=808080>` + ( matchitemcount < 0 ? ( ( len(value) ? `<br>` : `` ) + `<r>` + abs(matchitemcount +' +
' 1) + ` result(s)` ) : (`<fgcolor=808080>`+ itemcount + ` item(s)`) )';
FilterBarPromptVisible := Integer(EXFILEVIEWLib_TLB.exFilterBarCompact) Or Integer(EXFILEVIEWLib_TLB.exFilterBarShowCloseOnRight) Or Integer(EXFILEVIEWLib_TLB.exFilterBarShowCloseIfRequired) Or Integer(EXFILEVIEWLib_TLB.exFilterBarCaptionVisible) Or Integer(EXFILEVIEWLib_TLB.exFilterBarVisible) Or Integer(EXFILEVIEWLib_TLB.exFilterBarPromptVisible);
EndUpdate();
end
|
|
250
|
FilterBarCaption Predefined Keywords
with ExFileView1 do
begin
BeginUpdate();
ExploreFromHere := '';
ColumnFilterButton['Name'] := True;
FilterInclude := EXFILEVIEWLib_TLB.exItemsWithChilds;
FilterBarFont := (IUnknown(Font) as stdole_TLB.StdFont);
FilterBarCaption := '`<fgcolor=0000FF><i>value/current</i></fgcolor>: <fgcolor=808080>` + value + `</fgcolor>` + `<br><fgcolor=0000FF><i>available</i' +
'></fgcolor>: ` + available + `<br><fgcolor=0000FF><i>allui</i></fgcolor>: ` + allui + `<br><fgcolor=0000FF><i>all</i></fgcolor>:' +
' ` + all + `<br><fgcolor=0000FF><i>itemcount</i></fgcolor>: <fgcolor=808080>` + itemcount + `</fgcolor>`+ `<br><fgcolor=0000FF><' +
'i>visibleitemcount</i></fgcolor>: <fgcolor=808080>` + visibleitemcount + `</fgcolor>`+ `<br><fgcolor=0000FF><i>matchitemcount</i' +
'></fgcolor>: <fgcolor=808080>` + matchitemcount + `</fgcolor>`+ `<br><fgcolor=0000FF><i>promptpattern</i></fgcolor>: <fgcolor=80' +
'8080>` + promptpattern + `</fgcolor>`+ `<br><fgcolor=0000FF><i>leafitemcount</i></fgcolor>: <fgcolor=808080>` + leafitemcount + ' +
'`</fgcolor>`';
FilterBarPromptVisible := Integer(EXFILEVIEWLib_TLB.exFilterBarCaptionVisible) Or Integer(EXFILEVIEWLib_TLB.exFilterBarVisible) Or Integer(EXFILEVIEWLib_TLB.exFilterBarPromptVisible);
EndUpdate();
end
|
|
249
|
I am using filter prompt feature, and also column's filter, just wondering if possible to compact displaying the filter bar so it won't show on multiple lines
with ExFileView1 do
begin
BeginUpdate();
ExploreFromHere := '';
ColumnFilterButton['Name'] := True;
FilterBarFont := (IUnknown(Font) as stdole_TLB.StdFont);
FilterBarCaption := '`<r><i><fgcolor=808080><upline><solidline><sha ;;0>` + value';
FilterBarPromptVisible := Integer(EXFILEVIEWLib_TLB.exFilterBarCompact) Or Integer(EXFILEVIEWLib_TLB.exFilterBarSingleLine) Or Integer(EXFILEVIEWLib_TLB.exFilterBarVisible) Or Integer(EXFILEVIEWLib_TLB.exFilterBarPromptVisible);
EndUpdate();
end
|
|
248
|
Just wondering if it is possible to show the filter bar's close button on the right ( sample 2 )
with ExFileView1 do
begin
BeginUpdate();
ExploreFromHere := '';
ColumnFilterButton['Name'] := True;
FilterBarPromptVisible := Integer(EXFILEVIEWLib_TLB.exFilterBarShowCloseOnRight) Or Integer(EXFILEVIEWLib_TLB.exFilterBarToggle) Or Integer(EXFILEVIEWLib_TLB.exFilterBarPromptVisible);
FilterBarPrompt := FormatABC('`<r>` + value',OleVariant(FilterBarPrompt),Null,Null);
EndUpdate();
end
|
|
247
|
How can I change the visual appearance of the filter bar's close button (EBN)
with ExFileView1 do
begin
BeginUpdate();
with VisualAppearance do
begin
Add(1,'gBFLBCJwBAEHhEJAAEhABHQDg6AADACAxRDgMQBQKAAzAJBIYhiG4cYCgMZhXDOCYXABCEYRXBIZQ7BKNIxjSJ5BhIAAyDSJMjSRJUEhqGCWYDleYYYAKHIMQLOg7IJj' +
'yI4/SJAYCydKAWhxIaZKJHCZoEDaTAADCNVAQp6MEIJVbVEI0e79OgBLp/Z7kECIJJAaRjHQdJxGLA8EhtCQhCZteK6SgMKJYXhWQYRXI1JwvMBrWrdQjiOYELQtMKmS' +
'ZNLYGG4dR5SVJbcYhSYsRRFMoyDIOXYDLKsdYqSpXIThObEGgaPqJYjsUjCMKnR7HVIURrBPC9TBPE69ZgmC6ucKPX51ShKFaBWDZcwFAS+UBuYCAILiEAQGZ1XT8ORO' +
'icbgJgSTJRlCaZeDsHY7QGR4xkSYp3CaExZAQMgalQYAwjCAAfBANxcA2TgKAUOpDCGFhKg0RpXCwCwDHQHQHEyAIkCkOhbFOGA8A8DohBgRg9AccZcn8EpEjMLI2C2D' +
'YxAgQgvAIUIVkoAAPBQDJlECTZ3CCYwDACQwUA8A5MCAWAWDiQi4l8aQOEgLJuBgBgDmYFAzEoIoIl0WALgKYJbBABADAAHgHg8VAMmqCQQDMXABAATYwTmNwBDATJXA' +
'iAgjHmNQ5lgQ5QEQEQMmcWg/GwD5ylyNw2gMcJcjsBgBgOQQDDhRpVAMMwnDBFw1B0Ax8D0DxOmmJJIGQTY5hGMAwkwM4CAYLZAmAOJnAqAojiIGg6iieYkmeAYOHaKJ' +
'DCyCwjH6AoggsQpQliAJLhgaJ0CESBTnyDwjk+cg4g4P5IHIHJ+BWRRzlYWAxiOUxihsY4KjKLJRGqC44FCegkkkM58iAKAPnIWIWD8SRSFSfQnkmewUhYP4GiGKJ7G0' +
'TIbCSUoggqUo0lAQ4LnEcBcD8Coiiif4nE+eAAn2HpOkcFJqi4T5SkyMw/kqQown8IBIBOdA+A+DJrBqVxXEqYo4lCApLhGHBnD8S4ymyfxmg+cwQkQP5egOUZIWoEAk' +
'jIeIPBMBJBD+TBjBifwvkuc58hQJQPmFrYykkchclSApKjGOBuD+TRDFCfw3mmIxNi8FxFlOXhVC4aYDFyPgvg2YBcBcLZGCGCJ0DSLRzGSWQ/lmY5+mEP5gmMDBZRSM' +
'RsFsOxMhMJJ/DsTpTnwaQaE+N5ojuNhdEYNI5C4TZJO1GRDmCaxnA2Yx4n8IpIjOTBQBQC5TgyYw7gUYRYikC0BYRwsDQBoB8eA6Q2hsE0BUXgywZtYCyHMKwnxSAhAQ' +
'HkIQhRrBaDsCwA4ERiB2EWAIYIXhhiVEgAEUYwwYjyASLge4FhHgRDkM8OQih0jWPkGgBBAQ');
end;
ExploreFromHere := '';
ColumnFilterButton['Name'] := True;
FilterBarPromptVisible := Integer(EXFILEVIEWLib_TLB.exFilterBarToggle) Or Integer(EXFILEVIEWLib_TLB.exFilterBarPromptVisible);
Background[EXFILEVIEWLib_TLB.exFooterFilterBarButton] := $1000000;
EndUpdate();
end
|
|
246
|
How can I change the visual appearance of the filter bar's close button (solid)
with ExFileView1 do
begin
BeginUpdate();
ExploreFromHere := '';
ColumnFilterButton['Name'] := True;
FilterBarPromptVisible := EXFILEVIEWLib_TLB.exFilterBarPromptVisible;
Background[EXFILEVIEWLib_TLB.exFooterFilterBarButton] := $ff;
EndUpdate();
end
|
|
245
|
Is it possible to prevent definitely showing the filter bar's close button
with ExFileView1 do
begin
BeginUpdate();
ExploreFromHere := '';
ColumnFilterButton['Name'] := True;
FilterBarPromptVisible := EXFILEVIEWLib_TLB.exFilterBarPromptVisible;
Background[EXFILEVIEWLib_TLB.exFooterFilterBarButton] := $ffffffff;
EndUpdate();
end
|
|
244
|
Is it possible to show the close button only if there is a filter applied
with ExFileView1 do
begin
BeginUpdate();
ExploreFromHere := '';
ColumnFilterButton['Name'] := True;
FilterBarPromptVisible := Integer(EXFILEVIEWLib_TLB.exFilterBarShowCloseIfRequired) Or Integer(EXFILEVIEWLib_TLB.exFilterBarPromptVisible);
EndUpdate();
end
|
|
243
|
The control's filter bar is not closed once I click the close button (toggle)
with ExFileView1 do
begin
BeginUpdate();
ExploreFromHere := '';
ColumnFilterButton['Name'] := True;
FilterBarCaption := '`<r><fgcolor=808080>` + value';
FilterBarPromptVisible := Integer(EXFILEVIEWLib_TLB.exFilterBarCompact) Or Integer(EXFILEVIEWLib_TLB.exFilterBarToggle) Or Integer(EXFILEVIEWLib_TLB.exFilterBarSingleLine) Or Integer(EXFILEVIEWLib_TLB.exFilterBarVisible) Or Integer(EXFILEVIEWLib_TLB.exFilterBarPromptVisible);
EndUpdate();
end
|
|
242
|
How can I display the control's filter on a single line
with ExFileView1 do
begin
BeginUpdate();
ExploreFromHere := '';
ColumnFilterButton['Name'] := True;
FilterBarCaption := 'len(value) ? `filter for: <fgcolor 808080>` + value : `<fgcolor 808080>no filter`';
FilterBarPromptVisible := Integer(EXFILEVIEWLib_TLB.exFilterBarSingleLine) Or Integer(EXFILEVIEWLib_TLB.exFilterBarVisible);
EndUpdate();
end
|
|
241
|
How can I display the control's filter on a single line (prompt-combined)
with ExFileView1 do
begin
BeginUpdate();
ExploreFromHere := '';
ColumnFilterButton['Name'] := True;
FilterBarCaption := '`<r>` + value';
FilterBarPromptVisible := Integer(EXFILEVIEWLib_TLB.exFilterBarCompact) Or Integer(EXFILEVIEWLib_TLB.exFilterBarSingleLine) Or Integer(EXFILEVIEWLib_TLB.exFilterBarVisible) Or Integer(EXFILEVIEWLib_TLB.exFilterBarPromptVisible);
EndUpdate();
end
|
|
240
|
Is it possible to prevent closing the control's filter bar, so it is always shown (prompt-combined)
with ExFileView1 do
begin
BeginUpdate();
ExploreFromHere := '';
ColumnFilterButton['Name'] := True;
FilterBarPromptVisible := Integer(EXFILEVIEWLib_TLB.exFilterBarVisible) Or Integer(EXFILEVIEWLib_TLB.exFilterBarPromptVisible);
EndUpdate();
end
|
|
239
|
Is it possible to prevent closing the control's filter bar, so it is always shown (prompt)
with ExFileView1 do
begin
BeginUpdate();
ExploreFromHere := '';
ColumnFilterButton['Name'] := True;
FilterBarPromptVisible := EXFILEVIEWLib_TLB.exFilterBarPromptVisible;
EndUpdate();
end
|
|
238
|
Is it possible to prevent closing the control's filter bar, so it is always shown
with ExFileView1 do
begin
BeginUpdate();
ExploreFromHere := '';
ColumnFilterButton['Name'] := True;
FilterBarCaption := 'len(value) = 0 ? `<fgcolor=808080>no filter` : value';
FilterBarPromptVisible := EXFILEVIEWLib_TLB.exFilterBarVisible;
EndUpdate();
end
|
|
237
|
Is it possible to show the selection with a different color, when the control loses the focus
with ExFileView1 do
begin
BeginUpdate();
SingleSel := False;
ExploreFromHere := '';
HideSelection := False;
Background[EXFILEVIEWLib_TLB.exSelBackColorHide] := $e0e0e0;
Background[EXFILEVIEWLib_TLB.exSelForeColorHide] := $404040;
EndUpdate();
end
|
|
236
|
Predefined Keywords of ShowContextMenu property
// StateChange event - Fired while the control's state has been changed.
procedure TForm1.ExFileView1StateChange(ASender: TObject; State : StateChangeEnum);
begin
with ExFileView1 do
begin
ExecuteContextMenu := 0;
end
end;
with ExFileView1 do
begin
ExploreFromHere := '';
ShowContextMenu := '`menu(` + menu + `)` + `,filecount=` + filecount + `,fileattr=` + hex(fileattr) + `,filename=` + filename + `,fileparsename=` + ' +
'fileparsename + `,filefullname=` + filefullname';
end
|
|
235
|
How can I change the visual appearance of the +/- buttons, open/close glyphs as current visual theme
with ExFileView1 do
begin
BeginUpdate();
ExpandFolders := True;
with VisualAppearance do
begin
Add(1,'XP:TREEVIEW 2 1');
Add(2,'XP:TREEVIEW 2 2');
end;
Background[EXFILEVIEWLib_TLB.exTreeGlyphOpen] := $1000000;
Background[EXFILEVIEWLib_TLB.exTreeGlyphClose] := $2000000;
EndUpdate();
end
|
|
234
|
How can I find if the control is running in DPI mode
with ExFileView1 do
begin
OutputDebugString( FormatABC('dpi = 1 ? `normal/stretch mode` : `dpi mode`',Null,Null,Null) );
end
|
|
233
|
How can I change the visual appearance of the +/- buttons
with ExFileView1 do
begin
BeginUpdate();
ExpandFolders := True;
with VisualAppearance do
begin
Add(1,'gBFLBCJwBAEHhEJAAEhABDwCg6AADACAxRDgMQBQKAAzAJBIYhiG4cYCgMZhXDOCYXABCEYRXBIZQ7BKNIxjSJ5BhIAAyDSJMjSRJUEhqGCWYDleYYYAKHIMQLJQKQSB' +
'cQR9EaBZBAWTpQC0OJDTJRI4TNAgbSYAAYRqoCb6loTKypaxjCQQIgkUBpGKdBynEYsDwSGyJCCJWyIbpKAwoVbcs4AYhuJpaQi+d5PFbjVT8dLAMBwLA8EwXAJ+OpfD' +
'xXU7eFKpR5fchXTI8UxXFqXZhkeQrfh7KYVRBKdBQRBEFQPJqnahqOpaXo2RoLUJKcQwHTmHYNQTALyuTALZrWeZ3XrgN74LbtZzVQauYRpbCMEr6bpoWLnFi6Ho1U4l' +
'lWah1jqSweFqfxPgQQRphi+Yak0YIuqUfJegef4zluaJ3nqPJeCYH4BAeX5TDLBpVGqKRRnwf4flefZtHsX54BYAR/F+EwVnUd5eAMMJKDIChygyIQpAoEh4iIJ5JlgX' +
'IcgCXpIGoFwnGEQh6BEKBgmMIICHgIJCAiUAzgyUoAhwJohkiRgygwYpiGoKwzGIcgKCkNQNCMRIbCYCRYk4QoMiOchWDwNBjhiJJaDYTRiGiFwlCQAhOE8JBJHITIRg' +
'wZRZFCFCZBkOIUhKTRpCWAwgGYQ4El4NxlBifIWCcCYCFoaoMGaKYyG6GxlBmGJdhkCAWBIeA5g4U4QhMJAImkPIShRVxGgQJRlCIUISh+SJpnCZIeBgFgiHgO4OlOMI' +
'NCISByECDQikkGhuh2JwpmqBogCKaYiC6FwhmkQ4yHgYgYiaHopiuaRakCbIsisSpGjYOwaHYKYMCkK5CA2IxrCwCwFigaJrkLTI6lcdANAEgIA=');
Add(2,'gBFLBCJwBAEHhEJAAEhABEICg6AADACAxRDgMQBQKAAzAJBIYhiG4cYCgMZhXDOCYXABCEYRXBIZQ7BKNIxjSJ5BhIAAyDSJMjSRJUEhqGCWYDleYYYAKHIMQLJQKQSB' +
'cQR9EaBZBAWTpQC0OJDTJRI4TNAgbSYAAYRqoCb6loTKypaxjCQQIgkUBpGKdBynEYsDwSGyJCCJWyIbpKAwoVbcs4AYhuJpaQi+d5PFbjVT8dLAMBwLA8EwXAJ+OpfD' +
'xXU7eFKpR5fchXTI8UxXFqXZhkeQrfh7KYVRBKdBQRBEFQPJqnahqOpaXo2RoLUJKcQwHTmHYNQTALyuTALZrWeZ3XrgN74LbtZzVQauYRpbCMEr6bpoWLnFi6Ho1U4l' +
'lWah1jqSweFqfxPgQQRphi+Yak0YIuqUfJeg8X4rluaZ3niGB+AQHx/EyShjjEVYqiUR5rnmex/GAB5+AIf4gEeXJFHyXZ3gCTAygyAociMKBKEKBIeCiCZyHYFAnCEe' +
'Bkh+BghFgRIegOCgYCySAgh4CAkgINAMmMNIgCcCYjn4LoLmMCJGDKC5ijIagoDMYhCAoJg1A0IxEhsJgJFiThChCY5yFYPA0GOGIYloNhNGIaIXCUJACE4TwkEkchOF' +
'SFYlFkXhUCUCQZEYTglCSMxaEkYJIBmFJhDeDZZEYPwlgmQhghaGqVDoa4bGaeY6FGGZNlmFIBGEJ4jhiZQ5AkMhAg6E5JCkRoGCUSQ6B6CYiSCBIOh+DhJmmARiWQOJ' +
'tDsCJSCSBwkXSLIRicaZ6HqIIomoIguhwIpphIHoWDsJ4mCGChpmqOpGheLIOkqUo2iya4DjGJxihiQoSj4IJaDaMpCjCWoGg6PgpBiQ4tHcQJQBAgI=');
end;
Background[EXFILEVIEWLib_TLB.exTreeGlyphOpen] := $1000000;
Background[EXFILEVIEWLib_TLB.exTreeGlyphClose] := $2000000;
EndUpdate();
end
|
|
232
|
How can I copy/execute command a file/folder as path (selection)
with ExFileView1 do
begin
BeginUpdate();
SingleSel := False;
ExploreFromHere := '';
ExpandFolders := True;
Select('*');
ExecuteContextCommand('<selection>',True,'Copy As Path');
EndUpdate();
end
|
|
231
|
How can I programmatically selects all items
with ExFileView1 do
begin
BeginUpdate();
ExpandFolders := True;
SingleSel := False;
ExploreFromHere := '';
Select('*');
EndUpdate();
end
|
|
230
|
How can I clear the current selection
with ExFileView1 do
begin
BeginUpdate();
ExpandFolders := True;
ExploreFromHere := '';
SingleSel := False;
Select('');
EndUpdate();
end
|
|
229
|
I know the Expand method selects a folder, the question is if it is possible to prevent expanding it, so just select it
with ExFileView1 do
begin
BeginUpdate();
ExpandFolders := True;
ExploreFromHere := 'c:\';
SingleSel := False;
Select('Temp');
Select('Windows');
EndUpdate();
end
|
|
228
|
How can I display the identifiers of the control's context menu (debug)
// StateChange event - Fired while the control's state has been changed.
procedure TForm1.ExFileView1StateChange(ASender: TObject; State : StateChangeEnum);
begin
with ExFileView1 do
begin
OutputDebugString( 'State' );
OutputDebugString( State );
OutputDebugString( 'ExecuteContextMenu' );
OutputDebugString( ExecuteContextMenu );
end
end;
with ExFileView1 do
begin
ExploreFromHere := '';
SingleSel := False;
ShowContextMenu := '`[debug]` + menu';
end
|
|
227
|
How can I copy/execute command a file/folder (selection)
with ExFileView1 do
begin
BeginUpdate();
SingleSel := False;
ExploreFromHere := 'c:\';
ExpandFolders := True;
Expand('c:\Temp');
ExecuteContextCommand('<selection>',True,'Copy');
EndUpdate();
end
|
|
226
|
How can I copy a file/folder (absolute name)
with ExFileView1 do
begin
BeginUpdate();
ExploreFromHere := 'c:\';
ExecuteContextCommand('c:\Temp',True,'Copy');
EndUpdate();
end
|
|
225
|
How can I copy a file/folder (relative name)
with ExFileView1 do
begin
BeginUpdate();
ExploreFromHere := 'c:\';
ExecuteContextCommand('Temp',True,'Copy');
EndUpdate();
end
|
|
224
|
ShowContextMenu usage
// StateChange event - Fired while the control's state has been changed.
procedure TForm1.ExFileView1StateChange(ASender: TObject; State : StateChangeEnum);
begin
with ExFileView1 do
begin
OutputDebugString( 'State' );
OutputDebugString( State );
OutputDebugString( 'ExecuteContextMenu' );
OutputDebugString( ExecuteContextMenu );
end
end;
with ExFileView1 do
begin
SingleSel := False;
FullRowSelect := True;
ShowContextMenu := 'filecount = 0 ? `Exit[id=1000]` : ( ( ( filecount = 1 ) ? filename : `multiple selection` ) + `[dis],[sep],` + menu)';
end
|
|
223
|
ShowContextMenu usage
// StateChange event - Fired while the control's state has been changed.
procedure TForm1.ExFileView1StateChange(ASender: TObject; State : StateChangeEnum);
begin
with ExFileView1 do
begin
OutputDebugString( 'State' );
OutputDebugString( State );
OutputDebugString( 'ExecuteContextMenu' );
OutputDebugString( ExecuteContextMenu );
end
end;
with ExFileView1 do
begin
ExploreFromHere := '';
SingleSel := False;
FullRowSelect := True;
ShowContextMenu := 'filecount > 1 ? `multiple selection[dis]` : menu';
end
|
|
222
|
ShowContextMenu usage
// StateChange event - Fired while the control's state has been changed.
procedure TForm1.ExFileView1StateChange(ASender: TObject; State : StateChangeEnum);
begin
with ExFileView1 do
begin
OutputDebugString( 'State' );
OutputDebugString( State );
OutputDebugString( 'ExecuteContextMenu' );
OutputDebugString( ExecuteContextMenu );
end
end;
with ExFileView1 do
begin
ExploreFromHere := '';
SingleSel := False;
FullRowSelect := True;
ShowContextMenu := 'filecount > 1 ? `multiple selection[dis]` : menu';
end
|
|
221
|
ShowContextMenu usage
// StateChange event - Fired while the control's state has been changed.
procedure TForm1.ExFileView1StateChange(ASender: TObject; State : StateChangeEnum);
begin
with ExFileView1 do
begin
OutputDebugString( 'State' );
OutputDebugString( State );
OutputDebugString( 'ExecuteContextMenu' );
OutputDebugString( ExecuteContextMenu );
end
end;
with ExFileView1 do
begin
ExploreFromHere := '';
SingleSel := False;
FullRowSelect := True;
ExpandFolders := True;
IncludeFilesInFolder := True;
ShowContextMenu := 'menu replace `Delete` with `Delete[dis]`';
end
|
|
220
|
ShowContextMenu usage
// StateChange event - Fired while the control's state has been changed.
procedure TForm1.ExFileView1StateChange(ASender: TObject; State : StateChangeEnum);
begin
with ExFileView1 do
begin
OutputDebugString( 'State' );
OutputDebugString( State );
OutputDebugString( 'ExecuteContextMenu' );
OutputDebugString( ExecuteContextMenu );
end
end;
with ExFileView1 do
begin
ExploreFromHere := '';
SingleSel := False;
FullRowSelect := True;
ExpandFolders := True;
IncludeFilesInFolder := True;
ShowContextMenu := 'menu replace `&Delete` with ``';
end
|
|
219
|
ShowContextMenu usage
// StateChange event - Fired while the control's state has been changed.
procedure TForm1.ExFileView1StateChange(ASender: TObject; State : StateChangeEnum);
begin
with ExFileView1 do
begin
OutputDebugString( 'State' );
OutputDebugString( State );
OutputDebugString( 'ExecuteContextMenu' );
OutputDebugString( ExecuteContextMenu );
end
end;
with ExFileView1 do
begin
ExploreFromHere := '';
SingleSel := False;
FullRowSelect := True;
ShowContextMenu := '`Popup(Item 1[id=1001],Item 2[id=1002],Item 3[id=1003]),` + menu + `,Exit[id=1000]`';
end
|
|
218
|
ShowContextMenu usage
// StateChange event - Fired while the control's state has been changed.
procedure TForm1.ExFileView1StateChange(ASender: TObject; State : StateChangeEnum);
begin
with ExFileView1 do
begin
OutputDebugString( 'State' );
OutputDebugString( State );
OutputDebugString( 'ExecuteContextMenu' );
OutputDebugString( ExecuteContextMenu );
end
end;
with ExFileView1 do
begin
ExploreFromHere := '';
SingleSel := False;
FullRowSelect := True;
ShowContextMenu := 'filecount = 0 ? `Popup(Item 1[id=1001],Item 2[id=1002],Item 3[id=1003]),[sep],Exit[def][id=1000]` : menu';
end
|
|
217
|
ShowContextMenu usage
// StateChange event - Fired while the control's state has been changed.
procedure TForm1.ExFileView1StateChange(ASender: TObject; State : StateChangeEnum);
begin
with ExFileView1 do
begin
OutputDebugString( 'State' );
OutputDebugString( State );
OutputDebugString( 'ExecuteContextMenu' );
OutputDebugString( ExecuteContextMenu );
end
end;
with ExFileView1 do
begin
ExploreFromHere := '';
FullRowSelect := True;
ShowContextMenu := 'Popup(Item 1[id=1001],Item 2[id=1002],Item 3[id=1003]),[sep],Exit[def][id=1000]';
end
|
|
216
|
ShowContextMenu usage
// StateChange event - Fired while the control's state has been changed.
procedure TForm1.ExFileView1StateChange(ASender: TObject; State : StateChangeEnum);
begin
with ExFileView1 do
begin
OutputDebugString( 'State' );
OutputDebugString( State );
OutputDebugString( 'ExecuteContextMenu' );
OutputDebugString( ExecuteContextMenu );
OutputDebugString( 'no context menu is generated, so nothing is displayed' );
end
end;
with ExFileView1 do
begin
ExploreFromHere := '';
FullRowSelect := True;
ShowContextMenu := '``';
end
|
|
215
|
How can I add new items to the default file's context menu
// StateChange event - Fired while the control's state has been changed.
procedure TForm1.ExFileView1StateChange(ASender: TObject; State : StateChangeEnum);
begin
with ExFileView1 do
begin
OutputDebugString( 'State ' );
OutputDebugString( State );
OutputDebugString( 'ContextMenu' );
OutputDebugString( ShowContextMenu );
ShowContextMenu := FormatABC('B = 20 ? ( `My First Popup[def](A,B,C),[sep],`+ value + `,[sep],My Last Popup[def](A,B,C)` ) : value',OleVariant(ShowContextMenu),OleVariant(State),Null);
OutputDebugString( 'Execute' );
OutputDebugString( ExecuteContextMenu );
end
end;
with ExFileView1 do
begin
ExploreFromHere := '';
end
|
|
214
|
Is it possible to display the item's identifiers in the file's context menu
// StateChange event - Fired while the control's state has been changed.
procedure TForm1.ExFileView1StateChange(ASender: TObject; State : StateChangeEnum);
begin
with ExFileView1 do
begin
OutputDebugString( 'State ' );
OutputDebugString( State );
OutputDebugString( 'ContextMenu' );
OutputDebugString( ShowContextMenu );
ShowContextMenu := FormatABC('B = 20 ? (`[debug]`+ value) : value ',OleVariant(ShowContextMenu),OleVariant(State),Null);
end
end;
|
|
213
|
How can I remove the Delete command from the file's context menu
// StateChange event - Fired while the control's state has been changed.
procedure TForm1.ExFileView1StateChange(ASender: TObject; State : StateChangeEnum);
begin
with ExFileView1 do
begin
OutputDebugString( 'State ' );
OutputDebugString( State );
OutputDebugString( 'ContextMenu' );
OutputDebugString( ShowContextMenu );
ShowContextMenu := FormatABC('value replace `&Delete` with ``',OleVariant(ShowContextMenu),Null,Null);
end
end;
|
|
212
|
How do I execute a command from the file's content menu (sample 2)
with ExFileView1 do
begin
BeginUpdate();
ExploreFromHere := '';
ExecuteContextCommand('C:\',True,'20');
EndUpdate();
end
|
|
211
|
How can I simulate the left-side of the Windows Explorer
with ExFileView1 do
begin
BeginUpdate();
ColumnsVisible := EXFILEVIEWLib_TLB.exFileColumnName;
ExpandFolders := True;
ExploreFromHere := '::{450d8fba-ad25-11d0-98a8-0800361b1103}|::{018D5C66-4533-4307-9B53-224DE2ED1FE6}|::{20D04FE0-3AEA-1069-A2D8-08002B30309D}|::{F0' +
'2C1A0D-BE21-4350-88B0-7367FC96EF3C}';
Expand('::{20D04FE0-3AEA-1069-A2D8-08002B30309D}');
EndUpdate();
end
|
|
210
|
How can I add the "Control Panel" folder
with ExFileView1 do
begin
BeginUpdate();
ColumnsVisible := EXFILEVIEWLib_TLB.exFileColumnName;
ExpandFolders := True;
ExploreFromHere := '::{26EE0668-A00A-44D7-9371-BEB064C98683}>';
EndUpdate();
end
|
|
209
|
How can I add the "My Documents"
with ExFileView1 do
begin
IncludeFilesInFolder := True;
ExpandFolders := True;
ExploreFromHere := '::{450d8fba-ad25-11d0-98a8-0800361b1103}>';
end
|
|
208
|
How can I add the Printers and Faxes
with ExFileView1 do
begin
ExpandFolders := True;
ColumnsVisible := EXFILEVIEWLib_TLB.exFileColumnName;
IncludeFilesInFolder := True;
ExploreFromHere := '::{2227a280-3aea-1069-a2de-08002b30309d}>';
end
|
|
207
|
How can I add the Network Connections
with ExFileView1 do
begin
BeginUpdate();
ExpandFolders := True;
ColumnsVisible := EXFILEVIEWLib_TLB.exFileColumnName;
IncludeFilesInFolder := True;
ExploreFromHere := '::{7007acc7-3202-11d1-aad2-00805fc1270e}>';
EndUpdate();
end
|
|
206
|
How can I add the "Recycle Bin" folder
with ExFileView1 do
begin
ExpandFolders := True;
IncludeFilesInFolder := True;
ExploreFromHere := '::{645FF040-5081-101B-9F08-00AA002F954E}>';
end
|
|
205
|
How can I add the "Documents" folder
with ExFileView1 do
begin
ExpandFolders := True;
ExploreFromHere := '::{450D8FBA-AD25-11D0-98A8-0800361B1103}>';
end
|
|
204
|
How can I add the "Control Panel" folder
with ExFileView1 do
begin
BeginUpdate();
ColumnsVisible := EXFILEVIEWLib_TLB.exFileColumnName;
ExpandFolders := True;
IncludeFilesInFolder := True;
ExploreFromHere := '::{21EC2020-3AEA-1069-A2DD-08002b30309d}>';
EndUpdate();
end
|
|
203
|
How can I add the Network folder
with ExFileView1 do
begin
ExpandFolders := True;
ExploreFromHere := '::{F02C1A0D-BE21-4350-88B0-7367FC96EF3C}>';
end
|
|
202
|
How can I add the My Computer
with ExFileView1 do
begin
ExpandFolders := True;
ExploreFromHere := '::{20D04FE0-3AEA-1069-A2D8-08002B30309D}>';
end
|
|
201
|
How can I add the My Network Places folder
with ExFileView1 do
begin
ExpandFolders := True;
ExploreFromHere := '::{208D2C60-3AEA-1069-A2D7-08002B30309D}>';
end
|