XDialog - restricting number of crlf and charactors

[Pete119j]

Hi,

Is it possibble to have an xdialog box with a field which restrics the user to entering up to 160 charactors and 5 crlf's? Maybe as you type it could show the number of charactors and crlf's used through an onkey event

Below is a sample of my xdialog

Thanks in advance for all your help

Pete

sinfo = "M97543"+crlf()+"MIDLAND METAL PRODUCTS"+crlf()+"GBP"
sref=""
scom=""
varC_result = ui_dlg_box("Extra Info",<<%dlg%
{font=Arial,10};
{blueframe=1,1:Selected Supplier Info}
{region}
{font=courier new,12};
{text=80,8sinfo};
{endregion};
{font=Arial,10};
{blueframe=1,1:Enter Supplier ref and Comments:}
{region}
{lf};
 Supplier Ref:|[20sref];
 Order Comments:|[%MW%.40,5scom];
{lf};
{endregion};
<OK><Cancel>
%dlg%)

[Tom Cone Jr]

Re: XDialog - restricting number of crlf and charactors

Maybe this will get you going.

'Date Created: 12-Feb-2010 06:43:35 AM
'Last Updated: 12-Feb-2010 06:43:35 AM
'Created By  : Tom Cone Jr
'Updated By  : Tom Cone Jr
sinfo = "M97543"+crlf()+"MIDLAND METAL PRODUCTS"+crlf()+"GBP"
sref=""
scom=""
nCRLF = 0
dim ptext as P
dim ptext.text as C
dim ptext.object as P
dim ip as N
dim new_ip as N
dim sCRLF_counter as C
dim nChars as N = 0
dim sChars_counter as C

varC_result = ui_dlg_box("Extra Info",<<%dlg%
{on_key=ENTER}
{on_char=chr_*}
{font=Arial,10};
{blueframe=1,1:Selected Supplier Info}
{region}
{font=courier new,12};
{text=80,8sinfo};
{endregion};
{font=Arial,10};
{blueframe=1,1:Enter Supplier ref and Comments:}
{region}
{lf};
 Supplier Ref:|[20sref];
 Order Comments:|[%MW%.40,5ptext];
{lf};
{endregion};
<OK><Cancel>;
{text=20,1sCRLF_counter}
{text=20,1sChars_counter};

%dlg%,<<%code%
if a_dlg_button = "ENTER" then
	if ui_dlg_ctl_current("Extra Info") = "[%MW%.40,5ptext]"
	    a_dlg_button = ""
	    nCRLF = nCRLF + 1
	    'msgbox("nCRLF", ltrim(str(nCRLF)))
	    sCRLF_counter="CRLF's "+ltrim(str(nCRLF));
	    	ip = ptext.object.get_cursor()
			ptext.object.insert_text(crlf())
	    	ui_dlg_ctl_goto("Extra Info","ptext")
	    	new_ip = ip + 2
	    	ptext.object.set_cursor(new_ip)    
	    'ptext.object.insert_text(ptext.text + crlf())
	    'this causes the text box to scroll if the insertion point is not currently visible
	    ptext.object.show_caret()
	end if  
	a_dlg_button = ""  
end if
if left(a_dlg_button,4) = "chr_" then
	'msgbox("chr_",a_dlg_button)
    if ui_dlg_ctl_current("Extra Info") = "[%MW%.40,5ptext]"
    	nchars = nchars + 1
    	sChars_counter = "Chars " + ltrim(str(nChars))
    	ip = ptext.object.get_cursor()
		ptext.object.insert_text(substr(a_dlg_button,5))
    	ui_dlg_ctl_goto("Extra Info","ptext")
    	new_ip = ip + 1
    	ptext.object.set_cursor(new_ip)
	    ptext.object.show_caret()
    	'ptext.text = ptext.text + substr(a_dlg_button,5)
    end if
    if ui_dlg_ctl_current("Extra Info") = "[20sref]"  then
        sref = sref + substr(a_dlg_button,5)
    end if
    a_dlg_button = ""	
end if
%code%)

[Pete119j]

Re: XDialog - restricting number of crlf and charactors

Tom,

Thats spot on, I shall have a play over the weekend.

thanks

Pete

[Tom Cone Jr]

Re: XDialog - restricting number of crlf and charactors

Glad you like it. It was a good exercise. I don't have a lot of experience with the xdialog text pointer. And, who knows, maybe someone else will come up with a simpler or more elegant solution for you.

[Tom Cone Jr]

Re: XDialog - restricting number of crlf and charactors

Here's the same script in "importable" format.

[Pete119j]

Re: XDialog - restricting number of crlf and charactors

I've had a play with Tom's example over the weekend and also looked at the learning xdialog examples that ships with Alpha5.

I've changed Tom's code to use len() to determin the number of charactors, *count() for the number of crlf's and captured the changes using the change event.
The OK button is now disabled when there are to many charactors or crlf's

The only other thing I would like to do is when the order comments gets initial focus set the cursor to the end of the existing text.

Any help would be very much appriciated

Pete

Latest code below

sinfo = "M97543"+crlf()+"MIDLAND METAL PRODUCTS"+crlf()+"GBP"
sref=""
scom=""
ptext = "Starting with this Text"
dim ptxt as P
dim ptxt.text as C
dim ptxt.object as P
dim ip as N
dim new_ip as N
dim nChars as N = len(ptext)
dim nCRLF as N = *count(ptext)
dim Maxchar as N = 160
dim maxcrlf as N = 5
dim text_ok as C = "Yes"
dim s_counter as C
result = ui_dlg_box("Extra Info",<<%dlg%
{font=Arial,10};
{blueframe=1,1:Selected Supplier Info}
{region}
{font=courier new,12};
{text=80,5sinfo};
{endregion};
{font=Arial,10};
{blueframe=1,1:Enter Supplier ref and Comments:}
{region}
{lf};
 Supplier Ref:|[20sref];
 Order Comments:|[%MW%.40,5ptext!change];
|{text=40,3s_counter};
{endregion};
<OK?.not.(text_ok='no')><Cancel>;
%dlg%,<<%code%
if a_dlg_button = "change" then
   a_dlg_button = ""
    nchars = maxchar - len(ptext)
    nCRLF = maxcrlf - *count(ptext)
    s_counter = "Only " + ltrim(str(nChars))+" Charactors and "+ltrim(str(nCRLF))+" Line feeds left"
 if nChars < 0 .or. ncrlf < 0 then
     text_ok = "No"
 else
     text_ok = "Yes"
 end if
end if
%code%)
if result <> "&Close" then
 ui_msg_box("Notes",ptext)
end if

[MikeC]

Re: XDialog - restricting number of crlf and charactors

Nice Pete,
I don't have time this am to play with this, but wanted to point out that the crlf is only being trapped when Enter is pressed--when the word/letters wrap down to the next line while typing it is not trapped.....all the little things is what takes the time it seems!