Page 1 of 1

Teclas aceleradoras en TBUTTON

Posted: Wed Aug 01, 2007 9:26 am
by 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

Posted: Wed Aug 01, 2007 12:32 pm
by 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.

Posted: Thu Aug 02, 2007 5:34 am
by 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