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





In This Topic
SetFillColor(Color) Method
In This Topic
Sets the fill color used by all subsequent filling operations, like the DrawRectangle method. The initial value is set to black.

The fill 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 SetFillColor( _
   ByVal FillColor As Color _
) As GdPictureStatus
public GdPictureStatus SetFillColor( 
   Color FillColor
)
public function SetFillColor( 
    FillColor: Color
): GdPictureStatus; 
public function SetFillColor( 
   FillColor : Color
) : GdPictureStatus;
public: GdPictureStatus SetFillColor( 
   Color FillColor
) 
public:
GdPictureStatus SetFillColor( 
   Color FillColor
) 

Parameters

FillColor
A color object that defines the new fill 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 colors to be used to fill various drawn rectangles.
Dim caption As String = "Example: SetFillColor"
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_FillColor.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: SetFillColor";
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_FillColor.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