Hola,
Supongo que algo me debo de estar dejando por el camino.
Al añadir un botón a una toolbar ya creada enteriormente no consigo que
aparezca el efecto 'deshabilitado' del bitmap. Además, en el ejemplo que os
dejo, al deshabilitar un botón aparece un efecto extraño en el texto del
botón deshabilitado.
Este es el código:
// ---> Crear separador (3) y botón (4)
WITH OBJECT ::oToolBar1:oImageList
:Add("BTN24")
END
WITH OBJECT ::oToolBar1:oImageListHot
:Add("BTN24")
END
WITH OBJECT ::oToolBar1:oImageListDis
:Add("BTN24")
END
WITH OBJECT ::oToolBar1
:AddSeparator(3)
:AddItem("OtroBoton",3)
END
Entonces si hago:
::oToolBar1:aItems[4]:lEnabled := .F.
Entonces el bitmap sigue apareciendo como 'habilitado' y el texto como
'des-habilitado' y con un efecto extraño (ver ejemplo).
Saludos,
José Luis Capel
Attached files pruebas4.zip (7.3 KB)Â
In order for this site to work correctly we need to store a small file (called a cookie) on your computer. Most every site in the world does this, however since the 25th of May 2011, by law we have to get your permission first. Please abandon the forum if you disagree.
Para que este foro funcione correctamente es necesario guardar un pequeño fichero (llamado cookie) en su ordenador. La mayoría de los sitios de Internet lo hacen, no obstante desde el 25 de Marzo de 2011 y por ley, necesitamos de su permiso con antelación. Abandone este foro si no está conforme.
Para que este foro funcione correctamente es necesario guardar un pequeño fichero (llamado cookie) en su ordenador. La mayoría de los sitios de Internet lo hacen, no obstante desde el 25 de Marzo de 2011 y por ley, necesitamos de su permiso con antelación. Abandone este foro si no está conforme.
Toolbar: addItem
Toolbar: addItem
José Luis,
> WITH OBJECT ::oToolBar1:oImageListDis
> :Add("BTN24")
> END
:Add( "BTN24", .T. )
> con un efecto extraño (ver ejemplo).
Corregido, gracias. Aquí tienes el módulo afectado.
--
Un saludo,
José F. Giménez
http://www.xailer.com
Attached files toolbar.zip (5.9 KB)Â
> WITH OBJECT ::oToolBar1:oImageListDis
> :Add("BTN24")
> END
:Add( "BTN24", .T. )
> con un efecto extraño (ver ejemplo).
Corregido, gracias. Aquí tienes el módulo afectado.
--
Un saludo,
José F. Giménez
http://www.xailer.com
Attached files toolbar.zip (5.9 KB)Â
Toolbar: addItem
José,
Gracias por tu respuesta.
>> WITH OBJECT ::oToolBar1:oImageListDis
>> :Add("BTN24")
>> END
>
> :Add( "BTN24", .T. )
Ya me vale... por no acabar de ver la ayuda de la clase.... te he hecho
perder un rato de tu tiempo (no te cuento cuanto he perdido yo).
>
>> con un efecto extraño (ver ejemplo).
>
> Corregido, gracias. Aquí tienes el módulo afectado.
>
Ahora funciona perfectamente. Gracias!!!
Saludos,
José Luis Capel
Gracias por tu respuesta.
>> WITH OBJECT ::oToolBar1:oImageListDis
>> :Add("BTN24")
>> END
>
> :Add( "BTN24", .T. )
Ya me vale... por no acabar de ver la ayuda de la clase.... te he hecho
perder un rato de tu tiempo (no te cuento cuanto he perdido yo).
>
>> con un efecto extraño (ver ejemplo).
>
> Corregido, gracias. Aquí tienes el módulo afectado.
>
Ahora funciona perfectamente. Gracias!!!
Saludos,
José Luis Capel