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

2009-08-16 21:53 UTC-0800 Pritpal Bedi (pritpal@vouchcac.com)

Browse Source 
* contrib/hbxbp/xbpgeneric.prg
    ! Optimized AppEvent()
    ! Fixed memory leak in MsgBox() function.

  * contrib/hbxbp/xbpbrowse.prg
    ! Navigation optimized.

    ! Greatly improved horizontal navigation. It is now more Clipper like.

    + Implemented rest of the event handelling:
         ::itemSelected()
         ::itemMarked()
         ::itemRbDown()
         ::xbeK_Enter

    + Implemented other blocks:
         ::hitTopBlock
         ::hitBottomBlock
         ::stableBlock

  * contrib/hbxbp/tests/demoxbp.prg
    ! Demonstation of improved horizontal scroll.
    ! Demonstrated indexed table browser.

  ; TODO: xbeBRW_ForceStable event.

  /*  Can someone make experiments and let me know any artifacts missing ? */
This commit is contained in:
Pritpal Bedi
2009-08-17 04:58:55 +00:00
parent e223dff7e8
commit b0ecbf33df
4 changed files with 498 additions and 359 deletions
Download Patch File Download Diff File Expand all files Collapse all files

29
harbour/ChangeLog
View File

@@ -17,6 +17,35 @@
past entries belonging to author(s): Viktor Szakats.
*/
2009-08-16 21:53 UTC-0800 Pritpal Bedi (pritpal@vouchcac.com)
* contrib/hbxbp/xbpgeneric.prg
! Optimized AppEvent()
! Fixed memory leak in MsgBox() function.
* contrib/hbxbp/xbpbrowse.prg
! Navigation optimized.
! Greatly improved horizontal navigation. It is now more Clipper like.
+ Implemented rest of the event handelling:
::itemSelected()
::itemMarked()
::itemRbDown()
::xbeK_Enter
+ Implemented other blocks:
::hitTopBlock
::hitBottomBlock
::stableBlock
* contrib/hbxbp/tests/demoxbp.prg
! Demonstation of improved horizontal scroll.
! Demonstrated indexed table browser.
; TODO: xbeBRW_ForceStable event.
/* Can someone make experiments and let me know any artifacts missing ? */
2009-08-16 21:44 UTC-0800 Pritpal Bedi (pritpal@vouchcac.com)
* contrib/hbqt/hbqt_slots.cpp

89
harbour/contrib/hbxbp/tests/demoxbp.prg
View File

