pour faire bouger une fenetre...

[gadjet35]

bonjour j'ai essayer de faire bouger une fenetre sans bordure en pleins
ecran (un genre de map 2D)

j'ai essyer plusieurs code mais sa na pas marcher:

Code : Tout sélectionner

ExamineDesktops()
 borx = DesktopWidth(0)
 bory = DesktopHeight(0)
 
 posx = 0
 posy = 0
 
 OpenWindow(0,posx,posy,borx + 200,bory + 200,#PB_Window_BorderLess,"")
 OpenWindow(1,0,0,borx,300,#PB_Window_BorderLess,"")

 CreateGadgetList(WindowID(0))
  ButtonGadget(1,500,500,100,50,"button_1")
  ButtonGadget(2,borx + 100,bory + 100,50,25,"button_2")
  
 CreateGadgetList(WindowID(1))
  ButtonGadget(3,600,200,50,25,"bas")
  ButtonGadget(4,650,150,50,25,"droite")
  ButtonGadget(5,600,100,50,25,"haut")
  ButtonGadget(6,550,150,50,25,"gauche")
  
  Repeat
    Select WaitWindowEvent()
     Case #PB_EventGadget
      Select EventGadgetID()
       Case 3
        posy = posy + 5
       Case 4
        posx = posx + 5
       Case 5
        posy = posy - 5
       Case 6
        posx = posx - 5
       Case 1
        quit = 1
      EndSelect
    EndSelect
  Until quit = 1

Code : Tout sélectionner

ExamineDesktops()
 borx = DesktopWidth(0)
 bory = DesktopHeight(0)
 
 posx = 0
 posy = 0
 
 OpenWindow(0,posx,posy,borx + 200,bory + 200,#PB_Window_BorderLess,"")

 CreateGadgetList(WindowID(0))
  ButtonGadget(1,500,500,100,50,"button_1")
  ButtonGadget(2,borx + 100,bory + 100,50,25,"button_2")
  
 Repeat
  For droitex = borx - 5 To borx
   For droitey = 0 To bory
    If WindowMouseX() = droitex
     If WindowMouseY() = droitey
      posx = posx + 10
     EndIf
    EndIf
   Next 
  Next 
 Until WaitWindowEvent() = #PB_Event_CloseWindow

le code ci-dessus n'est pas encore tout a fait terminer

Code : Tout sélectionner

ExamineDesktops()
 borx = DesktopWidth(0)
 bory = DesktopHeight(0)
 
 posx = 0
 posy = 0
 
 OpenWindow(0,posx,posy,borx + 200,bory + 200,#PB_Window_BorderLess,"")

 CreateGadgetList(WindowID(0))
  ButtonGadget(1,500,500,100,50,"button_1")
  ButtonGadget(2,borx + 100,bory + 100,50,25,"button_2")
  
 Repeat
 ExamineDesktops()
 borx = DesktopWidth(0)
 bory = DesktopHeight(0)
 
 posx = 0
 posy = 0
 
 OpenWindow(0,posx,posy,borx + 200,bory + 200,#PB_Window_BorderLess,"")

 CreateGadgetList(WindowID(0))
  ButtonGadget(1,500,500,100,50,"button_1")
  ButtonGadget(2,borx + 100,bory + 100,50,25,"button_2")
  
 Repeat
  For droitex = borx - 5 To borx
   For droitey = 0 To bory
    posx = posx + 5
    MoveWindow(posx,posy)
   Next 
  Next 
 Until WaitWindowEvent() = #PB_Event_CloseWindow

et celui la non plus


pouvez vous m'aider a trouver les bugs?
merci d'avance...

[brossden]

Tu fais bien incrementer tes index mais tu ne repositionnes pas ta fenetre en fonction des nouvelles valeurs !

Dans ton premier code rajoute ;

Code : Tout sélectionner

      MoveWindow(posx,posy)

ça devrait mieux aller !

Soit pour le code complet !

Code : Tout sélectionner

ExamineDesktops()
borx = DesktopWidth(0)
bory = DesktopHeight(0)
 
posx = 0
posy = 0
 
OpenWindow(0,posx,posy,borx + 200,bory + 200,#PB_Window_BorderLess,"")
OpenWindow(1,0,0,borx,300,#PB_Window_BorderLess,"")

CreateGadgetList(WindowID(0))
ButtonGadget(1,500,500,100,50,"button_1")
ButtonGadget(2,borx + 100,bory + 100,50,25,"button_2")
 
CreateGadgetList(WindowID(1))
ButtonGadget(3,600,200,50,25,"bas")
ButtonGadget(4,650,150,50,25,"droite")
ButtonGadget(5,600,100,50,25,"haut")
ButtonGadget(6,550,150,50,25,"gauche")
 
Repeat
  Select WaitWindowEvent()
    Case #PB_EventGadget
      Select EventGadgetID()
        Case 3
          posy = posy + 5
        Case 4
          posx = posx + 5
        Case 5
          posy = posy - 5
        Case 6
          posx = posx - 5
        Case 1
          quit = 1
      EndSelect
      MoveWindow(posx,posy)
  EndSelect

Until quit = 1 

[bernard13]

gadjet35 achete un dictionnaire pour ecrire correctement !!!!!

[nico]

bernard13,

Cela rime à quoi ces remarques, faut vraiment arrêter avec cette façon de faire, faire une apparition et balancer des trucs gratuitement pour casser.

Les fôttes d'orthographes ne sont pas un problème, faut juste que ce soit lisible et c'est le cas!

[Chris]

C'est sûr que si tous ceux qui "écrivent mal" écrivaient comme gadget35, on aurait pas grand-chose à demander de plus.

T'occupes pas du dictionnaire, gadget35, on est pas dans un concours d'orthographe

[gadjet35]

ok merci brossden pour ta reponse sa marche...