GDI Drawing Text with outline and shadow

[Lou]

I need to have a Face,Outline and drop shadow. I am close but can't get my
code to work.
The face and outline work fine but the shadow is not sized correctly???

Dim rec As New Rectangle(Pictu reBox1.Left, PictureBox1.Top ,
PictureBox1.Hei ght, PictureBox1.Hei ght)

Try

'Set the Font

Dim myFont As New Font("Arial", Me.nudFontSize. Value, FontStyle.Regul ar)

'Set the Graphics Buffer

Dim bm As New Bitmap(Me.Clien tSize.Width \ 4, Me.ClientSize.H eight \ 4)

'==== DROP SHADOW =============== =====

Dim g As Graphics = g.FromImage(bm)

g.TextRendering Hint = TextRenderingHi nt.AntiAlias

Dim mx As New Matrix(0.25F, 0, 0, 0.25F, 1, 1)

g.Transform = mx

g.DrawString(tx tShortText.Text , myFont, New SolidBrush(Colo r.FromArgb(128,
Color.Black)), 10, 10, StringFormat.Ge nericTypographi c)

'Clean up

g.Dispose()

e.Graphics.Inte rpolationMode = InterpolationMo de.HighQualityB icubic

e.Graphics.Text RenderingHint = TextRenderingHi nt.AntiAlias

e.Graphics.Draw Image(bm, Me.ClientRectan gle, 0, 0, bm.Width, bm.Height,
GraphicsUnit.Pi xel)

''==== EDGE/FACE =============== ===========

Dim pth As New GraphicsPath

e.Graphics.Text RenderingHint = TextRenderingHi nt.AntiAlias

e.Graphics.Smoo thingMode = SmoothingMode.A ntiAlias

pth.AddString(t xtShortText.Tex t, myFont.FontFami ly, 0, (myFont.Size), New
Point(10, 10), StringFormat.Ge nericTypographi c)

'pen size is the size of the edge

Dim P As New Pen(Color.Black , 1)

'Draw the face

e.Graphics.Fill Path(Brushes.Wh ite, pth)

'Draw the edge

e.Graphics.Draw Path(P, pth)

pth.Dispose()

'Clean(up)

bm.Dispose()

Catch MyError As Exception

MessageBox.Show (MyError.Messag e)

Finally

End Try

[Ken Tucker [MVP]]

Hi,

This code makes the shadow draw 1/4 size. Adjust the size here.

Dim mx As New Matrix(0.25F, 0, 0, 0.25F, 1, 1)

g.Transform = mx
Ken
----------------

"Lou" <lo********@com cast.net> wrote in message
news:jf******** ************@co mcast.com: I need to have a Face,Outline and drop shadow. I am close but can't get my

code to work.
The face and outline work fine but the shadow is not sized correctly???

Dim rec As New Rectangle(Pictu reBox1.Left, PictureBox1.Top ,
PictureBox1.Hei ght, PictureBox1.Hei ght)

Try

'Set the Font

Dim myFont As New Font("Arial", Me.nudFontSize. Value, FontStyle.Regul ar)

'Set the Graphics Buffer

Dim bm As New Bitmap(Me.Clien tSize.Width \ 4, Me.ClientSize.H eight \ 4)

'==== DROP SHADOW =============== =====

Dim g As Graphics = g.FromImage(bm)

g.TextRendering Hint = TextRenderingHi nt.AntiAlias

Dim mx As New Matrix(0.25F, 0, 0, 0.25F, 1, 1)

g.Transform = mx

g.DrawString(tx tShortText.Text , myFont, New SolidBrush(Colo r.FromArgb(128,

Color.Black)), 10, 10, StringFormat.Ge nericTypographi c)

'Clean up

g.Dispose()

e.Graphics.Inte rpolationMode = InterpolationMo de.HighQualityB icubic

e.Graphics.Text RenderingHint = TextRenderingHi nt.AntiAlias

e.Graphics.Draw Image(bm, Me.ClientRectan gle, 0, 0, bm.Width, bm.Height,
GraphicsUnit.Pi xel)

''==== EDGE/FACE =============== ===========

Dim pth As New GraphicsPath

e.Graphics.Text RenderingHint = TextRenderingHi nt.AntiAlias

e.Graphics.Smoo thingMode = SmoothingMode.A ntiAlias

pth.AddString(t xtShortText.Tex t, myFont.FontFami ly, 0, (myFont.Size), New

Point(10, 10), StringFormat.Ge nericTypographi c)

'pen size is the size of the edge

Dim P As New Pen(Color.Black , 1)

'Draw the face

e.Graphics.Fill Path(Brushes.Wh ite, pth)

'Draw the edge

e.Graphics.Draw Path(P, pth)

pth.Dispose()

'Clean(up)

bm.Dispose()

Catch MyError As Exception

MessageBox.Show (MyError.Messag e)

Finally

End Try

--
Outgoing mail is certified Virus Free.
Checked by AVG Anti-Virus (http://www.grisoft.com).
Version: 7.0.230 / Virus Database: 263.0.0 - Release Date: 6/2/2004

[Supra]

u need to drawstring again but change ur location and some colour too

Lou wrote:

I need to have a Face,Outline and drop shadow. I am close but can't get my
code to work.
The face and outline work fine but the shadow is not sized correctly???

Dim rec As New Rectangle(Pictu reBox1.Left, PictureBox1.Top ,
PictureBox1.Hei ght, PictureBox1.Hei ght)

Try

'Set the Font

Dim myFont As New Font("Arial", Me.nudFontSize. Value, FontStyle.Regul ar)

'Set the Graphics Buffer

Dim bm As New Bitmap(Me.Clien tSize.Width \ 4, Me.ClientSize.H eight \ 4)

'==== DROP SHADOW =============== =====

Dim g As Graphics = g.FromImage(bm)

g.TextRendering Hint = TextRenderingHi nt.AntiAlias

Dim mx As New Matrix(0.25F, 0, 0, 0.25F, 1, 1)

g.Transform = mx

g.DrawString(tx tShortText.Text , myFont, New SolidBrush(Colo r.FromArgb(128,
Color.Black)), 10, 10, StringFormat.Ge nericTypographi c)

'Clean up

g.Dispose()

e.Graphics.Inte rpolationMode = InterpolationMo de.HighQualityB icubic

e.Graphics.Text RenderingHint = TextRenderingHi nt.AntiAlias

e.Graphics.Draw Image(bm, Me.ClientRectan gle, 0, 0, bm.Width, bm.Height,
GraphicsUnit.Pi xel)

''==== EDGE/FACE =============== ===========

Dim pth As New GraphicsPath

e.Graphics.Text RenderingHint = TextRenderingHi nt.AntiAlias

e.Graphics.Smoo thingMode = SmoothingMode.A ntiAlias

pth.AddString(t xtShortText.Tex t, myFont.FontFami ly, 0, (myFont.Size), New
Point(10, 10), StringFormat.Ge nericTypographi c)

'pen size is the size of the edge

Dim P As New Pen(Color.Black , 1)

'Draw the face

e.Graphics.Fill Path(Brushes.Wh ite, pth)

'Draw the edge

e.Graphics.Draw Path(P, pth)

pth.Dispose()

'Clean(up)

bm.Dispose()

Catch MyError As Exception

MessageBox.Show (MyError.Messag e)

Finally

End Try