dichoso separador decimal

[[Lepe]]

Posteado originalmente por andres1569
Pues, con tu permiso, Lepe, voy a reabrir el hilo.

Todo un honor

Posteado originalmente por andres1569
[...] con la llegada del Euro se ha popularizado el uso de los decimales, y muchos usuarios, sobre todo contables, demandan poder usar el punto del teclado numérico como lo que es [...]

Exacto, diste en el clavo de nuevo.

Pues, con su permiso, Andres, voy a usar el nuevo método

[marcoszorrilla]

Muy interesante la solución de Andrés, yo hasta el momento lo resolvía interceptando la pulsación
de la tecla en el control correspondiente lo cual me llevaba a propagar el código ad infinitum, tantos
controles afectados tantos eventos a programar o en su caso llamadas a una función centralizada.


Como el applicationsEvents se dispara a cada momento, la variable semáforo propuesta por Andrés,
entiendo que habría que abrirla solamente en los formularios en los cuales se fuese a dar ese
tratamiento de cambio de punto por coma del teclado numérico.

Y si estais de acuerdo en lo dicho entonces yo propondría el siguiente leve cambio en el código:

procedure TForm1.ApplicationEvents1Message(var Msg: tagMSG;
  var Handled: Boolean);
begin
  if MapearPuntoAComa then//Sino está activado salir cuanto antes.
  begin
    if (Msg.message = WM_KEYDOWN) AND
     (Msg.wParam = VK_DECIMAL) AND (DecimalSeparator = ',') then
      begin
      ShowMessage('Aquí estamos Andrés.');
        Msg.message := WM_CHAR;   // cambiamos el tipo de mensaje
        Msg.wParam := 44;  // si omitimos la línea anterior,
 aquí sería Msg.wParam := 188;
        Handled := FALSE;
    end;
  end;
end;

A ver que os parece, con el permiso de Andrés.

Un Saludo.

[andres1569]

Aclarar que el código que modificas, Marcos, hace lo mismo que el que puse si está desactivada la directiva de comprobación booleana (ahora no recuerdo la letra de la directiva, su nombre es Complete Boolean Evaluation, es la que se encarga de abortar las comprobaciones cuando el resultado ya está claro, por eso MapearPuntoAComa está puesto en primer lugar, de forma que si es FALSE, sale del IF, es porque suelo tener dicha directiva para actuar de esa manera). Para evitar dependencias de directivas, conviene hacer lo que planteas, o bien poner la directiva delante de dicho código.

Pero, con tu permiso, Marcos, hay algo que me preocupa a nivel personal, y es que me estoy imaginando a vuestros clientes ladrando por el teléfono, con frases despectivas hacia mí, del tipo:

"¿Quién k*ñ* es este Andrés que aparece cada vez que quiero meter una cantidad con decimales?"

Lo digo por el ShowMessage ése, creo que resta eficiencia al asunto

[marcoszorrilla]

De acuerdo Andrés, lo puse en la primera entrada, es decir debajo de MapearPuntoAcoma, para comprobar como es lógico que el evento se produce compulsivamente, por lo tanto es lógico desactivar la variable global también al salir de los formularios que la necesitan porque sino la continua evaluación puede restar velocidad a la aplicación.

En este caso como bien dices el cambio propuesto no tendría objeto ya que pusiste en primer lugar esa comprobación con lo cual al no cumplirse no evaluaría el resto.

Un Saludo.

[guillotmarc]

Hola.

Yo lo tenía más fácil ya que en mis aplicaciones, en lugar de tener TDbEdits tengo unos componentes propios heredados del mismo (tienen un par de características propias, como que con el ENTER saltan al siguiente control, etc. ...).

Así que añadí una nueva propiedad a mi TIdEditAvancat, llamada PuntsPerComes. Si la activo, cada vez que el usuario pulsa un punto en el control, es reemplazado por una coma.

procedure TIdEditAvancat.KeyPress(var key: char);
begin
  if FIntroPerTabulador then begin
	if key = #13 then begin
	  key := #0;
	  PostMessage( GetParentForm(Self).Handle, WM_NEXTDLGCTL,0,0 );
	end;
  end;
  if FPuntsPerComes then if Key = '.' then Key := ',';
  if key <> #0 then inherited KeyPress(key);
end;

NOTA: He dejado también el código que cambia el ENTER por un TABULADOR.

Saludos.

[marcoszorrilla]

Use the $B compiler directive to control evaluation mode. The default state is {$B–}, which enables short-circuit evaluation. To enable complete evaluation locally, add the {$B+} directive to your code. You can also switch to complete evaluation on a project-wide basis by selecting Complete Boolean Evaluation in the Compiler Options dialog.

La rectificación por mi propuesta carece de sentido de acuerdo a la explicación dada por Andrés y además aquí esta la ayuda de Delphi que según se observa por defecto hace una evaluación lógica de tipo breve, es decir que en el momento que no coincida la comparación abandona el resto y como Andrés explicó la variable MapearPuntoAComa está en primer lugar.

Un Saludo.

[guillotmarc]

Hola.

Empezado por marcoszorrilla

La rectificación por mi propuesta carece de sentido de acuerdo a la explicación dada por Andrés y además aquí esta la ayuda de Delphi que según se observa por defecto hace una evaluación lógica de tipo breve, es decir que en el momento que no coincida la comparación abandona el resto y como Andrés explicó la variable MapearPuntoAComa está en primer lugar.

Hola, concretamente se llama evaluación perezosa (en inglés es más habitual encontrarla como lazy evaluation). Siempre me ha gustado mucho este nombre.

Saludos.