Barry Jackson wrote:
>
> Any chance of "Hello_Qt_World.prg" with a push button. Nothing more.
> Just to get started ?
>
> The xhgtk samples are the sort of thing I mean, see button01.prg below.
>
REQUEST HB_QT
STATIC s_qApp
STATIC s_slots
INIT PROCEDURE Qt_Start()
hbqt_errorsys()
s_qApp := QApplication():new()
RETURN
EXIT PROCEDURE Qt_End()
s_qApp:quit()
RETURN
PROCEDURE Main()
Local oWnd, oDA, oBtn
s_slots := QT_SLOTS_NEW()
oWnd := QMainWindow():new()
oWnd:setWindowTitle( "Harbour-Qt Implementation Test Dialog" )
oWnd:setWindowIcon( "test" )
oWnd:resize( 900, 500 )
oDA := QWidget():new( oWnd )
oWnd:setCentralWidget( oDA )
oWnd:show()
oBtn := QPushButton():new( oDA )
oBtn:move( 200, 100 )
oBtn:resize( 60, 30 )
oBtn:setText( "Hello World" )
oBtn:show()
QT_SLOTS_CONNECT( s_slots, oBtn, "clicked()", {|| oWnd:close() } )
oWnd:Show()
s_qApp:exec()
RETURN
A quick pullout of hbqt/tests/demoqt.prg, not tested,
but surely you can grab the contents.
-----
enjoy hbIDEing...
Pritpal Bedi
_a_student_of_software_analysis_&_design_
--
View this message in context:
http://n2.nabble.com/Anyone-using-hbqt-tp4633339p4633795.html
Sent from the harbour-devel mailing list archive at Nabble.com.
_______________________________________________
Harbour mailing list (attachment size limit: 40KB)
[email protected]
http://lists.harbour-project.org/mailman/listinfo/harbour
