OSX Dock style menu

-=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- (c) WidthPadding Industries 1987 0\|81\|0 -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=-
Socoder -> Blitz -> OSX Dock style menu
Tue, 27 Oct 2009, 03:56
spinal	I thought I would post this, as I have a habit of loosing code that I end up needing in the future. What we have here, is an example of icon movement used in the osx shortcut dock, if anyone remembers, I used this methot in both DSision and DSision2. I hope someone finds it useful. ; OSX style dock menu, using tutorial at - ; https://www.flashkit.com/tutorials/Interactivity/Navigation/Mac_OS_X-Aaron_Ha-722/index.php AppTitle "Dock Menu" Graphics 850,200,0,2 ;picture = CreateImage(36,36) ;SetBuffer ImageBuffer(picture) ;Rect 0,0,35,35,0 ;SetBuffer FrontBuffer() picture = LoadImage("cover.bmp") ScaleImage picture, 0.28125, 0.28125 ; my cover.bmp is 128x128 so i resize it to about 36x36 Dim iconX(10) Dim iconOffset(10) Dim iconScale#(10) For t=0 To 9 iconX(t) = 200 + 50t DrawBlock picture,iconX(t),50 Next SetBuffer BackBuffer() While Not KeyHit(1) Delay 2 Cls mx = MouseX() my = MouseY() For t=0 To 9 iconOffset(t) = mx-(200 + 50t) iconOffset(t) = checkOffset(iconOffset(t)) iconScale(t) = setScale(iconOffset(t)) scalePicture = CopyImage(picture) ScaleImage scalePicture, iconScale(t), iconScale(t) If mx>150 And mx<700 And my > 100 Then DrawBlock scalePicture,iconX(t)-iconOffset(t) -(ImageWidth(scalePicture)/2), 200-ImageHeight(scalePicture) Else DrawBlock Picture,iconX(t) -(ImageWidth(Picture)/2), 200-ImageHeight(Picture) End If Next Flip VWait() Wend WaitKey() End Function checkOffset(coffset) If (coffset<-175) coffset = -175 If (coffset>175) coffset = 175 Return coffset End Function Function setScale#(soffset#) Return (3-(2*(Abs(soffset)/175))) End Function --v -=-=- Check out my excellent homepage!
Mon, 02 Nov 2009, 07:13
TazzMan47	Thanks for sharing this code. I believe this will be very handy. -=-=- Are You Rapture Ready?