vou postar o codigo de um exemplo bem simples.
Código: Selecionar todos
#include "hbgtinfo.ch"
REQUEST HB_GT_WVT_DEFAULT
REQUEST HB_GT_WIN
procedure main()
SET COLOR TO B/W
CLEAR
//
HB_GTINFO( HB_GTI_SELECTCOPY, .F.)
HB_GTINFO( HB_GTI_RESIZABLE, .T.)
HB_GTINFO( HB_GTI_CODEPAGE, 255 )
HB_GTINFO( HB_GTI_ALTENTER, .F.)
//
SET COLOR TO R/W
@ 1,0 TO 1,79
@ 0,0 SAY 'ESTE E UM TESTE USANDO A GTWVT USANDO O BOTAO MAXIMIZAR E RESTAURAR DA JANELA'
@ 2,20 SAY 'LIB GTWVT - HARBOUR 3.01'
@ 3,0 TO 1,79
@ 4,0 TO 24,79
@ 5,2 SAY 'PRESSIONE QUALQUER TECLA PARA FECHAR ...'
inkey(0)
return
compilei assim este fonte
hbmk2 teste.prg -lgtwvt
Abracos,
ABEL

