Para Jose F. Gimenez sobre controls.ch
Publicado: Lun Jun 12, 2006 5:57 pm
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
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