Página 2 de 4
Necesito ayuda con el use de gtwvg
Enviado: 05 Nov 2019 17:20
por JoséQuintas
asimoes escreveu:Quintas qual é o nome da moça? não quero saber do código, kkk
é a russa Lucy Nova.
Necesito ayuda con el use de gtwvg
Enviado: 06 Nov 2019 14:03
por Adalberto
Buenos días Maestro JoseQuintas.
Con su ayuda y enseñanzas conseguí tener la pantalla con imagen de fondo y la ventana de login, los mensajes funcionan perfectamente.
En la ventana de login coloqué una imagen y se ve elegante, pero cuando se mueve o minimiza la ventana de login la imagen desaparece, se puede hacer para que se quede aun cuando se mueva la ventana?
Más un favor, me puede compartir su librerá JoseQuintas.Hbp?
(Quiero compartirle la imagen de mi pantalla pero no se como hacerlo)
Muchas gracia Maestro por su ayuda.
Adalberto
Necesito ayuda con el use de gtwvg
Enviado: 06 Nov 2019 15:02
por JoséQuintas
Adalberto escreveu:Más un favor, me puede compartir su librerá JoseQuintas.Hbp?
Era parte do meu aplicativo.
Como estou alterando pra totalmente ADO+MySQL, passou a não funcionar fora dele.
Assim que tudo se normalizar, vou pensar na melhor forma de deixar alguma coisa que funcione sozinha.
Por enquanto separei o que se refere a GTWVG:
https://github.com/JoseQuintas/wvgtst
Necesito ayuda con el use de gtwvg
Enviado: 06 Nov 2019 16:04
por Adalberto
Maestro,
Ya había encontrado esa lista de fuentes que usted amablemente compartió, intenté hacer pruebas pero no tengo ni idea de como hacer funcionar una clase, por ejemplo la clase Button o la clase WvgtstText.
Espero sus noticias. muchas gracias.
Adalberto
Necesito ayuda con el use de gtwvg
Enviado: 08 Nov 2019 16:50
por Adalberto
Maestro JoseQuintas, buenas tardes
Por favor disculpe las molestias, despues de tanto buscar y leer en diferentes foros no he podido hacer dos cosas:
1.- Hacer funcionar una Clase
2.- Usar Imágenes a través de un archivo .RC
Le ruego que si le es posible me ayude con estos temas.
Muchas gracias Maestro.
Adalberto
Necesito ayuda con el use de gtwvg
Enviado: 11 Nov 2019 09:46
por JoséQuintas
Adalberto escreveu:1.- Hacer funcionar una Clase
2.- Usar Imágenes a través de un archivo .RC
Não entendi se quer saber sobre qualquer classe, ou uma classe específica da gtwvg
Sobre o uso de arquivos RC, isso foi acrescentado na gtwvg do Harbour 3.2, mas não pra todos os controles.
Necesito ayuda con el use de gtwvg
Enviado: 11 Nov 2019 15:10
por Adalberto
Maestro JoseQuintas, buenas tardes
Muchas gracias por atender mis pedidos de ajuda y su buena voluntad.
Buscaré como usar archivos.RC para que las imagenes queden adentro del ejecutable.
Respecto al uso de Clases, no se como se hace uso de una clase cualquiera, pero me gustaría usar la clase WvgtstText en particular.
Espero y agradezco su ajuda.
Saludos desde Santa Cruz de la Sierra - Bolivia.
Adalberto.
Necesito ayuda con el use de gtwvg
Enviado: 11 Nov 2019 16:07
por JoséQuintas
Código: Selecionar todos
PROCEDURE Main
LOCAL oSum := SumClass():New()
oSum:One := 10
oSum:Two := 20
? oSum:MakeSum()
RETURN
CLASS SumClass
VAR One
VAR Two
METHOD MakeSum()
ENDCLASS
METHOD MakeSum()
RETURN ::One + ::Two
Como o método MakeSum() é pequeno, poderia ser usado INLINE
Código: Selecionar todos
CLASS SumClass
VAR One
VAR Two
METHOD MakeSum() INLINE ::One + ::Two
ENDCLASS
wvgtstText
está dentro de all.prg
Note que fontsize não altera fontwidth (largura)
Código: Selecionar todos
PROCEDURE Main
LOCAL oControl, nCont
hb_gtReLoad( "WVG" )
SetMode( 28, 120 )
SetColor("N/W,N/W")
SET SCOREBOARD OFF
CLS
SetColor( "B/W" )
FOR nCont = 1 TO 6
oControl := wvgtstText():New()
oControl:cFontName := "Arial"
oControl:nFontSize := nCont * 10 + 20
oControl:cText := "Test of " + oControl:cFontName + " " + Ltrim( Str( oControl:nFontSize ) )
oControl:Create( , , { -( nCont * 4 - 3 ), -2 }, { -4, -20 } )
NEXT
Inkey(0)
Necesito ayuda con el use de gtwvg
Enviado: 11 Nov 2019 16:27
por JoséQuintas
Comentário adicional:
A GTWVG tem controles de dois tipos: apenas desenhado, e controles Windows
o controle desenhado é igual a tela de fundo anterior, onde tem que ficar repintando pela WVT_Paint()
São os controles que começam com wvt
Os controles Windows, eles ficam fixos, mas precisam ser destruídos quando não se quer mais.
São os controles que começam com wvg, são uma janela encima da janela GTWVG.
Só que tem controles Windows que não foram feitos pra serem usados em uma janela comum, dependeriam de uma janela do tipo DIALOG, que NÃO é a janela GTWVG.
oText1 := wvgtstText():New()
pode precisar desse nome oText1 pra depois destruir quando não precisar mais.
oText1:Destroy()
Necesito ayuda con el use de gtwvg
Enviado: 17 Nov 2019 20:14
por Adalberto
Maestro JoseQuintas, buenas noches;
Por causa de los grandes acontecimientos políticos en mi país y sobre todo por problemas de salud no había podido agradecerle por su valiosa y oportuna ayuda.
Dios recompense su buena voluntad.
Con atención, Adalberto
Necesito ayuda con el use de gtwvg
Enviado: 30 Nov 2019 15:11
por Adalberto
Buenas tardes señores de este foro.
He colocado en la pantalla una imagen usando la función Wvg_Image() y cuando se mueve la ventana, se cambia de tamaño o cuando se minimiza la ventana la imagen permanece, es un belleza.
En algún momento necesito borrar esa imagen, y luego reponerla, algo si como:
SAVE SCREEN
CLS
//
MI PROCESO
//
RESTORE SCREEN
Espero y agradezco su ayuda, muchas gracias!!
Adalberto
Necesito ayuda con el use de gtwvg
Enviado: 01 Dez 2019 15:00
por JoséQuintas
Como eu disse antes, há dois tipos de desenho WVT* e WVG*
oControle := wvgcontrole():New()
Para esse, pra remover/suspender wvg* é algo do tipo:
Código: Selecionar todos
oControl := wvgAlgum():New()
...
oControl:Hide()
...
oControl:Show()
...
oControl:Destroy()
Os controles desenhados, usam wvt_Paint(), geralmente ficam num array, e o wvt_Paint() executa o array.
Para estes, é limpar o array. Se vai precisar de novo, é salvar o array, limpar, e depois restaurar o array.
Código: Selecionar todos
aArray := SetPaint()
SetPaint( {} )
.....
SetPaint( aArray )
Necesito ayuda con el use de gtwvg
Enviado: 01 Dez 2019 15:19
por JoséQuintas
Nos dois casos, pode criar uma classe ou algum tipo de controle seu pra facilitar.
Como não conhece classe, poderia usar um array com os controles - controles WVG*
aControlList := {}
E funções pra trabalhar com todos de uma vez.
Código: Selecionar todos
FUNCTION HideAll( aList )
AEval( aList, { | e | e:Hide() } )
RETURN NIL
FUNCTION DestroyAll( aList )
AEval( aList, { | e | e:Destroy() } )
RETURN NIL
FUNCTION ShowAll( aList )
AEval( aList, { | e | e:Show() } )
RETURN NIL
Desta forma, ao invés de encher de variáveis e rotinas em cada fonte, pode chamar rotinas genéricas, e até padronizar o uso em todos os fontes.
Um array para as wvt* e outro para as wvg*
exemplo:
Código: Selecionar todos
aControlList := {}
AAdd( oControlList, CreatePushButton( top,left,botton,right,"text","image" ) )
AAdd( oControlList, CreatePushButton( top,left,botton,right,"text","image" ) )
AAdd( oControlList, CreatePushButton( top,left,botton,right,"text","image" ) )
AAdd( oControlList, CreatePushButton( top,left,botton,right,"text","image" ) )
...
HideAll( aControlList )
...
ShowAll( aControlList )
...
DestroyAll( aControlList )
...
FUNCTION CreatePushButton( top, left, bottom, right, cText, cImage )
LOCAL oControl
oControl := wvgPushButton:New()
...
RETURN oControl
Necesito ayuda con el use de gtwvg
Enviado: 02 Dez 2019 23:45
por Adalberto
Maestro JoseQuintas, buenas noches.
He leído sus mensajes con los que me ayuda, le agradezco mucho, mañana los pondré en práctica y le comentaré el resultado.
Un grande abrazo.
Adalberto
Necesito ayuda con el use de gtwvg
Enviado: 07 Dez 2019 21:51
por Adalberto
Maestro JoseQuintas.
Un atento saludo, y mi sincero agradecimiento por su valiosa ayuda.
No respondí antes porque estuve estudiando casi todos los ejemplos que encontré, en este foro, casi todo es trabajo de usted; grande ayuda para todos.
Estos días puse en práctica la creación y uso de botones, como controles, funciona de maravilla!
Lo que he aprendido y logrado es suficiente para mis requerimientos, le he dado un toque de gráfico a las pantallas y está bonito; es un sistema de contabilidad que lo desarrollé hace más de 30 años, lo mantengo actualizado y cumple al 100% con los requerimientos de mis clientes.
Si no es mucha molestia, quisiera que me enseñe a crear, mostrar, esconder y destruir un control; quisiera mostrar bordes en la "ventanas" con la función:
Wvg_BoxRaised
Con esto quedaría más que satisfecho.
Una vez más quiero agradecer su ayuda profesor. Dios lo bendiga siempre.
Adalberto