Hi Cetin,
I tried to make this grid very thin, but it restores itself to the full width. The grid is your multiselect grid with my minor modifications... Ok, wertical scroll bar works, which is sufficient for now.
>>Nadya,
>>Sysmetric works. 5+3*2, 6+4*2
>>Cetin
>
>Hi Cetin,
>
>What are 3*2 4*2 constants here? Are you sure it's 6 and not 8? My Grid has only vertical scroll bar now and it works fine. I'll try now to make it thinner and see, if horisontal would work.
>
>In the meantime this is the code I wrote:
>
>********************************************************************
>* 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"
> 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
If it's not broken, fix it until it is.
My Blog