Lecture vidéos problematique :)

[garzul]

Bonjour j'ai un probleme pour redimensioner ma vidéos quand on agrandi ma fenêtre et quand je la redimensone regardez mon bout de code pour redimensoner ma vidéos le seul probleme c'est que des que je redimensone ma fenêtre avec mon code la vidéos se redimensione aussi mais quand je lache il n'y a rien qui s'affiche donc je suis obliger de deplacer la fenetre pour vois ma videos de nouveau est - ce normale voici le bout de coed que j'utilise pour redimensioer ma vidéos ===>

Code : Tout sélectionner

    Case #PB_Event_SizeWindow 
      
      If AfficheBoutonPause = 1
        ResizeGadget(#Bouton_Pause,WindowWidth()-70,-1,60,20) 
      EndIf
      ResizeMovie(-1,40,WindowWidth(),WindowHeight()-80) 
      FreeStatusBar(#StatusBar_0) 
      If CreateStatusBar(#StatusBar_0, WindowID()) 
        AddStatusBarField(WindowWidth()/3) 
        AddStatusBarField((WindowWidth()/3)*2)        
        StatusBarText(#StatusBar_0, 0, "") 
      EndIf 

[Le Soldat Inconnu]

pourquoi tu mets -1 dans ton resizemovie ?

[garzul]

Bah la je peux pas tester car mon prog ne marchent plus alors que j'ai rien modifier ( La je suis scier ^^ ) .

[garzul]

Bon je poste mon programme ( Aidez moi à redimenssioner ma vidéos quand on clic sur agrandissement et quand on agrandi manuellement le code et pas trés claire mais bon tenez ===> ) CODE : Pour les image mettez ce que vous voulez ou metez des bouton ==> CODE :

Code : Tout sélectionner

If InitMovie() = 0
  MessageRequester("Erreur", "Impossible d'initialiser la lecture du film specifier", 0 | #MB_IconError) 
  End
EndIf

#WidhtWindow       = 600
#HeightWindow      = 300
AfficheBoutonPause = 0
Pause              = 0

;- Constant fenetre 
Enumeration
  #Window
  #XWindow
  #YWindow
EndEnumeration


;- Constant du menuBar
Enumeration
  #MenuBar_0
EndEnumeration

Enumeration
  #Ouvrir
  #Quitter
  #Aide
  #A_propos
EndEnumeration


;- Constant de la status bar
Enumeration
  #StatusBar_0
EndEnumeration

;-Constant des bouton
Enumeration
  #Bouton_Play
  #Bouton_Pause
  #ImagePlay
  #ImagePause
  #ImageBarreInfos
  #GadgetImageBarreInfos
EndEnumeration

;-Chargement des image pour les bouton
LoadImage(#ImagePlay,"PlayBouton.bmp") 
LoadImage(#ImagePause,"PauseBouton.bmp") 
LoadImage(#ImageBarreInfos,"Barreinfos.bmp") 
AdvancedGadgetEvents(1)


Procedure Open_Window()
  If OpenWindow(#Window, #XWindow, #YWindow, #WidhtWindow, #HeightWindow,  #PB_Window_SystemMenu | #PB_Window_MinimizeGadget | #PB_Window_MaximizeGadget | #PB_Window_SizeGadget | #PB_Window_TitleBar | #PB_Window_BorderLess | #PB_Window_WindowCentered , "Garzul player")
    If CreateMenu(#MenuBar_0, WindowID())
      MenuTitle("Fichier")
      MenuItem(#Ouvrir, "Ouvrir ")
      MenuItem(#Quitter, "Quitter")
      MenuTitle("Aide")
      MenuItem(#Aide, "Aide")
      MenuBar()
      MenuItem(#A_propos, "A propos")
    EndIf
    
    If CreateStatusBar(#StatusBar_0, WindowID())
      AddStatusBarField(100)
      StatusBarText(#StatusBar_0, 0, "")
    EndIf
    
    If CreateGadgetList(WindowID())
      
    EndIf
  EndIf
EndProcedure

Open_Window()

Repeat 
  
  Select WaitWindowEvent() 
    
    Case #PB_Event_CloseWindow 
      
      quit = 1
      
    Case #PB_Event_SizeWindow 
      
      If AfficheBoutonPause = 1
        ResizeGadget(#Bouton_Pause,WindowWidth()-70,-1,60,20) 
      EndIf
      ResizeMovie(0,40,WindowWidth(),WindowHeight()-80) 
      FreeStatusBar(#StatusBar_0) 
      If CreateStatusBar(#StatusBar_0, WindowID()) 
        AddStatusBarField(WindowWidth()/3) 
        AddStatusBarField((WindowWidth()/3)*2)        
        StatusBarText(#StatusBar_0, 0, "") 
      EndIf 

      
Case #PB_Event_Gadget
  Select EventGadgetID()
    
    Case #Bouton_Pause
      PauseMovie() 
      Pause = 1
      If Pause = 1
      EndIf
    
   Case #Bouton_Play
      ResumeMovie()
      Pause = 0
    
EndSelect
    
Case #PB_Event_Menu
  Select EventMenuID()
    
    Case #Quitter
      
      End
      
    Case #Ouvrir 
      
      Resultat$ = OpenFileRequester("Choisissez un film à lire ou un son", "", "Film/Audio|*.avi;*.mpg;*.asf;*.mp3;*.wav|All Files|*.*", 0)
      If LoadMovie(0, Resultat$)
        AfficheBoutonPause = 1
        ImageGadget(#GadgetImageBarreInfos, 80,10,20,20,UseImage(#ImageBarreInfos),#PB_Image_Border)  
        ButtonImageGadget(#Bouton_Play,10, 10, 60, 20,UseImage(#ImagePlay))
        ButtonImageGadget(#Bouton_Pause,580, 10, 60, 20,UseImage(#ImagePause))
        ResizeGadget(#Bouton_Pause,WindowWidth()-70,-1,60,20)   
        ResizeMovie(-1,40,WindowWidth(),WindowHeight()-80)  
        PlayMovie(0, WindowID())
        SetWindowTitle(#Window, Resultat$) 
        EndIf
          
  EndSelect
EndSelect
  
StatusBarText(#StatusBar_0, 0, FormatDate("%dd/%mm/%yyyy", Date()) + " " + FormatDate("%hh:%ii:%ss", Date())) 
Until  quit 

End

[garzul]

Non c'est bon en faîte , j'ai un probleme au niveau que je voudrai toujour faire centrer un bouton au milieu de ma fenêtre mais je ne vois pas comment je puisse faire quand savez - vous ? ( Je veux mettre mon bouton au milieu et qu'il y reste même en changeant de dimension de fenêtre ) Merci et @++

[Chris]

Code : Tout sélectionner

;/Constantes Window
Enumeration
  #Window_0
EndEnumeration

;/Constantes Gadget
Enumeration
  #Btn_Quit
EndEnumeration


If OpenWindow(#Window_0, 300, 300, 300, 200, #PB_Window_SystemMenu|#PB_Window_MaximizeGadget|#PB_Window_SizeGadget, "Fenêtre 1",0)
  If CreateGadgetList(WindowID(#Window_0))
    ButtonGadget(#Btn_Quit, 300, 200, 100, 25, "Quitter")
  EndIf
  
  Repeat
    Select WaitWindowEvent()
      Case #PB_EventSizeWindow
        ResizeGadget(#Btn_Quit,WindowWidth()/2 -50, WindowHeight() -30, -1, -1)
        
      Case #PB_EventGadget
        Select EventGadgetID()
          
          Case #Btn_Quit : quit = 1
        EndSelect
        
      Case #PB_EventCloseWindow : quit = 1
    EndSelect
  Until quit = 1
  End
EndIf

[garzul]

Ok merci ( Même si j'ai résolue le probléme ) . Comment faire aussi ( désoler de vous embeter ) pour ouvrir une deuxiéme fenêtre ( Esque l'ont peut faire un openwindows deux fois dans un code ? )

[Chris]

Tu as posté pour le bouton à 10h18, je t'ai répondu 11 minutes plus tard, à 10h29, et tu avais déjà résolu le problème.

Ca prouve que tu postes sans chercher!

Pour la suite, je te répondrais demain. Tu auras sûrement trouvé, d'ici là

[garzul]

Ouais merci surement ( surtout que je cherche en même temps que je poste lol alors moi tu sais c'est le Garzul quoi ) .