GdPicture.NET.14.API
GdPicture14 Namespace / GdPicturePDF Class / SetTextSize Method
A new text (font) size, in points. Initial value is 12.

This value is defined for use with any font you choose.

Example





In This Topic
SetTextSize Method (GdPicturePDF)
In This Topic
Sets the current text size (the font size, actually) to be used when drawing text onto the currently loaded PDF document. The initial value is set to 12.

The text size parameter is one of the text state parameters, that only affect text. The text state parameters are initialized to their default values at the beginning of each page (see PDF Reference, Section "Text State Parameters and Operators").

Syntax
'Declaration
 

Public Function SetTextSize( _
   ByVal TextSize As Single _
) As GdPictureStatus
public GdPictureStatus SetTextSize( 
   float TextSize
)
public function SetTextSize( 
    TextSize: Single
): GdPictureStatus; 
public function SetTextSize( 
   TextSize : float
) : GdPictureStatus;
public: GdPictureStatus SetTextSize( 
   float TextSize
) 
public:
GdPictureStatus SetTextSize( 
   float TextSize
)

Parameters

TextSize
A new text (font) size, in points. Initial value is 12.

This value is defined for use with any font you choose.

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.

As being noticed above, be aware that the text state parameters are initialized to their default values at the beginning of each page.

Just to remind you that 1 point is equivalent to 1/72 of an inch.

