Example





In This Topic
GdPicture14 Namespace / GdPicturePDF Class / CloseAndStrokePath Method

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
public GdPictureStatus CloseAndStrokePath()
public function CloseAndStrokePath(): GdPictureStatus; 
public function CloseAndStrokePath() : GdPictureStatus;
public: GdPictureStatus CloseAndStrokePath(); 
public:
GdPictureStatus CloseAndStrokePath(); 

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()
string caption = "Example: CloseAndStrokePath";
GdPicturePDF gdpicturePDF = new GdPicturePDF();
GdPictureStatus status = gdpicturePDF.NewPDF();
if (status == GdPictureStatus.OK)
{
    gdpicturePDF.SetOrigin(PdfOrigin.PdfOriginTopLeft);
    gdpicturePDF.SetMeasurementUnit(PdfMeasurementUnit.PdfMeasurementUnitMillimeter);
    if ((gdpicturePDF.NewPage(210, 297) == GdPictureStatus.OK) &&
        (gdpicturePDF.SetLineWidth(2) == GdPictureStatus.OK) &&
        (gdpicturePDF.SetLineColor(255, 0, 0) == GdPictureStatus.OK) &&
        (gdpicturePDF.BeginPath(100, 10) == GdPictureStatus.OK) &&
        (gdpicturePDF.AddLineToPath(20, 50) == GdPictureStatus.OK) &&
        (gdpicturePDF.AddLineToPath(190, 50) == GdPictureStatus.OK) &&
        (gdpicturePDF.StrokePath() == GdPictureStatus.OK) &&
        (gdpicturePDF.BeginPath(100, 80) == GdPictureStatus.OK) &&
        (gdpicturePDF.AddLineToPath(20, 120) == GdPictureStatus.OK) &&
        (gdpicturePDF.AddLineToPath(190, 120) == GdPictureStatus.OK) &&
        (gdpicturePDF.ClosePath() == GdPictureStatus.OK) &&
        (gdpicturePDF.StrokePath() == GdPictureStatus.OK) &&
        (gdpicturePDF.BeginPath(100, 150) == GdPictureStatus.OK) &&
        (gdpicturePDF.AddLineToPath(20, 200) == GdPictureStatus.OK) &&
        (gdpicturePDF.AddLineToPath(190, 200) == GdPictureStatus.OK) &&
        (gdpicturePDF.CloseAndStrokePath() == GdPictureStatus.OK))
    {
        status = gdpicturePDF.SaveToFile("test_CloseAndStrokePath1.pdf");
        if (status == GdPictureStatus.OK)
            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);
    }
    else
        MessageBox.Show("The example has not been followed successfully.\nThe last known status is " + gdpicturePDF.GetStat().ToString(), caption);
}
else
    MessageBox.Show("The NewPDF() method has failed with the status: " + status.ToString(), caption);
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()
string caption = "Example: CloseAndStrokePath";
GdPicturePDF gdpicturePDF = new GdPicturePDF();
GdPictureStatus status = gdpicturePDF.NewPDF();
if (status == GdPictureStatus.OK)
{
    gdpicturePDF.SetOrigin(PdfOrigin.PdfOriginTopLeft);
    gdpicturePDF.SetMeasurementUnit(PdfMeasurementUnit.PdfMeasurementUnitMillimeter);
    if ((gdpicturePDF.NewPage(210, 297) == GdPictureStatus.OK) &&
        (gdpicturePDF.SetLineWidth(2) == GdPictureStatus.OK) &&
        (gdpicturePDF.SetLineColor(255, 0, 0) == GdPictureStatus.OK) &&
        (gdpicturePDF.BeginPath(100, 10) == GdPictureStatus.OK) &&
        (gdpicturePDF.AddLineToPath(20, 50) == GdPictureStatus.OK) &&
        (gdpicturePDF.AddLineToPath(190, 50) == GdPictureStatus.OK) &&
        (gdpicturePDF.ClosePath() == GdPictureStatus.OK) &&
        (gdpicturePDF.StrokePath() == GdPictureStatus.OK) &&
        (gdpicturePDF.SetLineColor(0, 0, 255) == GdPictureStatus.OK) &&
        (gdpicturePDF.BeginPath(100, 80) == GdPictureStatus.OK) &&
        (gdpicturePDF.AddLineToPath(20, 120) == GdPictureStatus.OK) &&
        (gdpicturePDF.AddLineToPath(190, 120) == GdPictureStatus.OK) &&
        (gdpicturePDF.CloseAndStrokePath() == GdPictureStatus.OK) &&
        (gdpicturePDF.SetFillColor(238, 130, 238) == GdPictureStatus.OK) &&
        (gdpicturePDF.BeginPath(100, 150) == GdPictureStatus.OK) &&
        (gdpicturePDF.AddLineToPath(20, 200) == GdPictureStatus.OK) &&
        (gdpicturePDF.AddLineToPath(190, 200) == GdPictureStatus.OK) &&
        (gdpicturePDF.CloseAndFillAndStrokePath() == GdPictureStatus.OK))
    {
        status = gdpicturePDF.SaveToFile("test_CloseAndStrokePath2.pdf");
        if (status == GdPictureStatus.OK)
            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);
    }
    else
        MessageBox.Show("The example has not been followed successfully.\nThe last known status is " + gdpicturePDF.GetStat().ToString(), caption);
}
else
    MessageBox.Show("The NewPDF() method has failed with the status: " + status.ToString(), caption);
            
gdpicturePDF.Dispose();
See Also