There are a number of ways to do this. Here is one way:
Copy TIEBitmap from TImageEnView To TImageEnMView
{ AppendImage appends a new image at last position
in the list and returns the new image position (SelectedImage). }
ImageEnMView1.AppendImage;
if ImageEnMView1.SelectedImage <> -1 then
begin
{ Set the ImageEnView image to the ImageEnMView SelectedImage. }
ImageEnMView1.SetIEBitmap(ImageEnMView1.SelectedImage,
ImageEnView1.IEBitmap);
{ Whenever an image (Bitmap) within a TImageEnMView changes, you
must update the thumbnail with TImageEnMView.UpdateImage to make
sure the thumbnail is visible. }
ImageEnMView1.UpdateImage(ImageEnMView1.SelectedImage);
{ Assign the ImageEnView.IO.Params to the ImageEnMView.MIO.Params
incase the params are needed. Assign does not assign the IO
params because the image is copied from memory. }
ImageEnMView1.MIO.Params[ImageEnMView1.SelectedImage].Assign(ImageEnView1.IO.Params);
{ Update the display to show the current content and properties. }
ImageEnMView1.Update;
end;
You could also scan the image into TImageEnMView directly then copy the thumbnail to TImageEnView with GetIEBitmap:
Copy the selected TIEBitmap from TImageEnMView to TImageEnView
{ Create a TIEBitmap object from the image at index. }
try
ImageEnView1.IEBitmap.Assign
(ImageEnMView1.GetTIEBitmap(ImageEnMView1.SelectedImage));
finally
{ Release or Free the TIEBitmap }
ImageEnMView1.ReleaseBitmap(ImageEnMView1.SelectedImage);
end;
ImageEnView1.IO.Params.Assign(ImageEnMView1.MIO.Params
[ImageEnMView1.SelectedImage]);
ImageEnView1.Update;
Bill Miller
Adirondack Software & Graphics
Email: w2m@hughes.net
EBook: http://www.imageen.com/ebook/
Custom Commercial ImageEn Development