FiveTech Software tech support forums

... IIF(nKey=VK_RETURN,SelConta(Lista10),)} REDEFINE BUTTONBMP botao12 ID 121 of oDlgConta BITMAP "CANCELAR" Cancel Action oDlgConta:End() TEXTRIGHT ACTIVATE DIALOG oDlgConta CENTERED ON INIT Zera() Return .t.

... LlenaVentasConCredito(oDbf:Nrofac),; ( ComoPaga(),ProcesaCredito(nOp,lCopia))),; oBrwFac:refresh(),EVAL(oBrwFac:bChange),oBrwFac:SetFocus()) TEXTRIGHT .... ON CHANGE DEL BROWSE REDEFINE XBROWSE oBrwFac ID 4003 OF oCred ; ON CHANGE if( wffactu->tpocomp = 'CRE',; ( oDbf:Load(),; oBtn[1]:Disable(),oBtn[2]:Enable(),oBtn[3]:Enable(),; ...

... remains as before (wrong) @ 260,80 BUTTONBMP oSelBtn; RESOURCE "INVOICE_SELBTN" ; PROMPT " test new" SIZE 85,15 PIXEL OF oDlg; TEXTRIGHT ; ACTION ( msginfo(lSearch) , lSearch := !lsearch, msginfo(lSearch) ,; Search_New( oBrowse,nInvoice,lSearch,@lShowbutton,@oSelNumber, aData),; ...

... aImagesGiorno[ 1 ] ; PROMPT { || If( lGiorno, "giornaliero", "periodico" ) } ; SIZE 80,20 PIXEL OF oFolder:aDialogs[1]; TEXTRIGHT FONT oFontBold GDIPLUS; ACTION ( lGiorno := !lGiorno, ; oBtnGiorn:hBitmap:= If( lGiorno, aImagesGiorno[ 1 ], aImagesGiorno[ 2 ] ) ) I saw ...

... PICTURE "####" ID 108 OF oDlg1 ** Boton para Salvar la Resolucion REDEFINE BUTTONBMP oBoton1 ID 114 OF oDlg1 ; BITMAP "SALVAR" TEXTRIGHT PROMPT "salvar" TOOLTIP "salvar los Parametros" ; ACTION ( lSalvar := .T. , oDlg1:End() ) ** Boton para cancelar REDEFINE ...

... REDEFINE BUTTONBMP oBtns[1] ID 301 OF oDlg1 PROMPT "&Grabar" ; ACTION ( lAceptar := .T., oDlg1:End() ) BITMAP "Grabar" TEXTRIGHT REDEFINE BUTTONBMP oBtns[2] ID 302 OF oDlg1 PROMPT "&Salir"; ACTION ( oDlg1:End() ) BITMAP "Cancelar" TEXTRIGHT cancel ...

... cTexto ; ID 102 ; OF oDlg ; FONT oPublic:aFont[ 2 ] REDEFINE BUTTONBMP aBoton[ 1 ] ; PROMPT "Aceptar " ; RESOURCE "BTN_OK" ; TEXTRIGHT ; ID 1 ; OF oDlg ; ACTION ( oDlg:End() ) aBoton[ 1 ]:lDefault := .t. ACTIVATE DIALOG oDlg CENTERED ON INIT SndPlaySound( ".\SONIDOS\ERROR.WAV" ...

... problem is @ 99,120 BUTTONBMP oBtnSave; PROMPT "&Salva" ; SIZE 60,18 PIXEL ; OF oDlgMod ; RESOURCE ".\bitmaps\SAVE.png" ; TEXTRIGHT FONT oBold ; ACTION ( oDlgMod:end( IDOK ) ) I must addd many space on Prompt to move the text but On Windows Seven it run ok and it is good ...

... ] <cText> ; OF <oPrn> PAGINED ; [ SIZE <nWidth>, <nHeight> ] ; [ <raised: RAISED> ] ; [ <cPostext: TEXTLEFT, TEXTRIGHT, TEXTCENTER> ] ; [ AUTORESIZE <nAutoResize> ] ; [ TOOLTIP <cToolTip> ] ; [ <lutf8: UTF8 > ] ; [ PIXEL ] ; => ; <nRow>:= ...

... oBtns[1] ID 201 OF oDlg1 PROMPT "&Grabar" When !Empty(cNom_Mar); ACTION ( lAceptar := .T., oDlg1:End() ) BITMAP "Grabar" TEXTRIGHT REDEFINE BUTTONBMP oBtns[2] ID 202 OF oDlg1 PROMPT "&Salir"; ACTION ( oDlg1:End() ) BITMAP "Cancelar" TEXTRIGHT cancel ...

... REDEFINE BUTTONBMP oBtns[1] ID 201 OF oDlg1 PROMPT "&Grabar" ; ACTION ( lAceptar := .T., oDlg1:End() ) BITMAP "Grabar" TEXTRIGHT REDEFINE BUTTONBMP oBtns[2] ID 202 OF oDlg1 PROMPT "&Salir"; ACTION ( oDlg1:End() ) BITMAP "Cancelar" TEXTRIGHT cancel ...

I can not see your images. But I understood the issue. Que el TEXTRIGHT funcione respetando los prompt de los botones es importante porque evita tener que escribir todo de nuevo. en la FWH 10.1 funciona bien. Fixed and available in next release of FWH. ...

Hola Detalle de los errores con Buttonbmp 1) REDEFINE BUTTONBMP BITMAP 'b_accept' PROMPT 'Grabar ' TEXTRIGHT ID 4031 OF oDlg ACTION sound() Anda bien si defino el prompt REDEFINE BUTTONBMP BITMAP 'b_xcancel' ID 4032 OF oDlg ACTION oDlg:end() TEXTRIGHT anda mal si no defino ...

Si te parece podemos ir viendo tema a tema y seguro que entre todos encontramos una solucion
Aqui tienes un ejemplo de TEXTRIGHT

... y me empezaron a ocurrir cosas raras que no logro entender. El xBrowse me cuelga el sistema ni bien lo llamo, los buttonsbmp no toman la clausula TEXTRIGHT y ponen los bmp sobre el prompt del boton, la MsgBar me dio error de entrada y la tuve que suprimir hasta ver que pasa, los tooltip tipo balloon ...