>******************************************************************** >* Description.......: shpTransparent.Init >* Calling Samples...: >* Parameter List....: >* Created by........: Nadya Nosonovsky 06/28/2001 11:33:26 AM >* Modified by.......: Nadya Nosonovsky 06/28/2001 11:45:27 AM >******************************************************************** >if type('this.parent.'+this.cHostName)="O" && The parent object is already instantiated > local lnScrollBarHeight, lnScrollBarWidth, loObjectToCover > lnScrollBarHeight=sysmetric(5) > lnScrollBarWidth=sysmetric(8) > with this > loObjectToCover= evaluate('this.parent.'+.cHostName) > .top=loObjectToCover.top > .left=loObjectToCover.left > .width=loObjectToCover.width - ; > iif(type('this.parent.'+.cHostName+'.ScrollBars')='N' and ; > inlist(loObjectToCover.scrollbars,2,3),m.lnScrollBarWidth,0) > .height=loObjectToCover.height - ; > iif(type('this.parent.'+.cHostName+'.ScrollBars')='N' and ; > inlist(loObjectToCover.scrollbars,1,3),m.lnScrollBarHeight,0) > endwith >endif