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

2010-09-29 10:51 UTC-0800 Pritpal Bedi (bedipritpal@hotmail.com)

Browse Source 
* contrib/hbxbp/xbp3state.prg
  * contrib/hbxbp/xbpappevent.prg
  * contrib/hbxbp/xbpbitmap.prg
  * contrib/hbxbp/xbpbrowse.prg
  * contrib/hbxbp/xbpcheckbox.prg
  * contrib/hbxbp/xbpclipboard.prg
  * contrib/hbxbp/xbpcombobox.prg
  * contrib/hbxbp/xbpdataref.prg
  * contrib/hbxbp/xbpdialog.prg
  * contrib/hbxbp/xbpfiledialog.prg
  * contrib/hbxbp/xbpfontdialog.prg
  * contrib/hbxbp/xbpgeneric.prg
  * contrib/hbxbp/xbpgra.prg
  * contrib/hbxbp/xbphtmlviewer.prg
  * contrib/hbxbp/xbplistbox.prg
  * contrib/hbxbp/xbpmenubar.prg
  * contrib/hbxbp/xbpmle.prg
  * contrib/hbxbp/xbpparthandler.prg
  * contrib/hbxbp/xbppresspace.prg
  * contrib/hbxbp/xbpprintdialog.prg
  * contrib/hbxbp/xbpprinter.prg
  * contrib/hbxbp/xbppushbutton.prg
  * contrib/hbxbp/xbpradiobutton.prg
  * contrib/hbxbp/xbprtf.prg
  * contrib/hbxbp/xbpscrollbar.prg
  * contrib/hbxbp/xbpspinbutton.prg
  * contrib/hbxbp/xbpstatic.prg
  * contrib/hbxbp/xbpstatusbar.prg
  * contrib/hbxbp/xbpstyle.prg
  * contrib/hbxbp/xbptabpage.prg
  * contrib/hbxbp/xbptoolbar.prg
  * contrib/hbxbp/xbptreeview.prg
  * contrib/hbxbp/xbpwindow.prg
    ! Class structure re-organized.
    ! Code normalized.
    ! Copyright touched.
This commit is contained in:
Pritpal Bedi
2010-09-29 17:58:23 +00:00
parent e5e37b172b
commit bc9d41c93b
34 changed files with 310 additions and 187 deletions
Download Patch File Download Diff File Expand all files Collapse all files

38
harbour/ChangeLog
View File

@@ -16,6 +16,44 @@
The license applies to all entries newer than 2009-04-28.
*/
2010-09-29 10:51 UTC-0800 Pritpal Bedi (bedipritpal@hotmail.com)
* contrib/hbxbp/xbp3state.prg
* contrib/hbxbp/xbpappevent.prg
* contrib/hbxbp/xbpbitmap.prg
* contrib/hbxbp/xbpbrowse.prg
* contrib/hbxbp/xbpcheckbox.prg
* contrib/hbxbp/xbpclipboard.prg
* contrib/hbxbp/xbpcombobox.prg
* contrib/hbxbp/xbpdataref.prg
* contrib/hbxbp/xbpdialog.prg
* contrib/hbxbp/xbpfiledialog.prg
* contrib/hbxbp/xbpfontdialog.prg
* contrib/hbxbp/xbpgeneric.prg
* contrib/hbxbp/xbpgra.prg
* contrib/hbxbp/xbphtmlviewer.prg
* contrib/hbxbp/xbplistbox.prg
* contrib/hbxbp/xbpmenubar.prg
* contrib/hbxbp/xbpmle.prg
* contrib/hbxbp/xbpparthandler.prg
* contrib/hbxbp/xbppresspace.prg
* contrib/hbxbp/xbpprintdialog.prg
* contrib/hbxbp/xbpprinter.prg
* contrib/hbxbp/xbppushbutton.prg
* contrib/hbxbp/xbpradiobutton.prg
* contrib/hbxbp/xbprtf.prg
* contrib/hbxbp/xbpscrollbar.prg
* contrib/hbxbp/xbpspinbutton.prg
* contrib/hbxbp/xbpstatic.prg
* contrib/hbxbp/xbpstatusbar.prg
* contrib/hbxbp/xbpstyle.prg
* contrib/hbxbp/xbptabpage.prg
* contrib/hbxbp/xbptoolbar.prg
* contrib/hbxbp/xbptreeview.prg
* contrib/hbxbp/xbpwindow.prg
! Class structure re-organized.
! Code normalized.
! Copyright touched.
2010-09-29 16:51 UTC+0200 Viktor Szakats (harbour.01 syenar.hu)
* examples/dbu/dbu52.dif
* examples/dbu/dbu53.dif

38
harbour/contrib/hbxbp/xbp3state.prg
View File

