Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
Show entire menu
Message
 
 
Information générale
Forum:
Visual FoxPro
Catégorie:
Gestionnaire de menu & Menus
Divers
Thread ID:
01648569
Message ID:
01648572
Vues:
62
>Hi,
>
>In several places of my application I have popup menus that are displayed when a user clicks on a button at the bottom of a window. These menus are displayed with the first/top item at the button and then all other items showing down.
>Here is the code I use:
>
>
>Thisform.ScaleMode = 0		&& Foxels
>lnPosX = This.Left 
>lnPosY = This.Top 
>Thisform.ScaleMode = 3       && Back to Pixels
>
>define popup Options shortcut relative from (lnPosY), (lnPosX)
>
>define popup Options shortcut relative from mrow(),mcol() 
>on selection popup Options selmenu = 1
>define bar 1 of Options prompt "Item 1"
>define bar 2 of Options prompt "Item 2"
>... and so on other items
>
>
>The problem is that when the popup menu is very long (like 12 or more items), the bottom items are not visible. They are beyond the screen.
>
>My question is, how can I change the code above so that the menu would automatically "move" up to show all items, according to the screen resolution?
>Of if the above is not possible, how can I make the menu show the last/bottom item at the clicked button and all items above?
>
>TIA

I noticed that on my computer the entire Menu is displayed. That is, on my computer the Menu is moved up enough to show all items. But on the image (screen shot) taken by the customer on his computer, the Menu starts right on the button and moves down until it runs out of space. What could be different on his computer and mine?
"The creative process is nothing but a series of crises." Isaac Bashevis Singer
"My experience is that as soon as people are old enough to know better, they don't know anything at all." Oscar Wilde
"If a nation values anything more than freedom, it will lose its freedom; and the irony of it is that if it is comfort or money that it values more, it will lose that too." W.Somerset Maugham
Précédent
Suivant
Répondre
Fil
Voir

Click here to load this message in the networking platform