Hi Nigel,
Thank you for the information!
Here is the optimized version which does what I need:
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;