''
'' 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 PicEffRecolor
    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.Recolor(RecolorType.Sepia)
        doc.Body.AddParagraph($"Recolor effect ({RecolorType.Sepia})", captionStyle)
        Return doc
    End Function
End Class