It works for me, though shadow is almost unnoticable:
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 ))
DO FORM testform
SetClassLong( _VFP.hWnd, -26, nDefaultStyle )
DO FORM testform
I'm not sure what you're saying and why you don't like it.
>We're done here
>
>
>>>huh??
>>>
>>>There is no mention of 'Herman' anywhere in this thread, save for your postings
>>>
>>
Re: Sub form's shadow effect using shape object Thread #
1129983 Message #
1130132>>
>>Are you saying you didn't read the thread I referred you to and ask to read the whole thread?
If it's not broken, fix it until it is.
My Blog