In order for this site to work correctly we need to store a small file (called a cookie) on your computer. Most every site in the world does this, however since the 25th of May 2011, by law we have to get your permission first. Please abandon the forum if you disagree.

Para que este foro funcione correctamente es necesario guardar un pequeño fichero (llamado cookie) en su ordenador. La mayoría de los sitios de Internet lo hacen, no obstante desde el 25 de Marzo de 2011 y por ley, necesitamos de su permiso con antelación. Abandone este foro si no está conforme.

Devoluci

Foro público de Xailer en español
Responder
pacoelche
Mensajes: 141
Registrado: Mar Jul 11, 2006 10:32 am

Devoluci

Mensaje por pacoelche »

Estoy haciendo un programa de facturación para restaurantes y uno de los
apartados es hacer unos formularios táctiles. En un formulario tengo que
poner muchos componentes TImage.
Lo hago de la siguiente forma. Lo hago todo en tiempo de ejecución:
1º defino: Data CAMARERO Init Array(50)
Después para cada una de las imágenes hago lo siguiente:
WITH OBJECT ::CAMARERO[1] := TImage():New( Self )
:SetBounds( 100, 50, 100, 150 )
:lTabStop := .F.
:nBorderStyle := bvNONE
:oPicture:=Application:cDirectory+"FOTOSCAMAREROS_ALVARO.BMP "
:lAutoFit := .T.
:OnClick := "ImageClick"
:Create()
END
Así sucesivamente hasta completar todas las imagenes que quiero poner en
pantalla. Todo esto funciona bien.
Lo que pretendo es que al pulsar cualquiera de las imágenes se le asigne un
valor a una variable (por ejemplo: VALOR_DEVUELTO).
He probado mil historias, pero no consigo que al pulsar cualquier botón me
devuelva un valor diferente.
Gracias a quien pueda ayudarme
pacoelche@hotmail.com
Arriba
Pablo Herranz
Mensajes: 260
Registrado: Lun Feb 07, 2005 1:20 pm

Devoluci

Mensaje por Pablo Herranz »

El 22/08/2011 19:40, Francisco Martí­nez Garcí­a escribió:
> Estoy haciendo un programa de facturación para restaurantes y uno de los
> apartados es hacer unos formularios táctiles. En un formulario tengo que
> poner muchos componentes TImage.
>
> Lo hago de la siguiente forma. Lo hago todo en tiempo de ejecución:
>
> 1º defino: Data CAMARERO Init Array(50)
>
> Después para cada una de las imágenes hago lo siguiente:
>
> WITH OBJECT ::CAMARERO[1] := TImage():New( Self )
> :SetBounds( 100, 50, 100, 150 )
> :lTabStop := .F.
> :nBorderStyle := bvNONE
> :oPicture:=Application:cDirectory+"FOTOSCAMAREROS_ALVARO.BMP "
> :lAutoFit := .T.
> :OnClick := "ImageClick"
> :Create()
> END
>
> Así­ sucesivamente hasta completar todas las imagenes que quiero poner en
> pantalla. Todo esto funciona bien.
>
> Lo que pretendo es que al pulsar cualquiera de las imágenes se le asigne un
> valor a una variable (por ejemplo: VALOR_DEVUELTO).
>
> He probado mil historias, pero no consigo que al pulsar cualquier botón me
> devuelva un valor diferente.
>
> Gracias a quien pueda ayudarme
> pacoelche@hotmail.com
>
>
>
Pon el valor a devolver en el cargo y devuelve este.
Saludos
Pablo H
Arriba
pacoelche
Mensajes: 141
Registrado: Mar Jul 11, 2006 10:32 am

Devoluci

Mensaje por pacoelche »

