xdialog Calendar

[johnkoh]

Hi All,

After changed the few codes from the "Calendar At A Glance" and other samples, I just made this xdialog Calendar. I could not figured the "Button object name" when I pressed a button from my xdialog. After I know the "object name" then I could write for Event code.

Does any one know how to get the "object name" ?

actdate = date()
startdate = ctod(padl(alltrim(str(month(ActDate))),2,"0")+"/01/"+alltrim(str(year(ActDate))))
startnum = dow(ctod(padl(alltrim(str(month(ActDate))),2,"0")+"/01/"+alltrim(str(year(ActDate)))))

monthname=cmonth(Actdate)+" "+cyear(actdate)
mnth=month(actdate)
curr_month=cmonth(ActDate)
curr_year=cyear(ActDate)

btns =""
daynum =""
vShow =""


dlg=<<%dlg%
{can_exit=on_exit}
{comment This first region contains the month name}
{region}
{font=Arial,14,B}
{text=35,2:monthname}
{font=Arial,8}
{endregion};
;
{comment Writing 'region=a' means that all identically designated regions
will share the same horizontal tab dimensions.
This second region contains the day of week header}
{region=a}
{font=Arial,12,B}
S M T W T F S
{endregion};
{region=a}
{font=Arial,12,b}
%dlg%

'create the button
FOR i = 1 to 42 step 1
vShow = alltrim(str(day(startdate-startnum+i)))
dlg = dlg+"<%O={@@}%5,2 "+ vShow+"!x"+vShow+">" +If(i=7 .or. i=14 .or. i=21 .or. i=28 .or. i=35 .or. i=42,";"+crlf(),"")
NEXT


dlg = dlg+<<%dlg%
{endregion};
%dlg%

code=<<%code%
if a_dlg_button="on_exit" then 'when user presses the X in the upper right corner
ui_modeless_dlg_close("@="+dlg_title)
end if

if left(a_dlg_button,1)="x" then
a_dlg_button =""
'how do I know the event or object name?
msgbox("hello","what is this object name? "+left(a_dlg_button,2))
end if

%code%
dlg_title="dlg_"+remspecial(time())
eval(dlg_title)="Calendar At A Glance"
ui_modeless_dlg_box("@="+dlg_title,dlg,code)

[Stan Mathews]

Re: xdialog Calendar

ui_dlg_box("Test",<<%dlg% 

Name: [.20name]; 
<[COLOR="#FF0000"]OK[/COLOR]>; 
%dlg%,<<%code% 
debug(1)
if a_dlg_button = "[COLOR="#FF0000"]OK[/COLOR]" then 
'do something 
end if 
%code%)

I think there's something wrong with your construction. If you run this the debugger window will open. Modify your code to include the debug(1) line as the first line of the code section and nothing happens.

[Finian Lennon]

Re: xdialog Calendar

First, move the message box line to up above the a_dlg_button = "" since that sets the value of a_dlg_button to null and you can no longer see its value.

Then, change the message box to:

msgbox("hello","what is this object name? "+a_dlg_button)

You will see that the value of a_dlg_button is X2 or x23 or x16 and you can use substr(a_dlg_button,2,2) to determine the date clicked.

[johnkoh]

Re: xdialog Calendar

thank you, Finian

That works well.

[Stan Mathews]

Re: xdialog Calendar

You're going to have a bit of a problem finding out whether the user chose the 29th of December or the 29th of January, etc.

[johnkoh]

Re: xdialog Calendar

Stan,

I think, I have the Month and year variables. KeyId = button object name+ month + year, then I will know the difference between 12/29 and Jan/29

[johnkoh]

Re: xdialog Calendar

Hi,

Update and I can get the date value now

actdate = date()
startdate = ctod(padl(alltrim(str(month(ActDate))),2,"0")+"/01/"+alltrim(str(year(ActDate))))
startnum = dow(ctod(padl(alltrim(str(month(ActDate))),2,"0")+"/01/"+alltrim(str(year(ActDate)))))

monthname=cmonth(Actdate)+" "+cyear(actdate)
mnth=month(actdate)
curr_month=cmonth(ActDate)
curr_year=cyear(ActDate)

btns =""
daynum =""
vShow =""
dim List[42] as c


dlg=<<%dlg%
{can_exit=on_exit}
{comment This first region contains the month name}
{region}
{font=Arial,14,B}
{text=35,2:monthname}
{font=Arial,8}
{endregion};
;
{comment Writing 'region=a' means that all identically designated regions
will share the same horizontal tab dimensions.
This second region contains the day of week header}
{region=a}
{font=Arial,12,B}
S M T W T F S
{endregion};
{region=a}
{font=Arial,12,b}
%dlg%

'create the button
FOR i = 1 to 42 step 1
vShow = alltrim(str(day(startdate-startnum+i)))
list[i] = dtoc(startdate-startnum+i)
dlg = dlg+"<%O={@@}%5,2 "+ vShow+"!x"+i+">" +If(i=7 .or. i=14 .or. i=21 .or. i=28 .or. i=35 .or. i=42,";"+crlf(),"")
NEXT


dlg = dlg+<<%dlg%
{endregion};
%dlg%

code=<<%code%
if a_dlg_button="on_exit" then 'when user presses the X in the upper right corner
ui_modeless_dlg_close("@="+dlg_title)
end if

if left(a_dlg_button,1)="x" then
'a_dlg_button =""
'how do I know the event or object name?
msgbox("hello","what is this object name? "+substr(a_dlg_button,2,2))
'How to get the Value?
msgbox("how to get the field value",list[val(substr(a_dlg_button,2,2))])
end if

%code%
dlg_title="dlg_"+remspecial(time())
eval(dlg_title)="Calendar At A Glance"
ui_modeless_dlg_box("@="+dlg_title,dlg,code)