>Thanks Herman. The whole Windows API stuff is a bit beyond me. Just curious...does the shadow disappear for you when you stop dragging the form?
Hi Mike,
I just tried shadowing the form then drag the form around. The shadow does not disappear.
BTW, this API function is fairly easy. Try this from command window:
Declare Long GetClassLong in User32 Long nhWnd, Integer nIndex
Declare Long SetClassLong in User32 ;
Long nhWnd, Integer nIndex, Long dwNewLong
nDefaultStyle = GetClassLong( _VFP.hWnd, -26 )
SetClassLong( _VFP.hWnd, -26, BitOr( nDefaultStyle, 0x20000 ))
It will turn on the shadow for any VFP top-level form that has a same Class name (I think). For testing:
- Create a blank form, set ShowWindow = 2 - As Top-Level Form
- Run it
- Close the form then re-run it, see whether the shadow still in effect
To turn off the shadow you just need to reset the class style to the default value
SetClassLong( _VFP.hWnd, -26, nDefaultStyle )
Regards
Herman