How to mark text in a Get when it receives focus

This forum is for posting of useful information
Post Reply
Message
Author
User avatar
rdonnay
Site Admin
Posts: 4266
Joined: Wed Jan 27, 2010 6:58 pm
Location: Boise, Idaho USA
Contact:

How to mark text in a Get when it receives focus

#1 Post by 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
The eXpress train is coming - and it has more cars.

Post Reply