How to make memo edit in dialog automatic selectnone?

[Gale FORd]

Has anyone found a way to have memo edit default to selectnone or unselect text during ON INIT?
I have tried many different ways to get the memo edit not to select all automatically.
This has caused more than 1 person to accidentally erase memo with keystroke.

[Rick Lipkin]

Gale

Insert this code after your memo get statement .. what this code does is move the cursor to the first character and unselects All..

Rick Lipkin

Code: Select all  Expand view  RUN

oMemo:bGotFocus = { || oMemo:SetSel( 0, 0 ),;
                         oMemo:Goto( oMemo:GetLineCount() ),;
                         __Keyboard( Chr( VK_END ) ) }


 

[Gale FORd]

Thanks,
This line was enough for my purposes.
oGet1:bGotFocus = { || oGet1:SetSel( 0, 0 ) }

[byte-one]

Another problem: I can not switch between insert and overwrite. (is always insert) but the cursortype is overwrite.

[Rick Lipkin]

Günther

I place this at the top of my Main program :

Code: Select all  Expand view  RUN

// replaces overstrike in gets
Set( _SET_INSERT, .t. )
TGet():lChangeCaret := .f.
 

This globally sets all fields to insert rather to overstrike .. a bit clumsy, but it works.

Rick Lipkin

[byte-one]

Thanks Rick!

Code: Select all  Expand view  RUN

local lSet := Set( _SET_INSERT) 
Set( _SET_INSERT, .t. )
TMultiGet():lChangeCaret := .t.
....
@ 1,1 redefine oMulti MULTIGET....  
....
Set( _SET_INSERT, lSet)
 

This is right code. After leaving the multiget i change to old mode. I have also tested with ::gotfocus and ::lostfocus to Change the caret.

Antonio, as the multiget cannot switch off the insert-mode, the caret should be always shown as block on this control.