ich habe das Demo \samples\activex\acrobat\main.prg erweitert um
Code: Alles auswählen
#define xbeE_DropDBF xbeP_User + 1
...
oForm:drawingArea:dropZone := .T.
oForm:drawingArea:dragEnter := {|aState,oData,oSelf| HandleDragEnter( aState,oData,oSelf ) }
oForm:drawingArea:dragDrop := {|aState,oData,oSelf| HandleDragDrop( aState,oData,oSelf ) }
...
DO CASE
CASE nEvent == xbeE_DropDBF
oControl:loadFile(mp1)
OTHERWISE
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDCASE
...
FUNCTION HandleDragEnter(aState,oData,oSelf)
LOCAL cBuffer
IF oData:QueryGetFormat(XBPCLPBRD_FILELIST) == .T.
RETURN XBP_DROPMODE_COPY
ENDIF
RETURN XBP_DROPMODE_NONE
FUNCTION HandleDragDrop( aState,oData,oSelf)
LOCAL aFiles := oData:GetData( XBPCLPBRD_FILELIST )
IF Len(aFiles) > 0
PostAppEvent(xbeE_DropDBF,aFiles[1],,oSelf:Setparent())
ENDIF
RETURN XBP_DROPMODE_COPY
aber beim Verlassen finde ich eine XppFatal.LOG
Demo anbei, wer kann das bestätigen
getestet unter v1.9.355