Runde hjørner med ASPImage
Halløj Eksperter.Jeg benytter ASPImage til at uploade profilbilleder og resizer dem osv. Men jeg vil meget gerne automatisk lave runde hjørner på billederne.
Jeg har set det er noget med RoundRect og AddImage - men jeg er ret blank for hvordan det skal sammensættes...
Hjælp mangles!
Jeg benytter følgende script:
Set Image = Server.CreateObject("AspImage.Image")
Image.LoadImage filStiNavn
intWidth = 260
If (Image.MaxX > intWidth) OR (Image.MaxY > intWidth) Then
If(Image.MaxX > Image.MaxY) Then
intRatio = ((intWidth * 100) / Image.MaxX)
intNewY = CInt(Image.MaxY * (intRatio / 100))
Image.ResizeR intWidth, intNewY
Image.ImageFormat = 1
Else
intRatio = ((intWidth * 100) / Image.MaxY)
intNewX = CInt(Image.MaxX * (intRatio / 100))
Image.ResizeR intNewX, intWidth
Image.ImageFormat = 1
End if
End If
Image.JPEGQuality = 95
Image.FileName = filStiNavn
Image.SaveImage
Set Image = Nothing
How should I do it?
