ich habe für meiner Webseite ein kleines Tool geschrieben.
In diesem Tool kann man mehere Dateiverzeichnisse auswählen und nach dem Bestätigen werden dann die dateien vom Server in die entsprechenden verzeichnisse kopiert.
wenn ich das Standart Verzeichnis lasse (C:\) geht das ja wunderbar nach dem ich auch "OK" geklickt habe ändere ich aber das verzeichnis egal wo zum beispiel in "C:\Neuer Ordner\" dann geht der OK button nur wenn ich es manuell in den "StringGadget" eingegeben habe. Suche ich das verzeichniss gehen die button's nicht mehr.
als Button habe ich einfach nur "ImageGadget" genollen da mit der ButtonImageGadget nicht gefällt...
Ich hoffe das ich das verständlich genug erklärt habe andernfals bitte einfach nachfragen...
hier der Quelltext:
Code: Alles auswählen
Enumeration
#Window_0
#Window_2
EndEnumeration
Enumeration
#download
#abbrechen
#ok
#String_wallpaper
#String_boot
#String_loggon
#String_icon
#button_wallpaper
#button_boot
#button_loggon
#button_icon
EndEnumeration
UsePNGImageDecoder()
Global Image0
Global Image1
Global Image2
Global Image3
Global Image4
Image0 = CatchImage(0, ?Image0)
Image1 = CatchImage(1, ?Image1)
Image2 = CatchImage(2, ?Image2)
Image3 = CatchImage(3, ?Image3)
Image4 = CatchImage(4, ?Image4)
DataSection
Image0:
IncludeBinary "IMG\logo.bmp"
Image1:
IncludeBinary "IMG\hg.bmp"
Image2:
IncludeBinary "IMG\donwload.jpg"
Image3:
IncludeBinary "IMG\abbrechen.jpg"
Image4:
IncludeBinary "IMG\ok.jpg"
EndDataSection
Procedure LogoWindow()
hWnd = OpenWindow(#Window_0, 0, 0, 500, 100, #PB_Window_ScreenCentered|#PB_Window_BorderLess ,"")
hBitmap = Image0
SkinWin(hWnd, hBitmap)
CreateGadgetList(WindowID(#Window_0))
notused = OpenWindow(#PB_Any,0,0,0,0,#PB_Window_Invisible,"")
SetWindowLong_(WindowID(#Window_0),#GWL_HWNDPARENT,WindowID(notused))
EndProcedure
Procedure SetupWindow()
hWnd = OpenWindow(#Window_2, 0, 0, 500, 400, #PB_Window_ScreenCentered|#PB_Window_BorderLess, "Tears Theme Loader")
hBitmap = Image1
SkinWin(hWnd, hBitmap)
CreateGadgetList(WindowID(#Window_2))
notused = OpenWindow(#PB_Any,0,0,0,0,#PB_Window_Invisible,"")
SetWindowLong_(WindowID(#Window_2),#GWL_HWNDPARENT,WindowID(notused))
ImageGadget(#download,25,40,183,13,Image2)
ImageGadget(#abbrechen,125,375,108,13,Image3)
ImageGadget(#ok,342,375,29,13,Image4)
StringGadget(#String_wallpaper,25,155,170,20,"C:\")
StringGadget(#String_boot,25,220,170,20,"C:\")
StringGadget(#String_loggon,25,280,170,20,"C:\")
StringGadget(#String_icon,25,340,170,20,"C:\")
ButtonGadget(#button_wallpaper,195,155,20,20,"...")
ButtonGadget(#button_boot,195,220,20,20,"...")
ButtonGadget(#button_loggon,195,280,20,20,"...")
ButtonGadget(#button_icon,195,340,20,20,"...")
EndProcedure
Procedure StatusWindow()
If OpenWindow(0,0,0,500,70,#PB_Window_ScreenCentered,"Laden der Dateien") And CreateGadgetList(WindowID(0))
TextGadget(0,10,10,480,20,"")
TextGadget(1,10,40,480,20,"")
EndIf
EndProcedure
Procedure SetText(von.s, nach.s)
SetGadgetText(0,von.s)
SetGadgetText(1,nach.s)
EndProcedure
;LogoWindow()
;Delay(5000)
CloseWindow(#Window_0)
SetupWindow()
Repeat
Event = WaitWindowEvent()
WindowID = EventWindowID()
GadgetID = EventGadgetID()
EventType = EventType()
If Event = #PB_EventGadget
If GadgetID = #button_wallpaper
;{
If OpenWindow(0,0,0,300,300,#PB_Window_ScreenCentered,"Wallpaper") And CreateGadgetList(WindowID(0))
ExplorerTreeGadget(0, 5, 5, 280, 260, GetGadgetText(#String_wallpaper) ,#PB_Explorer_NoFiles)
ButtonGadget(1,5,265,90,20,"Abbrechen")
ButtonGadget(2,100,265,90,20,"OK")
EndIf
Repeat
Event = WaitWindowEvent()
WindowID = EventWindowID()
GadgetID = EventGadgetID()
EventType = EventType()
If Event = #PB_EventGadget
If GadgetID = 2
SetGadgetText(#String_wallpaper, GetGadgetText(0))
ok = 1
EndIf
EndIf
Until GadgetID = 1 Or ok = 1
CloseWindow(0)
ok = 0
;}
ElseIf GadgetID = #button_boot
;{
If OpenWindow(0,0,0,300,300,#PB_Window_ScreenCentered,"Bootscreen") And CreateGadgetList(WindowID(0))
ExplorerTreeGadget(0, 5, 5, 280, 260, GetGadgetText(#String_boot) ,#PB_Explorer_NoFiles)
ButtonGadget(1,5,265,90,20,"Abbrechen")
ButtonGadget(2,100,265,90,20,"OK")
EndIf
Repeat
Event = WaitWindowEvent()
WindowID = EventWindowID()
GadgetID = EventGadgetID()
EventType = EventType()
If Event = #PB_EventGadget
If GadgetID = 2
SetGadgetText(#String_boot, GetGadgetText(0))
ok = 1
EndIf
EndIf
Until GadgetID = 1 Or ok = 1
CloseWindow(0)
ok = 0
;}
ElseIf GadgetID = #button_loggon
;{
If OpenWindow(0,0,0,300,300,#PB_Window_ScreenCentered,"Loggonscreen") And CreateGadgetList(WindowID(0))
ExplorerTreeGadget(0, 5, 5, 280, 260, GetGadgetText(#String_loggon) ,#PB_Explorer_NoFiles)
ButtonGadget(1,5,265,90,20,"Abbrechen")
ButtonGadget(2,100,265,90,20,"OK")
EndIf
Repeat
Event = WaitWindowEvent()
WindowID = EventWindowID()
GadgetID = EventGadgetID()
EventType = EventType()
If Event = #PB_EventGadget
If GadgetID = 2
SetGadgetText(#String_loggon, GetGadgetText(0))
ok = 1
EndIf
EndIf
Until GadgetID = 1 Or ok = 1
CloseWindow(0)
ok = 0
;}
ElseIf GadgetID = #button_icon
;{
If OpenWindow(0,0,0,300,300,#PB_Window_ScreenCentered,"System Icons") And CreateGadgetList(WindowID(0))
ExplorerTreeGadget(0, 5, 5, 280, 260, GetGadgetText(#String_icon) ,#PB_Explorer_NoFiles)
ButtonGadget(1,5,265,90,20,"Abbrechen")
ButtonGadget(2,100,265,90,20,"OK")
EndIf
Repeat
Event = WaitWindowEvent()
WindowID = EventWindowID()
GadgetID = EventGadgetID()
EventType = EventType()
If Event = #PB_EventGadget
If GadgetID = 2
SetGadgetText(#String_icon, GetGadgetText(0))
ok = 1
EndIf
EndIf
Until GadgetID = 1 Or ok = 1
CloseWindow(0)
ok = 0
;}
ElseIf GadgetID = #download
RunProgram("http://www.chip.de/downloads/c1_downloads_13003046.html","","")
ElseIf GadgetID = #abbrechen
End
ElseIf GadgetID = #ok
Debug "Okay Button"
EndIf
EndIf
Until Event = #PB_Event_CloseWindow
, was soll das sein?
und es geht danke an allen