get xdialog field name

[gkeramidas]

this should be fairly simple, but i wasn't able to find anything about it.
i either want to have a button, or a double click event, copy the data in a field on a form. i can copy the data if i explicitly put the field name in the code, but how do i get the field name that the cursor is in?

just want to be able to copy all of the data in the field to teh clipboard.

thanks

[Stan Mathews]

Re: get xdialog field name

Not at all clear whether you are speaking of an xdialog, per the title, or a form, per the discussion. Don't think there are "double click events" for either. that leaves us with a button. When you push the button, the cursor (focus) is no longer in the field on the form, it is on the button.

So Alpha provides The <OBJECT>.ACTIVE_PREV() method returns the name of the control which previously had focus.

as in

This script returns the name of the control on the Sales form that previously had focus.

name = :Sales.Active_prev()

[gkeramidas]

Re: get xdialog field name

stan:

it's an xdialog form. a button is fine. if i want a button to copy all of the text, spaces and all, of the first field (name), how would i do that, because i don't know the name of the field the cursor is in.

[gkeramidas]

Re: get xdialog field name

stan:

and in the help file, i did see a reference to a double click event

Dblclick The user double-clicks on the control

[Stan Mathews]

Re: get xdialog field name

I'm old school. It is either an xdialog or a form. Never both. Any way......



Looks like you can get the name of the active control with UI_DLG_CTL_CURRENT().

[gkeramidas]

Re: get xdialog field name

thanks stan, but i looked at that and that doesn't give me the name, it gives me the control:
Name: |[50name]
there has to be some way to return the name of the field without having to parse out control characters.

[Stan Mathews]

Re: get xdialog field name

There must be.

ui_modeless_dlg_box("Basic Modeless Dialog", <<%dlg%
{xmargin=10}
{ymargin=2}
<20,2Click Here!MyButton>{sp=2}<20,2Or Click Here!MyOtherButton>
%dlg%)
 


? extract_string(ui_dlg_ctl_current("Basic Modeless Dialog"),"!",">")
= "MyButton"

[gkeramidas]

Re: get xdialog field name

thanks again.
i saw that in the help file, which is almost useless, but a lot better than the wiki help, which is totally useless.
but as you mentioned in your first post, i don't want the button, i want the field the cursor was in before the button was clicked.

is there a good xdialog book that can be purchaerd?

[Stan Mathews]

Re: get xdialog field name

I'm still not clear on what you want to do.

You are populating variables when you create an xdialog. What you do with the values entered into those variables is up to you.

See the example here that uses an xdialog for data entry.

[gkeramidas]

Re: get xdialog field name

stan:
this is basically what i want to do. The xdialog that I posted is populated with data. The user needs to copy data from each field and paste it into some old unix system (don't ask). I just want an easy way to select the data in each field, so it can be pasted into another program. Doesn't matter if it's a button to select and copy the text the cursor was in last. Or double clicking the field and having that event select and copy the text.

Gary

[Stan Mathews]

Re: get xdialog field name

I just want an easy way to select the data in each field, so it can be pasted into another program.

The data that is in each field on the xdialog is stored in the variable from which each control derives its name.

See if this helps, the control names don't make any difference.

ui_dlg_box("AutoAdvance Fields",<<%dlg%
When State and Phone fields are full, cursor automatically advances to next field.;
{lf};
{region}
Name:|[.40name];
State: |[%+%2.3state];
Phone: |[%+%3.4areaCode]{sp=.5}- [%+%3.4Exchange]{sp=.5}- [%+%4.5Number];
Country: |[.40country];
{endregion};
{line=1,0};
<10&OK> <10&Cancel>;
%dlg%,<<%code%
if a_dlg_button = "&OK" then
    ui_msg_box("Notice","Name = "+var->name+crlf()+"State = "+var->state+crlf()+"Phone = "+var->areacode+"-"+var->exchange+"-"+var->number+crlf()+"Country = "+var->country)
end if
%code%)

[gkeramidas]

Re: get xdialog field name

yes. it goes back to my original question. how do i get the filed name. whether i use the data in th field or the variable that populated the field, i still need to know which field they want to copy. i can't be the first person that ever wanted to get the field name the cursor was in when a button was clicked.

in the sample form, they can tab to a field, that field data is selected. they can press control c to copy the data to the clipboard. then they go to another program and paste that data in a field in that program. when they come back to the form, the cursor is not longer in any field, they have to click in a field. but double clicking in the field only selects a word, up to the first space, so they have to manually select the data in the field so it can be copied. they could go back to the previous field, press tab to get to the next field, but that's cumbersome.

i have no idea which field they will click in to copy. they don't always go in any order. i need to be able to get all of the data from which ever field they have selected with the mouse, as easy as possible. either double clicking in a field or putting the cursor in trhe field and clicking a button.

[Stan Mathews]

Re: get xdialog field name

Added an example to my previous post.

[gkeramidas]

Re: get xdialog field name

i'll check it out. thanks for your help

[Tim Kiebert]

Re: get xdialog field name

Have a play with this. Double click in the name and country 'fields'

ui_dlg_box("AutoAdvance Fields",<<%dlg%
When State and Phone fields are full, cursor automatically advances to next field.;
{lf};
{region}
Name:|[.40name!name_*];
State: |[%+%2.3state];
Phone: |[%+%3.4areaCode]{sp=.5}- [%+%3.4Exchange]{sp=.5}- [%+%4.5Number];
Country: |[.40country!Country_*];
{endregion};
{line=1,0};
<10&OK> <10&Cancel>;
%dlg%,<<%code%
if word(a_dlg_button,2,"_") = "Dblclick" then
    msgbox(word(a_dlg_button,1,"_"),eval(word(a_dlg_button,1,"_")))
    clipboard.Set_Data(eval(word(a_dlg_button,1,"_")))
    a_dlg_button = ""
else if a_dlg_button = "&OK" .or. a_dlg_button = "&Cancel"
	'do nothing - a_dlg_button is left with a value so dialog closes
else 
	a_dlg_button = "" 
end if
%code%)