It does work. You are just not updating ImageEnView after the copy:
procedure TForm1.CopyTImageEnViewToTImage1Click(Sender: TObject);
begin
{ Clear the picture }
Image1.Picture := nil;
{ Copy the ImageEnView1.Bitmap to TImage }
Image1.Picture.Bitmap.Assign(ImageEnView1.Bitmap);
{ Refresh TImage }
Image1.Update;
end;
William Miller
Adirondack Software & Graphics
Email: w2m@frontiernet.net
EBook: http://www.imageen.com/ebook/
Apprehend: http://www.frontiernet.net/~w2m/index.html
Custom Commercial ImageEn Development