Mr Antonio
Try to block one or two characters with mouse and then type.
In case of character variable, the typed character replaces the blocked characters. In case of Date this gives unexpected results.
G. N. Rao.
Hyderabad, India
Mr Antonio
Try to block one or two characters with mouse and then type.
In case of character variable, the typed character replaces the blocked characters. In case of Date this gives unexpected results.
Antonio
Adding Set( 29, .T. ) has no effect ... the trick to the error is to set your cursor directly over and hi-lite the last digit 6 of the year and type over it with a different number like 7 .. you will see how the date becomes invalid.
I have seen this where data entry people make a mistake in entering a date 04/27/2016 and meant to enter 2015 as the year .. they go back and ONLY hi-light the 6 ( not the entire date ) and change it to ( something else ) 5 .. and that is where the date resolves as invalid.
Thanks
Rick Lipkin
Rick,
OK, now I see the problem. Before I was assuming the cursor was in the overtype mode, and I also tried insert mode. I didn't think to try highlighting the last character. I would ever do it that way, but with many users, someone is going to do just about every possibility.
It does seem to be a bug. I'm guessing in xHarbour, since that is where the old Clipper GET code is.
James
I think the fix is required in fwh code only.
We are looking into it.
Rao
Thank you !!!
Rick Lipkin
To All
Wanted to keep this on the radar scope .. Thanks
Rick Lipkin
Not yet solved.
But I too have it on top of my mind.
Most likely in fwh 16.05
Rao .. thanks
To All
Wanted to once again put this back on the radar scope..
Thanks
Rick Lipkin
::GetSelPos( @nLo, @nHi )
// Delete selection
if nHi != nLo
// ::GetDelSel( nLo, nHi )
::EditUpdate()
endifPlease discard my previous message. It looks to me more as an ::oGet:Insert() and ::oGet:OverStrike() issue
going to do some more tests
METHOD KeyChar( nKey, nFlags ) CLASS TGet
...
   case nKey >= 32 .and. nKey < 256
     ...
      ::GetSelPos( @nLo, @nHi )
      // Delete selection
      if nHi != nLo
       if ::oGet:Type != "D" // new
         ::GetDelSel( nLo, nHi )
         ::EditUpdate()
       else
         ::SetPos( nLo + 1 ) // new
       endif Â
      endif
      ...Changes included for next FWH 16.09
it is working nicely ![]()
Antonio
Awesome .. and Very Grateful !!
Thank You
Rick Lipkin
Thanks a lot Antonio
Massimo