Vladislav Lavrecky wrote:
Przemyslaw Czerpak wrote:
On Wed, 11 Mar 2009, Vladislav Lavrecky wrote:
Hi,
achoice with additional redraw on exit are ok
I test it previously, but in my message just an example
To fix achoice we need to add
+ DispPage( acItems, alSelect, nTop, nLeft, nRight, nNumRows, 0,
nAtTop, nItems, bSelect, nRowsClr )
in all CASE items where lFinished := .T.
or IMO better
add one redraw line before exit from achoice function
[...]
ENDDO
+ DispPage( acItems, alSelect, nTop, nLeft, nRight, nNumRows, 0,
nAtTop, nItems, bSelect, nRowsClr )
SetCursor( nSaveCsr )
RETURN nPos
[...]
Can you create a small .prg example which illustrates achoice()
incompatibilities?
We can put it in tests/ directory so it can be used to verify
future modifications.
best regards,
Przemek
_______________________________________________
Harbour mailing list
[email protected]
http://lists.harbour-project.org/mailman/listinfo/harbour
Hi,
small example :)
function main()
local aMenu := {"Line1" , "Line2" , "Line3"}
local aPerm := {.T. , .T. , .T.}
cls
setcolor("W+/N, BG+/B, , , W/N")
achoice(8, 4, 9, 9, aMenu, aPerm)
return NIL
Clipper on exit (press ESC, ENTER, ...) redraw achoice() with no
highlighted items
brgds,
Vlad
By the way
I fouund one more clipper-harbour achoice() incompatibility
example
------
function main()
local aMenu := {"Line1" , "" , "Line3"}
local aPerm := {.T. , .T. , .T.}
cls
setcolor("W+/N, BG+/B, , , W/N")
achoice(8, 4, 9, 9, aMenu, aPerm)
return NIL
------
Clipper show only one item - Line1
Harbour - all three lines
this can be fixed in achoice.prg
in function Ach_Limits chahge IF clause from
IF ISCHARACTER( acItems[ nCntr ] )
to
IF LEN( acItems[ nCntr ] ) > 0 .AND. ISCHARACTER( acItems[ nCntr ] )
Brgds,
Vlad
_______________________________________________
Harbour mailing list
[email protected]
http://lists.harbour-project.org/mailman/listinfo/harbour
_______________________________________________
Harbour mailing list
[email protected]
http://lists.harbour-project.org/mailman/listinfo/harbour
