FiveTech Software tech support forums

... OF oDlg ; ACTION ( oBar1:bClrGrad = { | | { { 0.50,16054371, 8388608 }, ; { 0.50,16054371, 8388608 } } }, oBar1:Paint() ) ; BITMAP "New" PROMPT "" TEXTRIGHT oBtn1:cToolTip = { "Changing Dialog" + CRLF + ; "Bar-Color","Bar-Color", 1, CLR_BLACK, 14089979 } ERROR : Application =========== Path and ...

La classe buttonbmp fornita con FWH (non la tbtnbmp) ti permette di allineare il testo a destra o a sinistra dell'immagine se ricordo bene (io la uso ma allineo sempre il testo a dx utilizzando la clausola TEXTRIGHT)

Por ejemplo:

REDEFINE BUTTONBMP oBtn[1] ID 104 OF oDlg;
ACTION (AltaRegistro(),oBrw:Refresh(),oBrw:SetFocus() );
BITMAP "NUEVO" PROMPT " Nuevo" TEXTRIGHT

... oDlg5 ; ACTION ( oBrw7:nArrayAt := s_BRUSH2, oBrw7:nRowSel := s_BRUSH2, oBrw7:refresh() ) ; BITMAP "Test_5" PROMPT SPACE(5) + "Set De&fault" TEXTRIGHT oBtn8:cToolTip = { "Set the Row-Position" + CRLF + "to the old values", ; "Set Default Positions", 1, CLR_BLACK, 14089979 } Regards Uwe :lol: ...

... OF oWnd oBar:l2007 = .T. @ 200, 50 BUTTONBMP oBtn OF oWnd ; ACTION (oBtn:End() ) ; BITMAP ".\bitmaps\16x16\EXIT2.BMP" ; PROMPT " Abbruch" PIXEL TEXTRIGHT SIZE 200,20 ; MESSAGE "Abbruch" oBtn:lDrag = .t. ACTIVATE WINDOW oWnd MAXIMIZED RETURN NIL

... REDEFINE BUTTONBMP oBtn[1] ID 104 OF oDlg ; ACTION F_ALTA( oRs, .T., oLbx) ; MESSAGE "Alta de una nueva receta." ; PROMPT SPACE(6)+ "&Alta" TEXTRIGHT ; BITMAP "Alta3" ** ** Baja receta ** REDEFINE BUTTONBMP oBtn[2] ID 105 OF oDlg ; ACTION( O_SUPRIMIR ( oRs, "NOMBRE" ), ; oLbx:Refresh(), ...

... REDEFINE BUTTONBMP oBtn1 ID 200 OF oDlg ; ACTION ( EditFl( .F., invoice->file ), _Lbx( oLbx2 ) ) ; BITMAP "yourBitmap" PROMPT "Button Text" TEXTRIGHT oBtn1:cTooltip "This is a Test" + CRLF "for ButtonBmp" ------------------------------------------------------------ ( yourBitmap is a Ressourcen-Bitmap ...

... been designed from source like for example: @ 100, 200 BUTTONBMP oBtnBmp OF oDlg ACTION msginfo(1) ; BITMAP ".\bitmaps\garrow.bmp" PROMPT "Test" TEXTRIGHT SIZE 80, 25 PIXEL; MESSAGE "From source code"

... arman si utilizo un BTNBMP Revise los ejemplos de \Samples. En mi PRG: redefine Buttonbmp ob1 id 141 OF oDlg ACTION resumeag() bitmap 'Atencion' TEXTRIGHT PROMPT space(4)+"avisos" redefine Buttonbmp ob2 id 202 OF oDlg ACTION odlg:end()bitmap 'Salir' PROMPT " Salir AHORA" TEXTRIGHT oB1:cTooltip:= ...

... BMP centrado en el button y por consiguiente ambos se pisan. En mi PRG: redefine Buttonbmp ob1 id 141 OF oDlg ACTION resumeag() bitmap 'Atencion' TEXTRIGHT PROMPT space(4)+"avisos" redefine Buttonbmp ob2 id 202 OF oDlg ACTION odlg:end()bitmap 'Salir' PROMPT " Salir AHORA" TEXTRIGHT oB1:cTooltip:= ...

Pudes usar una de la claúsulas: TEXTTOP, TEXTBOTTOM, TEXTLEFT, TEXTRIGHT

Revisa samples\TestBuBm.prg

... el TEXT centrado y montado encima del BITMAP y no logro desplazar el BITMAP mediante ninguna de las clausulas TEXTTOP | TEXTBOTTOM | TEXTLEFT | TEXTRIGHT Siempre me sale centrado tanto el TEXT como el BITMAP y ambos se pisan. Probé en cambiar en el Workshop la clausula LEFT y RIGHT, pero la ...

Tan sencillo como esto: REDEFINE BUTTONBMP oBtnSalir ID 106 OF oDlg ; ACTION oDlg:End(); BITMAP "SALIR" PROMPT " Salir" TEXTRIGHT oBtnSalir:cToolTip:=" Irse pafuera " Un saludo, Manuel Estimados compañeros hasta el momento siempre utilice btnbmp pero no adquiria el aspecto Wxp cuando ...

Si, Antonio uso la cláusula TEXTRIGHT y si bien me pone el bitmap a la izquierda del botón, el texto sigue saliendo centrado y muchas veces queda bajo la imagen (bmp).
Mi FWh es de 03/2006 puede ser que se haya modificado esta clase?

Gracias

Puedes usar una de estas claúsulas:

TEXTTOP | TEXTBOTTOM | TEXTLEFT | TEXTRIGHT

al crearlo bien con @ ó con REDEFINE