GTWVG browse em outra janela

[JoséQuintas]

Num teste isolado deu certo.
CADA janela tem seu próprio button.
Conforme vai clicando em button, abre outra janela MODAL também com button.
E conforme fecha, volta na anterior.

Código: Selecionar todos

#include "wvgparts.ch"
#include "hbgtwvg.ch"
#include "wvtwin.ch"

PROCEDURE Main

   LOCAL cTeste := Space(50), GetList := {}, oBtn

   SetMode(33,90)
   SetColor( "W/B" )
   CLS
   WITH OBJECT oBtn := wvgPushButton():New()
      :PointerFocus := .F.
      :Create( , , { -1, -1 }, { -10, -10 } )
      :SetCaption( "teste1" )
      :Activate := { || teste2() }
   ENDWITH

   @ 12, 0 SAY "teste1" GET cTeste
   READ

   (oBtn)

   RETURN

PROCEDURE teste2()

   STATIC nNumTela := 1
   LOCAL cTeste := Space(20), GetList := {}, oBtn, oCrt

   oCrt := wvgCrt():New()
   oCrt:lModal := .T.
   oCrt:Create( ,,{ 0, 0 }, { 25, 80 } )
   nNumTela += 1
   SetColor( "W/R" )
   CLS
   WITH OBJECT oBtn := wvgPushButton():New()
      :PointerFocus := .F.
      :Create( oCrt, , { -1, -1 }, { -10, -10 } )
      :SetCaption( "teste" + Ltrim( Str( nNumTela ) ) )
      :Activate := { || teste2() }
   ENDWITH

   @ 12, 0 SAY "teste2" GET cTeste
   READ
   oCrt:Destroy()
   (oBtn)

   RETURN

PROCEDURE HB_GTSYS

   REQUEST HB_GT_WVG_DEFAULT

   RETURN

Isso é a GTWVG normal, do Harbour 3.2 ou 3.4, nenhum recurso extra - NÃO tem isso no XHarbour
Como dá pra perceber fácil, nada a ver com os exemplos complicados da GTWVG.
Nada de save screen/restore screen
É só um exemplo simples, só um button, e sem imagem.

test.zip

(600.44 KiB) Baixado 185 vezes

Continuam me faltando idéias sobre o que usar de GUI, tanto faz se for HWGUI, HMG, ou GTWVG ou até FIVEWIN.
Acho que enquanto eu não encontrar alguma mudança radical, que realmente valha a pena, não vai.

[JoséQuintas]

Primeiros testes.
Eba
Funcionou

Não dá pra ver, mas são 5 (CINCO) JANELAS.

O menu, que é multithread, tá livre
A janela de pedidos está bloqueada, porque chamou a consulta de pedidos em uma janela MODAL, essa consulta tá livre.
A janela de cidades está bloqueada, porque chamou a consulta de cidades em uma janela MODAL, essa consulta tá livre.

Falta ajustar pra não esconder mais os ícones da janela anterior, porque não precisa mais fazer isso.
Depois que o teste em separado funcionou, foi só fazer igual.
Devo ter feito coisa errada da vez anterior.

[JoséQuintas]

Ajustando tudo.
Agora dá pra ver os ícones das duas janelas.
Só que a nova ficou sem título, porque antes era aproveitado o título já existente.

[microvolution]

muito top suas "fuçanças"...
vai descomplicando o q os gurus complicaram.