Poner texto a la Izq. con tsbutton

[noe aburto]

Saludos.

No he podido lograr con la clase tsbutton 7.0 que el texto de un sbutton me lo ponga alineado a la izq. del botton.

@ nR,nC SBUTTON oMod[ 3] PROMPT aModulo[ 3] OF oDlg;
SIZE 80,10 TEXT 2 WHEN {||lModulo[ 3]} XP FONT oFontM ACTION AutoModulo(oDlg,oEmp, 3)

aunque TEXT indique el numero de alineacion, como podre lograr que el bmp y el titulo me lo justifique a la izq.

+---------------------------------------------------------+
+ bmp titulo +
+---------------------------------------------------------+


Gracis.

[karinha]

Code: Select all  Expand view

    @120, 320 SBUTTON oBtn[ 6 ] OF aChild[ 1 ] FONT oFont[ 1 ] ;
              SIZE 100, 50 PIXELS ;
              PROMPT "Buttons" + CRLF + "From" + CRLF + "Code" ;
              XP ;
              RESOURCE "ANIMATED DirecM" ;  // new animation feature
              WHEN lEnable ;
              ACTION fCodigo() ;
              TOOLTIP "TEXT ON_LEFT" ;
              MESSAGE "Super Buttons: Multiline text, Dinamic Colors" ;
              COLORS bTColor, bBColor ;
              TEXT ON_LEFT
 

[armando.lagunas]

BMP a la Izquierda

Code: Select all  Expand view

REDEFINE SBUTTON CAPTION "°Brix" ID 48 FILENAME ".\System\Graphics.bmp" OF oDlg TEXT 4 ACTION LlamaGrafico() NOBOX RECT COLOR RGB(165,47,44), { CLR_WHITE, CLR_HGRAY }
 

BMP a la derecha

Code: Select all  Expand view

REDEFINE  SBUTTON   ID 44 FILENAME ".\SYSTEM\UNITEC.BMP"   PROMPT "Envía datos a Unitec" TEXT POSITION 2 ACTION TraspasoUnitec( oBrw )  NOBOX RECT COLOR CLR_RED, { CLR_WHITE, CLR_HGRAY }