• Left
• Top
• Right
• Bottom
• Center Horizontally
• Center Vertically

procedure TMainForm.AutoAlign1Click(Sender: TObject);
var
  i: Integer;
  iCurrentLeftMostValue, iFinalLeftMostValue: Integer;
  iObject: integer;
  iIEVStyle : TIEVStyle;
  iUnselectedObjectLeft: integer;
begin
  { Get the position of the unselected object for all selectable objects }
  { This eliminates getting the position of unselectable objects }
  if ImageEnVect1.SelObjectsCount > 1 then
  begin
    iUnselectedObjectLeft := -1;
    for i := 0 to ImageEnVect1.ObjectsCount - 1 do
    begin
      { Get the object from the index }
      iObject := ImageEnVect1.GetObjFromIndex(i);
      iIEVStyle := ImageEnVect1.ObjStyle[iObject];
      if (ImageEnVect1.IsSelObject(iObject) = False) and (ievsSelectable in iIEVStyle) then
        iUnselectedObjectLeft := ImageEnVect1.ObjLeft[iObject];
    end;

    {Get the left most value from selected objects}
    for i := 0 to ImageEnVect1.SelObjectsCount - 1 do
    begin
      iCurrentLeftMostValue := ImageEnVect1.ObjLeft[ImageEnVect1.SelObjects[i]];
      if i = 0 then
        iFinalLeftMostValue := iCurrentLeftMostValue
      else if iFinalLeftMostValue > iCurrentLeftMostValue then
        iFinalLeftMostValue := iCurrentLeftMostValue;
    end;

    { If the unselected object is to the right of the left most value then align the selected objects
    to the unselected object }
    if iUnselectedObjectLeft >= iFinalLeftMostValue then
    { Align all selected objects to left of the unselected object }
    for i := 0 to ImageEnVect1.SelObjectsCount - 1 do
    begin
      { Get the object from the index }
      iObject := ImageEnVect1.GetObjFromIndex(i);
      ImageEnVect1.ObjLeft[ImageEnVect1.SelObjects[iObject]] := iUnselectedObjectLeft - iFinalLeftMostValue;
    end;
  end;
end;

procedure TfrmMain.pmnuAlignLeftClick(Sender: TObject);
var
  I: Integer;
  CurrentLeftMostValue, FinalLeftMostValue: Integer;
begin
  if ievMain.SelObjectsCount > 1 then
  begin
    //Let the Left Most value from selected Objects
    for I := 0 to ievMain.SelObjectsCount - 1 do
    begin
      CurrentLeftMostValue := ievMain.ObjLeft[ievMain.SelObjects[I]];
      if I = 0 then
        FinalLeftMostValue := CurrentLeftMostValue
      else
        if FinalLeftMostValue > CurrentLeftMostValue then
          FinalLeftMostValue := CurrentLeftMostValue;
    end;  //for I := 0 to ievMain.SelObjectsCount - 1 do

    //Repeate the loop gain to Align all selected Objects to Left
    for I := 0 to ievMain.SelObjectsCount - 1 do
    begin
      ievMain.ObjLeft[ievMain.SelObjects[I]] := FinalLeftMostValue;
    end;  //for I := 0 to ievMain.SelObjectsCount - 1 do
  end;
end;

procedure AlignObjects(Alignment: TIEAlignLayers; bSelectedOnly: Boolean = true);

ImageEnView1.AlignObjects(ilaAlignToVerticalCenter);

procedure TForm1.AdjustObjectSpacing(APercent: Double);
// Adjust selected object spacing (left and top) by APercent
// APercent values can be negative and positive values (0.10, 0.25, -0.10, -0.25)
// Negative APercent values reduce spacing
// Positive APercent values increase spacing
var
  i: Integer;
  iHObj: Integer;
begin
  // find all objects and adjust spacing by APercent
  for i := 0 to ImageEnVect1.SelObjectsCount - 1 do
    if i >= 0 then
    begin
      iHObj := ImageEnVect1.SelObjects[i];
      ImageEnVect1.ObjLeft[iHObj] := ImageEnVect1.ObjLeft[iHObj] + Round(ImageEnVect1.ObjLeft[iHObj] * APercent);
      ImageEnVect1.ObjTop[iHObj] := ImageEnVect1.ObjTop[iHObj] + Round(ImageEnVect1.ObjTop[iHObj] * APercent);
    end;
  ImageEnVect1.Update;
end;

AdjustObjectSpacing(StrToFloat(Spacing1.Text));
AdjustObjectSpacing(0.10);