Public Property SourcePoint As LeadPoint

Dim instance As AlphaBlendCommand
Dim value As LeadPoint
 
instance.SourcePoint = value
 
value = instance.SourcePoint

public LeadPoint SourcePoint {get; set;}

public:
property LeadPoint SourcePoint {
   LeadPoint get();
   void set (    LeadPoint value);
}

Public Sub SourcePointPropertyExample()
   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 srcImage As RasterImage = codecs.Load(Path.Combine(LEAD_VARS.ImagesDir, "ImageProcessingDemo\image3.cmp"), 24, CodecsLoadByteOrder.Bgr, 1, 1)

   Dim Left As Integer = CType((leadImage.Width / 8), Integer)
   Dim Top As Integer = CType((leadImage.Height / 8), Integer)
   Dim Width As Integer = CType((leadImage.Width), Integer)
   Dim Height As Integer = CType((leadImage.Height), Integer)

   ' Combine srcImage with image, with half opacity.
   Dim command As AlphaBlendCommand = New AlphaBlendCommand
   command.DestinationRectangle = New LeadRect(Left, Top, Width, Height)
   command.SourceImage = srcImage
   command.SourcePoint = New LeadPoint(0, 0)
   command.Opacity = 128
   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

public void SourcePointPropertyExample()
   {
      // Load an image
      RasterCodecs codecs = new RasterCodecs();
      codecs.ThrowExceptionsOnInvalidImages = true;

      RasterImage image = codecs.Load(Path.Combine(LEAD_VARS.ImagesDir, "Master.jpg"));

      // Prepare the command
      RasterImage srcImage = codecs.Load(Path.Combine(LEAD_VARS.ImagesDir, @"ImageProcessingDemo\Image3.cmp"), 24, CodecsLoadByteOrder.Bgr, 1, 1);

      AlphaBlendCommand command = new AlphaBlendCommand();
      // Combine srcImage with image, with half opacity.
      //command.DestinationRectangle = new LeadRect(image.Width / 2 - srcImage.Width / 2, image.Height / 2 - srcImage.Height / 2, image.Width / 2 + srcImage.Width / 8, image.Height / 2 + srcImage.Height / 8);
      command.DestinationRectangle = new LeadRect(image.Width / 8, image.Height / 8, image.Width, image.Height);
      command.SourceImage = srcImage;
      command.SourcePoint = new LeadPoint(0, 0);
      command.Opacity = 128;
      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";
}

public void SourcePointPropertyExample(RasterImage image, RasterImage srcImage, Stream outStream)
{
   // Prepare the command
   AlphaBlendCommand command = new AlphaBlendCommand();
   // Combine srcImage with image, with half opacity.
   //command.DestinationLeadRect = new LeadRect(image.Width / 2 - srcImage.Width / 2, image.Height / 2 - srcImage.Height / 2, image.Width / 2 + srcImage.Width / 8, image.Height / 2 + srcImage.Height / 8);
   command.DestinationRectangle = new LeadRect(image.Width / 8, image.Height / 8, image.Width, image.Height);
   command.SourceImage = srcImage;
   command.SourcePoint = new LeadPoint(0, 0);
   command.Opacity = 128;
   command.Run(image);
   // Save result image
   RasterCodecs codecs = new RasterCodecs();
   codecs.Save(image, outStream, RasterImageFormat.Jpeg, 24);
   image.Dispose();
   srcImage.Dispose();
}

Public Sub SourcePointPropertyExample(ByVal image As RasterImage, ByVal srcImage As RasterImage, ByVal outStream As Stream)
   ' Prepare the command
   Dim command As AlphaBlendCommand = New AlphaBlendCommand()
   ' Combine srcImage with image, with half opacity.
   'command.DestinationLeadRect = new LeadRect(image.Width / 2 - srcImage.Width / 2, image.Height / 2 - srcImage.Height / 2, image.Width / 2 + srcImage.Width / 8, image.Height / 2 + srcImage.Height / 8);
   command.DestinationRectangle = New LeadRect(image.Width / 8, image.Height / 8, image.Width, image.Height)
   command.SourceImage = srcImage
   command.SourcePoint = New LeadPoint(0, 0)
   command.Opacity = 128
   command.Run(image)
   ' Save result image
   Dim codecs As RasterCodecs = New RasterCodecs()
   codecs.Save(image, outStream, RasterImageFormat.Jpeg, 24)
   image.Dispose()
   srcImage.Dispose()
End Sub