FiveTech Support Forums

FiveWin / Harbour / xBase community
Board indexActive topicsAll discussionsLogin (GitHub)
Board index FiveWin para Harbour/xHarbour problema con btnbmp
surGom
Posts: 652
Joined: Wed Oct 19, 2005 12:03 PM
problema con btnbmp
Posted: Sun Jun 21, 2009 01:21 AM

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
Posts: 652
Joined: Wed Oct 19, 2005 12:03 PM
Re: problema con btnbmp
Posted: Sun Jun 21, 2009 02:19 PM
Bueno encontré el problema al editar el recurso me quedaba esto

Code (fw): Select all Collapse
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
Posts: 652
Joined: Wed Oct 19, 2005 12:03 PM
Re: problema con btnbmp
Posted: Sun Jun 21, 2009 02:25 PM
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
Posts: 44162
Joined: Thu Oct 06, 2005 05:47 PM
Re: problema con btnbmp
Posted: Sun Jun 21, 2009 03:06 PM
Luis,

Para que se comporte como lo hacía antes, comenta esta línea:
Code (fw): Select all Collapse
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
regards, saludos

Antonio Linares
www.fivetechsoft.com
surGom
Posts: 652
Joined: Wed Oct 19, 2005 12:03 PM
Re: problema con btnbmp
Posted: Sun Jun 21, 2009 03:40 PM

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

Luis

surGom
Posts: 652
Joined: Wed Oct 19, 2005 12:03 PM
Re: problema con btnbmp
Posted: Sun Jun 21, 2009 03:44 PM

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

Continue the discussion

Static archive · New replies & topics via GitHub Discussions