Jungle GUI - In App Keyboard

Monkey Forums/Monkey Code/Jungle GUI - In App Keyboard
Yeshu777
(Posted 2015) [#1]
A quick Keyboard method, ideal for adding to 'mobile' platform HTML project..
Code:

Const KEYB_X_POS = 310
Const KEYB_Y_POS = 130

Const KEYB_WIDTH = 960

Const KEYB_KEY_WIDTH = 60
Const KEYB_KEY_HEIGHT = 50

Const KEYB_NOF_KEYS = 37

Global KeyBoard_Chars:String[] =["1", "2", "3", "4", "5", "6", "7", "8", "9", "0",
				 "Q", "W", "E", "R", "T", "Y", "U", "I", "O", "P",
				 "A", "S", "D", "F", "G", "H", "J", "K", "L", "DEL",
				 "Z", "X", "C", "V", "B", "N", "M", "ENTER"]
						


	' Keyboard
	Field key_button:Button[KEYB_NOF_KEYS + 1] ' Keyboard Buttons

	Method On_InitialiseKeyboard()

		Local line:Int = 0;
		Local x:Int = 0;
		Local y:Int = 0;
		
		x = KEYB_X_POS;
		y = KEYB_Y_POS;
		
		For Local n:Int = 0 To KEYB_NOF_KEYS
			
			If (KeyBoard_Chars[n].Length > 0)
				
				key_button[n] = New Button
				key_button[n].Parent = Self
				key_button[n].Text = KeyBoard_Chars[n]

				If (KeyBoard_Chars[n] = "ENTER")
					
					key_button[n].Position.SetValues(x + 4, y)
					key_button[n].Size.SetValues( (KEYB_KEY_WIDTH * 2) + 12, KEYB_KEY_HEIGHT)
					key_button[n].Event_Click.Add(Self, "On_ProcessEnter");		'Add Custom Function CallBack					
				
				Else If (KeyBoard_Chars[n] = "DEL")
				
					key_button[n].Position.SetValues(KEYB_X_POS, y + (KEYB_KEY_HEIGHT + 8))
					key_button[n].Size.SetValues(KEYB_KEY_WIDTH , KEYB_KEY_HEIGHT)
					key_button[n].Event_Click.Add(Self, "On_ProcessDelete");	'Add Custom Function CallBack
				
				Else
				
					key_button[n].Position.SetValues(x, y)
					key_button[n].Size.SetValues(KEYB_KEY_WIDTH, KEYB_KEY_HEIGHT)
					key_button[n].Event_Click.Add(Self, "On_ProcessKey");		'Add Custom Function CallBack

				EndIf
					
			EndIf
			
			x += (KEYB_KEY_WIDTH + 8)
		
			If (x >= KEYB_WIDTH)
		
				line += line + 10
				
				y += (KEYB_KEY_HEIGHT + 8)
								
				x = KEYB_X_POS + line;
				
			EndIf
			
		Next
				
		On_HideKeyboard();

	End
	
	Method On_ShowKeyboard()

		For Local n:Int = 0 To KEYB_NOF_KEYS
			key_button[n].Visible = True;			
		Next
		
	End

	Method On_HideKeyboard()

		For Local n:Int = 0 To KEYB_NOF_KEYS
			key_button[n].Visible = False;			
		Next
		
	End
		
	Method On_ProcessKey(sender:Object, e:MouseEventArgs)
		
		Local key:= Button(sender)

		textbox_name.Text += key.Text.ToLower
							
	End

	Method On_ProcessEnter(sender:Object, e:MouseEventArgs)

		On_HideKeyboard();

	End
	
	Method On_ProcessDelete(sender:Object, e:MouseEventArgs)
		
		If textbox_name.Text.Length > 0
			
			textbox_name.Text = textbox_name.Text[ .. textbox_name.Text.Length - 1]
		
		EndIf
					
	End
Hope it's of use..

Yeshu777
ziggy
(Posted 2015) [#2]
Looks nice!