Buchempfehlung
MySQL kurz & gut
MySQL kurz & gut
Das preiswerte Taschen- buch stellt MySQL-rele- vante Inhalte systematisch und knapp dar, sodass es sich optimal zum Nach- schlagen beim Pro- grammieren eignet. [Mehr Infos...]
FreeBASIC-Chat
Es sind Benutzer im FreeBASIC-Chat online.
(Stand:  )
FreeBASIC bei Twitter
Twitter FreeBASIC-Nachrichten jetzt auch über Twitter erhalten. Follow us!

fb:porticula NoPaste

Info
Info / Hilfe Liste
Übersicht / Liste Neu
Datei hochladen Suche
Quellcode suchen Download
Dateidownload

Dateibrowser mit Fehlern

Uploader:MitgliedWestbeam
Datum/Zeit:05.10.2011 22:00:47

Screen 12

#Include "dir.bi"

Dim As Any Ptr folder,file
folder=Imagecreate(32,32)
file=Imagecreate(32,32)

line folder,(0,0)-(31,31),15,BF
line folder,(2,7)-(31,28),7,BF
pset folder,(31,7),15
pset folder,(31,28),15
pset folder,(30,28),15
pset folder,(31,27),15
line folder,(5,3)-(13,3),0
Pset folder,(14,4),0
line folder,(0,8)-(5,3),0
line folder,(15,5)-(28,5),0
line folder,(1,7)-(26,7),0
line folder,(0,8)-(0,26),0
line folder,(29,6)-(29,24),0
line folder,(27,8)-(27,26),0
pset folder,(28,25),0
line folder,(0,26)-(27,26),0
line folder,(1,8)-(26,8),14,,&b10101010101010101010101010
line folder,(1,10)-(26,10),14,,&b10101010101010101010101010
line folder,(1,12)-(26,12),14,,&b10101010101010101010101010
line folder,(1,14)-(26,14),14,,&b10101010101010101010101010
line folder,(1,16)-(26,16),14,,&b10101010101010101010101010
line folder,(1,18)-(26,18),14,,&b10101010101010101010101010
line folder,(1,20)-(26,20),14,,&b10101010101010101010101010
line folder,(1,22)-(26,22),14,,&b10101010101010101010101010
line folder,(1,24)-(26,24),14,,&b10101010101010101010101010
line folder,(1,9)-(26,9),14,,&b01010101010101010101010101
line folder,(1,11)-(26,11),14,,&b01010101010101010101010101
line folder,(1,13)-(26,13),14,,&b01010101010101010101010101
line folder,(1,15)-(26,15),14,,&b01010101010101010101010101
line folder,(1,17)-(26,17),14,,&b01010101010101010101010101
line folder,(1,19)-(26,19),14,,&b01010101010101010101010101
line folder,(1,21)-(26,21),14,,&b01010101010101010101010101
line folder,(1,23)-(26,23),14,,&b01010101010101010101010101
line folder,(1,25)-(26,25),14,,&b01010101010101010101010101
line folder,(2,8)-(27,8),15,,&b10101010101010101010101010
line folder,(2,10)-(27,10),15,,&b10101010101010101010101010
line folder,(2,12)-(27,12),15,,&b10101010101010101010101010
line folder,(2,14)-(27,14),15,,&b10101010101010101010101010
line folder,(2,16)-(27,16),15,,&b10101010101010101010101010
line folder,(2,18)-(27,18),15,,&b10101010101010101010101010
line folder,(2,20)-(27,20),15,,&b10101010101010101010101010
line folder,(2,22)-(27,22),15,,&b10101010101010101010101010
line folder,(2,24)-(27,24),15,,&b10101010101010101010101010
line folder,(1,9)-(26,9),15,,&b10101010101010101010101010
line folder,(1,11)-(26,11),15,,&b10101010101010101010101010
line folder,(1,13)-(26,13),15,,&b10101010101010101010101010
line folder,(1,15)-(26,15),15,,&b10101010101010101010101010
line folder,(1,17)-(26,17),15,,&b10101010101010101010101010
line folder,(1,19)-(26,19),15,,&b10101010101010101010101010
line folder,(1,21)-(26,21),15,,&b10101010101010101010101010
line folder,(1,23)-(26,23),15,,&b10101010101010101010101010
line folder,(1,25)-(26,25),15,,&b10101010101010101010101010
line folder,(3,6)-(27,6),14,,&b10101010101010101010101010
line folder,(4,6)-(28,6),15,,&b10101010101010101010101010
pset folder,(27,7),15
line folder,(28,7)-(28,24),14,,&b1010101010101010
line folder,(28,7)-(28,24),15,,&b0101010101010101
pset folder,(5,4),14
pset folder,(6,4),15
pset folder,(7,4),14
pset folder,(8,4),15
pset folder,(9,4),14
pset folder,(10,4),15
pset folder,(11,4),14
pset folder,(12,4),15
pset folder,(13,4),14
line folder,(0,5)-(14,5),14,,&b01010101010
line folder,(0,5)-(14,5),15,,&b10101010101
pset folder,(3,5),0
pset folder,(4,5),14

line file,(0,0)-(31,31),15,BF
line file,(5,12)-(28,31),7,BF
line file,(3,0)-(15,0),0
line file,(3,0)-(3,29),0
line file,(3,29)-(26,29),0
line file,(26,29)-(26,11),0
line file,(26,11)-(15,0),0
line file,(15,0)-(15,11),0
line file,(15,11)-(26,11),0
paint file,(5,2),15,0
paint file,(18,7),7,0

Chdir("../..")

Dim Shared As String filename,foldername

Type Icon
    As String nam,typ
    As Integer x,y
End Type

Color 0,15

Dim Shared As Icon Files(999)
Declare Sub AddFile()
Dim Shared As Integer anzfiles,mx,my,mb,tempx,tempy

Declare Sub ShowFiles()
ShowFiles()
Do
    Sleep 1
    Getmouse mx,my,,mb
    Screenlock
        Cls
        Line (0,0)-(640,480),15,BF
        For i As Integer=1 To anzfiles
            If Files(i).typ="Folder" Then Put (Files(i).x,Files(i).y),folder,Pset
            If Files(i).typ="File" Then Put (Files(i).x,Files(i).y),file,Pset
            Draw String (Files(i).x,Files(i).y+34),Files(i).nam
            If mx>Files(i).x And mx<Files(i).x+32 And my>Files(i).y And my<Files(i).y+32 And mb=1 Then
                Chdir(Files(i).nam)
                Cls
                Files(i).x=0
                Files(i).y=10
                anzfiles=0
                ShowFiles()
                Sleep 200
            End If
            Draw String(500,460),CurDIr
        Next
    Screenunlock
Loop Until Inkey=Chr(27)
ImageDestroy folder
ImageDestroy file
End

Sub AddFile()
    anzfiles+=1
    With Files(anzfiles)
        .y=10
        .x+=anzfiles*100-60
        If .x>600 Then
            .x=30
            .y+=anzfiles*60-355
        End If
    End With
End Sub

Sub ShowFiles()
foldername = DIR("*", fbDirectory,0)
DO
    AddFile()
    Files(anzfiles).nam=foldername
    Files(anzfiles).typ="Folder"
    foldername = DIR("", 0)
LOOP WHILE LEN(foldername)
filename = DIR("*", 0)
DO
    AddFile()
    Files(anzfiles).nam=filename
    Files(anzfiles).typ="File"
    filename = DIR("", 0)
LOOP WHILE LEN(filename)
End Sub