form port
tile=button name=prev_year x= 240 y=20 w=66 h=66 text="<" section =prev_year bgcolor=transparent color=900
tile=text name=year x=380 y=30 w=170 h=90 color= 900 text=§_#YEAR_CALENDAR s=40
tile=button name=next_year x=510 y=20 w=66 h=66 text=">" section= next_year bgcolor=transparent color=900
tile=button name=prev_month x= 110 y=120 w=96 h=66 section =prev_month text="<" bgcolor=transparent color=900
tile=text name=month x=290 y=130 w=390 h=90 color= 900 text=§|_#month_text size=45
tile=button name=next_month x=640 y=120 w=96 h=66 section= next_month text=">" bgcolor=transparent color=900
tile=button name=ref x=682 y=1070 w=96 h=96 text="0~slash1" bgcolor=transparent section= refresh
tile=property y=256 w=90 h=90 size=36 bgcolor=transparent
tile=text name=w1 x=10+30 text=§|_#d1
tile=text name=w2 x=120+30 text=§|_#d2
tile=text name=w3 x=230 +30 text=§|_#d3
tile=text name=w4 x=340 +30 text=§|_#d4
tile=text name=w5 x=450+30 text=§|_#d5
tile=text name=w6 x=560+30 text=§|_#d6
tile=text name=w7 x=670+30 text=§|_#d7
tile=property y=340 w=90 h=90 section=select_date bgcolor=transparent
tile=button name=b0 x=10 text="00"
tile=button name=b1 x=122 text="01"
tile=button name=b2 x=234 text="02"
tile=button name=b3 x=346 text="03"
tile=button name=b4 x=458 text="04"
tile=button name=b5 x=570 text="05"
tile=button name=b6 x=682 text="06"
tile=property_add y=460
tile=button name=b7 x=10 text="07"
tile=button name=b8 x=122 text="08"
tile=button name=b9 x=234 text="09"
tile=button name=b10 x=346 text="10"
tile=button name=b11 x=458 text="11"
tile=button name=b12 x=570 text="12"
tile=button name=b13 x=682 text="13"
tile=property_add y=580
tile=button name=b14 x=10 text="14"
tile=button name=b15 x=122 text="15"
tile=button name=b16 x=234 text="16"
tile=button name=b17 x=346 text="17"
tile=button name=b18 x=458 text="18"
tile=button name=b19 x=570 text="19"
tile=button name=b20 x=682 text="20"
tile=property_add y=700
tile=button name=b21 x=10 text="21"
tile=button name=b22 x=122 text="22"
tile=button name=b23 x=234 text="23"
tile=button name=b24 x=346 text="24"
tile=button name=b25 x=458 text="25"
tile=button name=b26 x=570 text="26"
tile=button name=b27 x=682 text="27"
tile=property_add y=820
tile=button name=b28 x=10 text="28"
tile=button name=b29 x=122 text="29"
tile=button name=b30 x=234 text="30"
tile=button name=b31 x=346 text="31"
tile=button name=b32 x=458 text="32"
tile=button name=b33 x=570 text="33"
tile=button name=b34 x=682 text="34"
tile=property_add y=940
tile=button name=b35 x=10 text="35"
tile=button name=b36 x=122 text="36"
tile=button name=b37 x=234 text="37"
tile=button name=b38 x=346 text="38"
tile=button name=b39 x=458 text="39"
tile=button name=b40 x=570 text="40"
tile=button name=b41 x=682 text="41"
end
------------------------------------------------------------------------------------------------------------------
form land
tile=button x=240 y=20 w=66 h=66 text="<" section =prev_year bgcolor=transparent color=900
tile=text x=360 y=20 w=170 h=90 text=#YEAR_CALENDAR size=40 weight=bold
tile=button x=510 y=20 w= 66 h=66 text=">" section= next_year bgcolor=transparent color=900
tile=button x= 10 y=90 w= 96 h=66 s section =prev_month text="<" bgcolor=transparent color=900
tile=text x=170 y=85 w=390 h=90 text=#month_text size=40 weight=bold
tile=button x=680 y=90 w= 96 h=66 section= next_month text=">" bgcolor=transparent color=900
tile=button name=cc x=950 y=440 w=96 h=96 text="0~slash1" bgcolor=transparent section= refresh
tile=property y=160 w=90 h=60 size=32
tile=text name=w1 x=10+30 text=#d1
tile=text name=w2 x=120+30 text=#d2
tile=text name=w3 x=230+30 text=#d3
tile=text name=w4 x=340+30 text=#d4
tile=text name=w5 x=450+30 text=#d5
tile=text name=w6 x=560+30 text=#d6
tile=text name=w7 x=670+30 text=#d7
tile=property y=230 w=90 h=70 section=select_date
tile=button name=b0 x=10 text="00"
tile=button name=b1 x=122 text="01"
tile=button name=b2 x=234 text="02"
tile=button name=b3 x=346 text="03"
tile=button name=b4 x=458 text="04"
tile=button name=b5 x=570 text="05"
tile=button name=b6 x=682 text="06"
tile=property_add y=310
tile=button name=b7 x=10 text="07"
tile=button name=b8 x=122 text="08"
tile=button name=b9 x=234 text="09"
tile=button name=b10 x=346 text="10"
tile=button name=b11 x=458 text="11"
tile=button name=b12 x=570 text="12"
tile=button name=b13 x=682 text="13"
tile=property_add y=390
tile=button name=b14 x=10 text="14"
tile=button name=b15 x=122 text="15"
tile=button name=b16 x=234 text="16"
tile=button name=b17 x=346 text="17"
tile=button name=b18 x=458 text="18"
tile=button name=b19 x=570 text="19"
tile=button name=b20 x=682 text="20"
tile=property_add _add y=470
tile=button name=b21 x=10 text="21"
tile=button name=b22 x=122 text="22"
tile=button name=b23 x=234 text="23"
tile=button name=b24 x=346 text="24"
tile=button name=b25 x=458 text="25"
tile=button name=b26 x=570 text="26"
tile=button name=b27 x=682 text="27"
tile=property_add y=550
tile=button name=b28 x=10 text="28"
tile=button name=b29 x=122 text="29"
tile=button name=b30 x=234 text="30"
tile=button name=b31 x=346 text="31"
tile=button name=b32 x=458 text="32"
tile=button name=b33 x=570 text="33"
tile=button name=b34 x=682 text="34"
tile=property_add y=630
tile=button name=b35 x=10 text="35"
tile=button name=b36 x=122 text="36"
tile=button name=b37 x=234 text="37"
tile=button name=b38 x=346 text="38"
tile=button name=b39 x=458 text="39"
tile=button name=b40 x=570 text="40"
tile=button name=b41 x=682 text="41"
end
-------------------------------------------------------------------------------------------------------------------
section next_year
#YEAR_CALENDAR=#YEAR_CALENDAR +1
call section=set_calendar
end
-------------------------------------------------------------------------------------------------------------------
section next_month
#MONTH_CALENDAR=#MONTH_CALENDAR + 1
if #MONTH_CALENDAR > 12
#YEAR_CALENDAR=#YEAR_CALENDAR +1
#MONTH_CALENDAR=1
endif
#DAY_CALENDAR=1
call section=set_calendar
end section
-------------------------------------------------------------------------------------------------------------------
section prev_year
#YEAR_CALENDAR=#YEAR_CALENDAR -1
call section=set_calendar
end section
--------------------------------------------------------------------------------------------------------------------
section prev_month
#MONTH_CALENDAR=#MONTH_CALENDAR - 1
if #MONTH_CALENDAR == 0
#YEAR_CALENDAR=#YEAR_CALENDAR -1
#MONTH_CALENDAR=12
endif
#DAY_CALENDAR=1
call section=set_calendar
end section
---------------------------------------------------------------------------------------------
section set_calendar
#mm=$string.add_leading_symbols(#MONTH_CALENDAR,"0",2)
#start_month= $concate(#YEAR_CALENDAR + #mm + "01")
#first_day=$day_of_week(#start_month,"yyyyMMdd" )
if #first_day == 0 & #FIRSTDAYWEEK == 1
#first_day=7
endif
for #index=0 step= 1 to= 42 section=clear
#days_in_month=$days_in_month(#YEAR_CALENDAR, #MONTH_CALENDAR)
#start=#first_day
if #FIRSTDAYWEEK == 1
#start=#start -1
#d1=$get_message(#config_language,11)
#d2=$get_message(#config_language,22)
#d3=$get_message(#config_language,33)
#d4=$get_message(#config_language,44)
#d5=$get_message(#config_language,55)
#d6=$get_message(#config_language,66)
#d7=$get_message(#config_language,77)
else
#d1=$get_message(#config_language,77)
#d2=$get_message(#config_language,11)
#d3=$get_message(#config_language,22)
#d4=$get_message(#config_language,33)
#d5=$get_message(#config_language,44)
#d6=$get_message(#config_language,55)
#d7=$get_message(#config_language,66)
endif
#temp_day=1
for #index=#start step= 1 to= 42 section =setting
// make title info
#MONTH_CALENDAR=$trim_leading_symbols(#MONTH_CALENDAR,"0")
#key=$concate("m",#MONTH_CALENDAR)
#month_text=$get_message(#config_language,#key)
draw form=#form
end
-----------------------------------------------------------------------
section clear
#name=$concate("b",#index)
set text=#index name=$value(#name)
set visible=0 name=$value(#name) form=#form
end
-----------------------------------------------------------------------------------
section setting
#name=$concate("b",#index)
set text=#temp_day name=$value(#name)
set visible=1 name=$value(#name) form=#form
if #temp_day == #_current_day & #MONTH_CALENDAR == #_current_month & #YEAR_CALENDAR == #_current_year
set bgcolor=900 color=100 name=$value(#name) form=#form
else
set bgcolor=transparent color= 900 name=$value(#name) form=#form
endif
#temp_day= #temp_day +1
if #temp_day > #days_in_month
break loop
endif
end
----------------------------------------------------------------------------------------
// day was selected
section select_date
#button=#selected_button
#DAY_CALENDAR =#_selected_button_text
#length=$length(#MONTH_CALENDAR)
if #length == 1
#MONTH_CALENDAR=$concate("0",#MONTH_CALENDAR)
endif
#length=$length(#DAY_CALENDAR)
if #length == 1
#DAY_CALENDAR=$concate("0",#DAY_CALENDAR)
endif
// config.DATEFORMAT
#selected_date_from_calender=$strings_to_dateformat(#DAY_CALENDAR, #MONTH_CALENDAR, #YEAR_CALENDAR, #CALENDAR_OUTPUT_FORMAT)
#selected_day_from_calender =#DAY_CALENDAR
#selected_month_from_calender =#MONTH_CALENDAR
#selected_year_from_calender =#YEAR_CALENDAR
// set returned value of date
set value=#selected_date_from_calender to_field_from=#CALENDAR_RESULT
// return to called script
if #ESCAPE_SCRIPT==""
#ESCAPE_SCRIPT = "20_0_calendar_test"
#ESCAPE_SCENE ="1"
endif
call script=#ESCAPE_SCRIPT scene=#ESCAPE_SCENE
end
----------------------------------------------------------------------------------------------------
section back
call script=#ESCAPE_SCRIPT scene=#ESCAPE_SCENE
end
----------------------------------------------------------------------------------------------------
// change first day week
section refresh
#FIRSTDAYWEEK=1- #FIRSTDAYWEEK
call section=set_calendar
end
end scene
LIST OF EXAMPLES
Die bereitgestellten Screenshots können geringfügig von den tatsächlichen Ergebnissen der Skripte abweichen.
