TDBMaskEdit con UpDown asociado

[jrcpoli]

Saludos:
Temgo un control tipo TDBMaskEdit con un UpDown asociado, el control es
para que el operador introduzca la cantidad de tanto % que quiere obtener de
una cantidad, pero solo con incrementos de 5 en 5 en los tantos por ciento y
el minimo requerido el el 10 y el máximo el 100% en el TDBMaskEdit he puesto
una picture que llega hasta 3 digitos @E 999 en el UpDown he puesto minimo
10, máximo 100 y incremento 5 así de primeras no funciona sigue
incrementando y disminuyento de 1 en uno y además sigue del 10 para abajo
aunque solo sea una cifra esto es pone el 9, así que mirando algunos
ejemplos aunque esten en ingles que no lo entiendo casi nada he realizado
algunas modificaciones como se indica pero sigue sin darme una respuesta
correcta.
METHOD UpDown2Change( oSender, nPos, nDelta ) CLASS TFormComunes1
LOCAL lCambiar := .F.
::oTanto_Cien:Value :=( nPos + nDelta)
RETURN lCambiar
Pongo el valor del UpDown de lSyncBuddy a .F.
nIncrement := 5
nMax := 100
nMin := 10
nBase := 10
En fin seguro que estoy haciendo algo mal pero no se que es.
José Ramón Castro Polinio.

[ignacio]

José,
El incremento del que hablas no funciona así. Dicho valor se refiera a
cuando mantienes pulsado el botón un cierto intervalo de tiempo marcado por
la propiedad nAccelTime.
Tienes que utilizar el evento OnChange del control.
Un saludo,
"José R.Castro" <JRCPOLI@terra.es> escribió en el mensaje
news:[email=4357d422@ozsrvnegro.ozlan.local...]4357d422@ozsrvnegro.ozlan.local...[/email]
> Saludos:
>
> Temgo un control tipo TDBMaskEdit con un UpDown asociado, el control es
> para que el operador introduzca la cantidad de tanto % que quiere obtener
> de
> una cantidad, pero solo con incrementos de 5 en 5 en los tantos por ciento
> y
> el minimo requerido el el 10 y el máximo el 100% en el TDBMaskEdit he
> puesto
> una picture que llega hasta 3 digitos @E 999 en el UpDown he puesto minimo
> 10, máximo 100 y incremento 5 así de primeras no funciona sigue
> incrementando y disminuyento de 1 en uno y además sigue del 10 para abajo
> aunque solo sea una cifra esto es pone el 9, así que mirando algunos
> ejemplos aunque esten en ingles que no lo entiendo casi nada he realizado
> algunas modificaciones como se indica pero sigue sin darme una respuesta
> correcta.
>
> METHOD UpDown2Change( oSender, nPos, nDelta ) CLASS TFormComunes1
>
> LOCAL lCambiar := .F.
>
> ::oTanto_Cien:Value :=( nPos + nDelta)
>
> RETURN lCambiar
>
> Pongo el valor del UpDown de lSyncBuddy a .F.
> nIncrement := 5
> nMax := 100
> nMin := 10
> nBase := 10
>
> En fin seguro que estoy haciendo algo mal pero no se que es.
>
> José Ramón Castro Polinio.
>
>
>
>
>

[Ingo]

José,
intente esto
METHOD UpDown2Change( oSender, nPos, nDelta ) CLASS TFormComunes1
LOCAL n
WITH OBJECT ::oTanto_Cien
n:=:Value+=nDelta*5
:Value:=MIN(MAX(n,10),100)
END
RETURN Nil
Saludos
Ingo