Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
Sub form's shadow effect using shape object
Message
From
20/06/2006 13:20:08
Mike Sue-Ping
Cambridge, Ontario, Canada
 
 
To
19/06/2006 22:26:23
General information
Forum:
Visual FoxPro
Category:
Forms & Form designer
Environment versions
Visual FoxPro:
VFP 9 SP1
OS:
Windows XP
Network:
Windows XP
Database:
Visual FoxPro
Miscellaneous
Thread ID:
01129983
Message ID:
01130296
Views:
25
>>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

Thanks Herman,

That was cool. The shadow didn't disappear after dragging. Now why does it vanish from within VFP (like the Find dialog does)? Also, I guess there is no way to have this shadow for all VFP forms (ie. not only top-level).

Mike
Previous
Next
Reply
Map
View

Click here to load this message in the networking platform