procedure TForm1.ImageEnMView1AllDisplayed(Sender: TObject);
var
  i: Integer;
  iIEBitmap: TIEBitmap;
begin
  for i := 0 to ImageEnMView1.ImageCount - 1 do
  begin
    ImageEnMView1.ImageInfoText[i].Caption :=
      IntegerToString(ImageEnMView1.ImageWidth[i]) + ' x ' +
      IntegerToString(ImageEnMView1.ImageHeight[i]);
    ImageEnMView1.ImageBottomText[i].Caption :=
      ExtractFilename(ImageEnMView1.ImageFileName[i]);
  end;
end;

procedure TForm2.ImageEnMView1CheckboxClick(Sender: TObject; idx: Integer;
  var bChecked: Boolean);
{ Toggle showing a thumbnail with a white top border and a white bottom border
  with the full sized bitmap. Each thumbnail will always have a white border at the top
  and bottom regardless of the dimensions of the original image. }
var
  iImageEnIO: TImageEnIO;
  iThumbnail: TBitmap;
  iBitmap: TBitmap;
begin
 case ImageEnMView1.StoreType of
   ietThumb, ietFastThumb, ietNormal:
    begin
     { Get the index of the selected thumbnail }
     ImageEnMView1.SelectedImage := idx;
      case bChecked of
       True:
        begin
         { Each thumbnail will always have a white border at the top
          and bottom regardless of the dimensions of the original image. }
         ImageEnMView1.BackGround := clWhite;
         ImageEnMView1.IEBitmap.IEInitialize(150, 100, clWhite);
         { Create an imageenio to load the bitmap }
         iImageEnIO := TImageEnIO.Create(nil);
         { Create a bitmap to hold the thumbnail }
         iThumbnail := TBitmap.Create;
         { Create a base bitmap which is larger than the thumbnail }
         iBitmap := TBitmap.Create;
         iBitmap.PixelFormat := pf24bit;
         iBitmap.IEInitialize(150, 100, clWhite);
         { Attach the thumbnail to imageenio }
         iImageEnIO.AttachedBitmap := iThumbnail;
         { Load the thumbnail into iThumbnail }
         iImageEnIO.LoadFromFileFast(ImageEnMView1.ImageFileName[idx], 130, 80, false);
         { Resample the thumbnail to be 20 pixels shorter than the iBirmap }
         iThumbnail.IEResample(iBitmap.Width, iBitmap.Height-20, rfNone, False);
         { Draw the iThumbnail on the iBitmap 10 pixels from the top }
         iBitmap.Canvas.Draw(0, 10, iThumbnail);
         { Assign the bitmap with the white top and bottom border to ImageEnMView Bitmap }
         ImageEnMView1.Bitmap.Assign(iBitmap);
         { Update the image }
         ImageEnMView1.UpdateImage(idx);
         { Free the objects }
         iImageEnIO.Free;
         iThumbnail.Free;
         iBitmap.Free;
        end;
       False:
        begin
         { Each thumbnail will be full size }
         ImageEnMView1.ReloadImage(Idx);
        end;
     end;
    end;
  end;
end;

uses iexhelperfunctions, hyiedefs;
ImageEnMView1.IEBitmap.IELoadAsThumbnail(ImageEnMView1.ImageFileName[idx], OrigWidth, OrigHeight, true, false, rfLanczos3, true, clWhite, true, 4, 4, clblack, clwhite);

MyIEBitmap.IELoadAsThumbnail(iFilename, iMaxX, iMaxY, iCanStretch,
          iAutoAdjustOrientation, iQualityFilter, iAddBorder, iBorderColor, iAddShadow,
          iBlurRadius, iShadowOffset, iShadowColor, iBackgroundColor);

procedure TForm2.ImageEnMView1CheckboxClick(Sender: TObject; idx: Integer;
  var bChecked: Boolean);
var
 OrigWidth, origHeight: Integer;
 oLeft, oTop, oRight, oBottom: Integer;
begin
 case ImageEnMView1.StoreType of
   ietThumb, ietFastThumb, ietNormal:
    begin
     ImageEnMView1.SelectedImage := idx;
      case bChecked of
       True:
        begin
         OrigWidth := ImageEnMView1.IEBitmap.Width;
         OrigHeight := ImageEnMView1.IEBitmap.Height;
         ImageEnMView1.BackGround := clWhite;
         ImageEnMView1.IEBitmap.IELoadAsThumbnail(ImageEnMView1.ImageFileName[idx], 150, 100, true, false, rfLanczos3, true, clWhite, true, 4, 4, clblack, clwhite);
         ImageEnMView1.UpdateImage(idx);
        end;
       False:
        begin
         ImageEnMView1.ReloadImage(Idx);
        end;
     end;
    end;
  end;
end;