teneis que enlazar la librería GT correspondiente:
...
echo %hdirl%\%GT%.lib + >> b32.bc
echo %hdirl%\gtwvt.lib + >> b32.bc
...
guicui.prg
- Code: Select all Expand view
- #include "FiveWin.ch"
#include "hbgtinfo.ch"
#include "std.ch"
REQUEST HB_GT_WVT
function Main()
local oWnd
DEFINE WINDOW oWnd TITLE "Main FWH Window"
ACTIVATE WINDOW oWnd ;
ON INIT Child( oWnd ) ;
ON CLICK Child( oWnd )
return nil
function Child( oWnd )
local cFirst := Space( 10 ), cLast := Space( 10 ), GetList := {}
local pGT := hb_gtCreate( 'WVT' )
hb_gtSelect( pGT )
HB_GtInfo( HB_GTI_CODEPAGE, "ES850C" )
Hb_GtInfo( HB_GTI_FONTNAME, 'Lucida Console')
hb_gtInfo( HB_GTI_WINTITLE, "opciones CONSOLA en Windows" )
HB_GtInfo( HB_GTI_CLOSABLE, .T. )
SetMode( 25, 80 )
SET COLOR TO "W+/B"
CLS
@ 1, 2 SAY "First:" GET cFirst
@ 3, 3 SAY "Last:" GET cLast // VALID ( ReadExit(), .T. )
READ
HB_GTEXIT()
return nil
#pragma BEGINDUMP
#include <hbapigt.h>
HB_FUNC( HB_GTEXIT )
{
hb_gtExit();
}
#pragma ENDDUMP
