From 979b1c2ed62a33ec7082a628d133899d75702b8e Mon Sep 17 00:00:00 2001 From: Walter Negro Date: Wed, 6 Nov 2002 21:42:41 +0000 Subject: [PATCH] 2002-11-06 18:38 UTC-0300 Walter Negro * source/rtl/achoice.prg ! Fix, if no UDF is set, pressing an alpha key it go to first item finding this letter without respecting upper and lowercase. Reported by Luiz Culik. --- harbour/source/rtl/achoice.prg | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/harbour/source/rtl/achoice.prg b/harbour/source/rtl/achoice.prg index 4f8e756796..17df8e774b 100644 --- a/harbour/source/rtl/achoice.prg +++ b/harbour/source/rtl/achoice.prg @@ -396,13 +396,13 @@ FUNCTION AChoice( nTop, nLeft, nBottom, nRight, acItems, xSelect, xUserFunc, nPo // Find next selectable item FOR nNewPos := nPos + 1 TO nItems - IF Eval( bSelect, alSelect[ nNewPos ] ) .AND. Left( acItems[ nNewPos ], 1 ) == cKey + IF Eval( bSelect, alSelect[ nNewPos ] ) .AND. Upper( Left( acItems[ nNewPos ], 1 ) ) == cKey EXIT ENDIF NEXT IF nNewPos == nItems + 1 FOR nNewPos := 1 TO nPos - 1 - IF Eval( bSelect, alSelect[ nNewPos ] ) .AND. Left( acItems[ nNewPos ], 1 ) == cKey + IF Eval( bSelect, alSelect[ nNewPos ] ) .AND. Upper( Left( acItems[ nNewPos ], 1 ) ) == cKey EXIT ENDIF NEXT