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