Forum Colibrico

Hi,

Nice program but not many effects to play with; just the two shadows, it seems

How about a kind of 'glowing outline' effect for people creating mouse-over effect icons. Something like the following is quite effective:

Private Function CreateOutlineGlow(pBaseSurface As cCairoSurface, Optional pGlowColour As Long = vbWhite, Optional pSize As Long) As cCairoSurface
Dim srf As cCairoSurface

If pSize = 0 Then pSize = pBaseSurface.Width * 0.1

'For some reason, when blurring occurs at the very edge of a surface, the colour appears to be solid
'Don't know if this is a Cairo bug but if we make our surface a little larger, we can avoid this problem!
Set srf = Cairo.CreateSurface(pBaseSurface.Width + pSize * 2, pBaseSurface.Height + pSize * 2)

With srf.CreateContext
.RenderSurfaceContent pBaseSurface, pSize, pSize
.SetSourceColor pGlowColour
.Operator = CAIRO_OPERATOR_ATOP
.Paint
srf.FastBlur pSize
End With

Set CreateOutlineGlow = Cairo.CreateSurface(pBaseSurface.Width, pBaseSurface.Height)
CreateOutlineGlow.CreateContext.RenderSurfaceContent srf, -pSize, -pSize

End Function

Hi ColiinE66,

Sorry for replying so late.
Thank you for your great idea and your program code. I will consider your idea in the next release.

Ciao Jürgen

You're welcome. You may want to tweak the code a little bit - I just threw it together for the sake of illustration (although I do use something similar in one of my own programs to good effect).