763fd428b7
* contrib/hbqt/qtcore/hbqt_hbqevents.cpp
! Fix to prev.
* contrib/hbqt/tests/browqt.prg
* contrib/hbqt/tests/dbfbrowser.prg
* contrib/hbqt/tests/demoqt.prg
* contrib/hbqt/tests/draggable.prg
* contrib/hbqt/tests/inherit.prg
* contrib/hbqt/tests/qtrevamp.prg
* contrib/hbqt/tests/testbrow.prg
- Removed: :disconnect() calls. Now all is working like
the way we are accustomed to.
48 lines
646 B
Plaintext
48 lines
646 B
Plaintext
/*
|
|
* $Id$
|
|
*/
|
|
|
|
/*
|
|
* Harbour Project source code:
|
|
*
|
|
* Copyright 2012 Francesco Perillo
|
|
* www - http://harbour-project.org
|
|
*
|
|
*/
|
|
|
|
#include "hbclass.ch"
|
|
#include "hbtrace.ch"
|
|
|
|
CREATE CLASS myCell FROM HB_QLabel
|
|
|
|
DATA myValue INIT "Starting value"
|
|
|
|
END CLASS
|
|
|
|
|
|
PROCEDURE MAIN
|
|
LOCAL oWnd
|
|
LOCAL oTB
|
|
LOCAL oLbl
|
|
|
|
oWnd := QMainWindow()
|
|
|
|
oTB := QTableWidget( )
|
|
oTB:setColumnCount( 1 )
|
|
oTB:setRowCount( 1 )
|
|
|
|
oWnd:setCentralWidget( oTB )
|
|
|
|
oLbl := myCell():New( )
|
|
oLbl:myValue = "new value"
|
|
|
|
oLbl:setText( "Test for Bacco" )
|
|
oTB:setCellWidget( 0, 0, oLbl )
|
|
|
|
oWnd:show()
|
|
|
|
QApplication():exec()
|
|
|
|
RETURN
|
|
|