How to mark text in a Get when it receives focus
Posted: Sun Nov 04, 2012 2:12 pm
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