I wish you had said that to begin with. I thought you wanted to process the bitmap. To add text to the frames use the GetText event.
procedure TForm1.ImageEnMView1GetText(Sender: TObject; Index: Integer;
Position: TIEMTextPos; var Text: WideString);
var
iBitDepth: Integer;
iColor: string;
begin
{ Set the bottom text }
ImageEnMView1.ImageBottomText[Index] := 'Frame ' + IntToStr(Index + 1);
iBitDepth := ImageEnMView1.MIO.Params[Index].BitsPerSample *
ImageEnMView1.MIO.Params[Index].SamplesPerPixel;
if iBitDepth = 24 then
iColor := 'RGBA 32-Bit'
else
iColor := 'RGB ' + IntToStr(iBitDepth) + '-Bit';
{ Set the info text }
ImageEnMView1.ImageInfoText[Index] := iColor;
ImageEnMView1.UpdateImage(Index);
ImageEnMView1.Update;
end;
Bill Miller
Adirondack Software & Graphics
Email: w2m@hughes.net
EBook: http://www.imageen.com/ebook/
Custom Commercial ImageEn Development