I've created a simple text box for wIntegrate and AccuTerm from within
BASIC. The simple task is to allow data entry of up to 1200 characters.
When the [OK] button is pressed the contents of the text box is passed back
to BASIC.
AccuTerm works just fine. However, wIntegrate is giving me no end of grief.
The problems are:
1) How can I press [Enter] in the text box without closing the text box?
2) What character(s) are passed back to BASIC for [Enter]s?
3) Does wIntegrate do what AccuTerm does and filter CrLf with VM/AMs?
Can anyone help? It would be greatly appreciated.
Thanks,
Bill
Code snippet in calling programlooks like:
Opts = "ES_MULTILINE|WS_VSCROLL|WS_BORDER"
Opts<-1> = 1200 ; ** the maximum length of field
WKAMT = NULL$ ; ** initialize the variable
CALL wIntDBEdit(DispData, 'News Item', 300, 125, 1200, 80, Opts, WKAMT)
The program "wIntDBEDIT" looks like (takenn from:
DBX = NULL$
DLG.NAME = "wIntDlgBox"
dbName = "NewText"
VER = NULL$
tbxStart = INT((300 - 125) / 2)
** build dialog box
CALL WIN.DBNEW (DBX, DLG.NAME, dlgTitle, 10, 10, 300, 125, '', Opts)
CALL WIN.DBEDIT (DBX, dbName, tbxStart, 15, 1200, 80, Opts)
CALL WIN.DBBUTTON(DBX, "OK", "OK", (INT(300/2)-45), (125-25), '', '', 1)
CALL WIN.DBBUTTON(DBX, "Cancel", "Cancel", (INT(300/2)+15), (125-25), '',
'', 0)
** load the dialog box
CALL WIN.DBLOAD(DBX, ERR)
** test for "already exists" load errors
IF ERR = 3 THEN
CALL WIN.DBDEL(DLG.NAME) ; ** delete dialog box
CALL WIN.DBLOAD(DBX, ERR) ; ** load again
END
** test for load errors (in case we did it again
IF NOT(ERR) THEN
CALL WIN.DBSET(DLG.NAME, dbName, strOut)
CALL WIN.DBSHOW(DLG.NAME, 1, ERR)
IF ERR THEN
CALL WIN.DBDEL(DLG.NAME)
END
END
-------
u2-users mailing list
[EMAIL PROTECTED]
To unsubscribe please visit http://listserver.u2ug.org/
