gui_chung an easy way to make gui windows

[chung]

gui_chung is a ultra-compact freeware to program easy gui windows in freebasic .

click there => http://chungswebsite.blogspot.com/search/label/gui

example of windows programmed with gui_chung :




[/img]

example of sample program :

[chung]

(04/10/2010) guiloadbmp, bmpbutton, staticbmp added
(04/10/2010) setcheckmenu, uncheckmenu, enablemenu, disablemenu, setmenutext added
(04/10/2010) fonts size & italic added
(04/10/2010) graphicbox , openGL test added
(06/10/2010) jpg ,gif ,ico image loader added (jpeg.dll by Alyce Watson). included in bmpbutton,staticbmp,guiloadbmp (guiloadimage)
(07/10/2010) graphicbox : gfx freebasic support added

graphicbox created with graphtype="gfx" (default) generate a buffer compatible with native freebasic gfx commands + support multi graphicbox windows.

(07/10/2010) trapleftmouse, traprightmouse added. works with statictext,staticbmp,graphicbox (trap mouse clicks)
(08/10/2010) guistartopenGL, guicloseopenGL, guirefreshopenGL added
(09/10/2010) guiloadtexture + example with loadobj.dll

guiloadtexture (bmp,jpg,gif,ico of any size) , loadobj load .obj objects in openGL viewer example.

(10/10/2010) trapmovemouse, trapkeyboard added



sample program :

Code: Select all

#Include Once "windows.bi"
#Include Once "gui_chung.bi"

Declare Sub subdraw
Declare Sub subquit
Dim Shared As Integer quit=0
Dim Shared As Any Ptr buffer,buffer2
	
graphicbox("win4.graph",10,10,200,200)
graphicbox("win4.graph2",220,10,200,200)
button("win4.button","Draw",@subdraw,10,220,70,27)
openwindow("win4","my window4",600,330,450,280)

trapclose("win4",@subquit)
buffer=getguigfxbuffer("win4.graph")
buffer2=getguigfxbuffer("win4.graph2")

While quit=0 And guitestkey(vk_escape)=0
	guirefreshwindow("win4")
	guiwait
Wend
guiclose
guiquit
End

Sub subdraw
	Paint buffer,(1,1),0,999
	Line buffer,(100+Rnd*50,50+Rnd*50)-(100+Rnd*50,50+Rnd*50),RGB(Rnd*255,Rnd*255,Rnd*255),bf  
	Color RGB(0,255,0)
	Circle buffer,(150,100),100
	Circle buffer,(100,100),100
	Circle buffer,(200,100),100
	Line buffer2,(50+Rnd*50,50+Rnd*50)-(100+Rnd*50,50+Rnd*50),RGB(Rnd*255,Rnd*255,Rnd*255),bf  
	Color RGB(250,0,0)
	Circle buffer2,(100,100),100	
End Sub
Sub subquit
	quit=1
End Sub

[chung]

example with irrlicht openGL

you can find it there => http://www.mediafire.com/?cl0q60c3otzkf41