---

Code Snippets > Text and GUI's ( Created 23 January 2008 | Last Edited 23 January 2008) Simple filename picker. by steve_ancell | No Votes Written in Blitz 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 --> Latest Comments Posted : 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 Posted : 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! Posted : Wednesday, 30 January 2008, 03:24 steve_ancell Thanx for the review dudes

Latest Posts Mutant Monty update. steve_ancell Wed 09:41 Android Dev Test Doohickey Jayenkai Tue 09:58 Aminal Xing Knew Leef Jayenkai Tue 04:25 Spark dna Mon 17:24 HoboTile steve_ancell Sun 10:07 Hoover steve_ancell Sat 21:53 Scrabble Rabble Jayenkai Fri 08:13 Not Fit for Purpose Jayenkai Thu 20:29 Happy Birthday, Krakatomato steve_ancell Thu 18:03 How Deep is Your Code? Hotshot Thu 14:35 More Latest Items Blog : Snow Worklog Cower Mon 12:23 Dev-Diary : Mutant Monty: Amstrad CPC to Windows conversion steve_ancell Sat 19:12 Showcase : MLG : Microscopic Lifeform Genocide rockford Wed 09:24 News : Newsletter #176 Jayenkai Sat 04:49 News : Newsletter #175 Dabz Tue 09:38 Blog : Snow: More Material Junk Cower Sat 23:17 Techy : AppleTV Jayenkai Thu 09:40 Blog : Graphviz steve_ancell Sat 14:17 Pets : Top-Down Shadow Hack Jayenkai Tue 05:52 Snippet : JNKrunch v1.0 Jayenkai Sat 07:20 News : Newsletter #173 waroffice Fri 04:47 Blog : Material Loading Cower Fri 02:08 Pets : I Done Won A Thing shroom_monk Sun 11:31 Pets : Repurposing A Lexer Cower Mon 22:06 Bah : Feeling a Little Angry spinal Mon 11:26 More Who's Online CodersRule Wed, at 23:23 Dabz Wed, at 22:34 Evil Roy Ferguson Wed, at 21:24 dna Wed, at 20:23 therevillsgames Wed, at 20:19 steve_ancell Wed, at 19:36 Jayenkai Wed, at 18:28 9572AD Wed, at 17:04 HoboBen Wed, at 15:50 Stealth Wed, at 15:41