Alinear texto a la derecha en un Edit

[lmpadron]

Saludos

Queridos amigos hoy trate de alinear un texto a la derecha y no pude hacerlo, encontré un ejemplo para delphi lo traduje a c++ pero aun asi no me funcionó. Les dejo el código para que lo vean.

SysLocale.MiddleEast == true;
Edit1->BiDiMode = bdRightToLeft;

En esencia lo que necesito es alinear el texto a la derecha. Gracias de antemano por su ayuda.

[Casimiro Notevi]

Mira los enlaces que hay al final de esta página, justo abajo del todo.

[lmpadron]

Empezado por Casimiro Notevi

Mira los enlaces que hay al final de esta página, justo abajo del todo.

Ya lo hice y antes mirar esos enlaces realicé una busqueda en el foro (con el incomodo capcha y todo ) En los enlaces que estan debajo de la página no hay nada de c++ y los ejemplos usan la mayoría de las veces el que puse en mi pregunta. y por supuesto ese no me funciona

[ecfisa]

Hola Impadron.

Esta propuesta de Marcos: Alinear Edit, me funciona perfectamente.

void __fastcall TForm1::Button1Click(TObject *Sender)
{
TSysLocale SL = SysLocale;
  SysLocale.MiddleEast = true;
  Edit1->BiDiMode = bdRightToLeft;
  SysLocale = SL;
}

Saludos.

[lmpadron]

Pues no me funciona, primero escribi el codigo en el create del form y luego al ver que no funcionaba pues lo puse en un button pero tampoco !!!

[ecfisa]

Hola Impadrón.

Que extraño...

Podrías probar de este modo:

void RightJustifyText(TWinControl *Sender)
{
 SetWindowLong(Sender->Handle, GWL_STYLE,
    GetWindowLong(Sender->Handle, GWL_STYLE) | ES_RIGHT);
}

Pero en una oportunidad (en Delphi) vimos que dependiendo de algunas configuraciones de windows no funcionaba.

Saludos.

[lmpadron]

use el codigo que me facilito y no funciono tampoco lo puse debajo de los includes y en un boton lo llame pasando como parametro el edit pero nada !!! no me explico q es lo que pasa uffff

[ecfisa]

Hola Impadron.

A ver... revisa esta prueba que a mi me funciona bién.

Saludos.

[[escafandra]]

Empezado por lmpadron

SysLocale.MiddleEast == true;
Edit1->BiDiMode = bdRightToLeft;

¿Eso lo has usado tal cual?. Si es así, no está bien.

SysLocale.MiddleEast = true;
Edit1->BiDiMode = bdRightToLeft;

Así me funciona en todas las máquinas donde lo he probado.


Saludos