calendar in embedded dialog supercontrol

[crimmelcp]

I am trying to control where I place an ui_modless xdialog on a form.
Attached is a sample calendar test
Forms
View Calendar and view calendar1 are with supercontrols for the small calendars. The large calendar is with xdialog.
The forms with supercontrols are about 3 or 4 seconds longer to load than the view active x form.
I am using activex calendar control 12 for the activex calendars

Need help:
In the form activex_test, I am trying to use an embedded supercontrol dialog to show the calendar.
I cannot get the script make_calendar to run from inside the supercontrol.
It will build the form, but it will not populate the dates.
If I can get this to work, then I can control the placement of the calendar on the form.

Any help would be appreciated.
Thanks
Charlie Crimmel

[Jim Coltz]

Re: calendar in embedded dialog supercontrol

I played with this for a bit. For some reason the code to run the supercontrol does not see the global function make_month(). I moved the function into a script called make_month_test to make it a local function. I also dimmed calendar as P in the script since it couldn't see it either when run within the supercontrol.

This is all in a new form called activex_test_new. I also removed the oninit event as well. Please unzip to a seperate directory as I did make some other changes along the way. Hope this helps.

[crimmelcp]

Re: calendar in embedded dialog supercontrol

Thanks. But that was about the same thing that I had. The Xdialog comes up and has to be moved by the user.
I was hoping that the supercontrol embedded x dialog would come up where I had the supercontrol on the form and the user could not move the large calendar.

i will keep trying

[crimmelcp]

Re: calendar in embedded dialog supercontrol

'----------------------------------
'cannot get the function or script to run from inside the embedded xdialog
'If I un-comment the line below the calendar form is not rendered.
'If I keep it commented out the embedded x-dialog is rendered but it will not populate
'the days of the month.
'make_month(calendar,date())
'----------------------------------
Jim was correct in the code to run the supercontrol does not see the global function make_month().

Anyone have any other ideas

Thanks
Charlie Crimmel

[Jim Coltz]

Re: calendar in embedded dialog supercontrol

Charlie,

You can get the make_month() function to run inside the supercontrol's local code by defining the function as a local function in the area where it tells you to dim your variables. I played around with this a bit more today and found I can get the supercontrol to run the make_month and get_daylist functions alright. Add a debug(1) in the locally defined function and you will see they do execute. I just can't figure out why it doesn't "stick" when the code brings up the dialog. I'm guessing it has something to do with the variable namespace but I really don't have the time to dig into it. Lots of other stuff of my own to work through ya know!

The xdialog supercontrol seems to be a bit different to work with!

[crimmelcp]

Re: calendar in embedded dialog supercontrol

Jim:
I cannot get the drop down month and year to populate.

Can you post your changes so that I can see how you did this.

Charlie Crimmel

[Jim Coltz]

Re: calendar in embedded dialog supercontrol

Jim:
I cannot get the drop down month and year to populate. Can you post your changes so that I can see how you did this.

Charlie Crimmel

To make this easier for me to debug I switched to my own calendar that I use in one of my apps and worked to get it working in an embedded Xdialog. I had not tried these embedded Xdialogs yet so I thank you for the challenge as it helped to expand my knowledge a bit. My calendar is also based on the one in Dr. Peter Wayne's book, "Xbasic for Everyone". I've posted the code for it, copied out of the supercontrol definition, below along with a screen shot of the form showing the embedded xdialg in action. Let me know if you need more and I'll give your code a shot again when I get a chance.

'Put code here to DIM any variables used in your Xdialog.
'dim shared monthlist as c
'dim shared yearlist as c

monthlist=<<%lst%
January
February
March 
April
May
June 
July
August
September
October
November
December
%lst%

yearlist=""
for i=2006 to 2026
	yearlist=yearlist+i+crlf()
next 


