Code: Alles auswählen
If OpenWindow(0, 0, 0, 260, 340, "ExplorerTree-Bug", #PB_Window_SystemMenu | #PB_Window_ScreenCentered)
	
	ExplorerTree= ExplorerTreeGadget(#PB_Any, 10,10, 240, 240, "", #PB_Explorer_AlwaysShowSelection | #PB_Explorer_NoLines)
	Button_Abbruch = ButtonGadget(#PB_Any, 150, 270, 100, 25, "Abbruch")
	Button_Start = ButtonGadget(#PB_Any, 150, 300, 100, 25, "Start")
	DisableGadget(Button_Abbruch,1)
	
	Repeat
		Event = WaitWindowEvent()
		
		Select EventGadget()
				
			Case Button_Start
				DisableGadget(Button_Start,1)
				DisableGadget(ExplorerTree,1)
				DisableGadget(Button_Abbruch,0)  
				
			Case Button_Abbruch
				DisableGadget(Button_Start,0)
				DisableGadget(ExplorerTree,0)
				DisableGadget(Button_Abbruch,1)
				
		EndSelect
		
	Until Event = #PB_Event_CloseWindow
EndIf


