GdPicture.NET.14
GdPicture14 Namespace / GdPicturePDF Class / SetLineColor Method / SetLineColor(Color) Method
A color object that defines the new line color. Initial value: black.
Example





In This Topic
SetLineColor(Color) Method
In This Topic
Sets the line color used by all subsequent stroking operations, like the DrawLine method or the DrawRectangle method. The initial value is set to black.

The line (stroke) color parameter is one of the graphics state parameters. These parameters are initialized to their default values at the beginning of each page (see PDF Reference, Section "Graphics State").

Syntax
'Declaration
 
Public Overloads Function SetLineColor( _
   ByVal LineColor As Color _
) As GdPictureStatus
public GdPictureStatus SetLineColor( 
   Color LineColor
)
public function SetLineColor( 
    LineColor: Color
): GdPictureStatus; 
public function SetLineColor( 
   LineColor : Color
) : GdPictureStatus;
public: GdPictureStatus SetLineColor( 
   Color LineColor
) 
public:
GdPictureStatus SetLineColor( 
   Color LineColor
) 

Parameters

LineColor
A color object that defines the new line color. Initial value: black.

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.

Be aware also that graphics state parameters are initialized to their default values at the beginning of each page.

Example
How to set the different line colors to draw various rectangles.
Dim caption As String = "Example: SetLineColor"
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.ResetGraphicsState() = GdPictureStatus.OK) AndAlso 'The default graphics state is set.
       (gdpicturePDF.SetLineWidth(1) = GdPictureStatus.OK) AndAlso
       (gdpicturePDF.SetLineColor(Color.Blue) = GdPictureStatus.OK) AndAlso
       (gdpicturePDF.SetFillColor(Color.Cyan) = GdPictureStatus.OK) AndAlso
       (gdpicturePDF.DrawRectangle(10, 20, 40, 20, True, True) = GdPictureStatus.OK) AndAlso
       (gdpicturePDF.SetLineWidth(3) = GdPictureStatus.OK) AndAlso
       (gdpicturePDF.SetLineColor(Color.Red) = GdPictureStatus.OK) AndAlso
       (gdpicturePDF.SetFillColor(Color.Bisque) = GdPictureStatus.OK) AndAlso
       (gdpicturePDF.DrawRectangle(80, 20, 40, 20, True, True) = GdPictureStatus.OK) AndAlso
       (gdpicturePDF.SetLineWidth(5) = GdPictureStatus.OK) AndAlso
       (gdpicturePDF.SetLineColor(Color.Chocolate) = GdPictureStatus.OK) AndAlso
       (gdpicturePDF.SetFillColor(Color.Fuchsia) = GdPictureStatus.OK) AndAlso
       (gdpicturePDF.DrawRectangle(150, 20, 40, 20, True, True) = GdPictureStatus.OK) Then
        status = gdpicturePDF.SaveToFile("test_LineColor.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: SetLineColor";
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.ResetGraphicsState() == GdPictureStatus.OK) && //The default graphics state is set.
        (gdpicturePDF.SetLineWidth(1) == GdPictureStatus.OK) &&
        (gdpicturePDF.SetLineColor(Color.Blue) == GdPictureStatus.OK) &&
        (gdpicturePDF.SetFillColor(Color.Cyan) == GdPictureStatus.OK) &&
        (gdpicturePDF.DrawRectangle(10, 20, 40, 20, true, true) == GdPictureStatus.OK) &&
        (gdpicturePDF.SetLineWidth(3) == GdPictureStatus.OK) &&
        (gdpicturePDF.SetLineColor(Color.Red) == GdPictureStatus.OK) &&
        (gdpicturePDF.SetFillColor(Color.Bisque) == GdPictureStatus.OK) &&
        (gdpicturePDF.DrawRectangle(80, 20, 40, 20, true, true) == GdPictureStatus.OK) &&
        (gdpicturePDF.SetLineWidth(5) == GdPictureStatus.OK) &&
        (gdpicturePDF.SetLineColor(Color.Chocolate) == GdPictureStatus.OK) &&
        (gdpicturePDF.SetFillColor(Color.Fuchsia) == GdPictureStatus.OK) &&
        (gdpicturePDF.DrawRectangle(150, 20, 40, 20, true, true) == GdPictureStatus.OK))
    {
        status = gdpicturePDF.SaveToFile("test_LineColor.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