procedure TForm1.FormCreate(Sender: TObject);
begin
  ImageEnMView1.SetModernStyling();

  ImageEnMView1.DefaultTopText    := iedtFilename; // does not work for image-frames!

  // how to show extended Dimensions info? (Dimensions + color information):
  ImageEnMView1.DefaultBottomText := iedtImageDimensions;

  LoadIcoFile;
end;

procedure TForm1.LoadIcoFile;
var
  i: Integer;
  sFilename: string;
begin
  sFilename := ImageEnMView1.MIO.ExecuteOpenDialog('Select an ICO file', ioICO);
  if sFilename <> '' then
    ImageEnMView1.MIO.LoadFromFile(sFileName);

  // workaround to set the frame-names:
  for i := 0 to ImageEnMView1.ImageCount - 1 do
    ImageEnMView1.ImageTopText[i] := 'Frame ' + IntToStr(i);
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  ImageEnMView1.SetModernStyling();

  ImageEnMView1.DefaultBottomText := iedtImageDimensions;

  LoadIcoFile;
end;

procedure TForm1.LoadIcoFile;
var
  szFilename: string;
  P: TIOParams;
  i: Integer;
begin
  szFilename := ImageEnMView1.MIO.ExecuteOpenDialog('Select an ICO file', ioICO);
  if szFilename <> '' then
    ImageEnMView1.MIO.LoadFromFile(szFilename)
  else
    EXIT;

  P := TIOParams.Create;
  try
    if P.Read(szFilename) then
    begin
      for i := 0 to P.ImageCount - 1 do
      begin
        ImageEnMView1.ImageTopText[i]  := 'Frame ' + IntToStr(i);
        ImageEnMView1.ImageInfoText[i] := IntToStr(P.ICO_BitCount[i]) + '-bit';
      end;
    end;
  finally
    P.Free;
  end;
end;

procedure TForm1.Button2Click(Sender: TObject);
var
  szFilename: string;
  i: Integer;
begin
  szFilename := ImageEnMView1.MIO.ExecuteOpenDialog('Select an ICO file', ioICO);
  if szFilename = '' then
    EXIT;
  
  ImageEnMView1.MIO.LoadFromFile(szFilename)
  for i := 0 to ImageEnMView1.ImageCount - 1 do
  begin
    ImageEnMView1.ImageTopText[i]  := 'Frame ' + IntToStr(i);
    ImageEnMView1.ImageInfoText[i] := IntToStr( ImageEnMView1.MIO.Params[i].ICO_BitCount[i]) + '-bit';
  end;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  ImageEnMView1.SetModernStyling();
  ImageEnMView1.ThumbnailResampleFilter := rfNone;
  ImageEnMView1.EnableResamplingOnMinor := False;

  ImageEnMView1.DefaultBottomText := iedtImageDimensions;

  LoadIcoFile;
end;

procedure TForm1.LoadIcoFile;
var
  szFilename: string;
  i: Integer;
begin
  szFilename := ImageEnMView1.MIO.ExecuteOpenDialog('Select an ICO file', ioICO);
  if szFilename = '' then EXIT;

  if ImageEnMView1.MIO.LoadFromFile(szFilename) then
  begin
    for i := 0 to ImageEnMView1.ImageCount - 1 do
    begin
      ImageEnMView1.ImageTopText[i]  := 'Frame ' + IntToStr(i);
      ImageEnMView1.ImageInfoText[i] := IntToStr(ImageEnMView1.MIO.Params[i].BitsPerSample * ImageEnMView1.MIO.Params[i].SamplesPerPixel) + '-bit';
    end;
  end;
end;