calcul#1.dlg

来自「利用人工智能程序设计语言prolog编程实现的公式计算软件源代码。」· DLG 代码 · 共 149 行

main_extframe("idd_100")
tmpsl("idd_100",s("AKO",0,13,el([e("dial","PROJECT.FKB")]),n,sl([]),0,0,0))
tmpsl("idd_100",s("name",0,1,st("calculator1"),m("cr","class"),sl([]),1,0,1))
tmpsl("idd_100",s("title",0,1,st("公式计算器(V1.0)"),m("cr","name"),sl([]),0,0,1))
tmpsl("idd_100",s("const",0,1,st("idd_calculator1"),d,sl([]),6,15,2))
tmpsl("idd_100",s("rct",0,8,il([40,32,312,204]),m("pu",""),sl([]),0,0,1))
tmpsl("idd_100",s("attr",0,1,st("mode(7,[9,6,5,4],\"System\",10)"),m("pu",""),sl([]),0,0,1))
tmpsl("idd_100",s("mod",0,1,n,m("pu",""),sl([]),0,0,1))
tmpsl("idd_100",s("hlp",0,1,st("Contents"),m("pu",""),sl([]),0,0,1))
tmpsl("idd_100",s("c_pref",0,1,st("idc"),m("pu",""),sl([]),0,0,1))
tmpsl("idd_100",s("expattr",0,1,st("expattr4(1,1,0,0,5,5)"),m("pu",""),sl([]),0,0,1))
tmpsl("idd_100",s("upd_dt",0,1,st("23:11:01-8.8.2001"),d,sl([]),0,9,1))
tmpsl("idd_100",s("efile",0,1,st("RES\\CALCUL#1.DLG"),n,st("1"),0,0,1))
tmpsl("idd_100",s("rb_groups",0,13,n,n,sl([]),0,0,1))
tmpsl("idd_100",s("1",0,2,f("idc_101"),n,n,0,0,2))
tmpsl("idd_100",s("2",0,2,f("idc_102"),n,n,0,0,2))
tmpsl("idd_100",s("3",0,2,f("idc_103"),n,n,0,0,2))
tmpsl("idd_100",s("4",0,2,f("idc_104"),n,n,0,0,2))
tmpsl("idd_100",s("5",0,2,f("idc_105"),n,n,0,0,2))
tmpsl("idd_100",s("6",0,2,f("idc_106"),n,n,0,0,2))
tmpsl("idd_100",s("7",0,2,f("idc_107"),n,n,0,0,2))
tmpsl("idd_100",s("8",0,2,f("idc_108"),n,n,0,0,2))
tmpsl("idd_100",s("9",0,2,f("idc_109"),n,n,0,0,2))
tmpsl("idd_100",s("10",0,2,f("idc_110"),n,n,0,0,2))
tmpsl("idd_100",s("11",0,2,f("idc_111"),n,n,0,0,2))
tmpsl("idd_100",s("12",0,2,f("idc_112"),n,n,0,0,2))
tmpsl("idd_100",s("13",0,2,f("idc_113"),n,n,0,0,2))
tmpsl("idd_100",s("14",0,2,f("idc_114"),n,n,0,0,2))
tmpsl("idd_100",s("15",0,2,f("idc_115"),n,n,0,0,2))
tmpsl("idd_100",s("16",0,2,f("idc_116"),n,n,0,0,2))
tmpsl("idd_100",s("17",0,2,f("idc_117"),n,n,0,0,2))
tmpsl("idc_101",s("OWN",0,12,e("idd_100","1"),n,n,0,0,0))
tmpsl("idc_101",s("AKO",0,13,el([e("c_pb","PROJECT.FKB")]),n,sl([]),0,0,0))
tmpsl("idc_101",s("const",0,1,st("idc_help"),m("su","c_pref"),sl([]),6,0,2))
tmpsl("idc_101",s("title",0,1,st("帮助(&H)"),m("pu",""),sl([]),0,0,1))
tmpsl("idc_101",s("rct",0,8,il([204,140,236,154]),m("pu",""),sl([]),0,0,1))
tmpsl("idc_101",s("attr",0,1,st("[25,26]"),m("pu",""),sl([]),0,0,1))
tmpsl("idc_101",s("ord",0,5,sh(1),m("pu",""),sl([]),0,0,1))
tmpsl("idc_102",s("OWN",0,12,e("idd_100","2"),n,n,0,0,0))
tmpsl("idc_102",s("AKO",0,13,el([e("c_pb","PROJECT.FKB")]),n,sl([]),0,0,0))
tmpsl("idc_102",s("const",0,1,st("idc_cancel"),m("su","c_pref"),sl([]),6,0,2))
tmpsl("idc_102",s("title",0,1,st("关闭(&C)"),m("pu",""),sl([]),0,0,1))
tmpsl("idc_102",s("rct",0,8,il([124,141,156,155]),m("pu",""),sl([]),0,0,1))
tmpsl("idc_102",s("attr",0,1,st("[25,26]"),m("pu",""),sl([]),0,0,1))
tmpsl("idc_102",s("ord",0,5,sh(2),m("pu",""),sl([]),0,0,1))
tmpsl("idc_103",s("OWN",0,12,e("idd_100","3"),n,n,0,0,0))
tmpsl("idc_103",s("AKO",0,13,el([e("c_pb","PROJECT.FKB")]),n,sl([]),0,0,0))
tmpsl("idc_103",s("const",0,1,st("idc_ok"),m("su","c_pref"),sl([]),6,0,2))
tmpsl("idc_103",s("title",0,1,st("计算(&O)"),m("pu",""),sl([]),0,0,1))
tmpsl("idc_103",s("rct",0,8,il([46,141,78,155]),m("pu",""),sl([]),0,0,1))
tmpsl("idc_103",s("attr",0,1,st("[23,25,26]"),m("pu",""),sl([]),0,0,1))
tmpsl("idc_103",s("ord",0,5,sh(3),m("pu",""),sl([]),0,0,1))
tmpsl("idc_104",s("OWN",0,12,e("idd_100","4"),n,n,0,0,0))
tmpsl("idc_104",s("AKO",0,13,el([e("c_pb","PROJECT.FKB")]),n,sl([]),0,0,0))
tmpsl("idc_104",s("const",0,1,st("idc_pb_copyres"),m("su","c_pref"),sl([]),6,0,2))
tmpsl("idc_104",s("title",0,1,st("拷贝(&K)"),m("pu",""),sl([]),0,0,1))
tmpsl("idc_104",s("rct",0,8,il([224,118,258,132]),m("pu",""),sl([]),0,0,1))
tmpsl("idc_104",s("attr",0,1,st("[25,26]"),m("pu",""),sl([]),0,0,1))
tmpsl("idc_104",s("ord",0,5,sh(4),m("pu",""),sl([]),0,0,1))
tmpsl("idc_105",s("OWN",0,12,e("idd_100","5"),n,n,0,0,0))
tmpsl("idc_105",s("AKO",0,13,el([e("c_ec","PROJECT.FKB")]),n,sl([]),0,0,0))
tmpsl("idc_105",s("const",0,1,st("idc_edit_res"),m("su","c_pref"),sl([]),6,0,2))
tmpsl("idc_105",s("title",0,1,st(""),m("pu",""),sl([]),0,0,1))
tmpsl("idc_105",s("rct",0,8,il([34,117,221,131]),m("pu",""),sl([]),0,0,1))
tmpsl("idc_105",s("attr",0,1,st("[31,25,26,46,27]"),m("pu",""),sl([]),0,0,1))
tmpsl("idc_105",s("ord",0,5,sh(5),m("pu",""),sl([]),0,0,1))
tmpsl("idc_105",s("lb_ctrl",2,8,il([0]),m("pu",""),sl(["idct_fcalc_4","idct_txt_input","idct_fcalc_3","idct_fcalc_2","idct_fcalc_1"]),0,0,0))
tmpsl("idc_106",s("OWN",0,12,e("idd_100","6"),n,n,0,0,0))
tmpsl("idc_106",s("AKO",0,13,el([e("c_st","PROJECT.FKB")]),n,sl([]),0,0,0))
tmpsl("idc_106",s("const",0,1,st("idct_fcalc_4"),m("su","c_pref"),sl([]),6,0,2))
tmpsl("idc_106",s("title",0,1,st("结果："),m("pu",""),sl([]),0,0,1))
tmpsl("idc_106",s("rct",0,8,il([6,118,32,130]),m("pu",""),sl([]),0,0,1))
tmpsl("idc_106",s("attr",0,1,st("[31]"),m("pu",""),sl([]),0,0,1))
tmpsl("idc_107",s("OWN",0,12,e("idd_100","7"),n,n,0,0,0))
tmpsl("idc_107",s("AKO",0,13,el([e("c_ec","PROJECT.FKB")]),n,sl([]),0,0,0))
tmpsl("idc_107",s("const",0,1,st("idc_edit_fcommts"),m("su","c_pref"),sl([]),6,0,2))
tmpsl("idc_107",s("title",0,1,st(""),m("pu",""),sl([]),0,0,1))
tmpsl("idc_107",s("rct",0,8,il([9,60,130,105]),m("pu",""),sl([]),0,0,1))
tmpsl("idc_107",s("attr",0,1,st("[31,25,26,28,49,8]"),m("pu",""),sl([]),0,0,1))
tmpsl("idc_107",s("ord",0,5,sh(6),m("pu",""),sl([]),0,0,1))
tmpsl("idc_107",s("lb_ctrl",2,8,il([0]),m("pu",""),sl(["idct_fcalc_4","idct_txt_input","idct_fcalc_3","idct_fcalc_2","idct_fcalc_1"]),0,0,0))
tmpsl("idc_108",s("OWN",0,12,e("idd_100","8"),n,n,0,0,0))
tmpsl("idc_108",s("AKO",0,13,el([e("c_st","PROJECT.FKB")]),n,sl([]),0,0,0))
tmpsl("idc_108",s("const",0,1,st("idct_txt_input"),m("su","c_pref"),sl([]),6,0,2))
tmpsl("idc_108",s("title",0,1,st("变量输入："),m("pu",""),sl([]),0,0,1))
tmpsl("idc_108",s("rct",0,8,il([144,49,256,58]),m("pu",""),sl([]),0,0,1))
tmpsl("idc_108",s("attr",0,1,st("[31]"),m("pu",""),sl([]),0,0,1))
tmpsl("idc_109",s("OWN",0,12,e("idd_100","9"),n,n,0,0,0))
tmpsl("idc_109",s("AKO",0,13,el([e("c_st","PROJECT.FKB")]),n,sl([]),0,0,0))
tmpsl("idc_109",s("const",0,1,st("idct_fcalc_3"),m("su","c_pref"),sl([]),6,0,2))
tmpsl("idc_109",s("title",0,1,st("公式说明："),m("pu",""),sl([]),0,0,1))
tmpsl("idc_109",s("rct",0,8,il([8,49,106,59]),m("pu",""),sl([]),0,0,1))
tmpsl("idc_109",s("attr",0,1,st("[31]"),m("pu",""),sl([]),0,0,1))
tmpsl("idc_110",s("OWN",0,12,e("idd_100","10"),n,n,0,0,0))
tmpsl("idc_110",s("AKO",0,13,el([e("c_pb","PROJECT.FKB")]),n,sl([]),0,0,0))
tmpsl("idc_110",s("const",0,1,st("idc_pb_fmodify"),m("su","c_pref"),sl([]),6,0,2))
tmpsl("idc_110",s("title",0,1,st("&G改!"),m("pu",""),sl([]),0,0,1))
tmpsl("idc_110",s("rct",0,8,il([112,35,132,45]),m("pu",""),sl([]),0,0,1))
tmpsl("idc_110",s("attr",0,1,st("[25,26]"),m("pu",""),sl([]),0,0,1))
tmpsl("idc_110",s("ord",0,5,sh(7),m("pu",""),sl([]),0,0,1))
tmpsl("idc_111",s("OWN",0,12,e("idd_100","11"),n,n,0,0,0))
tmpsl("idc_111",s("AKO",0,13,el([e("c_pb","PROJECT.FKB")]),n,sl([]),0,0,0))
tmpsl("idc_111",s("const",0,1,st("idc_pb_delf"),m("su","c_pref"),sl([]),6,0,2))
tmpsl("idc_111",s("title",0,1,st("&S删>"),m("pu",""),sl([]),0,0,1))
tmpsl("idc_111",s("rct",0,8,il([112,25,132,35]),m("pu",""),sl([]),0,0,1))
tmpsl("idc_111",s("attr",0,1,st("[25,26]"),m("pu",""),sl([]),0,0,1))
tmpsl("idc_111",s("ord",0,5,sh(8),m("pu",""),sl([]),0,0,1))
tmpsl("idc_112",s("OWN",0,12,e("idd_100","12"),n,n,0,0,0))
tmpsl("idc_112",s("AKO",0,13,el([e("c_ec","PROJECT.FKB")]),n,sl([]),0,0,0))
tmpsl("idc_112",s("const",0,1,st("idc_edit_finput"),m("su","c_pref"),sl([]),6,0,2))
tmpsl("idc_112",s("title",0,1,st(""),m("pu",""),sl([]),0,0,1))
tmpsl("idc_112",s("rct",0,8,il([144,17,256,44]),m("pu",""),sl([]),0,0,1))
tmpsl("idc_112",s("attr",0,1,st("[31,25,26,46,28,49]"),m("pu",""),sl([]),0,0,1))
tmpsl("idc_112",s("ord",0,5,sh(9),m("pu",""),sl([]),0,0,1))
tmpsl("idc_112",s("lb_ctrl",2,8,il([0]),m("pu",""),sl(["idct_fcalc_4","idct_txt_input","idct_fcalc_3","idct_fcalc_2","idct_fcalc_1"]),0,0,0))
tmpsl("idc_113",s("OWN",0,12,e("idd_100","13"),n,n,0,0,0))
tmpsl("idc_113",s("AKO",0,13,el([e("c_pb","PROJECT.FKB")]),n,sl([]),0,0,0))
tmpsl("idc_113",s("const",0,1,st("idc_pb_addf"),m("su","c_pref"),sl([]),6,0,2))
tmpsl("idc_113",s("title",0,1,st("<增&Z"),m("pu",""),sl([]),0,0,1))
tmpsl("idc_113",s("rct",0,8,il([112,16,132,26]),m("pu",""),sl([]),0,0,1))
tmpsl("idc_113",s("attr",0,1,st("[25,26]"),m("pu",""),sl([]),0,0,1))
tmpsl("idc_113",s("ord",0,5,sh(10),m("pu",""),sl([]),0,0,1))
tmpsl("idc_114",s("OWN",0,12,e("idd_100","14"),n,n,0,0,0))
tmpsl("idc_114",s("AKO",0,13,el([e("c_le","PROJECT.FKB")]),n,sl([]),0,0,0))
tmpsl("idc_114",s("const",0,1,st("idc_list_fnames"),m("su","c_pref"),sl([]),6,0,2))
tmpsl("idc_114",s("title",0,1,st(""),m("pu",""),sl([]),0,0,1))
tmpsl("idc_114",s("rct",0,8,il([8,17,112,71]),m("pu",""),sl([]),0,0,1))
tmpsl("idc_114",s("attr",0,1,st("[8,53,25]"),m("pu",""),sl([]),0,0,1))
tmpsl("idc_114",s("ord",0,5,sh(0),m("pu",""),sl([]),0,0,1))
tmpsl("idc_115",s("OWN",0,12,e("idd_100","15"),n,n,0,0,0))
tmpsl("idc_115",s("AKO",0,13,el([e("c_st","PROJECT.FKB")]),n,sl([]),0,0,0))
tmpsl("idc_115",s("const",0,1,st("idct_fcalc_2"),m("su","c_pref"),sl([]),6,0,2))
tmpsl("idc_115",s("title",0,1,st("公式："),m("pu",""),sl([]),0,0,1))
tmpsl("idc_115",s("rct",0,8,il([144,7,256,16]),m("pu",""),sl([]),0,0,1))
tmpsl("idc_115",s("attr",0,1,st("[31]"),m("pu",""),sl([]),0,0,1))
tmpsl("idc_116",s("OWN",0,12,e("idd_100","16"),n,n,0,0,0))
tmpsl("idc_116",s("AKO",0,13,el([e("c_st","PROJECT.FKB")]),n,sl([]),0,0,0))
tmpsl("idc_116",s("const",0,1,st("idct_fcalc_1"),m("su","c_pref"),sl([]),6,0,2))
tmpsl("idc_116",s("title",0,1,st("选择公式："),m("pu",""),sl([]),0,0,1))
tmpsl("idc_116",s("rct",0,8,il([8,7,84,15]),m("pu",""),sl([]),0,0,1))
tmpsl("idc_116",s("attr",0,1,st("[31]"),m("pu",""),sl([]),0,0,1))
tmpsl("idc_117",s("OWN",0,12,e("idd_100","17"),n,n,0,0,0))
tmpsl("idc_117",s("AKO",0,13,el([e("c_ic","PROJECT.FKB")]),n,sl([]),0,0,0))
tmpsl("idc_117",s("const",0,1,st("idi_fcalc"),m("su","c_pref"),sl([]),6,0,2))
tmpsl("idc_117",s("rct",0,8,il([40,32,53,45]),m("pu",""),sl([]),0,0,1))
tmpsl("idc_117",s("file",0,2,st("Project icon"),d,sl([]),0,4,1))
tmpsl("idc_117",s("ord",0,5,sh(0),m("pu",""),sl([]),0,0,1))
tmpsl("idc_117",s("attr",0,1,st("[]"),m("pu",""),sl([]),0,0,1))