Inoffizielles deutsches Xbase-Forum

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

Code: Alles auswählen

FATAL ERROR LOG 
Not recoverable Error!
SYS Thread-ID: -1 
Module: EH
Error Codes: EH: 900 Sub: 0(0) OS: 0 XPP: 0
Call Stack of Thread 1 (732):
Call Stack of GUI Thread (944):
File: C:\Users\Homeoffice\Desktop\DropFatal\ACROBAT.EXE
TimeStamp: 20170312 10:47
End of FATAL ERROR LOG.