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

2011-04-03 12:47 UTC-0800 Pritpal Bedi (bedipritpal@hotmail.com)

Browse Source 
* contrib/hbqt/qtgui/qth/HBQGraphicsItem.qth
  * contrib/hbqt/qtgui/qth/HBQGraphicsScene.qth
  * contrib/hbqt/qtgui/qth/HBQPlainTextEdit.qth
  * contrib/hbqt/qtgui/qth/HBQTableView.qth
    ! Formatting.

  * contrib/hbxbp/xbpbrowse.prg
    ! Made constructor Xbase++ compatible. [Shum].
This commit is contained in:
Pritpal Bedi
2011-04-03 19:54:13 +00:00
parent bcba7278c8
commit 07c77f5619
6 changed files with 59 additions and 40 deletions
Download Patch File Download Diff File Expand all files Collapse all files

10
harbour/ChangeLog
View File

@@ -16,6 +16,16 @@
The license applies to all entries newer than 2009-04-28.
*/
2011-04-03 12:47 UTC-0800 Pritpal Bedi (bedipritpal@hotmail.com)
* contrib/hbqt/qtgui/qth/HBQGraphicsItem.qth
* contrib/hbqt/qtgui/qth/HBQGraphicsScene.qth
* contrib/hbqt/qtgui/qth/HBQPlainTextEdit.qth
* contrib/hbqt/qtgui/qth/HBQTableView.qth
! Formatting.
* contrib/hbxbp/xbpbrowse.prg
! Made constructor Xbase++ compatible. [Shum].
2011-04-03 08:33 UTC-0800 Pritpal Bedi (bedipritpal@hotmail.com)
* contrib/hbqt/qtgui/hbqtgui.ch
+ Added: QFormLayout_* constants.

16
harbour/contrib/hbqt/qtgui/qth/HBQGraphicsItem.qth
View File

@@ -28,17 +28,19 @@ HBQT_GC_FUNC( hbqt_gcMark_HBQGraphicsItem )
HB_TRACE( HB_TR_DEBUG, ( "gcMark_HBQGraphicsItem" ) );
if( p )
if( p->ph )
{
HBQGraphicsItem * ip = ( HBQGraphicsItem * ) p->ph;
if( ip )
{
{
if( p->ph )
{
HBQGraphicsItem * ip = ( HBQGraphicsItem * ) p->ph;
if( ip )
{
if (ip->block)
{
hb_gcMark( ip->block );
}
}
}
}
}
}
}
/*

16
harbour/contrib/hbqt/qtgui/qth/HBQGraphicsScene.qth
View File

@@ -27,17 +27,19 @@ HBQT_GC_FUNC( hbqt_gcMark_HBQGraphicsScene )
HBQT_GC_T_HBQGraphicsScene * p = ( HBQT_GC_T_HBQGraphicsScene * ) Cargo;
if( p )
if( p->ph )
{
HBQGraphicsScene * ip = ( HBQGraphicsScene * ) p->ph;
if( ip )
{
{
if( p->ph )
{
HBQGraphicsScene * ip = ( HBQGraphicsScene * ) p->ph;
if( ip )
{
if (ip->block)
{
hb_gcMark( ip->block );
}
}
}
}
}
}
}
/*

20
harbour/contrib/hbqt/qtgui/qth/HBQPlainTextEdit.qth
View File

@@ -31,15 +31,19 @@ HBQT_GC_FUNC( hbqt_gcMark_HBQPlainTextEdit )
HBQT_GC_T_HBQPlainTextEdit * p = ( HBQT_GC_T_HBQPlainTextEdit * ) Cargo;
if( p )
if( p->ph )
{
HBQPlainTextEdit * ip = ( HBQPlainTextEdit * ) p->ph;
if( ip )
{
if (ip->block)
{
if( p->ph )
{
HBQPlainTextEdit * ip = ( HBQPlainTextEdit * ) p->ph;
if( ip )
{
if( ip->block )
{
hb_gcMark( ip->block );
}
}
}
}
}
}
}
/*

18
harbour/contrib/hbqt/qtgui/qth/HBQTableView.qth
View File

@@ -33,17 +33,19 @@ HBQT_GC_FUNC( hbqt_gcMark_HBQTableView )
HBQT_GC_T_HBQTableView * p = ( HBQT_GC_T_HBQTableView * ) Cargo;
if( p )
if( p->ph )
{
HBQTableView * ip = ( HBQTableView * ) p->ph;
if( ip )
{
if (ip->block)
{
if( p->ph )
{
HBQTableView * ip = ( HBQTableView * ) p->ph;
if( ip )
{
if( ip->block )
{
hb_gcMark( ip->block );
}
}
}
}
}
}
}

19
harbour/contrib/hbxbp/xbpbrowse.prg
View File

@@ -300,7 +300,8 @@ EXPORTED:
MESSAGE _right() METHOD Right()
MESSAGE _end() METHOD End()
METHOD init( nTop, nLeft, nBottom, nRight ) // constructor, NOTE: This method is a Harbour extension [vszakats]
//METHOD init( nTop, nLeft, nBottom, nRight ) // constructor, NOTE: This method is a Harbour extension [vszakats]
METHOD init( oParent, oOwner, aPos, aSize, aPresParams, lVisible ) // constructor, NOTE: This method is a Harbour extension [vszakats]
METHOD create( oParent, oOwner, aPos, aSize, aPresParams, lVisible ) // constructor, NOTE: This method is a Harbour extension [vszakats]
METHOD execSlot( nEvent, p1, p2, p3 ) // executes view events
METHOD supplyInfo( nMode, nCall, nRole, nX, nY ) // supplies cell parameters to Qt engine
@@ -603,17 +604,15 @@ METHOD XbpBrowse:disconnect()
/*----------------------------------------------------------------------*/
/* Just to retain TBrowse functionality: in the future */
METHOD XbpBrowse:init( nTop, nLeft, nBottom, nRight )
//METHOD XbpBrowse:init( nTop, nLeft, nBottom, nRight )
METHOD XbpBrowse:init( oParent, oOwner, aPos, aSize, aPresParams, lVisible )
DEFAULT nTop TO 0
DEFAULT nLeft TO 0
DEFAULT nBottom TO MaxRow()
DEFAULT nRight TO MaxCol()
::xbpWindow:init( oParent, oOwner, aPos, aSize, aPresParams, lVisible )
::nTop := nTop
::nLeft := nLeft
::nBottom := nBottom
::nRight := nRight
::nTop := iif( empty( ::aPos ), 0, ::aPos[ 1 ] )
::nLeft := iif( empty( ::aPos ), 0, ::aPos[ 2 ] )
::nBottom := iif( empty( ::aSize ), MaxRow(), ::aSize[ 1 ] )
::nRight := iif( empty( ::aSize ), MaxCol(), ::aSize[ 2 ] )
::colorSpec := SetColor()