TEXT
Update a scroll button linked to an Edit Field
Mettre à jour les barres de défilement attachées à des Edit fields
Here is how I got around the problem of having an ugly space suddenly appear attatched to and extending above my edit field. I am using FB and not PG but I think you can fix it using this.
TEXT _geneva, 9, 1 The ** line sets the scroll to the top then the text is added to the field. I don't like to reset the scroll each time but if the scroll was anywhere else the ugly space appeared unpredictably. Someone on this list may have a better suggestion that will add the text without setting the scroll bar first..... I would like it if they do.
** ----> SCROLL BUTTON (701), 1 <----**
EDIT FIELD #701
TexH& = TEHANDLE(701)
SETSELECT _maxint,_maxint
CALL TEINSERT(@Txt$+1,LEN(Txt$),TexH&)
cr$ = CHR$(13)
TEKEY$ = cr$
EDIT FIELD #0
Mike