AphaGUI by Jeppe Nielsen

Blitz3D Forums/Blitz3D Programming/AphaGUI by Jeppe Nielsen

Jeremy Paxman - Yeeeeeeeees
 #1
Hi thanks for the reply,
here is the code:
AppTitle "AlphaGUI Example #1 (c) Jeppe Nielsen 2003"

HidePointer

Include "../Include/Alpha_Include.bb" ; include the functions

;set graphics size
Graphics3D 800,600,16,2 ;
AlphaInit 100,100,100 ; initialize the gui system; create the camera used throughout the system.

AlphaGuiLoad("button2.gui")  ; load the gui in, set to fill the whole screen

alphapointer("Gfx\Pointer.png",2) ;load mouse pointer as a 3d quad

;camera
camera=CreateCamera()
CameraClsColor camera,128,128,128 ;grey background

AlphaToFront ; bring the gui camera to front, in front of the previously created camera

 
Repeat

	AlphaGui  ; update the gui
	RenderWorld ;make it show
		
	Select alphamenuget$() ; what menu is active ?
	
		Case "Aim"
		
			Select alphagetactive$()
			
				Case "Aim button"
			
					Text 10,130,"Hello"
				
									
			End Select

	End Select
	
	
	;write some useful information about the gui to the screen
	Text 10,0,"Gui state :"+alphaguistate()
	Text 10,20,"Gadget touched:"+alphagettouched$()
	Text 10,40,"Gadget pressed:"+alphagetpressed$()
	Text 10,60,"Gadget released:"+alphagetreleased$()
	Text 10,80,"Gadget active:"+alphagetactive$()
	Text 10,100,"Active gadget value:"+alphagetvalueactive$()
	Text 10,120,"Active menu:"+alphamenuget$()
	
	Flip

Until KeyDown(1) Or alphagetreleased$()="quit"
End

and the GUI file:
http://slenkar.spymac.net/button2.gui