Here's what I'm doing now:
Code: Select all
Dim Imaging1 As New GdPicture.GdPictureImaging
Dim Left As Integer
Dim Top As Integer
Dim Width As Integer
Dim Height As Integer
Dim MainImage As Integer = Imaging1.CreateGdPictureImageFromFile(gdGreenFGRND.Tag)
Stat = Imaging1.fxRemoveBackgroundChromaKey(MainImage, ColorKey.ColorKeyGreen, HSThreshold.Value, HSMinVal.Value)
gdGreenFGRND.GetDisplayedArea(Left, Top, Width, Height)
Dim newimage As Integer = Imaging1.CreateGdPictureImageFromFile(gdGreenBKG.Tag)
Imaging1.Crop(MainImage, Left, Top, Width, Height)
Imaging1.ResizeHeightRatio(MainImage, 2100, Drawing2D.InterpolationMode.HighQualityBicubic)
Imaging1.DrawGdPictureImage(MainImage, newimage, 0, 0, 1500, 2100, Drawing2D.InterpolationMode.HighQualityBicubic)
Imaging1.ReleaseGdPictureImage(MainImage)
Imaging1.SaveAsJPEG(newimage, sPath & "\GreenScreen.jpg")
Imaging1.ReleaseGdPictureImage(newimage)
Thanks.
John