Imports Leadtools
Imports Leadtools.Codecs
Imports Leadtools.ImageProcessing.Effects
Public Sub ResizeRegionCommandExample()
Dim codecs As New RasterCodecs()
codecs.ThrowExceptionsOnInvalidImages = True
Dim leadImage As RasterImage = codecs.Load(Path.Combine(LEAD_VARS.ImagesDir, "Master.jpg"))
' Prepare the command
Dim command As ResizeRegionCommand = New ResizeRegionCommand
Dim rRgnRect As LeadRect = New LeadRect(20, 20, 100, 100) 'Rectangle that defines the region .
'Create an elliptical region.
leadImage.AddEllipseToRegion(Nothing, rRgnRect, RasterRegionCombineMode.Set)
command.AsFrame = False
'Contract the image region by 20 pixels.
command.Dimension = 20
command.Type = ResizeRegionCommandType.ContractRegion
command.Run(leadImage)
codecs.Save(leadImage, Path.Combine(LEAD_VARS.ImagesDir, "Result.jpg"), RasterImageFormat.Jpeg, 24)
End Sub
Public NotInheritable Class LEAD_VARS
Public Const ImagesDir As String = "C:\Users\Public\Documents\LEADTOOLS Images"
End Class
using Leadtools;
using Leadtools.Codecs;
using Leadtools.ImageProcessing.Effects;
public void ResizeRegionCommandExample()
{
// Load an image
RasterCodecs codecs = new RasterCodecs();
codecs.ThrowExceptionsOnInvalidImages = true;
RasterImage image = codecs.Load(Path.Combine(LEAD_VARS.ImagesDir, "Master.jpg"));
// Prepare the command
ResizeRegionCommand command = new ResizeRegionCommand();
LeadRect rRgnRect = new LeadRect(80, 20, 100, 40); //Rectangle that defines the region .
//Create an elliptical region.
image.AddEllipseToRegion(null, rRgnRect, Leadtools.RasterRegionCombineMode.Set);
command.AsFrame = false;
//Contract the image region by 20 pixels.
command.Dimension = 20;
command.Type = ResizeRegionCommandType.ContractRegion;
command.Run(image);
codecs.Save(image, Path.Combine(LEAD_VARS.ImagesDir, "Result.jpg"), RasterImageFormat.Jpeg, 24);
}
static class LEAD_VARS
{
public const string ImagesDir = @"C:\Users\Public\Documents\LEADTOOLS Images";
}