From 4606bbc62f84f9f5bdb388bce13c0681f86ed83d Mon Sep 17 00:00:00 2001 From: Luiz Rafael Culik Date: Fri, 9 Aug 2002 17:59:19 +0000 Subject: [PATCH] See changelog 2002-08-09 14:50 UTC-0300 --- harbour/source/rtl/achoice.prg | 13 ++++++++++++- 1 file changed, 12 insertions(+), 1 deletion(-) diff --git a/harbour/source/rtl/achoice.prg b/harbour/source/rtl/achoice.prg index 960a4d216c..b12c75188c 100644 --- a/harbour/source/rtl/achoice.prg +++ b/harbour/source/rtl/achoice.prg @@ -63,7 +63,11 @@ FUNCTION AChoice( nTop, nLeft, nBottom, nRight, acItems, xSelect, xUserFunc, nPo DEFAULT nPos TO 1 // The number of the selected item DEFAULT nHiLiteRow TO 0 // The row to be highlighted - nNumCols := nRight - nLeft + 1 + IF nRight == 79 .and. nLeft ==0 + nNumCols := 79 + ELSE + nNumCols := nRight - nLeft + 1 + ENDIF nNumRows := nBottom - nTop + 1 @@ -499,9 +503,16 @@ STATIC PROCEDURE DispPage( acItems, alSelect, nTop, nLeft, nRight, nNumRows, nPo LOCAL nIndex // Array index LOCAL nSaveRow := Row() // Position at start of routine LOCAL nSaveCol := Col() // Position at start of routine + LOCAL nRightPos := 0 Default nRowsClr to nNumRows + IF nRight == 79 .and. nLeft == 0 + nRightPos := nRight + ELSE + nRightPos := nRight - nLeft + 1 + ENDIF + DispBegin() FOR nCntr := 1 TO Min( nNumRows, nRowsClr )