TGET: BUG en PICTURE.

[tsales]

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

[Antonio Linares]

Toni,

Habría que probarlo con Harbour/xharbour sin FWH en modo texto para ver si se comporta igual y es un bug de Harbour/xHarbour, ya que FWH usa la Clase Get de Harbour/xHarbour.

FWH no hace nada con los PICTUREs. Se limita a pasar las pulsaciones al GET y a recuperar el valor del buffer del GET.