Dim caption As String = "Example: ClipPathOdd"
Dim gdpicturePDF As New GdPicturePDF()
Dim status As GdPictureStatus = gdpicturePDF.NewPDF()
If status = GdPictureStatus.OK Then
gdpicturePDF.SetOrigin(PdfOrigin.PdfOriginTopLeft)
If (gdpicturePDF.NewPage(PdfPageSizes.PdfPageSizeA4) = GdPictureStatus.OK) AndAlso
(gdpicturePDF.SetFillColor(0, 0, 128) = GdPictureStatus.OK) AndAlso
(gdpicturePDF.BeginPath(250, 100) = GdPictureStatus.OK) AndAlso
(gdpicturePDF.AddLineToPath(100, 350) = GdPictureStatus.OK) AndAlso
(gdpicturePDF.AddLineToPath(390, 170) = GdPictureStatus.OK) AndAlso
(gdpicturePDF.AddLineToPath(110, 170) = GdPictureStatus.OK) AndAlso
(gdpicturePDF.AddLineToPath(400, 350) = GdPictureStatus.OK) AndAlso
(gdpicturePDF.ClosePath() = GdPictureStatus.OK) AndAlso
(gdpicturePDF.ClipPath() = GdPictureStatus.OK) AndAlso
(gdpicturePDF.DrawRectangle(0, 0, 612, 400, True, False) = GdPictureStatus.OK) AndAlso
(gdpicturePDF.NewPage(PdfPageSizes.PdfPageSizeA4) = GdPictureStatus.OK) AndAlso
(gdpicturePDF.SetFillColor(0, 0, 128) = GdPictureStatus.OK) AndAlso
(gdpicturePDF.BeginPath(250, 400) = GdPictureStatus.OK) AndAlso
(gdpicturePDF.AddLineToPath(100, 650) = GdPictureStatus.OK) AndAlso
(gdpicturePDF.AddLineToPath(390, 470) = GdPictureStatus.OK) AndAlso
(gdpicturePDF.AddLineToPath(110, 470) = GdPictureStatus.OK) AndAlso
(gdpicturePDF.AddLineToPath(400, 650) = GdPictureStatus.OK) AndAlso
(gdpicturePDF.ClosePath() = GdPictureStatus.OK) AndAlso
(gdpicturePDF.ClipPathOdd() = GdPictureStatus.OK) AndAlso
(gdpicturePDF.DrawRectangle(0, 400, 612, 800, True, False) = GdPictureStatus.OK) Then
status = gdpicturePDF.SaveToFile("test_ClipPathOdd.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: ClipPathOdd";
GdPicturePDF gdpicturePDF = new GdPicturePDF();
GdPictureStatus status = gdpicturePDF.NewPDF();
if (status == GdPictureStatus.OK)
{
gdpicturePDF.SetOrigin(PdfOrigin.PdfOriginTopLeft);
if ((gdpicturePDF.NewPage(PdfPageSizes.PdfPageSizeA4) == GdPictureStatus.OK) &&
(gdpicturePDF.SetFillColor(0, 0, 128) == GdPictureStatus.OK) &&
(gdpicturePDF.BeginPath(250, 100) == GdPictureStatus.OK) &&
(gdpicturePDF.AddLineToPath(100, 350) == GdPictureStatus.OK) &&
(gdpicturePDF.AddLineToPath(390, 170) == GdPictureStatus.OK) &&
(gdpicturePDF.AddLineToPath(110, 170) == GdPictureStatus.OK) &&
(gdpicturePDF.AddLineToPath(400, 350) == GdPictureStatus.OK) &&
(gdpicturePDF.ClosePath() == GdPictureStatus.OK) &&
(gdpicturePDF.ClipPath() == GdPictureStatus.OK) &&
(gdpicturePDF.DrawRectangle(0, 0, 612, 400, true, false) == GdPictureStatus.OK) &&
(gdpicturePDF.NewPage(PdfPageSizes.PdfPageSizeA4) == GdPictureStatus.OK) &&
(gdpicturePDF.SetFillColor(0, 0, 128) == GdPictureStatus.OK) &&
(gdpicturePDF.BeginPath(250, 400) == GdPictureStatus.OK) &&
(gdpicturePDF.AddLineToPath(100, 650) == GdPictureStatus.OK) &&
(gdpicturePDF.AddLineToPath(390, 470) == GdPictureStatus.OK) &&
(gdpicturePDF.AddLineToPath(110, 470) == GdPictureStatus.OK) &&
(gdpicturePDF.AddLineToPath(400, 650) == GdPictureStatus.OK) &&
(gdpicturePDF.ClosePath() == GdPictureStatus.OK) &&
(gdpicturePDF.ClipPathOdd() == GdPictureStatus.OK) &&
(gdpicturePDF.DrawRectangle(0, 400, 612, 800, true, false) == GdPictureStatus.OK))
{
status = gdpicturePDF.SaveToFile("test_ClipPathOdd.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();