Page 1 sur 1

J'ai besoin d'un petit renseignement

Publié : sam. 12/mars/2005 13:15
par Cagou-77
Salut à Tous ,

je suis à la recherche d'un code qui rend les fenêtres collante comme avec
winamp . il me semblait l'avoir vu mais je ne le retrouve pas

Merci d'Avance

Michel

Publié : sam. 12/mars/2005 13:48
par Heis Spiter
Suffit de faire comme ça...

Code : Tout sélectionner

If OpenWindow(1, 0, 0, 100, 100, #PB_Window_ScreenCentered | #PB_Window_SystemMenu, "Collante")
  Repeat
    ExamineDesktops()
    event = WindowEvent()
    If WindowX() < 50
      MoveWindow(0, WindowY())
    EndIf
    If WindowY() < 50
      MoveWindow(WindowX(), 0)
    EndIf
    If WindowX() > DesktopWidth(0)-50-WindowWidth()
      MoveWindow(DesktopWidth(0)-WindowWidth()-7, WindowY())
    EndIf
    Debug WindowY()
    If WindowY() > DesktopHeight(0)-50-WindowHeight()
      MoveWindow(WindowX(), DesktopHeight(0)-WindowHeight()-27)
    EndIf
  Until Event = #PB_EventCloseWindow
EndIf
End

Publié : sam. 12/mars/2005 13:55
par Oliv
Sur le musée Français Flype avait très bien expliqué comment faire

Publié : sam. 12/mars/2005 18:11
par Le Soldat Inconnu
j'ai également du mettre un exemple sur 2dev :D

Publié : sam. 12/mars/2005 19:46
par Flype
oui tu te souviens et tu l'avais un peu amélioré regis... ca date un peu...