Y=10 I Locate(10,Y+10) , trotzdem wird alles überschrieben
Verfasst: 06.02.2005 18:41
moin,
sorry wegn dem komüschen titel,mir fiel nix ein,also mein problem
ich hab versucht mit ExamineDirectory() im openscreen() die ordner und dateien anzuzeigen,mein problem ist aber,das sich alles überschreibt...hier ist mein code
könnt ihr mir helfen?
sorry wegn dem komüschen titel,mir fiel nix ein,also mein problem
ich hab versucht mit ExamineDirectory() im openscreen() die ordner und dateien anzuzeigen,mein problem ist aber,das sich alles überschreibt...hier ist mein code
Code: Alles auswählen
Enumeration
#Maus
EndEnumeration
InitSprite()
InitMouse()
InitKeyboard()
OpenScreen(800,600,16,"Test")
LoadSprite(#Maus,"C:\Eigene Dateien\Eigene Bilder\Maus.bmp")
Verzeichnis$=("C:\")
Y=10
Menu=1
Repeat
ExamineMouse()
ExamineKeyboard()
ClearScreen(0,0,0)
Select Menu
Case 1
ExamineDirectory(#PB_Any,Verzeichnis$,"*.*")
DisplaySprite(#Maus,MouseX(),MouseY())
FileType = NextDirectoryEntry()
If FileType
FileName$ = DirectoryEntryName()
If FileType = 2 ; Directory type
FileName$ = "(Ordner) "+FileName$
EndIf
EndIf
Repeat
FileType = NextDirectoryEntry()
If FileType
FileName$ = DirectoryEntryName()
If FileType = 2 ; Directory type
FileName$ = "(DIR) "+FileName$
EndIf
StartDrawing(ScreenOutput())
FrontColor(128,128,128)
DrawingMode(1)
Locate(10,Y+10)
DrawText(FileName$)
StopDrawing()
EndIf
Until FileType = 0
EndSelect
If MouseButton(2)
quit=1
EndIf
FlipBuffers()
Until quit=1
End