HMGforum.com

Hola a todos, encontre un excelente programa del Dr. CLAUDIO SOTO "Demo ON PAINT event" el cual necesito usarlo en una ventana MODAl pero me me da error de sintaxis.

DEFINE WINDOW Win1;
AT 0,0;
WIDTH 960;
HEIGHT 780;
TITLE "Dermatomas";
BACKCOLOR SILVER;
MAIN; <---- Deseo cambiar esta instruccion por MODAL
ICON "BosTaurus" ;
ON INIT Proc_ON_INIT ();
ON RELEASE Proc_ON_RELEASE ();
ON PAINT Proc_ON_PAINT () ;
ON MOUSECLICK Draw_Figure();
ON MOUSEDRAG Mouse_Drag();
ON MOUSEMOVE Mouse_Position()

gracias por su colaboracion.

Hola Gabriel,

Por qué motivo precisas que sea MODAL la primera ventana ?

Porque si es MAIN no puede ser MODAL. A no ser que le pongas al MAIN TOPMOST como .T. o le pongas SET WINDOW MAIN OFF antes de crear el WINDOW Win1.

Buenos Dias Pablo Cesar, gracias por responder
Nesecito llamar a este programa desde un boton que se encuetra dentro de una ventana MODAL

Entonces supongo que ya tienes un MAIN que hace los botones.

Una ventana MODAL que llame otra ? Es como el PrintView de HMG. Hay una forma de desabilitar el modal, pero habria que evaluar en mi opinion si eso seria tan necesário o no habria otra sulucion menos radical. Entiendes. Explicame más por favor.

Yo utilizo la ventana MAIN y en cada una de las opciones del menu llamo una ventana MODAL y si lo necesito llamo una funcion que me abra una ventana modal mas pequeña. El problema es que nunca utilizo al llamar la ventana
ON INIT Proc_ON_INIT ();
ON RELEASE Proc_ON_RELEASE ();
ON PAINT Proc_ON_PAINT () ;
ON MOUSECLICK Draw_Figure();
ON MOUSEDRAG Mouse_Drag()

gabrieloq wrote:.. llamo una ventana MODAL y si lo necesito llamo una funcion que me abra una ventana modal mas pequeña

Pequeña? Entonces te aconsejo a utilizar la tercer ventana como CHILD y con el atributo TOPMOST.

Desabilitar el MODAL de la segunda ventana, irá tener fallas con el usuário, porque la tercera es menor ventana. Fijate que el PrintView toma la ventana entera al visualizar relatorios. No es tu caso.

Ya probaste la ventana con TOPMOST ?

Puedes aún hacer tu MAIN con los botones, abrir ventanas CHILD y abrir las terceras ventanas en MODAL. Pero llamar un MODAL desde otro MODAL, no es usual y no creo que venga a tener sentindo ser MODAL entonces. Si los has visto eso, dime cual es el ejemplo.

Don Pablo gracias por su asesoria, con CHILD y con el atributo TOPMOST no aparece error de sintaxis pero aparece el siguiente error:

Error: HMG 3.4.3 Stable (32 bits)
Non Modal WIndows can't be activated when a modal window is active. Win1 Program Terminated
Called from _ACTIVATEWINDOW(5648)

se reuiere usar lo siguiente:

DEFINE WINDOW Win1;
AT 0,0;
WIDTH 960;
HEIGHT 780;
TITLE "Ubicacion del Dolor";
BACKCOLOR SILVER;
CHILD ;
TOPMOST ;
ON INIT Proc_ON_INIT ();
ON RELEASE Proc_ON_RELEASE ();
ON PAINT Proc_ON_PAINT () ;
ON MOUSECLICK Draw_Figure();
ON MOUSEDRAG Mouse_Drag()

Pensé que Win1 era tu form MAIN... (no puedes poner una Window principal como CHILD, siempre debe haber una MAIN). Debes estudiar los conceptos de MAIN, CHILD, MODAL, STANDARD, PANEL... asi es en todas las herramientas under Windows.

No sé como lo estás haciendo, si anexaras el archivo prg serviria para ayudarte mejor.

Cuando quieres una efectiva ayuda, debes exponer toda tu situacion y deseos como tambien disponibilizar ejemplos que se puedan testear.
Aproveché el ultimo UNO que mandaste.

Hice alguna mejoras espero que te guste. Le agregué una especie de link para los ultimos circulos y puse el ButtonCheck que es mucho mejor.
Creé una window MODAL porque todavia sigo no entendiendote. Describes muy poco de lo que te pasa. Revisá los ajustes que te hice. Creo que no me supiste entender. Los códigos son universales cualquiera los entiende.

Me gustó tu programa. Sigue adelante y disponibilizalo cuando quieras.

Un abrazo

gabrieloq wrote:Hola a todos, encontre un excelente programa del Dr. CLAUDIO SOTO "Demo ON PAINT event" el cual necesito usarlo en una ventana MODAl pero me me da error de sintaxis.

DEFINE WINDOW Win1;
AT 0,0;
WIDTH 960;
HEIGHT 780;
TITLE "Dermatomas";
BACKCOLOR SILVER;
MAIN; <---- Deseo cambiar esta instruccion por MODAL
ICON "BosTaurus" ;
ON INIT Proc_ON_INIT ();
ON RELEASE Proc_ON_RELEASE ();
ON PAINT Proc_ON_PAINT () ;
ON MOUSECLICK Draw_Figure();
ON MOUSEDRAG Mouse_Drag();
ON MOUSEMOVE Mouse_Position()

gracias por su colaboracion.

Si es un error de sintaxis, fíjate en include/windows.ch en la definición de Windows Modal el orden exacto donde va la directiva Modal.

srvet_claudio wrote:Si es un error de sintaxis, fíjate en include/windows.ch en la definición de Windows Modal el orden exacto donde va la directiva Modal.

Si, gracias Claudio por mencionar, bien recordado. Ayer yo habia pensado en esa posibilidad, pero acabé de envolverme con el código. Por eso, a mi me gusta desenvolver atravez de la IDE, porque con ella se resuelven vários errores, principalmente con la secuencia de comandos con el estilo standard (como ej. @...). Yo ya prefiro usar los DEFINE... en lugar.