If you use window fading, especially if you want to have overlapping
windows, you might have a look at SetWindowShadow method in the
Declares collection. This will give you a finer control over
visibility.
Sub SetWindowShadow(w as window, b as boolean)
// Added 11/16/2001 by Jarvis Badgley
const attrib = 2097152
dim err as integer
#if TargetCarbon then
Declare Function ChangeWindowAttributes Lib "CarbonLib" (window
as WindowPtr, setTheseAttributes as Integer, clearTheseAttributes as
Integer) as Integer
if not b then
err = ChangeWindowAttributes(w, attrib, 0)
else
err = ChangeWindowAttributes(w, 0, attrib)
end
#endif // TargetCarbon
End Sub
_______________________________________________
Unsubscribe or switch delivery mode:
<http://www.realsoftware.com/support/listmanager/>
Search the archives of this list here:
<http://support.realsoftware.com/listarchives/lists.html>
