''
'' This code is part of Document Solutions for Word demos.
'' Copyright (c) MESCIUS inc. All rights reserved.
''
Imports System.IO
Imports System.Drawing
Imports GrapeCity.Documents.Word

Public Class PicEffTransparentColor
    Function CreateDocx() As GcWordDocument
        Dim doc = New GcWordDocument()
        Util.SetNarrowMargins(doc)
        Dim captionStyle = doc.Styles.Add("CaptionStyle", doc.Styles(BuiltInStyleId.BodyTextFirstIndent2))

        Dim bytes = File.ReadAllBytes(Path.Combine("Resources", "Images", "wargravepink.jpg"))
        doc.Body.AddParagraph().AddRun().AddPicture(bytes, "image/jpeg", 450, 300)
        doc.Body.AddParagraph("Original picture", captionStyle)
        Dim picture = doc.Body.AddParagraph().AddRun().AddPicture(bytes, "image/jpeg", 450, 300)
        picture.ImageData.SetColorTransparent(New UserColor(Color.Black))
        picture.Fill.Type = FillType.Pattern
        picture.Fill.PatternFill.Type = PatternFillType.LargeConfetti
        picture.Fill.PatternFill.BackColor.RGB = Color.LightYellow
        picture.Fill.PatternFill.ForeColor.RGB = Color.Red
        doc.Body.AddParagraph($"Black is transparent, with confetti fill", captionStyle)
        Return doc
    End Function
End Class