Hola Pablo:
Gracias por tu rápida respuesta, pero aun no me aclaro mucho con esto de los
objetos.
¿Me podrías hacer un pequeño ejemplo?
Mil gracias
"Pablo Herranz" <pablo@ibertabaco.com> escribió en el mensaje
news:4e52ad11$[email=1@svctag-j7w3v3j....]1@svctag-j7w3v3j....[/email]
> El 22/08/2011 19:40, Francisco Martínez García escribió:
>> Estoy haciendo un programa de facturación para restaurantes y uno de los
>> apartados es hacer unos formularios táctiles. En un formulario tengo que
>> poner muchos componentes TImage.
>>
>> Lo hago de la siguiente forma. Lo hago todo en tiempo de ejecución:
>>
>> 1º defino: Data CAMARERO Init Array(50)
>>
>> Después para cada una de las imágenes hago lo siguiente:
>>
>> WITH OBJECT ::CAMARERO[1] := TImage():New( Self )
>> :SetBounds( 100, 50, 100, 150 )
>> :lTabStop := .F.
>> :nBorderStyle := bvNONE
>> :oPicture:=Application:cDirectory+"FOTOSCAMAREROS_ALVARO.BMP "
>> :lAutoFit := .T.
>> :OnClick := "ImageClick"
>> :Create()
>> END
>>
>> Así sucesivamente hasta completar todas las imagenes que quiero poner en
>> pantalla. Todo esto funciona bien.
>>
>> Lo que pretendo es que al pulsar cualquiera de las imágenes se le asigne
>> un
>> valor a una variable (por ejemplo: VALOR_DEVUELTO).
>>
>> He probado mil historias, pero no consigo que al pulsar cualquier botón
>> me
>> devuelva un valor diferente.
>>
>> Gracias a quien pueda ayudarme
>> pacoelche@hotmail.com
>>
>>
>>
> Pon el valor a devolver en el cargo y devuelve este.
>
>
> Saludos
>
> Pablo H
Arriba
Pablo Herranz
Mensajes: 260
Registrado: Lun Feb 07, 2005 1:20 pm

Devoluci

Mensaje por Pablo Herranz »

El 22/08/2011 22:10, Francisco Martí­nez Garcí­a escribió:
> Hola Pablo:
>
> Gracias por tu rápida respuesta, pero aun no me aclaro mucho con esto de los
> objetos.
>
> ¿Me podrí­as hacer un pequeño ejemplo?
>
> Mil gracias
>
> "Pablo Herranz"<pablo@ibertabaco.com> escribió en el mensaje
> news:4e52ad11$[email=1@svctag-j7w3v3j....]1@svctag-j7w3v3j....[/email]
>> El 22/08/2011 19:40, Francisco Martí­nez Garcí­a escribió:
>>> Estoy haciendo un programa de facturación para restaurantes y uno de los
>>> apartados es hacer unos formularios táctiles. En un formulario tengo que
>>> poner muchos componentes TImage.
>>>
>>> Lo hago de la siguiente forma. Lo hago todo en tiempo de ejecución:
>>>
>>> 1º defino: Data CAMARERO Init Array(50)
>>>
>>> Después para cada una de las imágenes hago lo siguiente:
>>>
>>> WITH OBJECT ::CAMARERO[1] := TImage():New( Self )
>>> :SetBounds( 100, 50, 100, 150 )
>>> :lTabStop := .F.
>>> :nBorderStyle := bvNONE
>>> :oPicture:=Application:cDirectory+"FOTOSCAMAREROS_ALVARO.BMP "
>>> :lAutoFit := .T.
>>> :OnClick := "ImageClick"
>>> :Create()
>>> END
>>>
>>> Así­ sucesivamente hasta completar todas las imagenes que quiero poner en
>>> pantalla. Todo esto funciona bien.
>>>
>>> Lo que pretendo es que al pulsar cualquiera de las imágenes se le asigne
>>> un
>>> valor a una variable (por ejemplo: VALOR_DEVUELTO).
>>>
>>> He probado mil historias, pero no consigo que al pulsar cualquier botón
>>> me
>>> devuelva un valor diferente.
>>>
>>> Gracias a quien pueda ayudarme
>>> pacoelche@hotmail.com
>>>
>>>
>>>
>> Pon el valor a devolver en el cargo y devuelve este.
>>
>>
>> Saludos
>>
>> Pablo H
>
>
WITH OBJECT ::CAMARERO[1] := TImage():New( Self )
:SetBounds( 100, 50, 100, 150 )
:lTabStop := .F.
:nBorderStyle := bvNONE
:oPicture:=Application:cDirectory+"FOTOSCAMAREROS_ALVARO.BMP "
:lAutoFit := .T.
:OnClick := "ImageClick"
:cargo := Valor_a_Devolver
:Create()
END
Y en el imageclick asignas
VALOR_DEVUELTO:=oSender:cargo
Saludos
Pablo H
Arriba
pacoelche
Mensajes: 141
Registrado: Mar Jul 11, 2006 10:32 am

