procedure Tfmmain.ImageenVect1ObjectMoveResize(Sender: TObject; hobj, Grip: Integer;
  var OffsetX, OffsetY: Integer);
var
  iv:TImageenVect;
  isResize: boolean;
  PosX, PosY, width_, height_: Integer;
begin
  iv:=ImageenVect1;
  isResize := (Grip <> 3);

  PosX := Iv.ObjLeft[hobj];
  PosY := Iv.ObjTop[hobj];
  width_ := Iv.ObjWidth[hobj];
  height_ := Iv.ObjHeight[hobj];

  if not isResize then
  begin
    Iv.ObjLeft[hobj] := SnapToGrid(PosX);
    Iv.ObjTop[hobj] := SnapToGrid(PosY);
  end
  else   //otherwise it should resize ? probably
  begin
    Iv.ObjWidth[hobj] := SnapToGrid(PosX + width_) - PosX;
    Iv.ObjHeight[hobj] := SnapToGrid(PosY + height_) - PosY;
  end;

end;

function SnapToGrid(value: Integer) : integer;
const
  GRID_SIZE = 8;
begin
  // Simplistic snap to grid algorithm
  Result := Value - ( value mod GRID_SIZE );
end;

procedure Tfmain.ImageEnView1LayerNotify(Sender: TObject; layer: Integer; event: TIELayerEvent);
begin
  with ImageEnView1.Layers[ Layer ] do
  begin
    if event = ielMoved then
    begin
      PosX   := SnapToGrid( PosX );
      PosY   := SnapToGrid( PosY );
    end
    else
    if event = ielResized then
    begin
      Width  := SnapToGrid( PosX + Width ) - PosX;
      Height := SnapToGrid( PosY + Height ) - PosY;
    end;
  end;
end;