GTWVW

[LUIZ MAURICIO]

Precizo de um exemplo de tela grafica em GTWVW para a tela principal do sistema.

Com recursos de foto, botoes ..... uma tela principal com boa aparencia, se alguem tiver e disponibilizar, agradeco

Mauricio

[vailton]

Esta LIB foi descontinuada desde Janeiro/2008... Veja na contrib os exemplos da GTWVG que tem-se mostrado superior neste aspecto.

[sygecom]

Olá Luiz Mauricio, se queres apenas para usar como ponte para migração de uma aplicação Console e Gui, até que a GTWVW ainda quebra o galho, agora para investir nela para uso em produção acho que hoje não é uma boa escolha assim como foi dito pelo Colega Vailton, nesse caso temos a GTWVG que esta muito boa no Harbour, já no xharbour ela esta meio parado, mas tem. E alem da GTWVW temos também a wvwtools que é a que estou usando até que todos meus aplicativos esteja todo em HWGUI.
E se quiser também no link abaixo pode encontrar outros exemplos de gtwvw e wvwtools:
http://www.4shared.com/dir/9103314/4c5c ... aring.html

[Itamar M. Lins Jr.]

Mais informações, a wvwtools o seu desenvolvedor morreu.
E a WVW, tem um post datado de hoje 09/03/2009 no grupo de desenvolvedores Harbour. Ao que parece existirá uma continuação, mas para mudar para WVG, penso eu.

Saudações,
Itamar M. Lins Jr.

[sygecom]

Boa noticia Itamar, vou dar uma pesquisada a respeito. Se for facil, muita gente vai pender para o lado do harbour e eu sou um deles....
Vida longa ao Harbour...

[Itamar M. Lins Jr.]

Eis o Post.

I am trying to port same source from xharbour -gtwvw to harbour using gtwvt and Multi Windows/Gt made by Przemek
I have emulated WVW_nOpenWindow, WVW_lCloseWindow, wvw_setmaincoord
Can somebody give a comment?
Is still imperfect but works with this liittle sample
Particularly the way for made a translation of row/col see me little dirty (and not work in code of library)
Follow program demonstrate how powerfull is harbour

I invite anybody give any kind of suggestion


Thanks in advance


// Experiment for Emulating gtwvw with gtwvt/gtwvg/XWC
// #INCLIDE "wvw2wvt.ch" here non neccessary

#IFDEF __PLATFORM__WINDOWS
REQUEST HB_GT_WVT_DEFAULT
#DEFINE THREAD_GT "WVT"
#ELSE
REQUEST HB_GT_STD_DEFAULT
#DEFINE THREAD_GT "XWC"
#ENDIF
#COMMAND DEFAULT <v1> TO <x1> [, <vN> TO <xN> ]=> IF((<v1>)=NIL,<v1>:=<x1>,NIL) [; IF((<vN>)=NIL,<vN>:=<xN>,NIL)]
STATIC S_Ocrt:={}
STATIC S_setmaincoord:=.f.
#XTRANSLATE setpos( => setpos2(


FUNCTION main
local X_Number:=9
cls
wvw_setmaincoord(.t.)
WINDO=WVW_nOpenWindow("", 5, 5, 7, 40)
@ 5,5 ,7,40 box ""
@ 6,6 SAY "Number" get number
READ
WVW_lCloseWindow(WINDO)
RETURN


FUNCTION WVW_nOpenWindow(X_title,x_top,x_left,x_bottom,x_right)
local ocrt
x_ocrt := hb_gtCreate( THREAD_GT )
// ocrt := hb_gtSelect( ocrt )
// hb_gtReload(THREAD_GT )
setmode(x_bottom-x_top+1,x_right-x_left+1)
? x_bottom-x_top,x_right-x_left
x_oCrt := hb_gtSelect()
aadd(s_ocrt,{x_ocrt,X_title,x_top,x_left,x_bottom,x_right})
x_ret=len(s_ocrt)
RETURN x_ret


FUNCTION WVW_lCloseWindow(x_pos)
default x_pos to len(s_ocrt)
s_ocrt[x_pos,1]=nil
adel(s_ocrt,x_pos,.t.)
RETURN


FUNCTION wvw_setmaincoord(x_coord)
s_setmaincoord:=x_coord
RETURN


#XUNTRANSLATE setpos( =>
FUNCTION SetPos2( x_row, x_col )
local x_pos:=len(s_ocrt)
// altd()
if s_setmaincoord
setpos(x_row-s_ocrt[x_pos,3],x_col-s_ocrt[x_pos,5])
else
setpos(x_row,x_col)
endif
RETURN



--
Massimo Belgrano

Saudações,
Itamar M. Lins Jr.

[edmarfrazao]

E se juntassemos todos que tem interesse pela wvw e pagasse algume que tenha conhecimentos de alterar a wvw?

[DLZ]

Olha... pelos testes que já fiz com a Gtwvw, prefiro aguardar (mais) a LLIBG para Xharbour que o mestre Wagner está desenvolvendo..

[vailton]

Edmar, vc chegou a testar a GTWVG ? Pelo que me parece a intenção dela é fornecer uma unica LIB que possibilite aplicativos em modo "texto" e em modo "gráfico" com o mesmo source... Não me aprofundei, mas acho q alguem que use bem a GTWVW (mais do que eu) poderia olhar os exemplos e ver se realmente ela é uma "WVW Turbinada" ou se é apenas uma outra opção.

[edmarfrazao]

achei os fontes da wvg e compilei

http://xharbour.cvs.sourceforge.net/vie ... rib/gtwvg/

O problema.
como usa a wvt, so pode ter uma janela por vez.
No exemplo que usa duas janelas, na verdade a segunda é gráfica, não aceita os comandos @ x,y

Se usar uma janela funciona legal, tem menu, toobar. Mas nao tem mult-janelas

[sygecom]

Olá Edmar,
Teste ela no Harbour que esta bem mais avançadas, inclusive com acesso a Activex pela propria GTWVG, essa do xharbour esta desatualizada.

[edmarfrazao]

Mas os fontes do link que postei nao são os mesmos para harbour?

No exemplo wvg tem active sim.

So não tem mult-janela com @ x,y.

Tem mul-janela sim no exemplo, mas é grafico. Ou seja não aproveita o que temos

[vailton]

Eis um exemplo da GTWVG compilado com o source mais recente do Harbour direto do SVN:
www.kssoftware.com.br/wvg.zip

[sygecom]

Mas os fontes do link que postei nao são os mesmos para harbour?

No exemplo wvg tem active sim.

So não tem mult-janela com @ x,y.

Tem mul-janela sim no exemplo, mas é grafico. Ou seja não aproveita o que temos

Não são os mesmo não, o link do harbour esta abaixo:
http://harbour-project.svn.sourceforge. ... rib/gtwvg/

No link que o Vailton postou tem exemplo de @ SAY com varias janelas, como se fosse NOMODAL. Abra o exemplo "demowvg.exe" e va na opção TRADITIONAL e abra a segunda opção quantas vez você quizer.

[edmarfrazao]

os fontes não são compativeis com o xharbour.

o segredo da wvg para ter duas janelas e threadStart

bBlock := { |oCrt| ;
oCrt := WvgCrt():New( , , { -1,-1 }, { 54,184 }, , .f. ), ;
oCrt:fontName := 'Courier',;
oCrt:fontHeight := 13 ,;
oCrt:fontWidth := 0 ,;
oCrt:Create() ,;
MyDialogOne_X( oCrt ) ,;
oCrt:destroy() ;
}
hb_threadStart( bBlock )

estou na estaca zero, até que seja portado para o xharbour.