Polink error bei PB53.1 Beta 3 x86

[alter Mann]

Code: Alles auswählen

EnableExplicit

Procedure.i DropEvent()
  Debug "Drop"
  ProcedureReturn 0
EndProcedure

Global Event

If OpenWindow(111, 100, 100, 200, 200,"DropEvent", #PB_Window_SystemMenu )
  
  StringGadget(1,10,10,100,20,"Text 1")
  
  StringGadget(2,10,40,100,20,"Text 2")
  
  EnableGadgetDrop(2,#PB_Drop_Text,#PB_Drag_Copy)
  BindEvent( #PB_Event_GadgetDrop ,@DropEvent(),111,2)
  
  Repeat
    Event = WaitWindowEvent()
  Until  Event = #PB_Event_CloseWindow

EndIf
End
; IDE Options = PureBasic 5.31 Beta 3 (Windows - x86)
; CursorPosition = 16
; Folding = -
; EnableUnicode
; EnableXP

kann das jemand bestätigen ? x64 kompiliert PB5.23 auch

[ts-soft]

Bei mir geht kein DropEvent
Kann also nichts zum Problem sagen, aber das ProcedureReturn ist verkehrt,
Event-Proceduren geben keinen Wert zurück!
Vielleicht liegt es ja daran.

Gruß
Thomas

[alter Mann]

auch wenn man das ProcedureReturn raus nimmt kommt der Polink error. Wenn man EnableGadgetDrop kommentiert nicht.

[Fabio]

Polink erro kommt gerne wenn der AV dazwischen Funk

[alter Mann]

...stimmt. Ohne AV klapp es.