File/Folder browsing in Blitz3D...

-=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- (c) WidthPadding Industries 1987 0\|519\|0 -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=-
Socoder -> Blitz -> File/Folder browsing in Blitz3D...
Wed, 19 Mar 2008, 12:54
Forklift_Fred	I'm sure I saw it here somewhere but I can't find it now... I'm looking for a quick solution for some basic file accessing. I've just about got by with what I've needed to do by placing my exe into the right folder and running it (it does various checks and stuff on whatever files are in the current folder) but I'd like to be able to run the program from a shortcut and navigate my way to the relevant folder from with it so I can also have a config/preferences file. As I say, I'm sure someone posted a snippet of functions for a basic file browser... unless it was at BB.com (I don't go there very often) So can anyone help? (either point me to it or give me some direction on doing it myself) Thanks -=-=- Come rain or shine...
Wed, 19 Mar 2008, 13:10
Afr0	but I'd like to be able to run the program from a shortcut and navigate my way to the relevant folder from with it so I can also have a config/preferences file. Not sure what you mean by this, really, but it sounds like you're looking at making your own registry entries with an install program. To read these from within Blitz, look at some dcls files that were written for use with various Windows libraries within Blitz. I'm sure I've seen some over at BlitzBasic.com -=-=- Afr0 Games Project Dollhouse on Github - Please fork!
Wed, 19 Mar 2008, 15:31
Phoenix	Graphics(400, 300, 0, 2) SetBuffer(BackBuffer()) ; All files in the current dir are given a File ; Cleared each time a new dir is browsed Type File Field name$ Field n ; This field is only used to draw each item at different positions. It is a unique id. Field isDir End Type path$ = "C:" lastDir$ = "" scrollOffset = 0 GetDirInfo(path$) While(Not KeyHit(1)) mx = MouseX() my = MouseY() mh1 = MouseHit(1) scrollOffset = MouseZ()20 For f.File = Each File ; Store where on the screen the file information will be drawn. ; This is just for convenience -- I could just write in the values wherever they are needed, ; but this is more flexible. ; There is a 5 pixel indent from the screen edge, to make it look nicer. ; f\n is the id number. If we multiply it by 14, the files' y values become: ; 0, 14, 28, 42, etc. itemX = 5 itemY = 5+f\n14 + scrollOffset itemW = StringWidth(f\name$) itemH = 14 If(RectsOverlap(mx, my, 1, 1, itemX, itemY, itemW, itemH)) ; Draw rollover effect Color(90, 90, 90) Rect(itemX, itemY, itemW, itemH, True) ; See if a directory has been clicked If(mh1 And f\isDir) ; If we don't reset the scroll value the new folder's contents might be drawn outside the screen scrollOffset = 0 ; . and .. mean that we want to browse upwards If(f\name$ = "." Or f\name$ = "..") ; We strip away the top directory from the path if we want to move up stripLoc = Instr(path, "\"+lastDir) path$ = Left(path, stripLoc) Else ; If we browse deeper into the system we just append the folder name to the path path$ = path$ + "\" + f\name$ EndIf lastDir$ = f\name$ GetDirInfo(path$) Exit ; See if a file has been clicked Else If(mh1) Cls Color(255, 255, 255) Print("You selected "+f\name$ + ".") Delay(3000) EndIf EndIf ; Directories are drawn slightly more yellow than files, which are drawn as plain white If(f\isDir) Color(255, 255, 128) Else Color(255, 255, 255) EndIf Text(itemX, itemY, f\name$) Next Flip() Cls() Wend ; Kills all old files stored and loads the new files in Function GetDirInfo(path$) Delete Each File n = 0 ; Read the desired folder dir = ReadDir(path) If(dir = 0) Then Return ; Loop through all the files in the folder and store relevant information While(True) file$ = NextFile(dir) If(file = "") Then Exit ; FileType = 1 means that the file is a file ; FileType = 2 means that the file is a dir ; Store some basic information about the file; its name, its id and if it is a dir or not. Select(FileType(path+"\"+file)) Case 1 f.File = New File f\name$ = file f\n = n f\isDir = False Case 2 f.File = New File f\name$ = file f\n = n f\isDir = True End Select ; We increase this number to give our next file another n value. n = n + 1 Wend CloseDir(dir) End Function --v At first, I just meant to write a little example, but it became a full file explorer instead Use the scroll wheel to scroll in big folders.
Wed, 19 Mar 2008, 16:14
Forklift_Fred	@ Afro: Thanks but that's a step further than I was wanting to go. Your right though, I think I confused things with my wording there! @ Phoenix: Thank you, that will certainly do the job. I can tweak it and mold it from there. Bit confused by the "." and ".." directories though, I thought "." was the root and ".." was the previous (up 1 level), they both appear to do the same here. Doesn't really matter though, I can easily add a root link and probably keep the two at the top for easy access. Really appreciate that. Thanks. -=-=- Come rain or shine...
Wed, 19 Mar 2008, 16:22
Phoenix	Actually, they behave the same because I programmed them to do so. Couldn't be bothered giving the different behaviors Update the folder checking code to this: If(f\name$ = ".") ; Should strip everything except the two first letters (the drive name and a colon, eg C:) path$ = Left(path, 2) Else If(f\name$ = "..") ; We strip away the top directory from the path if we want to move up stripLoc = Instr(path, "\"+lastDir) path$ = Left(path, stripLoc) Else ; If we browse deeper into the system we just append the folder name to the path path$ = path$ + "\" + f\name$ EndIf --v
Wed, 19 Mar 2008, 18:21
Forklift_Fred	Aaah fair enough Thanks for the update. I've modified the scrolling to stop it going beyond the top and bottom. It's a bit patchy at the bottom (and looks messy anyway!) but it does the job. Had to globalise n (which should probably be renamed now it's global) and added "Global static" and reset it with "static=MouseZ()" after the "scrollOffset = 0" in the folder checking. Then replace the "scrollOffset = MouseZ()20" with scrollOffset = -(static-MouseZ())20 If scrollOffset>0 Then scrollOffset=0 static=MouseZ() End If If -scrollOffset>((n20)-(GraphicsHeight()/20))/2 Then scrollOffset=-(Floor((((n20)-(GraphicsHeight()/20))/2)/20)*20) static=static-(MouseZSpeed()+1) End If --v Like I said, it's messy! Next step is to add the keyboard function of Home to scroll to the top and maybe Page Up/Down because I like to use the keyboard sometimes -=-=- Come rain or shine...
Thu, 20 Mar 2008, 14:57
Forklift_Fred	OK, something wasn't right and like I said, it was "a bit patchy at the bottom" and now I know why. Where you had it scrolling at a rate of *MouseZ()20** I took that to be the line spacing (although I usually use 15 myself and it clearly states in your comments that you used 14!!) thus all the messy calculations 20 and /20 were wrong. When I added Home* and End control it became all to apparent when the Windows folder listing wasn't even going half way! So I eventually resolved that and added cursor control and struggled with setting the static value correctly... The easiest way was to change the fixed relationship between MouseZ() and scrollOffset into a relative increment relationship with MouseZSpeed() so it worked the same as the keyboard. Thus I have come to a much cleaner code and removed the static variable I now have the following globals set up... Global n Global maxoffset Global linesperpage Global lineheight=StringHeight("test") --v Where lineheight is variable depending on the size of the font used (and has to be set before the directories are read to prevent a divide by zero error!) and maxoffset stops the bottom of the list from scrolling too high up the screen. These are all set at the end of the GetDirInfo() function thus: lineheight=StringHeight("test") linesperpage = GraphicsHeight() / lineheight maxoffset = (n - linesperpage + 2) * lineheight If maxoffset < linesperpage Then maxoffset = 0 --v Now replace the scrolling section of the code (originaly just *scrollOffset = MouseZ()20 at the top of the While** loop with this... mzs = MouseZSpeed() If KeyDown(208) Then ; Up scrollOffset = scrollOffset - 2 Else If KeyDown(200) Then ; Down scrollOffset = scrollOffset + 2 Else If KeyHit(201) Then ; Page Up scrollOffset = scrollOffset + linesperpage * lineheight Else If KeyHit(209) Then ; Page Down scrollOffset = scrollOffset - linesperpage * lineheight Else If mzs Then scrollOffset = scrollOffset + mzs * lineheight End If If scrollOffset > 0 Or KeyHit(199) Then scrollOffset = 0 End If If -scrollOffset > maxoffset Or KeyHit(207) Then scrollOffset = -maxoffset End If --v Note the addition of mzs = MouseZSpeed() to go along with the my, mx, mh1 abbreviations, this is what increments the scrolloffset. Putting it all together, you end up with... Graphics(400,300, 0, 2) SetBuffer(BackBuffer()) ; All files in the current dir are given a File ; Cleared each time a new dir is browsed Type File Field name$ Field n ; This field is only used to draw each item at different positions. It is a unique id. Field isDir End Type path$ = "C:" lastDir$ = "" scrollOffset = 0 Global n Global maxoffset Global linesperpage Global lineheight=StringHeight("test") GetDirInfo(path$) While(Not KeyHit(1)) mx = MouseX() my = MouseY() mh1 = MouseHit(1) mzs = MouseZSpeed() If KeyDown(208) Then ; Up scrollOffset = scrollOffset - 2 Else If KeyDown(200) Then ; Down scrollOffset = scrollOffset + 2 Else If KeyHit(201) Then ; Page Up scrollOffset = scrollOffset + linesperpage * lineheight Else If KeyHit(209) Then ; Page Down scrollOffset = scrollOffset - linesperpage * lineheight Else If mzs Then scrollOffset = scrollOffset + mzs * lineheight ; Scrollwheel End If If scrollOffset > 0 Or KeyHit(199) Then ; Home scrollOffset = 0 End If If -scrollOffset > maxoffset Or KeyHit(207) Then ; End scrollOffset = -maxoffset End If For f.File = Each File ; Store where on the screen the file information will be drawn. ; This is just for convenience -- I could just write in the values wherever they are needed, ; but this is more flexible. ; There is a 5 pixel indent from the screen edge, to make it look nicer. ; f\n is the id number. If we multiply it by 14, the files' y values become: ; 0, 14, 28, 42, etc. itemX = 5 itemY = 5+f\nlineheight + scrollOffset itemW = StringWidth(f\name$) itemH = lineheight If(RectsOverlap(mx, my, 1, 1, itemX, itemY, itemW, itemH)) ; Draw rollover effect Color(255, 90, 90) Rect(itemX, itemY, itemW, itemH, True) ; See if a directory has been clicked If(mh1 And f\isDir) ; If we don't reset the scroll value the new folder's contents might be drawn outside the screen scrollOffset = 0 ; . and .. mean that we want to browse upwards If(f\name$ = ".") ; Should strip everything except the two first letters (the drive name and a colon, eg C:) path$ = Left(path, 2) Else If(f\name$ = "..") ; We strip away the top directory from the path if we want to move up stripLoc = Instr(path, "\"+lastDir) path$ = Left(path, stripLoc) Else ; If we browse deeper into the system we just append the folder name to the path path$ = path$ + "\" + f\name$ EndIf lastDir$ = f\name$ GetDirInfo(path$) Exit ; See if a file has been clicked Else If(mh1) Cls Color(255, 255, 255) Print("You selected "+f\name$ + ".") Delay(3000) EndIf EndIf ; Directories are drawn slightly more yellow than files, which are drawn as plain white If(f\isDir) Color(255, 255, 128) Else Color(255, 255, 255) EndIf Text(itemX, itemY, f\name$) Next Flip() Cls() Wend End ; Kills all old files stored and loads the new files in Function GetDirInfo(path$) Delete Each File n = 0 ; Read the desired folder dir = ReadDir(path) If(dir = 0) Then Return ; Loop through all the files in the folder and store relevant information While(True) file$ = NextFile(dir) If(file = "") Then Exit ; FileType = 1 means that the file is a file ; FileType = 2 means that the file is a dir ; Store some basic information about the file; its name, its id and if it is a dir or not. Select(FileType(path+"\"+file)) Case 1 f.File = New File f\name$ = file f\n = n f\isDir = False Case 2 f.File = New File f\name$ = file f\n = n f\isDir = True End Select ; We increase this number to give our next file another n value. n = n + 1 Wend linesperpage = GraphicsHeight() / lineheight maxoffset = (n - linesperpage + 2) lineheight If maxoffset < linesperpage Then maxoffset = 0 CloseDir(dir) End Function --v As you can see, It's still the same basic solution but with some added functionality and a tweak to allow for it. Built on Phoenix's original, I couldn't have done it on my own so big thanks to you -=-=- Come rain or shine...
Thu, 20 Mar 2008, 17:16
Phoenix	(Yes, I am bored!) Now features a draggable window! Click the mouse to show the file selection dialog. Change wndW and wndH to get different window sizes. Const gfxW = 400 Const gfxH = 300 Graphics(gfxW, gfxH, 0, 2) SetBuffer(BackBuffer()) ; All files in the current dir are given a File ; Cleared each time a new dir is browsed Type File Field name$ Field n ; This field is only used to draw each item at different positions. It is a unique id. Field isDir End Type Global n Global maxoffset Global linesperpage Global lineheight=StringHeight("test") Global wndW = 300 Global wndH = 200 Global wndX = gfxW/2-wndW/2 Global wndY = gfxH/2-wndH/2 While(Not KeyHit(1)) For x = 0 To 10 For y = 0 To 10 Color(Rand(255),Rand(255),Rand(255)) Rect(Rand(-100,400),Rand(-100,300),Rand(200),Rand(200)) Next Next If(MouseHit(1)) name$ = AskFileName() AppTitle(name) EndIf Flip() VWait() Wend End Function AskFileName$() path$ = "C:" lastDir$ = "" scrollOffset = 0 ; Capture the screen and darken it screen = CreateImage(gfxW, gfxH) CopyRect(0, 0, gfxW, gfxH, 0, 0, FrontBuffer(), ImageBuffer(screen)) LockBuffer(ImageBuffer(screen)) For x = 0 To gfxW-1 For y = 0 To gfxH-1 col = ReadPixelFast(x, y, ImageBuffer(screen)) b = (col And $ff) / 10 g = ((col Shr 8) And $ff) / 10 r = ((col Shr 16) And $ff) / 10 argb = (((($ff) Shl 8) + r Shl 8) + g Shl 8) + b WritePixelFast(x, y, argb, ImageBuffer(screen)) Next Next UnlockBuffer(ImageBuffer(screen)) GetDirInfo(path$) While(Not KeyHit(1)) mx = MouseX() my = MouseY() mh1 = MouseHit(1) md1 = MouseDown(1) mzs = MouseZSpeed() Viewport(0, 0, gfxW, gfxH) DrawImage(screen, 0, 0) ; Instead of Cls() ; Draw the window body Color(240,240,240) ; Background color Rect(wndX,wndY,wndW,wndH) Color(0,0,0) ; Border Rect(wndX+1, wndY+1, wndW-2, wndH-2,0) ; Draw the header Text(wndX+2, wndY+2, "Please select a file:") Line(wndX+1, wndY+1+lineHeight+1, wndX+wndW-2, wndY+1+lineHeight+1) ; Draw a little X Line(wndX+wndW-lineHeight-3, wndY+3, wndX+wndW-6, wndY+lineHeight) Line(wndX+wndW-6, wndY+3, wndX+wndW-lineHeight-3, wndY+lineHeight) Viewport(wndX+2, wndY+2+lineHeight, wndW-4, wndH-lineHeight-4) If KeyDown(208) Then ; Up scrollOffset = scrollOffset - 2 Else If KeyDown(200) Then ; Down scrollOffset = scrollOffset + 2 Else If KeyHit(201) Then ; Page Up scrollOffset = scrollOffset + linesperpage * lineheight Else If KeyHit(209) Then ; Page Down scrollOffset = scrollOffset - linesperpage * lineheight Else If mzs Then scrollOffset = scrollOffset + mzs * lineheight ; Scrollwheel End If If scrollOffset > 0 Or KeyHit(199) Then ; Home scrollOffset = 0 End If If -scrollOffset > maxoffset Or KeyHit(207) Then ; End scrollOffset = -maxoffset End If ; Window dragging! If(mh1) ; See if we clicked the X If(RectsOverlap(wndX+wndW-lineHeight-3, wndY+3, wndX+wndW-6, wndY+lineHeight, mx, my, 1, 1)) Viewport(0, 0, gfxW, gfxH) Return "No file selected" Else If(RectsOverlap(wndX, wndY, wndW, lineHeight+2, mx, my, 1, 1)) dragging = True dragXoff = wndX-mx dragYoff = wndY-my EndIf EndIf If(md1) If(dragging) wndX = mx+dragXoff wndY = my+dragYoff EndIf Else dragging = False EndIf For f.File = Each File ; Store where on the screen the file information will be drawn. ; This is just for convenience -- I could just write in the values wherever they are needed, ; but this is more flexible. ; There is a 5 pixel indent from the screen edge, to make it look nicer. ; f\n is the id number. If we multiply it by 14, the files' y values become: ; 0, 14, 28, 42, etc. itemX = wndX+5+2 itemY = wndY+2+lineHeight+5+f\nlineheight + scrollOffset itemW = wndX+wndW-4 itemH = lineheight If(Not dragging) If(RectsOverlap(mx, my, 1, 1, itemX, itemY, itemW, itemH)) ; Draw rollover effect Color(255, 200, 200) Rect(itemX, itemY, itemW, itemH, True) ; See if a directory has been clicked If(mh1 And f\isDir) ; If we don't reset the scroll value the new folder's contents might be drawn outside the screen scrollOffset = 0 ; . and .. mean that we want to browse upwards If(f\name$ = ".") ; Should strip everything except the two first letters (the drive name and a colon, eg C:) path$ = Left(path, 2) Else If(f\name$ = "..") ; We strip away the top directory from the path if we want to move up stripLoc = Instr(path, "\"+lastDir) path$ = Left(path, stripLoc) Else ; If we browse deeper into the system we just append the folder name to the path path$ = path$ + "\" + f\name$ EndIf lastDir$ = f\name$ GetDirInfo(path$) Exit ; See if a file has been clicked Else If(mh1) Viewport(0, 0, gfxW, gfxH) Return path+"\"+f\name EndIf EndIf EndIf ; Directories are drawn slightly more red than files, which are drawn as plain white If(f\isDir) Color(200, 50, 0) Else Color(0, 0, 0) EndIf Text(itemX, itemY, f\name$) Next Flip() Wend End Function ; Kills all old files stored and loads the new files in Function GetDirInfo(path$) Delete Each File n = 0 ; Read the desired folder dir = ReadDir(path) If(dir = 0) Then Return ; Loop through all the files in the folder and store relevant information While(True) file$ = NextFile(dir) If(file = "") Then Exit ; FileType = 1 means that the file is a file ; FileType = 2 means that the file is a dir ; Store some basic information about the file; its name, its id and if it is a dir or not. Select(FileType(path+"\"+file)) Case 1 f.File = New File f\name$ = file f\n = n f\isDir = False Case 2 f.File = New File f\name$ = file f\n = n f\isDir = True End Select ; We increase this number to give our next file another n value. n = n + 1 Wend linesperpage = wndH / lineheight maxoffset = (n - linesperpage + 2) lineheight If maxoffset < linesperpage Then maxoffset = 0 CloseDir(dir) End Function --v
Thu, 20 Mar 2008, 17:37
Forklift_Fred	Well, since we're sharing, I've added the current location in a bar at the top and have just been fighting with a scroll bar - more for an indicator of how far down you are than to scroll with... my brain hurts too much to use it to scroll with Graphics(640,480, 0, 2) SetBuffer(BackBuffer()) ; All files in the current dir are given a File ; Cleared each time a new dir is browsed Type File Field name$ Field n ; This field is only used to draw each item at different positions. It is a unique id. Field isDir End Type path$ = CurrentDir$();"C:" path=Mid(path,1,Len(path)-1) lastDir$ = path$ scrollOffset = 0 Global n Global maxoffset Global linesperpage Global lineheight=StringHeight("test") GetDirInfo(path$) While(Not KeyHit(1)) mx = MouseX() my = MouseY() mh1 = MouseHit(1) mzs = MouseZSpeed() If KeyDown(208) Then ; Up scrollOffset = scrollOffset - 2 Else If KeyDown(200) Then ; Down scrollOffset = scrollOffset + 2 Else If KeyHit(201) Then ; Page Up scrollOffset = scrollOffset + linesperpage * lineheight Else If KeyHit(209) Then ; Page Down scrollOffset = scrollOffset - linesperpage * lineheight Else If mzs Then scrollOffset = scrollOffset + mzs * lineheight End If If scrollOffset > 0 Or KeyHit(199) Then ; Home scrollOffset = 0 End If If -scrollOffset > maxoffset Or KeyHit(207) Then ; End scrollOffset = -maxoffset End If For f.File = Each File ; Store where on the screen the file information will be drawn. ; This is just for convenience -- I could just write in the values wherever they are needed, ; but this is more flexible. ; There is a 5 pixel indent from the screen edge, to make it look nicer. ; f\n is the id number. If we multiply it by 14, the files' y values become: ; 0, 14, 28, 42, etc. itemX = 10 itemY = lineheight+5+f\nlineheight + scrollOffset itemW = StringWidth(f\name$) itemH = lineheight If(RectsOverlap(mx, my, 1, 1, itemX, itemY, itemW, itemH)) ; Draw rollover effect Color(255, 90, 90) Rect(itemX, itemY, itemW, itemH, True) ; See if a directory has been clicked If(mh1 And f\isDir) ; If we don't reset the scroll value the new folder's contents might be drawn outside the screen scrollOffset = 0 ; . and .. mean that we want to browse upwards If(f\name$ = ".") ; Should strip everything except the two first letters (the drive name and a colon, eg C:) path$ = Left(path, 2) Else If(f\name$ = "..") ; We strip away the top directory from the path if we want to move up stripLoc=Len(path)-1 While Mid(path,stripLoc,1)<>"\" stripLoc=stripLoc-1 Wend ; stripLoc = Instr(path, "\"+lastDir) path$ = Left(path, stripLoc-1) Else ; If we browse deeper into the system we just append the folder name to the path path$ = path$ + "\" + f\name$ EndIf lastDir$ = f\name$ GetDirInfo(path$) Exit ; See if a file has been clicked Else If(mh1) Cls Color(255, 255, 255) Print("You selected "+f\name$ + ".") Delay(3000) EndIf EndIf ; Directories are drawn slightly more yellow than files, which are drawn as plain white If(f\isDir) Color(255, 255, 128) Else Color(255, 255, 255) EndIf Text(itemX, itemY, f\name$) Next ; Put current location across the top Color 200,200,255 Rect 0,0,GraphicsWidth(),lineheight+1 Color 0,0,255 txt$=path ; Trim the earlier folders to fit on screen While StringWidth(txt)>GraphicsWidth() stripLoc=1 txtchk$="" While txtchk<>"\" txtchk=Mid(txt,stripLoc,1) stripLoc=stripLoc+1 Wend txt="..."+Mid(txt,stripLoc,Len(txt)-stripLoc+1) Wend Text 5,0,txt Text 4,0,txt ; Doubled up to make it bold - crude but effective ; Make Scrollbar (indicator only) Color 64,64,64 Rect 0,lineheight,9,GraphicsHeight()-lineheight Color 128,128,128 barheight=((GraphicsHeight()-lineheight)/(1+(n/linesperpage))) barpos=((GraphicsHeight()-lineheight-barheight)(Abs(scrollOffset+1)))/(1+maxoffset) Rect 1,lineheight+1+barpos,7,barheight Color 64,0,0 Rect 2,lineheight+2+barpos,5,barheight-2 Flip() Cls() Wend End ; Kills all old files stored and loads the new files in Function GetDirInfo(path$) Delete Each File n = 0 ; Read the desired folder dir = ReadDir(path) If(dir = 0) Then Return ; Loop through all the files in the folder and store relevant information While(True) file$ = NextFile(dir) If(file = "") Then Exit ; FileType = 1 means that the file is a file ; FileType = 2 means that the file is a dir ; Store some basic information about the file; its name, its id and if it is a dir or not. Select(FileType(path+"\"+file)) Case 1 f.File = New File f\name$ = file f\n = n f\isDir = False Case 2 f.File = New File f\name$ = file f\n = n f\isDir = True End Select ; We increase this number to give our next file another n value. n = n + 1 Wend linesperpage = (GraphicsHeight() / lineheight)-1 maxoffset = (n - linesperpage + 2) * lineheight If maxoffset < linesperpage Then maxoffset = 0 CloseDir(dir) End Function --v And you'll see that I'm working with a larger window but it should all scale properly anyway, even down to your movable window, though the location along the top will get trimmed very early Oh and I've also modified the lastDir part so that you can start anywhere and ".." will still take you up a level rather than having to know where you were. Previously, if you started within a few folders, if you clicked ".." first you would go to the root. Oh and the only thing I want to add now is the ability to scroll down to files starting with "H" by pressing "H" on the keyboard (or whichever letter, obviously)... cycle through the scancodes with KeyHit() then through the file list perhaps? -=-=- Come rain or shine...
Thu, 20 Mar 2008, 18:26
spinal	I'm watching this closely, my movie converter is begging for a file browser, but I'm too lazy to do it myself. -=-=- Check out my excellent homepage!
Fri, 21 Mar 2008, 11:47
Forklift_Fred	Well at least you're honest
Fri, 21 Mar 2008, 14:13
Forklift_Fred	Another update then... You can now use the keyboard to jump to specific letters and use Backspace to go up a level like Windows Explorer Add the scancodes to an array using Data statements: Dim scancode$(50) Restore scancodes For key=2 To 50 Read num ; This is purely to skip over the number, I've kept them for reference purposes! Read scancode(key) Next ... ... ... .scancodes Data 2,"1" Data 3,"2" Data 4,"3" Data 5,"4" Data 6,"5" Data 7,"6" Data 8,"7" Data 9,"8" Data 10,"9" Data 11,"0" Data 12,"-" Data 13,"=" Data 14,"Backspace" Data 15,"Tab" Data 16,"Q" Data 17,"W" Data 18,"E" Data 19,"R" Data 20,"T" Data 21,"Y" Data 22,"U" Data 23,"I" Data 24,"O" Data 25,"P" Data 26,"[" Data 27,"]" Data 28,"Enter" Data 29,"Left Ctrl" Data 30,"A" Data 31,"S" Data 32,"D" Data 33,"F" Data 34,"G" Data 35,"H" Data 36,"J" Data 37,"K" Data 38,"L" Data 39,";" Data 40,"'" Data 41,"\" Data 42,"Left Shift" Data 43,"#" Data 44,"Z" Data 45,"X" Data 46,"C" Data 47,"V" Data 48,"B" Data 49,"N" Data 50,"M" --v At the end of the scroll code, before the file checking begins, check and note key presses and go up a level if Backspace has been pressed: scrollto=0 For key=1 To 50 If KeyHit(key) Then DebugLog scancode(key) scrollto=key Exit End If Next ; If Backspace key has been hit go up one directory level just like ".." If scrollto=14 Then stripLoc=Len(path)-1 While Mid(path,stripLoc,1)<>"\" stripLoc=stripLoc-1 Wend path$ = Left(path, stripLoc-1) GetDirInfo(path$) scrollOffset=0 End If --v And finally, at the start of the file checking (before the mouse RectsOverlap part) do the scrolling: If Upper(Mid(f\name$,1,1))=scancode(scrollto) Then scrollOffset=-(f\nlineheight) DebugLog "Scroll to "+scrollto+" Letter "+scancode(scrollto)+" Offset "+scrollOffset scrollto=0 End If --v So the whole thing now looks like this: Graphics(640,480, 0, 2) SetBuffer(BackBuffer()) ; All files in the current dir are given a File ; Cleared each time a new dir is browsed Type File Field name$ Field n ; This field is only used to draw each item at different positions. It is a unique id. Field isDir End Type path$ = CurrentDir$();"C:" path=Mid(path,1,Len(path)-1) scrollOffset = 0 Global n Global maxoffset Global linesperpage Global lineheight=StringHeight("test") Dim scancode$(50) Restore scancodes For key=2 To 50 Read num ; This is purely to skip over the number, I've kept them for reference purposes! Read scancode(key) Next GetDirInfo(path$) While(Not KeyHit(1)) mx = MouseX() my = MouseY() mh1 = MouseHit(1) mzs = MouseZSpeed() If KeyDown(208) Then ; Up scrollOffset = scrollOffset - 2 Else If KeyDown(200) Then ; Down scrollOffset = scrollOffset + 2 Else If KeyHit(201) Then ; Page Up scrollOffset = scrollOffset + linesperpage lineheight Else If KeyHit(209) Then ; Page Down scrollOffset = scrollOffset - linesperpage * lineheight Else If mzs Then scrollOffset = scrollOffset + mzs * lineheight End If If scrollOffset > 0 Or KeyHit(199) Then ; Home scrollOffset = 0 End If If -scrollOffset > maxoffset Or KeyHit(207) Then ; End scrollOffset = -maxoffset End If scrollto=0 For key=1 To 50 If KeyHit(key) Then scrollto=key Exit End If Next ; If Backspace key has been hit go up one directory level just like ".." If scrollto=14 Then stripLoc=Len(path)-1 While Mid(path,stripLoc,1)<>"\" stripLoc=stripLoc-1 Wend path$ = Left(path, stripLoc-1) GetDirInfo(path$) scrollOffset=0 End If For f.File = Each File ; Store where on the screen the file information will be drawn. ; This is just for convenience -- I could just write in the values wherever they are needed, ; but this is more flexible. ; There is a 5 pixel indent from the screen edge, to make it look nicer. ; f\n is the id number. If we multiply it by 14, the files' y values become: ; 0, 14, 28, 42, etc. itemX = 10 itemY = lineheight+5+f\nlineheight + scrollOffset itemW = StringWidth(f\name$) itemH = lineheight If Upper(Mid(f\name$,1,1))=scancode(scrollto) Then scrollOffset=-(f\nlineheight) scrollto=0 End If If(RectsOverlap(mx, my, 1, 1, itemX, itemY, itemW, itemH)) ; Draw rollover effect Color(255, 90, 90) Rect(itemX, itemY, itemW, itemH, True) ; See if a directory has been clicked If(mh1 And f\isDir) ; If we don't reset the scroll value the new folder's contents might be drawn outside the screen scrollOffset = 0 ; . and .. mean that we want to browse upwards If(f\name$ = ".") ; Should strip everything except the two first letters (the drive name and a colon, eg C:) path$ = Left(path, 2) Else If(f\name$ = "..") Or scrollto=14 ; We strip away the top directory from the path if we want to move up stripLoc=Len(path)-1 While Mid(path,stripLoc,1)<>"\" stripLoc=stripLoc-1 Wend path$ = Left(path, stripLoc-1) Else ; If we browse deeper into the system we just append the folder name to the path path$ = path$ + "\" + f\name$ EndIf GetDirInfo(path$) Exit ; See if a file has been clicked Else If(mh1) Cls Color(255, 255, 255) Print("You selected "+f\name$ + ".") Delay(3000) EndIf EndIf ; Directories are drawn slightly more yellow than files, which are drawn as plain white If(f\isDir) Color(255, 255, 128) Else Color(255, 255, 255) EndIf Text(itemX, itemY, f\name$) Next ; Put current location across the top Color 200,200,255 Rect 0,0,GraphicsWidth(),lineheight+1 Color 0,0,255 txt$=path ; Trim the earlier folders to fit on screen While StringWidth(txt)>GraphicsWidth() stripLoc=1 txtchk$="" While txtchk<>"\" txtchk=Mid(txt,stripLoc,1) stripLoc=stripLoc+1 Wend txt="..."+Mid(txt,stripLoc,Len(txt)-stripLoc+1) Wend Text 5,0,txt Text 4,0,txt ; Doubled up to make it bold - crude but effective ; Make Scrollbar (indicator only) Color 64,64,64 Rect 0,lineheight,9,GraphicsHeight()-lineheight Color 128,128,128 barheight=((GraphicsHeight()-lineheight)/(1+(n/linesperpage))) barpos=((GraphicsHeight()-lineheight-barheight)(Abs(scrollOffset+1)))/(1+maxoffset) Rect 1,lineheight+1+barpos,7,barheight Color 64,0,0 Rect 2,lineheight+2+barpos,5,barheight-2 Flip() Cls() Wend End ; Kills all old files stored and loads the new files in Function GetDirInfo(path$) Delete Each File n = 0 ; Read the desired folder dir = ReadDir(path) If(dir = 0) Then Return ; Loop through all the files in the folder and store relevant information While(True) file$ = NextFile(dir) If(file = "") Then Exit ; FileType = 1 means that the file is a file ; FileType = 2 means that the file is a dir ; Store some basic information about the file; its name, its id and if it is a dir or not. Select(FileType(path+"\"+file)) Case 1 f.File = New File f\name$ = file f\n = n f\isDir = False Case 2 f.File = New File f\name$ = file f\n = n f\isDir = True End Select ; We increase this number to give our next file another n value. n = n + 1 Wend linesperpage = (GraphicsHeight() / lineheight)-1 maxoffset = (n - linesperpage + 2) lineheight If maxoffset < linesperpage Then maxoffset = 0 CloseDir(dir) End Function .scancodes Data 2,"1" Data 3,"2" Data 4,"3" Data 5,"4" Data 6,"5" Data 7,"6" Data 8,"7" Data 9,"8" Data 10,"9" Data 11,"0" Data 12,"-" Data 13,"=" Data 14,"Backspace" Data 15,"Tab" Data 16,"Q" Data 17,"W" Data 18,"E" Data 19,"R" Data 20,"T" Data 21,"Y" Data 22,"U" Data 23,"I" Data 24,"O" Data 25,"P" Data 26,"[" Data 27,"]" Data 28,"Enter" Data 29,"Left Ctrl" Data 30,"A" Data 31,"S" Data 32,"D" Data 33,"F" Data 34,"G" Data 35,"H" Data 36,"J" Data 37,"K" Data 38,"L" Data 39,";" Data 40,"'" Data 41,"\" Data 42,"Left Shift" Data 43,"#" Data 44,"Z" Data 45,"X" Data 46,"C" Data 47,"V" Data 48,"B" Data 49,"N" Data 50,"M" --v Just the scrollbar to action now... Not looking forward to that though because I'm expecting some ugly maths... -=-=- Come rain or shine...
Fri, 21 Mar 2008, 15:04
Forklift_Fred	Actually, it wasn't that hard A couple of fiddly moments where the scrollbar insisted of scrolling up when the mouse was down but not moving - which I think was due to numbers being rounded off in the original code and then fall short when I converted it back. I've added a global variable for the width of the scrollbar so when the file checking code sets the positioning it now says itemX = scrollbarwidth + 5 but apart from that, replace the existing scrollbar code with this... ; Make Scrollbar Color 64,64,64 Rect 0,lineheight,scrollbarwidth,GraphicsHeight()-lineheight Color 128,128,128 barheight=((GraphicsHeight()-lineheight)/(1+(n/linesperpage))) barpos=((GraphicsHeight()-lineheight-barheight)(Abs(scrollOffset+1)))/(1+maxoffset) Rect 1,lineheight+1+barpos,scrollbarwidth-2,barheight Color 64,0,0 Rect 2,lineheight+2+barpos,scrollbarwidth-4,barheight-2 ; Add mouse control of scrollbar... If RectsOverlap(MouseX(),MouseY(),1,1,1,lineheight+1+barpos,scrollbarwidth,barheight) And maxoffset>0 Then If MouseDown(1) Then barpos=barpos+MouseYSpeed() scrollOffset=-barpos(1+maxoffset)/(GraphicsHeight()-lineheight-barheight)-2 ; Now lighten the bar color to show it is active Color 128,0,0 Rect 2,lineheight+2+barpos,scrollbarwidth-4,barheight-2 End If End If --v Sorted! \|EDIT\| had to add And maxoffset>0 to the If RectsOverlap... because if there isn't enough files to scroll then it would try to divide 0 and crash. -=-=- Come rain or shine...
Sat, 22 Mar 2008, 05:22
Phoenix	You know, there is a GetKey() command
Sat, 22 Mar 2008, 18:05
Forklift_Fred	Yes but... does it make much difference? I avoided it thinking it was a 'wait until a key is pressed' command but that would be WaitKey()! I've just got into the habit of KeyHit() for using cursor keys. I suppose you'd be checking ASCII values rather than looking up in an array. Oh well, mine works well enough. Mind you, Backspace, Home, End, PageUp and PageDown would still need to be KeyHit() -=-=- Come rain or shine...
Wed, 26 Mar 2008, 13:44
Forklift_Fred	One last update (I think...) I thought I'd already put this to bed but after adding a load of my other code into it for its ultimate purpose and got that all working right, I was running a few tests and found that the scrollbar wasn't actually working correctly. It was OK for small listings where the bar doesn't move very much but longer file lists and therefore a smaller bar, lead to it jumping a lot further out of place. I went back in and after playing with the maths, resorted back to my original idea of adding a flag to indicate whether it is being dragged or not and basically attaching it to the pointer. I didn't try it originally because I thought it would be more work... turned out to be much easier and spot on! I've not added the variables as Global or Local (I have never bothered with Local anyway!) as they are only needed when you first grab the scrollbar and get switched on then, otherwise the initial False and 0 are perfect... ; Make Scrollbar scrollerheight = gfxh - lineheight - 1 barheight = (scrollerheight / (1 + (n / (linesperpage + 1)))) barpos = ((scrollerheight - barheight) * (Abs(scrollOffset + 1))) / (1 + maxoffset) Color 64, 64, 64 Rect 0, lineheight + 1, scrollbarwidth, scrollerheight Color 128, 128, 128 Rect 1, lineheight + 2 + barpos, scrollbarwidth - 2, barheight Color 64 + ( grab * 64), 0, 0 ; ( grab * 64 ) lightens the bar color if it is being dragged Rect 2, lineheight + 3 + barpos, scrollbarwidth - 4, barheight - 2 ; Add mouse control of scrollbar... If RectsOverlap(MouseX(), MouseY(), 1, 1, 1, lineheight + 2 + barpos, scrollbarwidth, barheight) And maxoffset > 0 Then If MouseDown(1) Then If Not grab Then grab = True mousegrab = MouseY() - barpos End If barpos = MouseY() - mousegrab scrollOffset = -barpos * (1 + maxoffset) / (scrollerheight - barheight) - 2 Else grab = False mousegrab = 0 End If Else If RectsOverlap(MouseX(), MouseY(), 1, 1, 0, lineheight + 1, scrollbarwidth, scrollerheight) And maxoffset > 0 Then If MouseY() < barpos And mh1 > 0 Then scrollOffset = scrollOffset + (linesperpage -1) * lineheight If MouseY() > (barpos + barheight) And mh1 > 0 Then scrollOffset= scrollOffset - (linesperpage-1) * lineheight Else grab = False mousegrab = 0 End If --v You'll see it's grab and mousegrab that I've added (I've also abbreviated the GraphicsHeight() down to gfxh (defined at the start of the program, not here) and abbreviated the size of the overall scroller down to scrollerheight) I also made the scrollbar colour definition more dynamic rather than drawing it twice if it's being dragged. Oh and while I was there, I added the ability to click above or below the bar to scroll whole pages. I'm sure the whole thing can be repeated horizontally without much effort too if needed -=-=- Come rain or shine...
Fri, 02 Nov 2018, 14:32
Dan	Hello, for my project i'v used the code from Phoenix, and here are my modifications: Const gfxW = 400 Const gfxH = 300 Graphics(gfxW, gfxH, 0, 2) Graphics(gfxW, gfxH, 0, 3) SetBuffer(BackBuffer()) ; All files in the current dir are given a File ; Cleared each time a new dir is browsed Type File Field name$ Field n ; This field is only used to draw each item at different positions. It is a unique id. Field isDir Field isTop End Type Global filecounter Global maxoffset Global linesperpage Global lineheight=StringHeight("test") Global DriveLetter$ Global wndW = 300 Global wndH = 200 Global wndX = gfxW/2-wndW/2 Global wndY = gfxH/2-wndH/2 While(Not KeyHit(1)) For x = 0 To 10 For y = 0 To 10 Color(Rand(255),Rand(255),Rand(255)) Rect(Rand(-100,400),Rand(-100,300),Rand(200),Rand(200)) Next Next If(MouseHit(1)) FO=Rand(0,1) DD=Rand(-1,1) msg$="Please choose a filename" If fo=1 msg$="Please select a folder" EndIf name$ = AskFileName(".",Rand(0,1),msg$,FO,DD,0) AppTitle(name) EndIf Delay 20 Flip() VWait() Wend End Function AskFileName$(ext$=".",GreenScreenEffect=0,dialogtxt$="Please select a file:",FoldersOnly=0,DisplayDrives=0,CheckDrive=0) ;DisplayDrives to show or hide Drive letters: 0 - dont show, 1 at top -1 at bottom of the list ;CheckDrive: 1=Check which drive letter is available - 0 - show all letters a-z ;FoldersOnly: use as folder selector, with extra button to select the folder DriveLetter$=GetDrive$(CheckDrive) ;DebugLog DriveLetter$ path$ = CurrentDir() ;DebugLog path$ If Right$(CurrentDir(),1)="\" Then CD$=Left$(CurrentDir(),Len(CurrentDir())-1) InstrLastTest=InstrLast(CD$,"\") ;DebugLog instrLastTest lastDir$ = "" If InstrLastTest>0 Then lastDir$=Right$(CD$,(Len(cd$)-(InstrLastTest))) ;DebugLog lastdir$ scrollOffset = 0 ; Capture the screen and darken it aScreen = CreateImage(gfxW, gfxH) CopyRect(0, 0, gfxW, gfxH, 0, 0, FrontBuffer(), ImageBuffer(aScreen)) If GreenScreenEffect=1 LockBuffer(ImageBuffer(aScreen)) For x = 0 To gfxW-1 For y = 0 To gfxH-1 col = ReadPixelFast(x, y, ImageBuffer(aScreen)) b = (col And $ff) / 10 g = ((col Shr 8) And $ff) / 10 r = ((col Shr 16) And $ff) / 10 argb = (((($ff) Shl 8) + r Shl 8) + g Shl 8) + b WritePixelFast(x, y, argb, ImageBuffer(aScreen)) Next Next UnlockBuffer(ImageBuffer(aScreen)) EndIf GetDirInfo(path$,ext$,FoldersOnly,DisplayDrives) Font=LoadFont("Arial",12,False,False,False) SetFont Font While(Not KeyHit(1)) mx = MouseX() my = MouseY() mh1 = MouseHit(1) md1 = MouseDown(1) mzs = MouseZSpeed() Viewport(0, 0, gfxW, gfxH) DrawImage(aScreen, 0, 0) ; Instead of Cls() ; Draw the window body Color(240,240,240) ; Background color Rect(wndX,wndY,wndW,wndH) Color(0,0,0) ; Border Rect(wndX+1, wndY+1, wndW-2, wndH-2,0) ; Draw the header Text(wndX+2, wndY+2, dialogtxt$) ;Dialog Text Line(wndX+1, wndY+1+lineheight+1, wndX+wndW-2, wndY+1+lineheight+1) ;Draw a button for folders ! If FoldersOnly=1 Local folder_only=80 Line wndX+wndW-lineheight-(folder_only-2), wndY+2,wndX+wndW-lineheight-(folder_only-2), wndY+lineheight+2 Text(wndX+wndW-lineheight-(folder_only-4)), wndY+2, "Click when done" EndIf ; Draw a little X Line(wndX+wndW-lineheight-3, wndY+3, wndX+wndW-6, wndY+lineheight) ;Top left to bottom right Line(wndX+wndW-6, wndY+3, wndX+wndW-lineheight-3, wndY+lineheight) Line (wndX+wndW-lineheight-7, wndY+2,wndX+wndW-lineheight-7, wndY+lineheight+2) Viewport(wndX+2, wndY+2+lineheight, wndW-4, wndH-lineheight-4) If KeyDown(208) Then ; Up scrollOffset = scrollOffset - 2 Else If KeyDown(200) Then ; Down scrollOffset = scrollOffset + 2 Else If KeyHit(201) Then ; Page Up scrollOffset = scrollOffset + linesperpage * lineheight Else If KeyHit(209) Then ; Page Down scrollOffset = scrollOffset - linesperpage * lineheight Else If mzs Then scrollOffset = scrollOffset + mzs * lineheight ; Scrollwheel End If If scrollOffset > 0 Or KeyHit(199) Then ; Home scrollOffset = 0 End If If -scrollOffset > maxoffset Or KeyHit(207) Then ; End scrollOffset = -maxoffset End If ; Window dragging! If(mh1) ; See if we clicked the X If(RectsOverlap(wndX+wndW-lineheight-3, wndY+3, wndX+wndW-6, wndY+lineheight, mx, my, 1, 1)) Viewport(0, 0, gfxW, gfxH) FreeFont Font Return "" Else If (RectsOverlap((wndX+wndW-lineheight-(folder_only-4)), wndY, 68, lineheight+2, mx, my, 1, 1)) ;Choose folder button If FoldersOnly=1 Viewport(0, 0, gfxW, gfxH) FreeFont Font Return path$ EndIf Else If(RectsOverlap(wndX, wndY, wndW-folder_only-11, lineheight+2, mx, my, 1, 1)) dragging = True dragXoff = wndX-mx dragYoff = wndY-my EndIf EndIf If(md1) If(dragging) wndX = mx+dragXoff wndY = my+dragYoff EndIf Else dragging = False EndIf For f.File = Each File ; Store where on the screen the file information will be drawn. ; This is just for convenience -- I could just write in the values wherever they are needed, ; but this is more flexible. ; There is a 5 pixel indent from the screen edge, to make it look nicer. ; f\n is the id number. If we multiply it by 14, the files' y values become: ; 0, 14, 28, 42, etc. itemX = wndX+2+2 itemY = wndY+2+lineheight+5+f\nlineheight + scrollOffset itemW = wndX+wndW-4 itemH = lineheight If(Not dragging) If(RectsOverlap(mx, my, 1, 1, itemX, itemY, itemW, itemH)) ; Draw rollover effect Color(255, 200, 200) Rect(itemX, itemY, itemW, itemH, True) ; See if a directory has been clicked If (mh1 And f\isDir And f\istop) If FileType(f\name$)=2 scrollOffset = 0 path$ = f\name$ lastDir$ = f\name$ ;DebugLog "lastdir$="+lastDir$ GetDirInfo(path$,ext$,FoldersOnly,DisplayDrives) Exit EndIf ElseIf(mh1 And f\isDir) ; If we don't reset the scroll value the new folder's contents might be drawn outside the screen scrollOffset = 0 ; . and .. mean that we want to browse upwards If(f\name$ = ".") ; Should strip everything except the two first letters (the drive name and a colon, eg C:) path$ = Left(path$, 3) ;DebugLog "User clicked on . - resulting in: >"+path$+"<" Else If(f\name$ = "..") ; We strip away the top directory from the path if we want to move up ;DebugLog "Path before .. >"+Path$+"<"+"lastdir= "+lastdir$ stripLoc = Instr(path, "\"+lastDir$) path$ = Left(path, stripLoc) If Len(path$)>3 cd$=Left$(path$,Len(path$)-1) InstrLastTest=InstrLast(CD$,"\") If InstrLastTest>0 Then f\name$=Right$(CD$,(Len(cd$)-(InstrLastTest))) EndIf ;DebugLog "User clicked on .. - resulting in: >"+path$+"<" Else ; If we browse deeper into the system we just append the folder name to the path path$ = path$ + f\name$ + "\" ;DebugLog "pp -- > "+path$ EndIf lastDir$ = f\name$ ;DebugLog "lastdir$="+lastDir$ GetDirInfo(path$,ext$,FoldersOnly,DisplayDrives) Exit ; See if a file has been clicked Else If(mh1) Viewport(0, 0, gfxW, gfxH) FreeFont Font Return path$+f\name EndIf EndIf EndIf ; Directories are drawn slightly more red than files, which are drawn as plain white If(f\isDir And f\isTop=False) Color($ff, 0, 0) ElseIf (f\isTop) ;Drives shall be drawn in different color ! Color $0,$8f,0 Else ;Files (all else) Color(0, 0, 0) EndIf Text(itemX, itemY, f\name$) Next Flip() Wend While KeyDown(1): Delay 2: Wend FreeFont font Return "" End Function ; Kills all old files stored and loads the new files in Function GetDirInfo(path$,ext$=".",FoldersOnly=0,DisplayD=0) Delete Each File filecounter = 0 ext$=Lower$(ext$) ; Read the desired folder ;DebugLog "GetDirInfo starting path="+path$ If FileType(path$)=2 ChangeDir path$ ;Change the path Else path$="c:\" ;Or jump to C: EndIf dir = ReadDir(path) If DisplayD=1 Or (dir=0 And DisplayD=-1) For x=1 To Len(DriveLetter$) f.File = New File f\name$ = Mid$(DriveLetter$,x,1)+":\" f\n = filecounter f\isDir = True f\isTop = True filecounter = filecounter + 1 Next EndIf If(dir = 0) Then Return ; Loop through all the files in the folder and store relevant information While(True) file$ = NextFile(dir) If(file = "") If DisplayD=-1 For x=1 To Len(DriveLetter$) f.File = New File f\name$ = Mid$(DriveLetter$,x,1)+":\" f\n = filecounter f\isDir = True f\isTop = True filecounter = filecounter + 1 Next EndIf Exit EndIf ; FileType = 1 means that the file is a file ; FileType = 2 means that the file is a dir ; Store some basic information about the file; its name, its id and if it is a dir or not. Select(FileType(path+"\"+file)) Case 1 ;DebugLog (Right$(file,Len(ext$)))+" / "+ext$ If FoldersOnly=0 If (Lower$(Right$(file,Len(ext$)))=ext$) Or (ext$=".") f.File = New File f\name$ = file f\n = filecounter f\isDir = False f\isTop = False filecounter = filecounter + 1 EndIf EndIf Case 2 f.File = New File f\name$ = file f\n = filecounter f\isDir = True f\isTop = False filecounter = filecounter + 1 End Select ; We increase this number to give our next file another n value. Wend linesperpage = (wndH / lineheight)-1 maxoffset = (filecounter - linesperpage + 2) lineheight If maxoffset < linesperpage Then maxoffset = 0 CloseDir(dir) End Function Function InstrLast(s$,c$) ;Returns the starting point of the last occurence of c$ startpos=1 lastpos=0 .repeat_instrlast a=Instr(s$,c$,startpos) If a>0 Then startpos=a+1 lastpos=a If startpos=Len(s$) Then Goto Exit_instrlast Delay 10 Goto repeat_instrlast EndIf .Exit_instrlast Return lastpos End Function ;Print GetDrive$() ;WaitKey() Function GetDrive$(checkavailable=1) ;usage var$=GetDrive$() Return a list of available Drive letters ; Empty CD rom drives will not be listed Local letter$,Drive$,x If checkavailable=1 For x=0 To 25 letter$=Chr$(65+x) If FileType(letter$+":")=2 Then Drive$=Drive$+letter$ Next Else Drive$="ABCDEFGHIJKLMNOPQRSTUVWXYZ" EndIf Return Drive$ End Function --v
Fri, 02 Nov 2018, 16:42
rockford	Only 10 years late... Better late than never?
Fri, 02 Nov 2018, 18:21
zzoom	It's not late until it's too late, thanks for sharing Great looking indentation as well -=-=- Happy coding!
Sat, 03 Nov 2018, 03:00
Dan	well, as long as blitz runs on windows its not late ^^; Great looking indentation as well Thanks, its ideal. i mean, done by ideal. the ide, aI (pun : that's big i in the last al ) (edit well it looks the same in the editor font)
Sat, 03 Nov 2018, 07:40
zzoom	IDEal, my fave UI for coding
Wed, 22 May 2024, 07:14
spinal	I used this for a basis for something I'm working on, so before I start adding all sorts of crap to it, I'll post the minor changes I made. Global HEIGHT = 768 Global WIDTH = 1024 Graphics(WIDTH, HEIGHT, 0, 2) AppTitle "Designer" mainFont = LoadFont("Segoe", 16) SetFont mainFont SetBuffer(BackBuffer()) ; All files in the current dir are given a File ; Cleared each time a new dir is browsed Type File Field name$ Field n ; This field is only used to draw each item at different positions. It is a unique id. Field isDir End Type Global path$ = CurrentDir$();"C:" path=Mid(path,1,Len(path)-1) scrollOffset = 0 Global n Global maxoffset Global linesperpage Global lineheight=StringHeight("test") Global backdropImage = CreateImage (10,10) Global dialogWidth = 400 Global dialogHeight = 300 ; Set some colours for the dialog box Dim colours(16,3) ; Border colours(0,0) = 253 colours(0,1) = 232 colours(0,2) = 189 ; Background colours(1,0) = 0 colours(1,1) = 82 colours(1,2) = 103 ; Scrollbar BG colours(2,0) = 1 colours(2,1) = 120 colours(2,2) = 124 ; Scrollbar Button Border colours(3,0) = 253 colours(3,1) = 232 colours(3,2) = 189 ; Scrollbar Button colours(4,0) = 0 colours(4,1) = 161 colours(4,2) = 146 ; Titlebar colours(5,0) = 0 colours(5,1) = 161 colours(5,2) = 146 ; Titlebar Text colours(6,0) = 253 colours(6,1) = 232 colours(6,2) = 189 ; Folder Text colours(7,0) = 255 colours(7,1) = 255 colours(7,2) = 0 ; File Text colours(8,0) = 253 colours(8,1) = 232 colours(8,2) = 189 ; Text Highlight colours(9,0) = 253 colours(9,1) = 232 colours(9,2) = 189 ; Highlight Text colours(10,0) = 0 colours(10,1) = 82 colours(10,2) = 103 ; Close Button colours(11,0) = 255 colours(11,1) = 64 colours(11,2) = 64 While(Not KeyHit(1)) Delay(1) ; Main program DrawBlock backdropImage, (WIDTH/2)-(ImageWidth(backdropImage)/2), (HEIGHT/2)-(ImageHeight(backdropImage)/2) If drawButton(10,10,200,50,"Load Image") Then filename$ = getFileName$("bmp") Color 255,255,255 Text 0,0, path$+filename$ While MouseDown(1) Delay(1) Wend If filename$ <> "" Then backdropImage = LoadImage(path$+"\"+filename$) EndIf clicked_quit = drawButton(WIDTH - 210,HEIGHT - 40,200,30,"Quit") Flip() If clicked_quit Then End Wend Function drawButton(x,y,w,h,a$) mx = MouseX() my = MouseY() mh1 = MouseDown(1) mouseClick = False If mx > x And mx < x+w And my > y And my < y+h And mh1 Then mouseClick = True Color 64,64,64 Rect x,y,w,h,1 Color 255,255,255 Rect x+1,y+1,w-1,h-1 Color 128,128,128 Rect x+1,y+1,w-2,h-2 ox = (w/2)-(StringWidth(a$)/2) oy = (h/2)-(StringHeight(a$)/2) Color 255,255,255 Text x+ox+1,y+oy+1,a$ Else mouseClick = False Color 255,255,255 Rect x,y,w,h,1 Color 64,64,64 Rect x+1,y+1,w-1,h-1 Color 128,128,128 Rect x+1,y+1,w-2,h-2 ox = (w/2)-(StringWidth(a$)/2) oy = (h/2)-(StringHeight(a$)/2) Color 255,255,255 Text x+ox,y+oy,a$ EndIf Return mouseClick End Function Function getFileName$(ext$) GetDirInfo(path$) filename$ = "" winX = (WIDTH/2)-(dialogWidth/2) winY = (HEIGHT/2)-(dialogHeight/2) While(filename$ = "") mx = MouseX() my = MouseY() mh1 = MouseHit(1) mzs = MouseZSpeed() If KeyDown(208) Then ; Up scrollOffset = scrollOffset - 2 Else If KeyDown(200) Then ; Down scrollOffset = scrollOffset + 2 Else If KeyHit(201) Then ; Page Up scrollOffset = scrollOffset + linesperpage * lineheight Else If KeyHit(209) Then ; Page Down scrollOffset = scrollOffset - linesperpage * lineheight Else If mzs Then scrollOffset = scrollOffset + mzs * lineheight End If If scrollOffset > 0 Then ; Home scrollOffset = 0 End If If -scrollOffset > maxoffset Then ; End scrollOffset = -maxoffset End If Color colours(0,0),colours(0,1),colours(0,2) ; Border colour Rect winX-1, winY-1, dialogWidth+2, dialogHeight+2+itemH, 1 Color colours(1,0),colours(1,1),colours(1,2) ; Background colour Rect winX, winY, dialogWidth, dialogHeight+itemH, 1 Color colours(0,0),colours(0,1),colours(0,2) ; Border colour Line winX-1, winY+dialogHeight, winX+dialogWidth, winY+dialogHeight For f.File = Each File ; Store where on the screen the file information will be drawn. ; This is just for convenience -- I could just write in the values wherever they are needed, ; but this is more flexible. ; There is a 5 pixel indent from the screen edge, to make it look nicer. ; f\n is the id number. If we multiply it by 14, the files' y values become: ; 0, 14, 28, 42, etc. itemX = winX + 10 itemY = winY + (lineheight+5+f\nlineheight + scrollOffset) itemW = StringWidth(f\name$) itemH = lineheight textIsHighlighted = False If(RectsOverlap(mx, my, 1, 1, itemX, itemY, dialogWidth-11, itemH)) If itemY < winY + dialogHeight - (lineheight-1) And itemY > winY + lineheight Then textIsHighlighted = True ; Draw rollover effect Color colours(9,0),colours(9,1),colours(9,2) ; Highlight Rect(itemX, itemY, dialogWidth-11, itemH, True) EndIf ; See if a directory has been clicked If(mh1 And f\isDir) ; If we don't reset the scroll value the new folder's contents might be drawn outside the screen scrollOffset = 0 ; . and .. mean that we want to browse upwards If(f\name$ = ".") ; Should strip everything except the two first letters (the drive name and a colon, eg C:) path$ = Left(path, 2) Else If(f\name$ = "..") Or scrollto=14 ; We strip away the top directory from the path if we want to move up stripLoc=Len(path)-1 While Mid(path,stripLoc,1)<>"\" stripLoc=stripLoc-1 Wend path$ = Left(path, stripLoc-1) Else ; If we browse deeper into the system we just append the folder name to the path path$ = path$ + "\" + f\name$ EndIf GetDirInfo(path$) Exit ; See if a file has been clicked Else If(mh1) And textIsHighlighted = True Then filename$ = f\name$ EndIf EndIf ; Directories are drawn slightly more yellow than files, which are drawn as plain white If(f\isDir) If textIsHighlighted = False Then Color colours(7,0),colours(7,1),colours(7,2) ; Folder Text Else Color colours(10,0),colours(10,1),colours(10,2) ; File Text EndIf b4$ = "[_] " Else If textIsHighlighted = False Then Color colours(8,0),colours(8,1),colours(8,2) ; File Text Else Color colours(10,0),colours(10,1),colours(10,2) ; File Text EndIf b4$ = " " EndIf If itemY < winY + dialogHeight - (lineheight-1) And itemY > winY Then Text(itemX, itemY, b4$+f\name$) Next ; Make Scrollbar (indicator only) Color colours(2,0),colours(2,1),colours(2,2) ; Scrollbar BG Rect winX,winY+lineheight,9,dialogHeight-lineheight Color colours(3,0),colours(3,1),colours(3,2) ; Scrollbar Button Border barheight=((dialogHeight-lineheight)/(1+(n/linesperpage))) barpos=((dialogHeight-lineheight-barheight)(Abs(scrollOffset+1)))/(1+maxoffset) Rect winX+1,winY+lineheight+1+barpos,7,barheight Color colours(4,0),colours(4,1),colours(4,2) ; Scrollbar Button Rect winX+2,winY+lineheight+2+barpos,5,barheight-2 ; Put current location across the bottom Color colours(5,0),colours(5,1),colours(5,2) ; TitleBar Rect winX,winY,dialogWidth,lineheight+1 Color colours(6,0),colours(6,1),colours(6,2) ; TitleBar Text txt$=path ; Trim the earlier folders to fit on screen While StringWidth(txt)>dialogWidth stripLoc=1 txtchk$="" While txtchk<>"\" txtchk=Mid(txt,stripLoc,1) stripLoc=stripLoc+1 Wend txt="..."+Mid(txt,stripLoc,Len(txt)-stripLoc+1) Wend Text winX + 10, winY+dialogHeight,txt Text winX + 10, winY,"Open .bmp file" If(RectsOverlap(mx, my, 1, 1, winX + dialogWidth - StringWidth("[x]"), winY, StringWidth("[x]"), itemH)) Then Color colours(11,0),colours(11,1),colours(11,2) ; Highlight Rect(winX + dialogWidth - StringWidth("[x]"), winY, StringWidth("[x]"), itemH+1, True) If mh1 Then Cls Return "" EndIf EndIf Color colours(6,0),colours(6,1),colours(6,2) ; TitleBar Text Text winX + dialogWidth - StringWidth("[x]"), winY, " x " Color colours(0,0),colours(0,1),colours(0,2) ; Border colour Line winX-1, winY+itemH+1, winX+dialogWidth, winY+itemH+1 Flip() If filename$ <> "" Cls() Wend Return filename$ End Function End Function FindLastCharPosition(In$, character$) ; Iterate backward through the String For i = Len(In$) To 1 Step -1 ; Check If the current character is a "." If Mid$(In$, i, 1) = character$ Then Return i Next ; If no dot is found, Return 0 Return -1 End Function Function GetRightPortionFromDot$(In$) ; Find the position of the Last "." Local dotPos = FindLastCharPosition(In$, ".") ; If no "." is found, Return an empty String Or the whole Input If dotPos = 0 Then Return "" ; Get the substring from the position After the Last "." To the End of the String Return Mid$(In$, dotPos + 1) End Function ; Kills all old files stored and loads the new files in Function GetDirInfo(path$) Delete Each File n = 0 ; Read the desired folder dir = ReadDir(path) If(dir = 0) Then Return ; Loop through all the files in the folder and store relevant information While(True) file$ = NextFile(dir) If(file = "") Then Exit ; FileType = 1 means that the file is a file ; FileType = 2 means that the file is a dir ; Store some basic information about the file; its name, its id and if it is a dir or not. Select(FileType(path+"\"+file)) Case 2 f.File = New File f\name$ = file f\n = n f\isDir = True ; We increase this number to give our next file another n value. n = n + 1 End Select Wend ; Read the desired folder dir = ReadDir(path) If(dir = 0) Then Return ; Loop through all the files in the folder and store relevant information While(True) file$ = NextFile(dir) If(file = "") Then Exit ; FileType = 1 means that the file is a file ; FileType = 2 means that the file is a dir ; Store some basic information about the file; its name, its id and if it is a dir or not. Select(FileType(path+"\"+file)) Case 1 ext$ = Lower$( GetRightPortionFromDot(file) ) If ext$ = "bmp" Or ext$ = "png" Then f.File = New File f\name$ = file f\n = n f\isDir = False ; We increase this number to give our next file another n value. n = n + 1 EndIf End Select Wend linesperpage = (dialogHeight / lineheight)-1 maxoffset = (n - linesperpage + 2) lineheight If maxoffset < linesperpage Then maxoffset = 0 CloseDir(dir) End Function --v -=-=- Check out my excellent homepage!