FB II Compiler

PG PRO

Debugging

Memory

System

Mathematics

Resources

Disk I/O

Windows

Controls

Menus

Mouse

Keyboard

Text

Fonts

Drawing

Sound

Clipboard

Printing

Communication

ASM

Made with FB

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
** ----> 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

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.

Mike