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

removed some extras :RefreshAll() calls

Browse Source
This commit is contained in:
Antonio Linares
2001-02-03 03:38:31 +00:00
parent 6696ef7538
commit b02f33ff38
2 changed files with 4 additions and 14 deletions
Download Patch File Download Diff File Expand all files Collapse all files

10
harbour/source/debug/dbgtarr.prg
View File

@@ -185,7 +185,6 @@ static procedure SetsUp( oBrw )
if oBrw:RowPos == 1
nSetPos := oBrw:Cargo
oBrw:Cargo := 0
oBrw:Refreshall()
oBrw:ForceStable()
oBrw:Cargo := nSetPos
endif
@@ -193,12 +192,11 @@ static procedure SetsUp( oBrw )
oBrw:dehilite()
oBrw:colpos:=2
oBrw:Up()
oBrw:Refreshall()
if nRow != oBrw:Cargo
oBrw:aReDraw[ nRow ] := .f.
oBrw:Up()
endif
endif
oBrw:ForceStable()
myColors(oBrw,{1,2})
return
@@ -211,7 +209,6 @@ static procedure SetsDown( oBrw )
if oBrw:RowPos == oBrw:RowCount
nSetPos := oBrw:Cargo
oBrw:Cargo := 0
oBrw:Refreshall()
oBrw:ForceStable()
oBrw:Cargo := nSetPos
endif
@@ -219,7 +216,6 @@ static procedure SetsDown( oBrw )
oBrw:dehilite()
oBrw:colpos:=2
oBrw:Down()
oBrw:Refreshall()
if nRow != oBrw:Cargo
oBrw:aReDraw[ nRow ] := .f.
@@ -302,7 +298,7 @@ static function myColors( oBrowse, aColColors )
local nColPos := oBrowse:colpos
for i := 1 to len( aColColors )
oBrowse:colpos := aColColors[i]
oBrowse:colpos := aColColors[i]
oBrowse:hilite()
if oBrowse:colPos==1
oBrowse:dehilite()
@@ -321,4 +317,4 @@ return nReturn
Static function GetBottomPos(nPos)
Local nReturn:=0
nReturn :=if(nPos<maxrow()-2,nPos ,maxrow()-2)
return nReturn
return nReturn

8
harbour/source/debug/dbgtobj.prg
View File

@@ -155,7 +155,6 @@ method SetsKeyPressed( nKey, oBrwSets, nSets, oWnd ,cName,LenArr,aArray) class t
if oBrwSets:Cargo > 1
oBrwSets:Cargo := 1
oBrwSets:GoTop()
oBrwSets:RefreshAll()
oBrwSets:ForceStable()
endif
@@ -163,7 +162,6 @@ method SetsKeyPressed( nKey, oBrwSets, nSets, oWnd ,cName,LenArr,aArray) class t
if oBrwSets:Cargo < nSets
oBrwSets:Cargo := nSets
oBrwSets:GoBottom()
oBrwSets:RefreshAll()
oBrwSets:ForceStable()
endif
@@ -206,7 +204,6 @@ static procedure SetsUp( oBrw )
if oBrw:RowPos == 1
nSetPos := oBrw:Cargo
oBrw:Cargo := 0
oBrw:Refreshall()
oBrw:ForceStable()
oBrw:Cargo := nSetPos
endif
@@ -214,7 +211,6 @@ static procedure SetsUp( oBrw )
oBrw:dehilite()
oBrw:colpos:=2
oBrw:Up()
oBrw:Refreshall()
if nRow != oBrw:Cargo
oBrw:aReDraw[ nRow ] := .f.
@@ -232,7 +228,6 @@ static procedure SetsDown( oBrw )
if oBrw:RowPos == oBrw:RowCount
nSetPos := oBrw:Cargo
oBrw:Cargo := 0
oBrw:Refreshall()
oBrw:ForceStable()
oBrw:Cargo := nSetPos
endif
@@ -240,7 +235,6 @@ static procedure SetsDown( oBrw )
oBrw:dehilite()
oBrw:colpos:=2
oBrw:Down()
oBrw:Refreshall()
if nRow != oBrw:Cargo
oBrw:aReDraw[ nRow ] := .f.
@@ -359,4 +353,4 @@ FUNC maxelem( a )
RETURN max
function __DbgObject(aArray,pArName)
return TDBGObject():New(aArray,pArName)
return TDBGObject():New(aArray,pArName)