PC Toledo

Estou convertendo meu sistema de clipper para harbour.
Nas pesquisas que fiz no forum encontrei um material postado pelo clodoaldo monteiro, sobre gtwvw para montar um menu gráfico com uma tela texto, fica muito legal porque posso estar mudando aos poucos, alguem pode me ajudar.
grato,
elisangelo

clodoaldomonteiro escreveu:Olá amigo!
Assunto: Dúvidas sobre migração para xHarbour
Veja o exemplo:

Boa Noite.
Na época que converti para xharbour...mas to indo pro harbour...acabei de compilar o harbour seguindo o tutorial do Itamar já fiz um hello.prg e deu certo....eta vida....

Eu abria uma janela...ou Window...para falar em inglês logo no inicio do prg....como tinha trocentos kkkk....eu criei a função janela....kkkkk...caraca véi isso faz tempo...para abrir uma janela e outra fecha para fechar a bendita...

// Janelada

Código: Selecionar todos

Function janela(tit,t,l,r,b)

   setcolor("N/W,N/GR*,,,N/W*")
   nWin := wvw_nopenwindow(tit,t,l,r,b)
   wvw_seticon(,"duduxbase.ico")
   setcolor("N/W,N/GR*,,,N/W*")

   Return nWin

// Fecha a Janelada

Código: Selecionar todos

Function fecha()

   wvw_lclosewindow()

   Return .t.

No Inicio Prg que era chamado depois do menu eu abria a bendita janela

janela ("Cadastro de Iscas Artificiais",04,02,23,77)

e no final depois do processo da janela eu colocava o fecha janela passa a cortina...kkkk ai aos poucos eu ia mexendo....

tipo assim..

Código: Selecionar todos

  
  while ( .t. )

        janela ("Cadastro de Iscas",04,02,23,77)

        @ 11,02 say replicate("_",75)

	restscreen (,,,, cTela) // eta saudade

	setpos (11,03); dispout (" Tecle [ ESC ] para retornar ao menu ","w+/bg+")

	dbselectarea ("peixe")
	dbsetorder (1)

	dbgobottom()
	cCodigo := if( eof(),'000001',strzero(val(CODIGO)+1,6) )

	@ 05,14 get cCodigo picture "@K 999999"  valid(zeros(@cCodigo))
	read

	if ( escape() )
	    fecha() // termino com esc fecha a janela 
	    exit
	endif

  enddo

  return

Se der certo avisa....é bom receber boas noticias...mas se der zebra avisa tb...kkkkk

Olá Dudu_XBase, seu exemplo funciona perfeito e vai ajudar muito, e vamos lá pra conversão dos sitemas, muita coisa nova para aprender... rsss

Valew.....

Abraços.
Elisangelo

Nem tinha pensado em fazer isso, no menu principal (main) da para chamar a tela em modo texto. com isso conseguimos o menu gráfico com a tela texto, igual a tela do clodoaldo monteiro e também podemos usar o exemplo do Dudu_XBase.

Abraços
Elisangelo

Enviado: **15 Jan 2016 21:55**

olá pessoal...
estou usando a gtwvg e já consigo hoje colocar botões naquela tela MSDOS. Também já coloco as mensagens ao usuários (perguntas e mensagens) no padrão windows.
Também já coloco o WinPrn funcionando de acordo com minha necessidade, e, uso o antigo ACHOICE para listar as impressoras instaladas no computador.
Mas, também queria isso em modo gráfico, então, pesquisando achoice gtwvg encontrei um exemplo que foi tirado do demowvg.prg, onde é criado um "box" e o achoice roda dentro dele, mas, não deu certo.
Pesquisando um pouco mais achei este tópico, do tão conceituado pctoledo.
Bom, testei as linhas aqui mencionadas, pois já uso algo desta lib GTWVW, mas, não apresentou nada na tela.
O que falta para fazer?
grato!

PC Toledo

GTWVW menu gráfico com tela texto

GTWVW menu gráfico com tela texto

GTWVW menu gráfico com tela texto

GTWVW menu gráfico com tela texto

GTWVW menu gráfico com tela texto

GTWVW menu gráfico com tela texto