LABEL superior (cuestión de estetica)

HMG en Español

Moderator: Rathinagiri

Post Reply
User avatar
SALINETAS24
Posts: 298
Joined: Tue Feb 27, 2018 3:06 am
DBs Used: DBF
Has thanked: 10 times
Been thanked: 16 times

LABEL superior (cuestión de estetica)

Post by SALINETAS24 » Wed Apr 03, 2019 6:13 am

Hola a todos.

Necesito una ayuda estética. Como podeis ver en la pantalla que os adjunto el texto que muestra LABEL queda un poco por encima del testo que muestra el TEXTBOX.
Mientras que el TEXTBOX lo muestra centrado, el LABEL lo hace en la parte superior, y eso se nota más cuando se utiliza la opción BACKCOLOR.
Tengo claro que si uso la opción TRANSPARENT ya lo pongo donde quiero y problema resuelto, pero la intención es hacerlo con la opción BACKCOLOR.

¿Hay alguna forma de centrarlo arriba y abajo...?
PANT_LABEL.JPG
PANT_LABEL.JPG (5.64 KiB) Viewed 217 times

Code: Select all

	@ 350,090 TEXTBOX 	Get05 VALUE aField[5] FONT gFont SIZE gSize WIDTH 40 NUMERIC INPUTMASK "999"
	@ 350,140 LABEL 	LB05a VALUE " "	 AUTOSIZE FONT sFont SIZE sSize BACKCOLOR Color_s FONTCOLOR BLUE 
Muchas gracias a todos ..., y venga esa cervecita fresquita!!

Leopoldo Blancas
Posts: 387
Joined: Wed Nov 21, 2012 7:14 pm
Location: México
Has thanked: 3 times
Been thanked: 9 times

Post by Leopoldo Blancas » Wed Apr 03, 2019 5:45 pm

Hola Salinetas24,

Al parecer no hay solución "sencilla" a tu sugerencia, solo desde la creación del objeto es que a lo mejor pueden hacer algo, yo también he batallado con lo que mencionas.

Esperemos que alguien de luz a este inconveniente.

Saludos.

User avatar
andyglezl
Posts: 1113
Joined: Fri Oct 26, 2012 7:58 pm
Location: Guadalajara Jalisco, MX
Has thanked: 32 times
Been thanked: 65 times
Contact:

Post by andyglezl » Wed Apr 03, 2019 7:01 pm

Si quitas la propiedad AUTOSIZE
y utilizas WIDTH y HEIGHT no te funciona ?

o de otra forma utilizando:

TEXTBOX <ControlName> READONLY DISABLEDBACKCOLOR <aDisabledBackColor> DISABLEDFONTCOLOR <aDisabledFontColor>
Andrés González López
Desde Guadalajara, Jalisco. México.

User avatar
SALINETAS24
Posts: 298
Joined: Tue Feb 27, 2018 3:06 am
DBs Used: DBF
Has thanked: 10 times
Been thanked: 16 times

Post by SALINETAS24 » Wed Apr 03, 2019 7:34 pm

Hola, gracias a ambos dos por contestar.

Efectivamente Andrés, con el WIDTH y HEIGHT se ajusta y queda mejor.
Lo del TEXTBOX es también una magnifica solución, una lastima que se muestre el recuadro que lo bordea..., para mi gusto. :roll: pero lo tendré en cuenta.

Vamos con esa caña!!

Leopoldo Blancas
Posts: 387
Joined: Wed Nov 21, 2012 7:14 pm
Location: México
Has thanked: 3 times
Been thanked: 9 times

Post by Leopoldo Blancas » Wed Apr 03, 2019 8:35 pm

Andyglezl y Salinetas24

La solución es latosa, ya que cuando tienes muchos TextBox y Labels y diferentes tamaños de fuentes, tienes que jugar con lo alto de los controles, lo ideal seria que desde la creación de los controles se alinearan a la perfección.

Y Salinetas24: Efectivamente seria bueno que se les pudiera quitar a gusto de cada quien el cuadro del TextBox e incluso poderle poner color y grosor diferente... como una propiedad más del control. Esperemos que los que llevan el TIMON DEL BARCO lo consideren.

Saludos.

User avatar
andyglezl
Posts: 1113
Joined: Fri Oct 26, 2012 7:58 pm
Location: Guadalajara Jalisco, MX
Has thanked: 32 times
Been thanked: 65 times
Contact:

Post by andyglezl » Thu Apr 04, 2019 2:41 am

Leopoldo Blancas wrote:
Wed Apr 03, 2019 8:35 pm
Andyglezl y Salinetas24

La solución es latosa, ya que cuando tienes muchos TextBox y Labels y diferentes tamaños de fuentes, tienes que jugar con lo alto de los controles, lo ideal seria que desde la creación de los controles se alinearan a la perfección.
Claro que desde la creación del control los puedes alinear,
ponlos en un FOR - NEXT.
Por ejemplo...

Code: Select all

	nReng := 10
	FOR i1 = 1 TO nCpos
		cLBOpc1 := "LBL1_"+STRZERO( i1, 2 )
		cLBOpc2 := "LBL2_"+STRZERO( i1, 2 )
		cTBOpc := "TXB_"+STRZERO( i1, 2 )
		@ nReng+1 , 000 LABEL   &cLBOpc1. OF Form_OnLost VALUE PADL( aHeaders[ i1 ]+" ("+aTips[ i1 ]+") :", 16, " ") WIDTH 110  HEIGHT 18  ;
					 FONT "Consolas" FONTCOLOR BLACK RIGHTALIGN TRANSPARENT
		@ nReng+1 , 403 LABEL   &cLBOpc2. OF Form_OnLost VALUE aTips[ i1 ] WIDTH 10  HEIGHT 12 FONTCOLOR GRAY SIZE 6 TRANSPARENT
					 cCpoPso := "Ctes->"+ aHeaders[ i1 ]
		@ nReng , 112   TEXTBOX &cTBOpc. OF WinCpos WIDTH 290 HEIGHT 20 FIELD &cCpoPso.	FONT "Consolas"  ;
					ON LOSTFOCUS CkCtrolValue( ThisWindow.Name, This.Name ) 
		nReng += 25
	NEXT
LABELS.png
LABELS.png (57.46 KiB) Viewed 130 times
Andrés González López
Desde Guadalajara, Jalisco. México.

Leopoldo Blancas
Posts: 387
Joined: Wed Nov 21, 2012 7:14 pm
Location: México
Has thanked: 3 times
Been thanked: 9 times

Post by Leopoldo Blancas » Thu Apr 04, 2019 3:17 am

Andyglesl:

Cuando es así es "fácil" pero tienes que jugar con lo alto: Label 12 y 18... TEXTBOX 20, Label nReng+1 TEXTBOX nReng.... solo encuentras la posición correcta en cada caso y esa aplicas, pero en el caso de cambio del tamaño de la letra, otra vez tienes que calcular, claro que el ide te ayuda... pero bueno, de que se puede se puede. :lol:


Saludos.

Post Reply