If the objects are correctly anchored to a layer then you should not have to do anything. The objects position is relative to the layer and the object can not be dragged off the layer. When the layer is moved, all objects in the layer are moved with the layer. I have a project that does this correctly which you are welcome to. If you want it email me.
procedure TForm1.FormCreate(Sender: TObject);
begin
ImageEnVect1.IO.Params.BMP_HandleTransparency := True;
ImageEnVect1.Gestures.Pan.Enabled := True;
ImageEnVect1.Gestures.Zoom.Enabled := True;
ImageEnVect1.DisplayGrid := Grid1.Checked;
ImageEnVect1.DisplayGridLyr := 0;
ImageEnVect1.LayersSync := True;
ImageEnVect1.Proc.AutoUndo := False;
ImageEnVect1.Proc.UndoLimit := 99;
ImageEnVect1.ForceALTkey := True;
ImageEnVect1.ObjAnchorToLayers := True;
ImageEnVect1.ObjBitmapHandleTransparencyOnSel := True;
ImageEnVect1.ObjBoxInnerSelectable := True;
ImageEnVect1.MaxSelectionDistance := 15;
end;
procedure TForm1.ImageEnVect1NewObject(Sender: TObject; hobj: Integer);
begin
ImageEnVect1.ObjLayer[hobj] := ImageEnVect1.LayersCurrent;
ImageEnVect1.MouseInteract := [];
ImageEnVect1.MouseInteractVt := [miObjectSelect];
end;
I hope this helps.
Bill Miller
Adirondack Software & Graphics
Email: w2m@hughes.net
EBook: http://www.imageen.com/ebook/
Custom Commercial ImageEn Development
Search
ObjLayer question
Posted - Nov 23 2015 : 13:09:33
