Snippet - Socoder

-=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- (c) WidthPadding Industries 1987 0\|546\|0 -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=-
SoCoder -> Snippet Home -> Text and GUI's

steve_ancell	Created : 23 January 2008 Edited : 23 January 2008 System : Windows Language : Blitz Simple filename picker.
For anybody that wants a quick and easy way to pick out a filename with the mouse. Also allows you to type text in at the top of the screen. Graphics 800,600,16,2 SetBuffer BackBuffer() Dim textfield$(1) f$=GetFilename$() FlushKeys() Cls Print f$ WaitKey() Function GetFilename$() dir=ReadDir(CurrentDir$()) Local count=0 Repeat file$=NextFile$(dir) If file$="" Then Exit count=count+1 Forever CloseDir(dir) Dim textfield$(count) dir=ReadDir(CurrentDir$()) count=0 Repeat file$=NextFile$(dir) If file$="" Then Exit textfield$(count)=file$ count=count+1 Forever CloseDir(dir) Local filename$ = "" Local pos=0+StringHeight(filename$) Repeat If KeyHit(1) = True command = 1 Return "" EndIf If KeyHit(28) = True Then Exit If KeyHit(14) = True Or KeyDown(14) = True FlushKeys() If Len(filename$) > 0 l = Len(filename$)-1 filename$ = Left$(filename$,l) EndIf Delay 100 EndIf key_val = GetKey() If key_val Then filename$ = filename$ + Chr$(key_val) Cls Text 0, 0, filename$ x=0 y=pos For c=0 To count If MouseX() > x And MouseX() < (x + StringWidth(textfield$(c))) If MouseY() > y And MouseY() < (y + StringHeight(textfield$(c))) Rect x,y,StringWidth(textfield$(c)),StringHeight(textfield$(c)),0 If MouseHit(1) Then Return textfield$(c) EndIf EndIf Text x,y,textfield$(c) y=y+StringHeight(textfield$(c)) Next FlushMouse() Flip() Forever Return filename$ End Function --v

