Ich habe ein Class AAA. In dieser hab ich ein XbPart BBB
nun will ich dem XbPart BBB "dragdrop beibringen", also mache ich aus BBB eine eigene Class.
Ich habe nun in Class AAA die Method(en)
Code: Alles auswählen
METHOD OWcal:_itemMarked( aRowCol, oObj )
METHOD OWcal:_itemSelected( aRowCol, oObj )
Code: Alles auswählen
::oKal:itemMarked :={|aRowCol, uNIL, oSelf| ::lCont := ::_itemMarked( aRowCol, oSelf ) }
::oKal:itemSelected :={|aRowCol, uNIL, oSelf| ::lCont := ::_itemSelected( aRowCol, oSelf )}
ich muss/will ja für "dragdrop" die linke Maustaste "abfangen". Deshalb auch die Class BBB
Code: Alles auswählen
METHOD DDCal:LbDblClick(aPos)
::lDragDrop := .F.
PostAppEvent(xbeBRW_ItemSelected,,,::setparent())
RETURN self
METHOD DDCal:LbDown( aPos )
::aPosClick := ::getcursorPos()
::oDlgParent := ::setparent()
...
die sich aus "aRowCol" von AAA:itemMarked / AAA:itemSelected ergeben ?
oder müsste ich wie die beiden Method(en) von Class AAA nach BBB auch alle Variabeln wie ::nRowHilite, ::nColHilite
nach Class BBB "verschieben" und den Source abändern in
Code: Alles auswählen
jetzt
::oKal:hiliteCell( ::nRowHilite, ::nColHilite, .F., .F. )
danach
::oKal:hiliteCell( ::oKal:nRowHilite, ::oKal:nColHilite, .F., .F. )