problema con btnbmp

[surGom]

Me surgio el siguiente problema los btnbmp me aparecen con la leyenda TBNBMP sobre la imagen, ó si el bmp aparte de la imagen esta escrito por ejemplo _Agrega dónde el guión esta bajo la b aparece como si fuera escrito el código &Agrega.

el Ej de este último:
REDEFINE BTNBMP oNbut[1] id 102 of oDlg resource "btnagregar","btnagrega1" ACTION Clientes( oLbx, .T.,oMae,oMemos,oDomcli,oClitrans ) NOBORDER

Alguien sabe el porque de esto. Uso el workshop con el fwcrtl.

Gracias

[surGom]

Bueno encontré el problema al editar el recurso me quedaba esto

Code: Select all  Expand view

DIALOG_1 DIALOG 35, 61, 440, 220
STYLE DS_MODALFRAME | 0x4L | WS_POPUP | WS_VISIBLE | WS_CAPTION | WS_SYSMENU | WS_THICKFRAME | WS_MINIMIZEBOX
FONT 8, "MS Sans Serif"
{
 CONTROL "", 101, "TWBrowse", WS_CHILD | WS_VISIBLE | WS_BORDER | WS_VSCROLL | WS_HSCROLL | WS_TABSTOP, 64, 6, 368, 206
 CONTROL "&Modificar", 103, "TBtnBmp", WS_CHILD | WS_VISIBLE | WS_TABSTOP, 6, 33, 41, 26
 CONTROL "TBtnBmp", 104, "TBtnBmp", WS_CHILD | WS_VISIBLE | WS_TABSTOP, 6, 59, 41, 26
 CONTROL "TBtnBmp", 105, "TBtnBmp", WS_CHILD | WS_VISIBLE | WS_TABSTOP, 6, 85, 41, 26
 CONTROL "TBtnBmp", 106, "TBtnBmp", WS_CHILD | WS_VISIBLE | WS_TABSTOP, 6, 111, 41, 26
 CONTROL "TBtnBmp", 109, "TBtnBmp", WS_CHILD | WS_VISIBLE | WS_TABSTOP, 7, 193, 44, 26
 AUTORADIOBUTTON "Numérico", 107, 7, 167, 49, 12
 AUTORADIOBUTTON "Alfabético", 108, 7, 155, 47, 12
 LTEXT "ORDEN", -1, 8, 145, 42, 9
 CONTROL "TSplitter", 110, "TSplitter", WS_CHILD | WS_VISIBLE | WS_BORDER, 7, 141, 46, 3
 CONTROL "TSplitter", 111, "TSplitter", WS_CHILD | WS_VISIBLE | WS_BORDER, 53, 11, 3, 133
 AUTORADIOBUTTON "CUIT", 112, 7, 179, 37, 12
 CONTROL "TBtnBmp", 102, "TBtnBmp", WS_CHILD | WS_VISIBLE | WS_TABSTOP, 6, 6, 41, 26
}

CONTROL "&Modificar", lo cambio por CONTROL"", desaparece el sobrescrito sobre el boton, en este caso Modificar, y en los otros tbtnbmp. Mi pregunta es porque antes en el fwh2.6 me lo muestra correctamente y en el fwh12 de la forma descripta

Gracias

[surGom]

Ah me olvide de comentar que por ejemplo en este caso me los muestra correctamente y es el mismo código

BRW_GENE DIALOG -41, 35, 382, 215
STYLE WS_POPUP | WS_VISIBLE | WS_CAPTION | WS_SYSMENU | WS_THICKFRAME | WS_MINIMIZEBOX
FONT 10, "System"
{
CONTROL "TSplitter", 106, "TSplitter", WS_CHILD | WS_VISIBLE, 3, 38, 373, 1
COMBOBOX 107, 11, 6, 90, 33, CBS_DROPDOWNLIST | WS_TABSTOP
CONTROL "", 108, "TWBrowse", WS_CHILD | WS_VISIBLE | WS_BORDER | WS_VSCROLL | WS_HSCROLL | WS_TABSTOP, 7, 46, 371, 139
CONTROL "TBitMap", 112, "TBitMap", WS_CHILD | WS_VISIBLE | WS_BORDER, 11, 198, 6, 6
LTEXT "", 300, 22, 197, 47, 8
CONTROL "TBitMap", 113, "TBitMap", WS_CHILD | WS_VISIBLE | WS_BORDER, 81, 198, 6, 6
LTEXT "", 301, 92, 197, 47, 8
CONTROL "TBitMap", 114, "TBitMap", WS_CHILD | WS_VISIBLE | WS_BORDER, 154, 198, 6, 6
LTEXT "", 302, 165, 197, 47, 8
CONTROL "TBitMap", 115, "TBitMap", WS_CHILD | WS_VISIBLE | WS_BORDER, 225, 198, 6, 6
LTEXT "", 303, 236, 197, 47, 8
CONTROL "TBtnBmp", 101, "TBtnBmp", WS_CHILD | WS_VISIBLE | WS_TABSTOP, 108, 5, 26, 16
CONTROL "TBtnBmp", 102, "TBtnBmp", WS_CHILD | WS_VISIBLE | WS_TABSTOP, 138, 5, 26, 16
CONTROL "TBtnBmp", 103, "TBtnBmp", WS_CHILD | WS_VISIBLE | WS_TABSTOP, 167, 5, 26, 16
CONTROL "TBtnBmp", 104, "TBtnBmp", WS_CHILD | WS_VISIBLE | WS_TABSTOP, 196, 5, 26, 16
CONTROL "TBtnBmp", 105, "TBtnBmp", WS_CHILD | WS_VISIBLE | WS_TABSTOP, 225, 5, 26, 16
CONTROL "TBtnBmp", 109, "TBtnBmp", WS_CHILD | WS_VISIBLE | WS_TABSTOP, 254, 5, 26, 16
CONTROL "TBtnBmp", 110, "TBtnBmp", WS_CHILD | WS_VISIBLE | WS_TABSTOP, 283, 5, 26, 16
CONTROL "TBtnBmp", 111, "TBtnBmp", WS_CHILD | WS_VISIBLE | WS_TABSTOP, 312, 5, 26, 16
CONTROL "TBtnBmp", 116, "TBtnBmp", WS_CHILD | WS_VISIBLE | WS_DISABLED | WS_TABSTOP, 341, 5, 28, 16
CONTROL "TBitMap", 117, "TBitMap", WS_CHILD | WS_VISIBLE | WS_BORDER, 292, 198, 6, 6
LTEXT "", 304, 303, 197, 47, 8
}

Es lo que me desconcierta que en este caso y el los que los botones estan en forma horizontal no los sobrescribe???

Eso es normal???

Luis

[Antonio Linares]

Luis,

Para que se comporte como lo hacía antes, comenta esta línea:

Code: Select all  Expand view

METHOD Initiate( hDlg ) CLASS TBtnBmp
...
   // DEFAULT ::cCaption := GetWindowText( ::hWnd )

return uValue
 

Si pones texto para el control en el recurso, te lo mostrará:
CONTROL "TBtnBmp", 104, "TBtnBmp", ...

tendrías que hacer:
CONTROL "", 104, "TBtnBmp", ...
para que no muestre texto

[surGom]

Gracias Antonio lo que pude ver es que sucede cuando declaro los tnbbmp inmediatemanete después de un twbrowse


Luis

[surGom]

En cuanto al texto yo no pongo texto se ve que el worksho con los tbnbmp los pone solo como "tbnbmp", ya que en workshop tengo el fwctrl.

Gracias