procedure TForm1.ImageEnVect1ImageChange(Sender: TObject);
{OnImageChange occurs after the image is modified using TImageEnProc (Proc property) or TImageEnIO (IO property).}
begin
{ Update the background image }
ImageEnView2.IEBitmap.Assign(ImageEnVect1.IEBitmap);
ImageEnView2.Update;
end;
procedure TForm1.ImageEnVect1VectorialChanged(Sender: TObject);
{OnVectorialChanged occurs whenever an object is added, removed, moved, resized or modified by a user's action.}
begin
{ Update the background image }
ImageEnView2.IEBitmap.Assign(ImageEnVect1.IEBitmap);
ImageEnView2.Update;
{ Show the objects in ImageEnView2 }
ImageEnVect1.DrawObjectsToBitmap(ImageEnView2.IEBitmap);
ImageEnView2.Update;
end;
If you only want to show the objects when selected then eliminate the code in the ImageEnVect1VectorialChanged event and add the code to the ImageEnVect1SelectObject event:
procedure TForm1.ImageEnVect1SelectObject(Sender: TObject);
{OnSelectObject event occurs whenever an object is selected or deselected.}
begin
{ Show the objects in ImageEnView2 }
ImageEnVect1.DrawObjectsToBitmap(ImageEnView2.IEBitmap);
ImageEnView2.Update;
end;
Bill Miller
Adirondack Software & Graphics
Email: w2m@hughes.net
EBook: http://www.imageen.com/ebook/
Custom Commercial ImageEn Development