DragText geht nicht mit UNICODE in PB 4.1

[Xaby]

Code: Alles auswählen

;/ Folker Linstedt
;/ 2008-01-17

If OpenWindow(0,0,0,630,150,"Text schreiben",#PB_Window_ScreenCentered | #PB_Window_SystemMenu) and CreateGadgetList(WindowID(0))
  
  ButtonGadget(2,5,62,200,20,"Text in Zwischenablage kopieren")
  
  StringGadget(1,5,33,580,25,"")
  
  CreateImage(0,32,52)
  StartDrawing(ImageOutput(0))
  Box(1,1,30,50,RGB(100,100,200))
  StopDrawing()
  ImageGadget(8,587,4,32,52,ImageID(0))
  GadgetToolTip(8,"hier klicken und ziehen")
  
  StickyWindow(0,1) ; für DragDrop-Aktion besser
  
  define Event.l, Quit, GadgetNr
  
  
  Repeat
     
    Event=WaitWindowEvent()
    
    If Event=16
      Quit=1
      
    ElseIf Event=#PB_Event_Gadget
      GadgetNr=EventGadget()
      
      If GadgetNr=2
        SetClipboardText(GetGadgetText(1)) 
      EndIf
      If GadgetNr=8
        If EventType()= #PB_EventType_DragStart
          ;DragImage(ImageID(0),#PB_Drag_Copy)
          Dr$=GetGadgetText(1)+" "
        
          DragText(Dr$,#PB_Drag_Copy)
        EndIf
      EndIf
     
      
    EndIf
    
  Until Quit  
  
EndIf

Wenn ich den Code als UNICODE compiliere, damit ich auch UNICODE-Zeichen in meinen String schreiben kann,
bekomme ich die Meldung: Invalid Memory Access

Wenn man den Code nicht im UNICODE compiliert, funktioniert es,
aber UNICODE-Zeichen werden zu ???? Fragezeichen.

Lösungen?

[bobobo]

geht auch nicht in pb4-2b1

ist als bug gemeldet