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

2010-09-28 17:17 UTC-0800 Pritpal Bedi (bedipritpal@hotmail.com)

Browse Source 
* contrib/hbqt/tests/testbrow.prg
    ! Adopted to latest changes.
This commit is contained in:
Pritpal Bedi
2010-09-29 00:14:50 +00:00
parent c429bee405
commit ba5928a412
2 changed files with 8 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
harbour/ChangeLog
View File

@@ -16,6 +16,10 @@
The license applies to all entries newer than 2009-04-28.
*/
2010-09-28 17:17 UTC-0800 Pritpal Bedi (bedipritpal@hotmail.com)
* contrib/hbqt/tests/testbrow.prg
! Adopted to latest changes.
2010-09-29 02:08 UTC+0200 Przemyslaw Czerpak (druzus/at/priv.onet.pl)
* harbour/include/hbapirdd.h
* harbour/src/rdd/workarea.c

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

@@ -37,7 +37,6 @@ REQUEST HB_QTGUI
INIT PROCEDURE Qt_Start()
qApp := QApplication()
qSlots := QT_SLOTS_NEW()
RETURN
EXIT PROCEDURE Qt_End()
@@ -70,14 +69,14 @@ PROCEDURE Main()
mo1 := HBQAbstractItemModel( {| t, r, x, y| my_browse( 1, aStru1, t, r, x, y ) } )
tb1:setModel( mo1 )
QT_SLOTS_CONNECT( qSlots, tb1:itemDelegate(), "commitData(QWidget)", {| w | my_save( w, 1, aStru1, @nCX1, @nCY1 ) } )
QT_SLOTS_CONNECT( qslots, tb1:SelectionModel(), "currentChanged(QModelIndex,QModelIndex)", {| n | my_select( n, @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 := QHeaderView():from( tb1:horizontalHeader() )
hd1 := tb1:horizontalHeader()
FOR i := 1 To Len( aStru1 )
hd1:resizeSection( i - 1, aStru1[ i, 3 ] * 6 + 60 )
NEXT
QHeaderView():from( tb1:verticalHeader() ):setDefaultSectionSize( 24 )
tb1:verticalHeader():setDefaultSectionSize( 24 )
oSize := QSize(50,24)