#123 hedit valid problem after 2023-08-16 11:12 UTC+0300

[José M. C. Quintas]

After this update, when type first letter of hedit it enter on VALID.
If I click left of the text, can type more text, but it is not the same on VALID.
maxlength is not valid too

[Alexander S.Kresin]

I've tested all that changes with the tutor: Get system/Dialog with text Gets - it seems to work normally. Can we see this problem in that test sample? If no, could you post your sample, as short, as it is possible, to see it?

Regards, Alexander.

[Alexander S.Kresin]

I've fixed few things in hedit - maybe, the problem you described, disappears.

[José M. C. Quintas]

Remember that VALID do not works on last hedit, need at least 2.
At first letter, VALID is called
This occurs only when it is a string, do not occurs with number.

#include "hwgui.ch"

FUNCTION Main()

LOCAL oDlg, oText, xValue := "SP", oText2, xValue2 := "SP"

INIT DIALOG oDlg ;
CLIPPER ;
NOEXIT ;
TITLE "test" ;
AT 0, 0 ;
SIZE 1024, 768
hwg_SetColorInFocus(.f.,,,123456 )

@ 10, 10 GET oText ;
VAR xValue ;
OF oDlg ;
SIZE 100, 20 ;
STYLE ES_LEFT ;
MAXLENGTH 2 ;
VALID { || OneValid( oText ) }

@ 30, 30 GET oText2 ;
VAR xValue2 ;
OF oDlg ;
SIZE 100, 20 ;
STYLE ES_LEFT ;
MAXLENGTH 2 ;
VALID { || OneValid( oText2 ) }

ACTIVATE DIALOG oDlg

RETURN nil

FUNCTION OneValid( oText )

hwg_MsgInfo( oText:Value )

RETURN .T.

[Alexander S.Kresin]

Seems to be fixed now.
Regards, Alexander.