Dave,
I haven't downloaded your Beta yet, so I'm not sure how you implemented
this. But I had a notion to look back on this today. I think I have a
possible solution:
oFrm = CREATEOBJECT("cFrm")
oFrm.Show()
READ EVENTS
DEFINE CLASS cFrm as Form
allowoutput = .F.
showtips = .T.
ADD OBJECT lbl1 as Label WITH Caption = "Hello World", ToolTipText =
"Double click to edit"
ADD OBJECT txt1 as textbox WITH value = "Hello World", Visible = .F.
ADD OBJECT txt2 as textbox WITH top = 40
PROCEDURE Destroy
CLEAR EVENTS
ENDPROC
PROCEDURE Init
THIS.lbl1.AddProperty("DragStart",0)
ENDPROC
PROCEDURE lbl1.MouseDown
LPARAMETERS nButton, nShift, nXCoord, nYCoord
IF nButton = 1 AND SECONDS()-THIS.DragStart> _dblclick
THIS.Drag(1)
THIS.DragStart = SECONDS()
ENDIF
ENDPROC
PROCEDURE lbl1.DblClick
THISForm.txt1.Visible = .T.
THISFORM.txt1.SetFocus()
THIS.Visible = .F.
ENDPROC
PROCEDURE lbl1.MouseUp
LPARAMETERS nButton, nShift, nXCoord, nYCoord
THIS.Drag(0)
ENDPROC
PROCEDURE txt1.LostFocus
THISFORM.lbl1.Caption = THIS.Value
THISFORM.lbl1.Visible = .T.
THIS.Visible = .F.
ENDPROC
PROCEDURE txt2.DragDrop
LPARAMETERS oSource, nXCoord, nYCoord
THIS.Value = oSource.Caption
ENDPROC
ENDDEFINE
Tracy
-----Original Message-----
From: Dave Crozier
Sent: Tuesday, June 20, 2006 2:59 AM
Subject: RE: Textbox Drag/Drop
Tracy,
Exactly what I mean! This is a real showstopper unless I can come up with a
solution which doesn't use timers - the search goes on.
Dave Crozier
_______________________________________________
Post Messages to: [email protected]
Subscription Maintenance: http://leafe.com/mailman/listinfo/profox
OT-free version of this list: http://leafe.com/mailman/listinfo/profoxtech
** 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.
