Usando SetWindowLong / GetWindowLong

[ecfisa]

Hola amigos.

Acabo de pasar el código fuente a un colega que tiene Delphi XE y a él también le funciona correctamente.
Cambié la configuración regional a España y de idioma a español tomando en cuenta la observación de Marcos y nada... sigue funcionando bién.
Aunque estoy convencido que Marcos le está arrimando bastante al orígen del problema ya que el ejecutable en mi máquina funciona y en la de ustedes no.

Ante la imposibilidad reproducir que no funcione, ando dando palos a ciegas...

Leí por ahí que usar InvalidateRect podría ser necesario en algunos casos

Código Delphi [-]
procedure CenterJustifyText(Sender: TWinControl);
begin
  SetWindowlong(Sender.Handle, GWL_STYLE,
    GetWindowlong(Sender.Handle, GWL_STYLE) + ES_CENTER);
  InvalidateRect(Sender.Handle, nil, True);
end;

Pero realmente no sé si solucionará algo por que en mi caso funciona del mismo modo.


Ojalá algún compañero pueda justificar esta diferencia de comportamiento. La verdad es que no encuentro el por qué.

Un desconcertado saludo.

[Casimiro Noteví]

Pasa el código fuente del proyecto para compilarlo, a ver si es algo del compilador.

[ecfisa]

Hola Casimiro.

Está en el mensaje #4, si tenés algún inconveniente para verlo lo subo nuevamente.

Un saludo.

[Casimiro Noteví]

Perdón, no me había dado cuenta, sólo había visto el ejecutable.

Lo he compilado y ejecutado, el resultado es el mismo, sólo funciona onlynumber.

He desempolvado un viejo equipo que tiene winxp y delphi 5, lo he ejecutado y sólo funciona onlynumber.

[[nlsgarcia]]

Hola ecfisa:

Usando Delphi 7 Enterprise en un PC con Windows XP SP3 en ingles, solo funciona ES_NUMBER.

Usando Delphi 7 Enterprise en un PC con Windows 7 Professional en ingles, todo funciona.

Usando Delphi 7 Enterprise en un PC con Windows Vista Home Premium SP2 en Español, todo funciona.

Por ser un API el funcionamiento depende del OS : http://www.delphi3000.com/articles/a...=SetWindowLong

¿Que OS tienen los PC donde funciono?

Como nota adicional pruebas con los Edit styles : ES_PASSWORD, ES_READONLY y ES_UPPERCASE no funcionaron en ninguno de los anteriores OS.

Ver estos links:

http://www.delphigroups.info/3/3/144938.html
http://www.autohotkey.com/docs/misc/Styles.htm#Edit

Saludos,

Nelson.

[Enan0]

acabo de testear el archivo compilado, Sobre un windows XP Profesional (Version 2002) SP3 y funciona correctamente.

saludos.

PD:
Configuracion Regional: Español Argentina.
Numeros: Separador de miles "." de Decimales ","

saludos.