Page 1 sur 1
Lecture vidéos problematique :)
Publié : mer. 03/nov./2004 17:07
par 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
Publié : mer. 03/nov./2004 17:33
par Le Soldat Inconnu
pourquoi tu mets -1 dans ton resizemovie ?
Publié : mer. 03/nov./2004 17:45
par garzul
Bah la je peux pas tester car mon prog ne marchent plus alors que j'ai rien modifier ( La je suis scier ^^ ) .
Publié : jeu. 04/nov./2004 22:20
par 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
Publié : ven. 05/nov./2004 21:18
par 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 @++
Publié : ven. 05/nov./2004 21:29
par 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
Publié : ven. 05/nov./2004 21:43
par 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 ? )
Publié : ven. 05/nov./2004 21:48
par 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à
Publié : ven. 05/nov./2004 22:15
par 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
) .