| Ver tema anterior :: Ver tema siguiente |
| Autor |
Mensaje |
Angel
Master
Registrado: 15 Abr 2003Mensajes: 2311Ubicación: Toledo (España)
|
 Publicado: Mie 08 Oct, 2008 10:02 am Asunto: Texto en botones |
 |
|
En un TButton, ¿cómo podría cambiar la alineación del texto de manera que pudiera ponerlo alineado a la izquierda? Es un caso especial y no puedo recurrir a librerías externas como puede ser LMDTools.
_________________
Un saludo
Necesitamos tu ayuda: Envía AI al 27595 (Coste 1,20 euros + IVA) |
|
| Volver arriba |
|
 |
dobermannmx
Master
Registrado: 30 Ago 2006Mensajes: 191Ubicación: Zapopan, Jal. - México
|
| Publicado: Mie 08 Oct, 2008 4:03 pm Asunto: |
|
|
Angel, hay 2 formas simples de hacerlo, la primera y más sencilla es usando un TSpeedButton, poner en la proiedad "layout" en blGlyphLeft, y la propiedad "Margin" que por defecto está en -1, a 1 o un valor positivo mayor que cero, y con esto queda justificado a la izquierda.
La otra es si definitivamente tienes que usar TButton, deberás poner el siguiente código en el evento OnCreate de tu forma donde se encuentra dicho botón:
| Código: | DWORD defstyle = GetWindowLong(Button1 -> Handle, GWL_STYLE);
SetWindowLong(Button1 -> Handle, GWL_STYLE, defstyle | BS_LEFT); |
Y con esto puedes justificarlo a la izquierda o como quieras, el resto de las propiedades de alineación puedes verlas en la ayuda.
Epero te sea de utilidad.
Salu2
_________________
ISC
Dobermannmx |
|
| Volver arriba |
|
|
Angel
Master
Registrado: 15 Abr 2003Mensajes: 2311Ubicación: Toledo (España)
|
|
| Volver arriba |
|
|
Angel
Master
Registrado: 15 Abr 2003Mensajes: 2311Ubicación: Toledo (España)
|
| Publicado: Lun 13 Oct, 2008 7:44 am Asunto: |
|
|
| dobermannmx escribió: | | Código: | DWORD defstyle = GetWindowLong(Button1 -> Handle, GWL_STYLE);
SetWindowLong(Button1 -> Handle, GWL_STYLE, defstyle | BS_LEFT); |
|
¡Perfecto! Muchas gracias; me he quedado con este método porque como tengo puesto el fichero xp.rc, los TSpeedButton no toman el aspecto de Windows XP.
_________________
Un saludo
Necesitamos tu ayuda: Envía AI al 27595 (Coste 1,20 euros + IVA) |
|
| Volver arriba |
|
|
dobermannmx
Master
Registrado: 30 Ago 2006Mensajes: 191Ubicación: Zapopan, Jal. - México
|
| Publicado: Lun 13 Oct, 2008 4:35 pm Asunto: |
|
|
Perfecto Angel, la finalidad era que alguno de los 2 te funcionara.
Salu2
_________________
ISC
Dobermannmx |
|
| Volver arriba |
|
|
|
FAQ
Buscar
Miembros
Grupos de Usuarios
Registrarse
Perfil
Entra para ver tus mensajes privados
Entrar