function get_day_list as c (dd as d)	'(day as c, owner as c)
'function get_day_list as c (dd as c)	'(day as c, owner as c)	this is not using index even though one is created
	dim tmp as C=""
	'dim d1 as T = ctodt(day+" 00:00:01")
	'dim d2 as T = ctodt(day+" 23:59:59")
		
	filter = "date_of_apt ="+s_quote(dd) 'date variable
'	filter = "dtoc(date_of_apt)="+quote(dd) 'string varible		
	order="time_for_sort"
'	filter= between_date("date_of_apt",dd,dd) 'this one also works but is slower		
		
'	tmp=table.external_record_content_get("appt_time","remspecial(Time_of_Apt)+' '+trim(Type_of_Apt)",order,filter)
	tmp=table.external_record_content_get("appt_time","(Time_of_Apt)+(Type_of_Apt)",order,filter)
		
	'tmp=table.external_record_content_get("caltest","remspecial(Time_of_Apt) +' '+trim(Type_of_Apt)",order,filter)
	'"'{B=White,Blue}'+time(\"h:0m AM\",datetime)+' '+left(padr(descript,30,' '),30)+'^'+id",\
	'order,filter)
	get_day_list=tmp
end function
 
function make_month as v(vars as p, start_day as d)
with vars
'dim global monthname as c
'dim global mnth as n
'dim global curr_month as c
'dim global curr_year as c
monthname=cmonth(start_day)+" "+cyear(start_day)
mnth=month(start_day)
curr_month=cmonth(start_day)
curr_year=cyear(start_day)

if day(start_day)>1 then
	start_day=start_day-day(start_day)+1
end if
if dow(start_day)>1 then
	start_day=start_day-dow(start_day)+1
end if
for week=1 to 7 ' rows of calendar
	for day=0 to 6 ' columns (days of week)
		dd=start_day+day+((week-1)*7)
		dayhdr_tmp="{J=L}{B="+if(month(dd)=mnth,"Green","Blue White")+",Blue}"+\
		day(dd)+"{T=2}|"+cdate(dd)+crlf()
		daylist_tmp="daylist"+week+dow(dd)+\
		"=dayhdr_tmp +get_day_list(dd)" 'uses date variable
		'"=dayhdr_tmp +get_day_list(dtoc(dd))" 'uses string variable much slower
		evaluate_template(daylist_tmp)
	next
next
end with
end function

dim shared dlg_expanded as c

dlg_expanded=<<%dlg%
{comment This next line tells what happens when the X is pressed in the
upper right hand corner of the dialog box--without it, the dialog won't close!}
{can_exit=on_exit}
{comment This is to position the dialog to 0,0 when first opened}
{position=.000,.000}
{comment This first region contains the month and year and a some navigational buttons}
{region}
{font=Arial,12,B}
{text=34,2:monthname} 
{font=Arial,8}
[curr_month^=monthlist!datechange]|[curr_year^=yearlist!datechange]|
{sp=1}
<%B=T;T=Current_Month;O= Current Month%!current_button_click >{sp=2}
<%B=T;T=Next Month;O= Next Month%!next_month_button_click> {sp=2}
<%B=T;T=refresh;O= Refresh%!refresh_button_click> {sp=2}
<%B=T;O={J=C}Rollup {I:'a5_rollup_small'}%!rollup>{sp=2}

{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,8,B}
Sunday|Monday|Tuesday|Wednesday|Thursday|Friday|Saturday
{endregion};
{comment Each block defines 7 'cells', or one week, containing the dates on
the first line and appointments on the subsequent lines of the cells.}
{region=a}
{font=Arial,6}
%dlg%

for week=1 to 6
	for day=1 to 7
		dlg_expanded=dlg_expanded+\
		"[%O={@@}%.20,7DL"+week+day+"^#daylist"+week+day+"!daylist]"+if(day=7,";","|")+crlf()	
	next
next
dlg_expanded=dlg_expanded+<<%dlg%
{endregion};
%dlg%


make_month(local_variables(),date())

	
'IMPORTANT: Do not change the dialog title.
ui_modeless_dlg_box(dlgTitle,dlg_expanded,<<%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
%code%)