Grid Menu

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

Pakz	Created : 28 November 2016 Edited : 28 November 2016 Language : Other Grid Menu A menu for items ect.
Written in Monkey 2. Atm, I can not render more then 256 colors(4bit) so the result that you get might be different then what I get. The menu is not very advanced but I did spend some time making it look fancy. #Import "<std>" #Import "<mojo>" Using std.. Using mojo.. Class menu Field twx:Int'number of windows horizontal Field twy:Int'number of windows vertically Field wx:Int'x location of the menu Field wy:Int'y location of the menu Field ww:Int=96'width of a window Field wh:Int=96'height of a window Field tw:Int'total width of the menu Field th:Int'total height of the menu Field ix:Int'window location x (cursors) Field iy:Int'window location y Method New(x:Int,y:Int,twx:Int,twy:Int) Self.wx=x Self.wy=y Self.twx=twx Self.twy=twy tw = (wwtwx)+20 th = (whtwy)+20 End Method ' update method of the menu Method update() If Keyboard.KeyReleased(Key.Right) If ix<twx-1 Then ix+=1 Elseif Keyboard.KeyReleased(Key.Left) If ix>0 Then ix-=1 Elseif Keyboard.KeyReleased(Key.Up) If iy>0 Then iy-=1 Elseif Keyboard.KeyReleased(Key.Down) If iy<twy-1 Then iy+=1 End If End Method ' draw the menu Method draw(canvas:Canvas) canvas.Color = Color.Black canvas.DrawRect(wx,wy,tw,th) For Local y1:Float=0 Until 10 Step 1 outline(canvas,wx+y1,wy+y1,tw-(y12),th-(y12),New Color(y1/10,y1/10,y1/10),New Color(y1/10/2,y1/10/2,y1/10/2)) Next outline(canvas,wx+1,wy+1,tw-2,th-2,New Color(.7,.7,.7), New Color(.3,.3,.3)) outline(canvas,wx+2,wy+2,tw-4,th-4,New Color(.4,.4,.4), New Color(.5,.5,.5)) For Local y:=0 Until twy For Local x:=0 Until twx If ix=x And iy=y Then drawwindow(canvas,wx+(xww)+10,wy+(ywh)+10,Color.Yellow) Else drawwindow(canvas,wx+(xww)+10,wy+(ywh)+10,Color.Grey) End If Next Next End Method 'draw a window Method drawwindow(canvas:Canvas,x:Int,y:Int,color:Color) canvas.Color = Color.Black canvas.DrawRect(x,y,ww,wh) canvas.Color = Color.Black canvas.DrawRect(x+8,y+8,ww-16,wh-16) For Local y1:Float=0 To 10 Step 1 outline(canvas,x+y1,y+y1,ww-(y12),wh-(y12),New Color((y1/10)/2,(y1/10)/2,(y1/10)/2),New Color(y1/10,y1/10,y1/10)) Next outline(canvas,x+1,y+1,ww-1,wh-1, New Color(1,1,1) ,New Color(.3,.3,.3)) outline(canvas,x+2,y+2,ww-4,wh-4,color,color) outline(canvas,x+3,y+3,ww-6,wh-6,color,color) End Method ' draw a non filled rectangle (2 colors) Method outline(canvas:Canvas,x:Int,y:Int,w:Int,h:Int,lc:Color,dc:Color) canvas.Color = lc canvas.DrawLine(x,y,x+w,y) canvas.DrawLine(x,y,x,y+h) canvas.Color = dc canvas.DrawLine(x+w,y+1,x+w,y+h) canvas.DrawLine(x+1,y+h,x+w,y+h) End Method End Class Global winwidth:Int=800 Global winheight:Int=600 Global mymenu:menu Class MyWindow Extends Window Method New() Super.New("Menu example 1",winwidth,winheight) ' x,y,num windows hor,num windows ver mymenu = New menu(0,50,(winwidth/96)-1,(winheight/96)-1) End Method Method OnRender( canvas:Canvas ) Override App.RequestRender() ' Activate this method ' canvas.Clear(Color.White) For Local y:Float=0 To 50 Step 1 canvas.Color = New Color(y/50,y/50,y/50) canvas.DrawLine(0,y,winwidth,y) canvas.DrawLine(0,winheight-y,winwidth,winheight-y) Next mymenu.update() mymenu.draw(canvas) canvas.Color = Color.Black canvas.DrawText("x:"+mymenu.ix+" - y:"+mymenu.iy,0,30) ' if key escape then quit If Keyboard.KeyReleased(Key.Escape) Then App.Terminate() End Method End Class Function Main() New AppInstance New MyWindow App.Run() End Function --v

Comments

Comments