action init
#size_scale = 1.0
#height_scale = 1.0
#unit=$get_unit()
file name=_parameters_portrait_win record=(#typ,#fragment,#style,#align,#size,#weight,#width,#height) directory=#_directory_my_parameters
file name=_parameters_landscape_win record=(#typ,#fragment,#style,#align,#size,#weight,#width,#height) directory=#_directory_my_parameters
file name=_parameters_portrait record=(#typ,#fragment,#style,#align,#size,#weight,#width,#height) directory=#_directory_my_parameters
file name=_parameters_landscape record=(#typ,#fragment,#style,#align,#size,#weight,#width,#height) directory=#_directory_my_parameters
call menu=orient
end
-------------------
menu orient
tile=item text=portrait action=port
tile=item text=ladnscape action=land
tile=item text=< action=back
end
--------------------------------
action land
if #unit==windows
#file=_parameters_landscape_win
else
#file=_parameters_landscape
endif
call menu=typ
end
--------------------------------
action port
if #unit==windows
#file=_parameters_portrait_win
else
#file=_parameters_portrait
endif
call menu=typ
end
----------------------
menu typ
tile=item text=form action=select_typ
tile=item text=dialog action=select_typ
tile=item text=menu action=select_typ
tile=item text=list action=select_typ
tile=item text=@_change_size_for_all action=cs
tile=item text="restore from factory setting" action=restore
tile=item text=< action=typ_back
end
----------------
action cs
call scene=change_size
-------------------------------------------
section restore
copy file=#file from_dir=#_directory_parameters to_dir=#_directory_my_parameters
message "file "+#file+" was restored"
end
------------------------------------------
action back
call script=_setting_menu
end
-------------------------------------------
action typ_back
call scene=1
end
--------------------------------------------
action select_typ
#_typ=#_selected_value
if #_typ == form
call menu=fragment_f
endif
if #_typ == dialog
call menu=fragment_dialog
endif
if #_typ == menu
call menu=fragment_menu
endif
if #_typ == list
call menu=fragment_list
endif
end
-------------------------------------------------------
menu fragment_f
tile=property h=35
tile=item text=text action=select_fragment
tile=item text=input action=select_fragment
tile=item text=button action=select_fragment
tile=item text=togglebutton action=select_fragment
tile=item text=spinner action=select_fragment
tile=item text=seekbar action=select_fragment
tile=item text=checkbox action=select_fragment
tile=item text=radiobutton action=select_fragment
tile=item text=switch action=select_fragment
tile=item text=< action=typ_back
end
-----------------------------------------------------
menu fragment_dialog
tile=property h=44
tile=title text=#_typ weight=bold
tile=item text=title action=select_fragment
tile=item text=text action=select_fragment
tile=item text=input action=select_fragment
tile=item text=button action=select_fragment
tile=item text=< action=typ_back
end
------------------------------------------------------
menu fragment_menu
tile=title text=#_typ weight=bold
tile=item text=title action=select_fragment
tile=item text=item action=select_fragment
tile=item text=< action=typ_back
end
-----------------------------------------------------
menu fragment_list
tile=title text=#_typ weight=bold
tile=item text=title action=select_fragment
tile=item text=item action=select_fragment
tile=item text=button action=select_fragment
tile=item text=< action=typ_back
end
------------------------------------------------------
action select_fragment
#_fragment=$lower(#_selected_value)
read file=#file directory=#_directory_my_parameters
select_record fields=(#typ,#fragment) values=(#_typ,#_fragment)
#orient=#file
call scene=2
end
end scene
=========================================================
scene=2 name="editing form"
=========================================================
action init
#height_button=$get
draw form=1
end
-------------------------------------------------
form 1
tile=text text="typ" x= 10 y=50 width=300 gravity=right
tile=text text=#typ x=400 y=50 width=300
tile=text text="fragment" x= 10 y=130 width=300 gravity=right
tile=text text=#fragment x= 400 y=130 width=300
tile=text text="style" x= 10 y=210 width=300 gravity=right
tile=input name=#style x= 400 y=210 width=300
tile=text text="weight" x= 10 y=290 width=300 gravity=right
tile=input name=#weight x= 400 y=290 width=300
tile=text text="width" x= 10 y=370 width=300 gravity=right
tile=input name=#width x= 400 y=370 width=120
tile=text text="height" x= 10 y=450 width=300 gravity=right
tile=input name=#height x= 400 y=450 width=120
tile=text text="font size" x= 10 y=530 width=300 gravity=right
tile=input name=#size x= 400 y=530 width=120
tile=button text=@save action=save x=10 y= 610 w=300
tile=button text=< action=back x=490 y= 610 w=300
end
---------------------------------------------------------------------------
action save
// update new values in selected record and save file
update_current file=#file directory=#_directory_my_parameters
call script=_seting_parameters
end
action back
call scene=1
end
end scene
=======================================================================================
scene=change_size name="change size and height for all"
-------------------------------------------------------------
action init
#height_button=$get_default_value("form","button", "height")
#height_button= #height_button*#height_scale
#height_button=$round( #height_button,0)
#size_button=$get_default_value("form","button", "size")
#size_button= #size_button*#size_scale
#size_button=$round( #size_button,0)
draw form=2
end
-----------------------------------------------------------
form 2
tile=text x= 0 y=80 width=800 text="Size scale" gravity=center
tile=button name=sl text=< action=sl x= 150 y= 150-5 width=100 bgcolor=transparent h= #height_button s=#size_button
tile=input x= 360 y=150 width=100 text=#size_scale name=#size_scale gravity=center
tile=button name=sg text=> action=sg x= 550 y= 150-5 width=100 bgcolor=transparent h= #height_button s=#size_button
tile=text x= 0 y=80+180 width=800 text="Height scale" gravity=center
tile=button name=hl text=< action=hl x= 150 y= 150-5+180 width=100 bgcolor=transparent h= #height_button s=#size_button
tile=input x= 360 y=150+180 width=100 text=#height_scale name=#height_scale gravity=center
tile=button name=hg text=> action=hg x= 550 y= 150-5+180 width=100 bgcolor=transparent h= #height_button s=#size_button
tile=button text=@_save action=button_save x=450 y= 500 width=300 h= #height_button s=#size_button
tile=button text=< action=back x= 50 y= 500 width=300 h= #height_button s=#size_button
tile=text x= 0 y=600 width=#_width_virtual h=140 text=@_change_for_all gravity=center
end
------------------------------------------------------------
action hg
if #height_scale<1.5
#height_scale +=0.1
call section=init
endif
end
------------------------------------------------------------
action hl
if #height_scale>0.8
#height_scale -=0.1
call section=init
endif
end
------------------------------------------------------------
action sg
if #size_scale<1.5
#size_scale +=0.1
call section=init
endif
end
------------------------------------------------------------
action sl
if #size_scale>0.8
#size_scale -=0.1
call section=init
endif
end
------------------------------------------------------------
action button_save
read file=#file
update_file name=#file action=update
reload parameters
call section=init
end
-------------------------------------------------------------
action update
#size_new=#size*#size_scale
if #size_new>20 && #size_new < 50
#size=$round(#size_new,0)
endif
#height_new=#height*#height_scale
if #height_new>20 && #height_new < 110
#height=$round(#height_new,0)
endif
end
-------------------------------------------------------------