Xailer & OZ Software

¿Es posible tener un componente TImage dimensionado?
He intentado hacer lo siguiente directamente escrito mediante código en un
PRG, pero me dice que naranjas de la China:
COMPONENT oImagen INIT {} //Aquí ya me lanza el primer error
y despues:
WITH OBJECT ::oImagen[1] := TImage():New( Self )
:SetBounds( 256, 244, 142, 114 )
:lTabStop := .F.
:oPicture := "DIBUJO1.JPG"
:lAutoFit := .T.
:Create()
END
WITH OBJECT ::oImagen[2] := TImage():New( Self )
:SetBounds( 356, 244, 142, 114 )
:lTabStop := .F.
:oPicture := "DIBUJO2.JPG"
:lAutoFit := .T.
:Create()
END
La cuestión es que tengo que poner varias imágenes en una ventana,
dependiendo de muchos factores. Si pudiese tener este objeto dimensionado,
me evitaría muchas líneas de código y claridad de programación.
Si alguien me puede ayudar, le estaría muy agradecido.
Francisco Martínez

Francisco,
Has probado???
DATA oImagen INIT Array(2)
Un Saludo,
Xevi.
"Francisco Martí­nez Garcí­a" <pacoelche@hotmail.com> ha escrit al
missatge:4d401843$[email=1@svctag-j7w3v3j....]1@svctag-j7w3v3j....[/email]
> ¿Es posible tener un componente TImage dimensionado?
>
> He intentado hacer lo siguiente directamente escrito mediante código en un
> PRG, pero me dice que naranjas de la China:
>
> COMPONENT oImagen INIT {} //Aquí­ ya me lanza el primer error
>
> y despues:
>
> WITH OBJECT ::oImagen[1] := TImage():New( Self )
> :SetBounds( 256, 244, 142, 114 )
> :lTabStop := .F.
> :oPicture := "DIBUJO1.JPG"
> :lAutoFit := .T.
> :Create()
> END
>
> WITH OBJECT ::oImagen[2] := TImage():New( Self )
> :SetBounds( 356, 244, 142, 114 )
> :lTabStop := .F.
> :oPicture := "DIBUJO2.JPG"
> :lAutoFit := .T.
> :Create()
> END
>
> La cuestión es que tengo que poner varias imágenes en una ventana,
> dependiendo de muchos factores. Si pudiese tener este objeto dimensionado,
> me evitarí­a muchas lí­neas de código y claridad de programación.
>
> Si alguien me puede ayudar, le estarí­a muy agradecido.
>
> Francisco Martí­nez
>
>
> __________ Información de ESET NOD32 Antivirus, versión de la base de
> firmas de virus 5821 (20110126) __________
>
> ESET NOD32 Antivirus ha comprobado este mensaje.
>
> http://www.eset.com
>
>
>
__________ Información de ESET NOD32 Antivirus, versión de la base de firmas de virus 5821 (20110126) __________
ESET NOD32 Antivirus ha comprobado este mensaje.
http://www.eset.com

Es exactamente lo que buscaba. Funciona de maravilla.
Un millón de gracias Xevi
Paco Martínez
> Francisco,
>
> Has probado???
> DATA oImagen INIT Array(2)
>
> Un Saludo,
> Xevi.
>
>
> "Francisco Martínez García" <pacoelche@hotmail.com> ha escrit al
> missatge:4d401843$[email=1@svctag-j7w3v3j....]1@svctag-j7w3v3j....[/email]
>> ¿Es posible tener un componente TImage dimensionado?
>>
>> He intentado hacer lo siguiente directamente escrito mediante código en
>> un PRG, pero me dice que naranjas de la China:
>>
>> COMPONENT oImagen INIT {} //Aquí ya me lanza el primer error
>>
>> y despues:
>>
>> WITH OBJECT ::oImagen[1] := TImage():New( Self )
>> :SetBounds( 256, 244, 142, 114 )
>> :lTabStop := .F.
>> :oPicture := "DIBUJO1.JPG"
>> :lAutoFit := .T.
>> :Create()
>> END
>>
>> WITH OBJECT ::oImagen[2] := TImage():New( Self )
>> :SetBounds( 356, 244, 142, 114 )
>> :lTabStop := .F.
>> :oPicture := "DIBUJO2.JPG"
>> :lAutoFit := .T.
>> :Create()
>> END
>>
>> La cuestión es que tengo que poner varias imágenes en una ventana,
>> dependiendo de muchos factores. Si pudiese tener este objeto
>> dimensionado, me evitaría muchas líneas de código y claridad de
>> programación.
>>
>> Si alguien me puede ayudar, le estaría muy agradecido.
>>
>> Francisco Martínez
>>
>>
>> __________ Información de ESET NOD32 Antivirus, versión de la base de
>> firmas de virus 5821 (20110126) __________
>>
>> ESET NOD32 Antivirus ha comprobado este mensaje.
>>
>> http://www.eset.com
>>
>>
>>
>
> __________ Información de ESET NOD32 Antivirus, versión de la base de
> firmas de virus 5821 (20110126) __________
>
> ESET NOD32 Antivirus ha comprobado este mensaje.
>
> http://www.eset.com
>
>
>