De acuerdo a este codigo funciona bien, como hago para maximizar o sea full pantalla y no tener que estirar la ventana.
Segun codigo
FUNCTION MainMenu12( lWindows )
LOCAL mOpc := 1
LOCAL mTecla
LOCAL mCont, mLenTot, mDife, mEspEntre, mEspFora, mColIni, aMouseMenu, mMenuOpt
HarbourInit()
mMenuOpt := MenuCria()
HB_GtReload( hb_GTInfo( HB_GTI_VERSION ) )
HB_GtInfo( HB_GTI_ICONRES, "AppIcon" )
HB_GtInfo( HB_GTI_WINTITLE, "Samples" )
CLS
IF lWindows
#ifdef GTWVG
MenuWvg( mMenuOpt )
RETURN NIL
#endif
ENDIF
// Center options
mLenTot := 0
FOR mCont = 1 TO Len( mMenuOpt )
mLenTot += Len( mMenuOpt[ mCont, 1 ] )
NEXT
mDife := Max( MaxCol() + 1 - mLenTot, 0 )
IF mDife < (Len( mMenuOpt ) + 1 )
IF mDife >= ( Len( mMenuOpt ) - 1 )
mEspEntre := 1
ELSE
mEspEntre := 0
ENDIF
mEspFora := 0
ELSE
mEspEntre := int( mDife / ( Len( mMenuOpt ) + 1 ) )
mEspFora := int( ( mDife - ( mEspEntre * ( Len( mMenuOpt ) + 1 ) ) ) / 2 ) + mEspEntre
ENDIF
mColIni := { mEspFora }
FOR mCont = 2 TO Len( mMenuOpt )
AAdd( mColIni, mColIni[ mCont - 1 ] + Len( mMenuOpt[ mCont - 1, 1 ] ) + mEspEntre )
NEXT
*---------- Faz o menu ----------*
aMouseMenu := {}
FOR mCont = 1 TO Len( mMenuOpt )
AAdd( aMouseMenu, { 1, mColIni[ mCont ], mColIni[ mCont ] - 1 + Len( mMenuOpt[ mCont, 1 ] ), 48 + mCont + Iif( mCont > 10, 1, 0 ), 0 } )
NEXT
Mensagem( "Selecione e tecle <ENTER>, <ESC> Sai" )
DO WHILE .T.
SetColor( SetColorNormal() )
Scroll( 1, 0, 1, MaxCol(), 0 )
FOR mCont = 1 TO Len( mMenuOpt )
@ 1, mColIni[ mCont ] SAY mMenuOpt[ mCont, 1 ] COLOR iif( mCont == mOpc, SetColorFocus(), SetColorNormal() )
NEXT
BoxMenu( 3, mColIni[ mOpc ] - 20 + Int( Len( mMenuOpt[ mOpc, 1 ] ) / 2 ), mMenuOpt[ mOpc, 2 ], 1,, .T., .T., aMouseMenu, 1 )
mTecla := Inkey(0)
DO CASE
CASE mTecla == K_ESC // ESC
EXIT
CASE mTecla == 4 // seta direita
mOpc := iif( mOpc == Len( mMenuOpt ), 1, mOpc + 1 )
CASE mTecla == 19 // seta esquerda
mOpc := iif( mOpc == 1, Len( mMenuOpt ), mOpc - 1 )
CASE mTecla > 48 .AND. mTecla < 49 + Len( mMenuOpt ) + iif( Len( mMenuOpt ) > 10, 1, 0 )
mOpc := Abs( mTecla ) - 48
mOpc := Iif( mOpc > 10, mOpc - 1, mOpc )
ENDCASE
ENDDO
Mensagem()
RETURN NIL
*----------------------------------------------------------------