Ahhhh tiene que ser eso
No enlaces las librerias fiveh.lib y fivehc.lib
#include "Box.ch"
*--
Function Main()
*--
LOCAL nOpcion
LOCAL aOpcion := { ' Opcion 1 ', ' Opcion 2 ', ' Opcion 3 ', ' Ultima ' }
LOCAL aModulo := { {|| Uno() }, {|| Dos() }, {|| Tres() } }
*--
SETMODE(25,80)
SETCOLOR( "GB+/B,GR+/R,,,W/N" )
CLEAR SCREEN
*--
HB_DISPBOX( 03,03,08,16,B_DOUBLE )
WHILE .T.
nOpcion := ACHOICE( 04,04,07,15, aOpcion )
*--
IF nOpcion < LEN( aOpcion )
EVAL( aModulo[ nOpcion ] )
ELSE
EXIT
ENDIF
ENDDO
CLEAR SCREEN
Return( NIL )
*--
Procedure Uno()
*--
HB_ALERT( PROCNAME() + HB_EOL() + HB_COMPILER() + HB_EOL() + OS() + HB_EOL() + HB_VERSION() )
RETURN
*--
Procedure Dos()
*--
HB_ALERT( PROCNAME() + HB_EOL() + HB_COMPILER() + HB_EOL() + OS() + HB_EOL() + HB_VERSION() )
RETURN
*--
Procedure Tres()
*--
HB_ALERT( PROCNAME() + HB_EOL() + HB_COMPILER() + HB_EOL() + OS() + HB_EOL() + HB_VERSION() )
RETURN
#
# Archivo de Compilado
#
-n -q -static
# Aqui las lib de terceros y contribs que necesites
-lhbct -lxhb
# Este es el nombre del .exe final
-otest
./Source/Modulo1
./Source/Modulo2
./Source/Modulo3
./Source/Modulo4
Return to FiveWin para Harbour/xHarbour
Users browsing this forum: Google [Bot] and 5 guests