bug avec le drag n drop d'images

Archive.
Avatar de l’utilisateur
case
Messages : 1420
Inscription : lun. 10/sept./2007 11:13

bug avec le drag n drop d'images

Message par case »

bonjour, il semblerais qu'il y ait un bug avec le drag n drop d'images.

l'image est comme décalée une bande correspondant au coté gauche de l'image se trouves a droite

pour illustrer ce bug voici une archive contenant le code et les images
j'effectue l'opération de drag n drop depuis mozilla firefox

http://zorgrage.dyndns.org/pure/bug_dragndrop.zip


pour info voici le code contenu dans l'archive

Code : Tout sélectionner

path.s=GetPathPart(ProgramFilename())
UseJPEGImageDecoder()
pic=LoadImage(#PB_Any,"IMG_3160.JPG")
RunProgram("test.html") ;lance le navigateur par defaut firefox pour tester le drag n drop
win1=OpenWindow(#PB_Any,0,0,750,500,"LOADED IMAGE")
win2=OpenWindow(#PB_Any,0,0,750,500,"DRAG IMAGE HERE")
EnableWindowDrop(win2,#PB_Drop_Image ,#PB_Drag_Link)
Repeat
  ev=WaitWindowEvent()
  If ev    
    If ev=#PB_Event_WindowDrop   
      Debug "windrop"
      If EventDropAction()=#PB_Drag_Link      
        pic2=EventDropImage(#PB_Any)
        Debug pic2
      EndIf
    EndIf
  EndIf
  If IsImage(pic)
    StartDrawing(WindowOutput(win1))
    DrawImage(ImageID(pic),0,0,750,500)
    StopDrawing()
  EndIf
  If IsImage(pic2)
    StartDrawing(WindowOutput(win2))
    DrawImage(ImageID(pic2),0,0,750,500)
    StopDrawing()
  EndIf
Until ev=#PB_Event_CloseWindow    
ImageImage