Movie fenster beenden

[big earl]

Also ich habe vor ca einer Woche mit PB angefangen und hab schon die erste Frage (^- ^ )

hier mein Source:

Code: Alles auswählen

InitMovie()

;-Window
Enumeration
	#WINDOW_0
	#WINDOW_1
EndEnumeration

;-Video
Enumeration
	#VIDEO_0
EndEnumeration

;-Buttons
Enumeration
	#BUTTON_0
	#BUTTON_1
EndEnumeration

Procedure StartVideo()
	LoadMovie(#VIDEO_0,"C:\video.mp4")
	PlayMovie(#VIDEO_0,#WINDOW_0)
EndProcedure

Procedure StopVideo()
	StopMovie(#VIDEO_0)
	CloseWindow(#WINDOW_0)
EndProcedure

If OpenWindow(#WINDOW_0,100,100,230,40,"Video tääst",#PB_Window_SystemMenu)
	ButtonGadget(#BUTTON_0,10,10,100,20,"Start video")
	ButtonGadget(#BUTTON_1,120,10,100,20,"Stop video")
	Repeat
		Select WaitWindowEvent()
			Case #PB_Event_Gadget
				Select EventGadget()
					Case #BUTTON_0
						StartVideo()
					Case #BUTTON_1
						StopVideo()
				EndSelect
		EndSelect
	Until WaitWindowEvent() = #PB_Event_CloseWindow
EndIf

nun haben sicherlich bereits einige gemerkt, dass sich das video Fenster nicht schliesen wird

also meine Frage, wie kann ich das Video beenden, ohne das aktive Fenster zu schliesen ?

[Shadow-Gamer]

bei

Code: Alles auswählen

Procedure StopVideo()
   StopMovie(#VIDEO_0)
   CloseWindow(#WINDOW_0)
EndProcedure

das CloseWindow entfernen, wenn du das meinst

[ts-soft]

Code: Alles auswählen

 InitMovie()

;-Window
Enumeration
   #WINDOW_0
   #WINDOW_1
EndEnumeration

;-Video
Enumeration
   #VIDEO_0
EndEnumeration

;-Buttons
Enumeration
   #BUTTON_0
   #BUTTON_1
EndEnumeration

Procedure StartVideo()
   LoadMovie(#VIDEO_0,"C:\video.mp4")
   OpenWindow(#WINDOW_1, #PB_Ignore, #PB_Ignore, MovieWidth(#VIDEO_0), MovieHeight(#VIDEO_0), "")
   PlayMovie(#VIDEO_0, WindowID(#WINDOW_1))
EndProcedure

Procedure StopVideo()
   StopMovie(#VIDEO_0)
   CloseWindow(#WINDOW_1)
EndProcedure

If OpenWindow(#WINDOW_0,100,100,230,40,"Video tääst",#PB_Window_SystemMenu)
   ButtonGadget(#BUTTON_0,10,10,100,20,"Start video")
   ButtonGadget(#BUTTON_1,120,10,100,20,"Stop video")
   Repeat
      Select WaitWindowEvent()
        Case #PB_Event_CloseWindow
          Select EventWindow()
            Case #WINDOW_0
              Break
            Case #WINDOW_1
              CloseWindow(#WINDOW_1)
          EndSelect
         Case #PB_Event_Gadget
            Select EventGadget()
               Case #BUTTON_0
                  StartVideo()
               Case #BUTTON_1
                  StopVideo()
            EndSelect
      EndSelect
   ForEver
EndIf 

1. also Playmovie wurde nicht die windowid übergeben, siehe obigen korrigierten code.
2. fenster für video würde nicht geöffnet.
3. Zweimal WaitWindowEvent im Mainloop, das geht nicht.

Gruß
Thomas

[big earl]

@Shadow-Gamer
ich meinte eigentlich, das video Fenster beenden (^- ^ )

big thx an ts-soft läuft alles super, kann endlich weiterarbeiten (^ .^)

[ts-soft]

big thx an ts-soft läuft alles super, kann endlich weiterarbeiten (^ .^)

Wenn die mitgelieferten Infos und der Source so klar sind, hilft man doch gerne