1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
|
' $Id$
Import noddybox.simplegui
Import noddybox.bitmapfont
Incbin "font.bmf"
Const SCRW=800
Const SCRH=600
SetGraphicsDriver GLMax2DDriver()
Graphics SCRW,SCRH,32,60' Or HARDSYNC
font:TBitmapFont=TBitmapFont.Load("incbin::font.bmf",0)
gui:TGUIHandler=TGUIHandler.Create()
label1:TLabel=TLabel.Create(font,0,0,"Text 1: ")
label2:TLabel=TLabel.Create(font,0,20,"Text 2: ")
text1:TText=TText.Create(font,label1.w,0,"Text entry 1",20)
text2:TText=TText.Create(font,label2.w,20,"Text entry 2",30)
gui.Register(label1)
gui.Register(label2)
gui.Register(text1)
gui.Register(text2)
SetBlend(ALPHABLEND)
While Not KeyHit(KEY_ESCAPE)
Cls
If KeyHit(KEY_F1)
gui.SetFocus(Null)
EndIf
If KeyHit(KEY_F2)
gui.SetFocus(text1)
EndIf
If KeyHit(KEY_F3)
gui.SetFocus(text2)
EndIf
gui.EventLoop()
Flip
FlushMem
Wend
EndGraphics
End
|