The Ring programming language version 1.7 book - Part 66 of 196

Ring Documentation, Release 1.7
Load "guilib.ring"
New qApp {
win1 = new qWidget() {
setwindowtitle("Using QComboBox")
setGeometry(100,100,400,400)
New QComboBox(win1) {
setGeometry(150,100,200,30)
alist = ["one","two","three","four","five"]
for x in aList additem(x,0) next
}
show()
}
exec()
}
The application during the runtime
59.8 Creating Menubar
In this example we will learn about using the QMenuBar class
59.8. Creating Menubar 622

Load "guilib.ring"
MyApp = New qApp {
win1 = new qWidget() {
setwindowtitle("Using QMenubar")
setGeometry(100,100,400,400)
menu1 = new qmenubar(win1) {
sub1 = addmenu("File")
sub2 = addmenu("Edit")
sub3 = addmenu("Help")
sub1 {
oAction = new qAction(win1) {
settext("New")
}
addaction(oAction)
settext("Open")
}
addaction(oAction)
settext("Save")
}
addaction(oAction)
settext("Save As")
}
addaction(oAction)
addseparator()
oAction = new qaction(win1) {
settext("Exit")
setclickevent("myapp.quit()")
}
addaction(oAction)
}
sub2 {
settext("Cut")
}
addaction(oAction)
settext("Copy")
}
addaction(oAction)
settext("Paste")
}
addaction(oAction)
addseparator()
settext("Select All")
}
addaction(oAction)
}
sub3 {

settext("Reference")
}
addaction(oAction)
sub4 = addmenu("Sub Menu")
sub4 {
settext("Website")
}
addaction(oAction)
settext("Forum")
}
addaction(oAction)
settext("Blog")
}
addaction(oAction)
}
addseparator()
settext("About")
}
addaction(oAction)
}
}
show()
}
exec()
}

59.9 Context Menu
Example:
load "guilib.ring"
new qApp {
win = new qwidget() {
setwindowtitle("Context Menu")
resize(400,400)
myfilter = new qAllEvents(win) {
setContextmenuEvent("mymenu()")
}
installeventfilter(myfilter)
show()
}
exec()
}
func mymenu
new qMenu(win) {
oAction = new qAction(win) {
settext("new")
SetCLickevent("See :New")
59.9. Context Menu 625

}
addaction(oAction)
settext("open")
SetCLickevent("See :Open")
}
addaction(oAction)
settext("save")
SetCLickevent("See :Save")
}
addaction(oAction)
settext("close")
SetCLickevent("See :Close")
}
addaction(oAction)
oCursor = new qCursor()
exec(oCursor.pos())
}
59.10 Creating Toolbar
In this example we will learn about using the QToolBar class
Load "guilib.ring"
New qApp {
win1 = new qMainWindow() {
setwindowtitle("Using QToolbar")
setGeometry(100,100,600,400)
abtns = [
new qpushbutton(win1) { settext("Add") } ,
new qpushbutton(win1) { settext("Edit") } ,
new qpushbutton(win1) { settext("Find") } ,
new qpushbutton(win1) { settext("Delete") } ,
new qpushbutton(win1) { settext("Exit")
setclickevent("win1.close()") }
]
tool1 = new qtoolbar(win1) {
for x in abtns addwidget(x) addseparator() next
setmovable(true)
setFloatable(true)
}
show()
}
exec()
}
59.10. Creating Toolbar 626

59.11 Creating StatusBar
In this example we will learn about using the QStatusBar class
Load "guilib.ring"
New qApp {
setwindowtitle("Using QStatusbar")
setGeometry(100,100,400,400)
status1 = new qstatusbar(win1) {
showmessage("Ready!",0)
}
setstatusbar(status1)
show()
}
exec()
}
59.11. Creating StatusBar 627

59.12 Using QDockWidget
In this example we will learn about using the QDockWidget class
Load "guilib.ring"
New qApp {
setwindowtitle("QDockWidget")
setGeometry(100,100,400,400)
label1 = new qlabel(win1) {
settext("Hello")
setGeometry(300,300,100,100)
}
label2 = new qlabel(win1) {
settext("How are you ?")
setGeometry(100,100,100,100)
}
dock1 = new qdockwidget(win1,0) {
59.12. Using QDockWidget 628

setwidget(label1)
SetAllowedAreas(1)
}
dock2 = new qdockwidget(win1,0) {
setwidget(label2)
SetAllowedAreas(2)
}
adddockwidget(Qt_LeftDockWidgetArea,dock1,Qt_Horizontal)
adddockwidget(Qt_LeftDockWidgetArea,dock2,Qt_Vertical)
show()
}
exec()
}
59.13 Using QTabWidget
In this example we will learn about using the QTabWidget class
Load "guilib.ring"
New qApp {
59.13. Using QTabWidget 629

setwindowtitle("Using QTabWidget")
setGeometry(100,100,400,400)
page1 = new qwidget() {
new qpushbutton(page1) {
settext("The First Page")
}
}
settext("The Second Page")
}
}
settext("The Third Page")
}
}
tab1 = new qtabwidget(win1) {
inserttab(0,page1,"Page 1")
setGeometry(100,100,400,400)
}
status1 = new qstatusbar(win1) {
showmessage("Ready!",0)
}
setstatusbar(status1)
showMaximized()
}
exec()
}
59.13. Using QTabWidget 630

59.14 Using QTableWidget
In this example we will learn about using the QTableWidget class
Load "guilib.ring"
New qApp {
setGeometry(100,100,1100,370)
setwindowtitle("Using QTableWidget")
Table1 = new qTableWidget(win1) {
setrowcount(10) setcolumncount(10)
setselectionbehavior(QAbstractItemView_SelectRows)
for x = 1 to 10
for y = 1 to 10
item1 = new qtablewidgetitem("R"+X+"C"+Y)
setitem(x-1,y-1,item1)
next
next
}
setcentralwidget(table1)
show()
}
59.14. Using QTableWidget 631

The Ring programming language version 1.7 book - Part 66 of 196

More Related Content

What's hot (20)

Similar to The Ring programming language version 1.7 book - Part 66 of 196 (16)

More from Mahmoud Samir Fayed (20)

Recently uploaded (20)

The Ring programming language version 1.7 book - Part 66 of 196