Load "guilib.ring"

​

New qApp {

        win1 = new qMainWindow() {

                setwindowtitle("Using QFrame")

                for x = 0 to 10

                        frame1 = new qframe(win1,0) {

                                setGeometry(100,20+50*x,400,30)

                                setframestyle(QFrame_Raised | QFrame_WinPanel)

                        }

                next

                showMaximized()

        }

        exec()

}

Load "guilib.ring"

​

MyApp = New qApp {

​

        win1 = new qWidget() {

​

                setwindowtitle("Hello World")

                setGeometry(100,100,400,130)

                label1 = new qLabel(win1) {

                        settext("What is your name ?")

                        setGeometry(10,20,350,30)

                        setalignment(Qt_AlignHCenter)

                }

                btn1 = new qpushbutton(win1) {

                        setGeometry(10,200,100,30)

                        settext("Say Hello")

                        setclickevent("pHello()")

                }

                btn2 = new qpushbutton(win1) {

                        setGeometry(150,200,100,30)

                        settext("Close")

                        setclickevent("pClose()")

                }

                lineedit1 = new qlineedit(win1) {

                        setGeometry(10,100,350,30)

                }

                layout1 = new qVBoxLayout() {

                        addwidget(label1)

                        addwidget(lineedit1)

                        addwidget(btn1)

                        addwidget(btn2)

                }

                win1.setlayout(layout1)

                show()

        }

​

        exec()

​

}

​

Func pHello

        lineedit1.settext( "Hello " + lineedit1.text())

​

Func pClose

        MyApp.quit()

Load "guilib.ring"

​

New qApp {

​

        win1 = new qMainWindow() {

​

                setwindowtitle("Using QTabWidget")

                setGeometry(100,100,400,400)

​

                page1 = new qwidget() {

                        new qpushbutton(page1) {

                                settext("The First Page")

                        }

                }

​

                page2 = new qwidget() {

                        new qpushbutton(page2) {

                                settext("The Second Page")

                        }

                }

​

                page3 = new qwidget() {

                        new qpushbutton(page3) {

                                settext("The Third Page")

                        }

                }

​

                tab1 = new qtabwidget(win1) {

                        inserttab(0,page1,"Page 1")

                        inserttab(1,page2,"Page 2")

                        inserttab(2,page3,"Page 3")

                        setGeometry(100,100,400,400)

                }

​

                status1 = new qstatusbar(win1) {

                        showmessage("Ready!",0)

                }

​

                setstatusbar(status1)

                showMaximized()

        }

​

        exec()

}

Load "guilib.ring"

​

New qApp {

​

        win1 = new qMainWindow() {

​

                setGeometry(100,100,500,400)

                setwindowtitle("Using QSlider")

​

                new qslider(win1) {

                        setGeometry(100,100,50,130)

                        settickinterval(50)

                }

​

                new qslider(win1) {

                        setGeometry(100,250,250,30)

                        settickinterval(50)

                        setorientation(Qt_Horizontal)

                }

​

                show()

​

        }

​

        exec()

}

Load "guilib.ring"

​

New qApp {

        win1 = new qMainWindow() {

                setGeometry(100,100,450,500)

                setwindowtitle("Using QDial")

                new qdial(win1) {

                        setGeometry(100,100,250,300)

                }

                show()

        }

        exec()

}

Load "guilib.ring"

​

New qApp {

                 win1 = new qMainWindow()

                {

                        setGeometry(100,100,450,500)

                        setwindowtitle("Using QDial")

                        button1 = new QPushButton(win1){

                                setGeometry(100,350,100,30)

                                settext("Increment")

                                setClickEvent("pIncrement()")

                        }

​

                        button2 = new QPushButton(win1){

                                setGeometry(250,350,100,30)

                                settext("Decrement")

                                setClickEvent("pDecrement()")

                        }

                        pdial = new qdial(win1) {

                                setGeometry(100,50,250,300)

                                setNotchesVisible(true)

                                setValue(50)

                                SetValueChangedEvent("pDialMove()")

                        }

                        lineedit1 = new qlineedit(win1) {

                                setGeometry(200,400,50,30)

                                setalignment(Qt_AlignHCenter)

                                settext(string(pdial.value()))

                                setreturnPressedEvent("pPress()")

                        }

                        show()

                  }

        exec()

}

​

func pIncrement

        pdial{val=value()}

        pdial.setvalue(val+1)

        lineedit1{settext(string(val+1))}

​

func pDecrement

        pdial{val=value()}

        pdial.setvalue(val-1)

        lineedit1{settext(string(val-1))}

​

func pPress

        lineedit1{val=text()}

        pdial.setvalue(number(val))

​

func pDialMove

        lineedit1.settext(""+pdial.value())

Load "guilib.ring"

​

New qApp {

        win1 = new qMainWindow() {

                setwindowtitle("QWebView")

                myweb = new qwebview(win1) {

                        setGeometry(10,10,600,600)

                        loadpage(new qurl("http://google.com"))

                }

                setcentralwidget(myweb)

                showMaximized()

        }

        exec()

}

Load "guilib.ring"

​

new qApp {

        win1 = new qwidget() {

                setgeometry(100,100,200,70)

                setwindowtitle("Timer")

                label1 = new qlabel(win1) {

                        setgeometry(10,10,200,30)

                        settext(thetime())

                }

                new qtimer(win1) {

                        setinterval(1000)

                        settimeoutevent("pTime()")

                        start()

                }

                show()

        }

        exec()

}

​

func ptime

        label1.settext(thetime())

​

Func thetime

        return "Time : " + Time()

Load "guilib.ring"

New qapp {

        win1 = new qwidget() {

                setwindowtitle("Drawing using QPainter")

                setgeometry(100,100,500,500)

                label1 = new qlabel(win1) {

                        setgeometry(10,10,400,400)

                        settext("")

                }

                new qpushbutton(win1) {

                        setgeometry(200,400,100,30)

                        settext("draw")

                        setclickevent("draw()")

                }

​

                show()

        }

        exec()

}

​

Func draw

                p1 = new qpicture()

                color = new qcolor() {

                        setrgb(0,0,255,255)

                }

                pen = new qpen() {

                        setcolor(color)

                        setwidth(10)

                }

                new qpainter() {

                        begin(p1)

                        setpen(pen)

                        drawline(500,150,950,450)

                        drawline(950,550,500,150)

                        endpaint()

                }

                label1 { setpicture(p1) show() }