Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
Scrolling Forms
Message
De
12/05/1998 13:39:56
Raymond Humphrys
Michigan Department of Community Health
Bath, Michigan, États-Unis
 
 
À
12/05/1998 13:13:16
Information générale
Forum:
Visual FoxPro
Catégorie:
Gestionnaire d'écran & Écrans
Titre:
Divers
Thread ID:
00096636
Message ID:
00098815
Vues:
41
>>What did you put?
>>
>>ray
>
>Each menu option consists of a container with a checkbox, label and shape...
>
>The container has a custom method called "selectme" as follows:
>-------------------------------------------------
>
>  PROCEDURE SELECTME
>    THIS.BACKCOLOR = RGB(0,0,128)
>    WITH THIS.lblMenu
>      .FONTBOLD = .T.
>      .FORECOLOR = RGB(255,255,255)
>    ENDWITH
>    * move this option into view if it is off screen
>    nOptTop    = THIS.TOP + THIS.PARENT.TOP
>    nOptBottom = THIS.TOP + THIS.HEIGHT + THIS.PARENT.TOP
>    nScnBottom = THISFORM.HEIGHT   && - SYSMETRIC(9)
>    * scroll menu up if option is below screen
>    IF nOptBottom > nScnBottom
>      THIS.PARENT.TOP = THIS.PARENT.TOP - ( nOptBottom - nScnBottom )
>      THISFORM.VScrollBar.SetSize()
>    ELSE
>      * scroll menu down if option is above screen
>      IF nOptTop < THISFORM.TOP
>        THIS.PARENT.TOP = THIS.TOP * -1
>        THISFORM.VScrollBar.SetSize()
>      ENDIF
>    ENDIF
>
>-------------------------------------------------
Menu? What does you form look like? I'm trying to
use it for a data entry form that is 11x17". Different
fields laid out in columns down the screen/form. When
the focus is set to a specific fied new the bottom of the
screen the form slides up a couple of inches allowing the
user to see the fields. Do you a field (menu) that moves
up and down depending on where the item is on the screen?

ray
Some days it's not worth chewing through the leather straps ...
Précédent
Suivant
Répondre
Fil
Voir

Click here to load this message in the networking platform