Página 1 de 2
GTWVW
Enviado: 07 Mar 2009 10:24
por 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
Re: GTWVW
Enviado: 07 Mar 2009 12:35
por vailton
Esta LIB foi descontinuada desde Janeiro/2008... Veja na contrib os exemplos da GTWVG que tem-se mostrado superior neste aspecto.
Re: GTWVW
Enviado: 09 Mar 2009 15:16
por 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
Re: GTWVW
Enviado: 09 Mar 2009 17:04
por 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.
Re: GTWVW
Enviado: 09 Mar 2009 17:08
por 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...
Re: GTWVW
Enviado: 09 Mar 2009 17:19
por 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.
Re: GTWVW
Enviado: 10 Mar 2009 09:24
por edmarfrazao
E se juntassemos todos que tem interesse pela wvw e pagasse algume que tenha conhecimentos de alterar a wvw?
Re: GTWVW
Enviado: 10 Mar 2009 09:50
por DLZ
Olha... pelos testes que já fiz com a Gtwvw, prefiro aguardar (mais) a LLIBG para Xharbour que o mestre Wagner está desenvolvendo..
Re: GTWVW
Enviado: 10 Mar 2009 09:52
por 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.
Re: GTWVW
Enviado: 10 Mar 2009 10:13
por 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
Re: GTWVW
Enviado: 10 Mar 2009 10:50
por 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.
Re: GTWVW
Enviado: 10 Mar 2009 11:34
por 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
Re: GTWVW
Enviado: 10 Mar 2009 11:50
por vailton
Eis um exemplo da GTWVG compilado com o source mais recente do Harbour direto do SVN:
www.kssoftware.com.br/wvg.zip
Re: GTWVW
Enviado: 10 Mar 2009 12:16
por sygecom
edmarfrazao escreveu: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.
Re: GTWVW
Enviado: 10 Mar 2009 13:54
por 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.