Page 1 of 1

problemas con gets en Cajas de dialogo

Posted: Thu Jan 05, 2006 8:30 pm
by armandini
Por que las diferencias en las coordenadas cuando el get se pide en el bloque DEFINE ACTIVATE contra el que se pide en una funcion invocada en el evento ON-INIT.

Las mostradas en la funcion me parecen mas logicas y controlables. Pero igualmente la caja del get se muestra muy horrible. En cambio en el bloque Define Activate si se muestra elegante.


Alguien puede ilustrarme ??
Mil Gracias
Adjunto el codigo

*---------------


#include "FiveWin.ch"

static oWPpal


function Main()
LOCAL CWOPC,oText1,oWppal,odlg

DEFINE WINDOW oWPpal FROM 1, 1 TO 22, 75 ;
TITLE "Ventana Principal"

cwopc:='no'
DEFINE DIALOG oDlg TITLE "CAPTURA DE GETS" OF oWPpal;
PIXEL SIZE 760,560
@ 10,10 SAY "DESPLIEGUE EN BLOQUE DEFINE-ACTIVE" OF oDlg PIXEL
@ 10,280 SAY oText1 PROMPT "PRUEBA1 " OF oDlg SIZE 50,12 PIXEL
@ 10,360 GET cwopc PIXEL
read

ACTIVATE DIALOG oDlg NOWAIT CENTER ON INIT (VERA(ODLG))

activate window oWPpal VALID ;
MsgYesNo( "Esta seguro ?", "...Realizar salida del sistema..." )

return nil

return nil
*---------------
*------------
fUNCTION VERA(ODLG)

LOCAL CWOPC1,CWOPC2
CWOPC1:="UNO"
CWOPC2:="DOS"
@ 10,10 SAY "DESPLIEGUE EN EL EVENTO ON INIT" OF ODLG PIXEL
@ 10,280 SAY 'PRUEBA2 ' SIZE 50,12 PIXEL
@ 10,360 GET cwopc1 PIXEL
READ

RETURN NIL

Re: problemas con gets en Cajas de dialogo

Posted: Thu Jan 05, 2006 9:43 pm
by Vikthor
Armandini :

Creo que Antonio puede explicar el comportamiento.

Pero si revisas en la clase TDialog, existen 2 métodos, ::Activate() e ::Initiate(). Ahi debe estar la respuesta a tu pregunta.


La forma de crear los recursos es dintinta en cada método.

Antonio, si pudieras explicar mejor este comportamiento. :-)