problemas con gets en Cajas de dialogo

Post Reply
armandini
Posts: 23
Joined: Wed Jan 04, 2006 7:48 pm
Location: Bucaramanga/Colombia

problemas con gets en Cajas de dialogo

Post 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
principiante
User avatar
Vikthor
Posts: 271
Joined: Fri Oct 07, 2005 5:20 am
Location: México

Re: problemas con gets en Cajas de dialogo

Post 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. :-)
Vikthor
Post Reply