Quick Dropshadow

Author: Joe Maddalone

The Code: shadow.aspx

	
<%@ Page Explicit="True" Language="VB" Debug="True" %> 
<%@ Import Namespace="system.drawing" %>
<%@ Import Namespace="system.drawing.imaging" %>
<%@ Import Namespace="system.drawing.drawing2d" %>
<%@ Import Namespace="system.io" %>
<script runat="server">
  dim Filename as String
  dim Width, Height, shadowSize as Integer
  dim Bitmap as system.drawing.bitmap
  dim Graphix as Graphics
  dim ImgFormat as ImageFormat
  dim Img as System.Drawing.Image
  Dim baseMap as Bitmap 
  dim top, left as Integer

sub CreateGraphic()
   Filename = Request.QueryString("filename")
   Filename = server.mappath(Filename)
   ImgFormat = ImageFormat.jpeg : response.contenttype="image/jpeg"
   Img = system.drawing.image.FromFile(Filename)    
   Width  = Img.Width
   Height = Img.Height
   shadowSize = 10
   baseMap = new Bitmap(Width+shadowSize,Height+shadowSize)
   Dim myGraphic as Graphics = Graphics.FromImage(baseMap)
   with myGraphic
   .FillRectangle(new SolidBrush(Color.white), 0, 0, Width+shadowSize, Height+shadowSize)  
   .FillRectangle(new SolidBrush(Color.darkgray), 10, 10, Width+shadowSize, Height+shadowSize) 
   .FillRectangle(new SolidBrush(Color.black), 0, 0, Width+6, Height+6) 
   .DrawImage(Img, 2,2, Width+2,Height+2)
   end with
   Img.dispose()
end sub
</script>
<%
CreateGraphic
baseMap.Save(Response.OutputStream, ImageFormat.JPEG)
baseMap.dispose()
Img = Nothing   
response.end
%>

Usage

<img src="shadow.aspx?filename=FILENAME.JPG" />

Example

If you enjoyed this post Bookmark it at del.icio.us

Comments

Nerdful
8/27/2006 3:43:28 AM How about a gradient shadow that looks more realistic? Or a blur effect added to it?

LATEST POSTS

Career Developers are Shitbags they are. Consolas Makes Me Geek-ier MS Consolas Font Abuse Things I Read Today and You Should Too Whilst searching for solutions I happened upon... Knowing What Your Client DOES NOT want it's not manipulation, its project management. Textpad Extreme I teach Textpad to play well with others.

MOST POPULAR

Multiple IEs in Windows Firefox Vs. The World Who Is Xperya? ActionScript Form Fields Quick Watermark IE 7 beta 2 standalone

Quick Dropshadow

The Code: shadow.aspx

Usage

Example

Comments

Leave a Comment

Posts

Stores

LATEST POSTS

ADS

MOST POPULAR