Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
Right-click menu
Message
From
09/03/1998 08:53:59
 
General information
Forum:
Visual FoxPro
Category:
Coding, syntax & commands
Miscellaneous
Thread ID:
00083141
Message ID:
00083339
Views:
23
>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
>

>

Thanks a lot. It's really VFP3 situation.
Edward Pikman
Independent Consultant
Previous
Next
Reply
Map
View

Click here to load this message in the networking platform