Necesito ayuda con el use de gtwvg

[JoséQuintas]

Quintas qual é o nome da moça? não quero saber do código, kkk

é a russa Lucy Nova.

[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

[JoséQuintas]

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

[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

[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

[JoséQuintas]

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.

[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.

[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)

[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()

[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

[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

[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 )

[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

[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

[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