TGET: BUG en PICTURE.
Posted: Mon Jun 12, 2006 11:37 am
Antonio
La siguiente linea tiene un comportamiento extraño. Al perder el foco el GET si se introduce un valor con decimales, nValue asume su valor a CERO.
#include "FiveWin.ch"
//----------------------------------------------------------------------------//
function Main()
local oDlg, oGet
local nValue := 0
SET _3DLOOK ON
DEFINE DIALOG oDlg RESOURCE "TestGet"
REDEFINE GET oGet VAR nValue PICTURE "9.999 €" ID 110 OF oDlg
REDEFINE BUTTON ID 120 OF oDlg ACTION MsgInfo( nValue )
ACTIVATE DIALOG oDlg CENTERED
return nil
He comprobado que esto solo sucede cuando el PICTURE tiene un único valor entero y ademas añado el signo €. Lo curioso es que si añado un espacio en la parte entera del PICTURE " 9.999 €", funciona correctamente.
¿Alguna idea al Respecto?
Saludos
Toni Sales
La siguiente linea tiene un comportamiento extraño. Al perder el foco el GET si se introduce un valor con decimales, nValue asume su valor a CERO.
#include "FiveWin.ch"
//----------------------------------------------------------------------------//
function Main()
local oDlg, oGet
local nValue := 0
SET _3DLOOK ON
DEFINE DIALOG oDlg RESOURCE "TestGet"
REDEFINE GET oGet VAR nValue PICTURE "9.999 €" ID 110 OF oDlg
REDEFINE BUTTON ID 120 OF oDlg ACTION MsgInfo( nValue )
ACTIVATE DIALOG oDlg CENTERED
return nil
He comprobado que esto solo sucede cuando el PICTURE tiene un único valor entero y ademas añado el signo €. Lo curioso es que si añado un espacio en la parte entera del PICTURE " 9.999 €", funciona correctamente.
¿Alguna idea al Respecto?
Saludos
Toni Sales