cVarName

joseluis · Mensaje por **joseluis** » Lun Feb 27, 2006 1:51 pm

Hola,
¿Sería posible tener cVarname como una propiedad más de la clase? Esta
propiedad sería de Solo Lectura en tiempo de ejecución.
Saludos,
José Luis Capel

Mensaje por **jfgimenez** » Lun Feb 27, 2006 2:44 pm

José Luis,
> ¿Sería posible tener cVarname como una propiedad más de la clase? Esta
> propiedad sería de Solo Lectura en tiempo de ejecución.
Esa propiedad está sólo en el IDE, y se usa únicamente para poner el nombre
al componente al generar el fichero .xfm
En la práctica, nunca la he necesitado en runtime. ¿En qué caso concreto la
necesitas?
--
Un saludo,
José F. Giménez

joseluis · Mensaje por **joseluis** » Lun Feb 27, 2006 3:56 pm

Hola José,
>
> Esa propiedad está sólo en el IDE, y se usa únicamente para poner el nombre
> al componente al generar el fichero .xfm
>
> En la práctica, nunca la he necesitado en runtime. ¿En qué caso concreto la
> necesitas?
>
En mi caso tengo 6 controles MaskEdit (oM1, ..., oM6) y otros seis
controles Label (oLb1, ..., oLb6). Mi intención es algo así:
METHOD Calculo( oSender ) CLASS tForm
DO CASE
CASE oSender:cVarName == "oM1"
...
CASE oSender:cVarName == "oM2"
...
ENDCASE
RETURN NIL
Y ese método Cálculo se llama desde el OnChange de cada control MaskEdit
, algo así:
METHOD M1Change( oSender, ... )
::Calculo( oSender )
RETURN NIL
Y a cada control MaskEdit colocar el mismo método OnChange (así me
ahorro lineas).
Se que puedo usar la propiedad Cargo... pero como cVarName ya está,
pensé que podría ser interesante utilizar esa propiedad.
Saludos,
José Luis Capel

Fredy · Mensaje por **Fredy** » Lun Feb 27, 2006 4:18 pm

Hola!,
Creo que puedes comparar directamente todo el objeto, algo así:
DO CASE oSender == oMaskEdit1.
Si no es así, seguro que Jose está al quite para corregirme

Un saludico,
Fredy

Xevi · Mensaje por **Xevi** » Lun Feb 27, 2006 4:18 pm

José Luis,
Yo lo estoy utilizando, y en tu ejemplo sería así...
METHOD Calculo( oSender ) CLASS tForm
DO CASE
CASE oSender = ::oM1
...
CASE oSender = ::oM2
...
ENDCASE
RETURN NIL
Espero te sirva, aunque también opino que cVarName debería de ser accesible
de solo lectura...
Un Saludo,
Xevi.
"José Luis Capel" <joseluis@iaicom.com> escribió en el mensaje
news:4403143d$[email=1@ozsrvnegro.ozlan.local...]1@ozsrvnegro.ozlan.local...[/email]
> Hola José,
>
>>
>> Esa propiedad está sólo en el IDE, y se usa únicamente para poner el
>> nombre al componente al generar el fichero .xfm
>>
>> En la práctica, nunca la he necesitado en runtime. ¿En qué caso concreto
>> la necesitas?
>>
>
> En mi caso tengo 6 controles MaskEdit (oM1, ..., oM6) y otros seis
> controles Label (oLb1, ..., oLb6). Mi intención es algo así:
>
> METHOD Calculo( oSender ) CLASS tForm
>
> DO CASE
> CASE oSender:cVarName == "oM1"
> ...
> CASE oSender:cVarName == "oM2"
> ...
> ENDCASE
> RETURN NIL
>
> Y ese método Cálculo se llama desde el OnChange de cada control MaskEdit ,
> algo así:
>
> METHOD M1Change( oSender, ... )
> ::Calculo( oSender )
> RETURN NIL
>
> Y a cada control MaskEdit colocar el mismo método OnChange (así me ahorro
> lineas).
>
> Se que puedo usar la propiedad Cargo... pero como cVarName ya está, pensé
> que podría ser interesante utilizar esa propiedad.
>
> Saludos,
> José Luis Capel
>

Xevi · Mensaje por **Xevi** » Lun Feb 27, 2006 4:23 pm

José Luis,
Un pequeño lapsus !!!
METHOD Calculo( oSender ) CLASS tForm
DO CASE
CASE oSender == ::oM1
...
CASE oSender == ::oM2
...
ENDCASE
RETURN NIL
Un Saludo,
Xevi.
"Xevi" <xevicomas@terra.es> escribió en el mensaje news:44031844$[email=1@ozsrvnegro.ozlan.local...]1@ozsrvnegro.ozlan.local...[/email]
>
>
> José Luis,
>
> Yo lo estoy utilizando, y en tu ejemplo sería así...
>
>
> METHOD Calculo( oSender ) CLASS tForm
>
> DO CASE
> CASE oSender = ::oM1
> ...
> CASE oSender = ::oM2
> ...
> ENDCASE
> RETURN NIL
>
> Espero te sirva, aunque también opino que cVarName debería de ser accesible
> de solo lectura...
>
>
> Un Saludo,
> Xevi.
>
>
> "José Luis Capel" <joseluis@iaicom.com> escribió en el mensaje
> news:4403143d$[email=1@ozsrvnegro.ozlan.local...]1@ozsrvnegro.ozlan.local...[/email]
>> Hola José,
>>
>>>
>>> Esa propiedad está sólo en el IDE, y se usa únicamente para poner el
>>> nombre al componente al generar el fichero .xfm
>>>
>>> En la práctica, nunca la he necesitado en runtime. ¿En qué caso concreto
>>> la necesitas?
>>>
>>
>> En mi caso tengo 6 controles MaskEdit (oM1, ..., oM6) y otros seis
>> controles Label (oLb1, ..., oLb6). Mi intención es algo así:
>>
>> METHOD Calculo( oSender ) CLASS tForm
>>
>> DO CASE
>> CASE oSender:cVarName == "oM1"
>> ...
>> CASE oSender:cVarName == "oM2"
>> ...
>> ENDCASE
>> RETURN NIL
>>
>> Y ese método Cálculo se llama desde el OnChange de cada control MaskEdit ,
>> algo así:
>>
>> METHOD M1Change( oSender, ... )
>> ::Calculo( oSender )
>> RETURN NIL
>>
>> Y a cada control MaskEdit colocar el mismo método OnChange (así me ahorro
>> lineas).
>>
>> Se que puedo usar la propiedad Cargo... pero como cVarName ya está, pensé
>> que podría ser interesante utilizar esa propiedad.
>>
>> Saludos,
>> José Luis Capel
>>
>
>
>
>
--

joseluis · Mensaje por **joseluis** » Lun Feb 27, 2006 4:41 pm

A todos,
Gracias!!
Saludos,
José Luis Capel
José Luis Capel escribió:
> Hola,
>
> ¿Sería posible tener cVarname como una propiedad más de la clase? Esta
> propiedad sería de Solo Lectura en tiempo de ejecución.
>
> Saludos,
> José Luis Capel

Mensaje por **jfgimenez** » Lun Feb 27, 2006 6:23 pm

Xevi,
> Espero te sirva, aunque también opino que cVarName debería de ser
> accesible de solo lectura...
El tema de llevar esta propiedad al GUI es que es una carga innecesaria,
tanto por la propiedad en sí como por su valor. Como habéis visto, no se
necesita para nada cuando se trata de identificar oSender, ya que se pueden
comparar objetos directamente.
--
Un saludo,
José F. Giménez