Bug in TGet

[Enrico Maria Giordano]

In the following sample, try to paste the string "123456789012345678901234567890" in the GET and you will see that the picture is not respected:

Code: Select all  Expand view

#include "Fivewin.ch"


FUNCTION MAIN()

    LOCAL oDlg, oGet

    LOCAL cVar := SPACE( 39 )

    DEFINE DIALOG oDlg

    @ 1, 1 GET oGet VAR cVar;
           PICTURE "999-999-999-999-999-999-999-999-999-999"

    @ 3, 1 BUTTON "&Close" ACTION oDlg:End()

    ACTIVATE DIALOG oDlg;
             CENTER

    RETURN NIL

EMG

[nageswaragunupudi]

Mr EMG
May I ask, if this works correctly in native (x)Harbour without FWH ? Is this problem only with FWH ?

[Enrico Maria Giordano]

Yes, it works correctly in pure xHarbour console mode. As in subject, the bug is in FWH TGet class.

EMG

[Enrico Maria Giordano]

Any news?

EMG

[ukoenig]

Enrico,

Testing Your example, I noticed, a RETURN or moving to the next Get,
refreshes the Format.



Best Regards
Uwe

[Enrico Maria Giordano]

Yes, but as you can see one digit out of four is missing.

EMG

[driessen]

Enrico,

I use FWH 9.11 and the latest version (11/2009) of xHarbour Builder.

I did some tests and I found no problem at all : not with 1 get and not with 2 gets.

I don't know what's happening.

[Enrico Maria Giordano]

Are you sure? Please, can you send me your EXE to test it here?

EMG

[driessen]

Enrico,

You can download an EXE-file at http://www.ma-consult.be/test.exe.

Please let me know when you have used the test so I can deleted it from my webspace.

Good luck.

[Enrico Maria Giordano]

I just downloaded it and tested, thank you. It shows the problem. If you paste this string:

123456789012345678901234567890

you will get

123-567-901-345-789-123-567-90 - - - -

As you can see, 4 is missing, 8 is missing, and so on. If you try to insert that string manually the result is correct:

123-456-789-012-345-678-901-234-567-890

EMG

[driessen]

Enrico,

Indeed, the problems occurs when pasting.

[Enrico Maria Giordano]

Yes, as I wrote in the first message of this thread.

EMG

[Antonio Linares]

Enrico,

I think it is not a FWH bug, I explain you why

In Clipper or in Harbour we can not "paste" a value into a GET, we just can type it and FWH does it fine this way too. When we paste a value into a FWH GET we are simply replacing the contained oGet buffer and not typing each one of the characters. Please run this test to see what I mean:

Code: Select all  Expand view

#include "Fivewin.ch"

FUNCTION MAIN()

    LOCAL oDlg, oGet

    LOCAL cVar := SPACE( 39 )

    DEFINE DIALOG oDlg

    @ 1, 1 GET oGet VAR cVar;
           PICTURE "999-999-999-999-999-999-999-999-999-999"
       
    // standard Harbour code
    oGet:oGet:SetFocus()    
    oGet:oGet:buffer = "1234567890"
    oGet:oGet:Assign()  
    oGet:oGet:UpdateBuffer()
    // end of standard Harbour code    
    MsgInfo( oGet:oGet:buffer )      

    @ 3, 1 BUTTON "&Close" ACTION oDlg:End()

    ACTIVATE DIALOG oDlg;
             CENTER

    RETURN NIL
 

[Antonio Linares]

Enrico,

This small example shows more clearly what I mean:

Code: Select all  Expand view

    MsgInfo( Transform( "1234567890", "999-999-999-999-999-999-999-999-999-999" ) )
 

Its a (wrong?) Transform() behavior:

[Antonio Linares]

Enrico,

I am reviewing Transform() docs and it does not manage "-" in any way. It has no special meaning for Transform():

http://www.ousob.com/ng/53guide/nga46c2.php

GET's PICTURE docs:
http://www.ousob.com/ng/53guide/ngaee8c.php

I think we are missing something...