@@ -1581,27 +1581,42 @@ FUNCTION Build_Browse( oWnd )
Set( _SET_DATEFORMAT, "yyyy.mm.dd" ) /* ANSI */
USE ( cPath + "test.dbf" ) NEW SHARED VIA 'DBFCDX'
#if 1
INDEX ON test->last TAG "LAST" TO ( cPath + "test.cdx" )
#endif
DbGotop()
oXbpBrowse := XbpBrowse():new():create( oWnd, , { 10,10 }, { oWnd:currentSize()[1]-25,oWnd:currentSize()[2]-45 } )
oXbpBrowse:setFontCompoundName( "10.Courier" )
//oXbpBrowse:hScroll := .f.
//oXbpBrowse:vScroll := .f.
oXbpBrowse:sizeCols := .f.
oXbpBrowse:cursorMode := XBPBRW_CURSOR_ROW
//oXbpBrowse:hScroll := .f. // OK
//oXbpBrowse:vScroll := .f. // OK
//oXbpBrowse:sizeCols := .f. // OK
//oXbpBrowse:cursorMode := XBPBRW_CURSOR_ROW
oXbpBrowse:cursorMode := XBPBRW_CURSOR_CELL
/* Navigation Blocks */
oXbpBrowse:skipBlock := {|n| DbSkipBlock( n ) }
oXbpBrowse:goTopBlock := {| | DbGoTop() }
oXbpBrowse:goBottomBlock := {| | DbGoBottom() }
//
oXbpBrowse:firstPosBlock := {| | 1 }
oXbpBrowse:lastPosBlock := {| | LastRec() }
oXbpBrowse:posBlock := {| | RecNo() }
oXbpBrowse:goPosBlock := {|n| DbGoto( n ) }
oXbpBrowse:phyPosBlock := {| | RecNo() }
IF indexOrd() == 0
oXbpBrowse:posBlock := {| | RecNo() }
oXbpBrowse:goPosBlock := {|n| DbGoto( n ) }
oXbpBrowse:phyPosBlock := {| | RecNo() }
ELSE
oXbpBrowse:posBlock := {| | OrdKeyNo() }
oXbpBrowse:goPosBlock := {|n| OrdKeyGoto( n ) }
oXbpBrowse:phyPosBlock := {| | OrdKeyNo() }
ENDIF
oXbpBrowse:headerRbDown := {|mp1, mp2, o| mp1 := mp1, xbp_debug( o:getColumn( mp2 ):heading ) }
oXbpBrowse:itemSelected := {|| xbp_debug( 'itemSelected' ) }
#ifdef __HARBOUR__
oXbpBrowse:setStyleSheet( "selection-background-color: qlineargradient(x1: 0, y1: 0, x2: 0.5, y2: 0.5, stop: 0 #FF92BB, stop: 1 blue); " )
#endif
aPresParam := {}
aadd( aPresParam, { XBP_PP_COL_HA_CAPTION , "Icons" } )
@@ -1743,6 +1758,63 @@ FUNCTION Build_Browse( oWnd )
//
oXbpBrowse:addColumn( oXbpColumn )
aPresParam := {}
aadd( aPresParam, { XBP_PP_COL_HA_CAPTION , "St" } )
aadd( aPresParam, { XBP_PP_COL_HA_FGCLR , GRA_CLR_CYAN } )
aadd( aPresParam, { XBP_PP_COL_HA_BGCLR , GRA_CLR_BLUE } )
aadd( aPresParam, { XBP_PP_COL_HA_HEIGHT , 20 } )
aadd( aPresParam, { XBP_PP_COL_DA_FGCLR , GRA_CLR_BLACK } )
aadd( aPresParam, { XBP_PP_COL_DA_BGCLR , RGB( 205,240,210 ) } )
aadd( aPresParam, { XBP_PP_COL_DA_HILITE_FGCLR , GRA_CLR_WHITE } )
aadd( aPresParam, { XBP_PP_COL_DA_HILITE_BGCLR , GRA_CLR_DARKGRAY } )
aadd( aPresParam, { XBP_PP_COL_DA_ROWSEPARATOR , XBPCOL_SEP_DOTTED } )
aadd( aPresParam, { XBP_PP_COL_DA_COLSEPARATOR , XBPCOL_SEP_DOTTED } )
aadd( aPresParam, { XBP_PP_COL_DA_ROWHEIGHT , 20 } )
//
oXbpColumn := XbpColumn():new()
oXbpColumn:dataLink := {|| test->State }
oXbpColumn:create( , , , , aPresParam )
//
oXbpBrowse:addColumn( oXbpColumn )
aPresParam := {}
aadd( aPresParam, { XBP_PP_COL_HA_CAPTION , "Zipcode" } )
aadd( aPresParam, { XBP_PP_COL_HA_FGCLR , GRA_CLR_CYAN } )
aadd( aPresParam, { XBP_PP_COL_HA_BGCLR , GRA_CLR_BLUE } )
aadd( aPresParam, { XBP_PP_COL_HA_HEIGHT , 20 } )
aadd( aPresParam, { XBP_PP_COL_DA_FGCLR , GRA_CLR_BLACK } )
aadd( aPresParam, { XBP_PP_COL_DA_BGCLR , RGB( 205,240,210 ) } )
aadd( aPresParam, { XBP_PP_COL_DA_HILITE_FGCLR , GRA_CLR_WHITE } )
aadd( aPresParam, { XBP_PP_COL_DA_HILITE_BGCLR , GRA_CLR_DARKGRAY } )
aadd( aPresParam, { XBP_PP_COL_DA_ROWSEPARATOR , XBPCOL_SEP_DOTTED } )
aadd( aPresParam, { XBP_PP_COL_DA_COLSEPARATOR , XBPCOL_SEP_DOTTED } )
aadd( aPresParam, { XBP_PP_COL_DA_ROWHEIGHT , 20 } )
//
oXbpColumn := XbpColumn():new()
oXbpColumn:dataLink := {|| test->Zip }
oXbpColumn:create( , , , , aPresParam )
//
oXbpBrowse:addColumn( oXbpColumn )
aPresParam := {}
aadd( aPresParam, { XBP_PP_COL_HA_CAPTION , "Notes" } )
aadd( aPresParam, { XBP_PP_COL_HA_FGCLR , GRA_CLR_CYAN } )
aadd( aPresParam, { XBP_PP_COL_HA_BGCLR , GRA_CLR_BLUE } )
aadd( aPresParam, { XBP_PP_COL_HA_HEIGHT , 20 } )
aadd( aPresParam, { XBP_PP_COL_DA_FGCLR , GRA_CLR_BLACK } )
aadd( aPresParam, { XBP_PP_COL_DA_BGCLR , RGB( 205,240,210 ) } )
aadd( aPresParam, { XBP_PP_COL_DA_HILITE_FGCLR , GRA_CLR_WHITE } )
aadd( aPresParam, { XBP_PP_COL_DA_HILITE_BGCLR , GRA_CLR_DARKGRAY } )
aadd( aPresParam, { XBP_PP_COL_DA_ROWSEPARATOR , XBPCOL_SEP_DOTTED } )
aadd( aPresParam, { XBP_PP_COL_DA_COLSEPARATOR , XBPCOL_SEP_DOTTED } )
aadd( aPresParam, { XBP_PP_COL_DA_ROWHEIGHT , 20 } )
//
oXbpColumn := XbpColumn():new()
oXbpColumn:dataLink := {|| test->Notes }
oXbpColumn:create( , , , , aPresParam )
//
oXbpBrowse:addColumn( oXbpColumn )
RETURN nil
/*----------------------------------------------------------------------*/
@@ -1799,3 +1871,4 @@ STATIC FUNCTION TBPrev()
RETURN lMoved
/*----------------------------------------------------------------------*/

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

