alle XbParts, welche XbpWindow() als Superclass haben, besitzen die
Code: Alles auswählen
:dragDrop := {| aState, oDragData, self | ... } --> nAction
:dragEnter := {| aState, oDragData, self | ... } --> nAction
:dragMotion := {| aState, uNIL, self | ... } --> nAction
:dragLeave := {| uNIL1, uNIL1, self | ... } --> self
nun habe ich bei M$ MsComCtl.OCX aber OLE Methoden wie
Code: Alles auswählen
METHOD XbpListView:_OLECompleteDrag(nEffect)
METHOD XbpListView:_OLEDragDrop(oData,nEffect,nButton,nShift,nx,ny)
METHOD XbpListView:_OLEDragOver(oData,nEffect,nButton,nShift,nx,ny,nState )
METHOD XbpListView:_OLEStartDrag(oData, nEffect)
:dragDrop ist doch eine Property welche ich mit einem Codeblock auffülle.
Code: Alles auswählen
VAR dragDrop // Xbase++
VAR x_dragDrop // Gets or sets the text associated with this control.
ASSIGN METHOD _dragDrop() VAR x_dragDrop
METHOD HX_XXXXX:Create()
//
// after create ?!
//
// ASSIGN METHOD "transfer" data
//
::x_dragDrop := ::dragDrop
auch gibt Xbase++ ja einen Event zurück für die Aktion z.b. xbeP_DragDrop
müsste ich das EVAL() mit einem PostAppEvent(Userdef) einleiten ?