• Layer 0 after cropping is getting displaced, towards right and down wards
• Because of this probably all the layers are not getting copped properly

 

---

ImageEn does not adjust the position of the layer 0 after cropping. You might want to call:

ImageEnView1.LayersRepositionAll( moveX, moveY );

---

ImageEnView1.CropTool.Enact();
ImageEnView1.LayersRepositionAll( IELayer_Pos_HCenter, IELayer_Pos_VCenter, False, False, True );

procedure TForm1.btnOpenClick(Sender: TObject);
var
  sFilename: string;
  I: Integer;
begin
  sFilename := ImageEnView1.IO.ExecuteOpenDialog();
  if sFilename <> '' then
  begin
    ImageEnView1.IO.Params.PSD_LoadLayers := True;
    ImageEnView1.IO.Params.PSD_ReplaceLayers := True;
    ImageEnView1.IO.LoadFromFile( sFilename );
    ImageEnView1.Fit( False ); 
    StartCropping( False );

    ImageEnView1.LayersCurrent := 0;

    ImageEnView1.LayersCropped := True;

    for I := 0 to ImageEnView1.LayersCount - 1 do
    begin
      ImageEnView1.Layers[I].Cropped := True;
    end;
  end;
end;