fivedev/harbour-core
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

2011-02-24 18:40 UTC-0800 Pritpal Bedi (bedipritpal@hotmail.com)

Browse Source 
* contrib/hbqt/tests/testbrow.prg
  * contrib/hbqt/tests/testqaim.prg
  * contrib/hbqt/tests/testres.prg
    ! Adopted: to latest hbQT changes.
This commit is contained in:
Pritpal Bedi
2011-02-25 02:43:16 +00:00
parent e503422b1c
commit c59cfbe652
4 changed files with 12 additions and 25 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
harbour/ChangeLog
View File

@@ -16,6 +16,12 @@
The license applies to all entries newer than 2009-04-28.
*/
2011-02-24 18:40 UTC-0800 Pritpal Bedi (bedipritpal@hotmail.com)
* contrib/hbqt/tests/testbrow.prg
* contrib/hbqt/tests/testqaim.prg
* contrib/hbqt/tests/testres.prg
! Adopted: to latest hbQT changes.
2011-02-24 18:03 UTC-0800 Pritpal Bedi (bedipritpal@hotmail.com)
* contrib/hbqt/hbmk2_qt.hbs

19
harbour/contrib/hbqt/tests/testbrow.prg
View File

@@ -31,14 +31,6 @@ STATIC oColorD
STATIC oColorLY
STATIC oColorLN
INIT PROCEDURE Qt_Start()
qApp := QApplication()
RETURN
EXIT PROCEDURE Qt_End()
qApp:quit()
RETURN
PROCEDURE Main()
LOCAL tb1, mo1, lay1, lay2, bt1, bt2, bt3, hd1, i
@@ -65,7 +57,7 @@ PROCEDURE Main()
mo1 := HBQAbstractItemModel( {| t, r, x, y| my_browse( 1, aStru1, t, r, x, y ) } )
tb1:setModel( mo1 )
tb1:itemDelegate():connect( "commitData(QWidget)", {| w | my_save( w, 1, aStru1, @nCX1, @nCY1 ) } )
tb1:itemDelegate():connect( "commitData(QWidget*)", {| w | my_save( w, 1, aStru1, @nCX1, @nCY1 ) } )
tb1:selectionModel():connect( "currentChanged(QModelIndex,QModelIndex)", {| n | my_select( n, @nCX1, @nCY1 ) } )
hd1 := tb1:horizontalHeader()
@@ -91,12 +83,12 @@ PROCEDURE Main()
lay2:addWidget( bt3 )
oWnd:Show()
qApp:exec()
QApplication():exec()
RETURN
STATIC PROCEDURE my_save( pWidget, nArea, aStru, nCX, nCY )
LOCAL cData := QLineEditFromPointer( pWidget ):text()
STATIC PROCEDURE my_save( qWidget, nArea, aStru, nCX, nCY )
LOCAL cData := qWidget:text()
DBSelectArea( nArea )
DBGoto( nCY + 1 )
@@ -117,8 +109,7 @@ STATIC PROCEDURE my_save( pWidget, nArea, aStru, nCX, nCY )
ENDSWITCH
RETURN
STATIC PROCEDURE my_select( pModelIndex, nCX, nCY )
LOCAL qModelIndex := QModelIndexFromPointer( pModelIndex )
STATIC PROCEDURE my_select( qModelIndex, nCX, nCY )
nCX := qModelIndex:column()
nCY := qModelIndex:row()

11
harbour/contrib/hbqt/tests/testqaim.prg
View File

@@ -16,20 +16,11 @@
#include "common.ch"
STATIC qApp
STATIC oWnd
STATIC oDA, oForeColor, oAlphaColor, oBackBrush, oSize, oPixmap, oIcon, oFont
INIT PROCEDURE Qt_Start()
qApp := QApplication()
RETURN
EXIT PROCEDURE Qt_End()
qApp:quit()
RETURN
PROCEDURE Main()
LOCAL tb1, mo1, lay1, lay2, bt1, bt2, bt3
@@ -73,7 +64,7 @@ PROCEDURE Main()
lay2:addWidget( bt3 )
oWnd:Show()
qApp:exec()
QApplication():exec()
RETURN

1
harbour/contrib/hbqt/tests/testres.prg
View File

@@ -27,7 +27,6 @@ INIT PROCEDURE Qt_Start()
EXIT PROCEDURE Qt_End()
s_re1:unregisterResource_1( HBQTRES_TESTRES() )
s_qApp:quit()
RETURN
PROCEDURE Main()