Comments
Wednesday, 23 January 2008, 12:35
power mousey	thank you, steve. I'll try this out. and I'll pick a file...any file. Except Top Secret Classified ones. cheers
Monday, 28 January 2008, 15:04
Forklift_Fred	Not exactly what I need at the moment but it's given me a boost in the right direction Even if I start from scratch I'll certainly be referring to this for guidance. Thanks!
Wednesday, 30 January 2008, 03:24
steve_ancell	Thanx for the review dudes
Monday, 09 October 2017, 15:02
Dan	Hello, here is an updated version of the filepicker. Now you can choose to: The Manual entry of the text is limited to chars which a filename may use. Scroll through the file list. (arrow U/D keys,Page UP-Down, Home, End, MouseWheel and MW+Right Mouse Button) Use custom Path. Choose how many lines of files shall be show - (dependant on the graphics height and font height !) Choose if the path shall be returned or not. Display or Hide directories. Display or Hide the "." and ".." dots And at last - Swap the direction in which the list scrolls while using the mousewheel ;Original steve_ancell - Improved by Dan. Graphics 800,600,16,2 SetBuffer BackBuffer() Dim textfield$(1) Global gpath$="c:\windows" ;Gpath$ is used only for the Use_less function ! Which is useless for the GetFilename$ function ;Global gpath$=":" f$=GetFilename$() Use_less(f$,"01: Using Path only:") f$=GetFilename$(gpath$,1) Use_less(f$,"02: Displaying 1 line of files") f$=GetFilename$(gpath$+"\media",20,1,1) Use_less(f$,"03: Using Returnpath and Displaydir:") f$=GetFilename$(gpath$,44230,0,1,1,0) Use_less(f$,"04: Using Odd Displaycount, with directories and dots, swapped mouse wheel Dir !") End Function Use_less(f$,c$="") FlushKeys() Cls a$="Function Demonstration." d$=String("",Len(f$)) Locate 0,0 Print a$ Print Print c$ Print Print "CurrentDir() = "+CurrentDir() Print Print "GPath$ = "+gpath$ Print Print d$ Print f$ Print d$ Print Print "Press Any Key" WaitKey() Delay 1000 FlushKeys() End Function Function GetFilename$(path$="",display=0,returnpath=0,displaydir=0,displaydots=0,swapMW=1) ;Path$=Directory to read ;display - how many files to display ;returnpath, returns the filename with path: ;displaydir 1 to show directory names ;displaydots 1 to show the "." and ".." dots ;Keys Used -Arrow UP+Down, Page Up+Down, Home+End Local I1$="abcdefghijklmnopqrstuvwxyz ABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789!Â§$%&()=_-+,.[]{}" ; Filename safe chars ! If Len(path$)>1 If Right$(path$,1)><"\" Then path$=path$+"\" ElseIf Len(path$)=1 If path$=":" Then path$=CurrentDir() Else path$=CurrentDir() EndIf dir=ReadDir(path$) Local count=0 maxdisplay=Abs(GraphicsHeight()/FontHeight())-2 If display=0 Then display=maxdisplay If display>maxdisplay Or display<1 Then display=maxdisplay Repeat file$=NextFile$(dir) If file$="" Then Exit count=count+1 Forever CloseDir(dir) Dim textfield$(count) dir=ReadDir(path$) count=0 Repeat file$=NextFile$(dir) If file$="" Then Exit If (file$="." Or file$="..") If displaydots=1 textfield$(count)=file$ count=count+1 EndIf ElseIf FileType(path$+file$)=2 If displaydir=1 textfield$(count)=file$ count=count+1 EndIf Else textfield$(count)=file$ count=count+1 EndIf Forever CloseDir(dir) Local filename$ = "" Local pos=0+StringHeight(filename$) If count<display Then display=count scrolloffset=0 Repeat AppTitle path$ If swapMW=0 MZSpeed=MouseZSpeed() Else MZSpeed=MouseZSpeed()-1 EndIf If KeyHit(1) = True command = 1 Return "" EndIf If KeyHit(28) = True Then Exit If KeyHit(14) = True Or KeyDown(14) = True FlushKeys() If Len(filename$) > 0 l = Len(filename$)-1 filename$ = Left$(filename$,l) EndIf Delay 100 EndIf key_val$ = Chr$(GetKey()) If Instr(I1$,key_val$)>0 Then filename$ = filename$ + key_val$ Cls Text 0, 0, ">"+filename$+"<" x=0 y=pos If KeyDown(208) ; ArrowDown scrolloffset=scrolloffset+1 EndIf If KeyDown(200) ; ArrowUp scrolloffset=scrolloffset-1 EndIf If KeyDown(201) ; PageUp scrolloffset=scrolloffset-display ;delay 50 ;uncomment to slow down pageUp/down EndIf If KeyDown(209) ; Page Down scrolloffset=scrolloffset+display ;Delay 50 ;uncomment to slow down pageUp/down EndIf If KeyDown(199) ;Home scrolloffset=0 EndIf If KeyDown(207) ;End scrolloffset=count-display EndIf If MZSpeed And MouseDown(2)=0 Then scrolloffset=scrolloffset+MZSpeed If MZspeed And MouseDown(2)=1 Then scrolloffset=scrolloffset+(MZSpeed*display) If scrolloffset<0 Then scrolloffset=0 If scrolloffset=>count-display Then scrolloffset=count-display For c=0 To display-1 If MouseX() > x And MouseX() < (x + StringWidth(textfield$(c+scrolloffset))) If MouseY() > y And MouseY() < (y + StringHeight(textfield$(c+scrolloffset))) Rect x,y,StringWidth(textfield$(c+scrolloffset)),StringHeight(textfield$(c+scrolloffset)),0 If MouseHit(1) Then If returnpath=1 Then Return path$+textfield$(c+scrolloffset) Else Return textfield$(c+scrolloffset) EndIf EndIf EndIf EndIf Text x,y,textfield$(c+scrolloffset) ;+" "+String$(" ",60-Len(textfield$(c+scrolloffset)))+(c+scrolloffset) y=y+StringHeight(textfield$(c+scrolloffset)) Next FlushMouse() Flip() Forever If returnpath=1 Return path$+filename$ Else Return filename$ EndIf End Function --v
Monday, 09 October 2017, 22:10
steve_ancell	I forgot I did this topic, you seem to be having some fun with this.
Tuesday, 10 October 2017, 09:27
Dan	Lol, last weekend i was searching for a file requester written in Blitzbasic code, because the code for Windows filerequesters over Win-Api-Calls produced unwanted effects, As i allready had my own filepicker code, which used only the keyboard for selecting, i decided to get something useable with mouse (as from the memory, i saw few using it). i searched first my local backup and found some code. And of course it had, as well, some bugs in it, which i had to fix first, before the release of my Zeus ADF editor . And found myself fixing that one and not concentrating on the Editor thing. Now i thought the code was from this site and searched here for it - to post the changes, but no. so i found this one and tested it. And even thought, if i had this before the other, i would use it (because of the filename entry, which i plan to update the other code soon or later (after i edit the input routine to limit displaying chars and still edit longer text).) So i saw it could be improved, and released the product for everyone who needs one. And who knows, maybe some other day ill need a filepicker again, but ill remember this one here ^^;

Simple filename picker.

Comments