In TGet:LButtonUp() method there is
elseif Empty( cText ) .or. cText == " / /" .or. ;
AllTrim( cText ) == "0" .or. ;
AllTrim( cText ) == " - -"
but I think that cText can never be exactly equal to " / /" and surely AllTrim( cText ) can never be exactly equal to " - -".
EMG
I think it's OK because ALLTRIM(" / / ") is exactly "/ /", in the same way ALLTRIM(" - - ") is exactly "- -", and is necesary.
manuramos wrote:I think it's OK because ALLTRIM(" / / ") is exactly "/ /",
manuramos wrote:in the same way ALLTRIM(" - - ") is exactly "- -", and is necesary.
Yes it's true. I don't know why. It seems a bug.
Enrico, I'm remembering, tree years ago,more or less, I modified some methods of TGET class, and I released leading spaces. It's running OK.
manuramos wrote:Enrico, I'm remembering, tree years ago,more or less, I modified some methods of TGET class, and I released leading spaces. It's running OK.
Excuse my english. I removed it.
Enrico,
I guess the right code is ... .or. cText == " - -" without using AllTrim().
The other expressions seem fine.
Antonio Linares wrote:Enrico,
I guess the right code is ... .or. cText == " - -" without using AllTrim().
The other expressions seem fine.
Enrico,
Please notice that there are three spaces in front: " - -"
It looks as a picture for US phone numbers.
Antonio Linares wrote:Enrico,
Please notice that there are three spaces in front: " - -"
It looks as a picture for US phone numbers.
Enrico,
> cText == " / /"
It looks as an empty date (please notice that AllTrim() was not needed). There are two spaces before the first "/" and none after the last "/".
That seems to be the return from GetWindowText() when the date is empty. (edit: not sure about this, as a space may be typed after)
Antonio Linares wrote:Enrico,
> cText == " / /"
It looks as an empty date (please notice that AllTrim() was not needed). There are two spaces before the first "/" and none after the last "/".
That seems to be the return from GetWindowText() when the date is empty.
elseif Empty( cText ) .or. RTrim( cText ) == " / /" .or. ;
AllTrim( cText ) == "0" .or. ;
RTrim( cText ) == " - -"