Example
How to set the required text size in the PDF document in order to be able to draw text with this size. 
Dim caption As String = "Example: SetTextSize"
Dim gdpicturePDF As New GdPicturePDF()
Dim status As GdPictureStatus = gdpicturePDF.NewPDF()
If status = GdPictureStatus.OK Then
    If gdpicturePDF.NewPage(PdfPageSizes.PdfPageSizeA4) = GdPictureStatus.OK Then
        Dim fontName As String = gdpicturePDF.AddStandardFont(PdfStandardFont.PdfStandardFontHelvetica)
        If gdpicturePDF.GetStat() = GdPictureStatus.OK Then
            If (gdpicturePDF.DrawText(fontName, 150, 700, "GdPicture.NET   default text size") = GdPictureStatus.OK) AndAlso
               (gdpicturePDF.SetTextSize(25) = GdPictureStatus.OK) AndAlso
               (gdpicturePDF.DrawText(fontName, 100, 600, "GdPicture.NET   text size = 25") = GdPictureStatus.OK) AndAlso
               (gdpicturePDF.SetTextSize(40) = GdPictureStatus.OK) AndAlso
               (gdpicturePDF.DrawText(fontName, 30, 500, "GdPicture.NET   text size = 40") = GdPictureStatus.OK) AndAlso
               (gdpicturePDF.SetTextSize(12) = GdPictureStatus.OK) Then 'Reset to the initial value.
                status = gdpicturePDF.SaveToFile("test_SetTextSize.pdf")
                If status = GdPictureStatus.OK Then
                    MessageBox.Show("The text has been successfully drawn and the file has been saved.", caption)
                Else
                    MessageBox.Show("The text has been successfully drawn," + vbCrLf + "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 AddStandardFont() method has failed with the status: " + status.ToString(), caption)
        End If
    Else
        MessageBox.Show("The NewPage() method has failed with the status: " + status.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: SetTextSize";
GdPicturePDF gdpicturePDF = new GdPicturePDF();
GdPictureStatus status = gdpicturePDF.NewPDF();
if (status == GdPictureStatus.OK)
{
    if (gdpicturePDF.NewPage(PdfPageSizes.PdfPageSizeA4) == GdPictureStatus.OK)
    {
        string fontName = gdpicturePDF.AddStandardFont(PdfStandardFont.PdfStandardFontHelvetica);
        if (gdpicturePDF.GetStat() == GdPictureStatus.OK)
        {
            if ((gdpicturePDF.DrawText(fontName, 150, 700, "GdPicture.NET   default text size") == GdPictureStatus.OK) &&
                (gdpicturePDF.SetTextSize(25) == GdPictureStatus.OK) &&
                (gdpicturePDF.DrawText(fontName, 100, 600, "GdPicture.NET   text size = 25") == GdPictureStatus.OK) &&
                (gdpicturePDF.SetTextSize(40) == GdPictureStatus.OK) &&
                (gdpicturePDF.DrawText(fontName, 30, 500, "GdPicture.NET   text size = 40") == GdPictureStatus.OK) &&
                (gdpicturePDF.SetTextSize(12) == GdPictureStatus.OK)) //Resetting to the initial value.
            {
                status = gdpicturePDF.SaveToFile("test_SetTextSize.pdf");
                if (status == GdPictureStatus.OK)
                    MessageBox.Show("The text has been successfully drawn and the file has been saved.", caption);
                else
                    MessageBox.Show("The text has been successfully drawn,\nbut 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 AddStandardFont() method has failed with the status: " + status.ToString(), caption);
    }
    else
        MessageBox.Show("The NewPage() method has failed with the status: " + status.ToString(), caption);
}
else
    MessageBox.Show("The NewPDF() method has failed with the status: " + status.ToString(), caption);
gdpicturePDF.Dispose();
Example
How to set the required text size in the PDF document in order to be able to draw text with this size. Dim caption As String = "Example: SetTextSize" Dim gdpicturePDF As New GdPicturePDF() Dim status As GdPictureStatus = gdpicturePDF.NewPDF() If status = GdPictureStatus.OK Then If gdpicturePDF.NewPage(PdfPageSizes.PdfPageSizeA4) = GdPictureStatus.OK Then Dim fontName As String = gdpicturePDF.AddStandardFont(PdfStandardFont.PdfStandardFontHelvetica) If gdpicturePDF.GetStat() = GdPictureStatus.OK Then If (gdpicturePDF.DrawText(fontName, 150, 700, "GdPicture.NET default text size") = GdPictureStatus.OK) AndAlso (gdpicturePDF.SetTextSize(25) = GdPictureStatus.OK) AndAlso (gdpicturePDF.DrawText(fontName, 100, 600, "GdPicture.NET text size = 25") = GdPictureStatus.OK) AndAlso (gdpicturePDF.SetTextSize(40) = GdPictureStatus.OK) AndAlso (gdpicturePDF.DrawText(fontName, 30, 500, "GdPicture.NET text size = 40") = GdPictureStatus.OK) AndAlso (gdpicturePDF.SetTextSize(12) = GdPictureStatus.OK) Then 'Reset to the initial value. status = gdpicturePDF.SaveToFile("test_SetTextSize.pdf") If status = GdPictureStatus.OK Then MessageBox.Show("The text has been successfully drawn and the file has been saved.", caption) Else MessageBox.Show("The text has been successfully drawn," + vbCrLf + "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 AddStandardFont() method has failed with the status: " + status.ToString(), caption) End If Else MessageBox.Show("The NewPage() method has failed with the status: " + status.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: SetTextSize"; GdPicturePDF gdpicturePDF = new GdPicturePDF(); GdPictureStatus status = gdpicturePDF.NewPDF(); if (status == GdPictureStatus.OK) { if (gdpicturePDF.NewPage(PdfPageSizes.PdfPageSizeA4) == GdPictureStatus.OK) { string fontName = gdpicturePDF.AddStandardFont(PdfStandardFont.PdfStandardFontHelvetica); if (gdpicturePDF.GetStat() == GdPictureStatus.OK) { if ((gdpicturePDF.DrawText(fontName, 150, 700, "GdPicture.NET default text size") == GdPictureStatus.OK) && (gdpicturePDF.SetTextSize(25) == GdPictureStatus.OK) && (gdpicturePDF.DrawText(fontName, 100, 600, "GdPicture.NET text size = 25") == GdPictureStatus.OK) && (gdpicturePDF.SetTextSize(40) == GdPictureStatus.OK) && (gdpicturePDF.DrawText(fontName, 30, 500, "GdPicture.NET text size = 40") == GdPictureStatus.OK) && (gdpicturePDF.SetTextSize(12) == GdPictureStatus.OK)) //Resetting to the initial value. { status = gdpicturePDF.SaveToFile("test_SetTextSize.pdf"); if (status == GdPictureStatus.OK) MessageBox.Show("The text has been successfully drawn and the file has been saved.", caption); else MessageBox.Show("The text has been successfully drawn,\nbut 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 AddStandardFont() method has failed with the status: " + status.ToString(), caption); } else MessageBox.Show("The NewPage() method has failed with the status: " + status.ToString(), caption); } else MessageBox.Show("The NewPDF() method has failed with the status: " + status.ToString(), caption); gdpicturePDF.Dispose();
See Also

Reference

GdPicturePDF Class
GdPicturePDF Members
DrawText Method
AddStandardFont Method
AddTrueTypeFont Method
SetTextMode Method

 

 

Ⓒ Copyright 2024 Nutrient. All rights reserved