Tuesday, 05 April 2011 07:21
PDF DrawImage in C#, VB.NET
using System;
using System.Drawing;
using Spire.Pdf;
using Spire.Pdf.Graphics;
namespace DrawImage
{
class Program
{
static void Main(string[] args)
{
//Create a pdf document.
PdfDocument doc = new PdfDocument();
// Create one page
PdfPageBase page = doc.Pages.Add();
TransformText(page);
DrawImage(page);
TransformImage(page);
//Save pdf file.
doc.SaveToFile("DrawImage.pdf");
doc.Close();
//Launching the Pdf file.
System.Diagnostics.Process.Start("DrawImage.pdf");
}
private static void TransformImage(PdfPageBase page)
{
//save graphics state
PdfGraphicsState state = page.Canvas.Save();
//Draw the text - transform
PdfFont font = new PdfFont(PdfFontFamily.Helvetica, 18f);
PdfSolidBrush brush1 = new PdfSolidBrush(Color.Blue);
PdfSolidBrush brush2 = new PdfSolidBrush(Color.CadetBlue);
PdfStringFormat format = new PdfStringFormat(PdfTextAlignment.Center);
page.Canvas.TranslateTransform(page.Canvas.ClientSize.Width / 2, 20);
page.Canvas.DrawString("Sales Report Chart", font, brush1, 0, 0, format);
page.Canvas.ScaleTransform(1f, -0.8f);
page.Canvas.DrawString("Sales Report Chart", font, brush2, 0, -2 * 18 * 1.2f, format);
//restor graphics
page.Canvas.Restore(state);
}
private static void DrawImage(PdfPageBase page)
{
PdfImage image = PdfImage.FromFile(@"SalesReportChart.png");
float width = image.Width * 0.75f;
float height = image.Height * 0.75f;
float x = (page.Canvas.ClientSize.Width - width) / 2;
page.Canvas.DrawImage(image, x, 60, width, height);
}
private static void TransformText(PdfPageBase page)
{
PdfImage image = PdfImage.FromFile(@"SalesReportChart.png");
int skewX = 20;
int skewY = 20;
float scaleX = 0.2f;
float scaleY = 0.6f;
int width = (int)((image.Width + image.Height * Math.Tan(Math.PI * skewX / 180)) * scaleX);
int height = (int)((image.Height + image.Width * Math.Tan(Math.PI * skewY / 180)) * scaleY);
PdfTemplate template = new PdfTemplate(width, height);
template.Graphics.ScaleTransform(scaleX, scaleY);
template.Graphics.SkewTransform(skewX, skewY);
template.Graphics.DrawImage(image, 0, 0);
//save graphics state
PdfGraphicsState state = page.Canvas.Save();
page.Canvas.TranslateTransform(page.Canvas.ClientSize.Width - 50, 260);
float offset = (page.Canvas.ClientSize.Width - 100) / 12;
for (int i = 0; i < 12; i++)
{
page.Canvas.TranslateTransform(-offset, 0);
page.Canvas.SetTransparency(i / 12.0f);
page.Canvas.DrawTemplate(template, new PointF(0, 0));
}
//restor graphics
page.Canvas.Restore(state);
}
}
}
Imports System.Drawing
Imports Spire.Pdf
Imports Spire.Pdf.Graphics
Namespace DrawImage
Friend Class Program
Shared Sub Main(ByVal args() As String)
'Create a pdf document.
Dim doc As New PdfDocument()
' Create one page
Dim page As PdfPageBase = doc.Pages.Add()
TransformText(page)
DrawImage(page)
TransformImage(page)
'Save pdf file.
doc.SaveToFile("DrawImage.pdf")
doc.Close()
'Launching the Pdf file.
Process.Start("DrawImage.pdf")
End Sub
Private Shared Sub TransformImage(ByVal page As PdfPageBase)
'save graphics state
Dim state As PdfGraphicsState = page.Canvas.Save()
'Draw the text - transform
Dim font As New PdfFont(PdfFontFamily.Helvetica, 18.0F)
Dim brush1 As New PdfSolidBrush(Color.Blue)
Dim brush2 As New PdfSolidBrush(Color.CadetBlue)
Dim format As New PdfStringFormat(PdfTextAlignment.Center)
page.Canvas.TranslateTransform(page.Canvas.ClientSize.Width \ 2, 20)
page.Canvas.DrawString("Sales Report Chart", font, brush1, 0, 0, format)
page.Canvas.ScaleTransform(1.0F, -0.8F)
page.Canvas.DrawString("Sales Report Chart", font, brush2, 0, -2 * 18 * 1.2F, format)
'restor graphics
page.Canvas.Restore(state)
End Sub
Private Shared Sub DrawImage(ByVal page As PdfPageBase)
Dim image As PdfImage = PdfImage.FromFile("SalesReportChart.png")
Dim width As Single = image.Width * 0.75F
Dim height As Single = image.Height * 0.75F
Dim x As Single = (page.Canvas.ClientSize.Width - width) / 2
page.Canvas.DrawImage(image, x, 60, width, height)
End Sub
Private Shared Sub TransformText(ByVal page As PdfPageBase)
Dim image As PdfImage = PdfImage.FromFile("SalesReportChart.png")
Dim skewX As Integer = 20
Dim skewY As Integer = 20
Dim scaleX As Single = 0.2F
Dim scaleY As Single = 0.6F
Dim width As Integer = CInt(Fix((image.Width + image.Height * Math.Tan(Math.PI * skewX \ 180)) * scaleX))
Dim height As Integer = CInt(Fix((image.Height + image.Width * Math.Tan(Math.PI * skewY \ 180)) * scaleY))
Dim template As New PdfTemplate(width, height)
template.Graphics.ScaleTransform(scaleX, scaleY)
template.Graphics.SkewTransform(skewX, skewY)
template.Graphics.DrawImage(image, 0, 0)
'save graphics state
Dim state As PdfGraphicsState = page.Canvas.Save()
page.Canvas.TranslateTransform(page.Canvas.ClientSize.Width - 50, 260)
Dim offset As Single = (page.Canvas.ClientSize.Width - 100) / 12
For i As Integer = 0 To 11
page.Canvas.TranslateTransform(-offset, 0)
page.Canvas.SetTransparency(i / 12.0F)
page.Canvas.DrawTemplate(template, New PointF(0, 0))
Next i
'restor graphics
page.Canvas.Restore(state)
End Sub
End Class
End Namespace
Published in
Drawing
Tuesday, 05 April 2011 07:12
PDF DrawText in C#, VB.NET
using System;
using System.Drawing;
using Spire.Pdf;
using Spire.Pdf.Graphics;
namespace DrawText
{
class Program
{
static void Main(string[] args)
{
//Create a pdf document.
PdfDocument doc = new PdfDocument();
// Create one page
PdfPageBase page = doc.Pages.Add();
DrawText(page);
AlignText(page);
AlignTextInRectangle(page);
TransformText(page);
RotateText(page);
//Save doc file.
doc.SaveToFile("DrawText.pdf");
doc.Close();
//Launching the Pdf file.
System.Diagnostics.Process.Start("DrawText.pdf");
}
private static void RotateText(PdfPageBase page)
{
//save graphics state
PdfGraphicsState state = page.Canvas.Save();
//Draw the text - transform
PdfFont font = new PdfFont(PdfFontFamily.Helvetica, 10f);
PdfSolidBrush brush = new PdfSolidBrush(Color.Blue);
PdfStringFormat centerAlignment
= new PdfStringFormat(PdfTextAlignment.Left, PdfVerticalAlignment.Middle);
float x = page.Canvas.ClientSize.Width / 2;
float y = 380;
page.Canvas.TranslateTransform(x, y);
for (int i = 0; i < 12; i++)
{
page.Canvas.RotateTransform(30);
page.Canvas.DrawString("Go! Turn Around! Go! Go! Go!", font, brush, 20, 0, centerAlignment);
}
//restor graphics
page.Canvas.Restore(state);
}
private static void TransformText(PdfPageBase page)
{
//save graphics state
PdfGraphicsState state = page.Canvas.Save();
//Draw the text - transform
PdfFont font = new PdfFont(PdfFontFamily.Helvetica, 18f);
PdfSolidBrush brush1 = new PdfSolidBrush(Color.DeepSkyBlue);
PdfSolidBrush brush2 = new PdfSolidBrush(Color.CadetBlue);
page.Canvas.TranslateTransform(20, 200);
page.Canvas.ScaleTransform(1f, 0.6f);
page.Canvas.SkewTransform(-10, 0);
page.Canvas.DrawString("Go! Turn Around! Go! Go! Go!", font, brush1, 0, 0);
page.Canvas.SkewTransform(10, 0);
page.Canvas.DrawString("Go! Turn Around! Go! Go! Go!", font, brush2, 0, 0);
page.Canvas.ScaleTransform(1f, -1f);
page.Canvas.DrawString("Go! Turn Around! Go! Go! Go!", font, brush2, 0, -2 * 18);
//restor graphics
page.Canvas.Restore(state);
}
private static void AlignTextInRectangle(PdfPageBase page)
{
//Draw the text - align in rectangle
PdfFont font = new PdfFont(PdfFontFamily.Helvetica, 10f);
PdfSolidBrush brush = new PdfSolidBrush(Color.Blue);
RectangleF rctg1 = new RectangleF(0, 70, page.Canvas.ClientSize.Width / 2, 100);
RectangleF rctg2
= new RectangleF(page.Canvas.ClientSize.Width / 2, 70, page.Canvas.ClientSize.Width / 2, 100);
page.Canvas.DrawRectangle(new PdfSolidBrush(Color.LightBlue), rctg1);
page.Canvas.DrawRectangle(new PdfSolidBrush(Color.LightSkyBlue), rctg2);
PdfStringFormat leftAlignment
= new PdfStringFormat(PdfTextAlignment.Left, PdfVerticalAlignment.Top);
page.Canvas.DrawString("Left! Left!", font, brush, rctg1, leftAlignment);
page.Canvas.DrawString("Left! Left!", font, brush, rctg2, leftAlignment);
PdfStringFormat rightAlignment
= new PdfStringFormat(PdfTextAlignment.Right, PdfVerticalAlignment.Middle);
page.Canvas.DrawString("Right! Right!", font, brush, rctg1, rightAlignment);
page.Canvas.DrawString("Right! Right!", font, brush, rctg2, rightAlignment);
PdfStringFormat centerAlignment
= new PdfStringFormat(PdfTextAlignment.Center, PdfVerticalAlignment.Bottom);
page.Canvas.DrawString("Go! Turn Around! Go! Go! Go!", font, brush, rctg1, centerAlignment);
page.Canvas.DrawString("Go! Turn Around! Go! Go! Go!", font, brush, rctg2, centerAlignment);
}
private static void AlignText(PdfPageBase page)
{
//Draw the text - alignment
PdfFont font = new PdfFont(PdfFontFamily.Helvetica, 20f);
PdfSolidBrush brush = new PdfSolidBrush(Color.Blue);
PdfStringFormat leftAlignment = new PdfStringFormat(PdfTextAlignment.Left, PdfVerticalAlignment.Middle);
page.Canvas.DrawString("Left!", font, brush, 0, 20, leftAlignment);
page.Canvas.DrawString("Left!", font, brush, 0, 50, leftAlignment);
PdfStringFormat rightAlignment = new PdfStringFormat(PdfTextAlignment.Right, PdfVerticalAlignment.Middle);
page.Canvas.DrawString("Right!", font, brush, page.Canvas.ClientSize.Width, 30, rightAlignment);
page.Canvas.DrawString("Right!", font, brush, page.Canvas.ClientSize.Width, 60, rightAlignment);
PdfStringFormat centerAlignment
= new PdfStringFormat(PdfTextAlignment.Center, PdfVerticalAlignment.Middle);
page.Canvas.DrawString("Go! Turn Around! Go! Go! Go!",
font, brush, page.Canvas.ClientSize.Width / 2, 40, centerAlignment);
}
private static void DrawText(PdfPageBase page)
{
//save graphics state
PdfGraphicsState state = page.Canvas.Save();
//Draw text - brush
String text = "Go! Turn Around! Go! Go! Go!";
PdfPen pen = PdfPens.DeepSkyBlue;
PdfSolidBrush brush = new PdfSolidBrush(Color.White);
PdfStringFormat format = new PdfStringFormat();
PdfFont font = new PdfFont(PdfFontFamily.Helvetica, 18f, PdfFontStyle.Italic);
SizeF size = font.MeasureString(text, format);
RectangleF rctg
= new RectangleF(page.Canvas.ClientSize.Width / 2 + 10, 180,
size.Width / 3 * 2, size.Height * 2);
page.Canvas.DrawString(text, font, pen, brush, rctg, format);
//restor graphics
page.Canvas.Restore(state);
}
}
}
Imports System.Drawing
Imports Spire.Pdf
Imports Spire.Pdf.Graphics
Namespace DrawText
Friend Class Program
Shared Sub Main(ByVal args() As String)
'Create a pdf document.
Dim doc As New PdfDocument()
' Create one page
Dim page As PdfPageBase = doc.Pages.Add()
DrawText(page)
AlignText(page)
AlignTextInRectangle(page)
TransformText(page)
RotateText(page)
'Save doc file.
doc.SaveToFile("DrawText.pdf")
doc.Close()
'Launching the Pdf file.
Process.Start("DrawText.pdf")
End Sub
Private Shared Sub RotateText(ByVal page As PdfPageBase)
'save graphics state
Dim state As PdfGraphicsState = page.Canvas.Save()
'Draw the text - transform
Dim font As New PdfFont(PdfFontFamily.Helvetica, 10.0F)
Dim brush As New PdfSolidBrush(Color.Blue)
Dim centerAlignment As New PdfStringFormat(PdfTextAlignment.Left, PdfVerticalAlignment.Middle)
Dim x As Single = page.Canvas.ClientSize.Width \ 2
Dim y As Single = 380
page.Canvas.TranslateTransform(x, y)
For i As Integer = 0 To 11
page.Canvas.RotateTransform(30)
page.Canvas.DrawString("Go! Turn Around! Go! Go! Go!", font, brush, 20, 0, centerAlignment)
Next i
'restor graphics
page.Canvas.Restore(state)
End Sub
Private Shared Sub TransformText(ByVal page As PdfPageBase)
'save graphics state
Dim state As PdfGraphicsState = page.Canvas.Save()
'Draw the text - transform
Dim font As New PdfFont(PdfFontFamily.Helvetica, 18.0F)
Dim brush1 As New PdfSolidBrush(Color.DeepSkyBlue)
Dim brush2 As New PdfSolidBrush(Color.CadetBlue)
page.Canvas.TranslateTransform(20, 200)
page.Canvas.ScaleTransform(1.0F, 0.6F)
page.Canvas.SkewTransform(-10, 0)
page.Canvas.DrawString("Go! Turn Around! Go! Go! Go!", font, brush1, 0, 0)
page.Canvas.SkewTransform(10, 0)
page.Canvas.DrawString("Go! Turn Around! Go! Go! Go!", font, brush2, 0, 0)
page.Canvas.ScaleTransform(1.0F, -1.0F)
page.Canvas.DrawString("Go! Turn Around! Go! Go! Go!", font, brush2, 0, -2 * 18)
'restor graphics
page.Canvas.Restore(state)
End Sub
Private Shared Sub AlignTextInRectangle(ByVal page As PdfPageBase)
'Draw the text - align in rectangle
Dim font As New PdfFont(PdfFontFamily.Helvetica, 10.0F)
Dim brush As New PdfSolidBrush(Color.Blue)
Dim rctg1 As New RectangleF(0, 70, page.Canvas.ClientSize.Width \ 2, 100)
Dim rctg2 As New RectangleF(page.Canvas.ClientSize.Width \ 2, 70, page.Canvas.ClientSize.Width \ 2, 100)
page.Canvas.DrawRectangle(New PdfSolidBrush(Color.LightBlue), rctg1)
page.Canvas.DrawRectangle(New PdfSolidBrush(Color.LightSkyBlue), rctg2)
Dim leftAlignment As New PdfStringFormat(PdfTextAlignment.Left, PdfVerticalAlignment.Top)
page.Canvas.DrawString("Left! Left!", font, brush, rctg1, leftAlignment)
page.Canvas.DrawString("Left! Left!", font, brush, rctg2, leftAlignment)
Dim rightAlignment As New PdfStringFormat(PdfTextAlignment.Right, PdfVerticalAlignment.Middle)
page.Canvas.DrawString("Right! Right!", font, brush, rctg1, rightAlignment)
page.Canvas.DrawString("Right! Right!", font, brush, rctg2, rightAlignment)
Dim centerAlignment As New PdfStringFormat(PdfTextAlignment.Center, PdfVerticalAlignment.Bottom)
page.Canvas.DrawString("Go! Turn Around! Go! Go! Go!", font, brush, rctg1, centerAlignment)
page.Canvas.DrawString("Go! Turn Around! Go! Go! Go!", font, brush, rctg2, centerAlignment)
End Sub
Private Shared Sub AlignText(ByVal page As PdfPageBase)
'Draw the text - alignment
Dim font As New PdfFont(PdfFontFamily.Helvetica, 20.0F)
Dim brush As New PdfSolidBrush(Color.Blue)
Dim leftAlignment As New PdfStringFormat(PdfTextAlignment.Left, PdfVerticalAlignment.Middle)
page.Canvas.DrawString("Left!", font, brush, 0, 20, leftAlignment)
page.Canvas.DrawString("Left!", font, brush, 0, 50, leftAlignment)
Dim rightAlignment As New PdfStringFormat(PdfTextAlignment.Right, PdfVerticalAlignment.Middle)
page.Canvas.DrawString("Right!", font, brush, page.Canvas.ClientSize.Width, 30, rightAlignment)
page.Canvas.DrawString("Right!", font, brush, page.Canvas.ClientSize.Width, 60, rightAlignment)
Dim centerAlignment As New PdfStringFormat(PdfTextAlignment.Center, PdfVerticalAlignment.Middle)
page.Canvas.DrawString("Go! Turn Around! Go! Go! Go!", _
font, brush, page.Canvas.ClientSize.Width \ 2, 40, centerAlignment)
End Sub
Private Shared Sub DrawText(ByVal page As PdfPageBase)
'save graphics state
Dim state As PdfGraphicsState = page.Canvas.Save()
'Draw text - brush
Dim text As String = "Go! Turn Around! Go! Go! Go!"
Dim pen As PdfPen = PdfPens.DeepSkyBlue
Dim brush As New PdfSolidBrush(Color.White)
Dim format As New PdfStringFormat()
Dim font As New PdfFont(PdfFontFamily.Helvetica, 18.0F, PdfFontStyle.Italic)
Dim size As SizeF = font.MeasureString(text, format)
Dim rctg As New RectangleF(page.Canvas.ClientSize.Width \ 2 + 10, 180, size.Width \ 3 * 2, size.Height * 2)
page.Canvas.DrawString(text, font, pen, brush, rctg, format)
'restor graphics
page.Canvas.Restore(state)
End Sub
End Class
End Namespace
Published in
Drawing