Devoluci

Mensaje por pacoelche »

Gracias Pablo:
Lo he probado y funciona perfectamente.
Esto me ahorra muchas líneas de código.
Gracias
Paco Martínez
"Pablo Herranz" <pablo@ibertabaco.com> escribió en el mensaje
news:[email=4e55f220@svctag-j7w3v3j....]4e55f220@svctag-j7w3v3j....[/email]
> El 22/08/2011 22:10, Francisco Martínez García escribió:
>> Hola Pablo:
>>
>> Gracias por tu rápida respuesta, pero aun no me aclaro mucho con esto de
>> los
>> objetos.
>>
>> ¿Me podrías hacer un pequeño ejemplo?
>>
>> Mil gracias
>>
>> "Pablo Herranz"<pablo@ibertabaco.com> escribió en el mensaje
>> news:4e52ad11$[email=1@svctag-j7w3v3j....]1@svctag-j7w3v3j....[/email]
>>> El 22/08/2011 19:40, Francisco Martínez García escribió:
>>>> Estoy haciendo un programa de facturación para restaurantes y uno de
>>>> los
>>>> apartados es hacer unos formularios táctiles. En un formulario tengo
>>>> que
>>>> poner muchos componentes TImage.
>>>>
>>>> Lo hago de la siguiente forma. Lo hago todo en tiempo de ejecución:
>>>>
>>>> 1º defino: Data CAMARERO Init Array(50)
>>>>
>>>> Después para cada una de las imágenes hago lo siguiente:
>>>>
>>>> WITH OBJECT ::CAMARERO[1] := TImage():New( Self )
>>>> :SetBounds( 100, 50, 100, 150 )
>>>> :lTabStop := .F.
>>>> :nBorderStyle := bvNONE
>>>> :oPicture:=Application:cDirectory+"FOTOSCAMAREROS_ALVARO.BMP "
>>>> :lAutoFit := .T.
>>>> :OnClick := "ImageClick"
>>>> :Create()
>>>> END
>>>>
>>>> Así sucesivamente hasta completar todas las imagenes que quiero poner
>>>> en
>>>> pantalla. Todo esto funciona bien.
>>>>
>>>> Lo que pretendo es que al pulsar cualquiera de las imágenes se le
>>>> asigne
>>>> un
>>>> valor a una variable (por ejemplo: VALOR_DEVUELTO).
>>>>
>>>> He probado mil historias, pero no consigo que al pulsar cualquier botón
>>>> me
>>>> devuelva un valor diferente.
>>>>
>>>> Gracias a quien pueda ayudarme
>>>> pacoelche@hotmail.com
>>>>
>>>>
>>>>
>>> Pon el valor a devolver en el cargo y devuelve este.
>>>
>>>
>>> Saludos
>>>
>>> Pablo H
>>
>>
> WITH OBJECT ::CAMARERO[1] := TImage():New( Self )
> :SetBounds( 100, 50, 100, 150 )
> :lTabStop := .F.
> :nBorderStyle := bvNONE
> :oPicture:=Application:cDirectory+"FOTOSCAMAREROS_ALVARO.BMP "
> :lAutoFit := .T.
> :OnClick := "ImageClick"
>
> :cargo := Valor_a_Devolver
>
> :Create()
> END
>
> Y en el imageclick asignas
> VALOR_DEVUELTO:=oSender:cargo
>
> Saludos
> Pablo H
>
Arriba
Responder

Volver a “Xailer Spanish”