1. Select Layers or Objects
Select Objects
ImageEnVect1.MouseInteract := [];
ImageEnVect1.MouseInteractVt := [miObjectSelect];
Select Layers
ImageEnVect1.MouseInteract := [miMoveLayers, miResizeLayers];
ImageEnVect1.MouseInteractVt := [];
ImageEnVect1.UnSelAllObjects;
2. Moving object
Can not fix this... the speed depends on the size of the bitmap in the layer and the speed of your graphics card and processor.
3. Keep Object in Layer
ImageEnVect1.ObjAnchorToLayers := True;
Sample Code
procedure TForm1.FormCreate(Sender: TObject);
begin
ImageEnVect1.IO.Params.BMP_HandleTransparency := True;
ImageEnVect1.LayersSync := False;
ImageEnVect1.ObjAnchorToLayers := True;
ImageEnVect1.ObjBitmapHandleTransparencyOnSel := True;
ImageEnVect1.ObjBoxInnerSelectable := True;
ImageEnVect1.MaxSelectionDistance := 15;
ImageEnVect1.LayersDrawBox := True;
ImageEnVect1.SelectionOptions := ImageEnVect1.SelectionOptions +
[iesoSelectTranspLayers];
end;
procedure TForm1.Layers1Click(Sender: TObject);
begin
ImageEnVect1.MouseInteract := [miMoveLayers, miResizeLayers];
ImageEnVect1.MouseInteractVt := [];
ImageEnVect1.UnSelAllObjects;
end;
procedure TForm1.Objects1Click(Sender: TObject);
begin
ImageEnVect1.MouseInteract := [];
ImageEnVect1.MouseInteractVt := [miObjectSelect];
end;
Bill Miller
Adirondack Software & Graphics
Email: w2m@hughes.net
EBook: http://www.imageen.com/ebook/
Custom Commercial ImageEn Development
Search
