On 25/03/2014 03:23 PM, Sytze de Boer wrote:

> Hi folk

> In a new system I'm developing, I have a form with provision for a large

> edit box

> When a person is typing in this box, I want them to be able to insert a

> date at the point where the cursor is.

> So, in the *when* procedure, I have it where if the person presses F5, it

> inserts the date.

> The problem is, it inserts the date at the beginning of the Edit box

> instead of where the cursor is. Can someone help me out with this ?

>

>

Sytze,

something like this should work in your edit box's KeyPress event:

LPARAMETERS nKeyCode, nShiftAltCtrl

#define F5 -4

IF m.nKeyCode = F5

this.Value = SUBSTR(this.Value, 1, this.SelStart) +

TRANSFORM(DATETIME()) + SUBSTR(this.Value, this.SelStart + 1)

ENDIF

--

Frank.

Frank Cazabon

_______________________________________________

Post Messages to: ProFox@leafe.com

Subscription Maintenance: http://mail.leafe.com/mailman/listinfo/profox

OT-free version of this list: http://mail.leafe.com/mailman/listinfo/profoxtech

Searchable Archive: http://leafe.com/archives/search/profox

This message: http://leafe.com/archives/byMID/profox/5331E0E7.1040006@gmail.com

** All postings, unless explicitly stated otherwise, are the opinions of the author, and do not constitute legal or medical advice. This statement is added to the messages for those lawyers who are too stupid to see the obvious.