To insert a name in an EF I was using:
LOCAL FN InsertText (fieldID%, @strPtr&, startPos%, endPos%)
AUTOCLIP = 0
teH& = TEHANDLE(fieldID%) 'get field handle
LONG IF teH& 'is handle valid, then
continue
strLen% = PEEK(strPtr&) 'get string length for
insertion
CALL TESETSELECT (startPos%, endPos%, teH&) 'set selection in field
CALL TEINSERT (strPtr& + 1, strLen%, teH&) 'insert text into field
CALL INVALRECT (teH&..viewRect%) 'force fb to update field
END IF
END FN
The problem was the scroll button never became active in the static EF.
Thought I had used this FN in something else I had done. But had used:
SETSELECT startPost%,startPost%
CALL TEINSERT(@placeThis$ + 1,LEN(placeThis$),WINDOW(_efHandle))
For some reason the scroll button worked doing things this way.
The other thing I was doing in a static scrolling EF was, list names when the
window was opened using:
EDIT FIELD _EF1WClass9
EDIT TEXT _geneva,9,0
LONG IF gNumOfEntries% > 0
FOR x = 0 TO gNumOfEntries% - 1
eNum$ = FN CleanSTR$(bwlrInfo.entryNum%(x))
lNm$ = bwlrInfo.lastName$(x)
fNm$ = bwlrInfo.firstName$(x)
avg$ = STR$(bwlrInfo.average%(x))
IF bwlrInfo.entryNum%(x) <> bwlrInfo.origEntryNum%(x) THEN lNm$ = lNm$ +
" (r)"
d$ = "(" + eNum$ + ") " + lNm$ + ", " + fNm$ + " @ " + avg$ + CHR$(13)
CALL TEINSERT(@d$ + 1,LEN(d$),WINDOW(_efHandle))
NEXT
END IF
The scroll button would never go active, when there were more names then would
fit into the visible region, until I resized the window.
Added the below and it got things working.
AUTOCLIP = _False
EDIT FIELD -_EF1WClass9,,,_noFramed
(EDIT FIELD _EF1WClass9)'removed this line
[code from above to insert text goes here]
teH& = TEHANDLE(WINDOW(_EF1WClass9))
CALL INVALRECT (teH&..viewRect%)
AUTOCLIP = _True
EDIT FIELD -_EF1WClass9,,,_statNoFramed
EDIT FIELD 0
That got things working. If someone sees a problem the above might cause
please let me know.
Thanks,
Al