FlatEdit OLE drag-drop

Message Topic Search Topic Options Post Reply Create New Topic Printable Version Translate Topic

   FlatEdit control OLEDragDrop event first parameter is XtremeSuiteControls.DataObject.

This DataObject is not the same as the DataObject of other VB controls. More important, if another drag source registers a clipboard format, the FlatEdit control DragDrop DataObject does not return it:

That is: Data.GetFormat(GridClipboardID) = False even though that clipboard format was registered (using GridClipboardID = RegisterClipboardFormat("GridGIDs")). As a consequence, I must use the regular VB textbox, which works just fine.

I'd like to use your control suite, but missing features and/or "improperly" implemented ones is causing me problems. Now... does an app look professional if some controls use visual styles (when using CodeJock's) and some don't (when I need to use VB stock) ? For uniformity, I can't use the CodeJock control suite, even though I'd like to. 

Any chance that the CodeJock suite controls can be made closer to the VB stock ones?

Author	Message Topic Search Topic Options Post Reply Create New Topic Printable Version Translate Topic
PPL1 Members Profile Send Private Message Find Members Posts Add to Buddy List Groupie Joined: 10 April 2006 Location: Canada Status: Offline Points: 70	Post Options Post Reply Quote PPL1 Report Post Thanks(0) Quote Reply Topic: FlatEdit OLE drag-drop Posted: 18 September 2008 at 3:44pm
	FlatEdit control OLEDragDrop event first parameter is XtremeSuiteControls.DataObject. This DataObject is not the same as the DataObject of other VB controls. More important, if another drag source registers a clipboard format, the FlatEdit control DragDrop DataObject does not return it: That is: Data.GetFormat(GridClipboardID) = False even though that clipboard format was registered (using GridClipboardID = RegisterClipboardFormat("GridGIDs")). As a consequence, I must use the regular VB textbox, which works just fine. I'd like to use your control suite, but missing features and/or "improperly" implemented ones is causing me problems. Now... does an app look professional if some controls use visual styles (when using CodeJock's) and some don't (when I need to use VB stock) ? For uniformity, I can't use the CodeJock control suite, even though I'd like to. Any chance that the CodeJock suite controls can be made closer to the VB stock ones?

Oleg Members Profile Send Private Message Find Members Posts Add to Buddy List Admin Group Joined: 21 May 2003 Location: United States Status: Offline Points: 11234	Post Options Post Reply Quote Oleg Report Post Thanks(0) Quote Reply Posted: 19 September 2008 at 1:53am
	Hi, Works for me. :( Here code I tried: Private Declare Function RegisterClipboardFormat Lib "user32" Alias "RegisterClipboardFormatA" (ByVal lpString As String) As Integer Dim GridClipboardID As Integer Private Sub Command1_Click() Command1.OLEDrag End Sub Private Sub Command1_OLEStartDrag(Data As DataObject, AllowedEffects As Long) Dim d(0 To 10) As Byte Data.SetData d, GridClipboardID AllowedEffects = vbDropEffectCopy End Sub Private Sub Form_Load() GridClipboardID = RegisterClipboardFormat("GridGIDs") End Sub Private Sub Text1_OLEDragOver(Data As DataObject, Effect As Long, Button As Integer, Shift As Integer, x As Single, y As Single, state As Integer) If Data.GetFormat(GridClipboardID) Then Debug.Print "Data" End If End Sub Private Sub FlatEdit1_OLEDragOver(ByVal Data As XtremeSuiteControls.DataObject, Effect As Long, ByVal Button As Integer, ByVal Shift As Integer, ByVal x As Single, ByVal y As Single, ByVal state As Integer) If Data.GetFormat(GridClipboardID) Then Debug.Print "Data!" End If End Sub
	Oleg, Support Team CODEJOCK SOFTWARE SOLUTIONS