Ian: Thanks very much. My 1996 documentation doesn't have that style property. After careful review of the 2003 pdf off IBMs website, I see it.
This gets the job done nicely. :-) Thanks again. Bill > -----Original Message----- > From: [EMAIL PROTECTED] > [mailto:[EMAIL PROTECTED] Behalf Of Ian Renfrew > Sent: Thursday, November 18, 2004 5:30 AM > To: [EMAIL PROTECTED] > Subject: RE: [U2] wIntegrate text box > > > Try adding the style property ES_WANTRETURN as part of the Opts variable. > > Regards, Ian Renfrew > > > -----Original Message----- > From: [EMAIL PROTECTED] > [mailto:[EMAIL PROTECTED] On Behalf Of Bill H. > Sent: Wednesday, November 17, 2004 7:08 PM > To: [EMAIL PROTECTED] > Subject: [U2] wIntegrate text box > > 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/ > > > -- > Incoming mail is certified Virus Free. > Checked by AVG Anti-Virus (http://www.grisoft.com). > Version: 7.0.279 / Virus Database: 265.3.1 - Release Date: 11/15/2004 > > > > > -- > Outgoing mail is certified Virus Free. > Checked by AVG Anti-Virus (http://www.grisoft.com). > Version: 7.0.279 / Virus Database: 265.3.1 - Release Date: 11/15/2004 > ------- > u2-users mailing list > [EMAIL PROTECTED] > To unsubscribe please visit http://listserver.u2ug.org/ ------- u2-users mailing list [EMAIL PROTECTED] To unsubscribe please visit http://listserver.u2ug.org/
