Permanecer Visible

[LOUIS]

Hola a Todos:

Trabajo en modo console-gui y quisiera vuestra ayuda, el caso es que en la screen de console quiero que aparezca una leyenda programada con un Define Window, pero que la leyenda permanezca mientras puedo crear, actualizar o buscar información de una tabla.

Procedure LEYENDA()
DEFINE WINDOW LEYE1;
AT 0,0 WIDTH 800 HEIGHT 600 BACKCOLOR BLUE NOSIZE
@ 100,10 LABEL Label_1 VALUE "MY SYSTEM" FONT "ARIAL" SIZE 24 BOLD FONTCOLOR GREEN WIDTH 800 HEIGHT 150
END WINDOW
ACTIVATE WINDOW LEYE1
Return

La leyenda debe permanecer visible, pero no me deja pasar a console, si primero no la desaparezco ya sea con .Release , con .Hide, con On Key Escape, o con un Define Timer ...

Hay como dejarla visible y me deje pasar a Console con algún DISABLED, VISIBLE, FOCUS o programando alguna tecla F4 por ejemplo ?

De antemano muchas gracias Amigos.

[Pablo César]

Hola Louis, Creo que esto no sea posible. Son dos ambiente completamente diferentes. A no ser que abras las dos ventanas (no fullscreen) y exibirlasd una al lado de la otra.

[danielmaximiliano]

Enviando mensajes entre aplicaciones puede llegar a ser.

Code: Select all

  SendData ( <cStationName> , <Data> )--> Nil

Code: Select all

 GetData() --> <Data>

If is not data available for active station, Nil is returned.

[LOUIS]

Estimado Pablo César, eso me interesa ... cómo lo hago ... help me please !

[Pablo César]

Yo decia algo asi baseado en el ejemplo C:\hmg.3.3.1\SAMPLES\Basics\MIXEDCONSOLE:

Code: Select all

#include "hmg.ch"

REQUEST HB_GT_WIN_DEFAULT

Function Main()
DEFINE WINDOW form_1 AT 100 , 700 WIDTH 200 HEIGHT 200 ;
       TITLE "Mixed Mode Demo" MAIN ON INIT TestConsole()

	DEFINE LABEL Label_1
	    ROW    50
	    COL    40
	    WIDTH  120
	    HEIGHT 24
	    VALUE "Label_1"
	END LABEL
END WINDOW
ACTIVATE WINDOW form_1
Return Nil

Function TestConsole()
Local cName:="LOUIS"
Local nAnios:=18

SetMode(25,80)
CLS
@ 10,10 Say 'Nombre:' GET cName
@ 11,10 Say 'Edad:' GET nAnios
Read

Alert(cName+" con "+AllTrim(Str(nAnios)))
Form_1.Release
Return Nil

No sé si te ayuda LOUIS. Para mi todo esto de combinar console con GUI es una tarea muy dificil de conciliar.

[Javier Tovar]

Hola LOUIS,

Cual es el propósito de poner una alerta como la indicas, en modo consola?, no se puede hacer en solo GUI???, no se, pero como dice Pablo César, es difícil de conciliar esos dos ambientes, No es suficiente GUI???

Son solo preguntas, espero no molestar.

Saludos.

[LOUIS]

Estimado Pablo César:

La sentencia ON INIT sólo se la puede usar cuando arranca el programa con Function Main y define el Primer Window en modo Gui ? ... O se puede usar ON INIT en cualquier momento del Programa y con cualquier Window definida en modo Gui ?

Gracias nuevamente x anticipado por vuestro tiempo y respuesta

[LOUIS]

Estimado Javier Tovar:

Soy nuevo en ambiente Gui y lo complejo que tengo en Modo Console, de todas formas lo estoy combinando bastante bien, claro está con la ayuda de este maravilloso forum. Y no arranco en modo gui 100% porque creo me volvería loco, como ya ví un comentario de alguien x ahí
Sin embargo, poco a poco, leyendo, preguntando y viendo los ejemplos, voy aprendiendo cada día un poco más.
Disculpad si molesto, creedme que hago lo que puedo

[Javier Tovar]

Hola LOUIS,

Ha OK entiendo ahora tu situación, pensé en que luego muchas veces pensamos las cosas caprichosamente y nos aferramos a hacer las cosas a nuestra manera, como quien dice le buscamos "tres patas al gato" (sabiendo que tienen cuatro!).

Bien, creo que tienes la solución en tus manos; y no molestas en lo absoluto!, yo nada más lo poco que se es programar en GUI y desconozco la programación en Consola.

Saludos y suerte!

[Pablo César]

La sentencia ON INIT sólo se la puede usar cuando arranca el programa con Function Main y define el Primer Window en modo Gui ? ... O se puede usar ON INIT en cualquier momento del Programa y con cualquier Window definida en modo Gui ?

Si. Se puede usar en cualquier DEFINE del formulário/window en GUI.