From af292fb7ce02204b1a8afc7a3222e539333fa505 Mon Sep 17 00:00:00 2001 From: Pritpal Bedi Date: Tue, 13 Mar 2012 16:40:43 +0000 Subject: [PATCH] 2012-03-13 09:37 UTC-0800 Pritpal Bedi (bedipritpal@hotmail.com) * ontrib/hbide/ideuisrcmanager.prg * Some operational refinements. --- harbour/ChangeLog | 4 ++++ harbour/contrib/hbide/ideuisrcmanager.prg | 18 ++++++++++++++++-- 2 files changed, 20 insertions(+), 2 deletions(-) diff --git a/harbour/ChangeLog b/harbour/ChangeLog index baeab61c30..aabb0e7ac2 100644 --- a/harbour/ChangeLog +++ b/harbour/ChangeLog @@ -16,6 +16,10 @@ The license applies to all entries newer than 2009-04-28. */ +2012-03-13 09:37 UTC-0800 Pritpal Bedi (bedipritpal@hotmail.com) + * ontrib/hbide/ideuisrcmanager.prg + * Some operational refinements. + 2012-03-13 13:53 UTC+0100 Przemyslaw Czerpak (druzus/at/poczta.onet.pl) * harbour/contrib/sddpg/sddpg.c * harbour/contrib/sddsqlt3/sddsqlt3.c diff --git a/harbour/contrib/hbide/ideuisrcmanager.prg b/harbour/contrib/hbide/ideuisrcmanager.prg index 954408fc2c..52fefffafa 100644 --- a/harbour/contrib/hbide/ideuisrcmanager.prg +++ b/harbour/contrib/hbide/ideuisrcmanager.prg @@ -794,9 +794,8 @@ METHOD IdeUISrcManager:loadSource() IF hb_fileExists( ::cSrcFile ) ::aSource := hbide_readSource( ::cSrcFile ) - ELSE - ::buildSource() ENDIF + ::buildSource() RETURN Self @@ -804,6 +803,7 @@ METHOD IdeUISrcManager:loadSource() METHOD IdeUISrcManager:buildSource() LOCAL aSrc, cCls, cClsC + LOCAL qHScr, qVScr, qCursor, qCurPos, qHVal, qVVal IF empty( ::aSource ) aSrc := {} @@ -945,7 +945,21 @@ METHOD IdeUISrcManager:buildSource() ::oSM:editSource( ::cSrcFile, 0, 0, 0, NIL, NIL, .f., .t. ) IF ::oEM:isOpen( ::cSrcFile ) + qHScr := ::qEdit:horizontalScrollBar() + qVScr := ::qEdit:verticalScrollBar() + qCursor := ::qEdit:textCursor() + + qCurPos := qCursor:position() + qHVal := qHScr:value() + qVVal := qVScr:value() + ::oEM:reLoad( ::cSrcFile ) + + qCursor := ::qEdit:textCursor() + qCursor:setPosition( qCurPos ) + ::qEdit:setTextCursor( qCursor ) + qHScr:setValue( qHVal ) + qVScr:setValue( qVVal ) ENDIF RETURN Self