FiveTech Software tech support forums

Ahhh, la GTWVW.LIB... pero ya la encontré y no la puedo hacer funcionar...
Alguna idea de como poder aplicar la GUICUI a xHarbour?

Solo hemos conseguido hacerlo funcionar con Harbour

Sr Antonio,

como ficaria:

READ
IF LASTKEY()==27
ENDIF

Testei e não funcionou!

SGS,

En modo consola ó en FWH ?

Puedes poner un ejemplo de que lo que estas probando ?

En FWH se usa bKeyDown, etc

Sr. Antonio em modo console, ex:

#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
IF LASTKEY()==27
ALERT("TESTE TECLA ESC")
ENDIF

HB_GTEXIT()

return nil

#pragma BEGINDUMP

#include <hbapigt.h>

HB_FUNC( HB_GTEXIT )
{
hb_gtExit();
}

#pragma ENDDUMP

SGS,

Please remove this line from FiveWin.ch:


#xtranslate LastKey( => _LastKey( // to avoid conflicts with Harbour functions

Sr. Antonio,

Funcionou perfeitamente!!!

Agora estou testando:

@ 14, 2 prompt "teste1"
@ 15, 2 prompt "teste2"
menu to nopcao

e parece ter problemas tambem!

Try to remove all these lines from FiveWin.ch

#xtranslate SetCursor( => WSetCursor( // to avoid conflicts with Harbour functions
#xtranslate __Keyboard( => ___Keyboard( // to avoid conflicts with Harbour functions
#xtranslate LastKey( => _LastKey( // to avoid conflicts with Harbour functions

Sr. Antonio:

fivewin.ch
...
/*
#xtranslate SetCursor( => WSetCursor( // to avoid conflicts with Harbour functions
#xtranslate __Keyboard( => ___Keyboard( // to avoid conflicts with Harbour functions
#xtranslate LastKey( => _LastKey( // to avoid conflicts with Harbour functions
*/
...

e tambem:

/*
#xcommand @ <nRow>, <nCol> PROMPT <*u*> =>
#xcommand MENU TO <u> =>
*/





Error occurred at: 08/14/12, 10:49:25
Error description: Error BASE/1004 No exported method: LFOCUSED
Args:
[ 1] = N 0

Stack Calls
===========
Called from: => LFOCUSED( 0 )
Called from: .\source\function\VALBLANK.PRG => (b)READVAR( 37 )
Called from: => ASCAN( 0 )
Called from: .\source\function\VALBLANK.PRG => READVAR( 37 )
Called from: ../../../menuto.prg => __MENUTO( 0 )
Called from: guicui.prg => CHILD( 76 )
Called from: guicui.prg => (b)MAIN( 17 )
Called from: .\source\classes\BTNBMP.PRG => TBTNBMP:CLICK( 465 )
Called from: .\source\classes\BTNBMP.PRG => TBTNBMP:LBUTTONUP( 656 )
Called from: .\source\classes\CONTROL.PRG => TCONTROL:HANDLEEVENT( 1690 )
Called from: .\source\classes\BTNBMP.PRG => TBTNBMP:HANDLEEVENT( 1407 )
Called from: .\source\classes\WINDOW.PRG => _FWH( 3159 )
Called from: => WINRUN( 0 )
Called from: .\source\classes\WINDOW.PRG => TWINDOW:ACTIVATE( 980 )
Called from: guicui.prg => MAIN( 20 )

Tienes que quitar la función ReadVar() que está en FWH\source\function\VALBLANK.PRG

Sr. Antonio,

fiz assim:

Em guicui.prg

function readvar()
return nil

Funcionou perfeitamente

vou seguir com os testes!

Com ajuda do Sr. Antonio, fiz umas alterações:


// Add this line in buildh.bat
// echo %hdirl%\%GT%.lib + >> b32.bc
// echo %hdirl%\gtwvt.lib + >> b32.bc

