From 11f5e007f4890f8609a6a287fce61328b8d98bc5 Mon Sep 17 00:00:00 2001 From: Antonio Linares Date: Wed, 7 Feb 2001 17:26:29 +0000 Subject: [PATCH] some minor fixes --- harbour/source/debug/dbgtarr.prg | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/harbour/source/debug/dbgtarr.prg b/harbour/source/debug/dbgtarr.prg index 60afaeaa17..09f33575b4 100644 --- a/harbour/source/debug/dbgtarr.prg +++ b/harbour/source/debug/dbgtarr.prg @@ -66,12 +66,12 @@ Local owndsets local oCol if (nsize nil - owndsets:=TDbWindow():New( GetTopPos(nRow), 11, getBottomPos(nRow+nsize+1), maxcol()-5, ::arrayName+"[1.."+alltrim(str(nsize,4))+"]" ,"N/W" ) + owndsets:=TDbWindow():New( GetTopPos(nRow), 5, getBottomPos(nRow+nsize+1), maxcol()-5, ::arrayName+"[1.."+alltrim(str(nsize,4))+"]" ,"N/W" ) else - owndsets:=TDbWindow():New( 1, 11, 2+nsize, maxcol()-5, ::arrayName+"[1.."+alltrim(str(nsize,4))+"]" ,"N/W") + owndsets:=TDbWindow():New( 1, 5, 2+nsize, maxcol()-5, ::arrayName+"[1.."+alltrim(str(nsize,4))+"]" ,"N/W") endif else - owndsets:=TDbWindow():New( 1, 11, maxrow()-2, maxcol()-5, ::arrayName+"[1.."+alltrim(str(nsize,4))+"]" ,"N/W") + owndsets:=TDbWindow():New( 1, 5, maxrow()-2, maxcol()-5, ::arrayName+"[1.."+alltrim(str(nsize,4))+"]" ,"N/W") endif ::nCurWindow++ oWndSets:lFocused:=.t. @@ -91,7 +91,7 @@ oBrwSets:=TbrowseNew(owndsets:nTop+1, owndsets:nLeft+1, owndsets:nBottom-1, ownd ocol:width:=len(::arrayName+"["+alltrim(str(len(aarray),4))+"]" ) ocol:ColorBlock := { || { iif( n == oBrwSets:Cargo, 2, 1 ), 2 } } oBrwSets:Freeze:=1 - oBrwSets:AddColumn( ocol:=TBColumnNew( "" ,{ || PadR( ValToStr( aArray[ n ] ), nWidth - 12 ) } ) ) + oBrwSets:AddColumn( ocol:=TBColumnNew( "" ,{ || PadR( ValToStr( aArray[ n ] ), nWidth - oCol:Width - 1 ) } ) ) oBrwSets:Cargo := 1 // Actual highligthed row ocol:ColorBlock := { || { iif( n == oBrwSets:Cargo, 3, 1 ), 3 } } oBrwsets:colpos:=2