Alineación derecha en un TEdit

[ecfisa]

Hola.

Otra opción:

Código PHP:

...
TSysLocale OldSysLocale = SysLocale;

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

void __fastcall TForm1::FormDestroy(TObject *Sender)
{
  SysLocale = OldSysLocale;
} 


Saludos

[Angel.Matilla]

Empezado por _Leo

Prueba con lo siguiente en el constructor del Form por ejemplo:

Código PHP:

HWND h = Edit1->Handle;
SetWindowLong(h, GWL_STYLE, GetWindowLong(h, GWL_STYLE) | ES_RIGHT); 


Funciona a la perfección. Gracias Leo.

Empezado por ecfisa

Código PHP:

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


También funcina, aunque no debería:

Alignment does not change for controls that are known to contain number, date, time, or currency values. For example, with data aware controls, the alignment does not change for the following field types: ftSmallint, ftInteger, ftWord, ftFloat, ftCurrency, ftBCD, ftDate, ftTime, ftDateTime, ftAutoInc.

Sin embargo te obliga a andar modificando las variables del sistema. Muchas gracias a los dos por las soluciones.

[[ElDioni]]

De nada hombre, para esto estamos.

Saludos.

[Angel.Matilla]

Me está ocurriendo algo curioso. Con este código:

Código PHP:

__fastcall TfRecMod::TfRecMod(TComponent* Owner)
     : TForm(Owner)
{
     HWND h;

     h = this->Cuota->Handle;
     SetWindowLong(h, GWL_STYLE, GetWindowLong(h, GWL_STYLE) | ES_RIGHT);

     h = this->Importe->Handle;
     SetWindowLong(h, GWL_STYLE, GetWindowLong(h, GWL_STYLE) | ES_RIGHT);
[... etc.]
} 


Me está saliendo esto


Sin embargo en otros formularios, con el mismo código, lo hace bien. ¿Cuál puede ser la razón?

[ecfisa]

Empezado por Angel.Matilla

Me está ocurriendo algo curioso. Con este código:

Código PHP:

__fastcall TfRecMod::TfRecMod(TComponent* Owner)
     : TForm(Owner)
{
     HWND h;

     h = this->Cuota->Handle;
     SetWindowLong(h, GWL_STYLE, GetWindowLong(h, GWL_STYLE) | ES_RIGHT);

     h = this->Importe->Handle;
     SetWindowLong(h, GWL_STYLE, GetWindowLong(h, GWL_STYLE) | ES_RIGHT);
[... etc.]
} 


Me está saliendo esto


Sin embargo en otros formularios, con el mismo código, lo hace bien. ¿Cuál puede ser la razón?

Está comprobado que de ese modo existen problemas de acuerdo con algunas configuraciones del sistema, tal como lo comenté en este mensaje hace 6 años: Alinear texto a la derecha en un Edit .

Saludos

[Angel.Matilla]

Empezado por ecfisa

Está comprobado que de ese modo existen problemas de acuerdo con algunas configuraciones del sistema, tal como lo comenté en este mensaje hace 6 años: Alinear texto a la derecha en un Edit

Probaré la alternativa que citas. Sin embargo lo que me llama la atención es que en unos formularios funcione y en otros no; no es lógico pensar que en mitad de la ejecución de una aplicación se modifique la configuración del sistema. Gracias.

[Angel.Matilla]

Da lo mismo. He puesto este código:

Código PHP:

__fastcall TfRecMod::TfRecMod(TComponent* Owner)
     : TForm(Owner)
{
     SysLocale.MiddleEast = true;
     Cuota->BiDiMode = bdRightToLeft;
     Importe->BiDiMode = bdRightToLeft;
     SysLocale = SL;
[...]
} 


Y me saca así el formulario

mientras que en el formulario prinicpal de la aplicación lo hace bien

¿Puede tener algo que ver el hecho de que esos campos sean TLabeledEdit? Me extrañaría, pero todo puede ser. Y lo cierto es que un problema similar lo tengo con un código que me pasó escafandra para alinear textos en los botones: unas veces sí funciona y otras no. Cierto que se trata más de un tema estético y sé que con las LMDTools se puede hacer, pero quiero evitar tener que añadir librerías externas que no sea imprescindibles. Seguiremos investigando.