FiveTech Software tech support forums

... muy bien además que toma los themes de XP. El problema es que el texto siempre sale centrado, y lo que se corre de un lado a otro con la clausula TEXTRIGHT (por ej) es el bitmap. Hay alguna solución como para que el texto lo ponga a un costado del bitmap? Gracias

Lorenzo: Con buttonbmp puedes usar bitmaps desde recursos asi REDEFINE ButtonBmp oBtn ID 110 OF oDlg PROMPT "&Cancelar" ; BITMAP "CANCELROJO" TEXTRIGHT ; ACTION (oDlg:End()) oBtn:cTooltip:= "Algo" ; oBtn:oFont:= oFont ; oBtn:lCancel:=.T. Si pones el nombre del bmp sin extension lo busca en ...

... dFecha1, .f., .t. ), ; oLbx:REFRESH(), oDlg:UPDATED() ) ; MESSAGE " Ver calendario." ; PROMPT SPACE(3) + "&Calenda" ; BITMAP "calendar1" TEXTRIGHT @ 165,258 BUTTONBMP oBtn[6] OF oDlg ; SIZE 42,16 PIXEL ; ACTION Fayuda( cChmFich, "reservas.htm#cuadro") ; MESSAGE " Ayuda" ; PROMPT SPACE(5) ...

Vilian,

From FWH April 2006:

* New: Class TButtonBmp clause: TEXTTOP, TEXTBOTTOM, TEXTLEFT, TEXTRIGHT. It modifies the bitmap drawing location, so you can use text in the button too.

Intenta esto:

REDEFINE BUTTONBMP aGet[ 15 ] ID 101 OF oDlg;
ACTION ( lAceptar := .T., oDlg:End() ) ;
PROMPT "Grabar" TEXTRIGHT ;
BITMAP "New"

Bueno amigos el poblema es el siguiente esta classe me sale error: REDEFINE BUTTONBMP aGet[ 15 ] ID 101 OF oDlg; BITMAP "New" PROMPT "Grabar" TEXTRIGHT ACTION ( lAceptar := .T., oDlg:End() ) y el error es el siguiente Warning W0001 Ambiguous reference: 'TEXTRIGHT' por favor una ayudita Saludos

... ! Gracias a Maurilio. * Mejora: Varias mejoras en la clase TMultiGet. * Nuevo: En la clase TButtonBmp, claúsulas: TEXTTOP, TEXTBOTTOM, TEXTLEFT, TEXTRIGHT. Se ha modificado la posición de dibujado del "bitmap", así que también puede usar texto en el botón. Por favor revise, samples\TestBuBm.prg. ...

... Thanks to Maurilio. * Enhancement: Class TMultiGet several improvements. * New: Class TButtonBmp clause: TEXTTOP, TEXTBOTTOM, TEXTLEFT, TEXTRIGHT. It modifies the bitmap drawing location, so you can use text in the button too. Please review samples\TestBuBm.prg * New: FWPPC, a Microsoft ...

Marco,

We email you Class TButtonBmp modified to allow TEXT... clause and FiveWin.ch. Your sample works ok using TEXTRIGHT clause.

Marco,

The TEXTRIGHT clause is not directly supported by FWH Class TButtonBmp. Are you using Rossine's modified Class ?

... from resource the bitmap appairs centered on the button over the text. There wasn't any problems with the February release when using the CANCEL TEXTRIGHT clause all runned fine. Any ideas ? Thanks in advance Best Regards. Marco

... del bottone. Non è pensabile disegnare una bitmap apposta per le dimensioni del bottone. Nelle FWH di febbraio funzionava il comando CANCEL TEXTRIGHT che spostava il testo a dx e la bitmap a sx ma ora questo comando non è più operativo. Marco

... cPosText == "TEXTTOP", BS_TOP, 0 ),; If( cPosText == "TEXTBOTTOM", BS_BOTTOM, 0 ),; If( cPosText == "TEXTLEFT", BS_LEFT, 0 ),; If( cPosText == "TEXTRIGHT", BS_RIGHT, 0 ),; if( at( CRLF, ::cCaption ) > 0, BS_MULTILINE, 0 ),; If( lDesign, WS_CLIPSIBLINGS, 0 ) ) y aqui tambien: ::nStyle = nOR( ...

... cPosText == "TEXTTOP", BS_TOP, 0 ),; If( cPosText == "TEXTBOTTOM", BS_BOTTOM, 0 ),; If( cPosText == "TEXTLEFT", BS_LEFT, 0 ),; If( cPosText == "TEXTRIGHT", BS_RIGHT, 0 ),; if( at( CRLF, ::cCaption ) > 0, BS_MULTILINE, 0 ) , ; If( lDesign, WS_CLIPSIBLINGS, 0 ) ) línea 161 ::nStyle = nOR( WS_CHILD, ...

Esa cláusula TEXTRIGHT no está soportada for la clase original... asi que supongo has implementado los cambios hechos por Rosine. Yo he visto esos cambios y tambien hay una TEXTLEFT para poner el bmp a la izquierda del PROMPT (Texto ).