Xailer & OZ Software

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

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

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

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

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
>