topic-33887

Posts: 418

Joined: Wed Nov 26, 2008 06:33 PM

Poner texto a la Izq. con tsbutton

Posted: Thu Apr 06, 2017 07:02 PM

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.

Noé Aburto Sánchez
Tec. Prog. de Sistemas. -Morelia, Mich. México.
fwh 20.06, Harbour 3.2.0, bcc 7.4
TsBrowse 9.0, TsButton 7.0, xEdit 6.1
naburtos@gmail.com, noeaburto67@hotmail.com

karinha

Posts: 8523

Joined: Tue Dec 20, 2005 07:36 PM

Re: Poner texto a la Izq. con tsbutton

Posted: Thu Apr 06, 2017 07:28 PM

Code (fw): Select all Collapse

    @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

João Santos - São Paulo - Brasil - Phone: +55(11)95150-7341

armando.lagunas

Posts: 346

Joined: Mon Oct 05, 2009 03:35 PM

Re: Poner texto a la Izq. con tsbutton

Posted: Thu Apr 06, 2017 10:29 PM

BMP a la Izquierda

Code (fw): Select all Collapse

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 (fw): Select all Collapse

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 }

SkyPe: armando.lagunas@hotmail.com

Mail: armando.lagunas@gmail.com

FiveTech Support Forums

Poner texto a la Izq. con tsbutton

Re: Poner texto a la Izq. con tsbutton

Re: Poner texto a la Izq. con tsbutton

Continue the discussion