Capitalizes Xdialog

[[email protected]]

Hi all

I have an Xdialog Box where the users enter Last Name and First Name

Although I Capitalizes the results when writing to the client table with w_upper, the client would like me to Capitalizes the first letter of the names in the xdialog boxes.

I have searched the forum and been through the learning xdialog and cannot find how to do this! is it possible?

Andy

Dialog code

varC_result = ui_dlg_box("Relationship to client",<<%dlg%
{xmargin=4,4}
{Background=#230+216+142}
{region}
{text=75,1:heading_string};
{endregion};
{frame=1,1:Please Enter Relation:}{region}
Title:        | [%d;O={@@}%.40,5VTitle^#a_VTitle];
{lf};
{lf};
First Name:   | [.40VFName];
Last Name:    | [.40VLname];
{lf};
{lf};
Date of Birth:| [%DATE;P=popup.calendar(dtoc(Vdob));I=popup.calendar%.20Vdob!Vdob_*];
{lf};
{lf};
Relationship: | [%d;O={@@}%.50,5VRelation^#a_VRelation];
{lf};
{lf};
Height:       | [.15Vheight];
Weight:       | [.15Vweight];
{lf};
{endregion};
{region}
{lf};
<*15=ok_button_label!OK> <15=cancel_button_label!CANCEL>
{endregion};
%dlg%,<<%code%

[Tim Kiebert]

Re: Capitalizes Xdialog

This is one way.
Change the name controls in the dialog definition to

{lf};
First Name:   | [.40VFName[COLOR=Red]!Fnm_change[/COLOR]];
Last Name:    | [.40VLname[COLOR=Red]!Lnm_change[/COLOR]];
{lf};

Then add in the code section

If a_dlg_button = "Fnm_change" then
     VFName = w_upper(VFName)
     a_dlg_button = ""
End If
If a_dlg_button = "Lnm_change" then
     VLName = w_upper(VLName)
     a_dlg_button = ""
End If

[[email protected]]

Re: Capitalizes Xdialog

Hi Tim

Thanks for your help, I have implemented the changes you suggested, but it is not have quite the required effect, The code is capitalizing all the chars and reversing the order "Andy" would end up as YDNA would you have any Idea why this would be

Andy

[Tim Kiebert]

Re: Capitalizes Xdialog

Andy, my apologies, I was not at a machine yesterday that I could test and won't be till later today but you might try changing to this.
This will capitalise on leaving the control.

{lf};
First Name:   | [.40VFName!Fnm_*];
Last Name:    | [.40VLname!Lnm_*];
{lf}


IF left(a_dlg_button,4) = "Fnm_"
	IF a_dlg_button = "Fnm_killfocus" THEN
		VFName = w_upper(VFName)
	END IF
	a_dlg_button = ""
END IF
IF left(a_dlg_button,4) = "Lnm_"
        IF a_dlg_button = "Lnm_killfocus" THEN
	  VLName = w_upper(VLName)
        END IF
	a_dlg_button = ""
end if

[[email protected]]

Re: Capitalizes Xdialog

Hi Tim

Thanks very much, works great

Andy

[gschepp]

Re: Capitalizes Xdialog

What about MacGregor? McKenzie? Van Holland?

[Tim Kiebert]

Re: Capitalizes Xdialog

One can account for these situations in a user defined function. Then call that UDF in the xdialog instead of the w_upper function. There have been examples of such udfs on the forum. It may take a bit of digging to find them.

But it would consist mostly of a Select...case...End select to test for the various constructs and then apply capitals as desired.