******************************************************************** * 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