''
'' 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 PicEffBrightness
    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.Brightness = 0.5F
        doc.Body.AddParagraph($"Picture brightness is {picture.ImageData.Brightness}", captionStyle)
        Return doc
    End Function
End Class