File diff suppressed because it is too large Load Diff

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

@@ -149,9 +149,11 @@ FUNCTION SetAppEvent( nEvent, mp1, mp2, oXbp )
/*----------------------------------------------------------------------*/
FUNCTION AppEvent( mp1, mp2, oXbp, nTimeout )
LOCAL nEvent //, n
LOCAL nEvent
LOCAL nThreadID := ThreadID()
DEFAULT nTimeout TO 0
//DEFAULT nTimeout TO 0
HB_SYMBOL_UNUSED( nTimeOut )
IF ++nEventOut > EVENT_BUFFER
nEventOut := 1
@@ -160,7 +162,7 @@ FUNCTION AppEvent( mp1, mp2, oXbp, nTimeout )
DO WHILE .t.
aEventLoop[ 1,1 ]:processEvents_1( 0, 200 )
IF ts_events[ nEventOut,5 ] == ThreadID()
IF ts_events[ nEventOut,5 ] == nThreadID
nEvent := ts_events[ nEventOut,1 ]
mp1 := ts_events[ nEventOut,2 ]
mp2 := ts_events[ nEventOut,3 ]
@@ -171,7 +173,7 @@ FUNCTION AppEvent( mp1, mp2, oXbp, nTimeout )
EXIT
ENDIF
hb_idleSleep( 0.01 ) /* Releases CPU cycles */
hb_idleSleep( 0.001 ) /* Releases CPU cycles */
ENDDO
//( "..........................", threadID() )
@@ -243,6 +245,7 @@ FUNCTION MsgBox( cMsg, cTitle )
SetAppWindow():oWidget:setFocus()
oMB:exec()
oMB:destroy()
RETURN nil
/*----------------------------------------------------------------------*/