#ifndef __HARBOUR__
FUNCTION shadow(nTop, nLeft, nBottom, nRight, cColor)
LOCAL nShadTop, nShadLeft, nShadBottom, nShadRight, Color
IF (nRight == MAXCOL() .OR. nBottom==MAXROW()) //!!!
   RETURN (NIL)
ENDIF
if empty(cColor)
  Color := "w/n"
else
  Color := cColor
endif
nShadTop   := nShadBottom := nBottom+1
nShadLeft  := nLeft + 2
nShadRight := nRight
COLORWIN(nShadTop, nShadLeft, nShadBottom, nShadRight, Color)
nShadTop    := nTop + 1
nShadLeft   := nRight + 1
nShadRight  := nRight + 2
nShadBottom := nBottom + 1
COLORWIN(nShadTop, nShadLeft, nShadBottom, nShadRight, Color)
RETURN nil

#else

Function shadow(nTop, nLeft, nBottom, nRight, cColor)
WCoord(@nTop, @nLeft, @nBottom, @nRight)
HB_Shadow(nTop, nLeft, nBottom, nRight, cColor)
Return NIL

#endif

