I created a new project to test the popupmenu. I added a panel with two buttons and aligned the panel to alTop. I added a ImageEnVect and set its alignment to alClient. I added this code:
procedure TForm1.Select1Click(Sender: TObject);
begin
ImageEnVect1.MouseInteractVt := [miObjectSelect];
end;
procedure TForm1.SpeedButton2Click(Sender: TObject);
begin
ImageEnVect1.MouseInteractVt := [miPutText];
end;
With this very simple demo, the popupmenu to achieve cut, copy or paste is built in. Just add a text object and enter edit mode by double clicking the text object and then right click and a built in popupmenu will appear to provide these features automatically with no other code. The project uses default ImageEnVect properties and no other code was added to the demo. In addition the vectorial demo also does the same thing, so you must be overriding the popup menu somehow.
Bill Miller
Adirondack Software & Graphics
Email: w2m@hughes.net
EBook: http://www.imageen.com/ebook/
Custom Commercial ImageEn Development
Search
