Verfasst: 28.04.2006 21:30
schick mir mal den ganzen code an romartens@arcor.de,kann ihn mir ja mal anschauen.
Code: Alles auswählen
OpenFile(0, "Setting\PC "+ GetGadgetText(#Listview_0) + ".set")
Adresse$ = ReadString()
If Adresse$ = ""
WriteStringN("\\" + GetGadgetText(#Listview_0) + "\Shut in time down.time")
Adresse$ = "\\" + GetGadgetText(#Listview_0) + "\Shut in time down.time"
EndIf
CloseFile(0)
If OpenFile(0, Adresse$)
;RemoveImage(#Image_0)
LoadImage(21, "IMG\on.ico")
;ImageGadget(#Image_0, 115, 10, 45, 65,UseImage(21))
CreateImage(25,100,100)
StartDrawing(ImageOutput())
;Circle(115, 10, 45, 65,RGB(0,0,255))
Box(115, 10, 45, 65, GetSysColor_(#Window_Auswahl))
StopDrawing()
SetGadgetState(#Image_0, UseImage(25))
CloseWindow(#Phat_eingabe)
Else
Debug "Öffnen der datei im Netzwerk fehlgeschlagen"
;RemoveImage(#Image_0)
LoadImage(22, "IMG\off.ico")
;ImageGadget(#Image_0, 115, 10, 45, 65,UseImage(21))
SetGadgetState(#Image_0, UseImage(22))
Open_Phat_eingabe()
SetGadgetText(#PC_Name_Install, "\\"+ GetGadgetText(#Listview_0) + "\")
EndIf
;RemoveImage(#Image_0)
LoadImage(21, "IMG\on.ico")
;ImageGadget(#Image_0, 115, 10, 45, 65,UseImage(21))
CreateImage(25,100,100)
StartDrawing(ImageOutput())
;Circle(115, 10, 45, 65,RGB(0,0,255))
Box(0, 0, 100, 100, GetSysColor_(#Window_Auswahl))
StopDrawing()
SetGadgetState(#Image_0, UseImage(25))
CloseWindow(#Phat_eingabe)
Code: Alles auswählen
GetSysColor_(#COLOR_BTNFACE)