Issues with Blitz in Vista?

-=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- (c) WidthPadding Industries 1987 0\|613\|0 -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=-
Socoder -> Blitz -> Issues with Blitz in Vista?
Wed, 02 Apr 2008, 15:39
Forklift_Fred	I've had some feedback regarding the file navigation thing I was working on... It appears that Windows Vista doesn't like it First question I have, is it a general issue with Blitz? Second question, does Blitz have issues with USB drives? The thing is, if it is browsing a folder with just files it takes a while to identify them all, if it has sub-folders it takes a long time to identify them and and if it has sub-folders and files you might as well go for a walk. It's working perfectly in XP, it takes a while to examine big folders but nothing to worry about. In Vista it sounds like files are slow and folders are slower. I mentioned USB drives because that is the feedback I have received. I have asked how it performs on his fixed drive but haven't heard back yet... It's very little more than the code posted here originally and everything else is OK. \|edit\| If anyone wants to try it again... \|edit\| Code removed because it was just wrong! Check my next post for the correct code! \|edit\| \|edit\| -=-=- Come rain or shine...
Wed, 02 Apr 2008, 16:06
JL235	I run Vista (WOOT!) so I quickly tried out your code. I found a bug (or at least some strange behaviour). I presume Blitz is to blame, although I'd doubt it's entirely wrong. Just giving results it shouldn't. See if you can spot it: Something else, if you making GUI stuff then don't draw repeatedly. Real GUI's don't because it saves on ALOT of CPU time. Lets say the user interacts with the GUI once on every second. Currently your drawing on every frame so your drawing 60 times a second (on my machine). If you only draw when the user interacts then you draw once per second. In that example there is a drop in drawing of 98.333%! Although you should also put in a delay at the end of the frame if it didn't draw, so that you aren't spending that time just checking if you should draw. In reality the user could go for minutes before they click on anything, so it makes a big difference in performance.
Wed, 02 Apr 2008, 16:37
Forklift_Fred	Bit confused by that. I seem to have posted a badly cobbled together version... The only problem I see (compared to what I was expecting) is that the scrollbar is missing... And the odd spacing that I sorted out. Try this version Graphics(640,480, 0, 2) SetBuffer(BackBuffer()) Global gfxh=GraphicsHeight() Global gfxw=GraphicsWidth() ; 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 Type image Field name$ End Type Type message Field txt$ End Type Type drive Field letter$ End Type up=CreateImage(30,12) Restore upfolder SetBuffer ImageBuffer(up) For y=0 To 11 For x=0 To 29 Read c Select c Case 1 Color 130,123,0 Case 2 Color 255,230,55 Case 3 Color 227,223,50 Case 4 Color 255,255,255 Case 5 Color 0,0,1 End Select Plot x,y Next Next SetBuffer BackBuffer() wert=CallDLL ("kernel32.dll", "GetLogicalDrives") For letters=0 To 25 ; Check all possible drive letters DebugLog "ASCII "+(letters+65)+ " : Letter "+Chr$(letters+65)+" : " ShiftedData=wert Shr letters BitValue = ShiftedData And 1 If BitValue<>0 ; If the drive exists drive.drive=New drive drive\letter$=Chr$(letters+65) DebugLog Chr$(letters+65)+": Is a drive" EndIf Next Global path$ = CurrentDir$();"C:" path=Mid(path,1,Len(path)-1) scrollOffset = 0 scrollbarwidth=15 Global prefsin Global startpath$=path Global sub Global del Global mov Global nam Global rep Global one Global loc Global guix Global guiy 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() md1 = MouseDown(1) 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-1) * lineheight Else If KeyHit(209) Then ; Page Down scrollOffset = scrollOffset - (linesperpage-1) * 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 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 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 = scrollbarwidth+5 itemY = lineheight+5+f\nlineheight + scrollOffset itemW = guix-scrollbarwidth-5;StringWidth(f\name$) itemH = lineheight 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 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$ = ". DRIVE ROOT") ; Should strip everything except the two first letters (the drive name and a colon, eg C:) path$ = Left(path, 2) Else If(f\name$ = ".. UP ONE LEVEL") 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\name$=". DRIVE ROOT" Or f\name$=".. UP ONE LEVEL") Color(255, 64, 64) Else If(f\isDir) Color(255, 255, 128) Else Color(255, 255, 255) EndIf Text(itemX, itemY, f\name$) Next ; Buttons for each drive Color 200,200,255 Rect 0,0,gfxw,lineheight+1 ;Color 0,0,255 dx=0 For drive.drive=Each drive Color 0,0,0 Rect 2+dx,1,30,lineheight-1 If Mid$(path,1,1)=drive\letter Then Color 255,128,128 Rect 3+dx,2,29,lineheight-2 Color 0,0,0 Text dx+18,lineheight/2+1,drive\letter+":",1,1 Else Color 255,255,255 Rect 2+dx,1,29,lineheight-2 Color 0,0,0 Text dx+17,lineheight/2,drive\letter+":",1,1 End If If RectsOverlap(mx,my,1,1,1+dx,1,30,lineheight-1) And mh1>0 Then path=drive\letter+":" GetDirInfo(path) End If dx=dx+33 Next DrawImage up,2+dx,1 If RectsOverlap(mx,my,1,1,1+dx,1,30,12) And mh1>0 And Len(path)>2 Then stripLoc=Len(path)-1 While Mid(path,stripLoc,1)<>"\" stripLoc=stripLoc-1 Wend DebugLog Left(path, stripLoc-1) path$ = Left(path, stripLoc-1) GetDirInfo(path) End If ;[Block] Scrollbar scrollerheight = gfxh - lineheight - 1 barheight = (scrollerheight / (1 + (n / (linesperpage + 1)))) barpos = ((scrollerheight - barheight) * (Abs(scrollOffset + 1))) / (1 + maxoffset) If maxoffset = 0 Then barheight=barheight-2 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 ;[End Block] guix=460 guiy=lineheight+1 Color 200,200,200 Rect guix,guiy,gfxw-guix,gfxh Flip() Cls() Wend End ; Kills all old files stored and loads the new files in Function GetDirInfo(path$) txt$=path ; Trim the earlier folders to fit on screen While Len(txt)>70 stripLoc=1 txtchk$="" While txtchk<>"\" txtchk=Mid(txt,stripLoc,1) stripLoc=stripLoc+1 Wend txt="..."+Mid(txt,stripLoc,Len(txt)-stripLoc+1) Wend AppTitle(txt) Delete Each File Delete Each image 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 n=n+1 Case 2 f.File = New File If file="." Then file=". DRIVE ROOT" If file=".." Then file=".. UP ONE LEVEL" f\name$ = file f\n = n f\isDir = True n=n+1 End Select ; We increase this number to give our next file another n value. ;n = n + 1 ; Moved to Select/Case to only count jpg and dir Wend linesperpage = (gfxh / lineheight) maxoffset = (n - linesperpage + 2) * lineheight If maxoffset < linesperpage Then maxoffset = 0 CloseDir(dir) End Function Function Strip$(strng$,marker$) stripLoc=1 txtchk$="" While txtchk<>marker$ txtchk=Mid(strng$,stripLoc,1) stripLoc=stripLoc+1 Wend Return Mid(strng$,stripLoc,Len(strng$)-stripLoc+1) End Function Function GetDate$() DebugLog CurrentDate() yy$=Mid$(CurrentDate(),10,2) DebugLog "yy: "+yy$ dd$=Mid$(CurrentDate(),1,2) DebugLog "dd: "+dd$ mon$=Mid$(CurrentDate(),4,3) DebugLog "mon: "+mon$ Select mon$ Case "Jan" mm$="01" Case "Feb" mm$="02" Case "Mar" mm$="03" Case "Apr" mm$="04" Case "May" mm$="05" Case "Jun" mm$="06" Case "Jul" mm$="07" Case "Aug" mm$="08" Case "Sep" mm$="09" Case "Oct" mm$="10" Case "Nov" mm$="11" Case "Dec" mm$="12" End Select DebugLog "mm: "+mm$ Return yy$+mm$+dd$ End Function Function GetTime$() hh$=Mid$(CurrentTime(),1,2) mm$=Mid$(CurrentTime(),4,2) ss$=Mid$(CurrentTime(),7,2) Return hh$+mm$+ss$ End Function .upfolder Data 4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,1,1,1,4,4,4,4,4,4,4,4,4,5 Data 4,4,4,4,4,5,4,4,4,4,4,4,4,4,4,1,1,3,3,3,1,1,1,1,1,1,4,4,4,5 Data 4,4,4,4,5,5,5,4,4,4,4,4,4,4,4,1,3,3,3,3,3,3,3,3,3,1,4,4,4,5 Data 4,4,4,5,5,5,5,5,4,4,4,4,4,1,1,1,1,1,1,1,1,1,1,1,3,1,4,4,4,5 Data 4,4,4,4,4,5,4,4,4,4,4,4,4,1,2,2,2,2,2,2,2,2,2,1,3,1,4,4,4,5 Data 4,4,4,4,4,5,4,4,4,4,4,4,4,1,2,2,2,2,2,2,2,2,2,1,3,1,4,4,4,5 Data 4,4,4,4,4,5,5,4,4,4,4,4,4,4,1,2,2,2,2,2,2,2,2,2,1,1,4,4,4,5 Data 4,4,4,4,4,4,5,5,5,5,5,5,4,4,1,2,2,2,2,2,2,2,2,2,1,1,4,4,4,5 Data 4,4,4,4,4,4,4,4,4,4,4,4,4,4,1,2,2,2,2,2,2,2,2,2,1,1,4,4,4,5 Data 4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,1,1,1,1,1,1,1,1,1,1,4,4,4,4,5 Data 4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,5 Data 5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5 .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 My next move was to treat files and folders separately so the folders get listed first rather than mixed in but that's a minor issue. I take on board what you say about the graphics and maybe I'll try and deal with that too but that's not the issue as far as I'm aware. I'm told it freezes after clicking on a folder (ie no more highlighting or anything) -=-=- Come rain or shine...
Wed, 02 Apr 2008, 17:36
JL235	No freezing, but if you notice there are more folders in your version then in my C: folder. This includes 'Documents and Settings', which doesn't actually exist in Vista (it's called 'Users' instead). The other extras were 'boot', 'System Volume Information' and '$Recycle.Bin'. I think it does actually exist, just like the other extra folders, however as a user I really shouldn't be shown them or be able to have access. Plus when I go into 'Documents and Settings' there is no way out (no . or ..). It also did scroll for me automatically as I moved the mouse down the list, but no scroll bar.
Wed, 02 Apr 2008, 17:47
Forklift_Fred	It's not checking for hidden or system attributes. The 'Users' folder is listed separately. Again, I take your point. It's not something I had considered. I'll add it to the to-do list. In the newer version I posted there is now a button to go up a level and buttons for all the drives so that issues solved. You'll tell me I'm making my button oddly as well I suspect but until I have any proper images designed/made/added it's the easiest way of doing it. If you don't have any freezing, do you think it could be the external USB drive that's causing it? Finally, Are you saying just by pointing the mouse it scrolled? I've no idea why it did that The scroll bar should be fully function in the new code as well. Thanks for looking -=-=- Come rain or shine...
Wed, 02 Apr 2008, 19:12
Yo! Wazzup?	I added a bit to it, but it's pretty dumb Click on a .txt file. I tried to get it to work with html files, but it won't work Graphics(640,480, 0, 2) SetBuffer(BackBuffer()) Global gfxh=GraphicsHeight() Global gfxw=GraphicsWidth() ; 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 Type image Field name$ End Type Type message Field txt$ End Type Type drive Field letter$ End Type up=CreateImage(30,12) Restore upfolder SetBuffer ImageBuffer(up) For y=0 To 11 For x=0 To 29 Read c Select c Case 1 Color 130,123,0 Case 2 Color 255,230,55 Case 3 Color 227,223,50 Case 4 Color 255,255,255 Case 5 Color 0,0,1 End Select Plot x,y Next Next SetBuffer BackBuffer() wert=CallDLL ("kernel32.dll", "GetLogicalDrives") For letters=0 To 25 ; Check all possible drive letters DebugLog "ASCII "+(letters+65)+ " : Letter "+Chr$(letters+65)+" : " ShiftedData=wert Shr letters BitValue = ShiftedData And 1 If BitValue<>0 ; If the drive exists drive.drive=New drive drive\letter$=Chr$(letters+65) DebugLog Chr$(letters+65)+": Is a drive" EndIf Next Global path$ = CurrentDir$();"C:" path=Mid(path,1,Len(path)-1) scrollOffset = 0 scrollbarwidth=15 Global prefsin Global startpath$=path Global sub Global del Global mov Global nam Global rep Global one Global loc Global guix Global guiy 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() md1 = MouseDown(1) 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-1) * lineheight Else If KeyHit(209) Then ; Page Down scrollOffset = scrollOffset - (linesperpage-1) * 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 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 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 = scrollbarwidth+5 itemY = lineheight+5+f\nlineheight + scrollOffset itemW = guix-scrollbarwidth-5;StringWidth(f\name$) itemH = lineheight 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 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$ = ". DRIVE ROOT") ; Should strip everything except the two first letters (the drive name and a colon, eg C:) path$ = Left(path, 2) Else If(f\name$ = ".. UP ONE LEVEL") 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) Open(f\name$) Delay(3000) EndIf EndIf ; Directories are drawn slightly more yellow than files, which are drawn as plain white If (f\name$=". DRIVE ROOT" Or f\name$=".. UP ONE LEVEL") Color(255, 64, 64) Else If(f\isDir) Color(255, 255, 128) Else Color(255, 255, 255) EndIf Text(itemX, itemY, f\name$) Next ; Buttons for each drive Color 200,200,255 Rect 0,0,gfxw,lineheight+1 ;Color 0,0,255 dx=0 For drive.drive=Each drive Color 0,0,0 Rect 2+dx,1,30,lineheight-1 If Mid$(path,1,1)=drive\letter Then Color 255,128,128 Rect 3+dx,2,29,lineheight-2 Color 0,0,0 Text dx+18,lineheight/2+1,drive\letter+":",1,1 Else Color 255,255,255 Rect 2+dx,1,29,lineheight-2 Color 0,0,0 Text dx+17,lineheight/2,drive\letter+":",1,1 End If If RectsOverlap(mx,my,1,1,1+dx,1,30,lineheight-1) And mh1>0 Then path=drive\letter+":" GetDirInfo(path) End If dx=dx+33 Next DrawImage up,2+dx,1 If RectsOverlap(mx,my,1,1,1+dx,1,30,12) And mh1>0 And Len(path)>2 Then stripLoc=Len(path)-1 While Mid(path,stripLoc,1)<>"\" stripLoc=stripLoc-1 Wend DebugLog Left(path, stripLoc-1) path$ = Left(path, stripLoc-1) GetDirInfo(path) End If ;[Block] Scrollbar scrollerheight = gfxh - lineheight - 1 barheight = (scrollerheight / (1 + (n / (linesperpage + 1)))) barpos = ((scrollerheight - barheight) * (Abs(scrollOffset + 1))) / (1 + maxoffset) If maxoffset = 0 Then barheight=barheight-2 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 ;[End Block] guix=460 guiy=lineheight+1 Color 200,200,200 Rect guix,guiy,gfxw-guix,gfxh Flip() Cls() Wend End ; Kills all old files stored and loads the new files in Function GetDirInfo(path$) txt$=path ; Trim the earlier folders to fit on screen While Len(txt)>70 stripLoc=1 txtchk$="" While txtchk<>"\" txtchk=Mid(txt,stripLoc,1) stripLoc=stripLoc+1 Wend txt="..."+Mid(txt,stripLoc,Len(txt)-stripLoc+1) Wend AppTitle(txt) Delete Each File Delete Each image 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 n=n+1 Case 2 f.File = New File If file="." Then file=". DRIVE ROOT" If file=".." Then file=".. UP ONE LEVEL" f\name$ = file f\n = n f\isDir = True n=n+1 End Select ; We increase this number to give our next file another n value. ;n = n + 1 ; Moved to Select/Case to only count jpg and dir Wend linesperpage = (gfxh / lineheight) maxoffset = (n - linesperpage + 2) * lineheight If maxoffset < linesperpage Then maxoffset = 0 CloseDir(dir) End Function Function Strip$(strng$,marker$) stripLoc=1 txtchk$="" While txtchk<>marker$ txtchk=Mid(strng$,stripLoc,1) stripLoc=stripLoc+1 Wend Return Mid(strng$,stripLoc,Len(strng$)-stripLoc+1) End Function Function GetDate$() DebugLog CurrentDate() yy$=Mid$(CurrentDate(),10,2) DebugLog "yy: "+yy$ dd$=Mid$(CurrentDate(),1,2) DebugLog "dd: "+dd$ mon$=Mid$(CurrentDate(),4,3) DebugLog "mon: "+mon$ Select mon$ Case "Jan" mm$="01" Case "Feb" mm$="02" Case "Mar" mm$="03" Case "Apr" mm$="04" Case "May" mm$="05" Case "Jun" mm$="06" Case "Jul" mm$="07" Case "Aug" mm$="08" Case "Sep" mm$="09" Case "Oct" mm$="10" Case "Nov" mm$="11" Case "Dec" mm$="12" End Select DebugLog "mm: "+mm$ Return yy$+mm$+dd$ End Function Function GetTime$() hh$=Mid$(CurrentTime(),1,2) mm$=Mid$(CurrentTime(),4,2) ss$=Mid$(CurrentTime(),7,2) Return hh$+mm$+ss$ End Function Function FileExtention$(file$) For I% = Len(File$) To 1 Step -1 If Mid(File$, I%, 1) = "." Return Mid(File$, I% + 1) If Mid(File$, I%, 1) = "\" Or Mid(File$, I%, 1) = "/" Then Return "~FOLDER~" Next End Function Function Open(filename$) Select FileExtention(filename$) Case Lower("txt") ExecFile(SystemProperty ("windowsdir") + "\notepad.exe " + filename$ ) Case Lower("html") ExecFile(filename$) ;Add more here... Default Print("You selected "+filename$ + ".") End Select End Function .upfolder Data 4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,1,1,1,4,4,4,4,4,4,4,4,4,5 Data 4,4,4,4,4,5,4,4,4,4,4,4,4,4,4,1,1,3,3,3,1,1,1,1,1,1,4,4,4,5 Data 4,4,4,4,5,5,5,4,4,4,4,4,4,4,4,1,3,3,3,3,3,3,3,3,3,1,4,4,4,5 Data 4,4,4,5,5,5,5,5,4,4,4,4,4,1,1,1,1,1,1,1,1,1,1,1,3,1,4,4,4,5 Data 4,4,4,4,4,5,4,4,4,4,4,4,4,1,2,2,2,2,2,2,2,2,2,1,3,1,4,4,4,5 Data 4,4,4,4,4,5,4,4,4,4,4,4,4,1,2,2,2,2,2,2,2,2,2,1,3,1,4,4,4,5 Data 4,4,4,4,4,5,5,4,4,4,4,4,4,4,1,2,2,2,2,2,2,2,2,2,1,1,4,4,4,5 Data 4,4,4,4,4,4,5,5,5,5,5,5,4,4,1,2,2,2,2,2,2,2,2,2,1,1,4,4,4,5 Data 4,4,4,4,4,4,4,4,4,4,4,4,4,4,1,2,2,2,2,2,2,2,2,2,1,1,4,4,4,5 Data 4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,1,1,1,1,1,1,1,1,1,1,4,4,4,4,5 Data 4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,5 Data 5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5 .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 and BTW, like the way you did the image -=-=- Hi everyone! I'm new to Blitz and only 10 years old so all things coding is gush to me
Thu, 03 Apr 2008, 00:22
Afr0	As for the freezing: Did you try compatibility mode for Windows XP SP2? And running the program as an administrator? Right-click on the program's icon, select 'Properties', and click on the 'Compatibility tab... -=-=- Afr0 Games Project Dollhouse on Github - Please fork!
Thu, 03 Apr 2008, 07:14
JL235	I didn't find it freezing once.
Thu, 03 Apr 2008, 08:28
Paul	Works on my vista without problems, even with my USB drive
Thu, 03 Apr 2008, 08:42
JL235	Oh and it checked my USB, the fake disk drive my USB makes and the DVD drive all perfectly fine on mine. Infact I was impressed with how quickly it ran, switching to the drives was all instant.
Thu, 03 Apr 2008, 11:25
Forklift_Fred	The drive swapping is impressive isn't it? It doesn't report if there isn't a disk in a CD/DVD drive though... maybe a quick If (number_of_files=0) would be worth adding. It reads "." and ".." as files/folders so if it's an empty folder it will still count as greater than zero but no disk won't have them. It's good to know that nobody else has had any real issues though. I'll probably never know why mu guinea pig had problems but at least I know he is the only one Thanks everyone! -=-=- Come rain or shine...