edit field

Limited support is provided for edit fields. Only some straightforward options for edit field and edit$ are implemented. Edit-related statements or functions not used in the demo below should be presumed unimplemented.

dim as Rect r

SetRect( r, 0, 0, 480, 340 )
appearance window 1, "EF Tests", @r, _kDocumentWindowClass, _kWindowCompositingAttribute

SetRect( r, 200, 20, 460, 150 )
text _sysFont, 13, 0
edit field 1, "_statNoFramed", @r, _statNoFramed

text _times, 18, _boldBit%
SetRect( r, 200, 170, 460, 320 )
edit field 2,, @r, _framed

edit$( 2 ) = "Alpha" + chr$(13) + "Bravo" + chr$(13) + "Victor" + chr$(13) + "Delta"

text _monaco, 9, 0
print : print edit$( 2, 12, 19 )

edit$( 2, 3 ) = "Charlie"
edit$( 2, 32767 ) = ""
tekey$ = chr$(13) + "Echo"

print edit$( 2, 3 )
print : print edit$(2)

'edit field 0
SetSelect 5, 10

do
HandleEvents
until gFBQuit