objeto no visible
Publicado por marcelo (72 intervenciones) el 21/07/2010 20:27:35
hola : cree una clase en la cual puse un text dentro de un container (la clase lo que hace es mostrar algo similar al reloj digital de windows con segundos).
para eso uso un evento timer .Esta clase la probe poniendo el codigo en vez de un container dentro de un form y funciona .
el tema es que al generarla con el container como contenedor ,la quiero agregar a la pantalla principal usando este programa :
SET CLASSLIB TO reloj_digital additive
try
_screen.addobject("oReloj", "reloj_digital") &&linea que da error
_screen.oReloj.Top=150
_screen.oReloj.Left=150
_screen.oRELOJ.Visible=.T.
READ events
catch
endtry
y me da error en la linea marcada.
----------------------------------------------------------------------------
en la clase reloj_digital ,el codigo del init det text es :
this.Value=ALLTRIM(SUBSTR(TTOC(dateTIME()),12,8))
y en el metodo timer del objeto timer es :
LOCAL hora,minutos,seg
hora=VAL(SUBSTR((this.parent.text1.Value),1,2))
minutos=VAL(SUBSTR((this.parent.text1.value),4,2))
seg=VAL(SUBSTR((this.parent.text1.value),7,2))
IF (seg<60)
seg=seg+1
ELSE
IF ((minutos<60) AND seg==60)
minutos=minutos+1
seg=0
ELSE
IF (minutos==60 )
hora=hora+1
minutos=0
endif
endif
endif
this.parent.text1.Value=PADL(ALLTRIM(STR(hora,2)),2,"0")+":"+PADL(ALLTRIM(STR(minutos,2)),2,"0")+":"+PADL(ALLTRIM(STR(seg,2)),2,"0")
lo que me genero dudas es como referenciar la propiedad value del text1 ,porque pongo el nombre del container y me dice que no reconoce el objeto .por eso puse parent .por favor necesitaria saber donde esta el error .gracias
para eso uso un evento timer .Esta clase la probe poniendo el codigo en vez de un container dentro de un form y funciona .
el tema es que al generarla con el container como contenedor ,la quiero agregar a la pantalla principal usando este programa :
SET CLASSLIB TO reloj_digital additive
try
_screen.addobject("oReloj", "reloj_digital") &&linea que da error
_screen.oReloj.Top=150
_screen.oReloj.Left=150
_screen.oRELOJ.Visible=.T.
READ events
catch
endtry
y me da error en la linea marcada.
----------------------------------------------------------------------------
en la clase reloj_digital ,el codigo del init det text es :
this.Value=ALLTRIM(SUBSTR(TTOC(dateTIME()),12,8))
y en el metodo timer del objeto timer es :
LOCAL hora,minutos,seg
hora=VAL(SUBSTR((this.parent.text1.Value),1,2))
minutos=VAL(SUBSTR((this.parent.text1.value),4,2))
seg=VAL(SUBSTR((this.parent.text1.value),7,2))
IF (seg<60)
seg=seg+1
ELSE
IF ((minutos<60) AND seg==60)
minutos=minutos+1
seg=0
ELSE
IF (minutos==60 )
hora=hora+1
minutos=0
endif
endif
endif
this.parent.text1.Value=PADL(ALLTRIM(STR(hora,2)),2,"0")+":"+PADL(ALLTRIM(STR(minutos,2)),2,"0")+":"+PADL(ALLTRIM(STR(seg,2)),2,"0")
lo que me genero dudas es como referenciar la propiedad value del text1 ,porque pongo el nombre del container y me dice que no reconoce el objeto .por eso puse parent .por favor necesitaria saber donde esta el error .gracias
Valora esta pregunta
0