How to mark text in a Get when it receives focus

[rdonnay]

Code: Select all

#INCLUDE "dcdialog.ch"
#INCLUDE "appevent.CH"

FUNCTION Main()

LOCAL GetList[0], a,b,c,d, oGet

a := b := c := d := '123456'

@ 0,0 DCGET a
@ 1,0 DCGET b
@ 2,0 DCGET c GOTFOCUS {|a,b,o|PostAppEvent(xbeP_Keyboard,xbeK_SH_END,,o)} OBJECT oGet
@ 3,0 DCGET d

DCREAD GUI FIT

RETURN nil


PROC appsys ; return