Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
Right-click menu
Message
 
 
À
06/03/1998 16:22:16
Information générale
Forum:
Visual FoxPro
Catégorie:
Codage, syntaxe et commandes
Divers
Thread ID:
00083141
Message ID:
00083225
Vues:
19
Edward,

It's caused by a difference in the form font and the _screen font, but it was only a problem in 3.0. Here's a code fragment from my ContextMenu class that deals with it:

   if ( " 03." $ version() )
      set classlib to (this.ClassLibrary) additive
      this.AddObject( "moFont", "Font" )

      if ( ! this.moFont.EqualFont( _screen, thisform ) )
         pnRow = pnRow * ( this.moFont.FontMetric( 1, thisform ) + this.moFont.FontMetric( 5, thisform ) ) / ;
                         ( this.moFont.FontMetric( 1, _screen ) + this.moFont.FontMetric( 5, _screen ) )
         pnCol = pnCol * this.moFont.FontMetric( 6, thisform ) / this.moFont.FontMetric( 6, _screen )
      endif
   endif


>I didn't use much Right-click menus and now look at 'strange' situation (I guess it's something simple, but it's Friday:). Right-click menu is opened from Grid.Column.Control.Rightclick event with command ACTIVATE POPUP pop1 AT mrow(),mcol(), and for some reason it opens in different positions depending what I run: app or exe file.
>TIA.
df (was a 10 time MVP)

df FoxPro website
FoxPro Wiki site online, editable knowledgebase
Précédent
Suivant
Répondre
Fil
Voir

Click here to load this message in the networking platform