I'm displaying a series of images in TImageEnMView using the AppendImage function. In the caption/text for each image, I would like to display some values from the image's properties e.g. the Exif aperture value.
What is the most efficient way of doing this? I could use the ImageTopText/ImageInfoText/ImageBottomText properties, or use the OnGetText event handler. However, is there an event that fires after ImageEn has internally loaded the thumbnail for that image, so that the image is still in memory and I can just use the already-loaded image to extract the values I need and set the text accordingly?
You can use the OnImageLoaded to fill it once the image is available, e.g.
// After image has loaded, use EXIF aperture as Info text
procedure TForm1.ImageEnMView1ImageLoaded(Sender: TObject; Idx: Integer);
var
s: string;
begin
s := ImageEnMView1.MIO.Params[ Idx ].EXIF_ApertureValue2;
if s = '' then
s := '-';
ImageEnMView1.ImageInfoText[idx] := 'Aperture: ' + s;
end;
Search
Most efficient way to display values in ImageEnMView
Posted - Oct 28 2021 : 00:02:54