#include "FiveWin.ch"
#include "hbgtinfo.ch"
#include "std.ch"


REQUEST HB_GT_WVT

STATIC OWND,OBAR
function Main()

DEFINE WINDOW oWnd TITLE "Main FWH Window - GUI y CUI juntos"

define buttonbar oBar size 94,64 3D of oWnd 2007
define button prompt "Console" of oBar border group action( Child( oWnd ))
define button prompt "Sair" of oBar border group action( oWnd:End() )

ACTIVATE WINDOW oWnd maximized

return nil

function Child( oWnd )

local cFirst := Space( 10 ), cLast := Space( 10 ), GetList := {}
local pGT := hb_gtCreate( 'WVT' ), nopc:=1, otbr

if !File('CUSTOMER.DBF')
MsgStop('Customer.dbf nao encontrado!','Atencao!')
return
endif


use customer.dbf alias customer

oWnd:Disable()


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. )
HB_GtInfo( HB_GTI_CLOSABLE, .f. ) //BOTAO DE FECHAMENTO NEUTRALIZADO

hb_gtInfo( HB_GTI_ICONFILE, "face.ico" )
hb_gtInfo( HB_GTI_WINTITLE, "GUICUI Test" )

// HB_GtInfo( HB_GTI_RESIZABLE, .F. ) REDIMENCIONAR TELA

// HB_GtInfo( HB_GTI_MAXIMIZED, .T. ) MAXIMIZAR TELA


SetMode( 25, 80 )

Set MESSAGE TO 23 CENTER

SetKey( -1, {|| ALERT("TEST F2") } )

DO WHILE .T.
SET COLOR TO "W+/B"

CLS

@ 00,00 SAY PADR("TESTANDO MODO CONSOLE",80)

ShowTime( 0, MaxCol()-8,,"W+/B" ,.T. , .T. )


@ 1, 2 SAY "First.............:" GET cFirst VALID TestValid()
@ 3, 2 SAY "Last.(F2-KEY TEST):" GET cLast when TestWhen()
READ
if lastkey()==27
exit
endif

@ 13,01 to 17,08 double

nOpc:=1

@ 14, 2 prompt "Browse" message 'browse Test'
@ 15, 2 prompt "DBedit" message 'dbedit Test'
@ 16, 2 prompt "Sair " message 'sair'

menu to nOpc

if nOpc=1

@ 11,14 to 21,71 double

otbr:=tbrowsedb(12,15,20,70)

otbr:addcolumn(tbcolumnnew('(FIRST)' ,{|| customer->first }))
otbr:addcolumn(tbcolumnnew('(LAST)' ,{|| customer->last }))
otbr:addcolumn(tbcolumnnew('(STREET)',{|| customer->street }))


do while .t.

do while !oTbr:stabilize(); end

nKey := inkey(0)

do case

case teclas(nkey,otbr)
loop
case nKey == 27
exit
endcase
enddo


elseif nOpc=2


dbedit()

else

exit

endif

enddo

HB_GTEXIT()

oWnd:Enable()
return nil


/*********************************/
static function Teclas(nKey,oTbr)
/*
*/
if nKey == 5
oTbr:up()

elseif nKey == 24
oTbr:down()

elseif nKey == 19
oTbr:left()

elseif nKey == 4
oTbr:right()

elseif nKey == 18
oTbr:pageup()

elseif nKey == 3
oTbr:pagedown()

elseif nKey == 1
oTbr:gotop()

elseif nKey == 6
oTbr:gobottom()

else
return(.f.)
endif
return(.t.)

/*****************************************/
static function TestValid()
/*
*/
Alert("Valid test")
return(.t.)

/*****************************************/
static function TestWhen()
/*
*/
Alert("When test")
return(.t.)

/*****************************************/
function ReadVar()
/*
*/
return nil



#pragma BEGINDUMP

#include <hbapigt.h>

HB_FUNC( HB_GTEXIT )
{
hb_gtExit();
}

#pragma ENDDUMP