Teclas aceleradoras en TBUTTON

[jmua]

Buenos dias,
Uso fwh26, harbour y pellesc 4.50 y tengo problemas con los button, en pelles les pongo la tecla aceleradora pero al compilar no me aparecen en pantalla, el caso es que si pulso Alt + Tecla si funciona pero no veo la letra subrayada, solo veo el texto
El boton le defino asi:

REDEFINE BUTTON BtnEnd ID 501 OF oDlg FONT oFont ;
PROMPT '&Salir' ;
CANCEL ;
UPDATE ;
ACTION (lSalir := .t.,oDlg:End())

En PROMPT pongo lo mismo que en Pellesc, pero no lo veo al ejecutar .

Alguien me puede decir porque ocurre esto.
Muchas gracias

[jrestojeda]

Prueba lo siguiente:

#include "Tsbutton.ch" // Incluirlo en la cabecera del .prg


REDEFINE SBUTTON Btn2 ID 201 OF oDlg RESOURCE "CANCEL";
ACTION " ";
TOOLTIP "Cancelar y salir";
PROMPT "&Cancelar" TEXT 4

No estoy seguro pero me parece que así fucniona.
Saludos, Esteban.

[jmua]

Esteban, esto que dices ya se que funciona, pero es la clase TSBUTTON y yo quiero usar la clase TBUTTON.

De todas formas muchas gracias