FiveTech Software tech support forums

Code: Select all

#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