Dim caption As String = "Example: SetTextRise"
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
Dim width As Single = gdpicturePDF.GetTextWidth(fontName, 20, "GdPicture.NET")
If (gdpicturePDF.GetStat() = GdPictureStatus.OK) AndAlso
(gdpicturePDF.SetTextSize(20) = GdPictureStatus.OK) AndAlso
(gdpicturePDF.DrawText(fontName, 100, 500, "GdPicture.NET") = GdPictureStatus.OK) AndAlso
(gdpicturePDF.SetTextSize(15) = GdPictureStatus.OK) AndAlso
(gdpicturePDF.SetTextRise(20 * 2 / 3) = GdPictureStatus.OK) AndAlso
(gdpicturePDF.DrawText(fontName, 100 + width, 500, "superscripted") = GdPictureStatus.OK) AndAlso
(gdpicturePDF.SetTextRise(-20 * 1 / 3) = GdPictureStatus.OK) AndAlso
(gdpicturePDF.DrawText(fontName, 100 + width, 500, "subscripted") = GdPictureStatus.OK) AndAlso
(gdpicturePDF.SetTextRise(0) = GdPictureStatus.OK) Then 'Resetting to the initial value.
status = gdpicturePDF.SaveToFile("test_SetTextRise.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: SetTextRise";
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)
{
float width = gdpicturePDF.GetTextWidth(fontName, 20, "GdPicture.NET");
if ((gdpicturePDF.GetStat() == GdPictureStatus.OK) &&
(gdpicturePDF.SetTextSize(20) == GdPictureStatus.OK) &&
(gdpicturePDF.DrawText(fontName, 100, 500, "GdPicture.NET") == GdPictureStatus.OK) &&
(gdpicturePDF.SetTextSize(15) == GdPictureStatus.OK) &&
(gdpicturePDF.SetTextRise(20 * 2/3) == GdPictureStatus.OK) &&
(gdpicturePDF.DrawText(fontName, 100 + width, 500, "superscripted") == GdPictureStatus.OK) &&
(gdpicturePDF.SetTextRise(-20 * 1/3) == GdPictureStatus.OK) &&
(gdpicturePDF.DrawText(fontName, 100 + width, 500, "subscripted") == GdPictureStatus.OK) &&
(gdpicturePDF.SetTextRise(0) == GdPictureStatus.OK)) //Resetting to the initial value.
{
status = gdpicturePDF.SaveToFile("test_SetTextRise.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();