Cambiar propiedades de pestaña
 

Buenos días a todos, tengo un problema que a ver si alguien me lo puede solucionar:

Necesito cambiar el icono de la cabecera de una pestaña mediante código. El icono le he puesto en la pestaña mediante el Screen Painter pero no sé como cambiarlo con código.

La equivalencia en VB de lo que necesito sería más o menos esto:

If datos = ‘si’ then.
Ficha_pestana2.icono = icon_okay
Else.
Ficha_pestana2.icono = ‘ ‘
Endif.


Muchas gracias

También me vale alguna función. He estado mirando funciones *icon* y hay muchísimas, pero no he encontrado ninguna.
Ayuda pleaseeeeeeeeeeeeeeeee

Prueba esta funcion a ver si te funciona.

*DATA NEW_ICON_BIS LIKE ICONS-TEXT.
*CALL FUNCTION 'ICON_CREATE'
* EXPORTING
* NAME = ICON_CHECKED
* TEXT = 'Aceptar'
* INFO = 'Información icono'
* ADD_STDINF = 'X'
* IMPORTING
* RESULT = NEW_ICON_BIS
* EXCEPTIONS
* ICON_NOT_FOUND = 1
* OUTPUTFIELD_TOO_SHORT = 2
* OTHERS = 3.
*WRITE NEW_ICON_BIS.

Salu2.

Eso me muestra el icono por pantalla, pero lo que yo necesito es que me aparezca en el texto de la pestaña. Si hubiera una forma de cambiar el propio texto de la pestaña y asignarle NEW_ICON_BIS como texto sería perfecto.

De todas formas muchas gracias por tu ayuda

Curiosamente en un foro de otra página me han puesto como solución que use la misma función pero ya te digo que no logro que funcione en la pestaña. La variable coje el valor pero no se lo pasa a la pestaña. En fin, no sé si alguien me podrá ayudar.

Gracias