Página 1 de 1

Para Jose F. Gimenez sobre controls.ch

Publicado: Lun Jun 12, 2006 5:57 pm
por Bingen Ugaldebere
Hola Jose recuerdas que te comenté que iba a modificar el Controls.Ch y
ya le he metido varias cosas como el DATEEDIT sin problemas pero me
encuentro en un atolladero para meter un simple Bitmap, ya que pongo
esto y no hay forma de darle un nombre de un recurso puesto que me da un
error de que ha de ser un Objeto y no un string lo que reciba.
Y como además no veo que en los controles visuales aparezca el bitmap
para poder evaluar como lo harí­a en el XFM.
Gracias
//-------------------------------- BITMAP ----------------------------------
#xcommand @ <nTop>, <nLeft> BITMAP [ <oBitmap> ] [ OF <oParent> ] ;
[ SIZE <nWidth>, <nHeight> ] ;
[ <x: FILE, NAME, RESNAME, RESOURCE> <cResName> ] ;
=> ;
WITH OBJECT [ <oBitmap> := ] TBitmap():New(
<oParent> ) ;
[; :cName := <cResName> ] ;
;:SetBounds( [<nLeft>], [<nTop>], [<nWidth>],
[<nHeight>], .f. ) ;
;:Create() ;
;END

Para Jose F. Gimenez sobre controls.ch

Publicado: Lun Jun 12, 2006 6:58 pm
por jfgimenez
Bingen,
> Hola Jose recuerdas que te comenté que iba a modificar el Controls.Ch y ya
> le he metido varias cosas como el DATEEDIT sin problemas pero me encuentro
> en un atolladero para meter un simple Bitmap, ya que pongo esto y no hay
> forma de darle un nombre de un recurso puesto que me da un error de que ha
> de ser un Objeto y no un string lo que reciba.
>
> Y como además no veo que en los controles visuales aparezca el bitmap para
> poder evaluar como lo haría en el XFM.
No es TBitmap, sino TImage el control que sirve para mostrar imágenes,
incluidos bitmaps, pero también jpeg, gif, wmf, emf, ico y cur.
Sería algo así:
#xcommand @ <nTop>, <nLeft> IMAGE [ <oImage> ] [ OF <oParent> ] ;
[ SIZE <nWidth>, <nHeight> ] ;
[ <x: FILE, NAME, RESNAME, RESOURCE> <cResName> ] ;
=> ;
WITH OBJECT [ <oImage> := ] TImage():New( <oParent> )
;
[; :oPicture := <cResName> ] ;
;:SetBounds( [<nLeft>], [<nTop>], [<nWidth>],
[<nHeight>], .f. ) ;
;:Create() ;
;END
--
Un saludo,
José F. Giménez
http://www.xailer.com

Para Jose F. Gimenez sobre controls.ch

Publicado: Lun Jun 12, 2006 8:22 pm
por Bingen Ugaldebere
Ha pillines, o sea que solo hay uno para las 2 cosas.
Muchas gracias.

Para Jose F. Gimenez sobre controls.ch

Publicado: Lun Jun 12, 2006 8:35 pm
por ignacio
Bingen,
Pues va a ser que no :-)
TPicture no es un control, es sencillamente el objeto bitmap, jpg, etc. Sin
embargo TImage SI es un control de Windows que puede ser incluido y verse en
un formulario. Es normal que te hayas equivocado pues otros entornos de
desarrollo no tienen clara la diferencia.
Un saludo
"bingen" <bingen@muninser.com> escribió en el mensaje
news:[email=448db10c@ozsrvnegro.ozlan.local...]448db10c@ozsrvnegro.ozlan.local...[/email]
> Ha pillines, o sea que solo hay uno para las 2 cosas.
>
> Muchas gracias.