Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
Scroll Bar height and width
Message
 
 
À
28/06/2001 11:43:54
Cetin Basoz
Engineerica Inc.
Izmir, Turquie
Information générale
Forum:
Visual FoxPro
Catégorie:
Gestionnaire d'écran & Écrans
Divers
Thread ID:
00524746
Message ID:
00524759
Vues:
19
>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" && 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
If it's not broken, fix it until it is.


My Blog
Précédent
Suivant
Répondre
Fil
Voir

Click here to load this message in the networking platform