Closed mhietan closed 2 years ago
I readded the code for USEIMAGEEN. I cannot say if the code is compiling or working.
Thanks. I will test it tomorrow.
Hello,
Thank you, it works now perfectly.
Only few additions needed: To VirtualThumbnails.pas, cause now it misses few uses:
uses
{$IFDEF USEIMAGEEN} ImageEnIo, ImageEnProc, hyieutils, iexBitmaps, iexHelperFunctions,{$ENDIF}
Types,
Math;
procedure TCustomThumbsManager.FillImageFormats(FillColors: Boolean = True);
var
I: Integer;
Ext: string;
begin
FValidImageFormats.Clear;
with FValidImageFormats do begin
CommaText := '.jpg, .jpeg, .jpe, .jif, .bmp, .emf, .wmf';
{$IFDEF USEIMAGEEN}
CommaText := CommaText + ', .tif, .tiff, .fax, .g3n, .g3f, .xif, .gif, .pcx, .dib, .rle, .ico, .cur, .png, .dcm, .dic, .dicom' +
', .v2, .tga, .targa, .vda, .icb, .vst, .pix, .pxm, .ppm, .pgm, .pbm, .wbmp, .jp2, .j2k, .jpc, .j2c, .dcx' +
', .crw, .cr2, .dng, .nef, .raw, .raf, .x3f, .orf, .srf, .mrw, .dcr, .bay, .pef, .sr2, .arw, .kdc, .mef, .3fr, .k25, .erf, .cam, .cs1, .dc2, .dcs, .fff, .mdc, .mos, .nrw, .ptx, .pxn, .rdc, .rw2, .rwl, .iiq, .srw' +
', .psd, .psb, .wdp, .hdp, .jxr, .dds, .heic, .heif, .heics, .avcs, .heifs, .webp, .avi, .mpe, .mpg, .mpeg, .wmv';
{$ELSE}
if FillColors then begin
for I := 0 to FValidImageFormats.Count - 1 do begin
Ext := FValidImageFormats[I];
if Pos(Ext, '.jpg, .jpeg, .jpe, .jif, .bmp, .emf, .wmf') > 0 then FValidImageFormats.Colors[I] := $BADDDD
else if Pos(Ext, '.tif, .tiff, .fax, .g3n, .g3f, .xif, .gif, .pcx, .dib, .rle, .ico, .cur, .png, .dcm, .dic, .dicom') > 0 then FValidImageFormats.Colors[I] := $EFD3D3
else if Pos(Ext, '.v2, .tga, .targa, .vda, .icb, .vst, .pix, .pxm, .ppm, .pgm, .pbm, .wbmp, .jp2, .j2k, .jpc, .j2c, .dcx') > 0 then FValidImageFormats.Colors[I] := $7DC7B0
else if Pos(Ext, '.crw, .cr2, .dng, .nef, .raw, .raf, .x3f, .orf, .srf, .mrw, .dcr, .bay, .pef, .sr2, .arw, .kdc, .mef, .3fr, .k25, .erf, .cam, .cs1, .dc2, .dcs, .fff, .mdc, .mos, .nrw, .ptx, .pxn, .rdc, .rw2, .rwl, .iiq, .srw') > 0 then FValidImageFormats.Colors[I] := $CCDBCC
else if Pos(Ext, '.psd, .psb, .wdp, .hdp, .jxr, .dds, .heic, .heif, .heics, .avcs, .heifs, .webp, .avi, .mpe, .mpg, .mpeg, .wmv') > 0 then FValidImageFormats.Colors[I] := $0BBDFF;
// $7DC7B0 = green, $0BBDFF = orange, CFCFCF = grey
end;
end;
Also in to Addins.inc file:
// ImageEn SUPPORT
// You may need to add Path to ImageEn: Delphi Compiler, Windows 64bit, Search path \ImageEn\Source\Delphi11Alexandria_64
// {$DEFINE USEIMAGEEN}
I added your changes. Please check again.
Now its okay. Big thank you!
Note for other users: About the FillImageFormats. It depends on your needs, for ex. coloring might need to change. :)
For the Addins.inc one more note, sorry :)
// ImageEn SUPPORT // You must add the ImageEn package to the VirtualShellToolsD.dpk "Requires" section PKIECtrl28 // You may need to add Path to ImageEn: Delphi Compiler, Windows 64bit, Search path \ImageEn\Source\Delphi11Alexandria_64
// {$DEFINE USEIMAGEEN}
I improved the notes.
Hi,
Please add ImageEn support back. Please note! after 14.5.2022 some changes thumbnail drawing is broken. I'm using these in my project.
in addins.inc: // ImageEn SUPPORT {$DEFINE USEIMAGEEN}
VirtualThumbnails.pas:
uses {$IFDEF USEIMAGEEN} ImageEnIo, ImageEnProc, hyieutils,ievision, iexBitmaps, iexHelperFunctions, {$ENDIF}
Thanks. :)