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

2010-04-25 14:51 UTC-0800 Pritpal Bedi (pritpal@vouchcac.com)

Browse Source 
* contrib/hbxbp/xbpsle.prg
    ! Small fix.
  * contrib/hbxbp/xbpmle.prg
    + Implemented almost all Xbase++ methods and slots. Untested.

      Can someone provide a XbpMLE() usage code which exploits its 
      maximum methods ?
This commit is contained in:
Pritpal Bedi
2010-04-25 21:57:26 +00:00
parent 5b8426f4b8
commit 4659e930ef
3 changed files with 193 additions and 15 deletions
Download Patch File Download Diff File Expand all files Collapse all files

9
harbour/ChangeLog
View File

@@ -17,6 +17,15 @@
past entries belonging to author(s): Viktor Szakats.
*/
2010-04-25 14:51 UTC-0800 Pritpal Bedi (pritpal@vouchcac.com)
* contrib/hbxbp/xbpsle.prg
! Small fix.
* contrib/hbxbp/xbpmle.prg
+ Implemented almost all Xbase++ methods and slots. Untested.
Can someone provide a XbpMLE() usage code which exploits its
maximum methods ?
2010-04-25 12:52 UTC-0800 Pritpal Bedi (pritpal@vouchcac.com)
* contrib/hbxbp/xbpwindow.prg
! Slots/Methods synchronized.

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

