FiveTech Software tech support forums

To All

Is there a way to modify xBrowse to do two things ..

1- On EDIT_GET to have the cursor move to position 0 or to the beginning of the text field
2 - Instead of overstrike when editing the text .. have the text insert turned on .. that way when you make a change to the field .. you do not over write the text .. just togle insert ?

Thanks
Rick Lipkin

Rick:

For your second question, I use this code with TSBrowse, perhaps it can help you
with TXBrowse on EDIT method.

Code: Select all  Expand view

oBrw:aColumns[ 2]:bPrevEdit := { | uVar | Set( _SET_INSERT, ! Set( _SET_INSERT ) )}
 

Best regards

Armando

Thank you for your suggestion .. there does not appear to be a prepostget code block in xBrowse unless I have just missed it ?

I am still trying to come up with a solution and will share it when I get an answer.

Rick Lipkin

Rick:

Perhaps in ONPREVEDIT Method,

Code: Select all  Expand view

oBrw:aColumns[ 2]:bOnPrevEdit := { | uVar | Set( _SET_INSERT, ! Set( _SET_INSERT ) )}
 

Just an idea.

Regards

Armando

Thank you once again .. no such code block bOnPrevEdit exists in xBrowse

Rick

oCol:bOnPreEdit

Rao and Armando

Thank you both for your answers .. here is the solution to the long edit string using the bOnPreEdit code block. This takes the cursor to position 0.

Rick Lipkin

Code: Select all  Expand view

oLbxB:aCols[5]:bOnPreEdit  := { || __Keyboard( Chr( VK_HOME )) }