GdPicture.NET.14
GdPicture14 Namespace / GdPicturePDF Class / CloseAndStrokePath Method
Example





In This Topic
CloseAndStrokePath Method (GdPicturePDF)
In This Topic
Closes and strokes the current path, defined within a currently selected page of the loaded PDF document. More precisely, this method sets the path-painting operator "s". The use of this method has the same effect as the use of the sequence of methods ClosePath() and StrokePath(), and therefore all details related to the GdPicturePDF.StrokePath method remain in effect.
Syntax
'Declaration
 

Public Function CloseAndStrokePath() As GdPictureStatus
 

Return Value

A member of the GdPictureStatus enumeration. If the method has been successfully followed, then the return value is GdPictureStatus.OK.

We strongly recommend always checking this status first.

Remarks
This method is only allowed for use with non-encrypted documents.

You also need to be aware that the path-painting operators end a path object, so once a path has been painted, it is no longer defined.

For further assistance, please see the Path Construction and Painting section and the Graphics State section of the GdPicturePDF class in the Reference Guide, as well as the Path-Painting Operators section in the PDF Reference.

Example
How to close and stroke the current path using different approaches. 
Dim caption As String = "Example: CloseAndStrokePath"
Dim gdpicturePDF As New GdPicturePDF()
Dim status As GdPictureStatus = gdpicturePDF.NewPDF()
If status = GdPictureStatus.OK Then
    gdpicturePDF.SetOrigin(PdfOrigin.PdfOriginTopLeft)
    gdpicturePDF.SetMeasurementUnit(PdfMeasurementUnit.PdfMeasurementUnitMillimeter)
    If (gdpicturePDF.NewPage(210, 297) = GdPictureStatus.OK) AndAlso
       (gdpicturePDF.SetLineWidth(2) = GdPictureStatus.OK) AndAlso
       (gdpicturePDF.SetLineColor(255, 0, 0) = GdPictureStatus.OK) AndAlso
       (gdpicturePDF.BeginPath(100, 10) = GdPictureStatus.OK) AndAlso
       (gdpicturePDF.AddLineToPath(20, 50) = GdPictureStatus.OK) AndAlso
       (gdpicturePDF.AddLineToPath(190, 50) = GdPictureStatus.OK) AndAlso
       (gdpicturePDF.StrokePath() = GdPictureStatus.OK) AndAlso
       (gdpicturePDF.BeginPath(100, 80) = GdPictureStatus.OK) AndAlso
       (gdpicturePDF.AddLineToPath(20, 120) = GdPictureStatus.OK) AndAlso
       (gdpicturePDF.AddLineToPath(190, 120) = GdPictureStatus.OK) AndAlso
       (gdpicturePDF.ClosePath() = GdPictureStatus.OK) AndAlso
       (gdpicturePDF.StrokePath() = GdPictureStatus.OK) AndAlso
       (gdpicturePDF.BeginPath(100, 150) = GdPictureStatus.OK) AndAlso
       (gdpicturePDF.AddLineToPath(20, 200) = GdPictureStatus.OK) AndAlso
       (gdpicturePDF.AddLineToPath(190, 200) = GdPictureStatus.OK) AndAlso
       (gdpicturePDF.CloseAndStrokePath() = GdPictureStatus.OK) Then
        status = gdpicturePDF.SaveToFile("test_CloseAndStrokePath1.pdf")
        If status = GdPictureStatus.OK Then
            MessageBox.Show("The example has been followed successfully and the file has been saved.", caption)
        Else
            MessageBox.Show("The example has been followed successfully, but the file can't be saved. Status: " + status.ToString(), caption)
        End If
    Else
        MessageBox.Show("The example has not been followed successfully." + vbCrLf + "The last known status is " + gdpicturePDF.GetStat().ToString(), caption)
    End If
Else
    MessageBox.Show("The NewPDF() method has failed with the status: " + status.ToString(), caption)
End If
gdpicturePDF.Dispose()
Dim caption As String = "Example: CloseAndStrokePath"
Dim gdpicturePDF As New GdPicturePDF()
Dim status As GdPictureStatus = gdpicturePDF.NewPDF()
If status = GdPictureStatus.OK Then
    gdpicturePDF.SetOrigin(PdfOrigin.PdfOriginTopLeft)
    gdpicturePDF.SetMeasurementUnit(PdfMeasurementUnit.PdfMeasurementUnitMillimeter)
    If (gdpicturePDF.NewPage(210, 297) = GdPictureStatus.OK) AndAlso
       (gdpicturePDF.SetLineWidth(2) = GdPictureStatus.OK) AndAlso
       (gdpicturePDF.SetLineColor(255, 0, 0) = GdPictureStatus.OK) AndAlso
       (gdpicturePDF.BeginPath(100, 10) = GdPictureStatus.OK) AndAlso
       (gdpicturePDF.AddLineToPath(20, 50) = GdPictureStatus.OK) AndAlso
       (gdpicturePDF.AddLineToPath(190, 50) = GdPictureStatus.OK) AndAlso
       (gdpicturePDF.ClosePath() = GdPictureStatus.OK) AndAlso
       (gdpicturePDF.StrokePath() = GdPictureStatus.OK) AndAlso
       (gdpicturePDF.SetLineColor(0, 0, 255) = GdPictureStatus.OK) AndAlso
       (gdpicturePDF.BeginPath(100, 80) = GdPictureStatus.OK) AndAlso
       (gdpicturePDF.AddLineToPath(20, 120) = GdPictureStatus.OK) AndAlso
       (gdpicturePDF.AddLineToPath(190, 120) = GdPictureStatus.OK) AndAlso
       (gdpicturePDF.CloseAndStrokePath() = GdPictureStatus.OK) AndAlso
       (gdpicturePDF.SetFillColor(238, 130, 238) = GdPictureStatus.OK) AndAlso
       (gdpicturePDF.BeginPath(100, 150) = GdPictureStatus.OK) AndAlso
       (gdpicturePDF.AddLineToPath(20, 200) = GdPictureStatus.OK) AndAlso
       (gdpicturePDF.AddLineToPath(190, 200) = GdPictureStatus.OK) AndAlso
       (gdpicturePDF.CloseAndFillAndStrokePath() = GdPictureStatus.OK) Then
        status = gdpicturePDF.SaveToFile("test_CloseAndStrokePath2.pdf")
        If status = GdPictureStatus.OK Then
            MessageBox.Show("The example has been followed successfully and the file has been saved.", caption)
        Else
            MessageBox.Show("The example has been followed successfully, but the file can't be saved. Status: " + status.ToString(), caption)
        End If
    Else
        MessageBox.Show("The example has not been followed successfully." + vbCrLf + "The last known status is " + gdpicturePDF.GetStat().ToString(), caption)
    End If
Else
    MessageBox.Show("The NewPDF() method has failed with the status: " + status.ToString(), caption)
End If
gdpicturePDF.Dispose()
See Also

Reference

GdPicturePDF Class
GdPicturePDF Members
SetLineColor(Byte,Byte,Byte) Method
BeginPath Method
ClosePath Method
StrokePath Method
FillPath Method
CloseAndFillAndStrokePath Method

 

 

Ⓒ Copyright 2024 Nutrient. All rights reserved