@@ -93,20 +93,20 @@ CLASS XbpMLE INHERIT XbpWindow, XbpDataRef
METHOD execSlot( cSlot, p )
METHOD setStyle()
METHOD clear() VIRTUAL
METHOD copyMarked() VIRTUAL
METHOD cutMarked() VIRTUAL
METHOD deleteMarked() VIRTUAL
METHOD delete() VIRTUAL
METHOD pasteMarked() VIRTUAL
METHOD queryFirstChar() VIRTUAL
METHOD queryMarked() VIRTUAL
METHOD setFirstChar() VIRTUAL
METHOD setMarked() VIRTUAL
METHOD insert() VIRTUAL
METHOD charFromLine() VIRTUAL
METHOD lineFromChar() VIRTUAL
METHOD pos() VIRTUAL
METHOD clear()
METHOD copyMarked()
METHOD cutMarked()
METHOD deleteMarked()
METHOD delete( nPos, nChars )
METHOD pasteMarked()
METHOD queryFirstChar()
METHOD queryMarked()
METHOD setFirstChar( nBufferPos )
METHOD setMarked( aStartEnd )
METHOD insert( nPos, cString )
METHOD charFromLine( nLine )
METHOD lineFromChar( nPos )
METHOD pos()
DATA sl_undo INIT .T.
DATA sl_hScroll
@@ -208,6 +208,175 @@ METHOD XbpMLE:execSlot( cSlot, p )
/*----------------------------------------------------------------------*/
METHOD XbpMLE:clear()
LOCAL nChars := len( ::oWidget:toPlainText() )
::oWidget:clear()
RETURN nChars
/*----------------------------------------------------------------------*/
METHOD XbpMLE:copyMarked()
LOCAL qCursor, cText
qCursor := QTextCursor():from( ::oWidget:textCursor() )
cText := qCursor:selectedText()
::oWidget:copy()
RETURN len( cText )
/*----------------------------------------------------------------------*/
METHOD XbpMLE:cutMarked()
LOCAL qCursor, cText
qCursor := QTextCursor():from( ::oWidget:textCursor() )
cText := qCursor:selectedText()
::oWidget:cut()
RETURN len( cText )
/*----------------------------------------------------------------------*/
METHOD XbpMLE:deleteMarked()
LOCAL qCursor, cText
qCursor := QTextCursor():from( ::oWidget:textCursor() )
cText := qCursor:selectedText()
qCursor:removeSelectedText()
::oWidget:setTextCursor( qCursor )
RETURN len( cText )
/*----------------------------------------------------------------------*/
METHOD XbpMLE:delete( nPos, nChars )
LOCAL qCursor, cText
qCursor := QTextCursor():from( ::oWidget:textCursor() )
qCursor:setPosition( nPos )
qCursor:movePosition( QTextCursor_Right, QTextCursor_KeepAnchor, nChars )
cText := qCursor:selectedText()
qCursor:removeSelectedText()
::oWidget:setTextCursor( qCursor )
RETURN len( cText )
/*----------------------------------------------------------------------*/
METHOD XbpMLE:pasteMarked()
LOCAL cText2
LOCAL cText1 := ::oWidget:toPlainText()
::oWidget:paste() ; cText2 := ::oWidget:toPlainText()
RETURN len( cText2 ) - len( cText1 )
/*----------------------------------------------------------------------*/
METHOD XbpMLE:queryFirstChar()
RETURN 0 /* Cannot be calculated until it is subclassed */
/*----------------------------------------------------------------------*/
METHOD XbpMLE:queryMarked()
LOCAL qCursor, a_
qCursor := QTextCursor():from( ::oWidget:textCursor() )
IF qCursor:hasSelection()
a_:= { qCursor:selectionStart(), qCursor:selectionEnd() }
ELSE
a_:= { 0,0 }
ENDIF
RETURN a_
/*----------------------------------------------------------------------*/
METHOD XbpMLE:setFirstChar( nBufferPos )
HB_SYMBOL_UNUSED( nBufferPos )
RETURN .f. /* Cannot be achieved unless it is subclassed*/
/*----------------------------------------------------------------------*/
METHOD XbpMLE:setMarked( aStartEnd )
LOCAL qCursor, cText
IF hb_isArray( aStartEnd ) .AND. len( aStartEnd ) == 2 .AND. aStartEnd[ 1 ] >= 0 .AND. aStartEnd[ 2 ] > aStartEnd[ 1 ]
qCursor := QTextCursor():from( ::oWidget:textCursor() )
qCursor:setPosition( aStartEnd[ 1 ] )
qCursor:movePosition( QTextCursor_Right, QTextCursor_KeepAnchor, aStartEnd[ 2 ] - aStartEnd[ 1 ] )
cText := qCursor:selectedText()
IF len( cText ) > 0
::oWidget:setTextCursor( qCursor )
RETURN .t.
ENDIF
ENDIF
RETURN .f.
/*----------------------------------------------------------------------*/
METHOD XbpMLE:insert( nPos, cString )
LOCAL qCursor
IF hb_isChar( cString )
qCursor := QTextCursor():from( ::oWidget:textCursor() )
IF hb_isNumeric( nPos ) .AND. nPos >= 0
qCursor:setPosition( nPos )
ENDIF
qCursor:insertText( cString )
::oWidget:setTextCursor( qCursor )
RETURN .t.
ENDIF
RETURN .f.
/*----------------------------------------------------------------------*/
METHOD XbpMLE:charFromLine( nLine )
LOCAL qCursor, nPos
qCursor := QTextCursor():from( ::oWidget:textCursor() )
IF hb_isNumeric( nLine )
qCursor:movePosition( QTextCursor_Start )
qCursor:movePosition( QTextCursor_Down, QTextCursor_MoveAnchor, nLine )
nPos := qCursor:position()
ELSE
qCursor:movePosition( QTextCursor_StartOfLine )
nPos := qCursor:position()
ENDIF
RETURN nPos
/*----------------------------------------------------------------------*/
METHOD XbpMLE:lineFromChar( nPos )
LOCAL qCursor, nLine
qCursor := QTextCursor():from( ::oWidget:textCursor() )
IF hb_isNumeric( nPos )
qCursor:setPosition( nPos )
nLine := qCursor:blockNumber()
ELSE
nLine := qCursor:blockNumber()
ENDIF
RETURN nLine
/*----------------------------------------------------------------------*/
METHOD XbpMLE:pos()
RETURN QTextCursor():from( ::oWidget:textCursor() ):position()
/*----------------------------------------------------------------------*/
METHOD XbpMLE:hScroll( ... )
LOCAL a_:= hb_aParams()
IF len( a_ ) == 1 .AND. hb_isBlock( a_[ 1 ] )

2
harbour/contrib/hbxbp/xbpsle.prg
View File

@@ -103,7 +103,7 @@ CLASS XbpSLE INHERIT XbpWindow, XbpDataRef
METHOD queryFirstChar() VIRTUAL
METHOD queryMarked() INLINE { ::oWidget:selectionStart(), ::oWidget:selectionEnd() }
METHOD setFirstChar( nPos ) VIRTUAL
METHOD setMarked( aStartEnd ) INLINE ::setSelection( aStartEnd[ 1 ], aStartEnd[ 2 ] )
METHOD setMarked( aStartEnd ) INLINE ::oWidget:setSelection( aStartEnd[ 1 ], aStartEnd[ 2 ] )
METHOD setInsertMode( lInsertMode ) VIRTUAL