section init
file name=_dictionary_columns record=(#c1,#c2,#c3,#c4,#c5,#c6,#c7,#c8,#c9,#c10) directory=#_directory_my_system
file name=_dictionary record=(#f1,#f2,#f3,#f4,#f5,#f6,#f7,#f8,#f9,#f10) directory=#_directory_my_system
const #sort_name= order by (#f1)
read file=_dictionary_columns directory=#_directory_my_system
#tit=$concat("KEY ",#c1," ",#c2," ",#c3," ",#c4," ",#c5," ",#c6," ",#c7," ",#c8," ",#c9)
read file=_dictionary directory=#_directory_my_system sort=#sort_name
#counter=#_counter_of_records
call list=list_files
end section
-------------------------------------------------------
list view list_files
tile=file name=_dictionary
tile=property s=33
tile=title text=#tit
tile=item name=#ff1 section=tuning1
tile=item name=#ff2 section=tuning2
tile=button name=button_m section =min text ="***" w=100
tile=button name=button_add section=press_button_add text=@add w=400
tile=button name=button_b section=back text ="<" w=100
tile=select section=select
end list
----------------------------------------------------------
section tuning1
#ff1=$concate("key: "+#f1)
end
----------------------------------------------------------
section tuning2
if #_switch == 0
#ff2=$concate(#f2+~newline+#f3+~newline+#f4+~newline+#f5)
#ff2=$concate(~newline+#ff2+~newline+#f6+~newline+#f7+~newline+#f8+~newline+#f9+~newline+#f10)
else
#ff2=""
endif
end
----------------------------------------------------------
section min
#_switch = 1-#_switch
call scene=2
end
----------------------------------------------------------
section press_button_add
#mode="add"
call scene =3
end section
-----------------------------------------------------------
section select
call menu= list_menu
end section
-----------------------------------------------------------
menu list_menu
tile=title text= "Select option"
tile=item text=@edit section=edit
tile=item text=@delete section=delete
tile=item text=@_back section=press_button_close
end menu
------------------------------------------------------------
section back
call script=_dictionary
end section
------------------------------------------------------------
section edit
#mode=edit
call scene=3
end section
-----------------------------------------------------------
section delete
call menu=delete
end section
--------------------------------------------------------
section press_button_close
call scene=2
end section
---------------------------------------------------------
menu delete
tile=title text=@deletethisrecord
tile=item text=@yes section=delete_record
tile=item text=@no section=no_delete_record
end menu
-----------------------------------------------------------
section delete_record
delete record= selected file =_dictionary directory=#_directory_my_system
call scene=2
end section
-------------------------------------------------------------
section no_delete_record
call scene=2
end section
end scene 2
====================================================================================
scene =3 name="dictionary add/edit" cs=white
section init
if #mode=="add"
#f1= ""
#f2= ""
#f3= ""
#f4= ""
#f5= ""
#f6= ""
#f7= ""
#f8= ""
#f9= ""
#f10= ""
#title = "add record"
#button=@add
else
#title = "edit record"
#button=@save
endif
draw form=#form
end section
------------------------------------------------------------------------
form port
tile=text x=0 y=80 w=800 text=#title gravity=center
tile=property x=10 w=80 gravity=right s=30
tile=text y=180 text="KEY" color=red
tile=text y=280 text=#c1
tile=text y=380 text=#c2
tile=text y=480 text=#c3
tile=text y=580 text=#c4
tile=text y=680 text=#c5
tile=text y=780 text=#c6
tile=text y=880 text=#c7
tile=text y=980 text=#c8
tile=text y=1080 text=#c9
tile=property x=100 w=690 gravity=left
tile=input name=#f1 y=180 text=#f1
tile=input name=#f2 y=280 text=#f2
tile=input name=#f3 y=380 text=#f3
tile=input name=#f4 y=480 text=#f4
tile=input name=#f5 y=580 text=#f5
tile=input name=#f6 y=680 text=#f6
tile=input name=#f7 y=780 text=#f7
tile=input name=#f8 y=880 text=#f8
tile=input name=#f9 y=980 text=#f9
tile=input name=#f10 y=1080 text=#f10
tile=button name=b x=20 y=1180 w=300 text=#button section=button
tile=button name=b x=420 y=1180 w=300 text=@back section=back
end form
---------------------------------------------------
form land
tile=text x=0 y=20 w=800 text=#title gravity=center
tile=property x=10 w=80 gravity=right s=30 h=50
tile=text y=100 text="KEY" color=red
tile=text y=150 text=#c1
tile=text y=200 text=#c2
tile=text y=250 text=#c3
tile=text y=300 text=#c4
tile=text y=350 text=#c5
tile=text y=400 text=#c6
tile=text y=450 text=#c7
tile=text y=500 text=#c8
tile=text y=550 text=#c9
tile=property x=100 w=1100 gravity=left h=40 h=50
tile=input name=#f1 y=100 text=#f1
tile=input name=#f2 y=150 text=#f2
tile=input name=#f3 y=200 text=#f3
tile=input name=#f4 y=250 text=#f4
tile=input name=#f5 y=300 text=#f5
tile=input name=#f6 y=350 text=#f6
tile=input name=#f7 y=400 text=#f7
tile=input name=#f8 y=450 text=#f8
tile=input name=#f9 y=500 text=#f9
tile=input name=#f10 y=550 text=#f10
tile=button name=b x=100 y=640 w=300 h=80 text=#button section=button
tile=button name=b x=500 y=640 w=300 h=80 text=@back section=back
end form
--------------------------------------------------
section button
if #mode==add
write_record file=_dictionary directory=#_directory_my_system
else
delete record= selected file =_dictionary directory=#_directory_my_system
write_record file =_dictionary directory=#_directory_my_system
endif
call scene =2
end section
----------------------------------------------------
section back
call scene =2
end section
end scene 3
LIST OF EXAMPLES
Die bereitgestellten Screenshots können geringfügig von den tatsächlichen Ergebnissen der Skripte abweichen.