@@ -6,7 +6,7 @@
* Harbour Project source code:
* Source file for the Xbp*Classes
*
* Copyright 2009 Pritpal Bedi <pritpal@vouchcac.com>
* Copyright 2009-2010 Pritpal Bedi <bedipritpal@hotmail.com>
* http://harbour-project.org
*
* This program is free software; you can redistribute it and/or modify
@@ -56,9 +56,9 @@
* EkOnkar
* ( The LORD is ONE )
*
* Xbase++ xbp3State Compatible Class
* Xbase++ xbp3State Compatible Class
*
* Pritpal Bedi <pritpal@vouchcac.com>
* Pritpal Bedi
* 14Jun2009
*/
/*----------------------------------------------------------------------*/
@@ -85,6 +85,8 @@ CLASS Xbp3State INHERIT XbpWindow, XbpDataRef
METHOD hbCreateFromQtPtr( oParent, oOwner, aPos, aSize, aPresParams, lVisible, pQtObject )
METHOD configure( oParent, oOwner, aPos, aSize, aPresParams, lVisible )
METHOD destroy()
METHOD connect()
METHOD disconnect()
METHOD handleEvent( nEvent, mp1, mp2 )
METHOD setCaption( xCaption )
@@ -108,30 +110,22 @@ METHOD Xbp3State:create( oParent, oOwner, aPos, aSize, aPresParams, lVisible )
::xbpWindow:create( oParent, oOwner, aPos, aSize, aPresParams, lVisible )
::oWidget := QCheckBox( ::oParent:oWidget )
::oWidget:connect( "stateChanged(int)", {|i| ::execSlot( "stateChanged(int)", i ) } )
::oWidget:setTriState( .t. )
::connect()
::setPosAndSize()
IF ::visible
::show()
ENDIF
::oParent:AddChild( Self )
::postCreate()
::setCaption( ::caption )
IF ::selection
::oWidget:setCheckState( 2 )
ENDIF
IF ::visible
::show()
ENDIF
::editBuffer := ::oWidget:checkState()
::oParent:AddChild( SELF )
::postCreate()
RETURN Self
/*----------------------------------------------------------------------*/
@@ -142,7 +136,6 @@ METHOD Xbp3State:hbCreateFromQtPtr( oParent, oOwner, aPos, aSize, aPresParams, l
IF hb_isPointer( pQtObject )
::oWidget := QCheckBox():from( pQtObject )
ENDIF
RETURN Self
@@ -158,7 +151,7 @@ METHOD Xbp3State:execSlot( cSlot, p )
EXIT
ENDSWITCH
RETURN nil
RETURN NIL
/*----------------------------------------------------------------------*/
@@ -172,8 +165,21 @@ METHOD Xbp3State:handleEvent( nEvent, mp1, mp2 )
/*----------------------------------------------------------------------*/
METHOD Xbp3State:connect()
::oWidget:connect( "stateChanged(int)", {|i| ::execSlot( "stateChanged(int)", i ) } )
RETURN Self
/*----------------------------------------------------------------------*/
METHOD Xbp3State:disconnect()
::oWidget:disconnect( "stateChanged(int)" )
RETURN Self
/*----------------------------------------------------------------------*/
METHOD Xbp3State:destroy()
::disconnect()
::xbpWindow:destroy()
RETURN NIL

4
harbour/contrib/hbxbp/xbpappevent.prg
View File

@@ -6,7 +6,7 @@
* Harbour Project source code:
* Source file for the Xbp*Classes
*
* Copyright 2009 Pritpal Bedi <pritpal@vouchcac.com>
* Copyright 2009-2010 Pritpal Bedi <bedipritpal@hotmail.com>
* http://harbour-project.org
*
* This program is free software; you can redistribute it and/or modify
@@ -58,7 +58,7 @@
*
* Xbase++ appevent.ch translates
*
* Pritpal Bedi <pritpal@vouchcac.com>
* Pritpal Bedi
* 26Jun2009
*/
/*----------------------------------------------------------------------*/

4
harbour/contrib/hbxbp/xbpbitmap.prg
View File

@@ -6,7 +6,7 @@
* Harbour Project source code:
* Source file for the Xbp*Classes
*
* Copyright 2009 Pritpal Bedi <pritpal@vouchcac.com>
* Copyright 2009-2010 Pritpal Bedi <bedipritpal@hotmail.com>
* http://harbour-project.org
*
* This program is free software; you can redistribute it and/or modify
@@ -58,7 +58,7 @@
*
* Xbase++ xbpBitmap compatible Class
*
* Pritpal Bedi <pritpal@vouchcac.com>
* Pritpal Bedi
* 04Jul2009
*/
/*----------------------------------------------------------------------*/

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

@@ -6,7 +6,7 @@
* Harbour Project source code:
* Source file for the Xbp*Classes
*
* Copyright 2009 Pritpal Bedi <pritpal@vouchcac.com>
* Copyright 2009-2010 Pritpal Bedi <bedipritpal@hotmail.com>
* http://harbour-project.org
*
* Navigation Based on TBrowse.prg
@@ -61,7 +61,7 @@
*
* Xbase++ Compatible XbpBrowse Class
*
* Pritpal Bedi <pritpal@vouchcac.com>
* Pritpal Bedi
* 10Jul2009
*/
/*----------------------------------------------------------------------*/

27
harbour/contrib/hbxbp/xbpcheckbox.prg
View File

@@ -6,7 +6,7 @@
* Harbour Project source code:
* Source file for the Xbp*Classes
*
* Copyright 2009 Pritpal Bedi <pritpal@vouchcac.com>
* Copyright 2009-2010 Pritpal Bedi <bedipritpal@hotmail.com>
* http://harbour-project.org
*
* This program is free software; you can redistribute it and/or modify
@@ -58,7 +58,7 @@
*
* Xbase++ xbpPushButton Compatible Class
*
* Pritpal Bedi <pritpal@vouchcac.com>
* Pritpal Bedi
* 14Jun2009
*/
/*----------------------------------------------------------------------*/
@@ -87,6 +87,8 @@ CLASS XbpCheckBox INHERIT XbpWindow, XbpDataRef
METHOD destroy()
METHOD handleEvent( nEvent, mp1, mp2 )
METHOD execSlot( cSlot, p )
METHOD connect()
METHOD disconnect()
METHOD setCaption( xCaption )
METHOD selected( ... ) SETGET
@@ -108,21 +110,21 @@ METHOD XbpCheckBox:create( oParent, oOwner, aPos, aSize, aPresParams, lVisible )
::xbpWindow:create( oParent, oOwner, aPos, aSize, aPresParams, lVisible )
::oWidget := QCheckBox( ::oParent:oWidget )
::oWidget:connect( "stateChanged(int)", {|i| ::execSlot( "stateChanged(int)", i ) } )
::connect()
::setPosAndSize()
IF ::visible
::show()
ENDIF
::setCaption( ::caption )
::oParent:AddChild( SELF )
::postCreate()
IF ::selection
::oWidget:setChecked( .t. )
ENDIF
::editBuffer := ::oWidget:isChecked()
::oParent:AddChild( SELF )
::postCreate()
RETURN Self
/*----------------------------------------------------------------------*/
@@ -162,8 +164,21 @@ METHOD XbpCheckBox:handleEvent( nEvent, mp1, mp2 )
/*----------------------------------------------------------------------*/
METHOD XbpCheckBox:connect()
::oWidget:connect( "stateChanged(int)", {|i| ::execSlot( "stateChanged(int)", i ) } )
RETURN Self
/*----------------------------------------------------------------------*/
METHOD XbpCheckBox:disconnect()
::oWidget:disconnect( "stateChanged(int)" )
RETURN Self
/*----------------------------------------------------------------------*/
METHOD XbpCheckBox:destroy()
::disconnect()
::xbpWindow:destroy()
RETURN NIL

4
harbour/contrib/hbxbp/xbpclipboard.prg
View File

@@ -6,7 +6,7 @@
* Harbour Project source code:
* Source file for the Xbp*Classes
*
* Copyright 2009 Pritpal Bedi <pritpal@vouchcac.com>
* Copyright 2009-2010 Pritpal Bedi <bedipritpal@hotmail.com>
* http://harbour-project.org
*
* This program is free software; you can redistribute it and/or modify
@@ -58,7 +58,7 @@
*
* Xbase++ Compatible xbpClipBoard Class
*
* Pritpal Bedi <pritpal@vouchcac.com>
* Pritpal Bedi
* 13Mar2010
*/
/*----------------------------------------------------------------------*/

4
harbour/contrib/hbxbp/xbpcombobox.prg
View File

@@ -6,7 +6,7 @@
* Harbour Project source code:
* Source file for the Xbp*Classes
*
* Copyright 2009 Pritpal Bedi <pritpal@vouchcac.com>
* Copyright 2009-2010 Pritpal Bedi <bedipritpal@hotmail.com>
* http://harbour-project.org
*
* This program is free software; you can redistribute it and/or modify
@@ -58,7 +58,7 @@
*
* Xbase++ xbpComboBox compatible Class
*
* Pritpal Bedi <pritpal@vouchcac.com>
* Pritpal Bedi
* 20Jun2009
*/
/*----------------------------------------------------------------------*/

4
harbour/contrib/hbxbp/xbpdataref.prg
View File

@@ -6,7 +6,7 @@
* Harbour Project source code:
* Source file for the Xbp*Classes
*
* Copyright 2009 Pritpal Bedi <pritpal@vouchcac.com>
* Copyright 2009-2010 Pritpal Bedi <bedipritpal@hotmail.com>
* http://harbour-project.org
*
* This program is free software; you can redistribute it and/or modify
@@ -58,7 +58,7 @@
*
* Xbase++ dataRef Compatible Class
*
* Pritpal Bedi <pritpal@vouchcac.com>
* Pritpal Bedi
* 14Jun2009
*/
/*----------------------------------------------------------------------*/

4
harbour/contrib/hbxbp/xbpdialog.prg
View File

@@ -6,7 +6,7 @@
* Harbour Project source code:
* Source file for the Xbp*Classes
*
* Copyright 2009 Pritpal Bedi <pritpal@vouchcac.com>
* Copyright 2009-2010 Pritpal Bedi <bedipritpal@hotmail.com>
* http://harbour-project.org
*
* This program is free software; you can redistribute it and/or modify
@@ -58,7 +58,7 @@
*
* Xbase++ Compatible xbpDialog Class
*
* Pritpal Bedi <pritpal@vouchcac.com>
* Pritpal Bedi
* 29May2009
*/
/*----------------------------------------------------------------------*/

4
harbour/contrib/hbxbp/xbpfiledialog.prg
View File

@@ -6,7 +6,7 @@
* Harbour Project source code:
* Source file for the Xbp*Classes
*
* Copyright 2009 Pritpal Bedi <pritpal@vouchcac.com>
* Copyright 2009-2010 Pritpal Bedi <bedipritpal@hotmail.com>
* http://harbour-project.org
*
* This program is free software; you can redistribute it and/or modify
@@ -58,7 +58,7 @@
*
* Xbase++ Compatible xbpFileDialog Class
*
* Pritpal Bedi <pritpal@vouchcac.com>
* Pritpal Bedi
* 02Jul2009
*/
/*----------------------------------------------------------------------*/

4
harbour/contrib/hbxbp/xbpfontdialog.prg
View File

@@ -6,7 +6,7 @@
* Harbour Project source code:
* Source file for the Xbp*Classes
*
* Copyright 2009 Pritpal Bedi <pritpal@vouchcac.com>
* Copyright 2009-2010 Pritpal Bedi <bedipritpal@hotmail.com>
* http://harbour-project.org
*
* This program is free software; you can redistribute it and/or modify
@@ -58,7 +58,7 @@
*
* Xbase++ Compatible xbpFontDialog Class
*
* Pritpal Bedi <pritpal@vouchcac.com>
* Pritpal Bedi
* 02Jul2009
*/
/*----------------------------------------------------------------------*/

4
harbour/contrib/hbxbp/xbpgeneric.prg
View File

@@ -6,7 +6,7 @@
* Harbour Project source code:
* Source file for the Xbp*Classes
*
* Copyright 2009 Pritpal Bedi <pritpal@vouchcac.com>
* Copyright 2009-2010 Pritpal Bedi <bedipritpal@hotmail.com>
* http://harbour-project.org
*
* This program is free software; you can redistribute it and/or modify
@@ -58,7 +58,7 @@
*
* Xbase++ Compatible Function
*
* Pritpal Bedi <pritpal@vouchcac.com>
* Pritpal Bedi
* 08Jun2009
*/
/*----------------------------------------------------------------------*/

4
harbour/contrib/hbxbp/xbpgra.prg
View File

@@ -6,7 +6,7 @@
* Harbour Project source code:
* Source file for the Xbp*Classes
*
* Copyright 2010 Pritpal Bedi <pritpal@vouchcac.com>
* Copyright 2010 Pritpal Bedi <bedipritpal@hotmail.com>
* http://harbour-project.org
*
* This program is free software; you can redistribute it and/or modify
@@ -58,7 +58,7 @@
*
* Xbase++ Compatible Gra*() Functions
*
* Pritpal Bedi <pritpal@vouchcac.com>
* Pritpal Bedi
* 13Mar2010
*/
/*----------------------------------------------------------------------*/

4
harbour/contrib/hbxbp/xbphtmlviewer.prg
View File

@@ -6,7 +6,7 @@
* Harbour Project source code:
* Source file for the Xbp*Classes
*
* Copyright 2009 Pritpal Bedi <pritpal@vouchcac.com>
* Copyright 2009-2010 Pritpal Bedi <bedipritpal@hotmail.com>
* http://harbour-project.org
*
* This program is free software; you can redistribute it and/or modify
@@ -58,7 +58,7 @@
*
* Xbase++ xbpHtmlViewer compatible Class
*
* Pritpal Bedi <pritpal@vouchcac.com>
* Pritpal Bedi
* 02Jul2009
*/
/*----------------------------------------------------------------------*/

20
harbour/contrib/hbxbp/xbplistbox.prg
View File

@@ -6,7 +6,7 @@
* Harbour Project source code:
* Source file for the Wvg*Classes
*
* Copyright 2008 Pritpal Bedi <pritpal@vouchcac.com>
* Copyright 2008-2010 Pritpal Bedi <bedipritpal@hotmail.com>
* http://harbour-project.org
*
* This program is free software; you can redistribute it and/or modify
@@ -58,7 +58,7 @@
*
* Xbase++ xbpTreeView compatible Class
*
* Pritpal Bedi <pritpal@vouchcac.com>
* Pritpal Bedi
* 26Nov2008
*/
/*----------------------------------------------------------------------*/
@@ -147,7 +147,7 @@ CLASS XbpListBox INHERIT XbpWindow, XbpDataRef
METHOD XbpListBox:new( oParent, oOwner, aPos, aSize, aPresParams, lVisible )
::Initialize( oParent, oOwner, aPos, aSize, aPresParams, lVisible )
::initialize( oParent, oOwner, aPos, aSize, aPresParams, lVisible )
RETURN Self
@@ -168,9 +168,7 @@ METHOD XbpListBox:create( oParent, oOwner, aPos, aSize, aPresParams, lVisible )
IF ::markMode == XBPLISTBOX_MM_MULTIPLE
::oWidget:setSelectionMode( QAbstractItemView_MultiSelection )
ENDIF
::oWidget:setEditTriggers( QAbstractItemView_NoEditTriggers )
IF ! ::horizScroll
::oWidget:setHorizontalScrollBarPolicy( Qt_ScrollBarAlwaysOff )
ENDIF
@@ -178,11 +176,6 @@ METHOD XbpListBox:create( oParent, oOwner, aPos, aSize, aPresParams, lVisible )
::oWidget:setVerticalScrollBarPolicy( Qt_ScrollBarAlwaysOff )
ENDIF
::sl_editBuffer := {}
/* Window Events */
::oWidget:connect( QEvent_ContextMenu, {|e| ::grabEvent( QEvent_ContextMenu, e ) } )
::connect()
::setPosAndSize()
IF ::visible
@@ -190,12 +183,17 @@ METHOD XbpListBox:create( oParent, oOwner, aPos, aSize, aPresParams, lVisible )
ENDIF
::oParent:AddChild( SELF )
::postCreate()
::sl_editBuffer := {}
RETURN Self
/*----------------------------------------------------------------------*/
METHOD XbpListBox:connect()
::oWidget:connect( QEvent_ContextMenu, {|e| ::grabEvent( QEvent_ContextMenu, e ) } )
::oWidget:connect( "currentItemChanged(QLWItem,QLWItem)", {|p,p1| ::execSlot( "currentItemChanged(QLWItem,QLWItem)", p, p1 ) } )
::oWidget:connect( "currentRowChanged(int)" , {|p,p1| ::execSlot( "currentRowChanged(int)" , p, p1 ) } )
::oWidget:connect( "currentTextChanged(QString)" , {|p,p1| ::execSlot( "currentTextChanged(QString)" , p, p1 ) } )
@@ -213,6 +211,8 @@ METHOD XbpListBox:connect()
METHOD XbpListBox:disConnect()
::oWidget:disconnect( QEvent_ContextMenu )
::oWidget:disConnect( "currentItemChanged(QLWItem,QLWItem)" )
::oWidget:disConnect( "currentRowChanged(int)" )
::oWidget:disConnect( "currentTextChanged(QString)" )

47
harbour/contrib/hbxbp/xbpmenubar.prg
View File

@@ -6,7 +6,7 @@
* Harbour Project source code:
* Source file for the Xbp*Classes
*
* Copyright 2009 Pritpal Bedi <pritpal@vouchcac.com>
* Copyright 2009-2010 Pritpal Bedi <bedipritpal@hotmail.com>
* http://harbour-project.org
*
* This program is free software; you can redistribute it and/or modify
@@ -58,7 +58,7 @@
*
* Xbase++ Compatible xbpMenuBar Class
*
* Pritpal Bedi <pritpal@vouchcac.com>
* Pritpal Bedi
* 08Jun2009
*/
/*----------------------------------------------------------------------*/
@@ -156,15 +156,7 @@ CLASS xbpMenuBar INHERIT xbpWindow
METHOD xbpMenuBar:new( oParent, aPresParams, lVisible )
DEFAULT oParent TO ::oParent
DEFAULT aPresParams TO ::aPresParams
DEFAULT lVisible TO ::visible
::oParent := oParent
::aPresParams := aPresParams
::visible := lVisible
::xbpWindow:new( ::oParent, , , , ::aPresParams, ::visible )
::xbpWindow:init( oParent, , , , aPresParams, lVisible )
RETURN Self
@@ -172,15 +164,7 @@ METHOD xbpMenuBar:new( oParent, aPresParams, lVisible )
METHOD xbpMenuBar:create( oParent, aPresParams, lVisible )
DEFAULT oParent TO ::oParent
DEFAULT aPresParams TO ::aPresParams
DEFAULT lVisible TO ::visible
::oParent := oParent
::aPresParams := aPresParams
::visible := lVisible
::xbpWindow:create( ::oParent, , , , ::aPresParams, ::visible )
::xbpWindow:create( oParent, , , , aPresParams, lVisible )
::oWidget := QMenuBar()
::oParent:oWidget:setMenuBar( ::oWidget )
@@ -188,9 +172,9 @@ METHOD xbpMenuBar:create( oParent, aPresParams, lVisible )
if !empty( ::oWidget )
::oParent:oMenu := Self
endif
::oParent:addChild( self )
::postCreate()
RETURN Self
/*----------------------------------------------------------------------*/
@@ -713,15 +697,7 @@ CLASS xbpMenu INHERIT xbpMenuBar
METHOD xbpMenu:new( oParent, aPresParams, lVisible )
DEFAULT oParent TO ::oParent
DEFAULT aPresParams TO ::aPresParams
DEFAULT lVisible TO ::visible
::oParent := oParent
::aPresParams := aPresParams
::visible := lVisible
::xbpWindow:new( ::oParent, , , , ::aPresParams, ::visible )
::xbpWindow:init( oParent, , , , aPresParams, lVisible )
RETURN Self
@@ -729,21 +705,14 @@ METHOD xbpMenu:new( oParent, aPresParams, lVisible )
METHOD xbpMenu:create( oParent, aPresParams, lVisible )
DEFAULT oParent TO ::oParent
DEFAULT aPresParams TO ::aPresParams
DEFAULT lVisible TO ::visible
::oParent := oParent
::aPresParams := aPresParams
::visible := lVisible
::xbpWindow:create( ::oParent, , , , ::aPresParams, ::visible )
::xbpWindow:create( oParent, , , , aPresParams, lVisible )
::oWidget := QMenu()
::oParent:oWidget:addMenu( ::oWidget )
::oParent:addChild( self )
::postCreate()
RETURN Self
/*----------------------------------------------------------------------*/

4
harbour/contrib/hbxbp/xbpmle.prg
View File

@@ -6,7 +6,7 @@
* Harbour Project source code:
* Source file for the Xbp*Classes
*
* Copyright 2009 Pritpal Bedi <pritpal@vouchcac.com>
* Copyright 2009-2010 Pritpal Bedi <bedipritpal@hotmail.com>
* http://harbour-project.org
*
* This program is free software; you can redistribute it and/or modify
@@ -58,7 +58,7 @@
*
* Xbase++ xbpMLE compatible Class
*
* Pritpal Bedi <pritpal@vouchcac.com>
* Pritpal Bedi
* 19Jun2009
*/
/*----------------------------------------------------------------------*/

4
harbour/contrib/hbxbp/xbpparthandler.prg
View File

@@ -6,7 +6,7 @@
* Harbour Project source code:
* Source file for the Xbp*Classes
*
* Copyright 2008 Pritpal Bedi <pritpal@vouchcac.com>
* Copyright 2008-2010 Pritpal Bedi <bedipritpal@hotmail.com>
* http://harbour-project.org
*
* This program is free software; you can redistribute it and/or modify
@@ -58,7 +58,7 @@
*
* Xbase++ Compatible xbpPartHandler Class
*
* Pritpal Bedi <pritpal@vouchcac.com>
* Pritpal Bedi
* 08Nov2008
*/
/*----------------------------------------------------------------------*/

4
harbour/contrib/hbxbp/xbppresspace.prg
View File

@@ -6,7 +6,7 @@
* Harbour Project source code:
* Source file for the Xbp*Classes
*
* Copyright 2009 Pritpal Bedi <pritpal@vouchcac.com>
* Copyright 2009-2010 Pritpal Bedi <bedipritpal@hotmail.com>
* http://harbour-project.org
*
* This program is free software; you can redistribute it and/or modify
@@ -58,7 +58,7 @@
*
* Xbase++ Compatible xbpPresSpace Class
*
* Pritpal Bedi <pritpal@vouchcac.com>
* Pritpal Bedi
* 08Jul2009
*/
/*----------------------------------------------------------------------*/

4
harbour/contrib/hbxbp/xbpprintdialog.prg
View File

@@ -6,7 +6,7 @@
* Harbour Project source code:
* Source file for the Xbp*Classes
*
* Copyright 2009 Pritpal Bedi <pritpal@vouchcac.com>
* Copyright 2009-2010 Pritpal Bedi <bedipritpal@hotmail.com>
* http://harbour-project.org
*
* This program is free software; you can redistribute it and/or modify
@@ -58,7 +58,7 @@
*
* Xbase++ Compatible xbpPrintDialog Class
*
* Pritpal Bedi <pritpal@vouchcac.com>
* Pritpal Bedi
* 08Jul2009
*/
/*----------------------------------------------------------------------*/

4
harbour/contrib/hbxbp/xbpprinter.prg
View File

@@ -6,7 +6,7 @@
* Harbour Project source code:
* Source file for the Xbp*Classes
*
* Copyright 2009 Pritpal Bedi <pritpal@vouchcac.com>
* Copyright 2009-2010 Pritpal Bedi <bedipritpal@hotmail.com>
* http://harbour-project.org
*
* This program is free software; you can redistribute it and/or modify
@@ -58,7 +58,7 @@
*
* Xbase++ Compatible XbpPrinter Class
*
* Pritpal Bedi <pritpal@vouchcac.com>
* Pritpal Bedi
* 08Jul2009
*/
/*----------------------------------------------------------------------*/

45
harbour/contrib/hbxbp/xbppushbutton.prg
View File

@@ -6,7 +6,7 @@
* Harbour Project source code:
* Source file for the Xbp*Classes
*
* Copyright 2009 Pritpal Bedi <pritpal@vouchcac.com>
* Copyright 2009-2010 Pritpal Bedi <bedipritpal@hotmail.com>
* http://harbour-project.org
*
* This program is free software; you can redistribute it and/or modify
@@ -58,7 +58,7 @@
*
* Xbase++ xbpPushButton Compatible Class
*
* Pritpal Bedi <pritpal@vouchcac.com>
* Pritpal Bedi
* 13Jun2009
*/
/*----------------------------------------------------------------------*/
@@ -93,6 +93,8 @@ CLASS XbpPushButton INHERIT XbpWindow
METHOD hbCreateFromQtPtr( oParent, oOwner, aPos, aSize, aPresParams, lVisible, pQtObject )
METHOD configure( oParent, oOwner, aPos, aSize, aPresParams, lVisible )
METHOD destroy()
METHOD connect()
METHOD disconnect()
METHOD handleEvent( nEvent, mp1, mp2 )
METHOD execSlot( cSlot, p )
METHOD setStyle() VIRTUAL
@@ -121,22 +123,20 @@ METHOD XbpPushButton:create( oParent, oOwner, aPos, aSize, aPresParams, lVisible
::oWidget := QPushButton( ::oParent:oWidget )
::oWidget:setFocusPolicy( Qt_StrongFocus )
::setPosAndSize()
IF ::visible
::oWidget:show()
ENDIF
::setCaption( ::caption )
IF ::default
::oWidget:setDefault( .t. )
ENDIF
::oWidget:connect( "clicked()", {|| ::execSlot( "clicked()" ) } )
::oWidget:connect( "pressed()", {|| ::execSlot( "pressed()" ) } )
::connect()
::setPosAndSize()
IF ::visible
::oWidget:show()
ENDIF
::oParent:AddChild( SELF )
::postCreate()
::setCaption( ::caption )
RETURN Self
/*----------------------------------------------------------------------*/
@@ -163,10 +163,10 @@ METHOD XbpPushButton:hbCreateFromQtPtr( oParent, oOwner, aPos, aSize, aPresParam
ENDIF
::oWidget:connect( "clicked()", {|| ::execSlot( "clicked()" ) } )
::connect()
::addAsChild()
::postCreate()
RETURN Self
/*----------------------------------------------------------------------*/
@@ -196,8 +196,23 @@ METHOD XbpPushButton:handleEvent( nEvent, mp1, mp2 )
/*----------------------------------------------------------------------*/
METHOD XbpPushButton:connect()
::oWidget:connect( "clicked()", {|| ::execSlot( "clicked()" ) } )
::oWidget:connect( "pressed()", {|| ::execSlot( "pressed()" ) } )
RETURN Self
/*----------------------------------------------------------------------*/
METHOD XbpPushButton:disconnect()
::oWidget:disconnect( "clicked()" )
::oWidget:disconnect( "pressed()" )
RETURN Self
/*----------------------------------------------------------------------*/
METHOD XbpPushButton:destroy()
::disconnect()
::xbpWindow:destroy()
RETURN NIL

35
harbour/contrib/hbxbp/xbpradiobutton.prg
View File

@@ -6,7 +6,7 @@
* Harbour Project source code:
* Source file for the Xbp*Classes
*
* Copyright 2009 Pritpal Bedi <pritpal@vouchcac.com>
* Copyright 2009-2010 Pritpal Bedi <bedipritpal@hotmail.com>
* http://harbour-project.org
*
* This program is free software; you can redistribute it and/or modify
@@ -58,7 +58,7 @@
*
* Xbase++ xbpPushButton Compatible Class
*
* Pritpal Bedi <pritpal@vouchcac.com>
* Pritpal Bedi
* 14Jun2009
*/
/*----------------------------------------------------------------------*/
@@ -85,6 +85,8 @@ CLASS XbpRadioButton INHERIT XbpWindow, XbpDataRef
METHOD hbCreateFromQtPtr( oParent, oOwner, aPos, aSize, aPresParams, lVisible, pQtObject )
METHOD configure( oParent, oOwner, aPos, aSize, aPresParams, lVisible )
METHOD destroy()
METHOD connect()
METHOD disconnect()
METHOD handleEvent( nEvent, mp1, mp2 )
METHOD execSlot( cSlot, p )
@@ -108,21 +110,20 @@ METHOD XbpRadioButton:create( oParent, oOwner, aPos, aSize, aPresParams, lVisibl
::xbpWindow:create( oParent, oOwner, aPos, aSize, aPresParams, lVisible )
::oWidget := QRadioButton( ::oParent:oWidget )
::oWidget:connect( "clicked()", {|| ::execSlot( "clicked()" ) } )
::setPosAndSize()
IF ::visible
::show()
ENDIF
::setCaption( ::caption )
IF ::selection
::oWidget:setChecked( .t. )
ENDIF
::connect()
::setPosAndSize()
IF ::visible
::show()
ENDIF
::oParent:AddChild( SELF )
::postCreate()
::setCaption( ::caption )
RETURN Self
/*----------------------------------------------------------------------*/
@@ -162,6 +163,18 @@ METHOD XbpRadioButton:handleEvent( nEvent, mp1, mp2 )
/*----------------------------------------------------------------------*/
METHOD XbpRadioButton:connect()
::oWidget:connect( "clicked()", {|| ::execSlot( "clicked()" ) } )
RETURN Self
/*----------------------------------------------------------------------*/
METHOD XbpRadioButton:disconnect()
::oWidget:disconnect( "clicked()" )
RETURN Self
/*----------------------------------------------------------------------*/
METHOD XbpRadioButton:destroy()
::xbpWindow:destroy()

49
harbour/contrib/hbxbp/xbprtf.prg
View File

@@ -6,7 +6,7 @@
* Harbour Project source code:
* Source file for the Xbp*Classes
*
* Copyright 2009 Pritpal Bedi <pritpal@vouchcac.com>
* Copyright 2009-2010 Pritpal Bedi <bedipritpal@hotmail.com>
* http://harbour-project.org
*
* This program is free software; you can redistribute it and/or modify
@@ -58,7 +58,7 @@
*
* Xbase++ Compatible XbpRtf Class
*
* Pritpal Bedi <pritpal@vouchcac.com>
* Pritpal Bedi
* 10Jul2009
*/
/*----------------------------------------------------------------------*/
@@ -81,6 +81,8 @@ CLASS XbpRtf INHERIT XbpWindow
METHOD hbCreateFromQtPtr( oParent, oOwner, aPos, aSize, aPresParams, lVisible, pQtObject )
METHOD configure()
METHOD destroy()
METHOD connect()
METHOD disconnect()
METHOD handleEvent( nEvent, mp1, mp2 ) VIRTUAL
METHOD execSlot( cSlot, p )
METHOD setStyle() VIRTUAL
@@ -171,25 +173,18 @@ METHOD XbpRtf:create( oParent, oOwner, aPos, aSize, aPresParams, lVisible )
::oWidget := QTextEdit( ::pParent )
* ::oWidget:connect( "copyAvailable(bool)" , {|p| ::execSlot( "copyAvailable(bool)" , p ) } )
::oWidget:connect( "currentCharFormatChanged(QTextCharFormat)", {|p| ::execSlot( "currentCharFormatChanged(QTextCharFormat)", p ) } )
::oWidget:connect( "cursorPositionChanged()" , {|p| ::execSlot( "cursorPositionChanged()", p ) } )
::oWidget:connect( "redoAvailable(bool)" , {|p| ::execSlot( "redoAvailable(bool)" , p ) } )
::oWidget:connect( "undoAvailable(bool)" , {|p| ::execSlot( "undoAvailable(bool)" , p ) } )
::oWidget:connect( "textChanged()" , {|p| ::execSlot( "textChanged()" , p ) } )
::oWidget:connect( "selectionChanged()" , {|p| ::execSlot( "selectionChanged()" , p ) } )
::connect()
::setPosAndSize()
IF ::visible
::show()
ENDIF
::oParent:AddChild( SELF )
::postCreate()
::oTextDocument := ::oWidget:document()
::oTextCursor := ::oWidget:textCursor()
::oTextCharFormat := ::oTextCursor:charFormat()
::postCreate()
RETURN Self
/*----------------------------------------------------------------------*/
@@ -201,9 +196,10 @@ METHOD XbpRtf:hbCreateFromQtPtr( oParent, oOwner, aPos, aSize, aPresParams, lVis
IF hb_isPointer( pQtObject )
::oWidget := QTextEdit()
::oWidget := pQtObject
ENDIF
::connect()
RETURN Self
/*----------------------------------------------------------------------*/
@@ -239,8 +235,37 @@ METHOD XbpRtf:configure()
/*----------------------------------------------------------------------*/
METHOD XbpRtf:connect()
* ::oWidget:connect( "copyAvailable(bool)" , {|p| ::execSlot( "copyAvailable(bool)" , p ) } )
::oWidget:connect( "currentCharFormatChanged(QTextCharFormat)", {|p| ::execSlot( "currentCharFormatChanged(QTextCharFormat)", p ) } )
::oWidget:connect( "cursorPositionChanged()" , {|p| ::execSlot( "cursorPositionChanged()", p ) } )
::oWidget:connect( "redoAvailable(bool)" , {|p| ::execSlot( "redoAvailable(bool)" , p ) } )
::oWidget:connect( "undoAvailable(bool)" , {|p| ::execSlot( "undoAvailable(bool)" , p ) } )
::oWidget:connect( "textChanged()" , {|p| ::execSlot( "textChanged()" , p ) } )
::oWidget:connect( "selectionChanged()" , {|p| ::execSlot( "selectionChanged()" , p ) } )
RETURN Self
/*----------------------------------------------------------------------*/
METHOD XbpRtf:disconnect()
* ::oWidget:disconnect( "copyAvailable(bool)" )
::oWidget:disconnect( "currentCharFormatChanged(QTextCharFormat)" )
::oWidget:disconnect( "cursorPositionChanged()" )
::oWidget:disconnect( "redoAvailable(bool)" )
::oWidget:disconnect( "undoAvailable(bool)" )
::oWidget:disconnect( "textChanged()" )
::oWidget:disconnect( "selectionChanged()" )
RETURN Self
/*----------------------------------------------------------------------*/
METHOD XbpRtf:destroy()
::disconnect()
::xbpWindow:destroy()
::oTextDocument := NIL

28
harbour/contrib/hbxbp/xbpscrollbar.prg
View File

@@ -6,7 +6,7 @@
* Harbour Project source code:
* Source file for the Xbp*Classes
*
* Copyright 2009 Pritpal Bedi <pritpal@vouchcac.com>
* Copyright 2009-2010 Pritpal Bedi <bedipritpal@hotmail.com>
* http://harbour-project.org
*
* This program is free software; you can redistribute it and/or modify
@@ -58,7 +58,7 @@
*
* Xbase++ xbpScrollBar Compatible Class
*
* Pritpal Bedi <pritpal@vouchcac.com>
* Pritpal Bedi
* 15Jun2009
*/
/*----------------------------------------------------------------------*/
@@ -88,6 +88,8 @@ CLASS XbpScrollBar INHERIT XbpWindow, XbpDataRef
METHOD hbCreateFromQtPtr( oParent, oOwner, aPos, aSize, aPresParams, lVisible, pQtObject )
METHOD configure( oParent, oOwner, aPos, aSize, aPresParams, lVisible ) VIRTUAL
METHOD destroy()
METHOD connect()
METHOD disconnect()
METHOD scroll( ... ) SETGET
@@ -117,17 +119,16 @@ METHOD XbpScrollBar:create( oParent, oOwner, aPos, aSize, aPresParams, lVisible
::oWidget:setOrientation( IF( ::type == XBPSCROLL_VERTICAL, 2, 1 ) )
::oWidget:setTracking( ::autoTrack )
::oWidget:connect( "actionTriggered(int)", {|i| ::execSlot( "actionTriggered(int)", i ) } )
::connect()
::setPosAndSize()
::setRange( ::range )
IF ::visible
::show()
ENDIF
::oParent:AddChild( SELF )
::postCreate()
::setRange( ::range )
RETURN Self
/*----------------------------------------------------------------------*/
@@ -196,8 +197,21 @@ METHOD XbpScrollBar:handleEvent( nEvent, mp1, mp2 )
/*----------------------------------------------------------------------*/
METHOD XbpScrollBar:connect()
::oWidget:connect( "actionTriggered(int)", {|i| ::execSlot( "actionTriggered(int)", i ) } )
RETURN Self
/*----------------------------------------------------------------------*/
METHOD XbpScrollBar:disconnect()
::oWidget:disconnect( "actionTriggered(int)" )
RETURN Self
/*----------------------------------------------------------------------*/
METHOD XbpScrollBar:destroy()
::disconnect()
::xbpWindow:destroy()
RETURN NIL

50
harbour/contrib/hbxbp/xbpspinbutton.prg
View File

@@ -6,7 +6,7 @@
* Harbour Project source code:
* Source file for the Xbp*Classes
*
* Copyright 2009 Pritpal Bedi <pritpal@vouchcac.com>
* Copyright 2009-2010 Pritpal Bedi <bedipritpal@hotmail.com>
* http://harbour-project.org
*
* This program is free software; you can redistribute it and/or modify
@@ -56,9 +56,9 @@
* EkOnkar
* ( The LORD is ONE )
*
* Xbase++ XbpSpinButton compatible Class
* Xbase++ XbpSpinButton compatible Class
*
* Pritpal Bedi <pritpal@vouchcac.com>
* Pritpal Bedi
* 17Jun2009
*/
/*----------------------------------------------------------------------*/
@@ -95,6 +95,8 @@ CLASS XbpSpinButton INHERIT XbpWindow, XbpDataRef
METHOD hbCreateFromQtPtr( oParent, oOwner, aPos, aSize, aPresParams, lVisible, pQtObject )
METHOD configure( oParent, oOwner, aPos, aSize, aPresParams, lVisible ) VIRTUAL
METHOD destroy()
METHOD connect()
METHOD disconnect()
METHOD handleEvent( nEvent, mp1, mp2 )
METHOD execSlot( cSlot, p )
@@ -147,23 +149,16 @@ METHOD XbpSpinButton:create( oParent, oOwner, aPos, aSize, aPresParams, lVisible
::oWidget:setFrame( ::border )
::oWidget:setAlignment( es_[ ::align ] )
#if 0
::oWidget:connect( QEvent_FocusIn , {|| ::execSlot( "QEvent_FocusIn" ) } )
::oWidget:connect( QEvent_FocusOut, {|| ::execSlot( "QEvent_FocusOut" ) } )
::oWidget:connect( QEvent_KeyPress, {|| ::execSlot( "QEvent_KeyPress" ) } )
#endif
::oWidget:connect( "valueChanged(int)" , {|i| ::execSlot( "valueChanged(int)", i ) } )
::connect()
::setPosAndSize()
IF ::visible
::show()
ENDIF
::oParent:addChild( Self )
::postCreate()
::setData()
::oParent:addChild( Self )
::postCreate()
RETURN Self
/*----------------------------------------------------------------------*/
@@ -219,8 +214,37 @@ METHOD XbpSpinButton:handleEvent( nEvent, mp1, mp2 )
/*----------------------------------------------------------------------*/
METHOD XbpSpinButton:connect()
#if 0
::oWidget:connect( QEvent_FocusIn , {|| ::execSlot( "QEvent_FocusIn" ) } )
::oWidget:connect( QEvent_FocusOut, {|| ::execSlot( "QEvent_FocusOut" ) } )
::oWidget:connect( QEvent_KeyPress, {|| ::execSlot( "QEvent_KeyPress" ) } )
#endif
::oWidget:connect( "valueChanged(int)" , {|i| ::execSlot( "valueChanged(int)", i ) } )
RETURN Self
/*----------------------------------------------------------------------*/
METHOD XbpSpinButton:disconnect()
#if 0
::oWidget:connect( QEvent_FocusIn )
::oWidget:connect( QEvent_FocusOut )
::oWidget:connect( QEvent_KeyPress )
#endif
::oWidget:connect( "valueChanged(int)" )
RETURN Self
/*----------------------------------------------------------------------*/
METHOD XbpSpinButton:destroy()
::disconnect()
::xbpWindow:destroy()
RETURN NIL

4
harbour/contrib/hbxbp/xbpstatic.prg
View File

@@ -6,7 +6,7 @@
* Harbour Project source code:
* Source file for the Xbp*Classes
*
* Copyright 2009 Pritpal Bedi <pritpal@vouchcac.com>
* Copyright 2009-2010 Pritpal Bedi <bedipritpal@hotmail.com>
* http://harbour-project.org
*
* This program is free software; you can redistribute it and/or modify
@@ -58,7 +58,7 @@
*
* Xbase++ xbpStatic compatible Class
*
* Pritpal Bedi <pritpal@vouchcac.com>
* Pritpal Bedi
* 29Jun2009
*/
/*----------------------------------------------------------------------*/

4
harbour/contrib/hbxbp/xbpstatusbar.prg
View File

@@ -6,7 +6,7 @@
* Harbour Project source code:
* Source file for the Xbp*Classes
*
* Copyright 2009 Pritpal Bedi <pritpal@vouchcac.com>
* Copyright 2009-2010 Pritpal Bedi <bedipritpal@hotmail.com>
* http://harbour-project.org
*
* This program is free software; you can redistribute it and/or modify
@@ -58,7 +58,7 @@
*
* Xbase++ xbpStatusBar Compatible Class
*
* Pritpal Bedi <pritpal@vouchcac.com>
* Pritpal Bedi
* 14Jun2009
*/
/*----------------------------------------------------------------------*/

6
harbour/contrib/hbxbp/xbpstyle.prg
View File

@@ -6,7 +6,7 @@
* Harbour Project source code:
* Source file for the Xbp*Classes
*
* Copyright 2009 Pritpal Bedi <pritpal@vouchcac.com>
* Copyright 2009-2010 Pritpal Bedi <bedipritpal@hotmail.com>
* http://harbour-project.org
*
* This program is free software; you can redistribute it and/or modify
@@ -56,9 +56,9 @@
* EkOnkar
* ( The LORD is ONE )
*
Class XbpStyle()
* Class XbpStyle()
*
* Pritpal Bedi <pritpal@vouchcac.com>
* Pritpal Bedi
* 21Jun2009
*/
/*----------------------------------------------------------------------*/

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

@@ -6,7 +6,7 @@
* Harbour Project source code:
* Source file for the Xbp*Classes
*
* Copyright 2009 Pritpal Bedi <pritpal@vouchcac.com>
* Copyright 2009-2010 Pritpal Bedi <bedipritpal@hotmail.com>
* http://harbour-project.org
*
* This program is free software; you can redistribute it and/or modify
@@ -58,7 +58,7 @@
*
* Xbase++ xbpTabPage compatible Class
*
* Pritpal Bedi <pritpal@vouchcac.com>
* Pritpal Bedi
* 14Jun2009
*/
/*----------------------------------------------------------------------*/
@@ -145,8 +145,8 @@ METHOD XbpTabPage:create( oParent, oOwner, aPos, aSize, aPresParams, lVisible )
IF ::visible
::show()
ENDIF
oPar:addChild( SELF )
::postCreate()
RETURN Self
@@ -330,16 +330,15 @@ METHOD XbpTabWidget:destroy()
/*----------------------------------------------------------------------*/
METHOD XbpTabWidget:execSlot( cSlot, p )
LOCAL qTab, nIndex, oTab, pWidget, qPoint, qApp
LOCAL iIndex
LOCAL qTab, nIndex, oTab, qWidget, qPoint, iIndex
IF hb_isPointer( p )
qPoint := ::oWidget:mapToGlobal( p )
qApp := QApplication()
pWidget := qApp:widgetAt( qPoint )
qWidget := QApplication():widgetAt( qPoint )
iIndex := ascan( ::aChildren, {|o| hbqt_IsEqualGcQtPointer( o:oWidget:pPtr, pWidget:pPtr ) } ) - 1
HB_TRACE( HB_TR_DEBUG, "iIndex", iIndex, pWidget:objectName() )
iIndex := ascan( ::aChildren, {|o| hbqt_IsEqualGcQtPointer( o:oWidget:pPtr, qWidget:pPtr ) } ) - 1
// iIndex := ascan( ::aChildren, {|o| hbqt_areEqualObjects( o:oWidget, qWidget ) } ) - 1
HB_TRACE( HB_TR_ALWAYS, "iIndex", iIndex, qWidget:objectName() )
ELSE
iIndex := p
ENDIF
@@ -348,6 +347,8 @@ HB_TRACE( HB_TR_DEBUG, "iIndex", iIndex, pWidget:objectName() )
qTab := ::oWidget:widget( iIndex )
IF ( nIndex := ascan( ::aChildren, {|o| hbqt_IsEqualGcQtPointer( o:oWidget:pPtr, qTab:pPtr ) } ) ) > 0
// IF ( nIndex := ascan( ::aChildren, {|o| hbqt_areEqualObjects( o:oWidget, qTab ) } ) ) > 0
//HB_TRACE( HB_TR_ALWAYS, "hurray", iIndex, nIndex )
oTab := ::aChildren[ nIndex ]
DO CASE

5
harbour/contrib/hbxbp/xbptoolbar.prg
View File

@@ -6,7 +6,7 @@
* Harbour Project source code:
* Source file for the xbp*Classes
*
* Copyright 2009 Pritpal Bedi <pritpal@vouchcac.com>
* Copyright 2009-2010 Pritpal Bedi <bedipritpal@hotmail.com>
* http://harbour-project.org
*
* This program is free software; you can redistribute it and/or modify
@@ -58,7 +58,7 @@
*
* Xbase++ xbpToolBar Compatible Class
*
* Pritpal Bedi <pritpal@vouchcac.com>
* Pritpal Bedi
* 13Jun2009
*/
/*----------------------------------------------------------------------*/
@@ -189,6 +189,7 @@ METHOD XbpToolbar:create( oParent, oOwner, aPos, aSize, aPresParams, lVisible )
ENDIF
::oParent:AddChild( SELF )
::postCreate()
RETURN Self
/*----------------------------------------------------------------------*/

6
harbour/contrib/hbxbp/xbptreeview.prg
View File

@@ -6,7 +6,7 @@
* Harbour Project source code:
* Source file for the Xbp*Classes
*
* Copyright 2009 Pritpal Bedi <pritpal@vouchcac.com>
* Copyright 2009-2010 Pritpal Bedi <bedipritpal@hotmail.com>
* http://harbour-project.org
*
* This program is free software; you can redistribute it and/or modify
@@ -58,7 +58,7 @@
*
* Xbase++ xbpTreeView compatible Class
*
* Pritpal Bedi <pritpal@vouchcac.com>
* Pritpal Bedi
* 20Jun2009
*/
/*----------------------------------------------------------------------*/
@@ -161,13 +161,13 @@ METHOD XbpTreeView:create( oParent, oOwner, aPos, aSize, aPresParams, lVisible )
::oRootItem:oWidget := ::oWidget:invisibleRootItem()
::connect()
::setPosAndSize()
IF ::visible
::show()
ENDIF
::oParent:AddChild( SELF )
::postCreate()
RETURN Self
/*----------------------------------------------------------------------*/

8
harbour/contrib/hbxbp/xbpwindow.prg
View File

@@ -6,7 +6,7 @@
* Harbour Project source code:
* Source file for the Xbp*Classes
*
* Copyright 2008 Pritpal Bedi <pritpal@vouchcac.com>
* Copyright 2008-2010 Pritpal Bedi <bedipritpal@hotmail.com>
* http://harbour-project.org
*
* This program is free software; you can redistribute it and/or modify
@@ -58,7 +58,7 @@
*
* Xbase++ Compatible xbpWindow Class
*
* Pritpal Bedi <pritpal@vouchcac.com>
* Pritpal Bedi
* 29May2009
*/
/*----------------------------------------------------------------------*/
@@ -1285,7 +1285,9 @@ METHOD XbpWindow:currentSize()
METHOD XbpWindow:getHWND()
RETURN ::oWidget:pPtr
MsgBox( "hbQT is a not a Windows only solution !" )
RETURN NIL
/*----------------------------------------------------------------------*/