click there => http://chungswebsite.blogspot.com/search/label/gui
example of windows programmed with gui_chung :
example of 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