BtnBmp

[jasm]

Hola,
No consigo hacer un boton con un bitmap dentro. ¿Alguna pista de como se
hace eso? La documentacion no ayuda mucho.
Saludos
Jose A. Suarez

[jlalin]

Jose A.,
> No consigo hacer un boton con un bitmap dentro. ¿Alguna pista de como se
> hace eso? La documentacion no ayuda mucho.
Creo que a este control le falta el editor de ImageList que está
terminando Jose F. (corrí­geme si me equivoco).
Mientras tanto puedes hacerlo así­:
WITH OBJECT TBtnBmp():New( oForm )
:cText := "Aceptar"
:SetBounds( 10, 10, 100, 30 )
:oBitmaps := { "Ok", "Ok1", "Ok2", "Ok3" }
:Create()
END
o así­:
WITH OBJECT TBtnBmp():New( oForm )
:cText := "Aceptar"
:SetBounds( 10, 10, 100, 30 )
WITH OBJECT :oBitmaps := TImageList():Create()
:Add( "Ok" )
:Add( "Ok1" )
:Add( "Ok2" )
:Add( "Ok3" )
END
:Create()
END
No es obligatorio que uses los cuatro bitmaps y la posición de cada uno
significa: normal, hot (ratón encima), pulsado y desactivado.
Saludos,
José Lalí­n

[jasm]

Jose,
Lo tengo así­ y no funciona:
WITH OBJECT ::aBmp[ nI ] := TBtnBmp():New( ::oPanel6 )
:SetBounds( nIzq, nSup, ::nAncho, ::nAlto )
:oBitmaps := { ".sistemaejemplo.bmp" }
:OnClick := { || MsgInfo( "HOLA!" ) }
:Create()
END
Saludos
Jose A. Suarez

[jfgimenez]

José Alfonso,
acabo de hacer una prueba por si lo que fallaba era cargar el bitmap desde
disco en vez de recursos, pero también funciona correctamente.
Por favor, comprueba estas dos cosas:
1) que las dimensiones del bitmap coincidan con las propiedades nBmpWidth y
nBmpHeight; o que ambas tengan el valor 1.
2) que el bitmap se encuentra en el directorio correcto. Ten en cuenta que
el directorio actual en el momento de ejecutar el programa es donde resida
el .exe y no el propio IDE. Utiliza el path absoluto si hace falta para
asegurarte.
--
Un saludo,
José F. Giménez

[jasm]

Jose,
Al final lo he resueto con TBevel.
De todas formas, cuando tiene que cargar el bitmap desde HD no lo hace.
Desde recursos lo hace bien.
Saludos,
Jose A. Suarez

[jfgimenez]

José Alfonso,
> Al final lo he resueto con TBevel.
> De todas formas, cuando tiene que cargar el bitmap desde HD no lo hace.
> Desde recursos lo hace bien.
Cuando lo probé anoche lo hice desde disco, porque esa era la duda que
tenía, y lo hizo bien. Quizás se solucionó en alguno de los cambios que
hemos hecho después de la beta 8.
--
Un saludo,
José F. Giménez