calculat.dlg

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

main_extframe("idd_82")
tmpsl("idd_82",s("AKO",0,13,el([e("dial","PROJECT.FKB")]),n,sl([]),0,0,0))
tmpsl("idd_82",s("name",0,1,st("calculator"),m("cr","class"),sl([]),1,0,1))
tmpsl("idd_82",s("title",0,1,st("Calculator"),m("cr","name"),sl([]),0,0,1))
tmpsl("idd_82",s("const",0,1,st("idd_calculator"),d,sl([]),6,15,2))
tmpsl("idd_82",s("rct",0,8,il([40,32,312,204]),m("pu",""),sl([]),0,0,1))
tmpsl("idd_82",s("attr",0,1,st("mode(7,[9,6,5,4],\"System\",10)"),m("pu",""),sl([]),0,0,1))
tmpsl("idd_82",s("mod",0,1,st("CALCDLG.PRO"),m("pu",""),sl([]),0,0,1))
tmpsl("idd_82",s("hlp",0,1,st("Contents"),m("pu",""),sl([]),0,0,1))
tmpsl("idd_82",s("c_pref",0,1,st("idc"),m("pu",""),sl([]),0,0,1))
tmpsl("idd_82",s("expattr",0,1,st("expattr4(1,1,0,0,5,5)"),m("pu",""),sl([]),0,0,1))
tmpsl("idd_82",s("upd_dt",0,1,st("23:18:40-8.8.2001"),d,sl([]),0,9,1))
tmpsl("idd_82",s("efile",0,1,st("RES\\CALCULAT.DLG"),n,st("1"),0,0,1))
tmpsl("idd_82",s("rb_groups",0,13,n,n,sl([]),0,0,1))
tmpsl("idd_82",s("1",0,2,f("idc_83"),n,n,0,0,2))
tmpsl("idd_82",s("2",0,2,f("idc_84"),n,n,0,0,2))
tmpsl("idd_82",s("3",0,2,f("idc_85"),n,n,0,0,2))
tmpsl("idd_82",s("4",0,2,f("idc_86"),n,n,0,0,2))
tmpsl("idd_82",s("5",0,2,f("idc_87"),n,n,0,0,2))
tmpsl("idd_82",s("6",0,2,f("idc_88"),n,n,0,0,2))
tmpsl("idd_82",s("7",0,2,f("idc_89"),n,n,0,0,2))
tmpsl("idd_82",s("8",0,2,f("idc_90"),n,n,0,0,2))
tmpsl("idd_82",s("9",0,2,f("idc_91"),n,n,0,0,2))
tmpsl("idd_82",s("10",0,2,f("idc_92"),n,n,0,0,2))
tmpsl("idd_82",s("11",0,2,f("idc_93"),n,n,0,0,2))
tmpsl("idd_82",s("12",0,2,f("idc_94"),n,n,0,0,2))
tmpsl("idd_82",s("13",0,2,f("idc_95"),n,n,0,0,2))
tmpsl("idd_82",s("14",0,2,f("idc_96"),n,n,0,0,2))
tmpsl("idd_82",s("15",0,2,f("idc_97"),n,n,0,0,2))
tmpsl("idd_82",s("16",0,2,f("idc_98"),n,n,0,0,2))
tmpsl("idd_82",s("17",0,2,f("idc_99"),n,n,0,0,2))
tmpsl("idc_83",s("OWN",0,12,e("idd_82","1"),n,n,0,0,0))
tmpsl("idc_83",s("AKO",0,13,el([e("c_pb","PROJECT.FKB")]),n,sl([]),0,0,0))
tmpsl("idc_83",s("const",0,1,st("idc_help"),m("su","c_pref"),sl([]),6,0,2))
tmpsl("idc_83",s("title",0,1,st("&Help"),m("pu",""),sl([]),0,0,1))
tmpsl("idc_83",s("rct",0,8,il([204,140,236,154]),m("pu",""),sl([]),0,0,1))
tmpsl("idc_83",s("attr",0,1,st("[25,26]"),m("pu",""),sl([]),0,0,1))
tmpsl("idc_83",s("ord",0,5,sh(1),m("pu",""),sl([]),0,0,1))
tmpsl("idc_84",s("OWN",0,12,e("idd_82","2"),n,n,0,0,0))
tmpsl("idc_84",s("AKO",0,13,el([e("c_pb","PROJECT.FKB")]),n,sl([]),0,0,0))
tmpsl("idc_84",s("const",0,1,st("idc_cancel"),m("su","c_pref"),sl([]),6,0,2))
tmpsl("idc_84",s("title",0,1,st("Cl&ose"),m("pu",""),sl([]),0,0,1))
tmpsl("idc_84",s("rct",0,8,il([124,141,156,155]),m("pu",""),sl([]),0,0,1))
tmpsl("idc_84",s("attr",0,1,st("[25,26]"),m("pu",""),sl([]),0,0,1))
tmpsl("idc_84",s("ord",0,5,sh(2),m("pu",""),sl([]),0,0,1))
tmpsl("idc_85",s("OWN",0,12,e("idd_82","3"),n,n,0,0,0))
tmpsl("idc_85",s("AKO",0,13,el([e("c_pb","PROJECT.FKB")]),n,sl([]),0,0,0))
tmpsl("idc_85",s("const",0,1,st("idc_ok"),m("su","c_pref"),sl([]),6,0,2))
tmpsl("idc_85",s("title",0,1,st("Ca&lc"),m("pu",""),sl([]),0,0,1))
tmpsl("idc_85",s("rct",0,8,il([46,141,78,155]),m("pu",""),sl([]),0,0,1))
tmpsl("idc_85",s("attr",0,1,st("[23,25,26]"),m("pu",""),sl([]),0,0,1))
tmpsl("idc_85",s("ord",0,5,sh(3),m("pu",""),sl([]),0,0,1))
tmpsl("idc_86",s("OWN",0,12,e("idd_82","4"),n,n,0,0,0))
tmpsl("idc_86",s("AKO",0,13,el([e("c_pb","PROJECT.FKB")]),n,sl([]),0,0,0))
tmpsl("idc_86",s("const",0,1,st("idc_pb_copyres"),m("su","c_pref"),sl([]),6,0,2))
tmpsl("idc_86",s("title",0,1,st("&Copy"),m("pu",""),sl([]),0,0,1))
tmpsl("idc_86",s("rct",0,8,il([224,117,258,131]),m("pu",""),sl([]),0,0,1))
tmpsl("idc_86",s("attr",0,1,st("[25,26]"),m("pu",""),sl([]),0,0,1))
tmpsl("idc_86",s("ord",0,5,sh(4),m("pu",""),sl([]),0,0,1))
tmpsl("idc_87",s("OWN",0,12,e("idd_82","5"),n,n,0,0,0))
tmpsl("idc_87",s("AKO",0,13,el([e("c_ec","PROJECT.FKB")]),n,sl([]),0,0,0))
tmpsl("idc_87",s("const",0,1,st("idc_edit_res"),m("su","c_pref"),sl([]),6,0,2))
tmpsl("idc_87",s("title",0,1,st(""),m("pu",""),sl([]),0,0,1))
tmpsl("idc_87",s("rct",0,8,il([34,117,221,131]),m("pu",""),sl([]),0,0,1))
tmpsl("idc_87",s("attr",0,1,st("[31,25,26,46,27]"),m("pu",""),sl([]),0,0,1))
tmpsl("idc_87",s("ord",0,5,sh(5),m("pu",""),sl([]),0,0,1))
tmpsl("idc_87",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_88",s("OWN",0,12,e("idd_82","6"),n,n,0,0,0))
tmpsl("idc_88",s("AKO",0,13,el([e("c_st","PROJECT.FKB")]),n,sl([]),0,0,0))
tmpsl("idc_88",s("const",0,1,st("idct_fcalc_4"),m("su","c_pref"),sl([]),6,0,2))
tmpsl("idc_88",s("title",0,1,st("REsult:"),m("pu",""),sl([]),0,0,1))
tmpsl("idc_88",s("rct",0,8,il([6,118,32,130]),m("pu",""),sl([]),0,0,1))
tmpsl("idc_88",s("attr",0,1,st("[31]"),m("pu",""),sl([]),0,0,1))
tmpsl("idc_89",s("OWN",0,12,e("idd_82","7"),n,n,0,0,0))
tmpsl("idc_89",s("AKO",0,13,el([e("c_ec","PROJECT.FKB")]),n,sl([]),0,0,0))
tmpsl("idc_89",s("const",0,1,st("idc_edit_fcommts"),m("su","c_pref"),sl([]),6,0,2))
tmpsl("idc_89",s("title",0,1,st(""),m("pu",""),sl([]),0,0,1))
tmpsl("idc_89",s("rct",0,8,il([9,60,130,105]),m("pu",""),sl([]),0,0,1))
tmpsl("idc_89",s("attr",0,1,st("[31,25,26,28,49,8]"),m("pu",""),sl([]),0,0,1))
tmpsl("idc_89",s("ord",0,5,sh(6),m("pu",""),sl([]),0,0,1))
tmpsl("idc_89",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_90",s("OWN",0,12,e("idd_82","8"),n,n,0,0,0))
tmpsl("idc_90",s("AKO",0,13,el([e("c_st","PROJECT.FKB")]),n,sl([]),0,0,0))
tmpsl("idc_90",s("const",0,1,st("idct_txt_input"),m("su","c_pref"),sl([]),6,0,2))
tmpsl("idc_90",s("title",0,1,st("Variable:"),m("pu",""),sl([]),0,0,1))
tmpsl("idc_90",s("rct",0,8,il([144,49,256,58]),m("pu",""),sl([]),0,0,1))
tmpsl("idc_90",s("attr",0,1,st("[31]"),m("pu",""),sl([]),0,0,1))
tmpsl("idc_91",s("OWN",0,12,e("idd_82","9"),n,n,0,0,0))
tmpsl("idc_91",s("AKO",0,13,el([e("c_st","PROJECT.FKB")]),n,sl([]),0,0,0))
tmpsl("idc_91",s("const",0,1,st("idct_fcalc_3"),m("su","c_pref"),sl([]),6,0,2))
tmpsl("idc_91",s("title",0,1,st("Comments:"),m("pu",""),sl([]),0,0,1))
tmpsl("idc_91",s("rct",0,8,il([8,48,106,58]),m("pu",""),sl([]),0,0,1))
tmpsl("idc_91",s("attr",0,1,st("[31]"),m("pu",""),sl([]),0,0,1))
tmpsl("idc_92",s("OWN",0,12,e("idd_82","10"),n,n,0,0,0))
tmpsl("idc_92",s("AKO",0,13,el([e("c_pb","PROJECT.FKB")]),n,sl([]),0,0,0))
tmpsl("idc_92",s("const",0,1,st("idc_pb_fmodify"),m("su","c_pref"),sl([]),6,0,2))
tmpsl("idc_92",s("title",0,1,st("&Mod"),m("pu",""),sl([]),0,0,1))
tmpsl("idc_92",s("rct",0,8,il([112,35,132,45]),m("pu",""),sl([]),0,0,1))
tmpsl("idc_92",s("attr",0,1,st("[25,26]"),m("pu",""),sl([]),0,0,1))
tmpsl("idc_92",s("ord",0,5,sh(7),m("pu",""),sl([]),0,0,1))
tmpsl("idc_93",s("OWN",0,12,e("idd_82","11"),n,n,0,0,0))
tmpsl("idc_93",s("AKO",0,13,el([e("c_pb","PROJECT.FKB")]),n,sl([]),0,0,0))
tmpsl("idc_93",s("const",0,1,st("idc_pb_delf"),m("su","c_pref"),sl([]),6,0,2))
tmpsl("idc_93",s("title",0,1,st("&Del>"),m("pu",""),sl([]),0,0,1))
tmpsl("idc_93",s("rct",0,8,il([112,25,132,35]),m("pu",""),sl([]),0,0,1))
tmpsl("idc_93",s("attr",0,1,st("[25,26]"),m("pu",""),sl([]),0,0,1))
tmpsl("idc_93",s("ord",0,5,sh(8),m("pu",""),sl([]),0,0,1))
tmpsl("idc_94",s("OWN",0,12,e("idd_82","12"),n,n,0,0,0))
tmpsl("idc_94",s("AKO",0,13,el([e("c_ec","PROJECT.FKB")]),n,sl([]),0,0,0))
tmpsl("idc_94",s("const",0,1,st("idc_edit_finput"),m("su","c_pref"),sl([]),6,0,2))
tmpsl("idc_94",s("title",0,1,st(""),m("pu",""),sl([]),0,0,1))
tmpsl("idc_94",s("rct",0,8,il([144,17,256,44]),m("pu",""),sl([]),0,0,1))
tmpsl("idc_94",s("attr",0,1,st("[31,25,26,46,28,49]"),m("pu",""),sl([]),0,0,1))
tmpsl("idc_94",s("ord",0,5,sh(9),m("pu",""),sl([]),0,0,1))
tmpsl("idc_94",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_95",s("OWN",0,12,e("idd_82","13"),n,n,0,0,0))
tmpsl("idc_95",s("AKO",0,13,el([e("c_pb","PROJECT.FKB")]),n,sl([]),0,0,0))
tmpsl("idc_95",s("const",0,1,st("idc_pb_addf"),m("su","c_pref"),sl([]),6,0,2))
tmpsl("idc_95",s("title",0,1,st("<&Add"),m("pu",""),sl([]),0,0,1))
tmpsl("idc_95",s("rct",0,8,il([112,15,132,25]),m("pu",""),sl([]),0,0,1))
tmpsl("idc_95",s("attr",0,1,st("[25,26]"),m("pu",""),sl([]),0,0,1))
tmpsl("idc_95",s("ord",0,5,sh(10),m("pu",""),sl([]),0,0,1))
tmpsl("idc_96",s("OWN",0,12,e("idd_82","14"),n,n,0,0,0))
tmpsl("idc_96",s("AKO",0,13,el([e("c_le","PROJECT.FKB")]),n,sl([]),0,0,0))
tmpsl("idc_96",s("const",0,1,st("idc_list_fnames"),m("su","c_pref"),sl([]),6,0,2))
tmpsl("idc_96",s("title",0,1,st(""),m("pu",""),sl([]),0,0,1))
tmpsl("idc_96",s("rct",0,8,il([8,17,112,71]),m("pu",""),sl([]),0,0,1))
tmpsl("idc_96",s("attr",0,1,st("[8,53,25]"),m("pu",""),sl([]),0,0,1))
tmpsl("idc_96",s("ord",0,5,sh(0),m("pu",""),sl([]),0,0,1))
tmpsl("idc_97",s("OWN",0,12,e("idd_82","15"),n,n,0,0,0))
tmpsl("idc_97",s("AKO",0,13,el([e("c_st","PROJECT.FKB")]),n,sl([]),0,0,0))
tmpsl("idc_97",s("const",0,1,st("idct_fcalc_2"),m("su","c_pref"),sl([]),6,0,2))
tmpsl("idc_97",s("title",0,1,st("Formula:"),m("pu",""),sl([]),0,0,1))
tmpsl("idc_97",s("rct",0,8,il([144,7,256,16]),m("pu",""),sl([]),0,0,1))
tmpsl("idc_97",s("attr",0,1,st("[31]"),m("pu",""),sl([]),0,0,1))
tmpsl("idc_98",s("OWN",0,12,e("idd_82","16"),n,n,0,0,0))
tmpsl("idc_98",s("AKO",0,13,el([e("c_st","PROJECT.FKB")]),n,sl([]),0,0,0))
tmpsl("idc_98",s("const",0,1,st("idct_fcalc_1"),m("su","c_pref"),sl([]),6,0,2))
tmpsl("idc_98",s("title",0,1,st("Select Formula:"),m("pu",""),sl([]),0,0,1))
tmpsl("idc_98",s("rct",0,8,il([8,7,84,15]),m("pu",""),sl([]),0,0,1))
tmpsl("idc_98",s("attr",0,1,st("[31]"),m("pu",""),sl([]),0,0,1))
tmpsl("idc_99",s("OWN",0,12,e("idd_82","17"),n,n,0,0,0))
tmpsl("idc_99",s("AKO",0,13,el([e("c_ic","PROJECT.FKB")]),n,sl([]),0,0,0))
tmpsl("idc_99",s("const",0,1,st("idi_fcalc"),m("su","c_pref"),sl([]),6,0,2))
tmpsl("idc_99",s("rct",0,8,il([40,32,53,45]),m("pu",""),sl([]),0,0,1))
tmpsl("idc_99",s("file",0,2,st("Project icon"),d,sl([]),0,4,1))
tmpsl("idc_99",s("ord",0,5,sh(0),m("pu",""),sl([]),0,0,1))
tmpsl("idc_99",s("attr",0,1,st("[]"),m("pu",""),sl([]),0,0,1))