procedure TForm1.Open1Click(Sender: TObject);
begin
  if OpenPictureDialog1.Execute then
  begin
    if FileExists(OpenPictureDialog1.FileName) then
      ImageEnIO1.LoadFromFile(OpenPictureDialog1.FileName);
  end;
end;

procedure TForm1.SaveSmallestFrame1Click(Sender: TObject);
var
  i: integer;
  iFrames: integer;
  iWidth1: integer;
  iWidth2: integer;
  iSmallestIndex: integer;
  iSmallestWidth: integer;
  iBitDepth: integer;
begin
  if SavePictureDialog1.Execute then
  begin
    iSmallestIndex := -1;
    if FileExists(OpenPictureDialog1.FileName) then
    begin
      ImageEnIO1.LoadFromFile(SavePictureDialog1.FileName);
      iFrames := ImageEnIO1.Params.ImageCount;
      for i := 0 to iFrames - 1 do
      begin
        ImageEnIO1.Params.ImageIndex := i;
        iWidth1 := ImageEnIO1.Params.Width;
        iBitDepth := ImageEnIO1.Params.BitsPerSample * ImageEnIO1.Params.SamplesPerPixel;
        { Search only for 24-Bit icons }
        if iBitDepth <> 24 then
          break;
        ImageEnIO1.Params.ImageIndex := i + 1;
        iWidth2 := ImageEnIO1.Params.Width;
        iSmallestWidth := Min(iWidth1, iWidth2);
        if iWidth1 = iSmallestWidth then
          iSmallestIndex := i;
      end;
      if iSmallestIndex <> -1 then
      begin
        ImageEnIO1.Params.ImageIndex := iSmallestIndex;
        ImageEnIO1.SaveToFile(OpenPictureDialog1.FileName);
      end;
    end;
end;

procedure TForm1.Open1Click(Sender: TObject);
{ Open the image. }
var
  i: Integer;
begin
  OpenPictureDialog1.DefaultExt := 'png';
  OpenPictureDialog1.Filename := ExtractFileName(AFilename);
  if OpenPictureDialog1.Execute then
  begin
    if FileExists(OpenPictureDialog1.Filename) then
    begin
      AFilename := OpenPictureDialog1.Filename;
      ImageEnMView1.MIO.LoadFromFile(AFilename, False);
      if ImageEnMView1.MIO.Aborting then
      begin
        MessageBox(0, 'An error occurred opening the file.', 'Error', MB_ICONERROR or MB_OK);
        exit;
      end;
      ImageEnMView1.SelectedImage := 0;
      { Set the frame to load }
      ImageEnView1.IO.Params.ImageIndex := ImageEnMView1.SelectedImage;
      { Load the frame }
      ImageEnView1.IEBitmap.AssignImage(ImageEnMView1.GetTIEBitmap(ImageEnMView1.SelectedImage));
      ImageEnView1.Update;
      ImageEnView1.IEBitmap.Modified := False;
      for i := 0 to ImageEnMView1.ImageCount - 1 do
      begin
        ImageEnMView1.ImageBottomText[i] := 'Frame ' + IntToStr(i + 1);
        if ImageEnMView1.MIO.Params[i].FileType = ioICO then
        begin
          case ImageEnMView1.MIO.Params[i].ICO_BitCount[i] of
            32:
              begin
                ImageEnMView1.MIO.Params[i].BitsPerSample := 8;
                ImageEnMView1.MIO.Params[i].SamplesPerPixel := 4;
              end;
            24:
              begin
                ImageEnMView1.MIO.Params[i].BitsPerSample := 8;
                ImageEnMView1.MIO.Params[i].SamplesPerPixel := 3;
              end;
            8:
              begin
                ImageEnMView1.MIO.Params[i].BitsPerSample := 8;
                ImageEnMView1.MIO.Params[i].SamplesPerPixel := 1;
              end;
            4:
              begin
                ImageEnMView1.MIO.Params[i].BitsPerSample := 4;
                ImageEnMView1.MIO.Params[i].SamplesPerPixel := 1;
              end;
          end; // case
        end;
      end;
      if ImageEnView1.IO.Params.BitsPerSample * ImageEnView1.IO.Params.SamplesPerPixel = 32 then
      begin
        { If the bitdepth is 32 then display with a chessboard style }
        ImageEnView1.Background := clBtnFace;
        ImageEnView1.BackgroundStyle := iebsChessboard;
        ImageEnView1.SetChessboardStyle(8);
        ImageEnView1.Update;
      end;
      ImageEnView1.Fit;
    end;
  end;
end;

procedure TForm1.SaveAs1Click(Sender: TObject);
{ Save the image with a new filename. }
begin
  SavePictureDialog1.DefaultExt := 'ico';
  SavePictureDialog1.Filename := JustName(AFilename);
  if SavePictureDialog1.Execute then
  begin
    Screen.Cursor := crHourGlass;
    try
      AFilename := SavePictureDialog1.Filename;
      { Save only selected frame }
      ImageEnMView1.MIO.SaveToFile(AFilename, True);
      if ImageEnMView1.MIO.Aborting then
      begin
        MessageBox(0, 'An error occurred saveing the file.', 'Error', MB_ICONERROR or MB_OK);
        exit;
      end;
      ImageEnView1.IEBitmap.Modified := False;
    finally
      Screen.Cursor := crDefault;
    end;
  end;
end;